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

[Pino Toscano]

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