ghc/compiler/tests/stranal/goo.lhs

   1 > data Goo a = Gsimpl | Gcompl ([Goo a])
   2 > data Moo a b = Msimple | Mcompl (Moo b a)
   3
   4
   5 > idGoo :: Goo a -> Goo a
   6 > idGoo x = x
   7
   8 > idMoo :: Moo a -> Moo a
   9 > idMoo x = x