diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-30 14:18:20 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-30 14:18:20 +0100 |
| commit | 89157ccd049aa43c080c731148731af4e84f77d5 (patch) | |
| tree | ccc8d51ccea860349a83cca0471e49a4093086b6 | |
| parent | ad581f40f5f0ff00682f9cf2985ee391b3c9e7ee (diff) | |
Add get-latest-nutrient-measurement helper.
| -rw-r--r-- | models/nutrient-measurement.rkt | 7 |
1 files changed, 7 insertions, 0 deletions
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 |