diff options
Diffstat (limited to 'guix-qa-frontpage/manage-patch-branches.scm')
| -rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index a03b3dc..c15f843 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -204,7 +204,8 @@ #:unwind? #t)) #:remove-after? #t))) -(define (start-manage-patch-branches-thread database) +(define* (start-manage-patch-branches-thread database + #:key (series-count 200)) (define (dig alist . parts) (if (pair? alist) (match parts @@ -272,7 +273,7 @@ (series-to-create-branches-for (let ((recent-series (take all-patchwork-series - 200))) + series-count))) (append recent-series (filter-map |