From: Richard W.M. Jones <rjones@redhat.com> <"Richard W.M. Jones <rjones@redhat.com>">
Date: Tue, 10 Mar 2009 10:32:33 +0000 (+0000)
Subject: Correct mlvirsh for new read-write connection.
X-Git-Tag: 0.6.1.1~10
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;ds=sidebyside;h=ff7b26ae1aab1e22b054da4b01fabbabb78b6b1f;p=ocaml-libvirt.git

Correct mlvirsh for new read-write connection.
---

diff --git a/mlvirsh/mlvirsh.ml b/mlvirsh/mlvirsh.ml
index 8037e4d..53a0493 100644
--- a/mlvirsh/mlvirsh.ml
+++ b/mlvirsh/mlvirsh.ml
@@ -466,7 +466,7 @@ let do_command =
 	   in
 	   loop 0;
 	   buf)
-	(arg_readonly_connection domain_of_string)
+	(arg_full_connection domain_of_string)
 	string_of_string Int64.of_string int_of_string,
       s_"Peek into a block device of a domain.",
       [dom_help; s_"path",s_"Path to block device";
@@ -516,7 +516,7 @@ let do_command =
 	   in
 	   loop 0;
 	   buf)
-	(arg_readonly_connection domain_of_string)
+	(arg_full_connection domain_of_string)
 	Int64.of_string int_of_string,
       s_"Peek into memory of a device.",
       [dom_help; s_"offset",s_"Offset in memory";