diff options
author | Christopher Baines <mail@cbaines.net> | 2022-12-09 11:29:16 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2022-12-09 11:29:16 +0000 |
commit | f4920496f6c345d0fae411555e4ff0378c007c9c (patch) | |
tree | a4bd67c0da8dadc5d239acf6de73f9c8b303bf43 /guix-qa-frontpage/manage-patch-branches.scm | |
parent | d21e0f80a63e52c73e3e8ec50296e9262467701e (diff) | |
download | qa-frontpage-f4920496f6c345d0fae411555e4ff0378c007c9c.tar qa-frontpage-f4920496f6c345d0fae411555e4ff0378c007c9c.tar.gz |
Make sure to process series for branches that already exist
Diffstat (limited to 'guix-qa-frontpage/manage-patch-branches.scm')
-rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index 8104504..d6df13c 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -224,8 +224,19 @@ (all-patchwork-series (latest-patchwork-series-by-issue)) (series-to-create-branches-for - (take all-patchwork-series - 150))) + (let ((recent-series + (take all-patchwork-series + 150))) + (append + recent-series + (filter-map + (lambda (issue-number) + (if (assq-ref recent-series issue-number) + #f + (cons issue-number + (assq-ref all-patchwork-series + issue-number)))) + issue-numbers))))) (with-bare-git-repository (lambda () (simple-format #t "checking for branches to delete\n") |