From fddbcb3923d3dd019d07b3f37c033fab36c2cadc Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
Date: Mon, 20 Oct 2025 20:41:07 +0200
Subject: Simplify get-* model accessors.

---
 models/nutrient-target.rkt | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'models/nutrient-target.rkt')

diff --git a/models/nutrient-target.rkt b/models/nutrient-target.rkt
index e9c168e..29ea52b 100644
--- a/models/nutrient-target.rkt
+++ b/models/nutrient-target.rkt
@@ -12,8 +12,7 @@
                                         nutrient?
                                         number?))
                                nutrient-target?)]
-  [get-nutrient-targets (-> void?
-                            (listof nutrient-target?))]
+  [get-nutrient-targets (-> (listof nutrient-target?))]
   [get-nutrient-target (->* ()
                             (#:id
                              (or/c #f exact-nonnegative-integer?)
@@ -84,10 +83,9 @@
 (define (get-nutrient-targets)
   (for/list ([(id* effective-on*)
               (in-query (current-conn)
-                        (string-join
-                         `("SELECT id, effective_on"
-                           "FROM nutrient_targets"
-                           "ORDER BY id ASC")))])
+                        (select id effective_on
+                                #:from nutrient_targets
+                                #:order-by id ASC))])
     (nutrient-target id* effective-on*)))
 
 (define (get-nutrient-target #:id [id #f]
-- 
cgit v1.2.3