diff options
author | Christopher Baines <mail@cbaines.net> | 2023-09-15 22:05:00 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-09-15 22:05:00 +0100 |
commit | 90685a036da2b66f7b28baccfa6752b22746a0c0 (patch) | |
tree | a336508b2fc8a50f371dd51d1b1711510c69a1da | |
parent | 29b0e95c278ea710f89b074d6c9ad05a0ee365bf (diff) | |
download | qa-frontpage-90685a036da2b66f7b28baccfa6752b22746a0c0.tar qa-frontpage-90685a036da2b66f7b28baccfa6752b22746a0c0.tar.gz |
Add more logging around submitting builds for issues
As I don't know where it's getting stuck.
-rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 20 |
1 files changed, 17 insertions, 3 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index e8a8f39..4f6caed 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -114,7 +114,11 @@ ((< build-count 10) 0) ((< build-count 100) 50) ((< build-count 300) 100) - (else 150))))))) + (else 150)))) + (simple-format + #t + "finished submitting builds for issue ~A\n" + issue-number)))) (simple-format #t "no derivation changes url for issue ~A\n" issue-number)))) @@ -214,6 +218,7 @@ (display (backtrace) (current-error-port)) (newline (current-error-port))))) #:unwind? #t) + (simple-format #t "finished submitting patch builds\n") (sleep 300))))) @@ -482,7 +487,11 @@ #:canceled #f #:processed #f #:relationship 'no-dependent-builds)) - #:timeout 60)) + #:timeout 60) + (simple-format (current-error-port) + "finshed canceling builds for ~A ~A\n" + category-name + category-value)) (define (cancel-builds-not-for-revision build-coordinator category-name @@ -523,7 +532,12 @@ #:canceled #f #:processed #f #:relationship 'no-dependent-builds)) - #:timeout 60)) + #:timeout 60) + (simple-format (current-error-port) + "finished canceling builds for ~A ~A and not revision ~A\n" + category-name + category-value + revision)) (define (builds-missing-for-derivation-changes? derivation-changes) (any |