This is an automated email from the git hooks/post-receive script. civodul pushed a commit to branch master in repository guile.
The following commit(s) were added to refs/heads/master by this push: new a5421d2 web: 'http-get' & co. now honor #:verify-certificate?. a5421d2 is described below commit a5421d2bb6e27fe77e794f950833ca6d84c8c523 Author: Ludovic Courtès <l...@gnu.org> AuthorDate: Wed May 27 23:28:14 2020 +0200 web: 'http-get' & co. now honor #:verify-certificate?. Previously they would always assume #:verify-certificate? #t, unless #:port was given. Fixes <https://bugs.gnu.org/40486>. Reported by Jan Synacek <jsyna...@redhat.com>. * module/web/client.scm (define-http-verb): Pass #:verify-certificate? to 'open-socket-for-uri'. --- module/web/client.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/module/web/client.scm b/module/web/client.scm index 769f3ec..3d32cad 100644 --- a/module/web/client.scm +++ b/module/web/client.scm @@ -545,12 +545,14 @@ true)." (define-syntax-rule (define-http-verb http-verb method doc) (define* (http-verb uri #:key (body #f) - (port (open-socket-for-uri uri)) + (verify-certificate? #t) + (port (open-socket-for-uri uri + #:verify-certificate? + verify-certificate?)) (version '(1 . 1)) (keep-alive? #f) (headers '()) (decode-body? #t) - (verify-certificate? #t) (streaming? #f)) doc (http-request uri