diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-01 19:02:22 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-01 19:02:22 +0100 |
| commit | b310f6e261e623237f0379c954df040cf4e57a4c (patch) | |
| tree | b6e01cf56f954705a5d02ade4d902263a26570de /models/nutrient-measurement.rkt | |
| parent | 56985d215b2d3665937d5675bd3f52df3ee15109 (diff) | |
Apply minor fixes.
Diffstat (limited to 'models/nutrient-measurement.rkt')
| -rw-r--r-- | models/nutrient-measurement.rkt | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/models/nutrient-measurement.rkt b/models/nutrient-measurement.rkt index 23ee9e3..d3631de 100644 --- a/models/nutrient-measurement.rkt +++ b/models/nutrient-measurement.rkt @@ -21,7 +21,7 @@ [get-nutrient-measurement-values (-> nutrient-measurement? (listof (cons/c nutrient? number?)))] [get-nutrient-measurement-value (-> nutrient-measurement? nutrient? number?)] - [get-latest-nutrient-measurement-value (-> nutrient? number?)] + [get-latest-nutrient-measurement-value (-> nutrient? (or/c number? #f))] [delete-nutrient-measurement! (-> nutrient-measurement? void?)])) (require racket/contract @@ -124,7 +124,7 @@ (cond [(null? rows) #f] [else - ;; Fold all nutrient rows belonging to the single measurement into one struct + ;; Fold all nutrient value rows belonging to the single nutrient measurement into one struct (define the-id #f) (define A #f) (for ([row (in-list rows)]) @@ -134,7 +134,8 @@ (set! A (if A (acc (acc-measured-on A) (cons nv-pair (acc-pairs A))) - (acc measured-on (list nv-pair))))) + (acc measured-on + (list nv-pair))))) (and A (nutrient-measurement the-id (acc-measured-on A) |