ghc/compiler/tests/deriving/drv004.hs

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