Formats repo

2026-05-25 22:11:28 -04:00
parent 0b6b9c3d17
commit ac7a979fe9
3 changed files with 57 additions and 37 deletions
@@ -853,11 +853,16 @@ renderCookLog filename entries = do
    H.form
        ! A.class_ "roux-cook-log-form"
        ! H.dataAttribute "filename" (H.toValue (T.pack filename))
-        ! A.style "display: flex; gap: 0.3rem; margin-bottom: 0.5rem;" $ do
-        H.input ! A.type_ "date" ! A.name "cooked-date"
-        H.input ! A.type_ "text" ! A.name "comment" ! A.placeholder "Optional note..."
-                 ! A.maxlength "500" ! A.style "flex: 1;"
-        H.button ! A.type_ "submit" $ "Log it"
+        ! A.style "display: flex; gap: 0.3rem; margin-bottom: 0.5rem;"
+        $ do
+            H.input ! A.type_ "date" ! A.name "cooked-date"
+            H.input
+                ! A.type_ "text"
+                ! A.name "comment"
+                ! A.placeholder "Optional note..."
+                ! A.maxlength "500"
+                ! A.style "flex: 1;"
+            H.button ! A.type_ "submit" $ "Log it"
    H.div ! A.class_ "roux-cook-entries" $ do
        mapM_ renderEntry entries