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 b9960e6c2df4..32a2eb23f039 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) ->
--
GitLab