From 5bd0db841cb38043074ba8ddddaabba5661d9d4a Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 21 May 2022 11:45:23 +0100 Subject: Add more logging and timeouts around fetching inputs --- guix-build-coordinator/agent.scm | 13 ++++++++++--- 1 file 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 -- cgit v1.2.3