aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKarsten Schoelzel <kuser@gmx.de>2007-07-28 15:25:07 +0200
committerKarsten Schoelzel <kuser@gmx.de>2007-07-28 15:25:07 +0200
commitca457329bf259a2404fc5fbd0918007868e6488a (patch)
tree1a96a4e4281465b9cc1abfb83e5ce5657b5b5e29
parent78d4f03d2923a1a1c661361b92a170351fedd72b (diff)
downloadxmonad-ca457329bf259a2404fc5fbd0918007868e6488a.tar.gz
xmonad-ca457329bf259a2404fc5fbd0918007868e6488a.tar.xz
xmonad-ca457329bf259a2404fc5fbd0918007868e6488a.zip
Bugfix: reordering when filtering out the last window on a workspace
Say you have three windows A B C* on a workspace with * marking the focus. If you close C or move it to another workspace, the resulting order will be B* A, thus reordering the other windows, defying the comment of filter. darcs-hash:20070728132507-eb3a1-064bb572b4a8ef7694f9939e1f2c714e3a32571b.gz
-rw-r--r--StackSet.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/StackSet.hs b/StackSet.hs
index e6b2996..b8c31ce 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -311,7 +311,7 @@ filter :: (a -> Bool) -> Stack a -> StackOrNot a
filter p (Stack f ls rs) = case L.filter p (f:rs) of
f':rs' -> Just $ Stack f' (L.filter p ls) rs' -- maybe move focus down
[] -> case L.filter p ls of -- filter back up
- f':rs' -> Just $ Stack f' [] (reverse rs') -- else up
+ f':ls' -> Just $ Stack f' ls' [] -- else up
[] -> Nothing
-- |