seed-sequence must appear after defining all seeding functions.

1 files changed, 7 insertions, 8 deletions

diff --git a/db/seed.rkt b/db/seed.rkt
index f85cd5d..4a765f6 100644
--- a/db/seed.rkt
+++ b/db/seed.rkt
@@ -17,14 +17,6 @@
     (seed-function)
     (displayln (format "Seeded entity: ~a" entity))))
 
-(define seed-sequence
-  (list
-   (cons "nutrients"             seed-nutrients!)
-   (cons "nutrient measurements" seed-historical-nutrient-measurements!)
-   (cons "crops"                 seed-crops!)
-   (cons "crop requirements"     seed-crop-requirements!)
-   (cons "fertilizer products"   seed-existing-fertilizer-products!)))
-
 (define (seed-nutrients!)
   (define nutrient-names (map nutrient-name (get-nutrients)))
   (define default-nutrients
@@ -126,6 +118,13 @@
   (with-tx
     (csv-for-each row->seed! next-row)))
 
+(define seed-sequence
+  (list (cons "nutrients" seed-nutrients!)
+        (cons "nutrient measurements" seed-historical-nutrient-measurements!)
+        (cons "crops" seed-crops!)
+        (cons "crop requirements" seed-crop-requirements!)
+        (cons "fertilizer products" seed-existing-fertilizer-products!)))
+
 (module+ test
   (require "migrations.rkt")
   (connect! #:path 'memory)