search for: 233d459

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...

Simple refactoring, no actual behaviour changes. --- get-kernel/get_kernel.ml | 188 ++++++++++++++++++++++++----------------------- 1 file changed, 95 insertions(+), 93 deletions(-) diff --git a/get-kernel/get_kernel.ml b/get-kernel/get_kernel.ml index 8ca7ca0..3b27740 100644 --- a/get-kernel/get_kernel.ml +++ b/get-kernel/get_kernel.ml @@ -23,104 +23,106 @@ module G = Guestfs open Printf