Update runtime paths for CSV data files.

1 files changed, 6 insertions, 6 deletions

diff --git a/db/seed.rkt b/db/seed.rkt
index 25d7ee3..d767d63 100644
--- a/db/seed.rkt
+++ b/db/seed.rkt
@@ -45,9 +45,9 @@
              (unless (member canonical-name nutrient-names)
                (create-nutrient! canonical-name french-name formula)))))
 
-(define-runtime-path measurement-csv "data/dolibarr_nutrient_measurements_ppm.csv")
+(define-runtime-path nutrient-measurements-csv "data/dolibarr_nutrient_measurements_ppm.csv")
 (define (seed-historical-nutrient-measurements!)
-  (define next-row (make-csv-reader (open-input-file measurement-csv)))
+  (define next-row (make-csv-reader (open-input-file nutrient-measurements-csv)))
   (define header (next-row))
   (define (row->seed! row)
     (define row-alist (map cons header row))
@@ -69,9 +69,9 @@
              (unless (member name crop-names)
                (create-crop! name)))))
 
-(define-runtime-path requirements-csv "data/dolibarr_crop_requirements_ppm.csv")
+(define-runtime-path crop-requirements-csv "data/dolibarr_crop_requirements_ppm.csv")
 (define (seed-crop-requirements!)
-  (define next-row (make-csv-reader (open-input-file requirements-csv)))
+  (define next-row (make-csv-reader (open-input-file crop-requirements-csv)))
   (define header (next-row))
   (define (row->seed! row)
     (define row-alist (map cons header row))
@@ -90,9 +90,9 @@
       [else (create-crop-requirement! profile nutrient-values)]))
   (with-tx (csv-for-each row->seed! next-row)))
 
-(define-runtime-path fertilizer-csv "data/dolibarr_fertilizer_compositions_percentage.csv")
+(define-runtime-path fertilizer-products-csv "data/dolibarr_fertilizer_compositions_percentage.csv")
 (define (seed-existing-fertilizer-products!)
-  (define next-row (make-csv-reader (open-input-file fertilizer-csv)))
+  (define next-row (make-csv-reader (open-input-file fertilizer-products-csv)))
   (define header (next-row))
   (define (row->seed! row)
     (define row-alist (map cons header row))