diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-04-08 18:04:31 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-04-08 18:04:31 +0100 |
| commit | 7f3ea5eb9321e0a6d3da6bb47bf725bcec0f5937 (patch) | |
| tree | df71d79ca664e6009a2f3ded0a5314d73a739b12 | |
| parent | 4c98d199ee28cf5e81f05f13b20d0ae3ebca7f57 (diff) | |
| download | qa-frontpage-7f3ea5eb9321e0a6d3da6bb47bf725bcec0f5937.tar qa-frontpage-7f3ea5eb9321e0a6d3da6bb47bf725bcec0f5937.tar.gz | |
Add more logging around canceling branch builds
| -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 |