From fb8a659544ba4b20b11ee30db9a4b23a3e3676ab Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 6 Feb 2025 13:46:27 +0000 Subject: Use the data service for the list of branches As it's custom configuration to limit the branches is causing issues here, patches are being applied on top of a branch when the data serivce doesn't have data for that branch, causing it to be re-created over and over again. --- guix-qa-frontpage/manage-patch-branches.scm | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) (limited to 'guix-qa-frontpage') diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index b92e8a8..83b9579 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -329,13 +329,10 @@ (memoize get-latest-processed-branch-revision)) (branches (cons "master" - (filter-map - (match-lambda - ((name . details) - (if (assoc-ref details "issue_number") - name - #f))) - (list-non-master-branches))))) + (map (lambda (branch) + (assoc-ref branch "name")) + (list-branches + (list-branches-url %data-service-guix-repository-id)))))) ;; Several series can use the same base revision, so memoize looking up ;; the changes compared to master -- cgit v1.2.3