diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-08-10 19:40:21 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-08-10 19:40:21 -0400 |
| commit | 70892f0bde72d777451510c11be845a8f201bbd2 (patch) | |
| tree | 0c29390bbc705ba7ad251250464b10fab3667c77 /Utility/Exception.hs | |
| parent | cb118745fb0e7cd1c247e6a8711c4ed7fc5ad6bf (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.hs | 4 |
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. - |