[project @ 1999-01-15 10:49:05 by sof]
[ghc-hetmet.git] / ghc / tests / deSugar / should_compile / 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