From 4f6baa6e6acb4b056dce1c9fac18654f3934f549 Mon Sep 17 00:00:00 2001 From: Andrew Berkley Date: Sun, 29 Sep 2019 11:44:47 -0700 Subject: [PATCH 1/2] Actually use storage-class in put-object --- interface.lisp | 1 + 1 file changed, 1 insertion(+) diff --git a/interface.lisp b/interface.lisp index 2f54b95..f107be0 100644 --- a/interface.lisp +++ b/interface.lisp @@ -391,6 +391,7 @@ constraint." :metadata metadata :amz-headers (append policy-header + (list (cons "storage-class" storage-class)) (when security-token (list (cons "security-token" security-token))) (when tagging From 20f5351cd51df4de6f9f82075e675ff0ab566073 Mon Sep 17 00:00:00 2001 From: Andrew Berkley Date: Sun, 29 Sep 2019 18:14:09 -0700 Subject: [PATCH 2/2] Spaces instead of tabs --- interface.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/interface.lisp b/interface.lisp index f107be0..486f28e 100644 --- a/interface.lisp +++ b/interface.lisp @@ -391,7 +391,7 @@ constraint." :metadata metadata :amz-headers (append policy-header - (list (cons "storage-class" storage-class)) + (list (cons "storage-class" storage-class)) (when security-token (list (cons "security-token" security-token))) (when tagging