From 42f7db43b12120e7b69b37425bd3d5bc02a480ac Mon Sep 17 00:00:00 2001
From: robreim <robreim@bobturf.org>
Date: Sat, 8 Mar 2008 03:19:39 +0100
Subject: Small linecount fix :)

darcs-hash:20080308021939-d4c7e-a00752d8ed47b18ba1eb168e920d271885ecb86f
---
 XMonad/Operations.hs | 3 +--
 1 file changed, 1 insertion(+), 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)
 
 -- ---------------------------------------------------------------------
-- 
cgit v1.2.3