diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-05-25 09:23:01 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-05-25 09:23:01 +0100 |
| commit | 9752bb739353ccfefabcf38b75b9d6fa45e255df (patch) | |
| tree | e21774693a71a1e44428166e7a5b373cdb12f1ac /guix-qa-frontpage | |
| parent | 45d8790240f38400b0209627b343e70f0d9a3cc2 (diff) | |
| download | qa-frontpage-9752bb739353ccfefabcf38b75b9d6fa45e255df.tar qa-frontpage-9752bb739353ccfefabcf38b75b9d6fa45e255df.tar.gz | |
Add mumi-issue-blocking-info
Although it doesn't work yet.
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) |