diff options
Diffstat (limited to 'db')
| -rw-r--r-- | db/seed.rkt | 15 |
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) |