amazonka-glacier 1.3.3.1 → 1.3.4

raw patch · 7 files changed

+50/−10 lines, 7 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 +4/−4
• gen/Network/AWS/Glacier/ListJobs.hs +10/−0
• gen/Network/AWS/Glacier/ListMultipartUploads.hs +10/−0
• gen/Network/AWS/Glacier/ListParts.hs +10/−0
• gen/Network/AWS/Glacier/ListVaults.hs +10/−0

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

@@ -1,5 +1,5 @@ name:                  amazonka-glacier-version:               1.3.3.1+version:               1.3.4 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.3.3.*+          amazonka-core == 1.3.4.*         , base          >= 4.7     && < 5  test-suite amazonka-glacier-test@@ -133,9 +133,9 @@         , Test.AWS.Glacier.Internal      build-depends:-          amazonka-core == 1.3.3.*-        , amazonka-test == 1.3.3.*-        , amazonka-glacier == 1.3.3.*+          amazonka-core == 1.3.4.*+        , amazonka-test == 1.3.4.*+        , amazonka-glacier == 1.3.4.*         , base         , bytestring         , lens

@@ -113,10 +113,10 @@     -- ** AbortVaultLock     , module Network.AWS.Glacier.AbortVaultLock -    -- ** ListVaults+    -- ** ListVaults (Paginated)     , module Network.AWS.Glacier.ListVaults -    -- ** ListJobs+    -- ** ListJobs (Paginated)     , module Network.AWS.Glacier.ListJobs      -- ** SetVaultNotifications@@ -128,7 +128,7 @@     -- ** CompleteMultipartUpload     , module Network.AWS.Glacier.CompleteMultipartUpload -    -- ** ListMultipartUploads+    -- ** ListMultipartUploads (Paginated)     , module Network.AWS.Glacier.ListMultipartUploads      -- ** AbortMultipartUpload@@ -167,7 +167,7 @@     -- ** InitiateMultipartUpload     , module Network.AWS.Glacier.InitiateMultipartUpload -    -- ** ListParts+    -- ** ListParts (Paginated)     , module Network.AWS.Glacier.ListParts      -- ** AddTagsToVault

@@ -64,6 +64,8 @@ -- <http://docs.aws.amazon.com/amazonglacier/latest/dev/api-jobs-get.html List Jobs> -- -- /See:/ <http://docs.aws.amazon.com/amazonglacier/latest/dev/api-ListJobs.html AWS API Reference> for ListJobs.+--+-- This operation returns paginated results. module Network.AWS.Glacier.ListJobs     (     -- * Creating a Request@@ -88,6 +90,7 @@  import           Network.AWS.Glacier.Types import           Network.AWS.Glacier.Types.Product+import           Network.AWS.Pager import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response@@ -168,6 +171,13 @@ -- | The name of the vault. ljVaultName :: Lens' ListJobs Text ljVaultName = lens _ljVaultName (\ s a -> s{_ljVaultName = a});++instance AWSPager ListJobs where+        page rq rs+          | stop (rs ^. ljrsMarker) = Nothing+          | stop (rs ^. ljrsJobList) = Nothing+          | otherwise =+            Just $ rq & ljMarker .~ rs ^. ljrsMarker  instance AWSRequest ListJobs where         type Rs ListJobs = ListJobsResponse

@@ -53,6 +53,8 @@ -- in the /Amazon Glacier Developer Guide/. -- -- /See:/ <http://docs.aws.amazon.com/amazonglacier/latest/dev/api-ListMultipartUploads.html AWS API Reference> for ListMultipartUploads.+--+-- This operation returns paginated results. module Network.AWS.Glacier.ListMultipartUploads     (     -- * Creating a Request@@ -75,6 +77,7 @@  import           Network.AWS.Glacier.Types import           Network.AWS.Glacier.Types.Product+import           Network.AWS.Pager import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response@@ -138,6 +141,13 @@ -- | The name of the vault. lmuVaultName :: Lens' ListMultipartUploads Text lmuVaultName = lens _lmuVaultName (\ s a -> s{_lmuVaultName = a});++instance AWSPager ListMultipartUploads where+        page rq rs+          | stop (rs ^. lmursMarker) = Nothing+          | stop (rs ^. lmursUploadsList) = Nothing+          | otherwise =+            Just $ rq & lmuMarker .~ rs ^. lmursMarker  instance AWSRequest ListMultipartUploads where         type Rs ListMultipartUploads =

@@ -47,6 +47,8 @@ -- in the /Amazon Glacier Developer Guide/. -- -- /See:/ <http://docs.aws.amazon.com/amazonglacier/latest/dev/api-ListParts.html AWS API Reference> for ListParts.+--+-- This operation returns paginated results. module Network.AWS.Glacier.ListParts     (     -- * Creating a Request@@ -75,6 +77,7 @@  import           Network.AWS.Glacier.Types import           Network.AWS.Glacier.Types.Product+import           Network.AWS.Pager import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response@@ -147,6 +150,13 @@ -- | The upload ID of the multipart upload. lpUploadId :: Lens' ListParts Text lpUploadId = lens _lpUploadId (\ s a -> s{_lpUploadId = a});++instance AWSPager ListParts where+        page rq rs+          | stop (rs ^. lprsMarker) = Nothing+          | stop (rs ^. lprsParts) = Nothing+          | otherwise =+            Just $ rq & lpMarker .~ rs ^. lprsMarker  instance AWSRequest ListParts where         type Rs ListParts = ListPartsResponse

@@ -43,6 +43,8 @@ -- in the /Amazon Glacier Developer Guide/. -- -- /See:/ <http://docs.aws.amazon.com/amazonglacier/latest/dev/api-ListVaults.html AWS API Reference> for ListVaults.+--+-- This operation returns paginated results. module Network.AWS.Glacier.ListVaults     (     -- * Creating a Request@@ -64,6 +66,7 @@  import           Network.AWS.Glacier.Types import           Network.AWS.Glacier.Types.Product+import           Network.AWS.Pager import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response@@ -116,6 +119,13 @@ -- ID. lvAccountId :: Lens' ListVaults Text lvAccountId = lens _lvAccountId (\ s a -> s{_lvAccountId = a});++instance AWSPager ListVaults where+        page rq rs+          | stop (rs ^. lvrsMarker) = Nothing+          | stop (rs ^. lvrsVaultList) = Nothing+          | otherwise =+            Just $ rq & lvMarker .~ rs ^. lvrsMarker  instance AWSRequest ListVaults where         type Rs ListVaults = ListVaultsResponse