Fix Trac #1981: seq on a type-family-typed expression
authorsimonpj@microsoft.com <unknown>
Fri, 21 Dec 2007 08:55:42 +0000 (08:55 +0000)
committersimonpj@microsoft.com <unknown>
Fri, 21 Dec 2007 08:55:42 +0000 (08:55 +0000)
commitf645bca8386cd70021cdd467a423b49b7daa835b
tree11fbac0f79481403415dd465e5667f8b63e655be
parente4828ab96fc2ba5250a6676e4c1653602f8846c7
Fix Trac #1981: seq on a type-family-typed expression

We were crashing when we saw
case x of DEFAULT -> rhs
where x had a type-family type.  This patch fixes it.

MERGE to the 6.8 branch.
compiler/stgSyn/CoreToStg.lhs