From 0071a7fdf3c171ffa5a4fb562fd7d29c10251790 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 13 Dec 2025 22:48:46 +0100 Subject: Add nutrient-measurement internal contract. --- models/nutrient-measurement.rkt | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/models/nutrient-measurement.rkt b/models/nutrient-measurement.rkt index fea7b89..676ec1b 100644 --- a/models/nutrient-measurement.rkt +++ b/models/nutrient-measurement.rkt @@ -11,12 +11,11 @@ (case-> (-> nutrient-measurement? nutrient-measurement?) (-> string? nutrient-value-hash/c nutrient-measurement?))] [get-nutrient-measurements (-> (listof nutrient-measurement?))] - [get-nutrient-measurement - (->* () (#:id db-id? #:date string?) (or/c nutrient-measurement? #f))] + [get-nutrient-measurement (->* () (#:id db-id? #:date string?) maybe-nutrient-measurement?)] [get-nutrient-measurement-values (-> nutrient-measurement-or-id/c nutrient-value-hash/c)] [get-nutrient-measurement-value (-> nutrient-measurement-or-id/c nutrient? maybe-nutrient-value?)] - [get-latest-nutrient-measurement (-> (or/c nutrient-measurement? #f))] + [get-latest-nutrient-measurement (-> maybe-nutrient-measurement?)] [get-latest-nutrient-measurement-value (-> nutrient? maybe-nutrient-value?)] [get-latest-nutrient-measurement-values (-> nutrient-value-hash/c)] [delete-nutrient-measurement! (-> nutrient-measurement-or-id/c void?)])) @@ -44,7 +43,9 @@ (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 maybe-nutrient-measurement? (or/c nutrient-measurement? #f)) (define (->nm-id nm-or-id) (match nm-or-id -- cgit v1.2.3