diff options
Diffstat (limited to 'vernac/explainErr.ml')
| -rw-r--r-- | vernac/explainErr.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/vernac/explainErr.ml b/vernac/explainErr.ml index 2c99f35d4..04841c922 100644 --- a/vernac/explainErr.ml +++ b/vernac/explainErr.ml @@ -57,6 +57,7 @@ let process_vernac_interp_error exn = match fst exn with mt() in wrap_vernac_error exn (str "Universe inconsistency" ++ msg ++ str ".") | TypeError(ctx,te) -> + let te = Himsg.map_ptype_error EConstr.of_constr te in wrap_vernac_error exn (Himsg.explain_type_error ctx Evd.empty te) | PretypeError(ctx,sigma,te) -> wrap_vernac_error exn (Himsg.explain_pretype_error ctx sigma te) |