diff options
Diffstat (limited to 'guix-build-coordinator/utils.scm')
| -rw-r--r-- | guix-build-coordinator/utils.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 9127ce8..50eb9f7 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -282,6 +282,12 @@ upcoming chunk." (narinfo-references narinfo)) (list output))))) +;; Work around Guix holding on to broken connections to substitute servers +;; (because of mishandling gnutls errors). +(let ((mod (resolve-module '(guix scripts substitute)))) + (when (module-variable mod '%max-cached-connections) + (module-set! mod '%max-cached-connections 0))) + (define (has-substiutes-no-cache? substitute-urls file) (define %narinfo-cache-directory (if (zero? (getuid)) |