From eff10228375e74711848b64ac0ce222957d90bfb Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
Date: Sun, 14 Dec 2025 18:26:31 +0100
Subject: Update seeding logic for crops.

---
 db/seed.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/db/seed.rkt b/db/seed.rkt
index eea1359..63c04ab 100644
--- a/db/seed.rkt
+++ b/db/seed.rkt
@@ -69,7 +69,7 @@
   (define default-crops '("salade" "laitue" "tomate" "framboise"))
   (with-tx (for ([name (in-list default-crops)])
              (unless (member name crop-names)
-               (create-crop! name)))))
+               (create-crop! (crop #f name))))))
 
 (define-runtime-path crop-requirements-csv "data/dolibarr_crop_requirements_ppm.csv")
 (define (seed-crop-requirements!)
-- 
cgit v1.2.3