summaryrefslogtreecommitdiffstats
path: root/Operations.hs
diff options
context:
space:
mode:
authorDon Stewart <dons@cse.unsw.edu.au>2007-06-01 10:56:26 +0200
committerDon Stewart <dons@cse.unsw.edu.au>2007-06-01 10:56:26 +0200
commit0c253882412cd1b56821d7f35b2f6db556e9f4be (patch)
tree6de22428486a63b8e0ecc158f11f0d9a12775675 /Operations.hs
parentdba1257bd521925f5e6524f1b49468beae5ea87a (diff)
downloadmetatile-0c253882412cd1b56821d7f35b2f6db556e9f4be.tar
metatile-0c253882412cd1b56821d7f35b2f6db556e9f4be.zip
commented out implementation state logging. if someone has a client, we can enable this
darcs-hash:20070601085626-9c5c1-668bec95074ab7050c0c8105cf7ec9c2a1c7e1f3
Diffstat (limited to 'Operations.hs')
-rw-r--r--Operations.hs3
1 files changed, 2 insertions, 1 deletions
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.