Make hlint happy

obelisk/frontend/src/Pages/MagicFolders.hs

@@ -74,31 +74,31 @@ magicFolders folders = do
               elClass "h2" "mdc-dialog__title" $ text "Add magic folder"
               divClass "mdc-dialog__content" $ do
                 (_, inputEl) <- elAttr' "label" ("class" =: "mdc-text-field mdc-text-field--filled" <> "data-mdc-auto-init" =: "MDCTextField") $ do
-                  elClass "span" "mdc-text-field__ripple" $ blank
+                  elClass "span" "mdc-text-field__ripple" blank
                   inputEl <- inviteCodeInput
                   elClass "span" "mdc-floating-label" $ text "Enter Wormhole code"
-                  elClass "span" "mdc-line-ripple" $ blank
+                  elClass "span" "mdc-line-ripple" blank
                   pure inputEl
                 (_closeButton, acceptButton) <- divClass "mdc-dialog__actions" $ do
                   (closeButton, _) <- elAttr' "button" ("type" =: "button" <> "class" =: "mdc-button mdc-dialog__button" <> "data-mdc-dialog-action" =: "close") $ do
-                    divClass "mdc-button__ripple" $ blank
+                    divClass "mdc-button__ripple" blank
                     divClass "mdc-button__label" $ text "Cancel"
                   (acceptButton, _) <- elAttr' "button" ("type" =: "button" <> "class" =: "mdc-button mdc-dialog__button" <> "data-mdc-dialog-action" =: "accept") $ do
-                    divClass "mdc-button__ripple" $ blank
+                    divClass "mdc-button__ripple" blank
                     divClass "mdc-button__label" $ text "OK"
                   pure (closeButton, acceptButton)
                 let goAheadEv = leftmost [keypress Enter inputEl, () <$ domEvent Click acceptButton]
                     inviteCodeEv = tag (current (_inputElement_value inputEl)) goAheadEv
 
                 setRoute $ (FrontendRoute_AcceptFolderInvite :/) <$> inviteCodeEv
-          divClass "mdc-dialog__scrim" $ blank
+          divClass "mdc-dialog__scrim" blank
 
 
       el "script" $ do
           text "mdc.autoInit();"
 
 inviteCodeInput :: (DomBuilder t m) => m (InputElement EventResult (DomBuilderSpace m) t)
-inviteCodeInput = -- elAttr' "input" ("class" =: "mdc-text-field__input" <> "type" =: "text" <> "placeholder" =: "7-example-code") $ blank
+inviteCodeInput = -- elAttr' "input" ("class" =: "mdc-text-field__input" <> "type" =: "text" <> "placeholder" =: "7-example-code") blank
     inputElement def
 
 -- | A widget representing a single magic-folder.
@@ -138,7 +138,7 @@ receiveFolderInviteText
     => m ()
 receiveFolderInviteText = do
   el "div" $ do
-    inputEl <- inputElement $ def
+    inputEl <- inputElement def
 --        { _inputElementConfig_elementConfig = ElementConfig
 --          { _elementConfig_namespace = Nothing
 --          , _elementConfig_initialAttributes = "foo" =: "bar"