From 1a8775dfe5786e71e7486e0d26d7dda627db2335 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sun, 30 Nov 2025 11:58:25 +0100 Subject: Refactor 'measured-on' to 'measurement-date'. --- db/seed.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'db/seed.rkt') 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!) -- cgit v1.2.3