From: simonpj <unknown>
Date: Thu, 4 Jul 2002 13:06:28 +0000 (+0000)
Subject: [project @ 2002-07-04 13:06:28 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~1886
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f087e1b53f70e41b7cc91ad1b117967710da2288;p=ghc-hetmet.git

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