aboutsummaryrefslogtreecommitdiff
path: root/guix-qa-frontpage/mumi.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix-qa-frontpage/mumi.scm')
-rw-r--r--guix-qa-frontpage/mumi.scm8
1 files changed, 7 insertions, 1 deletions
diff --git a/guix-qa-frontpage/mumi.scm b/guix-qa-frontpage/mumi.scm
index bf01397..82b64b5 100644
--- a/guix-qa-frontpage/mumi.scm
+++ b/guix-qa-frontpage/mumi.scm
@@ -109,7 +109,8 @@
`(document
,@(map (lambda (number)
`(query (#(issue #:number ,number)
- number title open severity tags)))
+ number title open severity tags
+ (merged_with number))))
(car chunks)))
#:keep-alive? #t
#:port port))
@@ -125,6 +126,11 @@
(open? . ,(assoc-ref data "open"))
(tags . ,(vector->list
(assoc-ref data "tags")))
+ (merged-with . ,(map
+ (lambda (data)
+ (assoc-ref data "number"))
+ (vector->list
+ (assoc-ref data "merged_with"))))
(severity . ,(assoc-ref data "severity"))))))
response)))
#:unwind? #t)