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