use "windows" in "unmanage"

darcs-hash:20070318024825-b9aa7-9e5a740f0616ef4da374c6116a26db15003c7e5a

1 files changed, 1 insertions, 1 deletions

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)