chore: Some comments and cleanup for LSP refactor (semgrep/semgrep-pr…

…oprietary#1964)

## Test plan
CI passes

synced from Pro 495eb8a5295495edd9348b376ab29d284fdf2da6

src/osemgrep/cli_lsp/Lsp_subcommand.ml

@@ -14,7 +14,7 @@ type caps = < Cap.random ; Cap.network ; Cap.tmp >
 (* Set IO here since it is specific to the LS entrypoint *)
 (* This one utilizes unix IO, but the JS version does not *)
 module Io : RPC_server.LSIO = struct
-  open
+  module RPC_IO =
     Lsp.Io.Make
       (struct
         include Lwt
@@ -46,15 +46,14 @@ module Io : RPC_server.LSIO = struct
           read_exactly [] n
       end)
 
-  let read () = read Lwt_io.stdin
-  let write packet = Lwt_io.atomic (fun oc -> write oc packet) Lwt_io.stdout
+  let read () = RPC_IO.read Lwt_io.stdin
+
+  let write packet =
+    Lwt_io.atomic (fun oc -> RPC_IO.write oc packet) Lwt_io.stdout
+
   let flush () = Lwt_io.flush Lwt_io.stdout
 end
 
-(*****************************************************************************)
-(* Helpers *)
-(*****************************************************************************)
-
 (*****************************************************************************)
 (* Main logic *)
 (*****************************************************************************)

src/osemgrep/language_server/server/RPC_server.ml

@@ -173,7 +173,7 @@ let set_async_exception_hook () =
   Lwt.async_exception_hook :=
     fun e ->
       Lwt.async (fun () ->
-          let error = notify_and_log_error "Uncaught async exception" e in
+          let error = notify_and_log_error "Uncaught exception" e in
           Lwt_list.iter_s send error)
 
 (* NOTE: this function is only used by the native version of the extension,