gluten-lwt-unix: use close-notify (#44)

* gluten-lwt-unix: use close-notify * flake.lock
anmonteiro · Sep 27, 2022 · 4c1bea4 · 4c1bea4
1 parent 31e5abf
commit 4c1bea4
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 8 deletions.
diff --git a/flake.lock b/flake.lock
diff --git a/lwt-unix/ssl_io.real.ml b/lwt-unix/ssl_io.real.ml
@@ -47,7 +47,7 @@ struct
     | _ ->
       Lwt.catch
         (fun () ->
-          Lwt_ssl.ssl_shutdown ssl >>= fun () ->
+          Lwt_ssl.close_notify ssl >>= fun _shutdown ->
           Lwt.wrap2 Lwt_ssl.shutdown ssl Unix.SHUTDOWN_ALL >>= fun () ->
           Lwt_ssl.close ssl)
         (function