Skip to content

Commit

Permalink
Revert "Mitigate ocaml/ocaml#11737."
Browse files Browse the repository at this point in the history
This reverts commit c31a33a.
  • Loading branch information
mlasson committed Nov 20, 2022
1 parent c31a33a commit b06c654
Showing 1 changed file with 5 additions and 10 deletions.
15 changes: 5 additions & 10 deletions ocaml-lsp-server/src/dune.ml
Expand Up @@ -818,16 +818,11 @@ let run_loop t =
match !t with
| Closed -> Fiber.return None
| Active active ->
if Sys.win32 then
(* Mitigate issue ocaml/ocaml#11737; see ocaml/ocaml-lsp#929.
Should be reverted as soon as "ocaml 4.14.0" is no longer supported. *)
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* 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 () ->
Expand Down

0 comments on commit b06c654

Please sign in to comment.