diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-11-10 11:32:39 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-11-10 11:32:39 +0000 |
| commit | c1811bc1915e5e85e2b59021f33ba8cb7c0af689 (patch) | |
| tree | cb143d40e4a764af58caba2657aaded6e392d553 | |
| parent | 3768aec91daebb8db58e28cffe481e8878b59700 (diff) | |
| download | build-coordinator-c1811bc1915e5e85e2b59021f33ba8cb7c0af689.tar build-coordinator-c1811bc1915e5e85e2b59021f33ba8cb7c0af689.tar.gz | |
Use port timeouts when fetching build inputs
As this seems to hang sometimes, and maybe port timeouts will help with this.
| -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 " |