summaryrefslogtreecommitdiff
path: root/aws/request.scm
diff options
context:
space:
mode:
Diffstat (limited to 'aws/request.scm')
-rw-r--r--aws/request.scm6
1 files changed, 1 insertions, 5 deletions
diff --git a/aws/request.scm b/aws/request.scm
index 8ecb543..630112e 100644
--- a/aws/request.scm
+++ b/aws/request.scm
@@ -329,11 +329,7 @@ corresponding value in INPUT."
(lambda ()
(http-request (string-append endpoint canonical-uri)
#:method (string->symbol method)
- #:body
- (match method
- ("POST"
- (string->utf8 request-parameters))
- (_ ""))
+ #:body (string->utf8 request-parameters)
#:headers new-headers))
(lambda (response body)
(let ((server-text (match body