diff options
author | Christopher Baines <mail@cbaines.net> | 2024-08-31 09:51:22 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2024-08-31 09:51:22 +0100 |
commit | 1b60575a13d7d33654660fd5bf7d3d3da152cb95 (patch) | |
tree | f962de91c8d70551d225cfd09842044ba9e4d557 /guix-qa-frontpage | |
parent | 586b9c1ada118a0cc7775f64698e4b941ea35fe1 (diff) | |
download | qa-frontpage-1b60575a13d7d33654660fd5bf7d3d3da152cb95.tar qa-frontpage-1b60575a13d7d33654660fd5bf7d3d3da152cb95.tar.gz |
Try to fix exception handling for branch builds
Diffstat (limited to 'guix-qa-frontpage')
-rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index 8968b42..c5c514b 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -293,8 +293,13 @@ (map (lambda (system) (retry-on-error (lambda () - (assoc-ref (branch-derivation-changes-data revisions system) - "derivation_changes")) + (let ((data + (branch-derivation-changes-data revisions system))) + (if (assq-ref data 'exception) + (raise-exception + (guix-data-service-error-sexp->error data)) + (assoc-ref data "derivation_changes")))) + #:no-retry guix-data-service-error-invalid-query? #:times 2 #:delay 15)) %systems-to-submit-builds-for)) |