[project @ 1997-07-26 23:49:03 by sof]
[ghc-hetmet.git] / ghc / tests / stranal / should_compile / 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