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