[ghc-hetmet.git] / ghc / tests / stranal / should_compile / fun.hs

module Test where
data Fun = MkFun (Fun -> Fun)
data LList a = Nill | Conss a (LList a)

g :: Fun -> Fun
g f = f