X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=examples%2Fget_all_domain_stats.ml;h=68b7160adad194236d4f71bc99139f515796a2f2;hb=c338d3194fb5969c927ece7d4fd09569d54b203b;hp=be91f77ea9678aa688b235b39cc934e005c0662e;hpb=3169af3337938e18bf9ecc6ce936d644e14ff3de;p=ocaml-libvirt.git

diff --git a/examples/get_all_domain_stats.ml b/examples/get_all_domain_stats.ml
index be91f77..68b7160 100644
--- a/examples/get_all_domain_stats.ml
+++ b/examples/get_all_domain_stats.ml
@@ -39,7 +39,7 @@ let () =
     exit 1
   );
 
-  let conn = C.connect_readonly () in
+  let conn = C.connect_auth_readonly (C.get_auth_default ()) in
 
   let what = [
     D.StatsState;