diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-10 08:38:44 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-10 08:38:44 +0100 |
| commit | 4ccfaffc1965cb4ed060bbd82a425026ab3bb36e (patch) | |
| tree | 7584b162d87f752404e63e858978d719dfe72f80 | |
| parent | 89dccbb9b098292a615e0f99321691c96257f4c4 (diff) | |
| download | build-coordinator-4ccfaffc1965cb4ed060bbd82a425026ab3bb36e.tar build-coordinator-4ccfaffc1965cb4ed060bbd82a425026ab3bb36e.tar.gz | |
Don't retry canceling builds if they're already canceled
| -rw-r--r-- | scripts/guix-build-coordinator.in | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 9246bbf..72aa8d4 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -701,7 +701,14 @@ tags: (assq-ref opts 'ignore-if-build-required-by-another))) #:times 6 - #:delay 5))) + #:delay 5 + #:ignore + (lambda (exn) + (and (exception-with-message? exn) + (string=? + "build-already-canceled" + (assoc-ref (exception-message exn) + "error"))))))) (unless (string=? (assoc-ref result "result") "build-canceled") (simple-format #t "~A\n" |