twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-28 10:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

remove reundant ReleaseResources handling

Browse Source
This commit is contained in:
Bogdan Sinitsyn
2016-03-25 16:15:02 +03:00
parent dd5a36cc08
commit f429843b66
1 changed files with 0 additions and 3 deletions

3
XMonad/Layout/IfMax.hs

@@ -55,9 +55,6 @@ instance (LayoutClass l1 Window, LayoutClass l2 Window) => LayoutClass (IfMax l1
runLayout (W.Workspace _ (IfMax n l1 l2) s) rect = withWindowSet $ \ws -> arrange (W.integrate' s) (M.keys . W.floating $ ws) runLayout (W.Workspace _ (IfMax n l1 l2) s) rect = withWindowSet $ \ws -> arrange (W.integrate' s) (M.keys . W.floating $ ws)
where where
arrange [] _ = do l1' <- maybe l1 id `fmap` handleMessage l1 (SomeMessage ReleaseResources)
l2' <- maybe l2 id `fmap` handleMessage l2 (SomeMessage ReleaseResources)
return ([], Just $ IfMax n l1' l2')
arrange ws fw | length (ws L.\\ fw) <= n = do arrange ws fw | length (ws L.\\ fw) <= n = do
(wrs, ml1') <- runLayout (W.Workspace "" l1 s) rect (wrs, ml1') <- runLayout (W.Workspace "" l1 s) rect
let l1' = fromMaybe l1 ml1' let l1' = fromMaybe l1 ml1'