diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-02-11 10:45:50 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-02-11 10:45:50 +0000 |
| commit | 5c0050a082c042e21f2ba53778ec3abe6777f5ae (patch) | |
| tree | e36c986a473636a0c1110f92b9f28726758c7921 | |
| parent | e496425b294c493c69e7d20ae9347bad48b39dde (diff) | |
| download | qa-frontpage-master.tar qa-frontpage-master.tar.gz | |
As this works better for the JSON output.
| -rw-r--r-- | guix-qa-frontpage/branch.scm | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/guix-qa-frontpage/branch.scm b/guix-qa-frontpage/branch.scm index 9ffc797..6276476 100644 --- a/guix-qa-frontpage/branch.scm +++ b/guix-qa-frontpage/branch.scm @@ -69,11 +69,12 @@ `(("issue_number" . ,issue-number) ("issue_date" . ,(assoc-ref issue "date")) ("blocked_by" - . ,(map (lambda (issue) - (assoc-ref issue "number")) - (or (and=> (assoc-ref issue "blocked_by") - vector->list) - '())))))))) + . ,(list->vector + (map (lambda (issue) + (assoc-ref issue "number")) + (or (and=> (assoc-ref issue "blocked_by") + vector->list) + '()))))))))) (vector->list (mumi-search-issues ;; TODO: subject: doesn't seem to work for issues where the @@ -152,9 +153,11 @@ (assq-ref initial-ordering-index-by-branch (car b))) (a-blocked-by - (or (assoc-ref (cdr a) "blocked_by") '())) + (vector->list + (or (assoc-ref (cdr a) "blocked_by") #()))) (b-blocked-by - (or (assoc-ref (cdr b) "blocked_by") '()))) + (vector->list + (or (assoc-ref (cdr b) "blocked_by") #())))) (< (if (null? a-blocked-by) a-initial-ordering-index |