From c11daf4e7b254bcb56af4871e0a1b8d27b828486 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Sat, 13 Sep 2014 14:41:29 +0100 Subject: [PATCH] build: Add some more debug messages. Allows us to use 'annotate-output supermin -v ...' in order to find out how long the RPM dependency checking takes. --- src/build.ml | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/build.ml b/src/build.ml index 8ff574b..7011731 100644 --- a/src/build.ml +++ b/src/build.ml @@ -86,11 +86,17 @@ let rec build debug (* Read the supermin appliance, ie. the input files and/or * directories that make up the appliance. *) + if debug >= 1 then + printf "supermin: reading the supermin appliance\n%!"; let appliance = read_appliance debug basedir empty_appliance inputs in (* Resolve dependencies in the list of packages. *) let ph = get_package_handler () in + if debug >= 1 then + printf "supermin: mapping package names to installed packages\n%!"; let packages = filter_map ph.ph_package_of_string appliance.packages in + if debug >= 1 then + printf "supermin: resolving full list of package dependencies\n%!"; let packages = let packages = package_set_of_list packages in get_all_requires packages in -- 1.9.3