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-target.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'models/nutrient-target.rkt') diff --git a/models/nutrient-target.rkt b/models/nutrient-target.rkt index 2d85e6e..c2f9c2e 100644 --- a/models/nutrient-target.rkt +++ b/models/nutrient-target.rkt @@ -1,24 +1,24 @@ #lang racket (provide - ;; Struct definitions + ;; Model struct nutrient-target nutrient-target? nutrient-target-id (rename-out [nutrient-target-effective-on nutrient-target-date] [nutrient-target-nutrient-values nutrient-target-values]) - ;; SQL CRUD (contract-out + ;; SQL CRUD [create-nutrient-target! (-> string? - (listof (cons/c nutrient? number?)) + (listof nutrient-value-pair/c) nutrient-target?)] [get-nutrient-targets (-> (listof nutrient-target?))] [get-nutrient-target (->* () (#:id (or/c #f exact-nonnegative-integer?) #:effective-on (or/c #f string?)) (or/c nutrient-target? #f))] - [get-nutrient-target-values (-> nutrient-target? (listof (cons/c nutrient? number?)))] + [get-nutrient-target-values (-> nutrient-target? (listof nutrient-value-pair/c))] [get-nutrient-target-value (-> nutrient-target? nutrient? number?)] [get-latest-nutrient-target-value (-> nutrient? (or/c number? #f))] [delete-nutrient-target! (-> nutrient-target? void?)])) -- cgit v1.2.3