diff options
| author | Daniil Baturin <daniil@baturin.org> | 2017-12-12 21:00:33 +0000 |
|---|---|---|
| committer | Daniil Baturin <daniil@baturin.org> | 2017-12-12 21:00:33 +0000 |
| commit | 02708b5fc0daa6dbcab6a12128663878c31da352 (patch) | |
| tree | a2e4f47b984d630385930566c23d1b6b2ebaec1b | |
| parent | 4a6a8a394bd80ad353a95ac9d6f4b3eb009be9bb (diff) | |
| download | vyconf-02708b5fc0daa6dbcab6a12128663878c31da352.tar.gz vyconf-02708b5fc0daa6dbcab6a12128663878c31da352.zip | |
Lwt is luckily past 3.0 now, remove stuff that needed versioned functions.
| -rw-r--r-- | src/startup.ml | 3 |
1 files changed, 1 insertions, 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 |