From 96a7702d4f8fe7840325ea75564801409d63d821 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Thu, 13 Nov 2025 16:18:23 +0100 Subject: Use nutrient-value-pair/c contract throughout domain model. --- models/nutrient-measurement.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'models/nutrient-measurement.rkt') diff --git a/models/nutrient-measurement.rkt b/models/nutrient-measurement.rkt index e73a10e..ee336fe 100644 --- a/models/nutrient-measurement.rkt +++ b/models/nutrient-measurement.rkt @@ -1,17 +1,17 @@ #lang racket (provide - ;; Struct definitions + ;; Model struct nutrient-measurement nutrient-measurement? nutrient-measurement-id (rename-out [nutrient-measurement-measured-on nutrient-measurement-date] [nutrient-measurement-nutrient-values nutrient-measurement-values]) - ;; SQL CRUD (contract-out + ;; SQL CRUD [create-nutrient-measurement! (-> string? - (listof (cons/c nutrient? number?)) + (listof nutrient-value-pair/c) nutrient-measurement?)] [get-nutrient-measurements (-> (listof nutrient-measurement?))] [get-nutrient-measurement (->* () @@ -19,7 +19,7 @@ #:measured-on (or/c #f string?)) (or/c nutrient-measurement? #f))] [get-nutrient-measurement-values (-> nutrient-measurement? - (listof (cons/c nutrient? number?)))] + (listof nutrient-value-pair/c))] [get-nutrient-measurement-value (-> nutrient-measurement? nutrient? number?)] [get-latest-nutrient-measurement-value (-> nutrient? (or/c number? #f))] [delete-nutrient-measurement! (-> nutrient-measurement? void?)])) -- cgit v1.2.3