aboutsummaryrefslogtreecommitdiffhomepage
path: root/stm/proofworkertop.ml
diff options
context:
space:
mode:
Diffstat (limited to 'stm/proofworkertop.ml')
-rw-r--r--stm/proofworkertop.ml6
1 files changed, 1 insertions, 5 deletions
diff --git a/stm/proofworkertop.ml b/stm/proofworkertop.ml
index 23538a467..0d2f9cb74 100644
--- a/stm/proofworkertop.ml
+++ b/stm/proofworkertop.ml
@@ -8,11 +8,7 @@
module W = AsyncTaskQueue.MakeWorker(Stm.ProofTask)
-let () = Coqtop.toploop_init := (fun args ->
- Flags.make_silent true;
- W.init_stdout ();
- CoqworkmgrApi.init !Flags.async_proofs_worker_priority;
- args)
+let () = Coqtop.toploop_init := WorkerLoop.loop W.init_stdout
let () = Coqtop.toploop_run := W.main_loop