diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-01 19:02:22 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-01 19:02:22 +0100 |
| commit | b310f6e261e623237f0379c954df040cf4e57a4c (patch) | |
| tree | b6e01cf56f954705a5d02ade4d902263a26570de /handlers.rkt | |
| parent | 56985d215b2d3665937d5675bd3f52df3ee15109 (diff) | |
Apply minor fixes.
Diffstat (limited to 'handlers.rkt')
| -rw-r--r-- | handlers.rkt | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/handlers.rkt b/handlers.rkt index aa380aa..0fe131f 100644 --- a/handlers.rkt +++ b/handlers.rkt @@ -7,7 +7,6 @@ web-server/formlets "views.rkt" "formlets.rkt" - "models/nutrient.rkt" "models/nutrient-measurement.rkt" "models/nutrient-target.rkt" "models/crop-requirement.rkt") @@ -62,7 +61,7 @@ (formlet-process (targets-formlet) req)) (define (average-nutrient-values mix) - (define totals + (define average-values (for/fold ([acc (hash)]) ([pair (in-list mix)]) (define crop-requirement (car pair)) (define percentage (/ (cdr pair) 100)) @@ -73,11 +72,10 @@ (hash-update acc n (λ (old) (+ old (* v percentage))) (λ () (* v percentage)))))) - (for/list ([(k v) (in-hash totals)]) + (for/list ([(k v) (in-hash average-values)]) (cons k v))) (define target-nutrient-values (average-nutrient-values crop-requirement-mix)) - (pretty-display target-nutrient-values) (create-nutrient-target! effective-on target-nutrient-values) (redirect-to "/")) |