aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix-qa-frontpage/patchwork.scm8
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 ...)