From 7ee5c7b6f6459a360c8d1e9ac903a7a2f2faa210 Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@galois.com>
Date: Wed, 14 Nov 2007 04:41:09 +0100
Subject: refactor trace.

darcs-hash:20071114034109-cba2c-7303264f38df15c93f65bb830cbdcbe31813bb0d.gz
---
 XMonad/Core.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad')

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
-- 
cgit v1.2.3