aboutsummaryrefslogtreecommitdiffstats
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
commit80495f9d725de9dc387659e4571eca41edc1e1c5 (patch)
treee85758b16ccfdc1fe0e8208ac19a53b02325f395
parent36d320348eeeb9c952c35e37910c8990fee6db5a (diff)
downloadxmonad-80495f9d725de9dc387659e4571eca41edc1e1c5.tar.gz
xmonad-80495f9d725de9dc387659e4571eca41edc1e1c5.tar.xz
xmonad-80495f9d725de9dc387659e4571eca41edc1e1c5.zip
use hPrint instead of hPutStrLn
darcs-hash:20070927213901-cba2c-4a704f8d8905bc119a58b6bc04bb465fedf8950a.gz
-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 ()