diff --git a/ocaml-lsp-server/src/dune.ml b/ocaml-lsp-server/src/dune.ml index d54df7941..04171e9e7 100644 --- a/ocaml-lsp-server/src/dune.ml +++ b/ocaml-lsp-server/src/dune.ml @@ -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 () ->