mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

simplify

Browse source
This commit is contained in:
Joey Hess 2012-03-16 02:12:56 -04:00
parent 184a69171d
commit b06336fa3a
1 changed files with 1 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Utility/Exception.hs
View file

@ -25,10 +25,7 @@ catchDefaultIO a def = catchIO a (const $ return def)
{- Catches IO errors and returns the error message. -} {- Catches IO errors and returns the error message. -}
catchMsgIO :: IO a -> IO (Either String a) catchMsgIO :: IO a -> IO (Either String a)
catchMsgIO a = dispatch <$> tryIO a catchMsgIO a = either (Left . show) Right <$> tryIO a
where
dispatch (Left e) = Left $ show e
dispatch (Right v) = Right v
{- catch specialized for IO errors only -} {- catch specialized for IO errors only -}
catchIO :: IO a -> (IOException -> IO a) -> IO a catchIO :: IO a -> (IOException -> IO a) -> IO a