diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.2.0.2` +`1.3.0` ## Description diff --git a/amazonka-glacier.cabal b/amazonka-glacier.cabal --- a/amazonka-glacier.cabal +++ b/amazonka-glacier.cabal @@ -1,5 +1,5 @@ name: amazonka-glacier -version: 1.2.0.2 +version: 1.3.0 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.2.0.* + amazonka-core == 1.3.0.* , base >= 4.7 && < 5 test-suite amazonka-glacier-test @@ -133,9 +133,9 @@ , Test.AWS.Glacier.Internal build-depends: - amazonka-core == 1.2.0.* - , amazonka-test == 1.2.0.* - , amazonka-glacier == 1.2.0.* + amazonka-core == 1.3.0.* + , amazonka-test == 1.3.0.* + , amazonka-glacier == 1.3.0.* , base , bytestring , lens diff --git a/gen/Network/AWS/Glacier.hs b/gen/Network/AWS/Glacier.hs --- a/gen/Network/AWS/Glacier.hs +++ b/gen/Network/AWS/Glacier.hs @@ -95,12 +95,12 @@ -- ** DeleteVaultAccessPolicy , module Network.AWS.Glacier.DeleteVaultAccessPolicy - -- ** ListTagsForVault - , module Network.AWS.Glacier.ListTagsForVault - -- ** GetVaultNotifications , module Network.AWS.Glacier.GetVaultNotifications + -- ** ListTagsForVault + , module Network.AWS.Glacier.ListTagsForVault + -- ** UploadMultipartPart , module Network.AWS.Glacier.UploadMultipartPart @@ -116,27 +116,27 @@ -- ** ListVaults , module Network.AWS.Glacier.ListVaults - -- ** GetJobOutput - , module Network.AWS.Glacier.GetJobOutput - -- ** ListJobs , module Network.AWS.Glacier.ListJobs -- ** SetVaultNotifications , module Network.AWS.Glacier.SetVaultNotifications + -- ** GetJobOutput + , module Network.AWS.Glacier.GetJobOutput + -- ** CompleteMultipartUpload , module Network.AWS.Glacier.CompleteMultipartUpload -- ** ListMultipartUploads , module Network.AWS.Glacier.ListMultipartUploads - -- ** DescribeVault - , module Network.AWS.Glacier.DescribeVault - -- ** AbortMultipartUpload , module Network.AWS.Glacier.AbortMultipartUpload + -- ** DescribeVault + , module Network.AWS.Glacier.DescribeVault + -- ** GetVaultLock , module Network.AWS.Glacier.GetVaultLock @@ -155,11 +155,14 @@ -- ** RemoveTagsFromVault , module Network.AWS.Glacier.RemoveTagsFromVault + -- ** DeleteVault + , module Network.AWS.Glacier.DeleteVault + -- ** DeleteArchive , module Network.AWS.Glacier.DeleteArchive - -- ** DeleteVault - , module Network.AWS.Glacier.DeleteVault + -- ** CreateVault + , module Network.AWS.Glacier.CreateVault -- ** InitiateMultipartUpload , module Network.AWS.Glacier.InitiateMultipartUpload @@ -167,9 +170,6 @@ -- ** ListParts , module Network.AWS.Glacier.ListParts - -- ** CreateVault - , module Network.AWS.Glacier.CreateVault - -- ** AddTagsToVault , module Network.AWS.Glacier.AddTagsToVault @@ -215,23 +215,23 @@ -- ** GlacierJobDescription , GlacierJobDescription , glacierJobDescription - , gjdArchiveId , gjdSHA256TreeHash + , gjdArchiveId , gjdJobId , gjdRetrievalByteRange , gjdInventoryRetrievalParameters , gjdAction , gjdJobDescription , gjdSNSTopic - , gjdVaultARN , gjdStatusMessage + , gjdVaultARN , gjdArchiveSHA256TreeHash , gjdCreationDate , gjdCompleted , gjdCompletionDate + , gjdInventorySizeInBytes , gjdArchiveSizeInBytes , gjdStatusCode - , gjdInventorySizeInBytes -- ** InventoryRetrievalJobDescription , InventoryRetrievalJobDescription @@ -254,8 +254,8 @@ , JobParameters , jobParameters , jpArchiveId - , jpRetrievalByteRange , jpFormat + , jpRetrievalByteRange , jpInventoryRetrievalParameters , jpSNSTopic , jpType @@ -271,8 +271,8 @@ , UploadListElement , uploadListElement , uleMultipartUploadId - , uleArchiveDescription , ulePartSizeInBytes + , uleArchiveDescription , uleVaultARN , uleCreationDate diff --git a/gen/Network/AWS/Glacier/CreateVault.hs b/gen/Network/AWS/Glacier/CreateVault.hs --- a/gen/Network/AWS/Glacier/CreateVault.hs +++ b/gen/Network/AWS/Glacier/CreateVault.hs @@ -59,7 +59,7 @@ , CreateVaultResponse -- * Response Lenses , cvrsLocation - , cvrsStatus + , cvrsResponseStatus ) where import Network.AWS.Glacier.Types @@ -135,8 +135,8 @@ -- -- /See:/ 'createVaultResponse' smart constructor. data CreateVaultResponse = CreateVaultResponse' - { _cvrsLocation :: !(Maybe Text) - , _cvrsStatus :: !Int + { _cvrsLocation :: !(Maybe Text) + , _cvrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'CreateVaultResponse' with the minimum fields required to make a request. @@ -145,14 +145,14 @@ -- -- * 'cvrsLocation' -- --- * 'cvrsStatus' +-- * 'cvrsResponseStatus' createVaultResponse - :: Int -- ^ 'cvrsStatus' + :: Int -- ^ 'cvrsResponseStatus' -> CreateVaultResponse -createVaultResponse pStatus_ = +createVaultResponse pResponseStatus_ = CreateVaultResponse' { _cvrsLocation = Nothing - , _cvrsStatus = pStatus_ + , _cvrsResponseStatus = pResponseStatus_ } -- | The URI of the vault that was created. @@ -160,5 +160,5 @@ cvrsLocation = lens _cvrsLocation (\ s a -> s{_cvrsLocation = a}); -- | The response status code. -cvrsStatus :: Lens' CreateVaultResponse Int -cvrsStatus = lens _cvrsStatus (\ s a -> s{_cvrsStatus = a}); +cvrsResponseStatus :: Lens' CreateVaultResponse Int +cvrsResponseStatus = lens _cvrsResponseStatus (\ s a -> s{_cvrsResponseStatus = a}); diff --git a/gen/Network/AWS/Glacier/DescribeJob.hs b/gen/Network/AWS/Glacier/DescribeJob.hs --- a/gen/Network/AWS/Glacier/DescribeJob.hs +++ b/gen/Network/AWS/Glacier/DescribeJob.hs @@ -57,23 +57,23 @@ , glacierJobDescription , GlacierJobDescription -- * Response Lenses - , gjdArchiveId , gjdSHA256TreeHash + , gjdArchiveId , gjdJobId , gjdRetrievalByteRange , gjdInventoryRetrievalParameters , gjdAction , gjdJobDescription , gjdSNSTopic - , gjdVaultARN , gjdStatusMessage + , gjdVaultARN , gjdArchiveSHA256TreeHash , gjdCreationDate , gjdCompleted , gjdCompletionDate + , gjdInventorySizeInBytes , gjdArchiveSizeInBytes , gjdStatusCode - , gjdInventorySizeInBytes ) where import Network.AWS.Glacier.Types diff --git a/gen/Network/AWS/Glacier/GetDataRetrievalPolicy.hs b/gen/Network/AWS/Glacier/GetDataRetrievalPolicy.hs --- a/gen/Network/AWS/Glacier/GetDataRetrievalPolicy.hs +++ b/gen/Network/AWS/Glacier/GetDataRetrievalPolicy.hs @@ -37,7 +37,7 @@ , GetDataRetrievalPolicyResponse -- * Response Lenses , gdrprsPolicy - , gdrprsStatus + , gdrprsResponseStatus ) where import Network.AWS.Glacier.Types @@ -103,8 +103,8 @@ -- -- /See:/ 'getDataRetrievalPolicyResponse' smart constructor. data GetDataRetrievalPolicyResponse = GetDataRetrievalPolicyResponse' - { _gdrprsPolicy :: !(Maybe DataRetrievalPolicy) - , _gdrprsStatus :: !Int + { _gdrprsPolicy :: !(Maybe DataRetrievalPolicy) + , _gdrprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetDataRetrievalPolicyResponse' with the minimum fields required to make a request. @@ -113,14 +113,14 @@ -- -- * 'gdrprsPolicy' -- --- * 'gdrprsStatus' +-- * 'gdrprsResponseStatus' getDataRetrievalPolicyResponse - :: Int -- ^ 'gdrprsStatus' + :: Int -- ^ 'gdrprsResponseStatus' -> GetDataRetrievalPolicyResponse -getDataRetrievalPolicyResponse pStatus_ = +getDataRetrievalPolicyResponse pResponseStatus_ = GetDataRetrievalPolicyResponse' { _gdrprsPolicy = Nothing - , _gdrprsStatus = pStatus_ + , _gdrprsResponseStatus = pResponseStatus_ } -- | Contains the returned data retrieval policy in JSON format. @@ -128,5 +128,5 @@ gdrprsPolicy = lens _gdrprsPolicy (\ s a -> s{_gdrprsPolicy = a}); -- | The response status code. -gdrprsStatus :: Lens' GetDataRetrievalPolicyResponse Int -gdrprsStatus = lens _gdrprsStatus (\ s a -> s{_gdrprsStatus = a}); +gdrprsResponseStatus :: Lens' GetDataRetrievalPolicyResponse Int +gdrprsResponseStatus = lens _gdrprsResponseStatus (\ s a -> s{_gdrprsResponseStatus = a}); diff --git a/gen/Network/AWS/Glacier/GetVaultAccessPolicy.hs b/gen/Network/AWS/Glacier/GetVaultAccessPolicy.hs --- a/gen/Network/AWS/Glacier/GetVaultAccessPolicy.hs +++ b/gen/Network/AWS/Glacier/GetVaultAccessPolicy.hs @@ -41,7 +41,7 @@ , GetVaultAccessPolicyResponse -- * Response Lenses , gvaprsPolicy - , gvaprsStatus + , gvaprsResponseStatus ) where import Network.AWS.Glacier.Types @@ -113,8 +113,8 @@ -- -- /See:/ 'getVaultAccessPolicyResponse' smart constructor. data GetVaultAccessPolicyResponse = GetVaultAccessPolicyResponse' - { _gvaprsPolicy :: !(Maybe VaultAccessPolicy) - , _gvaprsStatus :: !Int + { _gvaprsPolicy :: !(Maybe VaultAccessPolicy) + , _gvaprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetVaultAccessPolicyResponse' with the minimum fields required to make a request. @@ -123,14 +123,14 @@ -- -- * 'gvaprsPolicy' -- --- * 'gvaprsStatus' +-- * 'gvaprsResponseStatus' getVaultAccessPolicyResponse - :: Int -- ^ 'gvaprsStatus' + :: Int -- ^ 'gvaprsResponseStatus' -> GetVaultAccessPolicyResponse -getVaultAccessPolicyResponse pStatus_ = +getVaultAccessPolicyResponse pResponseStatus_ = GetVaultAccessPolicyResponse' { _gvaprsPolicy = Nothing - , _gvaprsStatus = pStatus_ + , _gvaprsResponseStatus = pResponseStatus_ } -- | Contains the returned vault access policy as a JSON string. @@ -138,5 +138,5 @@ gvaprsPolicy = lens _gvaprsPolicy (\ s a -> s{_gvaprsPolicy = a}); -- | The response status code. -gvaprsStatus :: Lens' GetVaultAccessPolicyResponse Int -gvaprsStatus = lens _gvaprsStatus (\ s a -> s{_gvaprsStatus = a}); +gvaprsResponseStatus :: Lens' GetVaultAccessPolicyResponse Int +gvaprsResponseStatus = lens _gvaprsResponseStatus (\ s a -> s{_gvaprsResponseStatus = a}); diff --git a/gen/Network/AWS/Glacier/GetVaultLock.hs b/gen/Network/AWS/Glacier/GetVaultLock.hs --- a/gen/Network/AWS/Glacier/GetVaultLock.hs +++ b/gen/Network/AWS/Glacier/GetVaultLock.hs @@ -61,7 +61,7 @@ , gvlrsExpirationDate , gvlrsCreationDate , gvlrsPolicy - , gvlrsStatus + , gvlrsResponseStatus ) where import Network.AWS.Glacier.Types @@ -139,7 +139,7 @@ , _gvlrsExpirationDate :: !(Maybe Text) , _gvlrsCreationDate :: !(Maybe Text) , _gvlrsPolicy :: !(Maybe Text) - , _gvlrsStatus :: !Int + , _gvlrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetVaultLockResponse' with the minimum fields required to make a request. @@ -154,17 +154,17 @@ -- -- * 'gvlrsPolicy' -- --- * 'gvlrsStatus' +-- * 'gvlrsResponseStatus' getVaultLockResponse - :: Int -- ^ 'gvlrsStatus' + :: Int -- ^ 'gvlrsResponseStatus' -> GetVaultLockResponse -getVaultLockResponse pStatus_ = +getVaultLockResponse pResponseStatus_ = GetVaultLockResponse' { _gvlrsState = Nothing , _gvlrsExpirationDate = Nothing , _gvlrsCreationDate = Nothing , _gvlrsPolicy = Nothing - , _gvlrsStatus = pStatus_ + , _gvlrsResponseStatus = pResponseStatus_ } -- | The state of the vault lock. 'InProgress' or 'Locked'. @@ -187,5 +187,5 @@ gvlrsPolicy = lens _gvlrsPolicy (\ s a -> s{_gvlrsPolicy = a}); -- | The response status code. -gvlrsStatus :: Lens' GetVaultLockResponse Int -gvlrsStatus = lens _gvlrsStatus (\ s a -> s{_gvlrsStatus = a}); +gvlrsResponseStatus :: Lens' GetVaultLockResponse Int +gvlrsResponseStatus = lens _gvlrsResponseStatus (\ s a -> s{_gvlrsResponseStatus = a}); diff --git a/gen/Network/AWS/Glacier/GetVaultNotifications.hs b/gen/Network/AWS/Glacier/GetVaultNotifications.hs --- a/gen/Network/AWS/Glacier/GetVaultNotifications.hs +++ b/gen/Network/AWS/Glacier/GetVaultNotifications.hs @@ -54,7 +54,7 @@ , GetVaultNotificationsResponse -- * Response Lenses , gvnrsVaultNotificationConfig - , gvnrsStatus + , gvnrsResponseStatus ) where import Network.AWS.Glacier.Types @@ -129,7 +129,7 @@ -- /See:/ 'getVaultNotificationsResponse' smart constructor. data GetVaultNotificationsResponse = GetVaultNotificationsResponse' { _gvnrsVaultNotificationConfig :: !(Maybe VaultNotificationConfig) - , _gvnrsStatus :: !Int + , _gvnrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GetVaultNotificationsResponse' with the minimum fields required to make a request. @@ -138,14 +138,14 @@ -- -- * 'gvnrsVaultNotificationConfig' -- --- * 'gvnrsStatus' +-- * 'gvnrsResponseStatus' getVaultNotificationsResponse - :: Int -- ^ 'gvnrsStatus' + :: Int -- ^ 'gvnrsResponseStatus' -> GetVaultNotificationsResponse -getVaultNotificationsResponse pStatus_ = +getVaultNotificationsResponse pResponseStatus_ = GetVaultNotificationsResponse' { _gvnrsVaultNotificationConfig = Nothing - , _gvnrsStatus = pStatus_ + , _gvnrsResponseStatus = pResponseStatus_ } -- | Returns the notification configuration set on the vault. @@ -153,5 +153,5 @@ gvnrsVaultNotificationConfig = lens _gvnrsVaultNotificationConfig (\ s a -> s{_gvnrsVaultNotificationConfig = a}); -- | The response status code. -gvnrsStatus :: Lens' GetVaultNotificationsResponse Int -gvnrsStatus = lens _gvnrsStatus (\ s a -> s{_gvnrsStatus = a}); +gvnrsResponseStatus :: Lens' GetVaultNotificationsResponse Int +gvnrsResponseStatus = lens _gvnrsResponseStatus (\ s a -> s{_gvnrsResponseStatus = a}); diff --git a/gen/Network/AWS/Glacier/InitiateJob.hs b/gen/Network/AWS/Glacier/InitiateJob.hs --- a/gen/Network/AWS/Glacier/InitiateJob.hs +++ b/gen/Network/AWS/Glacier/InitiateJob.hs @@ -164,7 +164,7 @@ -- * Response Lenses , ijrsJobId , ijrsLocation - , ijrsStatus + , ijrsResponseStatus ) where import Network.AWS.Glacier.Types @@ -250,9 +250,9 @@ -- -- /See:/ 'initiateJobResponse' smart constructor. data InitiateJobResponse = InitiateJobResponse' - { _ijrsJobId :: !(Maybe Text) - , _ijrsLocation :: !(Maybe Text) - , _ijrsStatus :: !Int + { _ijrsJobId :: !(Maybe Text) + , _ijrsLocation :: !(Maybe Text) + , _ijrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'InitiateJobResponse' with the minimum fields required to make a request. @@ -263,15 +263,15 @@ -- -- * 'ijrsLocation' -- --- * 'ijrsStatus' +-- * 'ijrsResponseStatus' initiateJobResponse - :: Int -- ^ 'ijrsStatus' + :: Int -- ^ 'ijrsResponseStatus' -> InitiateJobResponse -initiateJobResponse pStatus_ = +initiateJobResponse pResponseStatus_ = InitiateJobResponse' { _ijrsJobId = Nothing , _ijrsLocation = Nothing - , _ijrsStatus = pStatus_ + , _ijrsResponseStatus = pResponseStatus_ } -- | The ID of the job. @@ -283,5 +283,5 @@ ijrsLocation = lens _ijrsLocation (\ s a -> s{_ijrsLocation = a}); -- | The response status code. -ijrsStatus :: Lens' InitiateJobResponse Int -ijrsStatus = lens _ijrsStatus (\ s a -> s{_ijrsStatus = a}); +ijrsResponseStatus :: Lens' InitiateJobResponse Int +ijrsResponseStatus = lens _ijrsResponseStatus (\ s a -> s{_ijrsResponseStatus = a}); diff --git a/gen/Network/AWS/Glacier/InitiateMultipartUpload.hs b/gen/Network/AWS/Glacier/InitiateMultipartUpload.hs --- a/gen/Network/AWS/Glacier/InitiateMultipartUpload.hs +++ b/gen/Network/AWS/Glacier/InitiateMultipartUpload.hs @@ -74,7 +74,7 @@ -- * Response Lenses , imursLocation , imursUploadId - , imursStatus + , imursResponseStatus ) where import Network.AWS.Glacier.Types @@ -178,9 +178,9 @@ -- -- /See:/ 'initiateMultipartUploadResponse' smart constructor. data InitiateMultipartUploadResponse = InitiateMultipartUploadResponse' - { _imursLocation :: !(Maybe Text) - , _imursUploadId :: !(Maybe Text) - , _imursStatus :: !Int + { _imursLocation :: !(Maybe Text) + , _imursUploadId :: !(Maybe Text) + , _imursResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'InitiateMultipartUploadResponse' with the minimum fields required to make a request. @@ -191,15 +191,15 @@ -- -- * 'imursUploadId' -- --- * 'imursStatus' +-- * 'imursResponseStatus' initiateMultipartUploadResponse - :: Int -- ^ 'imursStatus' + :: Int -- ^ 'imursResponseStatus' -> InitiateMultipartUploadResponse -initiateMultipartUploadResponse pStatus_ = +initiateMultipartUploadResponse pResponseStatus_ = InitiateMultipartUploadResponse' { _imursLocation = Nothing , _imursUploadId = Nothing - , _imursStatus = pStatus_ + , _imursResponseStatus = pResponseStatus_ } -- | The relative URI path of the multipart upload ID Amazon Glacier created. @@ -212,5 +212,5 @@ imursUploadId = lens _imursUploadId (\ s a -> s{_imursUploadId = a}); -- | The response status code. -imursStatus :: Lens' InitiateMultipartUploadResponse Int -imursStatus = lens _imursStatus (\ s a -> s{_imursStatus = a}); +imursResponseStatus :: Lens' InitiateMultipartUploadResponse Int +imursResponseStatus = lens _imursResponseStatus (\ s a -> s{_imursResponseStatus = a}); diff --git a/gen/Network/AWS/Glacier/InitiateVaultLock.hs b/gen/Network/AWS/Glacier/InitiateVaultLock.hs --- a/gen/Network/AWS/Glacier/InitiateVaultLock.hs +++ b/gen/Network/AWS/Glacier/InitiateVaultLock.hs @@ -68,7 +68,7 @@ , InitiateVaultLockResponse -- * Response Lenses , ivlrsLockId - , ivlrsStatus + , ivlrsResponseStatus ) where import Network.AWS.Glacier.Types @@ -154,8 +154,8 @@ -- -- /See:/ 'initiateVaultLockResponse' smart constructor. data InitiateVaultLockResponse = InitiateVaultLockResponse' - { _ivlrsLockId :: !(Maybe Text) - , _ivlrsStatus :: !Int + { _ivlrsLockId :: !(Maybe Text) + , _ivlrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'InitiateVaultLockResponse' with the minimum fields required to make a request. @@ -164,14 +164,14 @@ -- -- * 'ivlrsLockId' -- --- * 'ivlrsStatus' +-- * 'ivlrsResponseStatus' initiateVaultLockResponse - :: Int -- ^ 'ivlrsStatus' + :: Int -- ^ 'ivlrsResponseStatus' -> InitiateVaultLockResponse -initiateVaultLockResponse pStatus_ = +initiateVaultLockResponse pResponseStatus_ = InitiateVaultLockResponse' { _ivlrsLockId = Nothing - , _ivlrsStatus = pStatus_ + , _ivlrsResponseStatus = pResponseStatus_ } -- | The lock ID, which is used to complete the vault locking process. @@ -179,5 +179,5 @@ ivlrsLockId = lens _ivlrsLockId (\ s a -> s{_ivlrsLockId = a}); -- | The response status code. -ivlrsStatus :: Lens' InitiateVaultLockResponse Int -ivlrsStatus = lens _ivlrsStatus (\ s a -> s{_ivlrsStatus = a}); +ivlrsResponseStatus :: Lens' InitiateVaultLockResponse Int +ivlrsResponseStatus = lens _ivlrsResponseStatus (\ s a -> s{_ivlrsResponseStatus = a}); diff --git a/gen/Network/AWS/Glacier/ListJobs.hs b/gen/Network/AWS/Glacier/ListJobs.hs --- a/gen/Network/AWS/Glacier/ListJobs.hs +++ b/gen/Network/AWS/Glacier/ListJobs.hs @@ -83,7 +83,7 @@ -- * Response Lenses , ljrsMarker , ljrsJobList - , ljrsStatus + , ljrsResponseStatus ) where import Network.AWS.Glacier.Types @@ -198,9 +198,9 @@ -- -- /See:/ 'listJobsResponse' smart constructor. data ListJobsResponse = ListJobsResponse' - { _ljrsMarker :: !(Maybe Text) - , _ljrsJobList :: !(Maybe [GlacierJobDescription]) - , _ljrsStatus :: !Int + { _ljrsMarker :: !(Maybe Text) + , _ljrsJobList :: !(Maybe [GlacierJobDescription]) + , _ljrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListJobsResponse' with the minimum fields required to make a request. @@ -211,15 +211,15 @@ -- -- * 'ljrsJobList' -- --- * 'ljrsStatus' +-- * 'ljrsResponseStatus' listJobsResponse - :: Int -- ^ 'ljrsStatus' + :: Int -- ^ 'ljrsResponseStatus' -> ListJobsResponse -listJobsResponse pStatus_ = +listJobsResponse pResponseStatus_ = ListJobsResponse' { _ljrsMarker = Nothing , _ljrsJobList = Nothing - , _ljrsStatus = pStatus_ + , _ljrsResponseStatus = pResponseStatus_ } -- | An opaque string that represents where to continue pagination of the @@ -234,5 +234,5 @@ ljrsJobList = lens _ljrsJobList (\ s a -> s{_ljrsJobList = a}) . _Default . _Coerce; -- | The response status code. -ljrsStatus :: Lens' ListJobsResponse Int -ljrsStatus = lens _ljrsStatus (\ s a -> s{_ljrsStatus = a}); +ljrsResponseStatus :: Lens' ListJobsResponse Int +ljrsResponseStatus = lens _ljrsResponseStatus (\ s a -> s{_ljrsResponseStatus = a}); diff --git a/gen/Network/AWS/Glacier/ListMultipartUploads.hs b/gen/Network/AWS/Glacier/ListMultipartUploads.hs --- a/gen/Network/AWS/Glacier/ListMultipartUploads.hs +++ b/gen/Network/AWS/Glacier/ListMultipartUploads.hs @@ -70,7 +70,7 @@ -- * Response Lenses , lmursUploadsList , lmursMarker - , lmursStatus + , lmursResponseStatus ) where import Network.AWS.Glacier.Types @@ -168,9 +168,9 @@ -- -- /See:/ 'listMultipartUploadsResponse' smart constructor. data ListMultipartUploadsResponse = ListMultipartUploadsResponse' - { _lmursUploadsList :: !(Maybe [UploadListElement]) - , _lmursMarker :: !(Maybe Text) - , _lmursStatus :: !Int + { _lmursUploadsList :: !(Maybe [UploadListElement]) + , _lmursMarker :: !(Maybe Text) + , _lmursResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListMultipartUploadsResponse' with the minimum fields required to make a request. @@ -181,15 +181,15 @@ -- -- * 'lmursMarker' -- --- * 'lmursStatus' +-- * 'lmursResponseStatus' listMultipartUploadsResponse - :: Int -- ^ 'lmursStatus' + :: Int -- ^ 'lmursResponseStatus' -> ListMultipartUploadsResponse -listMultipartUploadsResponse pStatus_ = +listMultipartUploadsResponse pResponseStatus_ = ListMultipartUploadsResponse' { _lmursUploadsList = Nothing , _lmursMarker = Nothing - , _lmursStatus = pStatus_ + , _lmursResponseStatus = pResponseStatus_ } -- | A list of in-progress multipart uploads. @@ -204,5 +204,5 @@ lmursMarker = lens _lmursMarker (\ s a -> s{_lmursMarker = a}); -- | The response status code. -lmursStatus :: Lens' ListMultipartUploadsResponse Int -lmursStatus = lens _lmursStatus (\ s a -> s{_lmursStatus = a}); +lmursResponseStatus :: Lens' ListMultipartUploadsResponse Int +lmursResponseStatus = lens _lmursResponseStatus (\ s a -> s{_lmursResponseStatus = a}); diff --git a/gen/Network/AWS/Glacier/ListParts.hs b/gen/Network/AWS/Glacier/ListParts.hs --- a/gen/Network/AWS/Glacier/ListParts.hs +++ b/gen/Network/AWS/Glacier/ListParts.hs @@ -65,12 +65,12 @@ -- * Response Lenses , lprsParts , lprsMultipartUploadId - , lprsArchiveDescription , lprsPartSizeInBytes + , lprsArchiveDescription , lprsVaultARN , lprsMarker , lprsCreationDate - , lprsStatus + , lprsResponseStatus ) where import Network.AWS.Glacier.Types @@ -157,8 +157,8 @@ ListPartsResponse' <$> (x .?> "Parts" .!@ mempty) <*> (x .?> "MultipartUploadId") - <*> (x .?> "ArchiveDescription") <*> (x .?> "PartSizeInBytes") + <*> (x .?> "ArchiveDescription") <*> (x .?> "VaultARN") <*> (x .?> "Marker") <*> (x .?> "CreationDate") @@ -185,12 +185,12 @@ data ListPartsResponse = ListPartsResponse' { _lprsParts :: !(Maybe [PartListElement]) , _lprsMultipartUploadId :: !(Maybe Text) - , _lprsArchiveDescription :: !(Maybe Text) , _lprsPartSizeInBytes :: !(Maybe Integer) + , _lprsArchiveDescription :: !(Maybe Text) , _lprsVaultARN :: !(Maybe Text) , _lprsMarker :: !(Maybe Text) , _lprsCreationDate :: !(Maybe Text) - , _lprsStatus :: !Int + , _lprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListPartsResponse' with the minimum fields required to make a request. @@ -201,30 +201,30 @@ -- -- * 'lprsMultipartUploadId' -- --- * 'lprsArchiveDescription' --- -- * 'lprsPartSizeInBytes' -- +-- * 'lprsArchiveDescription' +-- -- * 'lprsVaultARN' -- -- * 'lprsMarker' -- -- * 'lprsCreationDate' -- --- * 'lprsStatus' +-- * 'lprsResponseStatus' listPartsResponse - :: Int -- ^ 'lprsStatus' + :: Int -- ^ 'lprsResponseStatus' -> ListPartsResponse -listPartsResponse pStatus_ = +listPartsResponse pResponseStatus_ = ListPartsResponse' { _lprsParts = Nothing , _lprsMultipartUploadId = Nothing - , _lprsArchiveDescription = Nothing , _lprsPartSizeInBytes = Nothing + , _lprsArchiveDescription = Nothing , _lprsVaultARN = Nothing , _lprsMarker = Nothing , _lprsCreationDate = Nothing - , _lprsStatus = pStatus_ + , _lprsResponseStatus = pResponseStatus_ } -- | A list of the part sizes of the multipart upload. @@ -235,15 +235,15 @@ lprsMultipartUploadId :: Lens' ListPartsResponse (Maybe Text) lprsMultipartUploadId = lens _lprsMultipartUploadId (\ s a -> s{_lprsMultipartUploadId = a}); +-- | The part size in bytes. +lprsPartSizeInBytes :: Lens' ListPartsResponse (Maybe Integer) +lprsPartSizeInBytes = lens _lprsPartSizeInBytes (\ s a -> s{_lprsPartSizeInBytes = a}); + -- | The description of the archive that was specified in the Initiate -- Multipart Upload request. lprsArchiveDescription :: Lens' ListPartsResponse (Maybe Text) lprsArchiveDescription = lens _lprsArchiveDescription (\ s a -> s{_lprsArchiveDescription = a}); --- | The part size in bytes. -lprsPartSizeInBytes :: Lens' ListPartsResponse (Maybe Integer) -lprsPartSizeInBytes = lens _lprsPartSizeInBytes (\ s a -> s{_lprsPartSizeInBytes = a}); - -- | The Amazon Resource Name (ARN) of the vault to which the multipart -- upload was initiated. lprsVaultARN :: Lens' ListPartsResponse (Maybe Text) @@ -260,5 +260,5 @@ lprsCreationDate = lens _lprsCreationDate (\ s a -> s{_lprsCreationDate = a}); -- | The response status code. -lprsStatus :: Lens' ListPartsResponse Int -lprsStatus = lens _lprsStatus (\ s a -> s{_lprsStatus = a}); +lprsResponseStatus :: Lens' ListPartsResponse Int +lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a}); diff --git a/gen/Network/AWS/Glacier/ListTagsForVault.hs b/gen/Network/AWS/Glacier/ListTagsForVault.hs --- a/gen/Network/AWS/Glacier/ListTagsForVault.hs +++ b/gen/Network/AWS/Glacier/ListTagsForVault.hs @@ -38,7 +38,7 @@ , ListTagsForVaultResponse -- * Response Lenses , ltfvrsTags - , ltfvrsStatus + , ltfvrsResponseStatus ) where import Network.AWS.Glacier.Types @@ -109,8 +109,8 @@ -- -- /See:/ 'listTagsForVaultResponse' smart constructor. data ListTagsForVaultResponse = ListTagsForVaultResponse' - { _ltfvrsTags :: !(Maybe (Map Text Text)) - , _ltfvrsStatus :: !Int + { _ltfvrsTags :: !(Maybe (Map Text Text)) + , _ltfvrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListTagsForVaultResponse' with the minimum fields required to make a request. @@ -119,14 +119,14 @@ -- -- * 'ltfvrsTags' -- --- * 'ltfvrsStatus' +-- * 'ltfvrsResponseStatus' listTagsForVaultResponse - :: Int -- ^ 'ltfvrsStatus' + :: Int -- ^ 'ltfvrsResponseStatus' -> ListTagsForVaultResponse -listTagsForVaultResponse pStatus_ = +listTagsForVaultResponse pResponseStatus_ = ListTagsForVaultResponse' { _ltfvrsTags = Nothing - , _ltfvrsStatus = pStatus_ + , _ltfvrsResponseStatus = pResponseStatus_ } -- | The tags attached to the vault. Each tag is composed of a key and a @@ -135,5 +135,5 @@ ltfvrsTags = lens _ltfvrsTags (\ s a -> s{_ltfvrsTags = a}) . _Default . _Map; -- | The response status code. -ltfvrsStatus :: Lens' ListTagsForVaultResponse Int -ltfvrsStatus = lens _ltfvrsStatus (\ s a -> s{_ltfvrsStatus = a}); +ltfvrsResponseStatus :: Lens' ListTagsForVaultResponse Int +ltfvrsResponseStatus = lens _ltfvrsResponseStatus (\ s a -> s{_ltfvrsResponseStatus = a}); diff --git a/gen/Network/AWS/Glacier/ListVaults.hs b/gen/Network/AWS/Glacier/ListVaults.hs --- a/gen/Network/AWS/Glacier/ListVaults.hs +++ b/gen/Network/AWS/Glacier/ListVaults.hs @@ -59,7 +59,7 @@ -- * Response Lenses , lvrsMarker , lvrsVaultList - , lvrsStatus + , lvrsResponseStatus ) where import Network.AWS.Glacier.Types @@ -143,9 +143,9 @@ -- -- /See:/ 'listVaultsResponse' smart constructor. data ListVaultsResponse = ListVaultsResponse' - { _lvrsMarker :: !(Maybe Text) - , _lvrsVaultList :: !(Maybe [DescribeVaultOutput]) - , _lvrsStatus :: !Int + { _lvrsMarker :: !(Maybe Text) + , _lvrsVaultList :: !(Maybe [DescribeVaultOutput]) + , _lvrsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'ListVaultsResponse' with the minimum fields required to make a request. @@ -156,15 +156,15 @@ -- -- * 'lvrsVaultList' -- --- * 'lvrsStatus' +-- * 'lvrsResponseStatus' listVaultsResponse - :: Int -- ^ 'lvrsStatus' + :: Int -- ^ 'lvrsResponseStatus' -> ListVaultsResponse -listVaultsResponse pStatus_ = +listVaultsResponse pResponseStatus_ = ListVaultsResponse' { _lvrsMarker = Nothing , _lvrsVaultList = Nothing - , _lvrsStatus = pStatus_ + , _lvrsResponseStatus = pResponseStatus_ } -- | The vault ARN at which to continue pagination of the results. You use @@ -178,5 +178,5 @@ lvrsVaultList = lens _lvrsVaultList (\ s a -> s{_lvrsVaultList = a}) . _Default . _Coerce; -- | The response status code. -lvrsStatus :: Lens' ListVaultsResponse Int -lvrsStatus = lens _lvrsStatus (\ s a -> s{_lvrsStatus = a}); +lvrsResponseStatus :: Lens' ListVaultsResponse Int +lvrsResponseStatus = lens _lvrsResponseStatus (\ s a -> s{_lvrsResponseStatus = a}); diff --git a/gen/Network/AWS/Glacier/Types.hs b/gen/Network/AWS/Glacier/Types.hs --- a/gen/Network/AWS/Glacier/Types.hs +++ b/gen/Network/AWS/Glacier/Types.hs @@ -61,23 +61,23 @@ -- * GlacierJobDescription , GlacierJobDescription , glacierJobDescription - , gjdArchiveId , gjdSHA256TreeHash + , gjdArchiveId , gjdJobId , gjdRetrievalByteRange , gjdInventoryRetrievalParameters , gjdAction , gjdJobDescription , gjdSNSTopic - , gjdVaultARN , gjdStatusMessage + , gjdVaultARN , gjdArchiveSHA256TreeHash , gjdCreationDate , gjdCompleted , gjdCompletionDate + , gjdInventorySizeInBytes , gjdArchiveSizeInBytes , gjdStatusCode - , gjdInventorySizeInBytes -- * InventoryRetrievalJobDescription , InventoryRetrievalJobDescription @@ -100,8 +100,8 @@ , JobParameters , jobParameters , jpArchiveId - , jpRetrievalByteRange , jpFormat + , jpRetrievalByteRange , jpInventoryRetrievalParameters , jpSNSTopic , jpType @@ -117,8 +117,8 @@ , UploadListElement , uploadListElement , uleMultipartUploadId - , uleArchiveDescription , ulePartSizeInBytes + , uleArchiveDescription , uleVaultARN , uleCreationDate diff --git a/gen/Network/AWS/Glacier/Types/Product.hs b/gen/Network/AWS/Glacier/Types/Product.hs --- a/gen/Network/AWS/Glacier/Types/Product.hs +++ b/gen/Network/AWS/Glacier/Types/Product.hs @@ -245,33 +245,33 @@ -- -- /See:/ 'glacierJobDescription' smart constructor. data GlacierJobDescription = GlacierJobDescription' - { _gjdArchiveId :: !(Maybe Text) - , _gjdSHA256TreeHash :: !(Maybe Text) + { _gjdSHA256TreeHash :: !(Maybe Text) + , _gjdArchiveId :: !(Maybe Text) , _gjdJobId :: !(Maybe Text) , _gjdRetrievalByteRange :: !(Maybe Text) , _gjdInventoryRetrievalParameters :: !(Maybe InventoryRetrievalJobDescription) , _gjdAction :: !(Maybe ActionCode) , _gjdJobDescription :: !(Maybe Text) , _gjdSNSTopic :: !(Maybe Text) - , _gjdVaultARN :: !(Maybe Text) , _gjdStatusMessage :: !(Maybe Text) + , _gjdVaultARN :: !(Maybe Text) , _gjdArchiveSHA256TreeHash :: !(Maybe Text) , _gjdCreationDate :: !(Maybe Text) , _gjdCompleted :: !(Maybe Bool) , _gjdCompletionDate :: !(Maybe Text) + , _gjdInventorySizeInBytes :: !(Maybe Integer) , _gjdArchiveSizeInBytes :: !(Maybe Integer) , _gjdStatusCode :: !(Maybe StatusCode) - , _gjdInventorySizeInBytes :: !(Maybe Integer) } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'GlacierJobDescription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'gjdArchiveId' --- -- * 'gjdSHA256TreeHash' -- +-- * 'gjdArchiveId' +-- -- * 'gjdJobId' -- -- * 'gjdRetrievalByteRange' @@ -284,10 +284,10 @@ -- -- * 'gjdSNSTopic' -- --- * 'gjdVaultARN' --- -- * 'gjdStatusMessage' -- +-- * 'gjdVaultARN' +-- -- * 'gjdArchiveSHA256TreeHash' -- -- * 'gjdCreationDate' @@ -296,39 +296,34 @@ -- -- * 'gjdCompletionDate' -- +-- * 'gjdInventorySizeInBytes' +-- -- * 'gjdArchiveSizeInBytes' -- -- * 'gjdStatusCode' --- --- * 'gjdInventorySizeInBytes' glacierJobDescription :: GlacierJobDescription glacierJobDescription = GlacierJobDescription' - { _gjdArchiveId = Nothing - , _gjdSHA256TreeHash = Nothing + { _gjdSHA256TreeHash = Nothing + , _gjdArchiveId = Nothing , _gjdJobId = Nothing , _gjdRetrievalByteRange = Nothing , _gjdInventoryRetrievalParameters = Nothing , _gjdAction = Nothing , _gjdJobDescription = Nothing , _gjdSNSTopic = Nothing - , _gjdVaultARN = Nothing , _gjdStatusMessage = Nothing + , _gjdVaultARN = Nothing , _gjdArchiveSHA256TreeHash = Nothing , _gjdCreationDate = Nothing , _gjdCompleted = Nothing , _gjdCompletionDate = Nothing + , _gjdInventorySizeInBytes = Nothing , _gjdArchiveSizeInBytes = Nothing , _gjdStatusCode = Nothing - , _gjdInventorySizeInBytes = Nothing } --- | For an ArchiveRetrieval job, this is the archive ID requested for --- download. Otherwise, this field is null. -gjdArchiveId :: Lens' GlacierJobDescription (Maybe Text) -gjdArchiveId = lens _gjdArchiveId (\ s a -> s{_gjdArchiveId = a}); - -- | For an ArchiveRetrieval job, it is the checksum of the archive. -- Otherwise, the value is null. -- @@ -352,6 +347,11 @@ gjdSHA256TreeHash :: Lens' GlacierJobDescription (Maybe Text) gjdSHA256TreeHash = lens _gjdSHA256TreeHash (\ s a -> s{_gjdSHA256TreeHash = a}); +-- | For an ArchiveRetrieval job, this is the archive ID requested for +-- download. Otherwise, this field is null. +gjdArchiveId :: Lens' GlacierJobDescription (Maybe Text) +gjdArchiveId = lens _gjdArchiveId (\ s a -> s{_gjdArchiveId = a}); + -- | An opaque string that identifies an Amazon Glacier job. gjdJobId :: Lens' GlacierJobDescription (Maybe Text) gjdJobId = lens _gjdJobId (\ s a -> s{_gjdJobId = a}); @@ -381,15 +381,15 @@ gjdSNSTopic :: Lens' GlacierJobDescription (Maybe Text) gjdSNSTopic = lens _gjdSNSTopic (\ s a -> s{_gjdSNSTopic = a}); +-- | A friendly message that describes the job status. +gjdStatusMessage :: Lens' GlacierJobDescription (Maybe Text) +gjdStatusMessage = lens _gjdStatusMessage (\ s a -> s{_gjdStatusMessage = a}); + -- | The Amazon Resource Name (ARN) of the vault from which the archive -- retrieval was requested. gjdVaultARN :: Lens' GlacierJobDescription (Maybe Text) gjdVaultARN = lens _gjdVaultARN (\ s a -> s{_gjdVaultARN = a}); --- | A friendly message that describes the job status. -gjdStatusMessage :: Lens' GlacierJobDescription (Maybe Text) -gjdStatusMessage = lens _gjdStatusMessage (\ s a -> s{_gjdStatusMessage = a}); - -- | The SHA256 tree hash of the entire archive for an archive retrieval. For -- inventory retrieval jobs, this field is null. gjdArchiveSHA256TreeHash :: Lens' GlacierJobDescription (Maybe Text) @@ -409,6 +409,12 @@ gjdCompletionDate :: Lens' GlacierJobDescription (Maybe Text) gjdCompletionDate = lens _gjdCompletionDate (\ s a -> s{_gjdCompletionDate = a}); +-- | For an InventoryRetrieval job, this is the size in bytes of the +-- inventory requested for download. For the ArchiveRetrieval job, the +-- value is null. +gjdInventorySizeInBytes :: Lens' GlacierJobDescription (Maybe Integer) +gjdInventorySizeInBytes = lens _gjdInventorySizeInBytes (\ s a -> s{_gjdInventorySizeInBytes = a}); + -- | For an ArchiveRetrieval job, this is the size in bytes of the archive -- being requested for download. For the InventoryRetrieval job, the value -- is null. @@ -420,33 +426,27 @@ gjdStatusCode :: Lens' GlacierJobDescription (Maybe StatusCode) gjdStatusCode = lens _gjdStatusCode (\ s a -> s{_gjdStatusCode = a}); --- | For an InventoryRetrieval job, this is the size in bytes of the --- inventory requested for download. For the ArchiveRetrieval job, the --- value is null. -gjdInventorySizeInBytes :: Lens' GlacierJobDescription (Maybe Integer) -gjdInventorySizeInBytes = lens _gjdInventorySizeInBytes (\ s a -> s{_gjdInventorySizeInBytes = a}); - instance FromJSON GlacierJobDescription where parseJSON = withObject "GlacierJobDescription" (\ x -> GlacierJobDescription' <$> - (x .:? "ArchiveId") <*> (x .:? "SHA256TreeHash") <*> + (x .:? "SHA256TreeHash") <*> (x .:? "ArchiveId") <*> (x .:? "JobId") <*> (x .:? "RetrievalByteRange") <*> (x .:? "InventoryRetrievalParameters") <*> (x .:? "Action") <*> (x .:? "JobDescription") <*> (x .:? "SNSTopic") - <*> (x .:? "VaultARN") <*> (x .:? "StatusMessage") + <*> (x .:? "VaultARN") <*> (x .:? "ArchiveSHA256TreeHash") <*> (x .:? "CreationDate") <*> (x .:? "Completed") <*> (x .:? "CompletionDate") + <*> (x .:? "InventorySizeInBytes") <*> (x .:? "ArchiveSizeInBytes") - <*> (x .:? "StatusCode") - <*> (x .:? "InventorySizeInBytes")) + <*> (x .:? "StatusCode")) -- | Describes the options for a range inventory retrieval job. -- @@ -597,8 +597,8 @@ -- /See:/ 'jobParameters' smart constructor. data JobParameters = JobParameters' { _jpArchiveId :: !(Maybe Text) - , _jpRetrievalByteRange :: !(Maybe Text) , _jpFormat :: !(Maybe Text) + , _jpRetrievalByteRange :: !(Maybe Text) , _jpInventoryRetrievalParameters :: !(Maybe InventoryRetrievalJobInput) , _jpSNSTopic :: !(Maybe Text) , _jpType :: !(Maybe Text) @@ -611,10 +611,10 @@ -- -- * 'jpArchiveId' -- --- * 'jpRetrievalByteRange' --- -- * 'jpFormat' -- +-- * 'jpRetrievalByteRange' +-- -- * 'jpInventoryRetrievalParameters' -- -- * 'jpSNSTopic' @@ -627,8 +627,8 @@ jobParameters = JobParameters' { _jpArchiveId = Nothing - , _jpRetrievalByteRange = Nothing , _jpFormat = Nothing + , _jpRetrievalByteRange = Nothing , _jpInventoryRetrievalParameters = Nothing , _jpSNSTopic = Nothing , _jpType = Nothing @@ -641,6 +641,13 @@ jpArchiveId :: Lens' JobParameters (Maybe Text) jpArchiveId = lens _jpArchiveId (\ s a -> s{_jpArchiveId = a}); +-- | When initiating a job to retrieve a vault inventory, you can optionally +-- add this parameter to your request to specify the output format. If you +-- are initiating an inventory job and do not specify a Format field, JSON +-- is the default format. Valid values are \"CSV\" and \"JSON\". +jpFormat :: Lens' JobParameters (Maybe Text) +jpFormat = lens _jpFormat (\ s a -> s{_jpFormat = a}); + -- | The byte range to retrieve for an archive retrieval. in the form -- \"/StartByteValue/-/EndByteValue/\" If not specified, the whole archive -- is retrieved. If specified, the byte range must be megabyte (1024*1024) @@ -655,13 +662,6 @@ jpRetrievalByteRange :: Lens' JobParameters (Maybe Text) jpRetrievalByteRange = lens _jpRetrievalByteRange (\ s a -> s{_jpRetrievalByteRange = a}); --- | When initiating a job to retrieve a vault inventory, you can optionally --- add this parameter to your request to specify the output format. If you --- are initiating an inventory job and do not specify a Format field, JSON --- is the default format. Valid values are \"CSV\" and \"JSON\". -jpFormat :: Lens' JobParameters (Maybe Text) -jpFormat = lens _jpFormat (\ s a -> s{_jpFormat = a}); - -- | Input parameters used for range inventory retrieval. jpInventoryRetrievalParameters :: Lens' JobParameters (Maybe InventoryRetrievalJobInput) jpInventoryRetrievalParameters = lens _jpInventoryRetrievalParameters (\ s a -> s{_jpInventoryRetrievalParameters = a}); @@ -691,8 +691,8 @@ = object (catMaybes [("ArchiveId" .=) <$> _jpArchiveId, - ("RetrievalByteRange" .=) <$> _jpRetrievalByteRange, ("Format" .=) <$> _jpFormat, + ("RetrievalByteRange" .=) <$> _jpRetrievalByteRange, ("InventoryRetrievalParameters" .=) <$> _jpInventoryRetrievalParameters, ("SNSTopic" .=) <$> _jpSNSTopic, @@ -743,8 +743,8 @@ -- /See:/ 'uploadListElement' smart constructor. data UploadListElement = UploadListElement' { _uleMultipartUploadId :: !(Maybe Text) - , _uleArchiveDescription :: !(Maybe Text) , _ulePartSizeInBytes :: !(Maybe Integer) + , _uleArchiveDescription :: !(Maybe Text) , _uleVaultARN :: !(Maybe Text) , _uleCreationDate :: !(Maybe Text) } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -755,10 +755,10 @@ -- -- * 'uleMultipartUploadId' -- --- * 'uleArchiveDescription' --- -- * 'ulePartSizeInBytes' -- +-- * 'uleArchiveDescription' +-- -- * 'uleVaultARN' -- -- * 'uleCreationDate' @@ -767,8 +767,8 @@ uploadListElement = UploadListElement' { _uleMultipartUploadId = Nothing - , _uleArchiveDescription = Nothing , _ulePartSizeInBytes = Nothing + , _uleArchiveDescription = Nothing , _uleVaultARN = Nothing , _uleCreationDate = Nothing } @@ -777,17 +777,17 @@ uleMultipartUploadId :: Lens' UploadListElement (Maybe Text) uleMultipartUploadId = lens _uleMultipartUploadId (\ s a -> s{_uleMultipartUploadId = a}); --- | The description of the archive that was specified in the Initiate --- Multipart Upload request. -uleArchiveDescription :: Lens' UploadListElement (Maybe Text) -uleArchiveDescription = lens _uleArchiveDescription (\ s a -> s{_uleArchiveDescription = a}); - -- | The part size, in bytes, specified in the Initiate Multipart Upload -- request. This is the size of all the parts in the upload except the last -- part, which may be smaller than this size. ulePartSizeInBytes :: Lens' UploadListElement (Maybe Integer) ulePartSizeInBytes = lens _ulePartSizeInBytes (\ s a -> s{_ulePartSizeInBytes = a}); +-- | The description of the archive that was specified in the Initiate +-- Multipart Upload request. +uleArchiveDescription :: Lens' UploadListElement (Maybe Text) +uleArchiveDescription = lens _uleArchiveDescription (\ s a -> s{_uleArchiveDescription = a}); + -- | The Amazon Resource Name (ARN) of the vault that contains the archive. uleVaultARN :: Lens' UploadListElement (Maybe Text) uleVaultARN = lens _uleVaultARN (\ s a -> s{_uleVaultARN = a}); @@ -802,8 +802,8 @@ (\ x -> UploadListElement' <$> (x .:? "MultipartUploadId") <*> - (x .:? "ArchiveDescription") - <*> (x .:? "PartSizeInBytes") + (x .:? "PartSizeInBytes") + <*> (x .:? "ArchiveDescription") <*> (x .:? "VaultARN") <*> (x .:? "CreationDate")) diff --git a/gen/Network/AWS/Glacier/UploadMultipartPart.hs b/gen/Network/AWS/Glacier/UploadMultipartPart.hs --- a/gen/Network/AWS/Glacier/UploadMultipartPart.hs +++ b/gen/Network/AWS/Glacier/UploadMultipartPart.hs @@ -86,7 +86,7 @@ , UploadMultipartPartResponse -- * Response Lenses , umprsChecksum - , umprsStatus + , umprsResponseStatus ) where import Network.AWS.Glacier.Types @@ -204,8 +204,8 @@ -- -- /See:/ 'uploadMultipartPartResponse' smart constructor. data UploadMultipartPartResponse = UploadMultipartPartResponse' - { _umprsChecksum :: !(Maybe Text) - , _umprsStatus :: !Int + { _umprsChecksum :: !(Maybe Text) + , _umprsResponseStatus :: !Int } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'UploadMultipartPartResponse' with the minimum fields required to make a request. @@ -214,14 +214,14 @@ -- -- * 'umprsChecksum' -- --- * 'umprsStatus' +-- * 'umprsResponseStatus' uploadMultipartPartResponse - :: Int -- ^ 'umprsStatus' + :: Int -- ^ 'umprsResponseStatus' -> UploadMultipartPartResponse -uploadMultipartPartResponse pStatus_ = +uploadMultipartPartResponse pResponseStatus_ = UploadMultipartPartResponse' { _umprsChecksum = Nothing - , _umprsStatus = pStatus_ + , _umprsResponseStatus = pResponseStatus_ } -- | The SHA256 tree hash that Amazon Glacier computed for the uploaded part. @@ -229,5 +229,5 @@ umprsChecksum = lens _umprsChecksum (\ s a -> s{_umprsChecksum = a}); -- | The response status code. -umprsStatus :: Lens' UploadMultipartPartResponse Int -umprsStatus = lens _umprsStatus (\ s a -> s{_umprsStatus = a}); +umprsResponseStatus :: Lens' UploadMultipartPartResponse Int +umprsResponseStatus = lens _umprsResponseStatus (\ s a -> s{_umprsResponseStatus = a}); diff --git a/test/Test/AWS/Gen/Glacier.hs b/test/Test/AWS/Gen/Glacier.hs --- a/test/Test/AWS/Gen/Glacier.hs +++ b/test/Test/AWS/Gen/Glacier.hs @@ -40,12 +40,12 @@ -- , testDeleteVaultAccessPolicy $ -- deleteVaultAccessPolicy -- --- , testListTagsForVault $ --- listTagsForVault --- -- , testGetVaultNotifications $ -- getVaultNotifications -- +-- , testListTagsForVault $ +-- listTagsForVault +-- -- , testUploadMultipartPart $ -- uploadMultipartPart -- @@ -61,27 +61,27 @@ -- , testListVaults $ -- listVaults -- --- , testGetJobOutput $ --- getJobOutput --- -- , testListJobs $ -- listJobs -- -- , testSetVaultNotifications $ -- setVaultNotifications -- +-- , testGetJobOutput $ +-- getJobOutput +-- -- , testCompleteMultipartUpload $ -- completeMultipartUpload -- -- , testListMultipartUploads $ -- listMultipartUploads -- --- , testDescribeVault $ --- describeVault --- -- , testAbortMultipartUpload $ -- abortMultipartUpload -- +-- , testDescribeVault $ +-- describeVault +-- -- , testGetVaultLock $ -- getVaultLock -- @@ -100,11 +100,14 @@ -- , testRemoveTagsFromVault $ -- removeTagsFromVault -- +-- , testDeleteVault $ +-- deleteVault +-- -- , testDeleteArchive $ -- deleteArchive -- --- , testDeleteVault $ --- deleteVault +-- , testCreateVault $ +-- createVault -- -- , testInitiateMultipartUpload $ -- initiateMultipartUpload @@ -112,9 +115,6 @@ -- , testListParts $ -- listParts -- --- , testCreateVault $ --- createVault --- -- , testAddTagsToVault $ -- addTagsToVault -- @@ -136,12 +136,12 @@ -- , testDeleteVaultAccessPolicyResponse $ -- deleteVaultAccessPolicyResponse -- --- , testListTagsForVaultResponse $ --- listTagsForVaultResponse --- -- , testGetVaultNotificationsResponse $ -- getVaultNotificationsResponse -- +-- , testListTagsForVaultResponse $ +-- listTagsForVaultResponse +-- -- , testUploadMultipartPartResponse $ -- uploadMultipartPartResponse -- @@ -157,27 +157,27 @@ -- , testListVaultsResponse $ -- listVaultsResponse -- --- , testGetJobOutputResponse $ --- getJobOutputResponse --- -- , testListJobsResponse $ -- listJobsResponse -- -- , testSetVaultNotificationsResponse $ -- setVaultNotificationsResponse -- +-- , testGetJobOutputResponse $ +-- getJobOutputResponse +-- -- , testCompleteMultipartUploadResponse $ -- archiveCreationOutput -- -- , testListMultipartUploadsResponse $ -- listMultipartUploadsResponse -- --- , testDescribeVaultResponse $ --- describeVaultOutput --- -- , testAbortMultipartUploadResponse $ -- abortMultipartUploadResponse -- +-- , testDescribeVaultResponse $ +-- describeVaultOutput +-- -- , testGetVaultLockResponse $ -- getVaultLockResponse -- @@ -196,11 +196,14 @@ -- , testRemoveTagsFromVaultResponse $ -- removeTagsFromVaultResponse -- +-- , testDeleteVaultResponse $ +-- deleteVaultResponse +-- -- , testDeleteArchiveResponse $ -- deleteArchiveResponse -- --- , testDeleteVaultResponse $ --- deleteVaultResponse +-- , testCreateVaultResponse $ +-- createVaultResponse -- -- , testInitiateMultipartUploadResponse $ -- initiateMultipartUploadResponse @@ -208,9 +211,6 @@ -- , testListPartsResponse $ -- listPartsResponse -- --- , testCreateVaultResponse $ --- createVaultResponse --- -- , testAddTagsToVaultResponse $ -- addTagsToVaultResponse -- @@ -242,16 +242,16 @@ "DeleteVaultAccessPolicy" "fixture/DeleteVaultAccessPolicy.yaml" -testListTagsForVault :: ListTagsForVault -> TestTree -testListTagsForVault = req - "ListTagsForVault" - "fixture/ListTagsForVault.yaml" - testGetVaultNotifications :: GetVaultNotifications -> TestTree testGetVaultNotifications = req "GetVaultNotifications" "fixture/GetVaultNotifications.yaml" +testListTagsForVault :: ListTagsForVault -> TestTree +testListTagsForVault = req + "ListTagsForVault" + "fixture/ListTagsForVault.yaml" + testDeleteVaultNotifications :: DeleteVaultNotifications -> TestTree testDeleteVaultNotifications = req "DeleteVaultNotifications" @@ -272,11 +272,6 @@ "ListVaults" "fixture/ListVaults.yaml" -testGetJobOutput :: GetJobOutput -> TestTree -testGetJobOutput = req - "GetJobOutput" - "fixture/GetJobOutput.yaml" - testListJobs :: ListJobs -> TestTree testListJobs = req "ListJobs" @@ -287,6 +282,11 @@ "SetVaultNotifications" "fixture/SetVaultNotifications.yaml" +testGetJobOutput :: GetJobOutput -> TestTree +testGetJobOutput = req + "GetJobOutput" + "fixture/GetJobOutput.yaml" + testCompleteMultipartUpload :: CompleteMultipartUpload -> TestTree testCompleteMultipartUpload = req "CompleteMultipartUpload" @@ -297,16 +297,16 @@ "ListMultipartUploads" "fixture/ListMultipartUploads.yaml" -testDescribeVault :: DescribeVault -> TestTree -testDescribeVault = req - "DescribeVault" - "fixture/DescribeVault.yaml" - testAbortMultipartUpload :: AbortMultipartUpload -> TestTree testAbortMultipartUpload = req "AbortMultipartUpload" "fixture/AbortMultipartUpload.yaml" +testDescribeVault :: DescribeVault -> TestTree +testDescribeVault = req + "DescribeVault" + "fixture/DescribeVault.yaml" + testGetVaultLock :: GetVaultLock -> TestTree testGetVaultLock = req "GetVaultLock" @@ -337,15 +337,20 @@ "RemoveTagsFromVault" "fixture/RemoveTagsFromVault.yaml" +testDeleteVault :: DeleteVault -> TestTree +testDeleteVault = req + "DeleteVault" + "fixture/DeleteVault.yaml" + testDeleteArchive :: DeleteArchive -> TestTree testDeleteArchive = req "DeleteArchive" "fixture/DeleteArchive.yaml" -testDeleteVault :: DeleteVault -> TestTree -testDeleteVault = req - "DeleteVault" - "fixture/DeleteVault.yaml" +testCreateVault :: CreateVault -> TestTree +testCreateVault = req + "CreateVault" + "fixture/CreateVault.yaml" testInitiateMultipartUpload :: InitiateMultipartUpload -> TestTree testInitiateMultipartUpload = req @@ -357,11 +362,6 @@ "ListParts" "fixture/ListParts.yaml" -testCreateVault :: CreateVault -> TestTree -testCreateVault = req - "CreateVault" - "fixture/CreateVault.yaml" - testAddTagsToVault :: AddTagsToVault -> TestTree testAddTagsToVault = req "AddTagsToVault" @@ -397,13 +397,6 @@ glacier (Proxy :: Proxy DeleteVaultAccessPolicy) -testListTagsForVaultResponse :: ListTagsForVaultResponse -> TestTree -testListTagsForVaultResponse = res - "ListTagsForVaultResponse" - "fixture/ListTagsForVaultResponse.proto" - glacier - (Proxy :: Proxy ListTagsForVault) - testGetVaultNotificationsResponse :: GetVaultNotificationsResponse -> TestTree testGetVaultNotificationsResponse = res "GetVaultNotificationsResponse" @@ -411,6 +404,13 @@ glacier (Proxy :: Proxy GetVaultNotifications) +testListTagsForVaultResponse :: ListTagsForVaultResponse -> TestTree +testListTagsForVaultResponse = res + "ListTagsForVaultResponse" + "fixture/ListTagsForVaultResponse.proto" + glacier + (Proxy :: Proxy ListTagsForVault) + testUploadMultipartPartResponse :: UploadMultipartPartResponse -> TestTree testUploadMultipartPartResponse = res "UploadMultipartPartResponse" @@ -474,13 +474,6 @@ glacier (Proxy :: Proxy ListMultipartUploads) -testDescribeVaultResponse :: DescribeVaultOutput -> TestTree -testDescribeVaultResponse = res - "DescribeVaultResponse" - "fixture/DescribeVaultResponse.proto" - glacier - (Proxy :: Proxy DescribeVault) - testAbortMultipartUploadResponse :: AbortMultipartUploadResponse -> TestTree testAbortMultipartUploadResponse = res "AbortMultipartUploadResponse" @@ -488,6 +481,13 @@ glacier (Proxy :: Proxy AbortMultipartUpload) +testDescribeVaultResponse :: DescribeVaultOutput -> TestTree +testDescribeVaultResponse = res + "DescribeVaultResponse" + "fixture/DescribeVaultResponse.proto" + glacier + (Proxy :: Proxy DescribeVault) + testGetVaultLockResponse :: GetVaultLockResponse -> TestTree testGetVaultLockResponse = res "GetVaultLockResponse" @@ -530,6 +530,13 @@ glacier (Proxy :: Proxy RemoveTagsFromVault) +testDeleteVaultResponse :: DeleteVaultResponse -> TestTree +testDeleteVaultResponse = res + "DeleteVaultResponse" + "fixture/DeleteVaultResponse.proto" + glacier + (Proxy :: Proxy DeleteVault) + testDeleteArchiveResponse :: DeleteArchiveResponse -> TestTree testDeleteArchiveResponse = res "DeleteArchiveResponse" @@ -537,12 +544,12 @@ glacier (Proxy :: Proxy DeleteArchive) -testDeleteVaultResponse :: DeleteVaultResponse -> TestTree -testDeleteVaultResponse = res - "DeleteVaultResponse" - "fixture/DeleteVaultResponse.proto" +testCreateVaultResponse :: CreateVaultResponse -> TestTree +testCreateVaultResponse = res + "CreateVaultResponse" + "fixture/CreateVaultResponse.proto" glacier - (Proxy :: Proxy DeleteVault) + (Proxy :: Proxy CreateVault) testInitiateMultipartUploadResponse :: InitiateMultipartUploadResponse -> TestTree testInitiateMultipartUploadResponse = res @@ -557,13 +564,6 @@ "fixture/ListPartsResponse.proto" glacier (Proxy :: Proxy ListParts) - -testCreateVaultResponse :: CreateVaultResponse -> TestTree -testCreateVaultResponse = res - "CreateVaultResponse" - "fixture/CreateVaultResponse.proto" - glacier - (Proxy :: Proxy CreateVault) testAddTagsToVaultResponse :: AddTagsToVaultResponse -> TestTree testAddTagsToVaultResponse = res