diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-04-02 16:10:25 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-04-02 16:10:25 +0100 |
| commit | 839e3e4f7ffd94d6f8b8803042734d1d518556d9 (patch) | |
| tree | baf3b0acf46d9c6506cf9a4f608fcb9eacf8f8c2 | |
| parent | d6765a81a478e895e24a3622447415ea9bc6598b (diff) | |
| download | qa-frontpage-839e3e4f7ffd94d6f8b8803042734d1d518556d9.tar qa-frontpage-839e3e4f7ffd94d6f8b8803042734d1d518556d9.tar.gz | |
Add more logging around checking base branch changes
| -rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 43 |
1 files changed, 22 insertions, 21 deletions
diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index 816ba62..ec8d75c 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -418,7 +418,9 @@ (let ((base-commit (assq-ref (get-issue-branch-base-and-target-refs issue-number) - 'base))) + 'base)) + (branch (patchwork-series->branch + (assq-ref all-patchwork-series issue-number)))) (with-exception-handler (lambda (exn) (if (and (guix-data-service-error? exn) @@ -439,28 +441,27 @@ (begin (simple-format (current-error-port) - "warning: exception when fetching revision details: ~A\n" - exn) + "warning: exception when fetching revision details (branch: ~A, base-commit: ~A): ~A\n" + exn + branch + base-commit) #f))) (lambda () - (let ((branch (patchwork-series->branch - (assq-ref all-patchwork-series issue-number)))) - (let ((derivation-change-count - (get-changes-compared-to-branch branch - base-commit))) - (if (> derivation-change-count 10000) - (begin - (simple-format - (current-error-port) - "Removing ~A, ~A derivation changes between base (~A) and latest ~A revision (~A)\n" - issue-number - derivation-change-count - base-commit - branch - (get-latest-processed-branch-revision* branch)) - #t) - #f)) - #f)) + (let ((derivation-change-count + (get-changes-compared-to-branch branch + base-commit))) + (if (> derivation-change-count 10000) + (begin + (simple-format + (current-error-port) + "Removing ~A, ~A derivation changes between base (~A) and latest ~A revision (~A)\n" + issue-number + derivation-change-count + base-commit + branch + (get-latest-processed-branch-revision* branch)) + #t) + #f))) #:unwind? #t))) (with-bare-git-repository |