diff options
-rw-r--r-- | guix-build-coordinator/agent.scm | 10 |
1 files 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 " |