diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-06-18 17:07:55 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-06-18 17:07:55 +0100 |
| commit | df99e2f56cb7353b1b3488472794944f83cb004c (patch) | |
| tree | 718effd7c4b9442fa5dfb65c54fc2a9bc3c62f3d | |
| parent | 13ec3ab8addd61cfc1b6a98561fa57b410f54a55 (diff) | |
| download | qa-frontpage-df99e2f56cb7353b1b3488472794944f83cb004c.tar qa-frontpage-df99e2f56cb7353b1b3488472794944f83cb004c.tar.gz | |
Fix parsing cover letters for branch names
| -rw-r--r-- | guix-qa-frontpage/patchwork.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/guix-qa-frontpage/patchwork.scm b/guix-qa-frontpage/patchwork.scm index c905a59..2126e5c 100644 --- a/guix-qa-frontpage/patchwork.scm +++ b/guix-qa-frontpage/patchwork.scm @@ -173,9 +173,11 @@ (define (patchwork-series->branch series) (if (list? (assoc-ref series "cover_letter")) - (parse-patch-name - (assoc-ref (assoc-ref series "cover_letter") - "name")) + (assq-ref + (parse-patch-name + (assoc-ref (assoc-ref series "cover_letter") + "name")) + 'branch) (match (assoc-ref series "patches") (#() "master") (#(first-patch rest ...) |