diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/flags.ml | 3 | ||||
| -rw-r--r-- | lib/flags.mli | 3 |
2 files changed, 4 insertions, 2 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index ecf3c3f168..e78fa7c0c9 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -68,7 +68,8 @@ let priority_of_string = function | "low" -> Low | "high" -> High | _ -> raise (Invalid_argument "priority_of_string") -let async_proofs_tac_error_resilience = ref true +type tac_error_filter = [ `None | `Only of string list | `All ] +let async_proofs_tac_error_resilience = ref (`Only [ "par" ; "proof-block" ]) let async_proofs_cmd_error_resilience = ref true let async_proofs_is_worker () = diff --git a/lib/flags.mli b/lib/flags.mli index b26ef027c6..d729be385b 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -34,7 +34,8 @@ type priority = Low | High val async_proofs_worker_priority : priority ref val string_of_priority : priority -> string val priority_of_string : string -> priority -val async_proofs_tac_error_resilience : bool ref +type tac_error_filter = [ `None | `Only of string list | `All ] +val async_proofs_tac_error_resilience : tac_error_filter ref val async_proofs_cmd_error_resilience : bool ref val debug : bool ref |