diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-12-13 22:41:56 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-12-13 22:41:56 +0100 |
| commit | 6801e7e1363ab86ccfdce382ba40ac70f36caf21 (patch) | |
| tree | a0af4760102306984a21f04685fda58ff88b3598 | |
| parent | 0bb6e30da121596184ae281e9e4dddaa6ccf7009 (diff) | |
Add nutrient-measurement-value helper.
| -rw-r--r-- | models/nutrient-measurement.rkt | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/models/nutrient-measurement.rkt b/models/nutrient-measurement.rkt index 1ab451d..f4bfa8e 100644 --- a/models/nutrient-measurement.rkt +++ b/models/nutrient-measurement.rkt @@ -3,6 +3,7 @@ (provide nutrient-measurement nutrient-measurement? nutrient-measurement-id + nutrient-measurement-value (rename-out [nutrient-measurement-measurement-date nutrient-measurement-date] [nutrient-measurement-nutrient-values nutrient-measurement-values]) (contract-out @@ -39,6 +40,8 @@ (~a (nutrient-canonical-name n) #:min-width 14) (~a v #:max-width 6 #:align 'right))))) +(define (nutrient-measurement-value nm nutrient) + (hash-ref (nutrient-measurement-nutrient-values nm) nutrient #f)) (define nutrient-measurement-or-id/c (or/c nutrient-measurement? db-id?)) (define (->nm-id nm-or-id) |