From: Richard W.M. Jones <"Richard W.M. Jones "> 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;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";