From 04f104a2b71fe7d92dfd33c1ee04ff037738eaa0 Mon Sep 17 00:00:00 2001
From: Florian Sesser <florian@private.storage>
Date: Wed, 10 May 2023 15:09:41 +0000
Subject: [PATCH] Fix build: I can't even write comments in Haskell it seems

At least in Haskell the compiler doesn't ignore my comments?
---
 obelisk/frontend/src/Pages/MagicFolders.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/obelisk/frontend/src/Pages/MagicFolders.hs b/obelisk/frontend/src/Pages/MagicFolders.hs
index 15f3e56..3008e3d 100644
--- a/obelisk/frontend/src/Pages/MagicFolders.hs
+++ b/obelisk/frontend/src/Pages/MagicFolders.hs
@@ -61,9 +61,10 @@ magicFolders foldersDyn = do
         dyn_ $ receiveFolderInviteUI <$> acceptInviteState
 
 
-        -- | A modal dialogue asking for a wormhole code.
-        -- Auto-initialize in "closed" state, then change class to "mdc-dialog--open" to show
-        -- the dialog in a modal fashion (with an overlay temporarily disabling all other elements).
+        -- A modal dialogue asking for a wormhole code.
+        -- Auto-initialize in "closed" state, then change class to
+        -- "mdc-dialog--open" to show the dialog in a modal fashion (with an
+        -- overlay temporarily disabling all other elements).
         elAttr "div" ("id" =: "wormhole-code-dialog" <> "class" =: "mdc-dialog mdc-dialog--closed" <> "data-mdc-auto-init" =: "MDCDialog") $ do
           divClass "mdc-dialog__container" $
             divClass "mdc-dialog__surface" $ do
-- 
GitLab