diff options
Diffstat (limited to 'guix-qa-frontpage/debbugs.scm')
| -rw-r--r-- | guix-qa-frontpage/debbugs.scm | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/guix-qa-frontpage/debbugs.scm b/guix-qa-frontpage/debbugs.scm index ea37e13..656865d 100644 --- a/guix-qa-frontpage/debbugs.scm +++ b/guix-qa-frontpage/debbugs.scm @@ -18,8 +18,22 @@ (define-module (guix-qa-frontpage debbugs) #:use-module (debbugs) - #:export (debbugs-get-issues-with-guix-usertag)) + #:use-module (guix-qa-frontpage mumi) + #:export (debbugs-get-issues-with-guix-usertag + + fetch-issues-with-guix-tag)) (define (debbugs-get-issues-with-guix-usertag) (soap-invoke (%gnu) get-usertag "guix")) +(define (fetch-issues-with-guix-tag tag) + (define issues + (let ((data (assoc-ref (debbugs-get-issues-with-guix-usertag) + tag))) + (if (number? data) + (list data) + data))) + + (map cons + issues + (mumi-bulk-issues issues))) |