path: root/testsuite/tests/ghc-regress/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