Clean up seed file.

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