From dd0e3495cc6bf05eee99ecd437ad67bf5f4842c0 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 10 May 2014 10:46:36 -0300 Subject: merge from git-annex --- Utility/Exception.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Utility/Exception.hs') diff --git a/Utility/Exception.hs b/Utility/Exception.hs index cf2c615c..6f3c059f 100644 --- a/Utility/Exception.hs +++ b/Utility/Exception.hs @@ -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) -- cgit v1.2.3