From 28d7de39837faaff5cc31eab092a2cd2fe1b2ace Mon Sep 17 00:00:00 2001 From: Akanksha Mathur Date: Mon, 29 Jan 2018 15:04:06 +0000 Subject: [PATCH] Lwt_unix.{Versioned.bind_2 -> bind} Change affects lib/channel_helpers when running `make test` Signed-off-by: Akanksha Mathur --- lib/channel_helper.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/channel_helper.ml b/lib/channel_helper.ml index 18f75b0a..b0524790 100644 --- a/lib/channel_helper.ml +++ b/lib/channel_helper.ml @@ -82,7 +82,7 @@ let advertise_t _common_options_t proxy_socket = let s_ip = Lwt_unix.socket Lwt_unix.PF_INET Lwt_unix.SOCK_STREAM 0 in (* INET socket, can't block *) - Lwt_unix.Versioned.bind_2 s_ip (Lwt_unix.ADDR_INET(Unix.inet_addr_of_string !ip, 0)) >>= fun () -> + Lwt_unix.bind s_ip (Lwt_unix.ADDR_INET(Unix.inet_addr_of_string !ip, 0)) >>= fun () -> Lwt_unix.listen s_ip 5; let port = match Lwt_unix.getsockname s_ip with | Unix.ADDR_INET(_, port) -> port @@ -94,7 +94,7 @@ let advertise_t _common_options_t proxy_socket = let path = Printf.sprintf "%s/%s.%d" !unix (Filename.basename Sys.argv.(0)) (Unix.getpid ()) in if Sys.file_exists path then Unix.unlink path; - Lwt_unix.Versioned.bind_2 s_unix (Lwt_unix.ADDR_UNIX path) >>= fun () -> + Lwt_unix.bind s_unix (Lwt_unix.ADDR_UNIX path) >>= fun () -> List.iter (fun signal -> ignore(Lwt_unix.on_signal signal (fun _ -> Unix.unlink path; exit 1)) ) [ Sys.sigterm; Sys.sigint ];