[project @ 2000-12-18 14:54:08 by simonpj]

Fix error message

diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs
index 009facd..40e3f9e 100644 (file)
--- a/ghc/compiler/rename/RnExpr.lhs
+++ b/ghc/compiler/rename/RnExpr.lhs
@@ -174,7 +174,7 @@ rnMatch match@(Match _ pats maybe_rhs_sig grhss)
        tyvars_in_pats = extractPatsTyVars pats
        forall_tyvars  = filter (not . (`elemFM` name_env)) tyvars_in_sigs
        doc_sig        = text "a pattern type-signature"
-       doc_pats       = text "in a pattern match"
+       doc_pats       = text "a pattern match"
     in
     bindNakedTyVarsFVRn doc_sig forall_tyvars  $ \ sig_tyvars ->