diff options
| -rw-r--r-- | XMonad/Actions/GroupNavigation.hs | 4 |
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 |