diff options
Diffstat (limited to 'models/nutrient-target.rkt')
| -rw-r--r-- | models/nutrient-target.rkt | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/models/nutrient-target.rkt b/models/nutrient-target.rkt index 2d85e6e..c2f9c2e 100644 --- a/models/nutrient-target.rkt +++ b/models/nutrient-target.rkt @@ -1,24 +1,24 @@ #lang racket (provide - ;; Struct definitions + ;; Model struct nutrient-target nutrient-target? nutrient-target-id (rename-out [nutrient-target-effective-on nutrient-target-date] [nutrient-target-nutrient-values nutrient-target-values]) - ;; SQL CRUD (contract-out + ;; SQL CRUD [create-nutrient-target! (-> string? - (listof (cons/c nutrient? number?)) + (listof nutrient-value-pair/c) nutrient-target?)] [get-nutrient-targets (-> (listof nutrient-target?))] [get-nutrient-target (->* () (#:id (or/c #f exact-nonnegative-integer?) #:effective-on (or/c #f string?)) (or/c nutrient-target? #f))] - [get-nutrient-target-values (-> nutrient-target? (listof (cons/c nutrient? number?)))] + [get-nutrient-target-values (-> nutrient-target? (listof nutrient-value-pair/c))] [get-nutrient-target-value (-> nutrient-target? nutrient? number?)] [get-latest-nutrient-target-value (-> nutrient? (or/c number? #f))] [delete-nutrient-target! (-> nutrient-target? void?)])) |