fixup! CP-45573: Add 'xe host-show-updates' CLI

Signed-off-by: Ming Lu <ming.lu@cloud.com>
minglumlu · Jan 29, 2024 · cd42059 · cd42059
1 parent 38276b1
commit cd42059
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/ocaml/xapi-cli-server/cli_operations.ml b/ocaml/xapi-cli-server/cli_operations.ml
@@ -5466,9 +5466,10 @@ let check_task_status ?(quiet_on_success = false) ~rpc ~session_id ~task ~fd
     ~label ~ok () =
   (* if the client thinks it's ok, check that the server does too *)
   match Client.Task.get_status ~rpc ~session_id ~self:task with
-  | `success when ok ->
-      if not quiet_on_success then
-        marshal fd (Command (Print (Printf.sprintf "%s succeeded" label)))
+  | `success when ok && not quiet_on_success ->
+      marshal fd (Command (Print (Printf.sprintf "%s succeeded" label)))
+  | `success when ok && quiet_on_success ->
+      ()
   | `success ->
       marshal fd
         (Command