diff options
author | Christopher Baines <mail@cbaines.net> | 2023-10-13 11:04:01 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-10-13 11:04:01 +0100 |
commit | a35051ccbd8497be9fa5174a1d21825140792182 (patch) | |
tree | f9b686f45d6591f0f268e641e28ef0a508470c31 | |
parent | 5cef725159259dbd1ea377d46ba37d9012025951 (diff) | |
download | qa-frontpage-a35051ccbd8497be9fa5174a1d21825140792182.tar qa-frontpage-a35051ccbd8497be9fa5174a1d21825140792182.tar.gz |
Show the merged with issues
-rw-r--r-- | guix-qa-frontpage/view/issue.scm | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/guix-qa-frontpage/view/issue.scm b/guix-qa-frontpage/view/issue.scm index cb10514..f7e83f9 100644 --- a/guix-qa-frontpage/view/issue.scm +++ b/guix-qa-frontpage/view/issue.scm @@ -40,7 +40,23 @@ (li (a (@ (href ,(simple-format #f "https://issues.guix.gnu.org/~A" issue-number))) - "View issue on issues.guix.gnu.org")) + "View issue on issues.guix.gnu.org") + ,@(let ((merged-with + (assq-ref (assq-ref series 'mumi) + 'merged-with))) + (if (null? merged-with) + '() + `((br) + "Merged with:" + (ul + ,@(map + (lambda (number) + `(li + (a (@ (href + ,(simple-format #f "https://issues.guix.gnu.org/~A" + number))) + ,number))) + merged-with)))))) ,@(if base-and-target-refs `((li (a (@ (href |