From 682134f2ed1f8faa768f51f6eb45c0332c605391 Mon Sep 17 00:00:00 2001 From: Matt Birkholz 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 0b6a83e80..ccbb08399 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 a1fae22a3..223ed37ff 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