diff options
author | Joey Hess <joey@kitenet.net> | 2014-07-21 16:35:23 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-07-21 16:35:23 -0400 |
commit | 619c8bd261a4fee0b0d40b664e55c51782e062f7 (patch) | |
tree | ba39cd283d4c0fecb61c7a1bbbb803cc9459a222 /Utility/Exception.hs | |
parent | 7882653e7856df87e598464379951ec89775cd1a (diff) | |
download | git-repair-619c8bd261a4fee0b0d40b664e55c51782e062f7.tar.gz |
Merge from git-annex.
Diffstat (limited to 'Utility/Exception.hs')
-rw-r--r-- | Utility/Exception.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/Exception.hs b/Utility/Exception.hs index cf2c615..1fecf65 100644 --- a/Utility/Exception.hs +++ b/Utility/Exception.hs @@ -2,7 +2,7 @@ - - Copyright 2011-2012 Joey Hess <joey@kitenet.net> - - - Licensed under the GNU GPL version 3 or higher. + - License: BSD-2-clause -} {-# LANGUAGE ScopedTypeVariables #-} @@ -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) |