diff options
| -rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index 63d1054..886b429 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -178,14 +178,13 @@ (analyze bug-number feature-branch version index total arguments)))))) (define (patchwork-series->branch series) - (let* ((first-patch - (vector-ref - (assoc-ref series "patches") - 0)) - (details - (parse-patch-name - (assoc-ref first-patch "name")))) - (assq-ref details 'branch))) + (match (assoc-ref series "patches") + (#() "master") + (#(first-patch rest ...) + (let ((details + (parse-patch-name + (assoc-ref first-patch "name")))) + (assq-ref details 'branch))))) (define (create-branch-for-issue database issue-number patchwork-series) (define branch-name |