[project @ 2005-06-06 09:10:41 by simonmar]

Make this build with GHC < 6.03 again

diff --git a/ghc/compiler/main/ErrUtils.lhs b/ghc/compiler/main/ErrUtils.lhs
index 12d3e43..5cfbac7 100644 (file)
--- a/ghc/compiler/main/ErrUtils.lhs
+++ b/ghc/compiler/main/ErrUtils.lhs
@@ -75,8 +75,13 @@ data ErrMsg = ErrMsg {
 -- So we can throw these things as exceptions
 errMsgTc :: TyCon
 errMsgTc = mkTyCon "ErrMsg"
+{-# NOINLINE errMsgTc #-}
 instance Typeable ErrMsg where
+#if __GLASGOW_HASKELL__ < 603
+  typeOf _ = mkAppTy errMsgTc []
+#else
   typeOf _ = mkTyConApp errMsgTc []
+#endif
 
 type WarnMsg = ErrMsg