[Racket] Ferti hydroponic nutrient solver, redux.
Clean up fertilizer product contract-out.
models/fertilizer-product.rkt
@@ -8,28 +8,18 @@
8
8
;; SQL CRUD
9
9
(contract-out
10
10
[create-fertilizer-product! (->* (string?
11
Removed:
(listof (cons/c
12
Removed:
nutrient?
13
Removed:
number?)))
11
Added:
(listof (cons/c nutrient? number?)))
14
12
(string?)
15
13
fertilizer-product?)]
16
14
[get-fertilizer-products (-> (listof fertilizer-product?))]
17
15
[get-fertilizer-product (->* ()
18
Removed:
(#:id
19
Removed:
(or/c #f exact-nonnegative-integer?)
20
Removed:
#:brand-name
21
Removed:
(or/c #f string?))
16
Added:
(#:id (or/c #f exact-nonnegative-integer?)
17
Added:
#:brand-name (or/c #f string?))
22
18
(or/c fertilizer-product? #f))]
23
Removed:
[get-fertilizer-product-values (-> fertilizer-product?
24
Removed:
(listof (cons/c
25
Removed:
nutrient?
26
Removed:
number?)))]
27
Removed:
[get-fertilizer-product-value (-> fertilizer-product?
28
Removed:
nutrient?
29
Removed:
number?)]
19
Added:
[get-fertilizer-product-values (-> fertilizer-product? (listof (cons/c nutrient? number?)))]
20
Added:
[get-fertilizer-product-value (-> fertilizer-product? nutrient? number?)]
30
21
[get-latest-fertilizer-product-value (-> nutrient? number?)]
31
Removed:
[delete-fertilizer-product! (-> fertilizer-product?
32
Removed:
void?)]))
22
Added:
[delete-fertilizer-product! (-> fertilizer-product? void?)]))
33
23
34
24
(require racket/contract
35
25
db