[project @ 1997-05-18 23:12:10 by sof]
[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