Improve handling of newtypes (fixes Trac 1495)
authorsimonpj@microsoft.com <unknown>
Fri, 21 Dec 2007 09:04:06 +0000 (09:04 +0000)
committersimonpj@microsoft.com <unknown>
Fri, 21 Dec 2007 09:04:06 +0000 (09:04 +0000)
commit219f900f4e518e8158807cdda6fdec8331f701f0
tree533aef92a761727ad13caba0a49bed6726491f0f
parentf645bca8386cd70021cdd467a423b49b7daa835b
Improve handling of newtypes (fixes Trac 1495)

In a few places we want to "look through" newtypes to get to the
representation type.  But we need to be careful that  we don't fall
into an ininite loop with e.g.
newtype T = MkT T

The old mechansim for doing this was to have a field nt_rep, inside
a newtype TyCon, that gave the "ultimate representation" of the type.
But that failed for Trac 1495, which looked like this:
   newtype Fix a = Fix (a (Fix a))
   data I a = I a
Then, expanding the type (Fix I) went on for ever.

The right thing to do seems to be to check for loops when epxanding
the *type*, rather than in the *tycon*.  This patch does that,
- Removes nt_rep from TyCon
- Make Type.repType check for loops
See Note [Expanding newtypes] in Type.lhs.

At the same time I also fixed a bug for Roman, where newtypes were not
being expanded properly in FamInstEnv.topNormaliseType.  This function
and Type.repType share a common structure.

Ian, see if this merges easily to the branch
If not, I don't think it's essential to fix 6.8
compiler/coreSyn/MkExternalCore.lhs
compiler/iface/BuildTyCl.lhs
compiler/main/TidyPgm.lhs
compiler/typecheck/TcDeriv.lhs
compiler/types/FamInstEnv.lhs
compiler/types/TyCon.lhs
compiler/types/Type.lhs