diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-01-13 11:02:12 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-01-13 11:02:12 +0000 |
| commit | d465c06e659787f12fd74e57fb3855dacf8f7d14 (patch) | |
| tree | 2a3585ef5c3b14ef210d1fd96381ffe72f3f0670 /guix-qa-frontpage/manage-patch-branches.scm | |
| parent | af97c8501489aec5831600dbf5ddac34aded5a8e (diff) | |
| download | qa-frontpage-d465c06e659787f12fd74e57fb3855dacf8f7d14.tar qa-frontpage-d465c06e659787f12fd74e57fb3855dacf8f7d14.tar.gz | |
Fix listing branches with open merge issues
Diffstat (limited to 'guix-qa-frontpage/manage-patch-branches.scm')
| -rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index 4142e7d..682b183 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -329,7 +329,13 @@ (memoize get-latest-processed-branch-revision)) (branches (cons "master" - (map car (list-non-master-branches))))) + (filter-map + (match-lambda + ((name . details) + (if (assoc-ref details "issue_number") + name + #f))) + (list-non-master-branches))))) ;; Several series can use the same base revision, so memoize looking up ;; the changes compared to master |