diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-12-06 17:55:58 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-12-06 17:55:58 +0100 |
| commit | c3557a7d5f54d7a9cb7fb2ece9487332c264236e (patch) | |
| tree | 1a87077374fba18f4ef38fb1ae084f6884e3cd5b /models/nutrient.rkt | |
| parent | c7ec194f4a6c3dc879c24d8075bfe05a7687f976 (diff) | |
Update model contracts.
Great use of my new modules to factor out common model contract logic!
Diffstat (limited to 'models/nutrient.rkt')
| -rw-r--r-- | models/nutrient.rkt | 6 |
1 files changed, 1 insertions, 5 deletions
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?)) |