summaryrefslogtreecommitdiff
path: root/module/web
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-05-27 23:28:14 +0200
committerLudovic Courtès <ludo@gnu.org>2020-05-27 23:28:14 +0200
commita5421d2bb6e27fe77e794f950833ca6d84c8c523 (patch)
treed1fac4d7d7e09694b2937d58c10fa50415529c0a /module/web
parent431056793ac10d7f5e4c4523380cea3d0de0f5e8 (diff)
downloadguile-a5421d2bb6e27fe77e794f950833ca6d84c8c523.tar.gz
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'.
Diffstat (limited to 'module/web')
-rw-r--r--module/web/client.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/module/web/client.scm b/module/web/client.scm
index 769f3ecfa..3d32cadc7 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