chore(examples): use ctx value in docker_lwt

ps-id: 1DE4EDCB-06CC-4035-AA01-7F60B8FFF92A
mirage · May 2, 2022 · 0a586d7 · 0a586d7
1 parent 55bcbf2
commit 0a586d7
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/examples/lwt_unix_doc/docker_lwt.ml b/examples/lwt_unix_doc/docker_lwt.ml
@@ -1,8 +1,16 @@
 open Lwt.Infix
-open Cohttp_lwt_unix
+
+let ctx =
+  let resolver =
+    let h = Hashtbl.create 1 in
+    Hashtbl.add h "docker" (`Unix_domain_socket "/var/run/docker.sock");
+    Resolver_lwt_unix.static h
+  in
+  Cohttp_lwt_unix.Client.custom_ctx ~resolver ()
 
 let t =
-  Client.get (Uri.of_string "http://docker/version") >>= fun (resp, body) ->
+  Cohttp_lwt_unix.Client.get ~ctx (Uri.of_string "http://docker/version")
+  >>= fun (resp, body) ->
   let open Cohttp in
   let code = resp |> Response.status |> Code.code_of_status in
   Printf.printf "Response code: %d\n" code;