From cafc59e5930997934fbbb6b5f6e8024ed33fc1f9 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Wed, 3 Dec 2025 21:11:04 +0100 Subject: Remove redundant parameter from view function. --- handlers.rkt | 3 +-- views.rkt | 12 ++++++------ 2 files changed, 7 insertions(+), 8 deletions(-) diff --git a/handlers.rkt b/handlers.rkt index bd8387a..bcd81c7 100644 --- a/handlers.rkt +++ b/handlers.rkt @@ -62,10 +62,9 @@ (render-page (ferti-index-page))) (define (ferti-measurements-and-rotations _) - (define nutrients (get-nutrients)) (define measurements (get-nutrient-measurements)) (define rotations (get-crop-rotations)) - (render-page (ferti-measurements-and-rotations-page nutrients measurements rotations))) + (render-page (ferti-measurements-and-rotations-page measurements rotations))) (define (ferti-recipe _ date-string) (define ferti-recipe (find-ferti-recipe date-string)) diff --git a/views.rkt b/views.rkt index 177770e..ebe1aad 100644 --- a/views.rkt +++ b/views.rkt @@ -102,7 +102,7 @@ (a ((class "btn btn-outline-primary") [href "/ferti/fertilizer/new"]) "Ajouter un intrant"))))) -(define (ferti-measurements-and-rotations-page nutrients measurements rotations) +(define (ferti-measurements-and-rotations-page measurements rotations) (define (maybe-rotation-for-measurement m) (findf (λ (r) (equal? (crop-rotation-date r) (nutrient-measurement-date m))) rotations)) (define table @@ -128,11 +128,11 @@ (href ,(format "/ferti/recipe/~a" (crop-rotation-date maybe-rotation)))) "Consulter") "—"))))))) - (ferti-template - `((h2 () "Relevés & Assolements") - (div ((class "btn-group mb-3")) - (a ((class "btn btn-primary") [href "/ferti/measurement/new"]) "Ajouter un relevé") - ,table))) + (ferti-template `((h2 () "Relevés & Assolements") + (div ((class "btn-group mb-3")) + (a ((class "btn btn-primary") [href "/ferti/measurement/new"]) + "Ajouter un relevé")) + ,table))) #; (define (ferti-targets-page latest-measurement-hash latest-target-hash) -- cgit v1.2.3