aws/request: make-operation->request: Always append request body.
authorRicardo Wurmus <rekado@elephly.net>
Tue, 2 Mar 2021 21:56:46 +0000 (22:56 +0100)
committerRicardo Wurmus <rekado@elephly.net>
Tue, 2 Mar 2021 21:56:46 +0000 (22:56 +0100)
* aws/request.scm (make-operation->request): Remove match expression.

aws/request.scm

index 8ecb543f4f1b4afe65496f60e71b056c090b7dcb..630112e946d96f828f6bc5777d202eabdbafab83 100644 (file)
@@ -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