[project @ 1997-07-31 00:05:10 by sof]
[ghc-hetmet.git] / ghc / compiler / tests / stranal / fun.lhs
1 > module Test where
2 > data Fun = MkFun (Fun -> Fun)
3 > data LList a = Nill | Conss a (LList a)
4
5 > id :: Fun -> Fun
6 > id f = f