use close-notify for unidirectional shutdown

ocaml-ssl's shutdown does a bi-directional shutdown.
mirage · Jan 2, 2022 · 522b536 · 522b536
1 parent 8f57835
commit 522b536
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/conduit-lwt-unix/conduit_lwt_unix_ssl.real.ml b/src/conduit-lwt-unix/conduit_lwt_unix_ssl.real.ml
@@ -22,7 +22,9 @@ let () = Ssl.init ()
 let chans_of_fd sock =
   let is_open = ref true in
   let shutdown () =
-    if !is_open then Lwt_ssl.ssl_shutdown sock else Lwt.return_unit
+    if !is_open
+    then Lwt_ssl.close_notify sock >|= ignore
+    else Lwt.return_unit
   in
   let close () =
     is_open := false;