fixup for test_ha_vm_failover.ml

Signed-off-by: Gang Ji <gang.ji@citrix.com>
xapi-project · May 10, 2024 · 3025f74 · 3025f74
1 parent 9522d2f
commit 3025f74
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ocaml/tests/test_ha_vm_failover.ml b/ocaml/tests/test_ha_vm_failover.ml
@@ -725,7 +725,7 @@ let extract_output_for_anti_affinity_plan __context pool anti_affinity_plan =
       hosts_increasing
   in
   try
-    anti_affinity_plan ~__context slave1_anti_affinity_vms vm_can_boot_on_host
+    anti_affinity_plan ~__context vm_can_boot_on_host slave1_anti_affinity_vms
       grp_ranked_hosts []
     |> List.map (fun (vm, host) ->
            ( Db.VM.get_name_label ~__context ~self:vm