[project @ 1999-07-28 15:34:39 by simonpj]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcExpr.lhs

diff --git a/ghc/compiler/typecheck/TcExpr.lhs b/ghc/compiler/typecheck/TcExpr.lhs
index b9960e6..32a2eb2 100644 (file)
--- 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) ->