more type wrangling

1 files changed, 3 insertions, 3 deletions

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index fadc49a..8813651 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -76,8 +76,7 @@ hostFromName h@("vali") = defaultHost { hName = h
                                                                              ]
                                       , hWsp = hWsp
                                       , hCoWsp = hCoWsp
-                                      , hLayoutMod = mkMod [ (\wsp -> onWorkspace wsp (noBorders Full ||| tabbedLayout tabbedBottomAlways)) <$> hCoWsp "web"
-                                                           ]
+                                      , hLayoutMod = maybe' applyWeb
                                       , hKeysMod = \conf -> Map.union $ Map.fromList $ join $ map (spawnBindings conf) [ (xK_d, ["dwb", "dwb $(xclip -o)"])
                                                                                                                        ]
                                       }
@@ -86,7 +85,8 @@ hostFromName h@("vali") = defaultHost { hName = h
                                   ]
     hWsp = wspFromMap workspaceNames
     hCoWsp = coWspFromMap workspaceNames
-    mkMod = foldl (.) id . catMaybes
+    maybe' = fromMaybe id
+    applyWeb = (\wsp -> onWorkspace wsp (noBorders Full ||| tabbedLayout tabbedBottomAlways)) <$> hCoWsp "web"
 hostFromName _ = defaultHost
 
 wspFromMap workspaceNames = \i -> case Map.lookup i workspaceNames of