diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-10-20 20:41:07 +0200 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-10-20 20:41:07 +0200 |
| commit | fddbcb3923d3dd019d07b3f37c033fab36c2cadc (patch) | |
| tree | 87a185fe72e0c57e663677a004d7d24ef31fa314 /models/nutrient-target.rkt | |
| parent | 9620cae7bba35503a2ea4679938f76749a34245a (diff) | |
Simplify get-* model accessors.
Diffstat (limited to 'models/nutrient-target.rkt')
| -rw-r--r-- | models/nutrient-target.rkt | 10 |
1 files changed, 4 insertions, 6 deletions
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] |