diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-07-21 11:45:35 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-07-21 11:45:35 +0100 |
| commit | 075b760cda31038a6112598e83c3f58878e31671 (patch) | |
| tree | adf5f56c65b4dec85fd5a42cc912e6d1d01b90e9 /guix-qa-frontpage | |
| parent | 99c5720489f91dc9eb98c6531c2b21e6ef13b041 (diff) | |
| download | qa-frontpage-075b760cda31038a6112598e83c3f58878e31671.tar qa-frontpage-075b760cda31038a6112598e83c3f58878e31671.tar.gz | |
Guard against not determining the branch name from an issue
Diffstat (limited to 'guix-qa-frontpage')
| -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")) |