diff options
Diffstat (limited to 'models/nutrient-measurement.rkt')
| -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) |