diff options
| author | Pierre-Marie Pédrot | 2020-05-15 13:46:59 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-05-15 13:46:59 +0200 |
| commit | b5b6e2d4c8347cb25da6f827a6b6f06cb0f566e5 (patch) | |
| tree | 74557075886e9ce7c8ac146425195ba48dd06584 /tactics/autorewrite.ml | |
| parent | bcfb5f2cab54d0eb88ed57911b77c05d2b916431 (diff) | |
| parent | e8bde450d05908f70ab2c82d9d24f0807c56a94a (diff) | |
Merge PR #11755: [exn] [tactics] improve backtraces on monadic errors
Ack-by: gares
Ack-by: ppedrot
Diffstat (limited to 'tactics/autorewrite.ml')
| -rw-r--r-- | tactics/autorewrite.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tactics/autorewrite.ml b/tactics/autorewrite.ml index ac83acd726..eaefa2947a 100644 --- a/tactics/autorewrite.ml +++ b/tactics/autorewrite.ml @@ -154,7 +154,8 @@ let gen_auto_multi_rewrite conds tac_main lbas cl = if not (Locusops.is_all_occurrences cl.concl_occs) && cl.concl_occs != NoOccurrences then - Tacticals.New.tclZEROMSG (str"The \"at\" syntax isn't available yet for the autorewrite tactic.") + let info = Exninfo.reify () in + Tacticals.New.tclZEROMSG ~info (str"The \"at\" syntax isn't available yet for the autorewrite tactic.") else let compose_tac t1 t2 = match cl.onhyps with @@ -185,7 +186,9 @@ let auto_multi_rewrite_with ?(conds=Naive) tac_main lbas cl = *) Proofview.V82.wrap_exceptions (fun () -> gen_auto_multi_rewrite conds tac_main lbas cl) | _ -> - Tacticals.New.tclZEROMSG (strbrk "autorewrite .. in .. using can only be used either with a unique hypothesis or on the conclusion.") + let info = Exninfo.reify () in + Tacticals.New.tclZEROMSG ~info + (strbrk "autorewrite .. in .. using can only be used either with a unique hypothesis or on the conclusion.") (* Functions necessary to the library object declaration *) let cache_hintrewrite (_,(rbase,lrl)) = |