Close channels when dune disconnects

Signed-off-by: Rudi Grinberg <[email protected]>

Author: rgrinberg

ocaml-lsp-server/src/dune.ml

@@ -92,7 +92,8 @@ end = struct
     let+ (_ : Unix.process_status) = Scheduler.wait_for_process t.pid in
     Scheduler.stop t.in_thread;
     Scheduler.stop t.out_thread;
-    ()
+    close_out_noerr t.out_chan;
+    close_in_noerr t.in_chan
 end
 
 module Client =

ocaml-lsp-server/src/progress.ml

@@ -1,8 +1,8 @@
 open Import
 
 type enabled =
-  (* TODO this needs to be mutexed *)
-  { mutable token : ProgressToken.t option
+  { (* TODO this needs to be mutexed *)
+    mutable token : ProgressToken.t option
   ; mutable build_counter : int
   ; report_progress :
       Server_notification.Progress.t ProgressParams.t -> unit Fiber.t