[project @ 1996-01-08 20:28:12 by partain]
[ghc.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