diff options
Diffstat (limited to 'guix-qa-frontpage')
| -rw-r--r-- | guix-qa-frontpage/mumi.scm | 8 |
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) |