path: root/ghc/compiler/tests/stranal/goo.lhs

> data Goo a = Gsimpl | Gcompl ([Goo a]) 
> data Moo a b = Msimple | Mcompl (Moo b a)


> idGoo :: Goo a -> Goo a
> idGoo x = x

> idMoo :: Moo a -> Moo a
> idMoo x = x