diff options
| author | Marius Peter <dev@marius-peter.com> | 2025-12-13 22:36:13 +0100 |
|---|---|---|
| committer | Marius Peter <dev@marius-peter.com> | 2025-12-13 22:36:13 +0100 |
| commit | d0df4316a7f35d735d7c3b2a0e53f2d9b55a24e1 (patch) | |
| tree | b421c002168131bfab8d1d708daeb560bbd28cb3 | |
| parent | a3863b1c9c685ecaeb7a1d4fdfa443b9a119caed (diff) | |
make-immutable-hash naturally takes an alist.
| -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]) |