From ed9b9a4f964ac293790e1d1ff55136c00cb9492b Mon Sep 17 00:00:00 2001 From: Steven de Oliveira Date: Mon, 26 Aug 2024 17:28:53 +0200 Subject: [PATCH] Not reinventing hot water --- src/vendor/vscode-ocaml-platform/src-bindings/node/node.ml | 2 -- src/vendor/vscode-ocaml-platform/src-bindings/node/node.mli | 2 +- src/vscode/superbol-vscode-platform/superbol_instance.ml | 2 +- 3 files changed, 2 insertions(+), 4 deletions(-) diff --git a/src/vendor/vscode-ocaml-platform/src-bindings/node/node.ml b/src/vendor/vscode-ocaml-platform/src-bindings/node/node.ml index db0b98059..42e268dfd 100644 --- a/src/vendor/vscode-ocaml-platform/src-bindings/node/node.ml +++ b/src/vendor/vscode-ocaml-platform/src-bindings/node/node.ml @@ -198,8 +198,6 @@ module Net = struct module Socket = struct include Class.Make () - let to_ojs (t : t) : Ojs.t = (t :> Ojs.t) - include [%js: val make : unit -> t [@@js.new "net.Socket"] diff --git a/src/vendor/vscode-ocaml-platform/src-bindings/node/node.mli b/src/vendor/vscode-ocaml-platform/src-bindings/node/node.mli index d67fce7e0..47b29052f 100644 --- a/src/vendor/vscode-ocaml-platform/src-bindings/node/node.mli +++ b/src/vendor/vscode-ocaml-platform/src-bindings/node/node.mli @@ -156,7 +156,7 @@ module Net : sig module Socket : sig type t - val to_ojs : t -> Ojs.t + val t_to_js : t -> Ojs.t val make : unit -> t diff --git a/src/vscode/superbol-vscode-platform/superbol_instance.ml b/src/vscode/superbol-vscode-platform/superbol_instance.ml index cada9a3b2..9cbda8728 100644 --- a/src/vscode/superbol-vscode-platform/superbol_instance.ml +++ b/src/vscode/superbol-vscode-platform/superbol_instance.ml @@ -71,7 +71,7 @@ let start_language_server ({ context; _ } as t) = LanguageClient.make_stream ~id ~name begin fun () -> let socket = (* Vscode_languageclient.StreamInfo.njs_stream_of_socket @@ *) - Node.Net.Socket.(to_ojs (connect (make ()) ~host ~port)) + Node.Net.Socket.(t_to_js (connect (make ()) ~host ~port)) in Promise.return @@ Vscode_languageclient.StreamInfo.create ()