Remove superfluous debugging printing from seed module.

1 files changed, 9 insertions, 11 deletions

diff --git a/db/seed.rkt b/db/seed.rkt
index 2d9f00b..9693e89 100644
--- a/db/seed.rkt
+++ b/db/seed.rkt
@@ -12,10 +12,15 @@
          "../models/fertilizer-product.rkt")
 
 (define (seed-database!)
-  (for ([phase (in-list seed-sequence)])
-    (match-define (cons entity seed-function) phase)
-    (seed-function)
-    (displayln (format "Seeded entity: ~a" entity))))
+  (for ([seed-function (in-list (seed-sequence))])
+    (seed-function)))
+
+(define (seed-sequence)
+  (list seed-nutrients!
+        seed-historical-nutrient-measurements!
+        seed-crops!
+        seed-crop-requirements!
+        seed-existing-fertilizer-products!))
 
 (define (seed-nutrients!)
   (define nutrient-names (map nutrient-name (get-nutrients)))
@@ -102,13 +107,6 @@
     (create-fertilizer-product! canonical-name brand-name nutrient-values))
   (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)