X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FErrUtils.lhs;h=d6cb5d0226bd39a75f3a0fc648793e9fcf8600cc;hp=fdabacf5712c22ab0b289c1c70a0dda871b31546;hb=e761a777f2440ca1b8d8b40848cc5aa30d889ff6;hpb=d78ab147ec3d8c3b06b6e922bed4cd9837c9c797

diff --git a/compiler/main/ErrUtils.lhs b/compiler/main/ErrUtils.lhs
index fdabacf..d6cb5d0 100644
--- a/compiler/main/ErrUtils.lhs
+++ b/compiler/main/ErrUtils.lhs
@@ -86,11 +86,7 @@ errMsgTc :: TyCon
 errMsgTc = mkTyCon "ErrMsg"
 {-# NOINLINE errMsgTc #-}
 instance Typeable ErrMsg where
-#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ < 603
-  typeOf _ = mkAppTy errMsgTc []
-#else
   typeOf _ = mkTyConApp errMsgTc []
-#endif
 
 type WarnMsg = ErrMsg