diff options
| -rw-r--r-- | XMonad/Layout/IM.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/XMonad/Layout/IM.hs b/XMonad/Layout/IM.hs index 2b1b053..0f45d35 100644 --- a/XMonad/Layout/IM.hs +++ b/XMonad/Layout/IM.hs @@ -97,12 +97,13 @@ applyIM :: (LayoutClass l Window) => -> Rectangle -> X ([(Window, Rectangle)], Maybe (l Window)) applyIM ratio prop wksp rect = do - let ws = S.integrate' $ S.stack wksp + let stack = S.stack wksp + let ws = S.integrate' $ stack let (masterRect, slaveRect) = splitHorizontallyBy ratio rect master <- findM (hasProperty prop) ws case master of Just w -> do - let filteredStack = S.differentiate $ filter (w /=) ws + let filteredStack = stack >>= S.filter (w /=) wrs <- runLayout (wksp {S.stack = filteredStack}) slaveRect return ((w, masterRect) : fst wrs, snd wrs) Nothing -> runLayout wksp rect |