[project @ 2002-07-04 13:06:28 by simonpj]

Fix error message

diff --git a/ghc/compiler/typecheck/TcMatches.lhs b/ghc/compiler/typecheck/TcMatches.lhs
index abf79d0..516c822 100644 (file)
--- 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}