Mitigate ocaml/ocaml#11737.

mlasson · Nov 21, 2022 · 163638a · 163638a
1 parent fa055c3
commit 163638a
Showing 1 changed file with 8 additions and 5 deletions.
diff --git a/ocaml-lsp-server/src/dune.ml b/ocaml-lsp-server/src/dune.ml
@@ -818,11 +818,14 @@ let run_loop t =
       match !t with
       | Closed -> Fiber.return None
       | Active active ->
-        let* state = poll active state in
-        (* TODO make this a bit more dynamic. if poll completes fast, wait more,
-           if it's slow, then wait less *)
-        let+ () = Lev_fiber.Timer.sleepf 0.25 in
-        Some state)
+        if Sys.win32 then
+          Fiber.return None
+        else
+          let* state = poll active state in
+          (* TODO make this a bit more dynamic. if poll completes fast, wait more,
+             if it's slow, then wait less *)
+          let+ () = Lev_fiber.Timer.sleepf 0.25 in
+          Some state)
 
 let run t : unit Fiber.t =
   Fiber.of_thunk (fun () ->