aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix-qa-frontpage/manage-builds.scm2
1 files changed, 2 insertions, 0 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm
index 37cf8fb..8aac49c 100644
--- a/guix-qa-frontpage/manage-builds.scm
+++ b/guix-qa-frontpage/manage-builds.scm
@@ -400,6 +400,7 @@
(define (cancel-branch-builds branches)
(for-each
(lambda (branch)
+ (simple-format #t "canceling all builds for branch: ~A\n" branch)
(cancel-builds build-coordinator
#:tags `(("branch" . ,branch))
#:relationship 'unset)
@@ -465,6 +466,7 @@
branches-with-builds-previously-submitted
branch-names)))
(unless (null? branches-with-builds-to-cancel)
+ (simple-format #t "branch names: ~A\n" branch-names)
(cancel-branch-builds branches-with-builds-to-cancel)))
(let* ((substitute-availability