From 524257e644ad4d377e362c3f35b0e391e65793b0 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 8 Apr 2025 18:21:27 +0100 Subject: Retry git-get-remote-branches --- guix-qa-frontpage/branch.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/guix-qa-frontpage/branch.scm b/guix-qa-frontpage/branch.scm index a9a37b9..9512a39 100644 --- a/guix-qa-frontpage/branch.scm +++ b/guix-qa-frontpage/branch.scm @@ -113,7 +113,11 @@ (assoc-ref branch "name")) (string=? (assoc-ref branch "commit") ""))) - (get-git-remote-branches "origin"))))) + (retry-on-error + (lambda () + (get-git-remote-branches "origin")) + #:times 6 + #:delay-seconds 20))))) (let* ((initial-ordered-branches (stable-sort branches -- cgit v1.2.3