[Racket] Ferti hydroponic nutrient solver, redux.
Realign 'crop' model interface.
models/crop.rkt
@@ -7,7 +7,7 @@
7
7
crop-id crop-name
8
8
;; SQL CRUD
9
9
(contract-out
10
Removed:
[create-crop! (-> string? void?)]
10
Added:
[create-crop! (-> string? crop?)]
11
11
[get-crops (-> (listof crop?))]
12
12
[get-crop (->* ()
13
13
(#:id (or/c #f exact-nonnegative-integer?)
@@ -29,13 +29,12 @@
29
29
;; CREATE
30
30
31
31
(define (create-crop! name)
32
Removed:
(define existing-crop (get-crop #:name name))
33
Removed:
(define (new-crop)
34
Removed:
(query-exec (current-conn)
35
Removed:
(insert #:into crops
36
Removed:
#:set [canonical_name ,name])))
37
Removed:
(or existing-crop
38
Removed:
(new-crop)))
32
Added:
(or (get-crop #:name name)
33
Added:
(begin
34
Added:
(query-exec (current-conn)
35
Added:
(insert #:into crops
36
Added:
#:set [canonical_name ,name]))
37
Added:
(get-crop #:name name))))
39
38
40
39
41
40
;; READ