From c1811bc1915e5e85e2b59021f33ba8cb7c0af689 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 10 Nov 2022 11:32:39 +0000 Subject: Use port timeouts when fetching build inputs As this seems to hang sometimes, and maybe port timeouts will help with this. --- guix-build-coordinator/agent.scm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 6c01617..c5aeeb9 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -675,9 +675,13 @@ but the guix-daemon claims it's unavailable" (let ((log-port (open-output-string))) (with-throw-handler #t (lambda () - (parameterize ((current-build-output-port log-port)) - (build-things fetch-substitute-store - missing-paths))) + (with-port-timeouts + (lambda () + (parameterize + ((current-build-output-port log-port)) + (build-things fetch-substitute-store + missing-paths))) + #:timeout (* 60 10 1000))) (lambda (key . args) (log-msg lgr 'ERROR "exception when fetching missing paths " -- cgit v1.2.3