From a50df660096d25be0b6c9df4b9af712a0a3f793c Mon Sep 17 00:00:00 2001 From: Rob Hoes Date: Wed, 12 Oct 2022 12:18:02 +0000 Subject: [PATCH] Named arguments in Xn.migrate Signed-off-by: Rob Hoes --- ocaml/xenopsd/cli/xn.ml | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/ocaml/xenopsd/cli/xn.ml b/ocaml/xenopsd/cli/xn.ml index e5c64791484..3ab2e34246f 100644 --- a/ocaml/xenopsd/cli/xn.ml +++ b/ocaml/xenopsd/cli/xn.ml @@ -1013,9 +1013,8 @@ let resume _copts disk x = let resume copts disk x = diagnose_error (need_vm (resume copts disk) x) -let migrate x url compress verify_cert = - let open Vm in - let vm, _ = find_by_name x in +let migrate ~id ~url ~compress ~verify_cert = + let vm, _ = find_by_name id in let bool b = match String.lowercase_ascii b with | "t" | "true" | "on" | "1" -> @@ -1023,7 +1022,7 @@ let migrate x url compress verify_cert = | _ -> false in - Client.VM.migrate dbg vm.id [] [] [] url (bool compress) (bool verify_cert) + Client.VM.migrate dbg vm.Vm.id [] [] [] url (bool compress) (bool verify_cert) |> wait_for_task dbg let trim limit str = @@ -1542,11 +1541,11 @@ let old_main () = | ["help"] | [] -> usage () ; exit 0 | ["migrate"; id; url] -> - migrate id url "false" "false" |> task + migrate ~id ~url ~compress:"false" ~verify_cert:"false" |> task | ["migrate"; id; url; compress] -> - migrate id url compress "false" |> task + migrate ~id ~url ~compress ~verify_cert:"false" |> task | ["migrate"; id; url; compress; verify_cert] -> - migrate id url compress verify_cert |> task + migrate ~id ~url ~compress ~verify_cert |> task | ["vbd-list"; id] -> vbd_list id | ["pci-add"; id; idx; bdf] ->