mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-21 12:10:26 +02:00
Code Activity

web: 'http-get' & co. now honor #:verify-certificate?.

Browse source 
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'.
This commit is contained in:
Ludovic Courtès 2020-05-27 23:28:14 +02:00
parent 431056793a
commit a5421d2bb6
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/web/client.scm
View file

@ -545,12 +545,14 @@ true)."
(define-syntax-rule (define-http-verb http-verb method doc) (define-syntax-rule (define-http-verb http-verb method doc)
(define* (http-verb uri #:key (define* (http-verb uri #:key
(body #f) (body #f)
(port (open-socket-for-uri uri)) (verify-certificate? #t)
(port (open-socket-for-uri uri
#:verify-certificate?
verify-certificate?))
(version '(1 . 1)) (version '(1 . 1))
(keep-alive? #f) (keep-alive? #f)
(headers '()) (headers '())
(decode-body? #t) (decode-body? #t)
(verify-certificate? #t)
(streaming? #f)) (streaming? #f))
doc doc
(http-request uri (http-request uri