summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-06-04 18:24:50 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-06-04 18:24:50 +0200
commitb362330e03efc2a593ec7ce21d76d14b9b0c118d (patch)
treea666a5a0252fdbe28f128ea1c9cb10bafb9c2e10
parent011438e7e0789c01822adf11d7a430af41ed1d4a (diff)
downloadmetatile-b362330e03efc2a593ec7ce21d76d14b9b0c118d.tar
metatile-b362330e03efc2a593ec7ce21d76d14b9b0c118d.zip
Dump state at launch (commented for now)
darcs-hash:20070604162450-a5988-e2d405b329d5f0dd0b33321f577dd63d3119b6d0
-rw-r--r--Main.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/Main.hs b/Main.hs
index 61f8781..d5dbb7f 100644
--- a/Main.hs
+++ b/Main.hs
@@ -76,6 +76,8 @@ main = do
allocaXEvent $ \e ->
runX cf st $ do
mapM_ manage ws
+ -- withWindowSet (io . hPrint stderr) -- uncomment for state logging
+
-- main loop, for all you HOF/recursion fans out there.
forever $ handle =<< io (nextEvent dpy e >> getEvent e)