diff options
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?)])) |