From 6801e7e1363ab86ccfdce382ba40ac70f36caf21 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 13 Dec 2025 22:41:56 +0100 Subject: Add nutrient-measurement-value helper. --- models/nutrient-measurement.rkt | 3 +++ 1 file changed, 3 insertions(+) (limited to 'models') 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) -- cgit v1.2.3