diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-10 08:19:32 +0200 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-10 08:19:32 +0200 |
commit | 5294b3dc35bfff087cab0b13d9a32fbf62f2a96b (patch) | |
tree | 4a2d30607bb16d92a5b0f9586f8003bb06fc39de /Main.hs | |
parent | b292cc4beac3d157f577ca57d81712bc385f2aaf (diff) | |
download | metatile-5294b3dc35bfff087cab0b13d9a32fbf62f2a96b.tar metatile-5294b3dc35bfff087cab0b13d9a32fbf62f2a96b.zip |
Move state logging into Config.hs, via logHook :: X ()
darcs-hash:20070610061932-9c5c1-9a08992ef555f086007474e64d5ae9d835e9677e
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 . putStrLn . serial) + logHook -- main loop, for all you HOF/recursion fans out there. forever $ handle =<< io (nextEvent dpy e >> getEvent e) |