diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-01-26 14:09:47 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-01-26 14:09:47 +0100 |
| commit | 255e281a0c8dec167a0acabaa33d66bb77b4e263 (patch) | |
| tree | 4b41a107dc6de09613a52b3f2fc3f6b04d45b94b | |
| parent | e98c4f0b04a8c664945b36ae67c351bbfe9fb442 (diff) | |
| download | cuirass-255e281a0c8dec167a0acabaa33d66bb77b4e263.tar cuirass-255e281a0c8dec167a0acabaa33d66bb77b4e263.tar.gz | |
cuirass: Log pending build request.
* bin/cuirass.in (main): Print message while fetching pending builds.
| -rw-r--r-- | bin/cuirass.in | 6 |
1 files changed, 5 insertions, 1 deletions
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 |