Refactor database seeding logic.

1 files changed, 11 insertions, 14 deletions

diff --git a/db/seed.rkt b/db/seed.rkt
index ea939ca..f85cd5d 100644
--- a/db/seed.rkt
+++ b/db/seed.rkt
@@ -3,30 +3,27 @@
 (provide seed-database!)
 
 (require csv-reading
-         gregor
          racket/runtime-path
          "conn.rkt"
          "../models/nutrient.rkt"
          "../models/nutrient-measurement.rkt"
          "../models/crop.rkt"
          "../models/crop-requirement.rkt"
-         "../models/nutrient-target.rkt"
          "../models/fertilizer-product.rkt")
 
 (define (seed-database!)
-  (seed-nutrients!)
-  (seeded "nutrients")
-  (seed-historical-nutrient-measurements!)
-  (seeded "historical nutrient measurements")
-  (seed-crops!)
-  (seeded "crops")
-  (seed-crop-requirements!)
-  (seeded "crop requirements")
-  (seed-existing-fertilizer-products!)
-  (seeded "existing fertilizer products"))
+  (for ([phase (in-list seed-sequence)])
+    (match-define (cons entity seed-function) phase)
+    (seed-function)
+    (displayln (format "Seeded entity: ~a" entity))))
 
-(define (seeded entity)
-  (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)))