[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / rename / should_fail / rnfail008.hs

diff --git a/ghc/tests/rename/should_fail/rnfail008.hs b/ghc/tests/rename/should_fail/rnfail008.hs
deleted file mode 100644 (file)
index 196214a..0000000
--- a/ghc/tests/rename/should_fail/rnfail008.hs
+++ /dev/null
@@ -1,19 +0,0 @@
--- !!! Class and instance decl
-
-module Test where
-
-class K a where
-       op1 :: a -> a -> a
-       op2 :: Int -> a
-
-instance K Int where
-       op1 a b = a+b
-       op2 x   = x
-
-instance K Bool where
-       op1 a b = a
-       -- Pick up the default decl for op2
-       
-instance K [a] where
-       op3 a = a       -- Oops!  Isn't a class op of K
-