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