summaryrefslogtreecommitdiff
path: root/db/seed.rkt
diff options
context:
space:
mode:
Diffstat (limited to 'db/seed.rkt')
-rw-r--r--db/seed.rkt4
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!)
Copyright 2019--2026 Marius PETER