[project @ 2001-06-20 16:13:06 by sewardj]

Quite a significant number of your typechecker tests are belong to
fptools/testsuite.

1 files changed, 18 insertions, 0 deletions

diff --git a/testsuite/tests/ghc-regress/typecheck/should_compile/tc043.hs b/testsuite/tests/ghc-regress/typecheck/should_compile/tc043.hs
new file mode 100644
index 0000000000..2a2e5f050c
--- /dev/null
+++ b/testsuite/tests/ghc-regress/typecheck/should_compile/tc043.hs
@@ -0,0 +1,18 @@
+module ShouldSucceed where
+
+-- !!! another simple test of class and instance code.
+
+class A a where
+ op1 :: a
+
+instance A Int where
+ op1 = 2
+
+f x = op1
+
+class B b where
+ op2 :: b -> Int
+
+instance (B a) => B [a] where
+ op2 [] = 0
+ op2 (x:xs) = 1 + op2 xs