d86208bcdd192647469960f80ff034b90c0488d8
[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