amazonka-glacier 1.2.0.2 → 1.3.0

raw patch · 21 files changed

+305/−305 lines, 21 filesdep ~amazonka-coredep ~amazonka-glacierdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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.hs +19/−19
• gen/Network/AWS/Glacier/CreateVault.hs +9/−9
• gen/Network/AWS/Glacier/DescribeJob.hs +3/−3
• gen/Network/AWS/Glacier/GetDataRetrievalPolicy.hs +9/−9
• gen/Network/AWS/Glacier/GetVaultAccessPolicy.hs +9/−9
• gen/Network/AWS/Glacier/GetVaultLock.hs +8/−8
• gen/Network/AWS/Glacier/GetVaultNotifications.hs +8/−8
• gen/Network/AWS/Glacier/InitiateJob.hs +10/−10
• gen/Network/AWS/Glacier/InitiateMultipartUpload.hs +10/−10
• gen/Network/AWS/Glacier/InitiateVaultLock.hs +9/−9
• gen/Network/AWS/Glacier/ListJobs.hs +10/−10
• gen/Network/AWS/Glacier/ListMultipartUploads.hs +10/−10
• gen/Network/AWS/Glacier/ListParts.hs +18/−18
• gen/Network/AWS/Glacier/ListTagsForVault.hs +9/−9
• gen/Network/AWS/Glacier/ListVaults.hs +10/−10
• gen/Network/AWS/Glacier/Types.hs +5/−5
• gen/Network/AWS/Glacier/Types/Product.hs +56/−56
• gen/Network/AWS/Glacier/UploadMultipartPart.hs +9/−9
• test/Test/AWS/Gen/Glacier.hs +78/−78

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

@@ -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

@@ -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 

@@ -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});

@@ -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

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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 

@@ -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")) 

@@ -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});

@@ -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