# HG changeset patch
# User David Scott <dave.scott@xxxxxxxxxxxxx>
# 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 <dave.scott@xxxxxxxxxxxxx>

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