diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-10-19 10:10:54 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-10-19 10:10:54 +0100 |
| commit | e15e2edf16634a2805ebb665ca30cc2ea73c9ccd (patch) | |
| tree | 1306e52bb8ef8b2c6bb7b0f9b3666c1e98f5e0c4 /guix-qa-frontpage/manage-patch-branches.scm | |
| parent | dd3f03c1a4e42203817043fb59f29b1a3ed6db6c (diff) | |
| download | qa-frontpage-e15e2edf16634a2805ebb665ca30cc2ea73c9ccd.tar qa-frontpage-e15e2edf16634a2805ebb665ca30cc2ea73c9ccd.tar.gz | |
Fix calling create-branch-for-issue
Diffstat (limited to 'guix-qa-frontpage/manage-patch-branches.scm')
| -rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index 1fba04c..804b8b6 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -239,7 +239,7 @@ #t "issue ~A (series: ~A): all patches have not been received, skipping\n" issue-number - patchwork-series))) + (assoc-ref patchwork-series "id")))) (let ((latest-master-commit (get-latest-processed-branch-revision "master"))) @@ -457,9 +457,7 @@ (lambda () (create-branch-for-issue database issue-number - (number->string - (assoc-ref patchwork-series - "id")))) + patchwork-series)) #:unwind? #t)))) all-patchwork-series) |