diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-06-12 21:15:22 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-06-12 21:15:22 +0100 |
| commit | c53209b39e77e7217c23b193df454dd469938266 (patch) | |
| tree | eca55e89e9b7499d4b9b58928321fd549e33be04 | |
| parent | 15e5809b734d2af464a4007d0e319280ade8f228 (diff) | |
| download | bffe-c53209b39e77e7217c23b193df454dd469938266.tar bffe-c53209b39e77e7217c23b193df454dd469938266.tar.gz | |
Move exception handler in to the loop
So things don't just stop on the dreaded "conversion to port encoding failed"
error.
| -rw-r--r-- | bffe/manage-builds.scm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/bffe/manage-builds.scm b/bffe/manage-builds.scm index 9e26b07..e100254 100644 --- a/bffe/manage-builds.scm +++ b/bffe/manage-builds.scm @@ -295,11 +295,11 @@ #:name "submit-builds"))) (call-with-new-thread (lambda () - (with-exception-handler - (lambda (exn) - (log-msg 'ERROR "exception in submit builds thread: " exn)) - (lambda () - (while #t + (while #t + (with-exception-handler + (lambda (exn) + (log-msg 'ERROR "exception in submit builds thread: " exn)) + (lambda () (for-each (lambda (repository-id) (for-each @@ -357,5 +357,5 @@ ;; Wait until all the builds have been submitted (sleep 5)) - (sleep 60))) - #:unwind? #t)))))) + (sleep 60)))) + #:unwind? #t))))) |