[Racket] Ferti hydroponic nutrient solver, redux.
Ensure existing nutrient measurement seeding idempotency.
db/seed.rkt
@@ -60,7 +60,8 @@
60
60
(define n (get-nutrient #:formula formula))
61
61
(define v (string->number (cdr nm)))
62
62
(values n v)))
63
Removed:
(create-nutrient-measurement! measurement-date nutrient-values))
63
Added:
(unless (get-nutrient-measurement #:date measurement-date)
64
Added:
(create-nutrient-measurement! measurement-date nutrient-values)))
64
65
(with-tx (csv-for-each row->seed! next-row)))
65
66
66
67
(define (seed-crops!)