From: simonmar <unknown>
Date: Mon, 6 Jun 2005 09:10:41 +0000 (+0000)
Subject: [project @ 2005-06-06 09:10:41 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~456
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=247078edf80099d629c535b8dfa83a8b1dadbce1;p=ghc-hetmet.git

[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
--- 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