From cd4205968e849e42d3fe35910c33505dc5f03595 Mon Sep 17 00:00:00 2001 From: Ming Lu Date: Mon, 29 Jan 2024 17:54:00 +0800 Subject: [PATCH] fixup! CP-45573: Add 'xe host-show-updates' CLI Signed-off-by: Ming Lu --- ocaml/xapi-cli-server/cli_operations.ml | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/ocaml/xapi-cli-server/cli_operations.ml b/ocaml/xapi-cli-server/cli_operations.ml index 72fa1ea5853..ccad3942e37 100644 --- 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