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