Dump state at launch (commented for now)

This commit is contained in:
Spencer Janssen 2007-06-04 16:24:50 +00:00
parent fec58e8a09
commit 795e96d353

View File

@ -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)