From fddbcb3923d3dd019d07b3f37c033fab36c2cadc Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Mon, 20 Oct 2025 20:41:07 +0200 Subject: Simplify get-* model accessors. --- models/nutrient-measurement.rkt | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'models/nutrient-measurement.rkt') 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] -- cgit v1.2.3