diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-10-21 11:43:39 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-10-21 11:43:39 +0100 |
| commit | b782e752205422054c932bd3a8196dcfdc33b346 (patch) | |
| tree | 32f3ed75fedca97ea3468f5a831dcc81a2cbbfff /guix-build-coordinator/utils.scm | |
| parent | 5156d4d354fd7d7c5986d36180dd8dcfd639d90a (diff) | |
| download | build-coordinator-b782e752205422054c932bd3a8196dcfdc33b346.tar build-coordinator-b782e752205422054c932bd3a8196dcfdc33b346.tar.gz | |
Log the file size and md5 hash on the agent side
When errors occur during upload.
Diffstat (limited to 'guix-build-coordinator/utils.scm')
| -rw-r--r-- | guix-build-coordinator/utils.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 67ebf72..961e225 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -732,7 +732,7 @@ References: ~a~%" (canonical-sexp->string (signed-string info))))) (format #f "~aSignature: 1;~a;~a~%" info (gethostname) signature))) -(define* (retry-on-error f #:key times delay ignore) +(define* (retry-on-error f #:key times delay ignore error-hook) (let loop ((attempt 1)) (match (with-exception-handler (lambda (exn) @@ -773,6 +773,8 @@ References: ~a~%" attempt times delay) + (when error-hook + (error-hook attempt exn)) (sleep delay) (simple-format (current-error-port) @@ -789,6 +791,8 @@ References: ~a~%" attempt times delay) + (when error-hook + (error-hook attempt exn)) (sleep delay) (loop (+ 1 attempt)))))))) |