diff options
Diffstat (limited to 'guix-qa-frontpage/mumi.scm')
| -rw-r--r-- | guix-qa-frontpage/mumi.scm | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/guix-qa-frontpage/mumi.scm b/guix-qa-frontpage/mumi.scm index bef358d..375fa6b 100644 --- a/guix-qa-frontpage/mumi.scm +++ b/guix-qa-frontpage/mumi.scm @@ -21,6 +21,8 @@ #:use-module (ice-9 match) #:use-module (kolam http) #:use-module ((guix-data-service utils) #:select (chunk-for-each!)) + #:use-module ((guix-build-coordinator utils) + #:select (retry-on-error)) #:export (mumi-issue-tags mumi-issue-open? @@ -57,13 +59,17 @@ (chunk-for-each! (lambda (chunk) (let ((response - (graphql-http-get - "https://issues.guix.gnu.org/graphql" - `(document - ,@(map (lambda (number) - `(query (#(issue #:number ,number) - number title open severity tags))) - chunk))))) + (retry-on-error + (lambda () + (graphql-http-get + "https://issues.guix.gnu.org/graphql" + `(document + ,@(map (lambda (number) + `(query (#(issue #:number ,number) + number title open severity tags))) + chunk)))) + #:times 3 + #:delay 0))) (for-each (lambda (res) |