From 02708b5fc0daa6dbcab6a12128663878c31da352 Mon Sep 17 00:00:00 2001
From: Daniil Baturin <daniil@baturin.org>
Date: Tue, 12 Dec 2017 21:00:33 +0000
Subject: Lwt is luckily past 3.0 now, remove stuff that needed versioned
 functions.

---
 src/startup.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/startup.ml b/src/startup.ml
index 1c25bed..8e1cd9a 100644
--- a/src/startup.ml
+++ b/src/startup.ml
@@ -48,8 +48,7 @@ let create_socket sockfile =
     let open Lwt_unix in
     let backlog = 10 in
     let%lwt sock = socket PF_UNIX SOCK_STREAM 0 |> Lwt.return in
-    (* XXX: replace with just bind after Lwt 3.0.0 release *)
-    let%lwt () = Lwt_unix.Versioned.bind_2 sock @@ ADDR_UNIX(sockfile) in
+    let%lwt () = Lwt_unix.bind sock @@ ADDR_UNIX(sockfile) in
     listen sock backlog;
     Lwt.return sock
 
-- 
cgit v1.2.3