diff options
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 bc928e18e..3835d741d 100644 --- a/Utility/Exception.hs +++ b/Utility/Exception.hs @@ -9,8 +9,8 @@ module Utility.Exception where -import Prelude hiding (catch) import Control.Exception +import qualified Control.Exception as E import Control.Applicative import Control.Monad import System.IO.Error (isDoesNotExistError) @@ -33,7 +33,7 @@ catchMsgIO a = either (Left . show) Right <$> tryIO a {- catch specialized for IO errors only -} catchIO :: IO a -> (IOException -> IO a) -> IO a -catchIO = catch +catchIO = E.catch {- try specialized for IO errors only -} tryIO :: IO a -> IO (Either IOException a) |