diff options
| -rw-r--r-- | guix/lint.scm | 6 |
1 files changed, 6 insertions, 0 deletions
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)) |