diff options
author | Enrico Tassi <Enrico.Tassi@inria.fr> | 2016-06-05 21:21:43 +0200 |
---|---|---|
committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2016-06-06 14:04:33 -0400 |
commit | 845dd3dd17b880999a956839c0d84d46de9e27b8 (patch) | |
tree | 10897262434b5bfa6a78bceaac8cab33ca7acd1b /lib | |
parent | e4d66a03148243f7611f4d7c164e775877184e03 (diff) |
STM: each proof block can be enabled separately
By default we enable only {} and par: that are detectable in
a complete way.
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 ecf3c3f16..e78fa7c0c 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 b26ef027c..d729be385 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 |