[Racket] Ferti hydroponic nutrient solver, redux.
Update seeding logic for crops.
db/seed.rkt
@@ -69,7 +69,7 @@
69
69
(define default-crops '("salade" "laitue" "tomate" "framboise"))
70
70
(with-tx (for ([name (in-list default-crops)])
71
71
(unless (member name crop-names)
72
Removed:
(create-crop! name)))))
72
Added:
(create-crop! (crop #f name))))))
73
73
74
74
(define-runtime-path crop-requirements-csv "data/dolibarr_crop_requirements_ppm.csv")
75
75
(define (seed-crop-requirements!)