amazonka-s3 1.3.3.1 → 1.3.4

raw patch · 7 files changed

+59/−8 lines, 7 filesdep ~amazonka-coredep ~amazonka-s3dep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-s3, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-s3.cabal +5/−5
• gen/Network/AWS/S3.hs +3/−0
• gen/Network/AWS/S3/CopyObject.hs +11/−1
• gen/Network/AWS/S3/Types.hs +3/−0
• gen/Network/AWS/S3/Types/Sum.hs +24/−0
• gen/Network/AWS/S3/UploadPart.hs +12/−1

@@ -8,7 +8,7 @@  ## Version -`1.3.3.1`+`1.3.4`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-s3-version:               1.3.3.1+version:               1.3.4 synopsis:              Amazon Simple Storage Service SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -108,7 +108,7 @@         , Network.AWS.S3.Types.Sum      build-depends:-          amazonka-core == 1.3.3.*+          amazonka-core == 1.3.4.*         , base          >= 4.7     && < 5         , lens >= 4.4         , text >= 1.1@@ -130,9 +130,9 @@         , Test.AWS.S3.Internal      build-depends:-          amazonka-core == 1.3.3.*-        , amazonka-test == 1.3.3.*-        , amazonka-s3 == 1.3.3.*+          amazonka-core == 1.3.4.*+        , amazonka-test == 1.3.4.*+        , amazonka-s3 == 1.3.4.*         , base         , bytestring         , lens

@@ -297,6 +297,9 @@     -- ** Type     , Type (..) +    -- ** UploadPartRequestServerSideEncryption+    , UploadPartRequestServerSideEncryption (..)+     -- ** AccessControlPolicy     , AccessControlPolicy     , accessControlPolicy

@@ -64,6 +64,7 @@     , CopyObjectResponse     -- * Response Lenses     , corsRequestCharged+    , corsVersionId     , corsExpiration     , corsSSECustomerAlgorithm     , corsCopySourceVersionId@@ -377,7 +378,8 @@               (\ s h x ->                  CopyObjectResponse' <$>                    (h .#? "x-amz-request-charged") <*>-                     (h .#? "x-amz-expiration")+                     (h .#? "x-amz-version-id")+                     <*> (h .#? "x-amz-expiration")                      <*>                      (h .#?                         "x-amz-server-side-encryption-customer-algorithm")@@ -446,6 +448,7 @@ -- | /See:/ 'copyObjectResponse' smart constructor. data CopyObjectResponse = CopyObjectResponse'     { _corsRequestCharged       :: !(Maybe RequestCharged)+    , _corsVersionId            :: !(Maybe ObjectVersionId)     , _corsExpiration           :: !(Maybe Text)     , _corsSSECustomerAlgorithm :: !(Maybe Text)     , _corsCopySourceVersionId  :: !(Maybe Text)@@ -462,6 +465,8 @@ -- -- * 'corsRequestCharged' --+-- * 'corsVersionId'+-- -- * 'corsExpiration' -- -- * 'corsSSECustomerAlgorithm'@@ -483,6 +488,7 @@ copyObjectResponse pResponseStatus_ =     CopyObjectResponse'     { _corsRequestCharged = Nothing+    , _corsVersionId = Nothing     , _corsExpiration = Nothing     , _corsSSECustomerAlgorithm = Nothing     , _corsCopySourceVersionId = Nothing@@ -496,6 +502,10 @@ -- | Undocumented member. corsRequestCharged :: Lens' CopyObjectResponse (Maybe RequestCharged) corsRequestCharged = lens _corsRequestCharged (\ s a -> s{_corsRequestCharged = a});++-- | Version ID of the newly created copy.+corsVersionId :: Lens' CopyObjectResponse (Maybe ObjectVersionId)+corsVersionId = lens _corsVersionId (\ s a -> s{_corsVersionId = a});  -- | If the object expiration is configured, the response includes this -- header.

@@ -98,6 +98,9 @@     -- * Type     , Type (..) +    -- * UploadPartRequestServerSideEncryption+    , UploadPartRequestServerSideEncryption (..)+     -- * AccessControlPolicy     , AccessControlPolicy     , accessControlPolicy

@@ -732,3 +732,27 @@  instance ToXML Type where     toXML = toXMLText++-- | The Server-side encryption algorithm used when storing this object in S3+-- (e.g., AES256).+data UploadPartRequestServerSideEncryption =+    UPRSSEAES256+    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)++instance FromText UploadPartRequestServerSideEncryption where+    parser = takeLowerText >>= \case+        "aes256" -> pure UPRSSEAES256+        e -> fromTextError $ "Failure parsing UploadPartRequestServerSideEncryption from value: '" <> e+           <> "'. Accepted values: AES256"++instance ToText UploadPartRequestServerSideEncryption where+    toText = \case+        UPRSSEAES256 -> "AES256"++instance Hashable     UploadPartRequestServerSideEncryption+instance ToByteString UploadPartRequestServerSideEncryption+instance ToQuery      UploadPartRequestServerSideEncryption+instance ToHeader     UploadPartRequestServerSideEncryption++instance ToXML UploadPartRequestServerSideEncryption where+    toXML = toXMLText

@@ -39,6 +39,7 @@     , upRequestPayer     , upSSECustomerKeyMD5     , upContentMD5+    , upServerSideEncryption     , upBucket     , upKey     , upPartNumber@@ -72,6 +73,7 @@     , _upRequestPayer         :: !(Maybe RequestPayer)     , _upSSECustomerKeyMD5    :: !(Maybe Text)     , _upContentMD5           :: !(Maybe Text)+    , _upServerSideEncryption :: !(Maybe UploadPartRequestServerSideEncryption)     , _upBucket               :: !BucketName     , _upKey                  :: !ObjectKey     , _upPartNumber           :: !Int@@ -95,6 +97,8 @@ -- -- * 'upContentMD5' --+-- * 'upServerSideEncryption'+-- -- * 'upBucket' -- -- * 'upKey'@@ -119,6 +123,7 @@     , _upRequestPayer = Nothing     , _upSSECustomerKeyMD5 = Nothing     , _upContentMD5 = Nothing+    , _upServerSideEncryption = Nothing     , _upBucket = pBucket_     , _upKey = pKey_     , _upPartNumber = pPartNumber_@@ -161,6 +166,10 @@ upContentMD5 = lens _upContentMD5 (\ s a -> s{_upContentMD5 = a});  -- | Undocumented member.+upServerSideEncryption :: Lens' UploadPart (Maybe UploadPartRequestServerSideEncryption)+upServerSideEncryption = lens _upServerSideEncryption (\ s a -> s{_upServerSideEncryption = a});++-- | Undocumented member. upBucket :: Lens' UploadPart BucketName upBucket = lens _upBucket (\ s a -> s{_upBucket = a}); @@ -214,7 +223,9 @@                "x-amz-request-payer" =# _upRequestPayer,                "x-amz-server-side-encryption-customer-key-MD5" =#                  _upSSECustomerKeyMD5,-               "Content-MD5" =# _upContentMD5]+               "Content-MD5" =# _upContentMD5,+               "x-amz-server-side-encryption" =#+                 _upServerSideEncryption]  instance ToPath UploadPart where         toPath UploadPart'{..}