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 | 1e612885fb98332feac64a33902ee2ebe12fdc5b (patch) | |
| tree | 4a2d30607bb16d92a5b0f9586f8003bb06fc39de /Operations.hs | |
| parent | 4434c4a765ce9d33c215d24d240d236205afc003 (diff) | |
| download | xmonad-1e612885fb98332feac64a33902ee2ebe12fdc5b.tar.gz xmonad-1e612885fb98332feac64a33902ee2ebe12fdc5b.tar.xz xmonad-1e612885fb98332feac64a33902ee2ebe12fdc5b.zip | |
Move state logging into Config.hs, via logHook :: X ()
darcs-hash:20070610061932-9c5c1-9a08992ef555f086007474e64d5ae9d835e9677e.gz
Diffstat (limited to 'Operations.hs')
| -rw-r--r-- | Operations.hs | 4 |
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. |