HEADS UP: (logging format change). use a custom pretty printer, for an easier format to parse, than 'show' produces

This commit is contained in:
Don Stewart
2007-06-09 13:17:16 +00:00
parent a21c4d02f1
commit 0ada17c34a
4 changed files with 44 additions and 5 deletions

View File

@@ -94,7 +94,7 @@ main = do
, w <- W.integrate (W.stack wk) ]
mapM_ manage ws -- find new windows
when logging $ withWindowSet (io . hPrint stdout)
when logging $ withWindowSet (io . putStrLn . serial)
-- main loop, for all you HOF/recursion fans out there.
forever $ handle =<< io (nextEvent dpy e >> getEvent e)