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