From: Matthias Goergnes Date: Wed, 26 Jan 2011 17:39:05 +0000 (+0000) Subject: Remove unused variable leaving_snapshots in xapi_vm.ml X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=feb624a988217dcabbe89b7ab8fbfeb4fe163d57;p=xcp%2Fxen-api.git Remove unused variable leaving_snapshots in xapi_vm.ml Signed-off-by: Matthias Goergnes --- diff --git a/ocaml/xapi/xapi_ha_vm_failover.ml b/ocaml/xapi/xapi_ha_vm_failover.ml index f5023dd8..26a850d7 100644 --- a/ocaml/xapi/xapi_ha_vm_failover.ml +++ b/ocaml/xapi/xapi_ha_vm_failover.ml @@ -148,7 +148,7 @@ let compute_restart_plan ~__context ~all_protected_vms ?(change=no_configuration let vms_to_ensure_running = List.map (fun (vm_ref, vm_t) -> let leaving = List.filter (fun (_, (vm, _)) -> vm_ref = vm) change.old_vms_leaving in let leaving_host = List.map (fun (host, (vm, _)) -> vm, host) leaving in - let leaving_snapshots = List.map snd leaving in + (* let leaving_snapshots = List.map snd leaving in *) let arriving = List.filter (fun (_, (vm, _)) -> vm_ref = vm) change.old_vms_arriving in let arriving_host = List.map (fun (host, (vm, _)) -> vm, host) arriving in let arriving_snapshots = List.map snd arriving in