From 255e281a0c8dec167a0acabaa33d66bb77b4e263 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 26 Jan 2018 14:09:47 +0100
Subject: cuirass: Log pending build request.

* bin/cuirass.in (main): Print message while fetching pending builds.
---
 bin/cuirass.in | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'bin')

diff --git a/bin/cuirass.in b/bin/cuirass.in
index 9ece178..4f359c0 100644
--- 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
-- 
cgit v1.2.3