[project @ 2000-11-03 16:23:37 by simonmar]
[ghc-hetmet.git] / ghc / tests / deSugar / should_compile / ds027.hs
1 -- !!! ds027 -- simple instances
2 --
3 module ShouldCompile where
4
5 data Foo = Bar | Baz
6
7 instance Eq Foo where
8   Bar == Baz = True
9   Bar /= Baz = False