From d465c06e659787f12fd74e57fb3855dacf8f7d14 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 13 Jan 2025 11:02:12 +0000 Subject: Fix listing branches with open merge issues --- guix-qa-frontpage/manage-patch-branches.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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 -- cgit v1.2.3