diff options
Diffstat (limited to 'models/nutrient-measurement.rkt')
| -rw-r--r-- | models/nutrient-measurement.rkt | 42 |
1 files changed, 18 insertions, 24 deletions
diff --git a/models/nutrient-measurement.rkt b/models/nutrient-measurement.rkt index 5b999d8..1cabf63 100644 --- a/models/nutrient-measurement.rkt +++ b/models/nutrient-measurement.rkt @@ -1,28 +1,23 @@ #lang racket -(provide - ;; 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]) - (contract-out - ;; SQL CRUD - [create-nutrient-measurement! (-> string? - (listof nutrient-value-pair/c) - nutrient-measurement?)] - [get-nutrient-measurements (-> (listof nutrient-measurement?))] - [get-nutrient-measurement (->* () - (#:id (or/c #f exact-nonnegative-integer?) - #:measured-on (or/c #f string?)) - (or/c nutrient-measurement? #f))] - [get-nutrient-measurement-values (-> nutrient-measurement? - (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?)])) +(provide nutrient-measurement + nutrient-measurement? + nutrient-measurement-id + (rename-out [nutrient-measurement-measured-on nutrient-measurement-date] + [nutrient-measurement-nutrient-values nutrient-measurement-values]) + (contract-out + [create-nutrient-measurement! + (-> string? (listof nutrient-value-pair/c) nutrient-measurement?)] + [get-nutrient-measurements (-> (listof nutrient-measurement?))] + [get-nutrient-measurement + (->* () + (#:id (or/c #f exact-nonnegative-integer?) #:measured-on (or/c #f string?)) + (or/c nutrient-measurement? #f))] + [get-nutrient-measurement-values (-> nutrient-measurement? (listof nutrient-value-pair/c))] + [get-nutrient-measurement-value (-> nutrient-measurement? nutrient? number?)] + [get-latest-nutrient-measurement-value (-> nutrient? (or/c number? #f))] + [get-latest-nutrient-measurement-hash (-> (hash/c nutrient? number?))] + [delete-nutrient-measurement! (-> nutrient-measurement? void?)])) (require racket/contract db @@ -30,7 +25,6 @@ "../db/conn.rkt" "nutrient.rkt") -;; Instances of this struct are persisted in the nutrient_measurements table. (struct nutrient-measurement (id measured-on nutrient-values) #:transparent #:property prop:custom-write |