Remove redundant parameter from view function.

1 files changed, 6 insertions, 6 deletions

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)