diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-05 10:37:35 +0200 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-06-05 10:37:35 +0200 |
commit | 66deb9dbfb0cbbe4a363db34ca43ceb849d0c020 (patch) | |
tree | 14716a80ea1d19964d41a84b2d13bc2d19faf0b2 /Operations.hs | |
parent | f760df0ddce1297c576383e6a25f423a90c93699 (diff) | |
download | xmonad-66deb9dbfb0cbbe4a363db34ca43ceb849d0c020.tar.gz xmonad-66deb9dbfb0cbbe4a363db34ca43ceb849d0c020.tar.xz xmonad-66deb9dbfb0cbbe4a363db34ca43ceb849d0c020.zip |
Enable logging of state changes to stdout
darcs-hash:20070605083735-9c5c1-1ab5acbd611914caa7b5cdf1f2df338c0ee616f8.gz
Diffstat (limited to 'Operations.hs')
-rw-r--r-- | Operations.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Operations.hs b/Operations.hs index 93c0da0..734935d 100644 --- a/Operations.hs +++ b/Operations.hs @@ -15,7 +15,7 @@ module Operations where import XMonad import qualified StackSet as W -import {-# SOURCE #-} Config (borderWidth) +import {-# SOURCE #-} Config (borderWidth,logging) import Data.Maybe import Data.List (genericIndex, intersectBy, partition, delete) @@ -168,8 +168,8 @@ windows f = do io $ restackWindows d (flt ++ tiled') setTopFocus - -- withWindowSet (io . hPrint stderr) -- logging state changes! - -- io performGC -- really helps + when logging $ withWindowSet (io . hPrint stdout) + -- 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. -- The minimal set being only those windows which weren't previously hidden, |