[Racket] Ferti hydroponic nutrient solver, redux.
seed-sequence must appear after defining all seeding functions.
db/seed.rkt
@@ -17,14 +17,6 @@
17
17
(seed-function)
18
18
(displayln (format "Seeded entity: ~a" entity))))
19
19
20
Removed:
(define seed-sequence
21
Removed:
(list
22
Removed:
(cons "nutrients" seed-nutrients!)
23
Removed:
(cons "nutrient measurements" seed-historical-nutrient-measurements!)
24
Removed:
(cons "crops" seed-crops!)
25
Removed:
(cons "crop requirements" seed-crop-requirements!)
26
Removed:
(cons "fertilizer products" seed-existing-fertilizer-products!)))
27
Removed:
28
20
(define (seed-nutrients!)
29
21
(define nutrient-names (map nutrient-name (get-nutrients)))
30
22
(define default-nutrients
@@ -125,6 +117,13 @@
125
117
(create-fertilizer-product! canonical-name nutrient-values)]))
126
118
(with-tx
127
119
(csv-for-each row->seed! next-row)))
120
Added:
121
Added:
(define seed-sequence
122
Added:
(list (cons "nutrients" seed-nutrients!)
123
Added:
(cons "nutrient measurements" seed-historical-nutrient-measurements!)
124
Added:
(cons "crops" seed-crops!)
125
Added:
(cons "crop requirements" seed-crop-requirements!)
126
Added:
(cons "fertilizer products" seed-existing-fertilizer-products!)))
128
127
129
128
(module+ test
130
129
(require "migrations.rkt")