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/fertilizer-product.rkt | |
| parent | 7e507567859f2db33776bb39b18f164e36f7e693 (diff) | |
Tidy up model modules.
Diffstat (limited to 'models/fertilizer-product.rkt')
| -rw-r--r-- | models/fertilizer-product.rkt | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/models/fertilizer-product.rkt b/models/fertilizer-product.rkt index cd86e2e..1ada2cd 100644 --- a/models/fertilizer-product.rkt +++ b/models/fertilizer-product.rkt @@ -11,7 +11,7 @@ [get-fertilizer-products (-> (listof fertilizer-product?))] [get-fertilizer-product (->* () - (#:id (or/c #f exact-nonnegative-integer?) #:canonical-name (or/c #f string?)) + (#:id exact-nonnegative-integer? #:canonical-name string?) (or/c fertilizer-product? #f))] [get-fertilizer-product-values (-> fertilizer-product-or-id/c nutrient-value-hash/c)] [get-fertilizer-product-value @@ -47,7 +47,6 @@ (~a v #:max-width 6 #:align 'right))))) (define fertilizer-product-id? exact-nonnegative-integer?) - (define fertilizer-product-or-id/c (or/c fertilizer-product? fertilizer-product-id?)) (define (->fp-id fp-or-id) |