diff options
author | Christopher Baines <mail@cbaines.net> | 2020-05-23 08:50:49 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-05-23 08:50:49 +0100 |
commit | 820bd07fd8af7ec077e9a9eca4266a0a73b842b9 (patch) | |
tree | 46e0d6cceab114e546f3c2a1f9deff756d77ec40 | |
parent | b289a472fc0ace53ba80554c7dfe49280680a56a (diff) | |
download | build-coordinator-820bd07fd8af7ec077e9a9eca4266a0a73b842b9.tar build-coordinator-820bd07fd8af7ec077e9a9eca4266a0a73b842b9.tar.gz |
Re-queue jobs if they fail
So that they're not forgotten about.
-rw-r--r-- | guix-build-coordinator/utils.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index a0d8df3..a95e970 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -551,7 +551,9 @@ References: ~a~%" (lambda (exn) (simple-format (current-error-port) "exception when handling job: ~A\n" - exn)) + exn) + ;; Add the job back to the queue so that it's tried again + (process-job job-args)) (lambda () (apply proc job-args)) #:unwind? #t) |