[Racket] Ferti hydroponic nutrient solver, redux.
Remove superfluous debugging printing from seed module.
db/seed.rkt
@@ -12,11 +12,16 @@
12
12
"../models/fertilizer-product.rkt")
13
13
14
14
(define (seed-database!)
15
Removed:
(for ([phase (in-list seed-sequence)])
16
Removed:
(match-define (cons entity seed-function) phase)
17
Removed:
(seed-function)
18
Removed:
(displayln (format "Seeded entity: ~a" entity))))
15
Added:
(for ([seed-function (in-list (seed-sequence))])
16
Added:
(seed-function)))
19
17
18
Added:
(define (seed-sequence)
19
Added:
(list seed-nutrients!
20
Added:
seed-historical-nutrient-measurements!
21
Added:
seed-crops!
22
Added:
seed-crop-requirements!
23
Added:
seed-existing-fertilizer-products!))
24
Added:
20
25
(define (seed-nutrients!)
21
26
(define nutrient-names (map nutrient-name (get-nutrients)))
22
27
(define default-nutrients
@@ -101,13 +106,6 @@
101
106
(values n v)))
102
107
(create-fertilizer-product! canonical-name brand-name nutrient-values))
103
108
(with-tx (csv-for-each row->seed! next-row)))
104
Removed:
105
Removed:
(define seed-sequence
106
Removed:
(list (cons "nutrients" seed-nutrients!)
107
Removed:
(cons "nutrient measurements" seed-historical-nutrient-measurements!)
108
Removed:
(cons "crops" seed-crops!)
109
Removed:
(cons "crop requirements" seed-crop-requirements!)
110
Removed:
(cons "fertilizer products" seed-existing-fertilizer-products!)))
111
109
112
110
(module+ test
113
111
(require "migrations.rkt")