amazonka-glacier 1.4.0 → 1.4.1

raw patch · 35 files changed

+146/−6 lines, 35 filesdep ~amazonka-coredep ~amazonka-glacierdep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-glacier.cabal +5/−5
• gen/Network/AWS/Glacier/AbortMultipartUpload.hs +4/−0
• gen/Network/AWS/Glacier/AbortVaultLock.hs +4/−0
• gen/Network/AWS/Glacier/AddTagsToVault.hs +4/−0
• gen/Network/AWS/Glacier/CompleteMultipartUpload.hs +2/−0
• gen/Network/AWS/Glacier/CompleteVaultLock.hs +4/−0
• gen/Network/AWS/Glacier/CreateVault.hs +4/−0
• gen/Network/AWS/Glacier/DeleteArchive.hs +4/−0
• gen/Network/AWS/Glacier/DeleteVault.hs +4/−0
• gen/Network/AWS/Glacier/DeleteVaultAccessPolicy.hs +4/−0
• gen/Network/AWS/Glacier/DeleteVaultNotifications.hs +4/−0
• gen/Network/AWS/Glacier/DescribeJob.hs +2/−0
• gen/Network/AWS/Glacier/DescribeVault.hs +2/−0
• gen/Network/AWS/Glacier/GetDataRetrievalPolicy.hs +4/−0
• gen/Network/AWS/Glacier/GetJobOutput.hs +2/−0
• gen/Network/AWS/Glacier/GetVaultAccessPolicy.hs +4/−0
• gen/Network/AWS/Glacier/GetVaultLock.hs +4/−0
• gen/Network/AWS/Glacier/GetVaultNotifications.hs +4/−0
• gen/Network/AWS/Glacier/InitiateJob.hs +4/−0
• gen/Network/AWS/Glacier/InitiateMultipartUpload.hs +4/−0
• gen/Network/AWS/Glacier/InitiateVaultLock.hs +4/−0
• gen/Network/AWS/Glacier/ListJobs.hs +4/−0
• gen/Network/AWS/Glacier/ListMultipartUploads.hs +4/−0
• gen/Network/AWS/Glacier/ListParts.hs +4/−0
• gen/Network/AWS/Glacier/ListTagsForVault.hs +4/−0
• gen/Network/AWS/Glacier/ListVaults.hs +4/−0
• gen/Network/AWS/Glacier/RemoveTagsFromVault.hs +4/−0
• gen/Network/AWS/Glacier/SetDataRetrievalPolicy.hs +4/−0
• gen/Network/AWS/Glacier/SetVaultAccessPolicy.hs +4/−0
• gen/Network/AWS/Glacier/SetVaultNotifications.hs +4/−0
• gen/Network/AWS/Glacier/Types.hs +2/−0
• gen/Network/AWS/Glacier/Types/Product.hs +26/−0
• gen/Network/AWS/Glacier/Types/Sum.hs +2/−0
• gen/Network/AWS/Glacier/UploadMultipartPart.hs +2/−0

@@ -8,7 +8,7 @@  ## Version -`1.4.0`+`1.4.1`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-glacier-version:               1.4.0+version:               1.4.1 synopsis:              Amazon Glacier SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -113,7 +113,7 @@         , Network.AWS.Glacier.Types.Sum      build-depends:-          amazonka-core == 1.4.0.*+          amazonka-core == 1.4.1.*         , base          >= 4.7     && < 5  test-suite amazonka-glacier-test@@ -133,9 +133,9 @@         , Test.AWS.Glacier.Internal      build-depends:-          amazonka-core == 1.4.0.*-        , amazonka-test == 1.4.0.*-        , amazonka-glacier == 1.4.0.*+          amazonka-core == 1.4.1.*+        , amazonka-test == 1.4.1.*+        , amazonka-glacier == 1.4.1.*         , base         , bytestring         , tasty

@@ -122,6 +122,8 @@  instance Hashable AbortMultipartUpload +instance NFData AbortMultipartUpload+ instance ToHeaders AbortMultipartUpload where         toHeaders = const mempty @@ -145,3 +147,5 @@ abortMultipartUploadResponse     :: AbortMultipartUploadResponse abortMultipartUploadResponse = AbortMultipartUploadResponse'++instance NFData AbortMultipartUploadResponse

@@ -103,6 +103,8 @@  instance Hashable AbortVaultLock +instance NFData AbortVaultLock+ instance ToHeaders AbortVaultLock where         toHeaders = const mempty @@ -125,3 +127,5 @@ abortVaultLockResponse     :: AbortVaultLockResponse abortVaultLockResponse = AbortVaultLockResponse'++instance NFData AbortVaultLockResponse

@@ -100,6 +100,8 @@  instance Hashable AddTagsToVault +instance NFData AddTagsToVault+ instance ToHeaders AddTagsToVault where         toHeaders = const mempty @@ -126,3 +128,5 @@ addTagsToVaultResponse     :: AddTagsToVaultResponse addTagsToVaultResponse = AddTagsToVaultResponse'++instance NFData AddTagsToVaultResponse

@@ -178,6 +178,8 @@  instance Hashable CompleteMultipartUpload +instance NFData CompleteMultipartUpload+ instance ToHeaders CompleteMultipartUpload where         toHeaders CompleteMultipartUpload'{..}           = mconcat

@@ -113,6 +113,8 @@  instance Hashable CompleteVaultLock +instance NFData CompleteVaultLock+ instance ToHeaders CompleteVaultLock where         toHeaders = const mempty @@ -138,3 +140,5 @@ completeVaultLockResponse     :: CompleteVaultLockResponse completeVaultLockResponse = CompleteVaultLockResponse'++instance NFData CompleteVaultLockResponse

@@ -117,6 +117,8 @@  instance Hashable CreateVault +instance NFData CreateVault+ instance ToHeaders CreateVault where         toHeaders = const mempty @@ -163,3 +165,5 @@ -- | The response status code. cvrsResponseStatus :: Lens' CreateVaultResponse Int cvrsResponseStatus = lens _cvrsResponseStatus (\ s a -> s{_cvrsResponseStatus = a});++instance NFData CreateVaultResponse

@@ -119,6 +119,8 @@  instance Hashable DeleteArchive +instance NFData DeleteArchive+ instance ToHeaders DeleteArchive where         toHeaders = const mempty @@ -141,3 +143,5 @@ deleteArchiveResponse     :: DeleteArchiveResponse deleteArchiveResponse = DeleteArchiveResponse'++instance NFData DeleteArchiveResponse

@@ -108,6 +108,8 @@  instance Hashable DeleteVault +instance NFData DeleteVault+ instance ToHeaders DeleteVault where         toHeaders = const mempty @@ -129,3 +131,5 @@ deleteVaultResponse     :: DeleteVaultResponse deleteVaultResponse = DeleteVaultResponse'++instance NFData DeleteVaultResponse

@@ -95,6 +95,8 @@  instance Hashable DeleteVaultAccessPolicy +instance NFData DeleteVaultAccessPolicy+ instance ToHeaders DeleteVaultAccessPolicy where         toHeaders = const mempty @@ -117,3 +119,5 @@ deleteVaultAccessPolicyResponse     :: DeleteVaultAccessPolicyResponse deleteVaultAccessPolicyResponse = DeleteVaultAccessPolicyResponse'++instance NFData DeleteVaultAccessPolicyResponse

@@ -103,6 +103,8 @@  instance Hashable DeleteVaultNotifications +instance NFData DeleteVaultNotifications+ instance ToHeaders DeleteVaultNotifications where         toHeaders = const mempty @@ -125,3 +127,5 @@ deleteVaultNotificationsResponse     :: DeleteVaultNotificationsResponse deleteVaultNotificationsResponse = DeleteVaultNotificationsResponse'++instance NFData DeleteVaultNotificationsResponse

@@ -134,6 +134,8 @@  instance Hashable DescribeJob +instance NFData DescribeJob+ instance ToHeaders DescribeJob where         toHeaders = const mempty 

@@ -114,6 +114,8 @@  instance Hashable DescribeVault +instance NFData DescribeVault+ instance ToHeaders DescribeVault where         toHeaders = const mempty 

@@ -87,6 +87,8 @@  instance Hashable GetDataRetrievalPolicy +instance NFData GetDataRetrievalPolicy+ instance ToHeaders GetDataRetrievalPolicy where         toHeaders = const mempty @@ -131,3 +133,5 @@ -- | The response status code. gdrprsResponseStatus :: Lens' GetDataRetrievalPolicyResponse Int gdrprsResponseStatus = lens _gdrprsResponseStatus (\ s a -> s{_gdrprsResponseStatus = a});++instance NFData GetDataRetrievalPolicyResponse

@@ -170,6 +170,8 @@  instance Hashable GetJobOutput +instance NFData GetJobOutput+ instance ToHeaders GetJobOutput where         toHeaders GetJobOutput'{..}           = mconcat ["Range" =# _gjoRange]

@@ -98,6 +98,8 @@  instance Hashable GetVaultAccessPolicy +instance NFData GetVaultAccessPolicy+ instance ToHeaders GetVaultAccessPolicy where         toHeaders = const mempty @@ -141,3 +143,5 @@ -- | The response status code. gvaprsResponseStatus :: Lens' GetVaultAccessPolicyResponse Int gvaprsResponseStatus = lens _gvaprsResponseStatus (\ s a -> s{_gvaprsResponseStatus = a});++instance NFData GetVaultAccessPolicyResponse

@@ -120,6 +120,8 @@  instance Hashable GetVaultLock +instance NFData GetVaultLock+ instance ToHeaders GetVaultLock where         toHeaders = const mempty @@ -190,3 +192,5 @@ -- | The response status code. gvlrsResponseStatus :: Lens' GetVaultLockResponse Int gvlrsResponseStatus = lens _gvlrsResponseStatus (\ s a -> s{_gvlrsResponseStatus = a});++instance NFData GetVaultLockResponse

@@ -112,6 +112,8 @@  instance Hashable GetVaultNotifications +instance NFData GetVaultNotifications+ instance ToHeaders GetVaultNotifications where         toHeaders = const mempty @@ -155,3 +157,5 @@ -- | The response status code. gvnrsResponseStatus :: Lens' GetVaultNotificationsResponse Int gvnrsResponseStatus = lens _gvnrsResponseStatus (\ s a -> s{_gvnrsResponseStatus = a});++instance NFData GetVaultNotificationsResponse

@@ -229,6 +229,8 @@  instance Hashable InitiateJob +instance NFData InitiateJob+ instance ToHeaders InitiateJob where         toHeaders = const mempty @@ -286,3 +288,5 @@ -- | The response status code. ijrsResponseStatus :: Lens' InitiateJobResponse Int ijrsResponseStatus = lens _ijrsResponseStatus (\ s a -> s{_ijrsResponseStatus = a});++instance NFData InitiateJobResponse

@@ -156,6 +156,8 @@  instance Hashable InitiateMultipartUpload +instance NFData InitiateMultipartUpload+ instance ToHeaders InitiateMultipartUpload where         toHeaders InitiateMultipartUpload'{..}           = mconcat@@ -215,3 +217,5 @@ -- | The response status code. imursResponseStatus :: Lens' InitiateMultipartUploadResponse Int imursResponseStatus = lens _imursResponseStatus (\ s a -> s{_imursResponseStatus = a});++instance NFData InitiateMultipartUploadResponse

@@ -135,6 +135,8 @@  instance Hashable InitiateVaultLock +instance NFData InitiateVaultLock+ instance ToHeaders InitiateVaultLock where         toHeaders = const mempty @@ -182,3 +184,5 @@ -- | The response status code. ivlrsResponseStatus :: Lens' InitiateVaultLockResponse Int ivlrsResponseStatus = lens _ivlrsResponseStatus (\ s a -> s{_ivlrsResponseStatus = a});++instance NFData InitiateVaultLockResponse

@@ -190,6 +190,8 @@  instance Hashable ListJobs +instance NFData ListJobs+ instance ToHeaders ListJobs where         toHeaders = const mempty @@ -247,3 +249,5 @@ -- | The response status code. ljrsResponseStatus :: Lens' ListJobsResponse Int ljrsResponseStatus = lens _ljrsResponseStatus (\ s a -> s{_ljrsResponseStatus = a});++instance NFData ListJobsResponse

@@ -161,6 +161,8 @@  instance Hashable ListMultipartUploads +instance NFData ListMultipartUploads+ instance ToHeaders ListMultipartUploads where         toHeaders = const mempty @@ -217,3 +219,5 @@ -- | The response status code. lmursResponseStatus :: Lens' ListMultipartUploadsResponse Int lmursResponseStatus = lens _lmursResponseStatus (\ s a -> s{_lmursResponseStatus = a});++instance NFData ListMultipartUploadsResponse

@@ -175,6 +175,8 @@  instance Hashable ListParts +instance NFData ListParts+ instance ToHeaders ListParts where         toHeaders = const mempty @@ -273,3 +275,5 @@ -- | The response status code. lprsResponseStatus :: Lens' ListPartsResponse Int lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a});++instance NFData ListPartsResponse

@@ -94,6 +94,8 @@  instance Hashable ListTagsForVault +instance NFData ListTagsForVault+ instance ToHeaders ListTagsForVault where         toHeaders = const mempty @@ -138,3 +140,5 @@ -- | The response status code. ltfvrsResponseStatus :: Lens' ListTagsForVaultResponse Int ltfvrsResponseStatus = lens _ltfvrsResponseStatus (\ s a -> s{_ltfvrsResponseStatus = a});++instance NFData ListTagsForVaultResponse

@@ -138,6 +138,8 @@  instance Hashable ListVaults +instance NFData ListVaults+ instance ToHeaders ListVaults where         toHeaders = const mempty @@ -191,3 +193,5 @@ -- | The response status code. lvrsResponseStatus :: Lens' ListVaultsResponse Int lvrsResponseStatus = lens _lvrsResponseStatus (\ s a -> s{_lvrsResponseStatus = a});++instance NFData ListVaultsResponse

@@ -98,6 +98,8 @@  instance Hashable RemoveTagsFromVault +instance NFData RemoveTagsFromVault+ instance ToHeaders RemoveTagsFromVault where         toHeaders = const mempty @@ -125,3 +127,5 @@ removeTagsFromVaultResponse     :: RemoveTagsFromVaultResponse removeTagsFromVaultResponse = RemoveTagsFromVaultResponse'++instance NFData RemoveTagsFromVaultResponse

@@ -95,6 +95,8 @@  instance Hashable SetDataRetrievalPolicy +instance NFData SetDataRetrievalPolicy+ instance ToHeaders SetDataRetrievalPolicy where         toHeaders = const mempty @@ -121,3 +123,5 @@ setDataRetrievalPolicyResponse     :: SetDataRetrievalPolicyResponse setDataRetrievalPolicyResponse = SetDataRetrievalPolicyResponse'++instance NFData SetDataRetrievalPolicyResponse

@@ -100,6 +100,8 @@  instance Hashable SetVaultAccessPolicy +instance NFData SetVaultAccessPolicy+ instance ToHeaders SetVaultAccessPolicy where         toHeaders = const mempty @@ -126,3 +128,5 @@ setVaultAccessPolicyResponse     :: SetVaultAccessPolicyResponse setVaultAccessPolicyResponse = SetVaultAccessPolicyResponse'++instance NFData SetVaultAccessPolicyResponse

@@ -129,6 +129,8 @@  instance Hashable SetVaultNotifications +instance NFData SetVaultNotifications+ instance ToHeaders SetVaultNotifications where         toHeaders = const mempty @@ -158,3 +160,5 @@ setVaultNotificationsResponse     :: SetVaultNotificationsResponse setVaultNotificationsResponse = SetVaultNotificationsResponse'++instance NFData SetVaultNotificationsResponse

@@ -172,6 +172,8 @@       | has (hasCode "ThrottlingException" . hasStatus 400) e =           Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"       | has (hasStatus 509) e = Just "limit_exceeded"

@@ -77,6 +77,8 @@  instance Hashable ArchiveCreationOutput +instance NFData ArchiveCreationOutput+ -- | Data retrieval policy. -- -- /See:/ 'dataRetrievalPolicy' smart constructor.@@ -110,6 +112,8 @@  instance Hashable DataRetrievalPolicy +instance NFData DataRetrievalPolicy+ instance ToJSON DataRetrievalPolicy where         toJSON DataRetrievalPolicy'{..}           = object (catMaybes [("Rules" .=) <$> _drpRules])@@ -160,6 +164,8 @@  instance Hashable DataRetrievalRule +instance NFData DataRetrievalRule+ instance ToJSON DataRetrievalRule where         toJSON DataRetrievalRule'{..}           = object@@ -250,6 +256,8 @@  instance Hashable DescribeVaultOutput +instance NFData DescribeVaultOutput+ -- | Describes an Amazon Glacier job. -- -- /See:/ 'glacierJobDescription' smart constructor.@@ -459,6 +467,8 @@  instance Hashable GlacierJobDescription +instance NFData GlacierJobDescription+ -- | Describes the options for a range inventory retrieval job. -- -- /See:/ 'inventoryRetrievalJobDescription' smart constructor.@@ -540,6 +550,8 @@  instance Hashable InventoryRetrievalJobDescription +instance NFData InventoryRetrievalJobDescription+ -- | Provides options for specifying a range inventory retrieval job. -- -- /See:/ 'inventoryRetrievalJobInput' smart constructor.@@ -598,6 +610,8 @@  instance Hashable InventoryRetrievalJobInput +instance NFData InventoryRetrievalJobInput+ instance ToJSON InventoryRetrievalJobInput where         toJSON InventoryRetrievalJobInput'{..}           = object@@ -703,6 +717,8 @@  instance Hashable JobParameters +instance NFData JobParameters+ instance ToJSON JobParameters where         toJSON JobParameters'{..}           = object@@ -757,6 +773,8 @@  instance Hashable PartListElement +instance NFData PartListElement+ -- | A list of in-progress multipart uploads for a vault. -- -- /See:/ 'uploadListElement' smart constructor.@@ -828,6 +846,8 @@  instance Hashable UploadListElement +instance NFData UploadListElement+ -- | Contains the vault access policy. -- -- /See:/ 'vaultAccessPolicy' smart constructor.@@ -858,6 +878,8 @@  instance Hashable VaultAccessPolicy +instance NFData VaultAccessPolicy+ instance ToJSON VaultAccessPolicy where         toJSON VaultAccessPolicy'{..}           = object (catMaybes [("Policy" .=) <$> _vapPolicy])@@ -887,6 +909,8 @@  instance Hashable VaultLockPolicy +instance NFData VaultLockPolicy+ instance ToJSON VaultLockPolicy where         toJSON VaultLockPolicy'{..}           = object (catMaybes [("Policy" .=) <$> _vlpPolicy])@@ -932,6 +956,8 @@                    (x .:? "SNSTopic") <*> (x .:? "Events" .!= mempty))  instance Hashable VaultNotificationConfig++instance NFData VaultNotificationConfig  instance ToJSON VaultNotificationConfig where         toJSON VaultNotificationConfig'{..}

@@ -37,6 +37,7 @@         InventoryRetrieval -> "InventoryRetrieval"  instance Hashable     ActionCode+instance NFData       ActionCode instance ToByteString ActionCode instance ToQuery      ActionCode instance ToHeader     ActionCode@@ -65,6 +66,7 @@         Succeeded -> "Succeeded"  instance Hashable     StatusCode+instance NFData       StatusCode instance ToByteString StatusCode instance ToQuery      StatusCode instance ToHeader     StatusCode

@@ -230,3 +230,5 @@ -- | The response status code. umprsResponseStatus :: Lens' UploadMultipartPartResponse Int umprsResponseStatus = lens _umprsResponseStatus (\ s a -> s{_umprsResponseStatus = a});++instance NFData UploadMultipartPartResponse