diff options
| -rw-r--r-- | guix-qa-frontpage/mumi.scm | 67 | ||||
| -rw-r--r-- | guix-qa-frontpage/patchwork.scm | 13 |
2 files changed, 40 insertions, 40 deletions
diff --git a/guix-qa-frontpage/mumi.scm b/guix-qa-frontpage/mumi.scm index 82b64b5..540f909 100644 --- a/guix-qa-frontpage/mumi.scm +++ b/guix-qa-frontpage/mumi.scm @@ -97,43 +97,38 @@ #:verify-certificate? #t))) (if (null? chunks) (close-port port) - (begin - (with-exception-handler - (lambda (exn) #f) - (lambda () - (let ((response - (retry-on-error - (lambda () - (graphql-http-get* - url - `(document - ,@(map (lambda (number) - `(query (#(issue #:number ,number) - number title open severity tags - (merged_with number)))) - (car chunks))) - #:keep-alive? #t - #:port port)) - #:times 1 - #:delay 0))) + (let ((response + (retry-on-error + (lambda () + (graphql-http-get* + url + `(document + ,@(map (lambda (number) + `(query (#(issue #:number ,number) + number title open severity tags + (merged_with number)))) + (car chunks))) + #:keep-alive? #t + #:port port)) + #:times 1 + #:delay 0))) - (for-each - (lambda (res) - (let ((data (cdr res))) - (hash-set! number-to-data - (assoc-ref data "number") - `((title . ,(assoc-ref data "title")) - (open? . ,(assoc-ref data "open")) - (tags . ,(vector->list - (assoc-ref data "tags"))) - (merged-with . ,(map - (lambda (data) - (assoc-ref data "number")) - (vector->list - (assoc-ref data "merged_with")))) - (severity . ,(assoc-ref data "severity")))))) - response))) - #:unwind? #t) + (for-each + (lambda (res) + (let ((data (cdr res))) + (hash-set! number-to-data + (assoc-ref data "number") + `((title . ,(assoc-ref data "title")) + (open? . ,(assoc-ref data "open")) + (tags . ,(vector->list + (assoc-ref data "tags"))) + (merged-with . ,(map + (lambda (data) + (assoc-ref data "number")) + (vector->list + (assoc-ref data "merged_with")))) + (severity . ,(assoc-ref data "severity")))))) + response) (loop (cdr chunks) port)))) diff --git a/guix-qa-frontpage/patchwork.scm b/guix-qa-frontpage/patchwork.scm index 04a15e6..afcc47c 100644 --- a/guix-qa-frontpage/patchwork.scm +++ b/guix-qa-frontpage/patchwork.scm @@ -192,10 +192,15 @@ batch-hash-table)) (mumi-data - (call-with-delay-logging mumi-bulk-issues - #:args - (list - (map first series-by-issue-number))))) + (retry-on-error + (lambda () + (call-with-delay-logging mumi-bulk-issues + #:args + (list + (map first series-by-issue-number)))) + #:times 1 + #:delay 5))) + (loop next-page-uri (fold |