diff options
Diffstat (limited to 'XMonad/Hooks/ManageHelpers.hs')
| -rw-r--r-- | XMonad/Hooks/ManageHelpers.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/XMonad/Hooks/ManageHelpers.hs b/XMonad/Hooks/ManageHelpers.hs index a6dcc58..adb7097 100644 --- a/XMonad/Hooks/ManageHelpers.hs +++ b/XMonad/Hooks/ManageHelpers.hs @@ -117,11 +117,9 @@ transience :: MaybeManageHook transience = transientTo </=? Nothing -?>> move where move :: Maybe Window -> ManageHook - move mw = do - case mw of - Just w -> do return . Endo $ \s -> - maybe s (`W.shift` s) (W.findTag w s) - Nothing -> do return . Endo $ \s -> s + move mw = maybe idHook (doF . move') mw + where move' :: Window -> (WindowSet -> WindowSet) + move' w = \s -> maybe s (`W.shift` s) (W.findTag w s) -- | 'transience' set to a 'ManageHook' transience' :: ManageHook |