Commit e72b2ad4 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-11-19 14:59:53 by simonmar]

fix repType after changes to the representation of type synonyms.
This caused the stage2 compiler to crash, because various info tables
misrepresented the pointerhood of constructor arguments.
parent e5b39b0c
...@@ -425,11 +425,8 @@ repType :: Type -> Type ...@@ -425,11 +425,8 @@ repType :: Type -> Type
-- Only applied to types of kind *; hence tycons are saturated -- Only applied to types of kind *; hence tycons are saturated
repType (ForAllTy _ ty) = repType ty repType (ForAllTy _ ty) = repType ty
repType (NoteTy _ ty) = repType ty repType (NoteTy _ ty) = repType ty
repType (PredTy p) = repType (predTypeRep p) repType ty | Just ty' <- coreView ty = repType ty'
repType (TyConApp tc tys) | otherwise = ty
| isNewTyCon tc = ASSERT( tys `lengthIs` tyConArity tc )
repType (new_type_rep tc tys)
repType ty = ty
-- ToDo: this could be moved to the code generator, using splitTyConApp instead -- ToDo: this could be moved to the code generator, using splitTyConApp instead
-- of inspecting the type directly. -- of inspecting the type directly.
......
Supports Markdown
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