Skip to content
Snippets Groups Projects
Commit 848716d5 authored by Virgile Prevosto's avatar Virgile Prevosto
Browse files

[log] reset deferred_exn when treating the exception

parent 0edfab59
No related branches found
No related tags found
No related merge requests found
......@@ -569,6 +569,8 @@ let update_deferred_exn exn =
let warn_event_as_error event = update_deferred_exn (DWarn_as_error event)
let deferred_raise ~fatal ~unreported event msg =
(* reset deferred flag. *)
let () = deferred_exn := DNo_exn in
let channel = new_channel event.evt_plugin in
let append =
if unreported then None else
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment