diff --git a/obelisk/frontend/src/Pages/MagicFolders.hs b/obelisk/frontend/src/Pages/MagicFolders.hs index 15f3e56a8a7e3405ea85e5adbf0b8d3c04fb3f42..3008e3d1933297c09940c525489fdfe8877be10c 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