diff options
Diffstat (limited to 'guix-qa-frontpage/branch.scm')
| -rw-r--r-- | guix-qa-frontpage/branch.scm | 13 |
1 files changed, 7 insertions, 6 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 |