[project @ 1997-09-05 14:11:05 by simonm]
[ghc-hetmet.git] / ghc / tests / stranal / should_compile / fun.hs
1 module Test where
2 data Fun = MkFun (Fun -> Fun)
3 data LList a = Nill | Conss a (LList a)
4
5 g :: Fun -> Fun
6 g f = f