ghc/tests/deriving/should_compile/drv004.hs

   1 -- !!! simple example of deriving Ord and Eq simultaneously
   2 --
   3 module ShouldSucceed where
   4
   5 data Foo a b c
   6   = C1 a Int
   7   | C2 b Double
   8   | C3 c String
   9   deriving (Eq, Ord)