From 80bce0d2d08799eded61aae7a8e8995b5a75b55d Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 8 Jul 2024 14:51:25 +0200 Subject: Retry fetching branch changes from the data service As these requests can sometimes time out. --- guix-qa-frontpage/manage-builds.scm | 8 ++++++-- 1 file 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))) -- cgit v1.2.3