Make this build with GHC < 6.03 again
-- So we can throw these things as exceptions
errMsgTc :: TyCon
errMsgTc = mkTyCon "ErrMsg"
-- So we can throw these things as exceptions
errMsgTc :: TyCon
errMsgTc = mkTyCon "ErrMsg"
+{-# NOINLINE errMsgTc #-}
instance Typeable ErrMsg where
instance Typeable ErrMsg where
+#if __GLASGOW_HASKELL__ < 603
+ typeOf _ = mkAppTy errMsgTc []
+#else
typeOf _ = mkTyConApp errMsgTc []
typeOf _ = mkTyConApp errMsgTc []