diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-07-08 14:51:25 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-07-08 14:51:25 +0200 |
| commit | 80bce0d2d08799eded61aae7a8e8995b5a75b55d (patch) | |
| tree | e80b72fc0cb102c2ada894c66d33d97cd73e5bb5 | |
| parent | 9ee17386b178d98607c218dd594d707ca5f5ccdd (diff) | |
| download | qa-frontpage-80bce0d2d08799eded61aae7a8e8995b5a75b55d.tar qa-frontpage-80bce0d2d08799eded61aae7a8e8995b5a75b55d.tar.gz | |
Retry fetching branch changes from the data service
As these requests can sometimes time out.
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 8 |
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))) |