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 /proofs/proof.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 'proofs/proof.ml')
| -rw-r--r-- | proofs/proof.ml | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/proofs/proof.ml b/proofs/proof.ml index 75aca7e7ff..175c487958 100644 --- a/proofs/proof.ml +++ b/proofs/proof.ml @@ -525,7 +525,10 @@ let solve ?with_end_tac gi info_lvl tac pr = | None -> tac | Some _ -> Proofview.Trace.record_info_trace tac in - let nosuchgoal = Proofview.tclZERO (SuggestNoSuchGoals (1,pr)) in + let nosuchgoal = + let info = Exninfo.reify () in + Proofview.tclZERO ~info (SuggestNoSuchGoals (1,pr)) + in let tac = let open Goal_select in match gi with | SelectAlreadyFocused -> let open Proofview.Notations in @@ -537,7 +540,8 @@ let solve ?with_end_tac gi info_lvl tac pr = Pp.(str "Expected a single focused goal but " ++ int n ++ str " goals are focused.")) in - Proofview.tclZERO e + let info = Exninfo.reify () in + Proofview.tclZERO ~info e | SelectNth i -> Proofview.tclFOCUS ~nosuchgoal i i tac | SelectList l -> Proofview.tclFOCUSLIST ~nosuchgoal l tac |