Merge pull request #36 from ajberkley/master

Actually use storage-class in put-object
xach · Sep 30, 2019 · 28f352c · 28f352c
2 parents 9b3a43d + 20f5351
commit 28f352c
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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