blob: a158d8f75599fd849e0cda45fcafa4a476ea5d93 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Index: ocaml-dns-0.20.0/lwt/dns_server_unix.ml
===================================================================
--- ocaml-dns-0.20.0.orig/lwt/dns_server_unix.ml
+++ ocaml-dns-0.20.0/lwt/dns_server_unix.ml
@@ -31,10 +31,10 @@ let bind_fd ~address ~port =
let err = sp "cannot resolve %s: %s" address (Printexc.to_string exn) in
Lwt.fail (Failure err))
in
- src >|= fun src ->
+ src >>= fun src ->
let fd = Lwt_unix.(socket PF_INET SOCK_DGRAM 0) in
- let () = Lwt_unix.bind fd src in
- (fd, src)
+ Lwt_unix.bind fd src >>= fun () ->
+ Lwt.return (fd, src)
let eventual_process_of_zonefiles zonefiles =
Lwt_list.map_s (fun zonefile ->
|
GitWeb
