Move state logging into Config.hs, via logHook :: X ()

darcs-hash:20070610061932-9c5c1-9a08992ef555f086007474e64d5ae9d835e9677e.gz

1 files changed, 1 insertions, 1 deletions

diff --git a/Main.hs b/Main.hs
index aaa4970..d06671d 100644
--- a/Main.hs
+++ b/Main.hs
@@ -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)