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