diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-09 15:17:16 +0200 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-09 15:17:16 +0200 |
commit | be962db7586e120adb810e506f456b7ab80f486e (patch) | |
tree | bfc7339ea98da0bab2c4f7881fa8f1c3fa04d83e /Main.hs | |
parent | 27ea348b43b0f8ec0c20e784b43d688785ddc625 (diff) | |
download | metatile-be962db7586e120adb810e506f456b7ab80f486e.tar metatile-be962db7586e120adb810e506f456b7ab80f486e.zip |
HEADS UP: (logging format change). use a custom pretty printer, for an easier format to parse, than 'show' produces
darcs-hash:20070609131716-9c5c1-ac6b3d7e8193b16ca9ae65f32d5373090107eca1
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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) |