diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
 
 ## Version
 
-`1.3.3.1`
+`1.3.4`
 
 
 ## 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.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
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
@@ -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
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
@@ -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
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
@@ -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 =
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
@@ -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
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
@@ -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