diff options
Diffstat (limited to 'tactics/hints.ml')
| -rw-r--r-- | tactics/hints.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tactics/hints.ml b/tactics/hints.ml index 5fb519cc4f..a0670ef70d 100644 --- a/tactics/hints.ml +++ b/tactics/hints.ml @@ -1570,6 +1570,8 @@ let run_hint tac k = match warn_hint () with else Proofview.tclTHEN (log_hint tac) (k tac.obj) | HintStrict -> if is_imported tac then k tac.obj - else Proofview.tclZERO (UserError (None, (str "Tactic failure."))) + else + let info = Exninfo.reify () in + Proofview.tclZERO ~info (UserError (None, (str "Tactic failure."))) let repr_hint h = h.obj |