X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=compiler%2Futils%2FException.hs;fp=compiler%2Futils%2FException.hs;h=63d61216a9d4358416f085cb0d25ae819ef28f23;hb=4685464e8f333c1990f7359a9cf6481296b7cab3;hp=3c7600515a13abc68950bf74c3730b17db71edd1;hpb=129e7b91d1cd0fc583b6bba01e39d10c30db18be;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