[project @ 1998-12-02 13:17:09 by simonm]
[ghc-hetmet.git] / ghc / interpreter / test / typechecker / t010.hs
1 --!!! Escaping existential variable I
2
3 data Appl = MkAppl (a -> Int) a (a -> a)
4
5 bad1 (MkAppl f x i) = x