diff options
Diffstat (limited to 'db/seed.rkt')
| -rw-r--r-- | db/seed.rkt | 4 |
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!) |