From d2b7a6a7e2739869f8b718c80cad7c9515f10070 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Thu, 20 Nov 2025 14:08:21 +0100 Subject: Replace nutrient-value alists with hashes everywhere. --- handlers.rkt | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) (limited to 'handlers.rkt') 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 #"" - (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 #"" (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 _) -- cgit v1.2.3