diff options
Diffstat (limited to 'lib/flags.ml')
| -rw-r--r-- | lib/flags.ml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index 75f149eb6..790acfef5 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -57,6 +57,13 @@ let async_proofs_always_delegate = ref false let async_proofs_never_reopen_branch = ref false let async_proofs_flags_for_workers = ref [] let async_proofs_worker_id = ref "master" +type priority = Low | High +let async_proofs_worker_priority = ref Low +let string_of_priority = function Low -> "low" | High -> "high" +let priority_of_string = function + | "low" -> Low + | "high" -> High + | _ -> raise (Invalid_argument "priority_of_string") let async_proofs_is_worker () = !async_proofs_worker_id <> "master" |