35967ba27f3c9be249bde37b7cbe12a2de6bc329
[ghc-hetmet.git] / ghc / tests / stranal / should_compile / moo.lhs
1 > module Test where
2 > data Moo a b = Msimple | Mcompl (Moo b a)
3
4
5 > idMoo :: Moo a -> Moo a
6 > idMoo x = x