diff options
author | Ludovic Courtès <ludo@gnu.org> | 2020-05-27 23:28:14 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2020-05-27 23:28:14 +0200 |
commit | a5421d2bb6e27fe77e794f950833ca6d84c8c523 (patch) | |
tree | d1fac4d7d7e09694b2937d58c10fa50415529c0a /module/web | |
parent | 431056793ac10d7f5e4c4523380cea3d0de0f5e8 (diff) | |
download | guile-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.scm | 6 |
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 |