Commit 247078ed authored by simonmar's avatar simonmar
Browse files

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

Make this build with GHC < 6.03 again
parent ab3d1f28
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment