37 lines
1.3 KiB
Diff
37 lines
1.3 KiB
Diff
From c11daf4e7b254bcb56af4871e0a1b8d27b828486 Mon Sep 17 00:00:00 2001
|
|
From: "Richard W.M. Jones" <rjones@redhat.com>
|
|
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
|
|
|