From d0df4316a7f35d735d7c3b2a0e53f2d9b55a24e1 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sat, 13 Dec 2025 22:36:13 +0100 Subject: make-immutable-hash naturally takes an alist. --- formlets.rkt | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) (limited to 'formlets.rkt') diff --git a/formlets.rkt b/formlets.rkt index cb4601f..116db81 100644 --- a/formlets.rkt +++ b/formlets.rkt @@ -19,10 +19,10 @@ ,@(for/list ([nutrient (get-nutrients)]) {=>* (nutrient-value-formlet nutrient) nutrient-values*})) {=>* (submit "Enregistrer le relevé" #:attributes '((class "btn btn-primary"))) _}) - (let ([measurement-date (first measurement-date*)] - [nutrient-values (for/hash ([nv nutrient-values*]) - (values (car nv) (cdr nv)))]) (values measurement-date nutrient-values)))) + (let ([id (first id*)] + [measurement-date (first measurement-date*)] + [nutrient-values (make-immutable-hash nutrient-values*)]) (define (rotation-formlet #:date [date-string #f]) (formlet* (#%# `(div ((class "mb-3")) @@ -34,9 +34,7 @@ {=>* (crop-requirement-formlet requirement) requirements*})) {=>* (submit "Enregistrer la cible" #:attributes '((class "btn btn-primary"))) _}) (let ([rotation-date (first rotation-date*)] - [requirement-proportions (for/hash ([rp requirements*]) - (match-define (cons req proportion) rp) - (values req proportion))]) + [requirement-proportions (make-immutable-hash requirements*)]) (values rotation-date requirement-proportions)))) (define (fertilizer-formlet #:value [fp #f]) -- cgit v1.2.3