Skip to content
Snippets Groups Projects
Commit 374b2467 authored by Loïc Correnson's avatar Loïc Correnson
Browse files

[wp] protected exceptions

parent 07f53874
No related branches found
No related tags found
No related merge requests found
......@@ -1239,3 +1239,13 @@ let print_generated ?header file =
end
(* -------------------------------------------------------------------------- *)
(* --- Debugging --- *)
(* -------------------------------------------------------------------------- *)
let protect e =
if debug_atleast 1 then false else
match e with
| Db.Cancel | Log.AbortError _ | Log.AbortFatal _ -> false
| _ -> true
(* -------------------------------------------------------------------------- *)
......@@ -175,3 +175,5 @@ val print_generated: ?header:string -> string -> unit
(** print the given file if the debugging category
"print-generated" is set *)
val cat_print_generated: category
val protect : exn -> bool
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