From 8c170f60a9eeee32e711a13434e32b82f34fef3d Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@galois.com>
Date: Thu, 27 Sep 2007 23:39:01 +0200
Subject: use hPrint instead of hPutStrLn

darcs-hash:20070927213901-cba2c-4a704f8d8905bc119a58b6bc04bb465fedf8950a
---
 XMonad.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/XMonad.hs b/XMonad.hs
index 80b4fde..64232f6 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -166,7 +166,7 @@ io = liftIO
 -- | Lift an IO action into the X monad.  If the action results in an IO
 -- exception, log the exception to stderr and continue normal execution.
 catchIO :: IO () -> X ()
-catchIO f = liftIO (f `catch` \e -> do hPutStrLn stderr (show e); hFlush stderr)
+catchIO f = liftIO (f `catch` \e -> hPrint stderr e >> hFlush stderr)
 
 -- | spawn. Launch an external application
 spawn :: String -> X ()
-- 
cgit v1.2.3