diff options
| author | robreim <robreim@bobturf.org> | 2008-03-08 03:19:39 +0100 |
|---|---|---|
| committer | robreim <robreim@bobturf.org> | 2008-03-08 03:19:39 +0100 |
| commit | 4678e2944a426b082b27d28c2a72ad6b8faced94 (patch) | |
| tree | d070e89e72aee02ff5a2f29595bb376dcbb51d5a | |
| parent | 73e330619911c5e15d7a0817cf6ba172c97a4a52 (diff) | |
| download | xmonad-4678e2944a426b082b27d28c2a72ad6b8faced94.tar.gz xmonad-4678e2944a426b082b27d28c2a72ad6b8faced94.tar.xz xmonad-4678e2944a426b082b27d28c2a72ad6b8faced94.zip | |
Small linecount fix :)
darcs-hash:20080308021939-d4c7e-a00752d8ed47b18ba1eb168e920d271885ecb86f.gz
| -rw-r--r-- | XMonad/Operations.hs | 3 |
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) -- --------------------------------------------------------------------- |