diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-12-14 11:07:32 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-12-14 11:07:32 +0100 |
| commit | 1e98c940c5a133fc20a05ea9cd5b4a6cf561c349 (patch) | |
| tree | 5dd74f222fec0cd0ae14193b2805eb234a7b53ec /db/seed.rkt | |
| parent | bd7f884180efbe0b47aa6de64b86489d0a81be07 (diff) | |
Add crop requirement new/show/edit logic.
Diffstat (limited to 'db/seed.rkt')
| -rw-r--r-- | db/seed.rkt | 8 |
1 files changed, 3 insertions, 5 deletions
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!) |