diff options
-rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 2 |
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 |