Distribution/Compat/Exception.hs

    module Distribution.Compat.Exception (
      catchIO,
      catchExit,
      tryIO,
      ) where

    import System.Exit
    import qualified Control.Exception as Exception

    tryIO :: IO a -> IO (Either Exception.IOException a)
    tryIO = Exception.try

    catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
    catchIO = Exception.catch

    catchExit :: IO a -> (ExitCode -> IO a) -> IO a
    catchExit = Exception.catch