diff options
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!) |