fix(kernel/type_checker): error message position information

Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-07-26 20:33:44 -07:00
parent cb232f2a9b
commit 8e402ae862

View file

@ -281,7 +281,7 @@ expr type_checker::infer_app(expr const & e, bool infer_only) {
expr a_type = infer_type_core(app_arg(e), infer_only); expr a_type = infer_type_core(app_arg(e), infer_only);
app_delayed_justification jst(e, f_type, a_type); app_delayed_justification jst(e, f_type, a_type);
if (!is_def_eq(a_type, binding_domain(f_type), jst)) { if (!is_def_eq(a_type, binding_domain(f_type), jst)) {
throw_kernel_exception(m_env, app_arg(e), throw_kernel_exception(m_env, e,
[=](formatter const & fmt) { [=](formatter const & fmt) {
return pp_app_type_mismatch(fmt, e, binding_domain(f_type), a_type); return pp_app_type_mismatch(fmt, e, binding_domain(f_type), a_type);
}); });