From: Matthias Goergens Date: Tue, 12 Oct 2010 10:55:58 +0000 (+0100) Subject: CA-44277: xe snapshot-disk-list now fails gracefully. X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=076bceff733b9e1e70784bf9c690f972596c1500;p=xcp%2Fxen-api.git CA-44277: xe snapshot-disk-list now fails gracefully. Signed-off-by: Matthias Goergens --- diff --git a/ocaml/xapi/cli_operations.ml b/ocaml/xapi/cli_operations.ml index 2a233bac..b2e1bee8 100644 --- a/ocaml/xapi/cli_operations.ml +++ b/ocaml/xapi/cli_operations.ml @@ -2168,7 +2168,9 @@ let vm_checkpoint printer = vm_clone_aux Client.VM.checkpoint "Checkpointed " pr let get_snapshot_uuid params = if List.mem_assoc "snapshot-uuid" params then List.assoc "snapshot-uuid" params - else List.assoc "uuid" params + else if List.mem_assoc "uuid" params + then List.assoc "uuid" params + else raise (failwith "Required parameter not found: snapshot-uuid or uuid.") let snapshot_revert printer rpc session_id params = let snap_uuid = get_snapshot_uuid params in