examples: switch from C.connect_readonly to connect_auth_readonly

[ocaml-libvirt.git] / examples / list_domains.ml

diff --git a/examples/list_domains.ml b/examples/list_domains.ml
index 5cd93c7..87ccd8c 100644 (file)
--- a/examples/list_domains.ml
+++ b/examples/list_domains.ml
@@ -26,7 +26,7 @@ let () =
        Some (Sys.argv.(1))
       else
        None in
-    let conn = C.connect_readonly ?name () in
+    let conn = C.connect_auth_readonly ?name (C.get_auth_default ()) in
 
     (* List all domains (running and inactive). *)
     let domains = D.get_domains_and_infos conn [D.ListAll] in