summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--XMonad/Operations.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/XMonad/Operations.hs b/XMonad/Operations.hs
index 33368f4..e95593e 100644
--- a/XMonad/Operations.hs
+++ b/XMonad/Operations.hs
@@ -419,11 +419,10 @@ float :: Window -> X ()
float w = do
rr <- floatLocation w
windows $ \ws -> W.float w rr . fromMaybe ws $ do
- let sc = W.screen $ W.current ws
i <- W.findTag w ws
guard $ i `elem` map (W.tag . W.workspace) (W.screens ws)
f <- W.peek ws
- sw <- W.lookupWorkspace sc ws
+ sw <- W.lookupWorkspace (W.screen $ W.current ws) ws
return (W.focusWindow f . W.shiftWin sw w $ ws)
-- ---------------------------------------------------------------------