diff options
| -rw-r--r-- | guix-qa-frontpage/branch.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/guix-qa-frontpage/branch.scm b/guix-qa-frontpage/branch.scm index df6fdd3..51fa4ef 100644 --- a/guix-qa-frontpage/branch.scm +++ b/guix-qa-frontpage/branch.scm @@ -43,9 +43,9 @@ (define (list-non-master-branches) (define (issue-title->branch title) - (match:substring - (string-match ".* \"([^\"]*)\".*" title) - 1)) + (and=> (string-match ".* \"([^\"]*)\".*" title) + (lambda (m) + (match:substring m 1)))) (define merge-issues-by-branch (filter-map @@ -54,7 +54,7 @@ (assoc-ref issue "title"))) (issue-number (assoc-ref issue "number"))) - (when (assoc-ref issue "open") + (when (and branch (assoc-ref issue "open")) (cons branch `(("issue_number" . ,issue-number) ("issue_date" . ,(assoc-ref issue "date")) |