[Racket] Ferti hydroponic nutrient solver, redux.
Update runtime paths for CSV data files.
db/seed.rkt
@@ -45,9 +45,9 @@
45
45
(unless (member canonical-name nutrient-names)
46
46
(create-nutrient! canonical-name french-name formula)))))
47
47
48
Removed:
(define-runtime-path measurement-csv "data/dolibarr_nutrient_measurements_ppm.csv")
48
Added:
(define-runtime-path nutrient-measurements-csv "data/dolibarr_nutrient_measurements_ppm.csv")
49
49
(define (seed-historical-nutrient-measurements!)
50
Removed:
(define next-row (make-csv-reader (open-input-file measurement-csv)))
50
Added:
(define next-row (make-csv-reader (open-input-file nutrient-measurements-csv)))
51
51
(define header (next-row))
52
52
(define (row->seed! row)
53
53
(define row-alist (map cons header row))
@@ -69,9 +69,9 @@
69
69
(unless (member name crop-names)
70
70
(create-crop! name)))))
71
71
72
Removed:
(define-runtime-path requirements-csv "data/dolibarr_crop_requirements_ppm.csv")
72
Added:
(define-runtime-path crop-requirements-csv "data/dolibarr_crop_requirements_ppm.csv")
73
73
(define (seed-crop-requirements!)
74
Removed:
(define next-row (make-csv-reader (open-input-file requirements-csv)))
74
Added:
(define next-row (make-csv-reader (open-input-file crop-requirements-csv)))
75
75
(define header (next-row))
76
76
(define (row->seed! row)
77
77
(define row-alist (map cons header row))
@@ -90,9 +90,9 @@
90
90
[else (create-crop-requirement! profile nutrient-values)]))
91
91
(with-tx (csv-for-each row->seed! next-row)))
92
92
93
Removed:
(define-runtime-path fertilizer-csv "data/dolibarr_fertilizer_compositions_percentage.csv")
93
Added:
(define-runtime-path fertilizer-products-csv "data/dolibarr_fertilizer_compositions_percentage.csv")
94
94
(define (seed-existing-fertilizer-products!)
95
Removed:
(define next-row (make-csv-reader (open-input-file fertilizer-csv)))
95
Added:
(define next-row (make-csv-reader (open-input-file fertilizer-products-csv)))
96
96
(define header (next-row))
97
97
(define (row->seed! row)
98
98
(define row-alist (map cons header row))