diff options
Diffstat (limited to 'db')
| -rw-r--r-- | db/seed.rkt | 13 |
1 files changed, 5 insertions, 8 deletions
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 |