diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-01-01 19:33:36 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-01-01 19:33:36 +0000 |
| commit | 6e7127504a1bfb176817ae778328689b4890163f (patch) | |
| tree | e5b78aeccc08a56b71f8864625b78af96b9baf74 /guix-build-coordinator/utils.scm | |
| parent | 4bef5164e0764be253a92f7cafb6db253e45482d (diff) | |
| download | build-coordinator-6e7127504a1bfb176817ae778328689b4890163f.tar build-coordinator-6e7127504a1bfb176817ae778328689b4890163f.tar.gz | |
Work around caching broken connections in Guix
Introduced in be5a75ebb5988b87b2392e2113f6590f353dd6cd.
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)) |