aboutsummaryrefslogtreecommitdiffhomepage
path: root/stm/proofworkertop.ml
diff options
context:
space:
mode:
Diffstat (limited to 'stm/proofworkertop.ml')
-rw-r--r--stm/proofworkertop.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/stm/proofworkertop.ml b/stm/proofworkertop.ml
index 95012d984..a27c6d6cd 100644
--- a/stm/proofworkertop.ml
+++ b/stm/proofworkertop.ml
@@ -10,5 +10,5 @@ module W = AsyncTaskQueue.MakeWorker(Stm.ProofTask)
let () = Coqtop.toploop_init := WorkerLoop.loop W.init_stdout
-let () = Coqtop.toploop_run := W.main_loop
+let () = Coqtop.toploop_run := (fun _ -> W.main_loop ())