aboutsummaryrefslogtreecommitdiff
path: root/guix-qa-frontpage/server.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-10-21 16:12:20 +0100
committerChristopher Baines <mail@cbaines.net>2023-10-21 16:12:20 +0100
commit77ac35e2ccf47aee813d8bf303b69580e26edb8c (patch)
tree12744b1881bf23bc8b5c5f7ad29b374518c61486 /guix-qa-frontpage/server.scm
parent612ec41197915e1d0cc935f4145f1fcedcd5c329 (diff)
downloadqa-frontpage-77ac35e2ccf47aee813d8bf303b69580e26edb8c.tar
qa-frontpage-77ac35e2ccf47aee813d8bf303b69580e26edb8c.tar.gz
Highlight the intended branch on the issue page
Diffstat (limited to 'guix-qa-frontpage/server.scm')
-rw-r--r--guix-qa-frontpage/server.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm
index b10669e..4e88a3b 100644
--- a/guix-qa-frontpage/server.scm
+++ b/guix-qa-frontpage/server.scm
@@ -525,6 +525,8 @@
(select-create-branch-for-issue-log
database
number))
+ (branch
+ (patchwork-series->branch series))
(master-branch-substitute-availability
(with-sqlite-cache
database
@@ -541,6 +543,7 @@
(render-html
#:sxml (issue-view number
series
+ branch
(assq-ref (assq-ref series 'mumi)
'tags)
base-and-target-refs