From f6fb673058fbaeda8617e0e217b0de57eda2d9e2 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sun, 30 Nov 2025 12:22:27 +0100 Subject: Tidy up model modules. --- models/nutrient-target.rkt | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'models/nutrient-target.rkt') 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) -- cgit v1.2.3