raco fmt.

2 files changed, 21 insertions, 21 deletions

diff --git a/main.rkt b/main.rkt
index bc670e6..0eb1b3e 100644
--- a/main.rkt
+++ b/main.rkt
@@ -9,7 +9,7 @@
 
 (define-runtime-path development-db-path "storage/development.sqlite3")
 (module+ main
-    (connect! #:path development-db-path)
-    (migrate-all!)
-    (seed-database!)
-    (serve/dispatch (secured-dispatch)))
+  (connect! #:path development-db-path)
+  (migrate-all!)
+  (seed-database!)
+  (serve/dispatch (secured-dispatch)))
diff --git a/views.rkt b/views.rkt
index b61842d..c852540 100644
--- a/views.rkt
+++ b/views.rkt
@@ -100,23 +100,23 @@
          `(p "La recette Ferti requiert au moins un relevé et une cible."))))
 
 (define (ferti-targets latest-measurement-hash latest-target-hash)
-  `((h2 () "Dernière Cible")
-    (table ((class "table"))
-           (tr (th "Nutriment")
-               (th ((class "text-end")) "Dernier Relevé")
-               (th ((class "text-end")) "Dernière Cible"))
-           ,@(for/list ([n (get-nutrients)])
-               (define latest-measurement (hash-ref latest-measurement-hash n #f))
-               (define latest-target (hash-ref latest-target-hash n #f))
-               `(tr (td ,(nutrient-french-name n))
-                    (td ((class "text-end font-monospace"))
-                        ,(if latest-measurement
-                             (round 2 latest-measurement)
-                             "—"))
-                    (td ((class "text-end font-monospace"))
-                        ,(if latest-target
-                             (round 2 latest-target)
-                             "—")))))))
+  `((h2 () "Dernière Cible") (table ((class "table"))
+                                    (tr (th "Nutriment")
+                                        (th ((class "text-end")) "Dernier Relevé")
+                                        (th ((class "text-end")) "Dernière Cible"))
+                                    ,@(for/list ([n (get-nutrients)])
+                                        (define latest-measurement
+                                          (hash-ref latest-measurement-hash n #f))
+                                        (define latest-target (hash-ref latest-target-hash n #f))
+                                        `(tr (td ,(nutrient-french-name n))
+                                             (td ((class "text-end font-monospace"))
+                                                 ,(if latest-measurement
+                                                      (round 2 latest-measurement)
+                                                      "—"))
+                                             (td ((class "text-end font-monospace"))
+                                                 ,(if latest-target
+                                                      (round 2 latest-target)
+                                                      "—")))))))
 
 (define (ferti-measurements measurements)
   `((h2 () "Relevés") (table ((class "table table-striped"))