aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Actions
diff options
context:
space:
mode:
authorNorbert Zeh <nzeh@cs.dal.ca>2010-06-04 10:14:31 +0200
committerNorbert Zeh <nzeh@cs.dal.ca>2010-06-04 10:14:31 +0200
commitb5b8a337365c7e9560b3d57fcd0a0934023b11af (patch)
treeee49f4ca6d5455a23b2ad8e0c1a37dcb0bd8e1c9 /XMonad/Actions
parente690b299a36f2a473b82c278d48d75736c649d0b (diff)
downloadXMonadContrib-b5b8a337365c7e9560b3d57fcd0a0934023b11af.tar.gz
XMonadContrib-b5b8a337365c7e9560b3d57fcd0a0934023b11af.tar.xz
XMonadContrib-b5b8a337365c7e9560b3d57fcd0a0934023b11af.zip
Fix bug in history maintenance of X.A.GroupNavigation
Ignore-this: 84a22797ec1b76a9b9805af3272911b0 When the focused window was closed without a new window receiving focus, the closed window was not removed from the history database, making for example "nextMatch History (return True)" misbehave. This patch fixes this. darcs-hash:20100604081431-18a2b-d8416c45ccc86ac7e95e4cb49face9f13b242da7.gz
Diffstat (limited to 'XMonad/Actions')
-rw-r--r--XMonad/Actions/GroupNavigation.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Actions/GroupNavigation.hs b/XMonad/Actions/GroupNavigation.hs
index 306c0f2..37a4ec9 100644
--- a/XMonad/Actions/GroupNavigation.hs
+++ b/XMonad/Actions/GroupNavigation.hs
@@ -174,8 +174,8 @@ updateHistory :: HistoryDB -> X HistoryDB
updateHistory (HistoryDB oldcur oldhist) = withWindowSet $ \ss -> do
let newcur = currentWindow ss
wins = Set.fromList $ SS.allWindows ss
- newhist = flt (flip Set.member wins) oldhist
- return $ HistoryDB newcur (del newcur $ ins oldcur newhist)
+ newhist = flt (flip Set.member wins) (ins oldcur oldhist)
+ return $ HistoryDB newcur (del newcur newhist)
where
ins x xs = maybe xs (<| xs) x
del x xs = maybe xs (\x' -> flt (/= x') xs) x