From cf3d93c82627279e8c57c0877469f16fc2272ec0 Mon Sep 17 00:00:00 2001
From: Pino Toscano <ptoscano@redhat.com>
Date: Tue, 1 Sep 2015 18:03:12 +0200
Subject: [PATCH] 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 233d459c0..8786bf323 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;