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 (file)
--- 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 =