Named arguments in Xn.migrate

Signed-off-by: Rob Hoes <[email protected]>
xapi-project · Oct 12, 2022 · a50df66 · a50df66
1 parent 7120b89
commit a50df66
Showing 1 changed file with 6 additions and 7 deletions.
diff --git a/ocaml/xenopsd/cli/xn.ml b/ocaml/xenopsd/cli/xn.ml
@@ -1013,17 +1013,16 @@ 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" ->
         true
     | _ ->
         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] ->