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. --- views.rkt | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'views.rkt') 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