diff options
| -rw-r--r-- | formlets.rkt | 10 |
1 files changed, 4 insertions, 6 deletions
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]) |