summaryrefslogtreecommitdiffstats
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
commit64665f209a610726ff612c6604a02fa603a3c401 (patch)
treea5c705c2304c8b1685b32d63d5612e8cf35fcaa4 /XMonad/ManageHook.hs
parentbf5fb84b0920581504f3f3a29bcb94f6b153be01 (diff)
downloadmetatile-64665f209a610726ff612c6604a02fa603a3c401.tar
metatile-64665f209a610726ff612c6604a02fa603a3c401.zip
Revert float location patch. Not Xinerama safe
darcs-hash:20080321214129-cba2c-5eeb181514381837404a0cddcc74c78b8b044b67
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