[Guile-commits] branch master updated: web: 'http-get' & co. now honor #:verify-certificate?.

[Ludovic Courtès]

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 <ludo@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 <jsynacek@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