From dec0b8b0731f2e8976e436e11e4f6b7ea4db7f30 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 18 Dec 2000 14:54:08 +0000
Subject: [PATCH] [project @ 2000-12-18 14:54:08 by simonpj] Fix error message

---
 ghc/compiler/rename/RnExpr.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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