diff options
| author | Maxime Dénès | 2017-12-13 23:57:43 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2017-12-13 23:57:43 +0100 |
| commit | 671c4dbd064884a042d8f2bea5186ab5c7eaaeec (patch) | |
| tree | 5b96358dbceed10a46fa42ecde293c0fe8d6ce7a /stm/workerLoop.ml | |
| parent | b1aaedb9e728702cccdb1bd126a714d9e075d14c (diff) | |
| parent | 50159f9c1748ccf1d66341d171081a998d116d2f (diff) | |
Merge PR #1108: [stm] Reorganize flags
Diffstat (limited to 'stm/workerLoop.ml')
| -rw-r--r-- | stm/workerLoop.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/stm/workerLoop.ml b/stm/workerLoop.ml index 64121eb3d5..7041191869 100644 --- a/stm/workerLoop.ml +++ b/stm/workerLoop.ml @@ -6,6 +6,10 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) +(* Default priority *) +open CoqworkmgrApi +let async_proofs_worker_priority = ref Low + let rec parse = function | "--xml_format=Ppcmds" :: rest -> parse rest | x :: rest -> x :: parse rest @@ -15,5 +19,5 @@ let loop init args = let args = parse args in Flags.quiet := true; init (); - CoqworkmgrApi.init !Flags.async_proofs_worker_priority; + CoqworkmgrApi.init !async_proofs_worker_priority; args |