From b06336fa3a146e9a0ef1a1307b1fc219570795c6 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 16 Mar 2012 02:12:56 -0400 Subject: simplify --- Utility/Exception.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'Utility/Exception.hs') diff --git a/Utility/Exception.hs b/Utility/Exception.hs index 7b6c9c999..a6726945c 100644 --- a/Utility/Exception.hs +++ b/Utility/Exception.hs @@ -25,10 +25,7 @@ catchDefaultIO a def = catchIO a (const $ return def) {- Catches IO errors and returns the error message. -} catchMsgIO :: IO a -> IO (Either String a) -catchMsgIO a = dispatch <$> tryIO a - where - dispatch (Left e) = Left $ show e - dispatch (Right v) = Right v +catchMsgIO a = either (Left . show) Right <$> tryIO a {- catch specialized for IO errors only -} catchIO :: IO a -> (IOException -> IO a) -> IO a -- cgit v1.2.3