aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Actions
diff options
context:
space:
mode:
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