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/migrations.rkt | 4 ++-- db/seed.rkt | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'db') diff --git a/db/migrations.rkt b/db/migrations.rkt index d07b130..a312623 100644 --- a/db/migrations.rkt +++ b/db/migrations.rkt @@ -111,9 +111,9 @@ (list (create-table #:if-not-exists nutrient_measurements #:columns [id integer #:not-null] ;; ISO8601 date - [measured_on text #:not-null] + [measurement_date text #:not-null] #:constraints (primary-key id) - (unique measured_on)))) + (unique measurement_date)))) (define-migration "create table nutrient_targets" (list (create-table #:if-not-exists nutrient_targets 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