aboutsummaryrefslogtreecommitdiff
path: root/guix-qa-frontpage
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2024-08-31 09:51:22 +0100
committerChristopher Baines <mail@cbaines.net>2024-08-31 09:51:22 +0100
commit1b60575a13d7d33654660fd5bf7d3d3da152cb95 (patch)
treef962de91c8d70551d225cfd09842044ba9e4d557 /guix-qa-frontpage
parent586b9c1ada118a0cc7775f64698e4b941ea35fe1 (diff)
downloadqa-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.scm9
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))