[Racket] Ferti hydroponic nutrient solver, redux.
Realign nutrient creation function.
models/nutrient.rkt
@@ -31,14 +31,12 @@
31
31
;; CREATE
32
32
33
33
(define (create-nutrient! name formula)
34
Removed:
(define existing-nutrient (get-nutrient #:name name #:formula formula))
35
Removed:
(define (new-nutrient)
36
Removed:
(query-exec (current-conn)
37
Removed:
(insert #:into nutrients
38
Removed:
#:set [canonical_name ,name] [formula ,formula]))
39
Removed:
(get-nutrient #:name name))
40
Removed:
(or existing-nutrient
41
Removed:
(new-nutrient)))
34
Added:
(or (get-nutrient #:name name #:formula formula)
35
Added:
(begin
36
Added:
(query-exec (current-conn)
37
Added:
(insert #:into nutrients
38
Added:
#:set [canonical_name ,name] [formula ,formula]))
39
Added:
(get-nutrient #:name name))))
42
40
43
41
44
42
;; READ