diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-10-21 21:34:24 +0200 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-10-21 21:34:24 +0200 |
| commit | 80ffabb9931d8d2f403372adaae9017f58f2be46 (patch) | |
| tree | 41cb1d6e5be7c214e333e541cf76b6dc6f7e5153 | |
| parent | 8c223a3d67330c0bd89a470d9de3ccc8affd92ca (diff) | |
Clean up nutrient target contract-out.
| -rw-r--r-- | models/nutrient-target.rkt | 20 |
1 files changed, 6 insertions, 14 deletions
diff --git a/models/nutrient-target.rkt b/models/nutrient-target.rkt index f29d80f..691d078 100644 --- a/models/nutrient-target.rkt +++ b/models/nutrient-target.rkt @@ -8,25 +8,17 @@ ;; SQL CRUD (contract-out [create-nutrient-target! (-> string? - (listof (cons/c - nutrient? - number?)) + (listof (cons/c nutrient? number?)) nutrient-target?)] [get-nutrient-targets (-> (listof nutrient-target?))] [get-nutrient-target (->* () - (#:id - (or/c #f exact-nonnegative-integer?) - #:effective-on - (or/c #f string?)) + (#: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-value (-> nutrient-target? - nutrient? - number?)] + [get-nutrient-target-values (-> nutrient-target? (listof (cons/c nutrient? number?)))] + [get-nutrient-target-value (-> nutrient-target? nutrient? number?)] [get-latest-nutrient-target-value (-> nutrient? number?)] - [delete-nutrient-target! (-> nutrient-target? - void?)])) + [delete-nutrient-target! (-> nutrient-target? void?)])) (require racket/contract db |