diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-08-29 15:19:22 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-08-29 15:19:22 +0100 |
| commit | c2e921879a524364b5f386b2003d143b55ee2e71 (patch) | |
| tree | 38af40a00d8eb7f49b3de1d519ee1949ea8263d9 | |
| parent | e590ffcc3d22da103b4698f6abe128065bfced14 (diff) | |
| download | qa-frontpage-c2e921879a524364b5f386b2003d143b55ee2e71.tar qa-frontpage-c2e921879a524364b5f386b2003d143b55ee2e71.tar.gz | |
Ignore exceptions when deleting the base-for-issue- tag
As it might have already been deleted.
| -rw-r--r-- | guix-qa-frontpage/manage-patch-branches.scm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/guix-qa-frontpage/manage-patch-branches.scm b/guix-qa-frontpage/manage-patch-branches.scm index 3630fe1..26ca2ef 100644 --- a/guix-qa-frontpage/manage-patch-branches.scm +++ b/guix-qa-frontpage/manage-patch-branches.scm @@ -299,8 +299,15 @@ (with-bare-git-repository (lambda () - (run "git" "push" "patches" "--delete" - (simple-format #f "base-for-issue-~A" issue-number)) + (let ((tag (simple-format #f "base-for-issue-~A" issue-number))) + (with-exception-handler + (lambda (exn) + (simple-format + (current-error-port) + "ignoring exception when deleting tag ~A\n" tag)) + (lambda () + (run "git" "push" "patches" "--delete" tag)) + #:unwind? #t)) (run "git" "push" "patches" "--delete" (simple-format #f "issue-~A" issue-number)))))) issue-numbers)) |