diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-10-21 21:34:38 +0200 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-10-21 21:34:38 +0200 |
| commit | 9bdb71dfc7d10b20bf8f78823194f4e114f8fa16 (patch) | |
| tree | dfe4e759216a5e6add1dde50b2c14816edcedbdd | |
| parent | 80ffabb9931d8d2f403372adaae9017f58f2be46 (diff) | |
Clean up nutrient measurement contract-out.
| -rw-r--r-- | models/nutrient-measurement.rkt | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/models/nutrient-measurement.rkt b/models/nutrient-measurement.rkt index dbb3304..0f66466 100644 --- a/models/nutrient-measurement.rkt +++ b/models/nutrient-measurement.rkt @@ -8,9 +8,7 @@ ;; SQL CRUD (contract-out [create-nutrient-measurement! (-> string? - (listof (cons/c - nutrient? - number?)) + (listof (cons/c nutrient? number?)) nutrient-measurement?)] [get-nutrient-measurements (-> (listof nutrient-measurement?))] [get-nutrient-measurement (->* () @@ -18,15 +16,10 @@ #:measured-on (or/c #f string?)) (or/c nutrient-measurement? #f))] [get-nutrient-measurement-values (-> nutrient-measurement? - (listof (cons/c - nutrient? - number?)))] - [get-nutrient-measurement-value (-> nutrient-measurement? - nutrient? - number?)] + (listof (cons/c nutrient? number?)))] + [get-nutrient-measurement-value (-> nutrient-measurement? nutrient? number?)] [get-latest-nutrient-measurement-value (-> nutrient? number?)] - [delete-nutrient-measurement! (-> nutrient-measurement? - void?)])) + [delete-nutrient-measurement! (-> nutrient-measurement? void?)])) (require racket/contract db |