diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-13 16:18:23 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-13 16:18:23 +0100 |
| commit | 96a7702d4f8fe7840325ea75564801409d63d821 (patch) | |
| tree | d38a9b233ade8502b8988482ae098affd4de63dc /models/nutrient-measurement.rkt | |
| parent | 7b09445140983623173203c4594bb54dcd55fe1e (diff) | |
Use nutrient-value-pair/c contract throughout domain model.
Diffstat (limited to 'models/nutrient-measurement.rkt')
| -rw-r--r-- | models/nutrient-measurement.rkt | 8 |
1 files changed, 4 insertions, 4 deletions
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?)])) |