summaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorDon Stewart <dons@galois.com>2007-11-14 04:41:09 +0100
committerDon Stewart <dons@galois.com>2007-11-14 04:41:09 +0100
commit8a88426a351848678b1dca0c33d4fb8dac8c59fa (patch)
treeace5ea7670de4a870ac659c368a2147a22f7ef6c /XMonad
parentd5a088f1d91390d41ccb50f4a3af2fdd91df2a76 (diff)
downloadmetatile-8a88426a351848678b1dca0c33d4fb8dac8c59fa.tar
metatile-8a88426a351848678b1dca0c33d4fb8dac8c59fa.zip
refactor trace.
darcs-hash:20071114034109-cba2c-7303264f38df15c93f65bb830cbdcbe31813bb0d
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Core.hs2
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