Skip to content

Commit 37c8eac

Browse files
committed
Cohttp-eio: Fix warning with older eio versions.
1 parent fc95efb commit 37c8eac

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

cohttp-eio/examples/client_timeout.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -9,7 +9,7 @@ let () =
99
Eio.Time.with_timeout env#clock timeout_s (fun () ->
1010
let host, port = ("www.example.org", 80) in
1111
let he = Unix.gethostbyname host in
12-
let addr = `Tcp (Eio_unix.Ipaddr.of_unix he.h_addr_list.(0), port) in
12+
let addr = `Tcp (Eio_unix.Net.Ipaddr.of_unix he.h_addr_list.(0), port) in
1313
let conn = Net.connect ~sw env#net addr in
1414
let res = Client.get ~conn ~port env ~host "/" in
1515
Client.read_fixed res |> Result.ok)

0 commit comments

Comments
 (0)