Small linecount fix :)

darcs-hash:20080308021939-d4c7e-a00752d8ed47b18ba1eb168e920d271885ecb86f

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)
 
 -- ---------------------------------------------------------------------