From 16ea903667fc45b82e39f11be9f461fa7b0b7cd7 Mon Sep 17 00:00:00 2001 From: Matthias Goergnes Date: Wed, 26 Jan 2011 17:39:05 +0000 Subject: [PATCH] Remove unused variable dead_hosts in xapi_ha_vm_failover.ml Signed-off-by: Matthias Goergnes --- ocaml/xapi/xapi_ha_vm_failover.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ocaml/xapi/xapi_ha_vm_failover.ml b/ocaml/xapi/xapi_ha_vm_failover.ml index 00770a01..f5023dd8 100644 --- a/ocaml/xapi/xapi_ha_vm_failover.ml +++ b/ocaml/xapi/xapi_ha_vm_failover.ml @@ -171,7 +171,7 @@ let compute_restart_plan ~__context ~all_protected_vms ?(change=no_configuration && (try Db.Host_metrics.get_live ~__context ~self:r.API.host_metrics with _ -> false) in let live_hosts_and_snapshots, dead_hosts_and_snapshots = List.partition is_alive all_hosts_and_snapshots in - let live_hosts = List.map fst live_hosts_and_snapshots and dead_hosts = List.map fst dead_hosts_and_snapshots in + let live_hosts = List.map fst live_hosts_and_snapshots (* and dead_hosts = List.map fst dead_hosts_and_snapshots *) in (* Any deterministic ordering is fine here: *) let vms_to_ensure_running = List.sort (fun (_, a) (_, b) -> compare a.API.vM_uuid b.API.vM_uuid) vms_to_ensure_running in -- 2.39.5