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 | 8a88426a351848678b1dca0c33d4fb8dac8c59fa (patch) | |
| tree | ace5ea7670de4a870ac659c368a2147a22f7ef6c | |
| parent | d5a088f1d91390d41ccb50f4a3af2fdd91df2a76 (diff) | |
| download | metatile-8a88426a351848678b1dca0c33d4fb8dac8c59fa.tar metatile-8a88426a351848678b1dca0c33d4fb8dac8c59fa.zip | |
refactor trace.
darcs-hash:20071114034109-cba2c-7303264f38df15c93f65bb830cbdcbe31813bb0d
| -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 |