diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-05-21 11:45:23 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-05-21 11:45:23 +0100 |
| commit | 5bd0db841cb38043074ba8ddddaabba5661d9d4a (patch) | |
| tree | 623b7690a151b7ce7f3c6725ad7a64d51a430b7a | |
| parent | 52116eabb7e72d25d9f3491110f84ac799f9d0ce (diff) | |
| download | build-coordinator-5bd0db841cb38043074ba8ddddaabba5661d9d4a.tar build-coordinator-5bd0db841cb38043074ba8ddddaabba5661d9d4a.tar.gz | |
Add more logging and timeouts around fetching inputs
| -rw-r--r-- | guix-build-coordinator/agent.scm | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index b36ae60..5bbd7d9 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -563,13 +563,18 @@ unable to query substitute servers without caching")) (map (lambda (file) + (log-msg lgr 'DEBUG + build-id ": looking for missing input " file) (let ((substitute-urls-with-substitute (if (list? non-derivation-substitute-urls) (retry-on-error (lambda () - (has-substiutes-no-cache? - non-derivation-substitute-urls - file)) + (with-timeout 60 ; seconds + (raise-exception + (make-exception-with-message "timeout checking for substitutes (no cache)")) + (has-substiutes-no-cache? + non-derivation-substitute-urls + file))) #:times 20 #:delay (random 15)) #f))) @@ -606,6 +611,8 @@ but the guix-daemon claims it's unavailable" missing-paths path-substitutes) (begin + (log-msg lgr 'DEBUG + build-id ": fetching " (length missing-paths) "missing paths") (retry-on-error (lambda () (with-timeout (* 60 11) ; 11 minutes |