[Racket] Ferti hydroponic nutrient solver, redux.
Prevent public interface from leaking internal implementation.
Changed files
models/nutrient-measurement.rkt
@@ -14,7 +14,7 @@
14
14
[get-nutrient-measurement-value
15
15
(-> nutrient-measurement-or-id/c nutrient? maybe-nutrient-value?)]
16
16
[get-latest-nutrient-measurement-value (-> nutrient? maybe-nutrient-value?)]
17
Removed:
[get-latest-nutrient-measurement-hash (-> nutrient-value-hash/c)]
17
Added:
[get-latest-nutrient-measurement-values (-> nutrient-value-hash/c)]
18
18
[delete-nutrient-measurement! (-> nutrient-measurement-or-id/c void?)]))
19
19
20
20
(require racket/contract
@@ -157,7 +157,7 @@
157
157
#:desc
158
158
#:limit 1)))
159
159
160
Removed:
(define (get-latest-nutrient-measurement-hash)
160
Added:
(define (get-latest-nutrient-measurement-values)
161
161
(define grouped-rows
162
162
(query-rows (current-conn)
163
163
(select n.id
models/nutrient-target.rkt
@@ -13,7 +13,7 @@
13
13
[get-nutrient-target-values (-> nutrient-target-or-id/c nutrient-value-hash/c)]
14
14
[get-nutrient-target-value (-> nutrient-target-or-id/c nutrient? maybe-nutrient-value?)]
15
15
[get-latest-nutrient-target-value (-> nutrient? maybe-nutrient-value?)]
16
Removed:
[get-latest-nutrient-target-hash (-> nutrient-value-hash/c)]
16
Added:
[get-latest-nutrient-target-values (-> nutrient-value-hash/c)]
17
17
[delete-nutrient-target! (-> nutrient-target-or-id/c void?)]))
18
18
19
19
(require racket/contract
@@ -150,7 +150,7 @@
150
150
#:desc
151
151
#:limit 1)))
152
152
153
Removed:
(define (get-latest-nutrient-target-hash)
153
Added:
(define (get-latest-nutrient-target-values)
154
154
(define grouped-rows
155
155
(query-rows (current-conn)
156
156
(select n.id