From f087e1b53f70e41b7cc91ad1b117967710da2288 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 4 Jul 2002 13:06:28 +0000
Subject: [PATCH] [project @ 2002-07-04 13:06:28 by simonpj] Fix error message

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

diff --git a/ghc/compiler/typecheck/TcMatches.lhs b/ghc/compiler/typecheck/TcMatches.lhs
index abf79d0..516c822 100644
--- a/ghc/compiler/typecheck/TcMatches.lhs
+++ b/ghc/compiler/typecheck/TcMatches.lhs
@@ -302,7 +302,7 @@ tcCheckExistentialPat ex_tvs ex_ids ex_lie lie_req match_ty
 
     returnTc (lie2, dict_binds `AndMonoBinds` inst_binds)
   where
-    doc     = text ("the existential context of a data constructor")
+    doc     = text ("existential context of a data constructor")
     tv_list = bagToList ex_tvs
     not_overloaded id = not (isOverloadedTy (idType id))
 \end{code}
-- 
1.7.10.4