diff options
| -rw-r--r-- | aws/request.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/aws/request.scm b/aws/request.scm index 21cc51b..d82df4c 100644 --- a/aws/request.scm +++ b/aws/request.scm @@ -205,8 +205,11 @@ used for presigned URLs." (amz-date (date->string now "~Y~m~dT~H~M~SZ")) (date-stamp (date->string now "~Y~m~d")) (headers - (cons `(x-amz-date . ,amz-date) - headers)) + (sort (cons `(x-amz-date . ,amz-date) + headers) + (lambda (a b) + (string< (symbol->string (first a)) + (symbol->string (first b)))))) (canonical-headers ;; Header names must be trimmed, lower-case, sorted in ;; code point order from low to high! Note: there must |