From c9fe0a3765aec4e39895bf3ba6e99252d9887477 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 19 Jun 2020 10:31:39 +0100 Subject: Retry requests to the Guix Data Service --- .../guix-build-coordinator-queue-builds-from-guix-data-service.in | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in b/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in index f405503..d765db5 100644 --- a/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in +++ b/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in @@ -75,8 +75,12 @@ query-parameters) "&")))))) - (let-values (((response body) (http-get uri))) - (json-string->scm (utf8->string body)))) + (retry-on-error + (lambda () + (let-values (((response body) (http-get uri))) + (json-string->scm (utf8->string body)))) + #:times 6 + #:delay 30)) (define (unseen-revisions) (let ((data (guix-data-service-request "/repository/1/branch/master.json"))) -- cgit v1.2.3