diff options
| -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 |