diff options
| author | Emilio Jesus Gallego Arias | 2020-01-30 23:00:40 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-02-24 12:41:28 -0500 |
| commit | 5f5b8a1fdfc71ae93f75d5bfa2d6bb2920a2f4d1 (patch) | |
| tree | c2236854ca6d3de29cbe5e6d42e11766c4115ddb /engine/proofview.ml | |
| parent | 46fe9b26ad55a266b71bbd428ee406b03a9db030 (diff) | |
[exn] remove `raise` taking optional exception information argument
This was redundant with `iraise`; exceptions in the logic monad now
are forced to attach `info` to `Proofview.NonLogical.raise`
Diffstat (limited to 'engine/proofview.ml')
| -rw-r--r-- | engine/proofview.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/engine/proofview.ml b/engine/proofview.ml index b0ea75ac60..690b1620b9 100644 --- a/engine/proofview.ml +++ b/engine/proofview.ml @@ -937,7 +937,7 @@ let tclTIMEOUT n t = return (Util.Inr (Logic_monad.Tac_Timeout, info)) | Logic_monad.TacticFailure e -> return (Util.Inr (e, info)) - | e -> Logic_monad.NonLogical.raise ~info e + | e -> Logic_monad.NonLogical.raise (e, info) end end >>= function | Util.Inl (res,s,m,i) -> |