diff options
| -rw-r--r-- | guix/substitutes.scm | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/guix/substitutes.scm b/guix/substitutes.scm index e31b394020..7ca55788d5 100644 --- a/guix/substitutes.scm +++ b/guix/substitutes.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013-2021, 2023-2024 Ludovic Courtès <[email protected]> +;;; Copyright © 2013-2021, 2023-2025 Ludovic Courtès <[email protected]> ;;; Copyright © 2014 Nikita Karetnikov <[email protected]> ;;; Copyright © 2018 Kyle Meyer <[email protected]> ;;; Copyright © 2020 Christopher Baines <[email protected]> @@ -35,7 +35,10 @@ #:select ((open-connection-for-uri . guix:open-connection-for-uri) resolve-uri-reference)) - #:autoload (gnutls) (error->string error/premature-termination) + #:autoload (gnutls) (error->string + error/premature-termination + error/pull-error + error/push-error) #:use-module (guix progress) #:use-module (ice-9 match) #:use-module (ice-9 format) @@ -154,7 +157,9 @@ indicates that PATH is unavailable at CACHE-URL." (system-error-errno `(system-error ,@args))))) #f) (('gnutls-error error proc . rest) - (if (eq? error error/premature-termination) + (if (memq error (list error/premature-termination + error/pull-error + error/push-error)) (begin (warning (G_ "~a: TLS connection failed: in ~a: ~a~%") host proc (error->string error)) |