summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDon Stewart <dons@galois.com>2007-09-27 23:39:01 +0200
committerDon Stewart <dons@galois.com>2007-09-27 23:39:01 +0200
commit8c170f60a9eeee32e711a13434e32b82f34fef3d (patch)
treee85758b16ccfdc1fe0e8208ac19a53b02325f395
parente0a50229435344ee4512b7e8b8bf486cdc0c6127 (diff)
downloadmetatile-8c170f60a9eeee32e711a13434e32b82f34fef3d.tar
metatile-8c170f60a9eeee32e711a13434e32b82f34fef3d.zip
use hPrint instead of hPutStrLn
darcs-hash:20070927213901-cba2c-4a704f8d8905bc119a58b6bc04bb465fedf8950a
-rw-r--r--XMonad.hs2
1 files changed, 1 insertions, 1 deletions
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 ()