From 355bbfd898a8b61797b3a077f15c5f97ab7ebb04 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sun, 30 Nov 2025 11:11:09 +0100 Subject: Add contracts related to nutrient-value. --- models/nutrient-measurement.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'models/nutrient-measurement.rkt') diff --git a/models/nutrient-measurement.rkt b/models/nutrient-measurement.rkt index b4baba6..ae0e2ef 100644 --- a/models/nutrient-measurement.rkt +++ b/models/nutrient-measurement.rkt @@ -10,11 +10,12 @@ [get-nutrient-measurements (-> (listof nutrient-measurement?))] [get-nutrient-measurement (->* () - (#:id (or/c #f exact-nonnegative-integer?) #:measured-on (or/c #f string?)) + (#:id exact-nonnegative-integer? #:measured-on string?) (or/c nutrient-measurement? #f))] [get-nutrient-measurement-values (-> nutrient-measurement-or-id/c nutrient-value-hash/c)] - [get-nutrient-measurement-value (-> nutrient-measurement-or-id/c nutrient? (or/c real? #f))] - [get-latest-nutrient-measurement-value (-> nutrient? (or/c real? #f))] + [get-nutrient-measurement-value + (-> nutrient-measurement-or-id/c nutrient? maybe-nutrient-value?)] + [get-latest-nutrient-measurement-value (-> nutrient? maybe-nutrient-value?)] [get-latest-nutrient-measurement-hash (-> nutrient-value-hash/c)] [delete-nutrient-measurement! (-> nutrient-measurement-or-id/c void?)])) -- cgit v1.2.3