[project @ 1997-07-26 23:49:03 by sof]
[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