diff options
Diffstat (limited to 'guix-qa-frontpage/patchwork.scm')
| -rw-r--r-- | guix-qa-frontpage/patchwork.scm | 26 |
1 files changed, 1 insertions, 25 deletions
diff --git a/guix-qa-frontpage/patchwork.scm b/guix-qa-frontpage/patchwork.scm index fedf849..ffb7292 100644 --- a/guix-qa-frontpage/patchwork.scm +++ b/guix-qa-frontpage/patchwork.scm @@ -13,9 +13,7 @@ #:export (%patchwork-instance patchwork-patches - latest-patchwork-series-by-issue - - patchwork-patch-checks)) + latest-patchwork-series-by-issue)) (define %patchwork-instance (make-parameter "https://patches.guix-patches.cbaines.net")) @@ -165,25 +163,3 @@ (lambda (a b) (> (first a) (first b))))))) - -(define (patchwork-patch-checks checks-url) - ;; Patchwork uses http URIs, so convert here to avoid the redirect - (define https-uri - (string->uri - (string-append - "https:" - (string-join - (drop (string-split checks-url #\:) 1) - ":")))) - - (define (make-request) - (let-values (((response body) - (http-request https-uri - #:decode-body? #f))) - (vector->list - (json-string->scm (utf8->string body))))) - - (retry-on-error make-request - #:times 10 - #:delay 5)) - |