Cohttp-eio: Fix warning with older eio versions.

mirage · Jun 14, 2023 · 37c8eac · 37c8eac
1 parent fc95efb
commit 37c8eac
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cohttp-eio/examples/client_timeout.ml b/cohttp-eio/examples/client_timeout.ml
@@ -9,7 +9,7 @@ let () =
   Eio.Time.with_timeout env#clock timeout_s (fun () ->
       let host, port = ("www.example.org", 80) in
       let he = Unix.gethostbyname host in
-      let addr = `Tcp (Eio_unix.Ipaddr.of_unix he.h_addr_list.(0), port) in
+      let addr = `Tcp (Eio_unix.Net.Ipaddr.of_unix he.h_addr_list.(0), port) in
       let conn = Net.connect ~sw env#net addr in
       let res = Client.get ~conn ~port env ~host "/" in
       Client.read_fixed res |> Result.ok)