[project @ 1996-01-08 20:28:12 by partain]
[ghc-hetmet.git] / ghc / compiler / tests / stranal / fun.lhs
1 > data Fun = MkFun (Fun -> Fun)
2 > data LList a = Nill | Conss a (LList a)
3
4 > id :: Fun -> Fun
5 > id f = f