From b362330e03efc2a593ec7ce21d76d14b9b0c118d Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Mon, 4 Jun 2007 18:24:50 +0200
Subject: Dump state at launch (commented for now)

darcs-hash:20070604162450-a5988-e2d405b329d5f0dd0b33321f577dd63d3119b6d0
---
 Main.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'Main.hs')

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)
 
-- 
cgit v1.2.3