X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Futils%2FException.hs;h=63d61216a9d4358416f085cb0d25ae819ef28f23;hb=9cb6b74e9877e19efbd4db1c6a0b94997540bb47;hp=3c7600515a13abc68950bf74c3730b17db71edd1;hpb=9d0c8f842e35dde3d570580cf62a32779f66a6de;p=ghc-hetmet.git diff --git a/compiler/utils/Exception.hs b/compiler/utils/Exception.hs index 3c76005..63d6121 100644 --- a/compiler/utils/Exception.hs +++ b/compiler/utils/Exception.hs @@ -8,11 +8,7 @@ module Exception import Prelude hiding (catch) -#if __GLASGOW_HASKELL__ < 609 -import Control.Exception.Extensible as Control.Exception -#else import Control.Exception -#endif catchIO :: IO a -> (IOException -> IO a) -> IO a catchIO = catch