summaryrefslogtreecommitdiffstats
path: root/XMonad/ManageHook.hs
diff options
context:
space:
mode:
authorrobreim <robreim@bobturf.org>2008-03-08 02:58:29 +0100
committerrobreim <robreim@bobturf.org>2008-03-08 02:58:29 +0100
commitd6aa67a7a262231a56237e14607dd950dff7ccd0 (patch)
tree41adacce7980c77b6e54344d26c22b5efe3f2d95 /XMonad/ManageHook.hs
parent19a58d5f59303e96f84ee0cc0fe09d1f550fe3e9 (diff)
downloadmetatile-d6aa67a7a262231a56237e14607dd950dff7ccd0.tar
metatile-d6aa67a7a262231a56237e14607dd950dff7ccd0.zip
Change floats to always use the current screen
darcs-hash:20080308015829-d4c7e-f805bfa622e5fc0dfe054bd12c827ca666351794
Diffstat (limited to 'XMonad/ManageHook.hs')
-rw-r--r--XMonad/ManageHook.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/ManageHook.hs b/XMonad/ManageHook.hs
index 072fe1f..904b99f 100644
--- a/XMonad/ManageHook.hs
+++ b/XMonad/ManageHook.hs
@@ -71,7 +71,7 @@ doF = return . Endo
-- | Move the window to the floating layer.
doFloat :: ManageHook
-doFloat = ask >>= \w -> doF . W.float w . snd =<< liftX (floatLocation w)
+doFloat = ask >>= \w -> doF . W.float w =<< liftX (floatLocation w)
-- | Map the window and remove it from the 'WindowSet'.
doIgnore :: ManageHook