[project @ 1997-07-31 02:33:07 by sof]

[ghc-hetmet.git] / ghc / compiler / tests / deriving / drv001.hs

diff --git a/ghc/compiler/tests/deriving/drv001.hs b/ghc/compiler/tests/deriving/drv001.hs
deleted file mode 100644 (file)
index ffe8196..0000000
--- a/ghc/compiler/tests/deriving/drv001.hs
+++ /dev/null
@@ -1,21 +0,0 @@
---!!! canonical weird example for "deriving"
-module ShouldSucceed where
-
-data X a b
-  = C1 (T a)
-  | C2 (Y b)
-  | C3 (X b a)
-  deriving (Read, Show)
-
-data Y b
-  = D1
-  | D2 (X Int b)
-  deriving (Read, Show)
-
-data T a
-  = E1
-
-instance Eq a => Show (T a) where
-    showsPrec = error "show"
-instance Eq a => Read (T a) where
-    readsPrec = error "read"