aws/request: make-operation->request: Define PAYLOAD-HASH.

* aws/request.scm (make-operation->request)[payload-hash]: New
variable definition.

diff --git a/aws/request.scm b/aws/request.scm
index abaabb7127503ac4aa7e55c7f3c97760218a88c0..faa5e0dc8580196bcfeaa9043628685cb570d36d 100644 (file)
--- a/aws/request.scm
+++ b/aws/request.scm
@@ -154,6 +154,9 @@
                           (serialize-aws-value input))
                    "&"))
 
                           (serialize-aws-value input))
                    "&"))
 

+    (define payload-hash
+      (hexify (sha256 (string->utf8 request-parameters))))
+

     (define now (current-date 0))
     (define amz-date
       (date->string now "~Y~m~dT~H~M~SZ"))
     (define now (current-date 0))
     (define amz-date
       (date->string now "~Y~m~dT~H~M~SZ"))


@@ -202,8 +205,7 @@
                                  canonical-querystring
                                  canonical-headers
                                  signed-headers
                                  canonical-querystring
                                  canonical-headers
                                  signed-headers

-                                 ;; The payload hash
-                                 (hexify (sha256 (string->utf8 request-parameters))))
+                                 payload-hash)

                            "\n"))
              (credential-scope
               (string-join (list date-stamp
                            "\n"))
              (credential-scope
               (string-join (list date-stamp