cuirass: Log pending build request.

* bin/cuirass.in (main): Print message while fetching pending builds.
2018-01-26 14:09:47 +01:00 · 2018-01-26 14:09:47 +01:00 · 255e281a0c
parent e98c4f0b04
commit 255e281a0c
1 changed files with 5 additions and 1 deletions
--- a/bin/cuirass.in
+++ b/bin/cuirass.in
@ -107,7 +107,11 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@"
                                new-specs)))
               (if one-shot?
                   (process-specs db (db-get-specifications db))
-                   (let ((pending (db-get-builds db '((status pending)))))
+                   (let ((pending
+                          (begin
+                            (log-message "retrieving list of pending builds...")
+                            (db-get-builds db '((status pending))))))
+
                     ;; First off, restart builds that had not completed or
                     ;; were not even started on a previous run.
                     (spawn-fiber