diff options
-rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index a42f3a0..c11b33a 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -366,17 +366,19 @@ #f))) #f)) + (define series-count-buffer 40) + (define (perform-pass) (let ((issue-numbers (map string->number (issue-numbers-for-branches))) (all-patchwork-series - (with-sqlite-cache - database - 'latest-patchwork-series-by-issue - latest-patchwork-series-by-issue - #:args `(#:count ,series-count) - #:ttl 120)) + (with-sqlite-cache + database + 'latest-patchwork-series-by-issue + latest-patchwork-series-by-issue + #:args `(#:count ,(+ series-count series-count-buffer)) + #:ttl 120)) (latest-master-revision (get-latest-processed-branch-revision "master"))) |