From c3557a7d5f54d7a9cb7fb2ece9487332c264236e Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 6 Dec 2025 17:55:58 +0100 Subject: Update model contracts. Great use of my new modules to factor out common model contract logic! --- models/nutrient.rkt | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'models/nutrient.rkt') diff --git a/models/nutrient.rkt b/models/nutrient.rkt index cbf6bb1..397e1e1 100644 --- a/models/nutrient.rkt +++ b/models/nutrient.rkt @@ -9,11 +9,7 @@ (contract-out [create-nutrient! (-> string? string? string? nutrient?)] [get-nutrients (-> (listof nutrient?))] [get-nutrient - (->* () - (#:id (or/c #f exact-nonnegative-integer?) - #:name (or/c #f string?) - #:formula (or/c #f string?)) - (or/c nutrient? #f))] + (->* () (#:id db-id? #:name string? #:formula string?) (or/c nutrient? #f))] [update-nutrient! (->* (nutrient?) (#:name (or/c #f string?) #:formula (or/c #f string?)) -- cgit v1.2.3