From 1d06408cf8e4d96fee8f0bf9f1a1d859e6ef3603 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 10 Sep 2007 23:38:07 +0200
Subject: Remove redundant reveal

darcs-hash:20070910213807-a5988-5e66a786114f76a944ef95fb826fdfdd533ce1fd
---
 Operations.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Operations.hs b/Operations.hs
index 7611667..770ea7d 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -49,7 +49,7 @@ import qualified Data.Traversable as T
 --
 manage :: Window -> X ()
 manage w = whenX (fmap not $ isClient w) $ withDisplay $ \d -> do
-    setInitialProperties w >> reveal w
+    setInitialProperties w
 
     -- FIXME: This is pretty awkward. We can't can't let "refresh" happen
     -- before the call to float, because that will resize the window and
-- 
cgit v1.2.3