[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Ludovic Courtès
Subject: [Guile-commits] branch master updated: web: 'http-get' & co. now honor #:verify-certificate?.
Date: Wed, 27 May 2020 17:29:29 -0400

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 <>
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 <>.
    Reported by Jan Synacek <>.
    * 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))
     (http-request uri

reply via email to

[Prev in Thread] Current Thread [Next in Thread]