From: simonpj <unknown>
Date: Mon, 18 Dec 2000 14:54:08 +0000 (+0000)
Subject: [project @ 2000-12-18 14:54:08 by simonpj]
X-Git-Tag: Approximately_9120_patches~3075
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=dec0b8b0731f2e8976e436e11e4f6b7ea4db7f30;p=ghc-hetmet.git

[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
--- 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 ->