From dfb15478f05280486f694ffc648d0f6b12670f6f Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Fri, 13 Nov 2009 17:14:02 +0100
Subject: Don't erase floating information with H.InsertPosition (Issue 334)

Ignore-this: de1c03eb860ea25b390ee5c756b02997

darcs-hash:20091113161402-1499c-779e2879fe96727dcc46ee7e7d74c5169036a19d.gz
---
 XMonad/Hooks/InsertPosition.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad/Hooks/InsertPosition.hs')

diff --git a/XMonad/Hooks/InsertPosition.hs b/XMonad/Hooks/InsertPosition.hs
index 54c2a6d..722c48a 100644
--- a/XMonad/Hooks/InsertPosition.hs
+++ b/XMonad/Hooks/InsertPosition.hs
@@ -46,7 +46,7 @@ data Focus = Newer | Older
 insertPosition :: Position -> Focus -> ManageHook
 insertPosition pos foc = Endo . g <$> ask
   where
-    g w = viewingWs w (updateFocus w . ins w . W.delete w)
+    g w = viewingWs w (updateFocus w . ins w . W.delete' w)
     ins w = (\f ws -> fromMaybe id (W.focusWindow <$> W.peek ws) $ f ws) $
         case pos of
             Master -> W.insertUp w . W.focusMaster
-- 
cgit v1.2.3