[Racket] Ferti hydroponic nutrient solver, redux.
Wrap SQL query blocks with with-tx.
Changed files
models/crop.rkt
@@ -25,7 +25,7 @@
25
25
26
26
(define (create-crop! name)
27
27
(or (get-crop #:name name)
28
Removed:
(begin
28
Added:
(with-tx
29
29
(query-exec (current-conn) (insert #:into crops #:set [canonical_name ,name]))
30
30
(get-crop #:name name))))
31
31
models/nutrient.rkt
@@ -47,7 +47,7 @@
47
47
48
48
(define (create-nutrient! canonical-name french-name formula)
49
49
(or (get-nutrient #:name canonical-name #:formula formula)
50
Removed:
(begin
50
Added:
(with-tx
51
51
(query-exec (current-conn)
52
52
(insert #:into nutrients
53
53
#:set [canonical_name ,canonical-name]