From 0c253882412cd1b56821d7f35b2f6db556e9f4be Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Fri, 1 Jun 2007 10:56:26 +0200
Subject: commented out implementation state logging. if someone has a client,
 we can enable this

darcs-hash:20070601085626-9c5c1-668bec95074ab7050c0c8105cf7ec9c2a1c7e1f3
---
 Operations.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index 1a25e99..243da7e 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -23,11 +23,11 @@ import Data.Bits            ((.|.))
 import Data.Ratio
 import qualified Data.Map as M
 
--- import System.Mem (performGC)
 import Control.Monad.State
 import Control.Monad.Reader
 import Control.Arrow
 
+import System.IO
 import Graphics.X11.Xlib
 import Graphics.X11.Xinerama (getScreenInfo)
 import Graphics.X11.Xlib.Extras
@@ -197,6 +197,7 @@ refresh = do
 
     setTopFocus
     clearEnterEvents
+    -- withWindowSet (io . hPrint stderr) -- logging state changes!
 --  io performGC -- really helps 
 
 -- | clearEnterEvents.  Remove all window entry events from the event queue.
-- 
cgit v1.2.3