aboutsummaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2020-06-19 10:31:39 +0100
committerChristopher Baines <mail@cbaines.net>2020-06-19 10:31:39 +0100
commitc9fe0a3765aec4e39895bf3ba6e99252d9887477 (patch)
tree88f272cc8cb99542a5d411fd100af470511171eb /scripts
parenta2f09295bc4944c788bac01b9f2adafa8bf866c7 (diff)
downloadbuild-coordinator-c9fe0a3765aec4e39895bf3ba6e99252d9887477.tar
build-coordinator-c9fe0a3765aec4e39895bf3ba6e99252d9887477.tar.gz
Retry requests to the Guix Data Service
Diffstat (limited to 'scripts')
-rw-r--r--scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in8
1 files 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")))