From: Richard W.M. Jones <rjones@redhat.com>
Date: Sat, 2 Aug 2014 16:03:25 +0000 (+0100)
Subject: Give an indication of how many packages we have compiled/how many to go.
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=c4e0993e81c4bd3d1aadae4baa8d10ada8f06d76;p=goaljobs-goals.git

Give an indication of how many packages we have compiled/how many to go.
---

diff --git a/fedora_ocaml_rebuild.ml b/fedora_ocaml_rebuild.ml
index 15fda83..9cf135f 100644
--- a/fedora_ocaml_rebuild.ml
+++ b/fedora_ocaml_rebuild.ml
@@ -110,7 +110,12 @@ let () = Unix.putenv "MAKEFLAGS" ""
 
 (* Goal: rebuild all packages. *)
 let rec goal all () =
-  List.iter (fun pkg -> require (rebuild_started pkg)) source_packages
+  let n = List.length source_packages in
+  List.iteri (
+    fun i pkg ->
+      require (rebuild_started pkg);
+      printf "*** *** rebuilt %d/%d packages *** ***\n%!" (i+1) n
+  ) source_packages
 
 (* Goal: That 'package' has been rebuilt and exists in Koji. *)
 and rebuilt pkg =