[project @ 1997-05-26 05:48:07 by sof]
[ghc-hetmet.git] / ghc / compiler / tests / stranal / 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