diff options
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 _) |