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 a1fe50c63..928a6bfb0 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 := (fun _ -> W.main_loop ())
+let () = Coqtop.toploop_run := (fun _ _ -> W.main_loop ())