From 79678762ec1a77376c36aa5097d1951516ecc0b7 Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Tue, 2 Mar 2021 22:56:46 +0100
Subject: aws/request: make-operation->request: Always append request body.

* aws/request.scm (make-operation->request): Remove match expression.
---
 aws/request.scm | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'aws/request.scm')

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
-- 
cgit v1.2.3