aboutsummaryrefslogtreecommitdiff
path: root/guix-qa-frontpage/manage-patch-branches.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2022-12-09 11:49:26 +0000
committerChristopher Baines <mail@cbaines.net>2022-12-09 11:49:26 +0000
commitf5108528cde9f9b1fb21ab640d9eff6df5b484ef (patch)
tree7cf4dd564abb34c5cd526fba411c60f697bb1e4c /guix-qa-frontpage/manage-patch-branches.scm
parentba5dc7d8a450484156b3124faf634466364fc13b (diff)
downloadqa-frontpage-f5108528cde9f9b1fb21ab640d9eff6df5b484ef.tar
qa-frontpage-f5108528cde9f9b1fb21ab640d9eff6df5b484ef.tar.gz
Fix some variable issues
Diffstat (limited to 'guix-qa-frontpage/manage-patch-branches.scm')
-rw-r--r--guix-qa-frontpage/manage-patch-branches.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm
index 82aa006..7d66e23 100644
--- a/guix-qa-frontpage/manage-patch-branches.scm
+++ b/guix-qa-frontpage/manage-patch-branches.scm
@@ -339,8 +339,10 @@
(simple-format
(current-error-port)
"deleting tag and branch for issue\n")
- (system* "git" "push" "--delete" "patches" base-tag)
- (system* "git" "push" "--progress" "patches" "--delete" branch-name))
+ (system* "git" "push" "--delete" "patches"
+ (simple-format #f "base-for-issue-~A" issue-number))
+ (system* "git" "push" "--progress" "patches" "--delete"
+ (simple-format #f "issue-~A" issue-number)))
(lambda ()
(with-throw-handler #t
(lambda ()