diff options
| author | simonpj <unknown> | 1999-07-28 15:34:39 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 1999-07-28 15:34:39 +0000 |
| commit | 97372c19ce6514f598f4dcf3211b6801699ab133 (patch) | |
| tree | 21e5ecafd8596ee9c7c9cc5693f1a6dceb71c135 /ghc | |
| parent | f7fd588d8549b81d0ebcd1857a520052a94de9d2 (diff) | |
| download | haskell-97372c19ce6514f598f4dcf3211b6801699ab133.tar.gz | |
[project @ 1999-07-28 15:34:39 by simonpj]
Improve error msg in tcPolyExpr; Simon pls merge into release
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/compiler/typecheck/TcExpr.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/typecheck/TcExpr.lhs b/ghc/compiler/typecheck/TcExpr.lhs index b9960e6c2d..32a2eb23f0 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) -> |