Dump state at launch (commented for now)

darcs-hash:20070604162450-a5988-e2d405b329d5f0dd0b33321f577dd63d3119b6d0

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)