diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-05-23 12:03:41 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-05-23 12:03:41 +0100 |
| commit | c79f455b07af96a51a73d400f35c53dd63c99454 (patch) | |
| tree | 628e374f64a3c8121f984b542eccee2be7838109 | |
| parent | 29858eb553137172176cd00ea3d8c007590c7594 (diff) | |
| download | build-coordinator-c79f455b07af96a51a73d400f35c53dd63c99454.tar build-coordinator-c79f455b07af96a51a73d400f35c53dd63c99454.tar.gz | |
Show backtraces for perform-upload errors
| -rw-r--r-- | guix-build-coordinator/agent-messaging/http.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guix-build-coordinator/agent-messaging/http.scm b/guix-build-coordinator/agent-messaging/http.scm index 304b1e5..dee014a 100644 --- a/guix-build-coordinator/agent-messaging/http.scm +++ b/guix-build-coordinator/agent-messaging/http.scm @@ -408,7 +408,11 @@ (get-completed-upload-bytes) (lambda (uploaded-bytes) (= uploaded-bytes file-size))) - (retry-on-error perform-upload + (retry-on-error (lambda () + (with-throw-handler #t + perform-upload + (lambda _ + (backtrace)))) #:times 100 #:delay 60 #:error-hook |