diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-10-21 21:34:08 +0200 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-10-21 21:34:08 +0200 |
| commit | 8c223a3d67330c0bd89a470d9de3ccc8affd92ca (patch) | |
| tree | d222afcc59af0aa2761a0e0453e1029438832fab /models | |
| parent | 8efe7a50f84f1ec5e79cf328c0161337db16410f (diff) | |
Clean up fertilizer product contract-out.
Diffstat (limited to 'models')
| -rw-r--r-- | models/fertilizer-product.rkt | 22 |
1 files changed, 6 insertions, 16 deletions
diff --git a/models/fertilizer-product.rkt b/models/fertilizer-product.rkt index ffc4e5e..f9cf5fd 100644 --- a/models/fertilizer-product.rkt +++ b/models/fertilizer-product.rkt @@ -8,28 +8,18 @@ ;; SQL CRUD (contract-out [create-fertilizer-product! (->* (string? - (listof (cons/c - nutrient? - number?))) + (listof (cons/c nutrient? number?))) (string?) fertilizer-product?)] [get-fertilizer-products (-> (listof fertilizer-product?))] [get-fertilizer-product (->* () - (#:id - (or/c #f exact-nonnegative-integer?) - #:brand-name - (or/c #f string?)) + (#:id (or/c #f exact-nonnegative-integer?) + #:brand-name (or/c #f string?)) (or/c fertilizer-product? #f))] - [get-fertilizer-product-values (-> fertilizer-product? - (listof (cons/c - nutrient? - number?)))] - [get-fertilizer-product-value (-> fertilizer-product? - nutrient? - number?)] + [get-fertilizer-product-values (-> fertilizer-product? (listof (cons/c nutrient? number?)))] + [get-fertilizer-product-value (-> fertilizer-product? nutrient? number?)] [get-latest-fertilizer-product-value (-> nutrient? number?)] - [delete-fertilizer-product! (-> fertilizer-product? - void?)])) + [delete-fertilizer-product! (-> fertilizer-product? void?)])) (require racket/contract db |