diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-11-15 18:01:30 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-11-15 18:01:30 +0000 |
| commit | 0ea40044796b9495edf9c162a617a8b42621e3a9 (patch) | |
| tree | fa1f7573f2395c8b4c1f38a8462a61686f4f433f /guix-build-coordinator | |
| parent | 0a9f59c1156d3bd89d55488bed228499bcc0058f (diff) | |
| download | build-coordinator-0ea40044796b9495edf9c162a617a8b42621e3a9.tar build-coordinator-0ea40044796b9495edf9c162a617a8b42621e3a9.tar.gz | |
Handle failures around fetching builds
Without just stopping the agent.
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/agent.scm | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 5ff1fa7..66160fc 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -403,11 +403,19 @@ (list-jobs) (list-post-build-jobs))))) (fetched-builds - (fetch-builds-for-agent coordinator-interface - systems - (+ (max current-threads 1) - (count-post-build-jobs)) - #:log (build-log-procedure lgr))) + (with-exception-handler + (lambda (exn) + (log-msg lgr 'WARN "error fetching builds: " exn) + + '()) + (lambda () + (fetch-builds-for-agent + coordinator-interface + systems + (+ (max current-threads 1) + (count-post-build-jobs)) + #:log (build-log-procedure lgr))) + #:unwind? #t)) (new-builds (remove (lambda (build) (member (assoc-ref build "uuid") |