diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-11-20 14:08:21 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-11-20 14:08:21 +0100 |
| commit | d2b7a6a7e2739869f8b718c80cad7c9515f10070 (patch) | |
| tree | d3e8ac04dc4d1178fe24bc0511ada49caadf25db /handlers.rkt | |
| parent | 434b521ddb70287b55d1dc8f5e24f18aeaa01fdc (diff) | |
Replace nutrient-value alists with hashes everywhere.
Diffstat (limited to 'handlers.rkt')
| -rw-r--r-- | handlers.rkt | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/handlers.rkt b/handlers.rkt index da56161..6104b66 100644 --- a/handlers.rkt +++ b/handlers.rkt @@ -34,10 +34,7 @@ (define latest-measurements (take (get-nutrient-measurements) 10)) (response/xexpr #:preamble #"<!DOCTYPE html>" - (ferti-page ferti-recipe - latest-measurement-hash - latest-target-hash - latest-measurements))) + (ferti-page ferti-recipe latest-measurement-hash latest-target-hash latest-measurements))) (define (index _) (define user (get-current-user)) @@ -63,9 +60,8 @@ (response/xexpr #:preamble #"<!DOCTYPE html>" (new-target-page))) (define (create-target req) - (define-values (effective-on crop-requirement-mix) (formlet-process (targets-formlet) req)) - (define target-nutrient-values (average-crop-requirement-nutrient-values crop-requirement-mix)) - (create-nutrient-target! effective-on target-nutrient-values) + (define-values (effective-on nutrient-values) (formlet-process (targets-formlet) req)) + (create-nutrient-target! effective-on nutrient-values) (redirect-to "/")) (define (fallback _) |