Skip to content

Commit

Permalink
use close-notify for unidirectional shutdown
Browse files Browse the repository at this point in the history
ocaml-ssl's shutdown does a bi-directional shutdown.
  • Loading branch information
Christopher Zimmermann committed Jan 2, 2022
1 parent 8f57835 commit 522b536
Showing 1 changed file with 3 additions and 1 deletion.
4 changes: 3 additions & 1 deletion src/conduit-lwt-unix/conduit_lwt_unix_ssl.real.ml
Original file line number Diff line number Diff line change
Expand Up @@ -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;
Expand Down

0 comments on commit 522b536

Please sign in to comment.