From 1e98c940c5a133fc20a05ea9cd5b4a6cf561c349 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sun, 14 Dec 2025 11:07:32 +0100 Subject: Add crop requirement new/show/edit logic. --- db/seed.rkt | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'db/seed.rkt') diff --git a/db/seed.rkt b/db/seed.rkt index 2ff8277..eea1359 100644 --- a/db/seed.rkt +++ b/db/seed.rkt @@ -86,11 +86,9 @@ (define v (string->number (cdr crop-requirement))) (values n v))) (unless (get-crop-requirement #:profile profile) - (cond - [(non-empty-string? crop-name) - (define crop (get-crop #:name crop-name)) - (create-crop-requirement! profile nutrient-values crop)] - [else (create-crop-requirement! profile nutrient-values)]))) + (if (non-empty-string? crop-name) + (create-crop-requirement! profile nutrient-values (get-crop #:name crop-name)) + (create-crop-requirement! profile nutrient-values)))) (with-tx (csv-for-each row->seed! next-row))) (define (seed-initial-crop-rotation!) -- cgit v1.2.3