[project @ 1997-07-31 00:05:10 by sof]

[ghc-hetmet.git] / ghc / compiler / tests / typecheck / should_fail / tcfail071.hs

diff --git a/ghc/compiler/tests/typecheck/should_fail/tcfail071.hs b/ghc/compiler/tests/typecheck/should_fail/tcfail071.hs
deleted file mode 100644 (file)
index 4958728..0000000
--- a/ghc/compiler/tests/typecheck/should_fail/tcfail071.hs
+++ /dev/null
@@ -1,10 +0,0 @@
---!!! Mis-matched contexts in a mutually recursive group
-
-module Foo7( f ) where
-
-f :: (Ord c) => c -> c
-f c = g c
-
-g :: c -> c
-g c = c
-  where p = foldr (f c) [] []