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 | |
| parent | dd3f03c1a4e42203817043fb59f29b1a3ed6db6c (diff) | |
| download | qa-frontpage-e15e2edf16634a2805ebb665ca30cc2ea73c9ccd.tar qa-frontpage-e15e2edf16634a2805ebb665ca30cc2ea73c9ccd.tar.gz | |
Fix calling create-branch-for-issue
| -rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 6 | ||||
| -rw-r--r-- | scripts/guix-qa-frontpage.in | 6 |
2 files changed, 4 insertions, 8 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) diff --git a/scripts/guix-qa-frontpage.in b/scripts/guix-qa-frontpage.in index 8be8a7a..82103ff 100644 --- a/scripts/guix-qa-frontpage.in +++ b/scripts/guix-qa-frontpage.in @@ -236,10 +236,8 @@ (create-branch-for-issue database issue-number - (number->string - (assoc-ref (assq-ref all-patchwork-series - issue-number) - "id")))))) + (assq-ref all-patchwork-series + issue-number))))) ((args ...) (let ((opts (parse-options |