diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-03-09 07:34:49 +0100 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-03-09 07:34:49 +0100 |
commit | 9e5d96bda05e57660819869b1c50a2cb3138479e (patch) | |
tree | 54027f155992d8e0c0fd974bd1401db5ba1e2f78 /WMonad.hs | |
parent | dc9e17da5048c08190c895f482cbda05456a9934 (diff) | |
download | xmonad-9e5d96bda05e57660819869b1c50a2cb3138479e.tar.gz xmonad-9e5d96bda05e57660819869b1c50a2cb3138479e.tar.xz xmonad-9e5d96bda05e57660819869b1c50a2cb3138479e.zip |
little bit of strictness, based on -prof output
darcs-hash:20070309063449-9c5c1-664dc95c81b702211f3bc61f53aa31f5eb5bd81d.gz
Diffstat (limited to 'WMonad.hs')
-rw-r--r-- | WMonad.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -68,4 +68,4 @@ whenJust mg f = maybe (return ()) f mg -- | A 'trace' for the W monad. Logs a string to stderr. The result may -- be found in your .xsession-errors file trace :: String -> W () -trace msg = io $ do hPutStrLn stderr msg; hFlush stderr +trace msg = io $! do hPutStrLn stderr msg; hFlush stderr |