diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-06-19 10:31:39 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-06-19 10:31:39 +0100 |
| commit | c9fe0a3765aec4e39895bf3ba6e99252d9887477 (patch) | |
| tree | 88f272cc8cb99542a5d411fd100af470511171eb /scripts | |
| parent | a2f09295bc4944c788bac01b9f2adafa8bf866c7 (diff) | |
| download | build-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.in | 8 |
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"))) |