Remove unused variable leaving_snapshots in xapi_vm.ml

Signed-off-by: Matthias Goergnes <matthias.goergens@citrix.com>

diff --git a/ocaml/xapi/xapi_ha_vm_failover.ml b/ocaml/xapi/xapi_ha_vm_failover.ml
index f5023dd85da9ce9a04a34a4aaaf0daf2b8008cb7..26a850d7c1bb1fc549c7bf8616eaaa86faac0524 100644 (file)
--- 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