# HG changeset patch # User David Scott <[email protected]> # Date 1270637035 -3600 # Node ID 3884cd6ef7f0fa9e2a5377520e641d53c8b25878 # Parent 4b55d8f5ef5acc13d54680a7e98728daf30bc53a CA-38723: Fix 'xe snapshot-revert uuid=...'
Somehow I missed this one in the previous patch. Signed-off-by: David Scott <[email protected]> diff -r 4b55d8f5ef5a -r 3884cd6ef7f0 ocaml/xapi/cli_operations.ml --- a/ocaml/xapi/cli_operations.ml Wed Apr 07 11:42:09 2010 +0100 +++ b/ocaml/xapi/cli_operations.ml Wed Apr 07 11:43:55 2010 +0100 @@ -2177,7 +2177,7 @@ else List.assoc "uuid" params let snapshot_revert printer rpc session_id params = - let snap_uuid = List.assoc "snapshot-uuid" params in + let snap_uuid = get_snapshot_uuid params in let snap_ref = Client.VM.get_by_uuid rpc session_id snap_uuid in Client.VM.revert ~rpc ~session_id ~snapshot:snap_ref 1 file changed, 1 insertion(+), 1 deletion(-) ocaml/xapi/cli_operations.ml | 2 +-
# HG changeset patch # User David Scott <[email protected]> # Date 1270637035 -3600 # Node ID 3884cd6ef7f0fa9e2a5377520e641d53c8b25878 # Parent 4b55d8f5ef5acc13d54680a7e98728daf30bc53a CA-38723: Fix 'xe snapshot-revert uuid=...' Somehow I missed this one in the previous patch. Signed-off-by: David Scott <[email protected]> diff -r 4b55d8f5ef5a -r 3884cd6ef7f0 ocaml/xapi/cli_operations.ml --- a/ocaml/xapi/cli_operations.ml Wed Apr 07 11:42:09 2010 +0100 +++ b/ocaml/xapi/cli_operations.ml Wed Apr 07 11:43:55 2010 +0100 @@ -2177,7 +2177,7 @@ else List.assoc "uuid" params let snapshot_revert printer rpc session_id params = - let snap_uuid = List.assoc "snapshot-uuid" params in + let snap_uuid = get_snapshot_uuid params in let snap_ref = Client.VM.get_by_uuid rpc session_id snap_uuid in Client.VM.revert ~rpc ~session_id ~snapshot:snap_ref
_______________________________________________ xen-api mailing list [email protected] http://lists.xensource.com/mailman/listinfo/xen-api
