From d6aa67a7a262231a56237e14607dd950dff7ccd0 Mon Sep 17 00:00:00 2001
From: robreim <robreim@bobturf.org>
Date: Sat, 8 Mar 2008 02:58:29 +0100
Subject: Change floats to always use the current screen

darcs-hash:20080308015829-d4c7e-f805bfa622e5fc0dfe054bd12c827ca666351794
---
 XMonad/ManageHook.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad/ManageHook.hs')

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
-- 
cgit v1.2.3