diff options
author | Christopher Baines <mail@cbaines.net> | 2023-10-17 18:00:01 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-10-17 18:00:01 +0100 |
commit | b1f477e8138c557e3a7977ad76692623c9000e8f (patch) | |
tree | 8ca3a7f4ef1c74d9f2426861a70bff016a786705 /guix-qa-frontpage/manage-builds.scm | |
parent | 9621f0ab61c4f2de1e613095db0f130a912b0f93 (diff) | |
download | qa-frontpage-b1f477e8138c557e3a7977ad76692623c9000e8f.tar qa-frontpage-b1f477e8138c557e3a7977ad76692623c9000e8f.tar.gz |
Refactor fetching data from patchwork
Fetch pages one at a time until the required number of patch series has been
fetched.
This commit also changes the ordering from issue number to the series ID,
which will mean that series associated with older issues will be prefered over
newer issues with older series.
Diffstat (limited to 'guix-qa-frontpage/manage-builds.scm')
-rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm index 3dca456..e1d175f 100644 --- a/guix-qa-frontpage/manage-builds.scm +++ b/guix-qa-frontpage/manage-builds.scm @@ -131,7 +131,7 @@ build-coordinator guix-data-service metrics-registry - #:key (series-count 200)) + #:key series-count) (define (priority-for-change change) (if (member (assoc-ref change "system") '("x86_64-linux" "aarch64-linux")) @@ -144,7 +144,8 @@ database 'latest-patchwork-series-by-issue latest-patchwork-series-by-issue - #:ttl 3000)) + #:ttl 3000 + #:args `(#:count ,series-count))) (first-n-series (take all-series series-count)) (first-n-series-issue-numbers |