From 89157ccd049aa43c080c731148731af4e84f77d5 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sun, 30 Nov 2025 14:18:20 +0100 Subject: Add get-latest-nutrient-measurement helper. --- models/nutrient-measurement.rkt | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'models') diff --git a/models/nutrient-measurement.rkt b/models/nutrient-measurement.rkt index 8c963b6..bc7a463 100644 --- a/models/nutrient-measurement.rkt +++ b/models/nutrient-measurement.rkt @@ -13,6 +13,7 @@ [get-nutrient-measurement-values (-> nutrient-measurement-or-id/c nutrient-value-hash/c)] [get-nutrient-measurement-value (-> nutrient-measurement-or-id/c nutrient? maybe-nutrient-value?)] + [get-latest-nutrient-measurement (-> (or/c nutrient-measurement? #f))] [get-latest-nutrient-measurement-value (-> nutrient? maybe-nutrient-value?)] [get-latest-nutrient-measurement-values (-> nutrient-value-hash/c)] [delete-nutrient-measurement! (-> nutrient-measurement-or-id/c void?)])) @@ -147,6 +148,12 @@ #:where (and (= nm.id ,(->nm-id nm-or-id)) (= nv.nutrient_id ,(nutrient-id nutrient)))))) +(define (get-latest-nutrient-measurement) + (define measurements (get-nutrient-measurements)) + (if (null? measurements) + #f + (first measurements))) + (define (get-latest-nutrient-measurement-value nutrient) (query-maybe-value (current-conn) (select value_ppm -- cgit v1.2.3