[project @ 1997-09-04 12:54:24 by simonm]
[ghc-hetmet.git] / ghc / tests / deriving / should_fail / drvfail004.hs
1 --!!! deriving Ord without deriving Eq
2 --
3 module ShouldFail where
4
5 data Foo a b
6   = C1 a Int
7   | C2 b Double
8   deriving Ord