From 468a5f8676c82e17de98d12077c671823177d944 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Thu, 24 Jun 2021 13:57:54 +0200 Subject: lint: 'with-networking-fail-safe' handles 'gnutls-error' exceptions. * guix/lint.scm (call-with-networking-fail-safe): Add clause for 'gnutls-error'. --- guix/lint.scm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'guix/lint.scm') diff --git a/guix/lint.scm b/guix/lint.scm index d65d5ce8f9..36a672c081 100644 --- a/guix/lint.scm +++ b/guix/lint.scm @@ -68,6 +68,7 @@ . guix:open-connection-for-uri))) #:use-module (web request) #:use-module (web response) + #:autoload (gnutls) (error->string) #:use-module (srfi srfi-1) #:use-module (srfi srfi-6) ;Unicode string ports #:use-module (srfi srfi-9) @@ -1162,6 +1163,11 @@ display a message including MESSAGE and return ERROR-VALUE." message (tls-certificate-error-string args)) error-value) + (('gnutls-error error function _ ...) + (warning (G_ "~a: TLS error in '~a': ~a~%") + message + function (error->string error)) + error-value) ((and ('system-error _ ...) args) (let ((errno (system-error-errno args))) (if (member errno (list ECONNRESET ECONNABORTED ECONNREFUSED)) -- cgit v1.2.3