Refactor 'measured-on' to 'measurement-date'.

1 files changed, 2 insertions, 2 deletions

diff --git a/db/seed.rkt b/db/seed.rkt
index 7530651..25d7ee3 100644
--- a/db/seed.rkt
+++ b/db/seed.rkt
@@ -51,14 +51,14 @@
   (define header (next-row))
   (define (row->seed! row)
     (define row-alist (map cons header row))
-    (define measured-on (cdr (first row-alist)))
+    (define measurement-date (cdr (first row-alist)))
     (define nutrient-values
       (for/hash ([nm (in-list (cdr row-alist))])
         (define formula (car nm))
         (define n (get-nutrient #:formula formula))
         (define v (string->number (cdr nm)))
         (values n v)))
-    (create-nutrient-measurement! measured-on nutrient-values))
+    (create-nutrient-measurement! measurement-date nutrient-values))
   (with-tx (csv-for-each row->seed! next-row)))
 
 (define (seed-crops!)