[project @ 1997-09-04 12:54:24 by simonm]

[ghc-hetmet.git] / ghc / tests / deriving / should_compile / drv004.hs

diff --git a/ghc/tests/deriving/should_compile/drv004.hs b/ghc/tests/deriving/should_compile/drv004.hs
index 82afb6b..5c095dd 100644 (file)
--- a/ghc/tests/deriving/should_compile/drv004.hs
+++ b/ghc/tests/deriving/should_compile/drv004.hs
@@ -1,8 +1,9 @@
---!!! simple example of deriving Ord (and, implicitly, Eq)
+--!!! simple example of deriving Ord and Eq simultaneously
 --
 module ShouldSucceed where
 
-data Foo a b
+data Foo a b c
   = C1 a Int
   | C2 b Double
-  deriving Ord
+  | C3 c String
+  deriving (Eq, Ord)