mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid warnings when built with ghc 7.6

Browse source
This commit is contained in:
Joey Hess 2013-06-02 15:01:58 -04:00
parent 91c9ae83f1
commit 92f036fcb4
4 changed files with 13 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Utility/Exception.hs
View file

@ -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)