From 8080c17c21fc605674d1d257813e74bb4fb3cfc0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 14 Feb 2018 20:16:35 +0100
Subject: cuirass: Clear the build queue when starting.

* src/cuirass/base.scm (clear-build-queue): New procedure.
* bin/cuirass.in (main): Call it.
---
 bin/cuirass.in | 1 +
 1 file changed, 1 insertion(+)

(limited to 'bin')

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))))))
 
-- 
cgit v1.2.3