From 97372c19ce6514f598f4dcf3211b6801699ab133 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Wed, 28 Jul 1999 15:34:39 +0000
Subject: [PATCH] [project @ 1999-07-28 15:34:39 by simonpj] Improve error msg
 in tcPolyExpr; Simon pls merge into release

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

diff --git a/ghc/compiler/typecheck/TcExpr.lhs b/ghc/compiler/typecheck/TcExpr.lhs
index b9960e6..32a2eb2 100644
--- a/ghc/compiler/typecheck/TcExpr.lhs
+++ b/ghc/compiler/typecheck/TcExpr.lhs
@@ -143,7 +143,7 @@ tcPolyExpr arg expected_arg_ty
     newDicts SignatureOrigin sig_theta		`thenNF_Tc` \ (sig_dicts, dict_ids) ->
 	-- ToDo: better origin
     tcSimplifyAndCheck 
-	(text "tcPolyExpr")
+	(text "the type signature of an expression")
 	(mkVarSet zonked_sig_tyvars)
 	sig_dicts lie_arg			`thenTc` \ (free_insts, inst_binds) ->
 
-- 
1.7.10.4