Linter

obelisk/frontend/src/Pages/FileBrowser.hs

@@ -118,7 +118,7 @@ fileBrowserEntryWidget (EntryName name) entry = do
         elAttr "span" ("class" =: "mdc-deprecated-list-item__secondary-text") $
           text $ describeEntry entry
 
-    elClass "li" "mdc-deprecated-list-divider mdc-deprecated-list-divider--inset" $ blank
+    elClass "li" "mdc-deprecated-list-divider mdc-deprecated-list-divider--inset" blank
 
     case entry of
       Directory { } -> do

obelisk/frontend/src/Pages/MagicFolders.hs

@@ -152,7 +152,7 @@ performEventInThread evt =
 folderWidget :: (DomBuilder t m, SetRoute t (R FrontendRoute) m) => MagicFolder -> m ()
 folderWidget (MagicFolder name _state) = do
     (theEl', _) <- elClass' "li" "mdc-deprecated-list-item" $ do
-      elClass "span" "mdc-deprecated-list-item__ripple" $ blank
+      elClass "span" "mdc-deprecated-list-item__ripple" blank
       elAttr "span" ("class" =: "mdc-deprecated-list-item__graphic material-icons") $
         text "folder"
       elAttr "span" ("class" =: "mdc-deprecated-list-item__text") $ do
@@ -160,11 +160,11 @@ folderWidget (MagicFolder name _state) = do
       elAttr "span" ("class" =: "mdc-deprecated-list-item__meta") $
         -- | Delete button.  TODO: Wiring.
         elAttr "button" ("class" =: "mdc-icon-button") $ do
-          divClass "mdc-icon-button__ripple" $ blank
+          divClass "mdc-icon-button__ripple" blank
           elAttr "i" ("class" =: "material-icons") $ do
             text "delete"
 
-    elClass "li" "mdc-deprecated-list-divider mdc-deprecated-list-divider--inset" $ blank
+    elClass "li" "mdc-deprecated-list-divider mdc-deprecated-list-divider--inset" blank
 
     setRoute $ FrontendRoute_FileBrowser :/ (name, []) <$ domEvent Click theEl'