Not reinventing hot water

OCamlPro · Aug 26, 2024 · ed9b9a4 · ed9b9a4
1 parent ee7e447
commit ed9b9a4
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 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
@@ -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
@@ -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
@@ -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 ()