From 7c9370fc8b3b97d0457004cee94544951a6ecd71 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Thu, 23 Oct 2025 16:29:23 +0200 Subject: Clean up seed file. --- db/seed.rkt | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) (limited to 'db/seed.rkt') diff --git a/db/seed.rkt b/db/seed.rkt index 6b253a6..f4dca42 100644 --- a/db/seed.rkt +++ b/db/seed.rkt @@ -1,7 +1,5 @@ #lang racket -;; Seed the database with default values. - (provide seed-database!) (require csv-reading @@ -60,7 +58,7 @@ (define header (next-row)) (define (row->seed! row) (define row-alist (map cons header row)) - (define measured-on (cdar row-alist)) + (define measured-on (cdr (first row-alist))) (define nutrient-values (for/list ([nm (in-list (cdr row-alist))]) (define formula (car nm)) @@ -73,11 +71,10 @@ (define (seed-crops!) (define crop-names (map crop-name (get-crops))) - (define default-crops - '("salade" - "laitue" - "tomate" - "framboise")) + (define default-crops '("salade" + "laitue" + "tomate" + "framboise")) (with-tx (for ([name (in-list default-crops)]) ;; Ensure idempotence -- cgit v1.2.3