[project @ 1997-07-27 09:27:45 by sof]
[ghc-hetmet.git] / ghc / compiler / tests / deSugar / ds027.hs
1 --!!! ds027 -- simple instances
2 --
3 module Test where
4
5 data Foo = Bar | Baz
6
7 instance Eq Foo where
8   Bar == Baz = True
9   Bar /= Baz = False