aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/ManageHook.hs
diff options
context:
space:
mode:
authorDon Stewart <dons@galois.com>2008-03-21 22:41:29 +0100
committerDon Stewart <dons@galois.com>2008-03-21 22:41:29 +0100
commit417e71a930b739fb2336ac604f1fde71529dfef3 (patch)
treea5c705c2304c8b1685b32d63d5612e8cf35fcaa4 /XMonad/ManageHook.hs
parent2ada5880c8ad5a5bf312fe428f1d4e7e59eb2095 (diff)
downloadxmonad-417e71a930b739fb2336ac604f1fde71529dfef3.tar.gz
xmonad-417e71a930b739fb2336ac604f1fde71529dfef3.tar.xz
xmonad-417e71a930b739fb2336ac604f1fde71529dfef3.zip
Revert float location patch. Not Xinerama safe
darcs-hash:20080321214129-cba2c-5eeb181514381837404a0cddcc74c78b8b044b67.gz
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 904b99f..072fe1f 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 =<< liftX (floatLocation w)
+doFloat = ask >>= \w -> doF . W.float w . snd =<< liftX (floatLocation w)
-- | Map the window and remove it from the 'WindowSet'.
doIgnore :: ManageHook