Implement version 3 of virConnectListAllDomains.

[ocaml-libvirt.git] / mlvirsh / mlvirsh.ml

diff --git a/mlvirsh/mlvirsh.ml b/mlvirsh/mlvirsh.ml
index 9fd3779..acb6a51 100644 (file)
--- a/mlvirsh/mlvirsh.ml
+++ b/mlvirsh/mlvirsh.ml
@@ -579,14 +579,14 @@ let do_command =
       cmd0 print_domain_list
        (fun () ->
           let c = get_readonly_connection () in
-          fst (Libvirt.get_domains c ~want_info:false [D.ListActive])),
+          D.get_domains c [D.ListActive]),
       s_"List the running domains.",
       [];
     "list-defined",
       cmd0 print_domain_list
        (fun () ->
           let c = get_readonly_connection () in
-          fst (Libvirt.get_domains c ~want_info:false [D.ListInactive])),
+          D.get_domains c [D.ListInactive]),
       s_"List the defined but not running domains.",
       [];
     "quit",