From b362330e03efc2a593ec7ce21d76d14b9b0c118d Mon Sep 17 00:00:00 2001 From: Spencer Janssen 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(+) 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