diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-03-14 11:30:14 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-03-14 11:30:14 +0000 |
| commit | b90e120eb800c7975284aaf51b5a7b7d621d89a6 (patch) | |
| tree | 3f1c2db9081b6a40b0bce27bf3d7d3a843efa170 | |
| parent | 835001ea9ebfadfc8cd8dcf0d790c1b0d9f030f6 (diff) | |
| download | qa-frontpage-b90e120eb800c7975284aaf51b5a7b7d621d89a6.tar qa-frontpage-b90e120eb800c7975284aaf51b5a7b7d621d89a6.tar.gz | |
Retry getting branch substitute availability
| -rw-r--r-- | guix-qa-frontpage/branch.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/guix-qa-frontpage/branch.scm b/guix-qa-frontpage/branch.scm index 581c98b..5776477 100644 --- a/guix-qa-frontpage/branch.scm +++ b/guix-qa-frontpage/branch.scm @@ -266,9 +266,12 @@ (substitute-availability (with-exception-handler guix-data-service-error->sexp (lambda () - (package-substitute-availability - (package-substitute-availability-url - branch-commit))) + (retry-on-error + (lambda () + (package-substitute-availability + (package-substitute-availability-url + branch-commit))) + #:times 1)) #:unwind? #t #:unwind-for-type &guix-data-service-error)) |