From: Ricardo Wurmus <rekado@elephly.net>
Date: Tue, 7 Jul 2020 19:28:01 +0000 (+0200)
Subject: aws/request: make-operation->request: Include content hash header.
X-Git-Url: https://git.elephly.net/?p=software%2Fguile-aws.git;a=commitdiff_plain;h=b88ce25b3e8398d28139b5778fa92d6c6699082c

aws/request: make-operation->request: Include content hash header.

The x-amz-content-sha256 is required for S3.

* aws/request.scm (make-operation->request)[headers]: Add
x-amz-content-sha256 header.
---

diff --git a/aws/request.scm b/aws/request.scm
index e0cf58f..764ed43 100644
--- a/aws/request.scm
+++ b/aws/request.scm
@@ -175,6 +175,7 @@
     (define headers
       (filter cdr `((content-type . ,content-type)
                     (host         . (,host . #f))
+                    (x-amz-content-sha256 . ,payload-hash)
                     (x-amz-date   . ,amz-date)
                     (x-amz-target . ,amz-target))))
     (define authorization-header