From 2b5a053aeb04258a590943bf4b909dc1114fc284 Mon Sep 17 00:00:00 2001
From: Jason Creighton <jcreigh@gmail.com>
Date: Sun, 18 Mar 2007 03:48:25 +0100
Subject: use "windows" in "unmanage"

darcs-hash:20070318024825-b9aa7-9e5a740f0616ef4da374c6116a26db15003c7e5a.gz
---
 Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index ab6caa3..d81d952 100644
--- a/Main.hs
+++ b/Main.hs
@@ -269,7 +269,7 @@ manage w = do
 -- list, on whatever workspace it is.
 unmanage :: Window -> X ()
 unmanage w = do
-    modify $ \s -> s { workspace = W.delete w (workspace s) }
+    windows $ W.delete w
     withServerX $ do
       setTopFocus
       withDisplay $ \d -> io (sync d False)
-- 
cgit v1.2.3