aboutsummaryrefslogtreecommitdiff
path: root/guix-qa-frontpage/manage-builds.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix-qa-frontpage/manage-builds.scm')
-rw-r--r--guix-qa-frontpage/manage-builds.scm8
1 files changed, 6 insertions, 2 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm
index 512cd23..8968b42 100644
--- a/guix-qa-frontpage/manage-builds.scm
+++ b/guix-qa-frontpage/manage-builds.scm
@@ -291,8 +291,12 @@
#f)
(lambda ()
(map (lambda (system)
- (assoc-ref (branch-derivation-changes-data revisions system)
- "derivation_changes"))
+ (retry-on-error
+ (lambda ()
+ (assoc-ref (branch-derivation-changes-data revisions system)
+ "derivation_changes"))
+ #:times 2
+ #:delay 15))
%systems-to-submit-builds-for))
#:unwind? #t)))