summaryrefslogtreecommitdiff
path: root/Utility/Exception.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-08-10 19:40:21 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-08-10 19:40:21 -0400
commit70892f0bde72d777451510c11be845a8f201bbd2 (patch)
tree0c29390bbc705ba7ad251250464b10fab3667c77 /Utility/Exception.hs
parentcb118745fb0e7cd1c247e6a8711c4ed7fc5ad6bf (diff)
qualify catch and try
got a build failure on android due to there being a Prelude.catch
Diffstat (limited to 'Utility/Exception.hs')
-rw-r--r--Utility/Exception.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/Exception.hs b/Utility/Exception.hs
index 802e9e24b..ef3ab1dac 100644
--- a/Utility/Exception.hs
+++ b/Utility/Exception.hs
@@ -52,11 +52,11 @@ catchMsgIO a = do
{- catch specialized for IO errors only -}
catchIO :: MonadCatch m => m a -> (IOException -> m a) -> m a
-catchIO = catch
+catchIO = M.catch
{- try specialized for IO errors only -}
tryIO :: MonadCatch m => m a -> m (Either IOException a)
-tryIO = try
+tryIO = M.try
{- bracket with setup and cleanup actions lifted to IO.
-