[project @ 2002-09-09 12:57:47 by simonpj]
authorsimonpj <unknown>
Mon, 9 Sep 2002 12:57:48 +0000 (12:57 +0000)
committersimonpj <unknown>
Mon, 9 Sep 2002 12:57:48 +0000 (12:57 +0000)
commit1e25bdc2ea3683b7b9932e709ca90e258ad6c4bf
tree482b81718ab0a5b6db495218cc63e42251eee8ba
parent5e392a5623fe7f896389f1b7c3fb3f340bea46a8
[project @ 2002-09-09 12:57:47 by simonpj]
--------------------------------
Fix rank-2 pattern-match failure
--------------------------------

This fixes the failure when you have a rank-2 type sig
matching a data type pattern.  Thus

data T a = T1 | T2 a

f :: (forall x. T x) -> Int
f T1 = ...

This crashes GHC 5.04
ghc/compiler/deSugar/Match.lhs
ghc/compiler/hsSyn/HsPat.lhs