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

darcs-hash:20070610061932-9c5c1-9a08992ef555f086007474e64d5ae9d835e9677e

1 files changed, 2 insertions, 2 deletions

diff --git a/Operations.hs b/Operations.hs
index 47e3595..55cc0d4 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -16,7 +16,7 @@ module Operations where
 
 import XMonad
 import qualified StackSet as W
-import {-# SOURCE #-} Config (borderWidth,logging,numlockMask)
+import {-# SOURCE #-} Config (borderWidth,logHook,numlockMask)
 
 import Data.Maybe
 import Data.List            (genericIndex, intersectBy, partition)
@@ -179,7 +179,7 @@ windows f = do
         -- urgh : not our delete policy, but close.
 
     setTopFocus
-    when logging $ withWindowSet (io . putStrLn . serial)
+    logHook
     -- io performGC -- really helps, but seems to trigger GC bugs?
 
     -- We now go to some effort to compute the minimal set of windows to hide.