michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

feat(kernel/type_checker): use argument position when reporting application type mismatch errors

Browse source 
Signed-off-by: Leonardo de Moura <leonardo@microsoft.com>
This commit is contained in:
Leonardo de Moura 2014-06-15 10:06:53 -07:00
parent 9b389a96d5
commit 961b0bfacf
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/kernel/type_checker.cpp
View file

@ -264,7 +264,7 @@ struct type_checker::imp {
virtual justification get() { virtual justification get() {
if (!m_jst) { if (!m_jst) {
m_jst = mk_justification(m_e, m_jst = mk_justification(app_arg(m_e),
[=](formatter const & fmt, options const & o, substitution const & subst) { [=](formatter const & fmt, options const & o, substitution const & subst) {
return pp_app_type_mismatch(fmt, m_env, o, return pp_app_type_mismatch(fmt, m_env, o,
subst.instantiate_metavars_wo_jst(m_e), subst.instantiate_metavars_wo_jst(m_e),
@ -362,7 +362,7 @@ struct type_checker::imp {
app_delayed_jst jst(m_env, e, f_type, a_type); app_delayed_jst jst(m_env, 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)) {
environment env = m_env; environment env = m_env;
throw_kernel_exception(m_env, e, throw_kernel_exception(m_env, app_arg(e),
[=](formatter const & fmt, options const & o) { [=](formatter const & fmt, options const & o) {
return pp_app_type_mismatch(fmt, env, o, e, binding_domain(f_type), a_type); return pp_app_type_mismatch(fmt, env, o, e, binding_domain(f_type), a_type);
}); });