From fae501e69cb4236bd2702a2b281ee66e17d2cb17 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 17 Mar 2024 12:49:46 +0000 Subject: Add a buffer to prevent deleting some branches that aren't found To reduce instances of branches getting repeatedly deleted then recreated. --- guix-qa-frontpage/manage-patch-branches.scm | 14 ++++++++------ 1 file 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"))) -- cgit v1.2.3