aboutsummaryrefslogtreecommitdiff
path: root/guix-qa-frontpage
diff options
context:
space:
mode:
Diffstat (limited to 'guix-qa-frontpage')
-rw-r--r--guix-qa-frontpage/mumi.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/guix-qa-frontpage/mumi.scm b/guix-qa-frontpage/mumi.scm
index 4fd2f10..d37edec 100644
--- a/guix-qa-frontpage/mumi.scm
+++ b/guix-qa-frontpage/mumi.scm
@@ -25,6 +25,8 @@
#:select (retry-on-error))
#:export (mumi-search-issues
+ mumi-issue-blocking-info
+
mumi-issue-tags
mumi-issue-open?
@@ -46,6 +48,12 @@
"issues")))
#:unwind? #t))
+(define (mumi-issue-blocking-info number)
+ (let ((response
+ (graphql-http-get "https://issues.guix.gnu.org/graphql"
+ `(document (query (#(issue #:number ,number) blockedby blocks))))))
+ (cdr (first response))))
+
(define (mumi-issue-tags number)
(with-exception-handler
(lambda (exn)