summaryrefslogtreecommitdiffstats
path: root/examples/list_domains.ml
diff options
context:
space:
mode:
Diffstat (limited to 'examples/list_domains.ml')
-rw-r--r--[-rwxr-xr-x]examples/list_domains.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/list_domains.ml b/examples/list_domains.ml
index 9451ab2..c97432c 100755..100644
--- a/examples/list_domains.ml
+++ b/examples/list_domains.ml
@@ -17,7 +17,7 @@ let () =
Some (Sys.argv.(1))
else
None in
- let conn = C.connect ?name () in
+ let conn = C.connect_readonly ?name () in
(* List running domains. *)
let n = C.num_of_domains conn in