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