diff options
Diffstat (limited to 'Operations.hs')
| -rw-r--r-- | Operations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Operations.hs b/Operations.hs index ba8d109..d4b6f3e 100644 --- a/Operations.hs +++ b/Operations.hs @@ -564,7 +564,7 @@ float :: Window -> X () float w = do (sc, rr) <- floatLocation w windows $ \ws -> W.float w rr . fromMaybe ws $ do - i <- W.findIndex w 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 |