aboutsummaryrefslogtreecommitdiff
path: root/bin
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2018-02-14 20:16:35 +0100
committerLudovic Courtès <ludo@gnu.org>2018-02-14 20:16:35 +0100
commit8080c17c21fc605674d1d257813e74bb4fb3cfc0 (patch)
tree721049c178ddc09ac7e8ae134452d21a862e6a7f /bin
parentbc723b0835442b7e3e2f97957f4aad0161b1d47f (diff)
downloadcuirass-8080c17c21fc605674d1d257813e74bb4fb3cfc0.tar
cuirass-8080c17c21fc605674d1d257813e74bb4fb3cfc0.tar.gz
cuirass: Clear the build queue when starting.
* src/cuirass/base.scm (clear-build-queue): New procedure. * bin/cuirass.in (main): Call it.
Diffstat (limited to 'bin')
-rw-r--r--bin/cuirass.in1
1 files changed, 1 insertions, 0 deletions
diff --git a/bin/cuirass.in b/bin/cuirass.in
index ba10274..7e3c5cf 100644
--- a/bin/cuirass.in
+++ b/bin/cuirass.in
@@ -126,6 +126,7 @@ exec ${GUILE:-@GUILE@} --no-auto-compile -e main -s "$0" "$@"
(let ((exit-channel (make-channel))
(pending
(begin
+ (clear-build-queue db)
(log-message "retrieving list of pending builds...")
(db-get-builds db '((status pending))))))