[Libguestfs] [PATCH 3/3] get-kernel: respect -q

Now that virt-get-kernel has -q/--quiet, support it by printing the download messages only if not specified. --- get-kernel/get_kernel.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/get-kernel/get_kernel.ml b/get-kernel/get_kernel.ml index 233d459..8786bf3 100644 --- a/get-kernel/get_kernel.ml +++ b/get-kernel/get_kernel.ml @@ -142,7 +142,8 @@ let rec do_fetch ~transform_fn ~outputdir g root = List.iter ( fun f -> let dest = outputdir // transform_fn f in - printf "download: %s -> %s\n%!" f dest; + if not (quiet ()) then + printf "download: %s -> %s\n%!" f dest; g#download f dest; ) files; -- 2.1.0