diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-30 12:22:27 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-30 12:22:27 +0100 |
| commit | f6fb673058fbaeda8617e0e217b0de57eda2d9e2 (patch) | |
| tree | 131dc1cd51a057d1bb581a6bf2328b550ea9752d /models/nutrient-target.rkt | |
| parent | 7e507567859f2db33776bb39b18f164e36f7e693 (diff) | |
Tidy up model modules.
Diffstat (limited to 'models/nutrient-target.rkt')
| -rw-r--r-- | models/nutrient-target.rkt | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/models/nutrient-target.rkt b/models/nutrient-target.rkt index ccc4f1f..b84ab5f 100644 --- a/models/nutrient-target.rkt +++ b/models/nutrient-target.rkt @@ -9,9 +9,7 @@ [create-nutrient-target! (-> string? nutrient-value-hash/c nutrient-target?)] [get-nutrient-targets (-> (listof nutrient-target?))] [get-nutrient-target - (->* () - (#:id (or/c #f exact-nonnegative-integer?) #:date (or/c #f string?)) - (or/c nutrient-target? #f))] + (->* () (#:id exact-nonnegative-integer? #:date string?) (or/c nutrient-target? #f))] [get-nutrient-target-values (-> nutrient-target-or-id/c nutrient-value-hash/c)] [get-nutrient-target-value (-> nutrient-target-or-id/c nutrient? maybe-nutrient-value?)] [get-latest-nutrient-target-value (-> nutrient? maybe-nutrient-value?)] @@ -36,7 +34,6 @@ (~a v #:max-width 6 #:align 'right))))) (define nutrient-target-id? exact-nonnegative-integer?) - (define nutrient-target-or-id/c (or/c nutrient-target? nutrient-target-id?)) (define (->nt-id nt-or-id) |