diff options
| -rw-r--r-- | guix-qa-frontpage/branch.scm | 13 | ||||
| -rw-r--r-- | guix-qa-frontpage/mumi.scm | 2 |
2 files changed, 8 insertions, 7 deletions
diff --git a/guix-qa-frontpage/branch.scm b/guix-qa-frontpage/branch.scm index 937b94b..fee5078 100644 --- a/guix-qa-frontpage/branch.scm +++ b/guix-qa-frontpage/branch.scm @@ -48,17 +48,18 @@ 1)) (define merge-issues-by-branch - (map + (filter-map (lambda (issue) (let ((branch (issue-title->branch (assoc-ref issue "title"))) (issue-number (assoc-ref issue "number"))) - (cons branch - `(("issue_number" . ,issue-number) - ("issue_date" . ,(assoc-ref issue "date")))))) - ;; TODO: Mumi doesn't expose this yet - ;; ,@(mumi-issue-blocking-info issue-number))))) + (when (assoc-ref issue "open") + (cons branch + `(("issue_number" . ,issue-number) + ("issue_date" . ,(assoc-ref issue "date"))))))) + ;; TODO: Mumi doesn't expose this yet + ;; ,@(mumi-issue-blocking-info issue-number))))) (vector->list (mumi-search-issues ;; TODO: Finalise this diff --git a/guix-qa-frontpage/mumi.scm b/guix-qa-frontpage/mumi.scm index 9960cab..ce6a435 100644 --- a/guix-qa-frontpage/mumi.scm +++ b/guix-qa-frontpage/mumi.scm @@ -72,7 +72,7 @@ (lambda () (let ((response (graphql-http-get "https://issues.guix.gnu.org/graphql" - `(document (query (#(issues #:search ,query) number title date)))))) + `(document (query (#(issues #:search ,query) number title date open)))))) (assoc-ref response "issues"))) #:unwind? #t)) |