diff options
Diffstat (limited to 'guix-build-coordinator/agent.scm')
| -rw-r--r-- | guix-build-coordinator/agent.scm | 29 |
1 files changed, 17 insertions, 12 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index ed2adb2..424d808 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -278,15 +278,20 @@ (define (agent-submit-log-file lgr coordinator-interface build-id derivation-name) - (retry-on-error - (lambda () - (let ((log-file (derivation-log-file derivation-name))) - (unless log-file - (raise-exception - (make-exception-with-message - (simple-format #f "log file missing for ~A (~A)" - derivation-name build-id)))) - + (let ((log-file + ;; TODO Not sure if retrying here is useful? + (retry-on-error + (lambda () + (let ((file (derivation-log-file derivation-name))) + (or file + (raise-exception + (make-exception-with-message + (simple-format #f "log file missing for ~A (~A)" + derivation-name build-id)))))) + #:times 3 + #:delay 3))) + (retry-on-error + (lambda () (log-msg lgr 'INFO build-id ": uploading log file " log-file) @@ -294,9 +299,9 @@ coordinator-interface build-id log-file - #:log (build-log-procedure lgr build-id)))) - #:times 12 - #:delay 10)) + #:log (build-log-procedure lgr build-id))) + #:times 12 + #:delay 10))) (define (pre-build-process lgr store |