diff --git a/ocaml-lsp-server/src/ocaml_lsp_server.ml b/ocaml-lsp-server/src/ocaml_lsp_server.ml index 8119ab90d..c582cafaf 100644 --- a/ocaml-lsp-server/src/ocaml_lsp_server.ml +++ b/ocaml-lsp-server/src/ocaml_lsp_server.ml @@ -984,31 +984,8 @@ let start () = Server.Handler.make ~on_request ~on_notification () in let* stream = - let+ stdin, stdout = - if Sys.win32 then - let* stdin = - Lev_fiber.Io.create (Lev_fiber.Fd.create Unix.stdin `Blocking) Input - in - let+ stdout = - Lev_fiber.Io.create (Lev_fiber.Fd.create Unix.stdout `Blocking) Output - in - (stdin, stdout) - else ( - Unix.set_nonblock Unix.stdin; - Unix.set_nonblock Unix.stdout; - let* stdin = - Lev_fiber.Io.create - (Lev_fiber.Fd.create Unix.stdin (`Non_blocking true)) - Input - in - let+ stdout = - Lev_fiber.Io.create - (Lev_fiber.Fd.create Unix.stdout (`Non_blocking true)) - Output - in - (stdin, stdout) - ) - in + let* stdin = Lev_fiber.Io.stdin in + let+ stdout = Lev_fiber.Io.stdout in Lsp_fiber.Fiber_io.make stdin stdout in let configuration = Configuration.default in diff --git a/submodules/lev b/submodules/lev index 1fbc99f2a..2d0392ea1 160000 --- a/submodules/lev +++ b/submodules/lev @@ -1 +1 @@ -Subproject commit 1fbc99f2ac9354a3106b51d9c9d56c8444c40b2c +Subproject commit 2d0392ea15ded91967cc67f764dd10ea70e3dac8