From 8c223a3d67330c0bd89a470d9de3ccc8affd92ca Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Tue, 21 Oct 2025 21:34:08 +0200 Subject: Clean up fertilizer product contract-out. --- models/fertilizer-product.rkt | 22 ++++++---------------- 1 file 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 -- cgit v1.2.3