diff options
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) |