diff options
| author | Don Stewart <dons@galois.com> | 2007-11-14 04:41:09 +0100 |
|---|---|---|
| committer | Don Stewart <dons@galois.com> | 2007-11-14 04:41:09 +0100 |
| commit | 7ee5c7b6f6459a360c8d1e9ac903a7a2f2faa210 (patch) | |
| tree | ace5ea7670de4a870ac659c368a2147a22f7ef6c /XMonad | |
| parent | 15da99a2b908fd38153103a337a77ea12ec3a265 (diff) | |
| download | xmonad-7ee5c7b6f6459a360c8d1e9ac903a7a2f2faa210.tar.gz xmonad-7ee5c7b6f6459a360c8d1e9ac903a7a2f2faa210.tar.xz xmonad-7ee5c7b6f6459a360c8d1e9ac903a7a2f2faa210.zip | |
refactor trace.
darcs-hash:20071114034109-cba2c-7303264f38df15c93f65bb830cbdcbe31813bb0d.gz
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Core.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Core.hs b/XMonad/Core.hs index 9ef7972..e88082d 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -292,4 +292,4 @@ whenX a f = a >>= \b -> when b f -- | A 'trace' for the X monad. Logs a string to stderr. The result may -- be found in your .xsession-errors file trace :: MonadIO m => String -> m () -trace msg = liftIO $ do hPutStrLn stderr msg; hFlush stderr +trace = liftIO . hPutStrLn stderr |