diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-06-12 17:55:31 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-06-12 17:55:31 +0100 |
| commit | a2c666ab88b835cea50c6e12da9434a6b954080e (patch) | |
| tree | 4f02c830e001a75ac233fbf214a48019d56b9b29 | |
| parent | 04566fe8b7c4de578e9ea7dd985cc6d899d86379 (diff) | |
| download | qa-frontpage-a2c666ab88b835cea50c6e12da9434a6b954080e.tar qa-frontpage-a2c666ab88b835cea50c6e12da9434a6b954080e.tar.gz | |
Don't associate closed issues with branches
| -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)) |