From 93ebb58edd71ced82500731e3b5b49a339d95f11 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Mon, 17 Nov 2025 17:22:30 +0100 Subject: seed-sequence must appear after defining all seeding functions. --- db/seed.rkt | 15 +++++++-------- 1 file 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) -- cgit v1.2.3