diff options
Diffstat (limited to 'models/nutrient-measurement.rkt')
| -rw-r--r-- | models/nutrient-measurement.rkt | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/models/nutrient-measurement.rkt b/models/nutrient-measurement.rkt index 28e3bdc..d1bd534 100644 --- a/models/nutrient-measurement.rkt +++ b/models/nutrient-measurement.rkt @@ -12,8 +12,7 @@ nutrient? number?)) nutrient-measurement?)] - [get-nutrient-measurements (-> void? - (listof nutrient-measurement?))] + [get-nutrient-measurements (-> (listof nutrient-measurement?))] [get-nutrient-measurement (->* () (#:id (or/c #f exact-nonnegative-integer?) #:measured-on (or/c #f string?)) @@ -81,10 +80,9 @@ (define (get-nutrient-measurements) (for/list ([(id* measured-on*) (in-query (current-conn) - (string-join - `("SELECT id, measured_on" - "FROM nutrient_measurements" - "ORDER BY id ASC")))]) + (select id measured_on + #:from nutrient_measurements + #:order-by measured_on #:asc))]) (nutrient-measurement id* measured-on*))) (define (get-nutrient-measurement #:id [id #f] |