aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Layout/TrackFloating.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Layout/TrackFloating.hs b/XMonad/Layout/TrackFloating.hs
index b30d524..217e9a4 100644
--- a/XMonad/Layout/TrackFloating.hs
+++ b/XMonad/Layout/TrackFloating.hs
@@ -45,7 +45,7 @@ data TrackFloating a = TrackFloating
instance LayoutModifier TrackFloating Window where
- modifyLayoutWithUpdate os@(TrackFloating wasF mw) ws@(W.Workspace{ W.stack = ms }) r
+ modifyLayoutWithUpdate os@(TrackFloating _wasF mw) ws@(W.Workspace{ W.stack = ms }) r
= do
winset <- gets windowset
let xCur = fmap W.focus xStack
@@ -57,7 +57,7 @@ instance LayoutModifier TrackFloating Window where
newStack
-- focus is floating, so use the remembered focus point
| Just isF' <- isF,
- isF' || wasF,
+ isF',
Just w <- mw,
Just s <- ms,
Just ns <- find ((==) w . W.focus)