diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-05-31 08:41:32 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-05-31 08:41:32 +0100 |
| commit | 0c7b9fb68d042d7369944322f7cd3711310c197b (patch) | |
| tree | 6ff14bbf4d9897af8f59f76a8a299b0a971e2fa7 | |
| parent | 6f84d5bb05688d232d78145465ddd6de3c7f5c6c (diff) | |
| download | qa-frontpage-0c7b9fb68d042d7369944322f7cd3711310c197b.tar qa-frontpage-0c7b9fb68d042d7369944322f7cd3711310c197b.tar.gz | |
Remove mumi-issue-tags as it's unused
| -rw-r--r-- | guix-qa-frontpage/mumi.scm | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/guix-qa-frontpage/mumi.scm b/guix-qa-frontpage/mumi.scm index d37edec..a1f5326 100644 --- a/guix-qa-frontpage/mumi.scm +++ b/guix-qa-frontpage/mumi.scm @@ -27,7 +27,6 @@ mumi-issue-blocking-info - mumi-issue-tags mumi-issue-open? mumi-bulk-issues)) @@ -54,23 +53,6 @@ `(document (query (#(issue #:number ,number) blockedby blocks)))))) (cdr (first response)))) -(define (mumi-issue-tags number) - (with-exception-handler - (lambda (exn) - (simple-format - (current-error-port) - "exception when fetching issue tags: ~A\n" - exn) - #f) - (lambda () - (let ((response - (graphql-http-get "https://issues.guix.gnu.org/graphql" - `(document (query (#(issue #:number ,number) tags)))))) - (vector->list - (assoc-ref (cdr (first response)) - "tags")))) - #:unwind? #t)) - (define (mumi-issue-open? number) (let ((response (graphql-http-get "https://issues.guix.gnu.org/graphql" |