This commit is contained in:
Joey Hess 2014-04-26 19:25:05 -04:00
parent f5b1c3841e
commit 72ec0ab736
12 changed files with 18 additions and 17 deletions

View file

@ -18,7 +18,7 @@ import Utility.Data
{- Catches IO errors and returns a Bool -}
catchBoolIO :: IO Bool -> IO Bool
catchBoolIO a = catchDefaultIO False a
catchBoolIO = catchDefaultIO False
{- Catches IO errors and returns a Maybe -}
catchMaybeIO :: IO a -> IO (Maybe a)