diff options
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] |