diff options
Diffstat (limited to 'aws/request.scm')
| -rw-r--r-- | aws/request.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/aws/request.scm b/aws/request.scm index abaabb7..faa5e0d 100644 --- a/aws/request.scm +++ b/aws/request.scm @@ -154,6 +154,9 @@ (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")) @@ -202,8 +205,7 @@ 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 |