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 /Main.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 '')
-rw-r--r-- | Main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -45,6 +45,7 @@ main = do xinesc <- getScreenInfo dpy nbc <- initcolor normalBorderColor fbc <- initcolor focusedBorderColor + hSetBuffering stdout NoBuffering args <- getArgs let winset | ("--resume" : s : _) <- args @@ -89,7 +90,7 @@ main = do , w <- W.integrate (W.stack wk) ] mapM_ manage ws -- find new windows - -- withWindowSet (io . hPrint stderr) -- uncomment for state logging + when logging $ withWindowSet (io . hPrint stdout) -- main loop, for all you HOF/recursion fans out there. forever $ handle =<< io (nextEvent dpy e >> getEvent e) |