diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-25 11:36:08 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-25 11:36:08 +0100 |
| commit | cba235bf33d3fef416cef4dd14f4105930bbbbf1 (patch) | |
| tree | 27440d3190d3b77358b423fc84ada96ea06156c7 /guix-qa-frontpage | |
| parent | 58bdf14ca06c6fc952452e23dd0f946f5e67973f (diff) | |
| download | qa-frontpage-cba235bf33d3fef416cef4dd14f4105930bbbbf1.tar qa-frontpage-cba235bf33d3fef416cef4dd14f4105930bbbbf1.tar.gz | |
Handle issues with the branch derivation changes data
Diffstat (limited to 'guix-qa-frontpage')
| -rw-r--r-- | guix-qa-frontpage/branch.scm | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/guix-qa-frontpage/branch.scm b/guix-qa-frontpage/branch.scm index b372992..47aa76e 100644 --- a/guix-qa-frontpage/branch.scm +++ b/guix-qa-frontpage/branch.scm @@ -233,12 +233,16 @@ (derivation-changes-counts (append-map (lambda (system) - (derivation-changes-counts - (retry-on-error - (lambda () - (branch-derivation-changes-data revisions system)) - #:times 1) - (list system))) + (let ((derivation-changes-data + (retry-on-error + (lambda () + (branch-derivation-changes-data revisions system)) + #:times 1))) + (if (assq-ref derivation-changes-data 'exception) + derivation-changes-data + (derivation-changes-counts + derivation-changes-data + (list system))))) %systems-to-submit-builds-for)) (substitute-availability |