From ffca0ac8b0be62928eddfba902efcf828355404f Mon Sep 17 00:00:00 2001 From: Matt Birkholz <matt@birchwood-abbey.net> Date: Sun, 11 Nov 2018 12:05:48 -0700 Subject: [PATCH] runtime/http-io: request body can be #f --- src/runtime/http-client.scm | 4 ++-- src/runtime/http-io.scm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/runtime/http-client.scm b/src/runtime/http-client.scm index 2cde4a7a1..e73ccf68d 100644 --- a/src/runtime/http-client.scm +++ b/src/runtime/http-client.scm @@ -30,10 +30,10 @@ USA. (declare (usual-integrations)) (define (http-get uri headers) - (http-client-exchange "GET" (->uri uri) headers (bytevector))) + (http-client-exchange "GET" (->uri uri) headers #f)) (define (http-head uri headers) - (http-client-exchange "HEAD" (->uri uri) headers (bytevector))) + (http-client-exchange "HEAD" (->uri uri) headers #f)) (define (http-post uri headers body) (http-client-exchange "POST" (->uri uri) headers body)) diff --git a/src/runtime/http-io.scm b/src/runtime/http-io.scm index c9ca27a8d..12fdeb81f 100644 --- a/src/runtime/http-io.scm +++ b/src/runtime/http-io.scm @@ -93,7 +93,7 @@ USA. (number->string m)) headers) body)))) - (values headers ""))) + (values headers (bytevector)))) (define (simple-http-request? object) (and (http-request? object) @@ -103,7 +103,7 @@ USA. (define (make-simple-http-request uri) (guarantee simple-http-request-uri? uri 'make-http-request) - (%make-http-request '|GET| uri #f '() "")) + (%make-http-request '|GET| uri #f '() (bytevector))) (define (simple-http-response? object) (and (http-response? object) -- 2.25.1