Switched to applicative

1 files changed, 5 insertions, 3 deletions

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index c5d4532..8321f25 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -47,6 +47,8 @@ import XMonad.Prompt.MySsh
 
 import Network.HostName
 
+import Control.Applicative (<$>)
+
 type KeyMap = Map (ButtonMask, KeySym) (X ())
 
 data Host l1 l2 = Host
@@ -69,12 +71,12 @@ defaultHost = Host { hName = "unkown"
 --hostFromName :: (LayoutClass l1 a, LayoutClass l2 a) => HostName -> Host (l1 a) (l2 a)
 hostFromName h@("vali") = defaultHost { hName = h
                                       , hManageHook = composeOne $ catMaybes [ Just manageScratchTerm
-                                                                             , hCoWsp "web" >>= \wsp -> (className =? ".dwb-wrapped" -?> doShift wsp)
-                                                                             , hCoWsp "web" >>= \wsp -> (className =? "Chromium" -?> doShift wsp)
+                                                                             , (\wsp -> className =? ".dwb-wrapped" -?> doShift wsp) <$> hCoWsp "web"
+                                                                             , (\wsp -> className =? "Chromium" -?> doShift wsp) <$> hCoWsp "web"
                                                                              ]
                                       , hWsp = hWsp
                                       , hCoWsp = hCoWsp
-                                      , hLayoutMod = mkMod [ hCoWsp "web" >>= \wsp -> onWorkspace wsp (noBorders Full ||| tabbedLayout tabbedBottomAlways)
+                                      , hLayoutMod = mkMod [ (\wsp -> onWorkspace wsp $ noBorders Full ||| tabbedLayout tabbedBottomAlways) <$> hCoWsp "web"
                                                            ]
                                       , hKeysMod = \conf -> Map.union $ Map.fromList $ join $ map (spawnBindings conf) [ (xK_d, ["dwb", "dwb $(xclip -o)"])
                                                                                                                        ]