diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-11-20 21:36:29 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-11-20 21:36:29 +0000 |
| commit | 959d4c9c8e02e1241de80e844ef5ca36e66aab27 (patch) | |
| tree | d58c9dd274cbf655d03d099097ddf452648b08a6 /guix-qa-frontpage/patchwork.scm | |
| parent | ec62a85e7892029846fc0803a9ebad5807ee8193 (diff) | |
| download | qa-frontpage-959d4c9c8e02e1241de80e844ef5ca36e66aab27.tar qa-frontpage-959d4c9c8e02e1241de80e844ef5ca36e66aab27.tar.gz | |
Switch to using the git repository for comparison information
Rather than storing the revisions in Patchwork checks.
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)) - |