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-measurement.rkt | |
| parent | 9620cae7bba35503a2ea4679938f76749a34245a (diff) | |
Simplify get-* model accessors.
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] |