Regenerating API Gateway from updated service definition

Soostone · Oct 29, 2015 · 36312e4 · 36312e4
1 parent e6b1b82
commit 36312e4
Show file tree

Hide file tree

Showing 10 changed files with 111 additions and 22 deletions.
diff --git a/amazonka-apigateway/gen/Network/AWS/APIGateway.hs b/amazonka-apigateway/gen/Network/AWS/APIGateway.hs
@@ -58,13 +58,13 @@ module Network.AWS.APIGateway
     -- ** GetResource
     , module Network.AWS.APIGateway.GetResource
 
-    -- ** GetDeployments
+    -- ** GetDeployments (Paginated)
     , module Network.AWS.APIGateway.GetDeployments
 
     -- ** GetDeployment
     , module Network.AWS.APIGateway.GetDeployment
 
-    -- ** GetDomainNames
+    -- ** GetDomainNames (Paginated)
     , module Network.AWS.APIGateway.GetDomainNames
 
     -- ** GetClientCertificate
@@ -73,7 +73,7 @@ module Network.AWS.APIGateway
     -- ** GetMethodResponse
     , module Network.AWS.APIGateway.GetMethodResponse
 
-    -- ** GetModels
+    -- ** GetModels (Paginated)
     , module Network.AWS.APIGateway.GetModels
 
     -- ** GetBasePathMapping
@@ -94,7 +94,7 @@ module Network.AWS.APIGateway
     -- ** UpdateStage
     , module Network.AWS.APIGateway.UpdateStage
 
-    -- ** GetRestAPIs
+    -- ** GetRestAPIs (Paginated)
     , module Network.AWS.APIGateway.GetRestAPIs
 
     -- ** CreateDeployment
@@ -190,7 +190,7 @@ module Network.AWS.APIGateway
     -- ** GenerateClientCertificate
     , module Network.AWS.APIGateway.GenerateClientCertificate
 
-    -- ** GetResources
+    -- ** GetResources (Paginated)
     , module Network.AWS.APIGateway.GetResources
 
     -- ** GetAccount
@@ -205,7 +205,7 @@ module Network.AWS.APIGateway
     -- ** GetSDK
     , module Network.AWS.APIGateway.GetSDK
 
-    -- ** GetAPIKeys
+    -- ** GetAPIKeys (Paginated)
     , module Network.AWS.APIGateway.GetAPIKeys
 
     -- ** DeleteBasePathMapping
@@ -244,13 +244,13 @@ module Network.AWS.APIGateway
     -- ** UpdateMethod
     , module Network.AWS.APIGateway.UpdateMethod
 
-    -- ** GetClientCertificates
+    -- ** GetClientCertificates (Paginated)
     , module Network.AWS.APIGateway.GetClientCertificates
 
     -- ** GetModelTemplate
     , module Network.AWS.APIGateway.GetModelTemplate
 
-    -- ** GetBasePathMappings
+    -- ** GetBasePathMappings (Paginated)
     , module Network.AWS.APIGateway.GetBasePathMappings
 
     -- ** GetAPIKey

diff --git a/amazonka-apigateway/gen/Network/AWS/APIGateway/GetAPIKeys.hs b/amazonka-apigateway/gen/Network/AWS/APIGateway/GetAPIKeys.hs
@@ -21,6 +21,8 @@
 -- Gets information about the current ApiKeys resource.
 --
 -- /See:/ <http://docs.aws.amazon.com/apigateway/api-reference/resource/GetAPIKeys.html AWS API Reference> for GetAPIKeys.
+--
+-- This operation returns paginated results.
 module Network.AWS.APIGateway.GetAPIKeys
     (
     -- * Creating a Request
@@ -41,6 +43,7 @@ module Network.AWS.APIGateway.GetAPIKeys
 
 import           Network.AWS.APIGateway.Types
 import           Network.AWS.APIGateway.Types.Product
+import           Network.AWS.Pager
 import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
@@ -76,6 +79,13 @@ gakLimit = lens _gakLimit (\ s a -> s{_gakLimit = a});
 gakPosition :: Lens' GetAPIKeys (Maybe Text)
 gakPosition = lens _gakPosition (\ s a -> s{_gakPosition = a});
 
+instance AWSPager GetAPIKeys where
+        page rq rs
+          | stop (rs ^. gakrsPosition) = Nothing
+          | stop (rs ^. gakrsItems) = Nothing
+          | otherwise =
+            Just $ rq & gakPosition .~ rs ^. gakrsPosition
+
 instance AWSRequest GetAPIKeys where
         type Rs GetAPIKeys = GetAPIKeysResponse
         request = get aPIGateway

diff --git a/amazonka-apigateway/gen/Network/AWS/APIGateway/GetBasePathMappings.hs b/amazonka-apigateway/gen/Network/AWS/APIGateway/GetBasePathMappings.hs
@@ -21,6 +21,8 @@
 -- Represents a collection of BasePathMapping resources.
 --
 -- /See:/ <http://docs.aws.amazon.com/apigateway/api-reference/resource/GetBasePathMappings.html AWS API Reference> for GetBasePathMappings.
+--
+-- This operation returns paginated results.
 module Network.AWS.APIGateway.GetBasePathMappings
     (
     -- * Creating a Request
@@ -42,6 +44,7 @@ module Network.AWS.APIGateway.GetBasePathMappings
 
 import           Network.AWS.APIGateway.Types
 import           Network.AWS.APIGateway.Types.Product
+import           Network.AWS.Pager
 import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
@@ -90,6 +93,13 @@ gPosition = lens _gPosition (\ s a -> s{_gPosition = a});
 gDomainName :: Lens' GetBasePathMappings Text
 gDomainName = lens _gDomainName (\ s a -> s{_gDomainName = a});
 
+instance AWSPager GetBasePathMappings where
+        page rq rs
+          | stop (rs ^. gbpmrsPosition) = Nothing
+          | stop (rs ^. gbpmrsItems) = Nothing
+          | otherwise =
+            Just $ rq & gPosition .~ rs ^. gbpmrsPosition
+
 instance AWSRequest GetBasePathMappings where
         type Rs GetBasePathMappings =
              GetBasePathMappingsResponse

diff --git a/amazonka-apigateway/gen/Network/AWS/APIGateway/GetClientCertificates.hs b/amazonka-apigateway/gen/Network/AWS/APIGateway/GetClientCertificates.hs
@@ -21,6 +21,8 @@
 -- Undocumented operation.
 --
 -- /See:/ <http://docs.aws.amazon.com/apigateway/api-reference/resource/GetClientCertificates.html AWS API Reference> for GetClientCertificates.
+--
+-- This operation returns paginated results.
 module Network.AWS.APIGateway.GetClientCertificates
     (
     -- * Creating a Request
@@ -41,6 +43,7 @@ module Network.AWS.APIGateway.GetClientCertificates
 
 import           Network.AWS.APIGateway.Types
 import           Network.AWS.APIGateway.Types.Product
+import           Network.AWS.Pager
 import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
@@ -74,6 +77,13 @@ gccLimit = lens _gccLimit (\ s a -> s{_gccLimit = a});
 gccPosition :: Lens' GetClientCertificates (Maybe Text)
 gccPosition = lens _gccPosition (\ s a -> s{_gccPosition = a});
 
+instance AWSPager GetClientCertificates where
+        page rq rs
+          | stop (rs ^. gccrsPosition) = Nothing
+          | stop (rs ^. gccrsItems) = Nothing
+          | otherwise =
+            Just $ rq & gccPosition .~ rs ^. gccrsPosition
+
 instance AWSRequest GetClientCertificates where
         type Rs GetClientCertificates =
              GetClientCertificatesResponse

diff --git a/amazonka-apigateway/gen/Network/AWS/APIGateway/GetDeployments.hs b/amazonka-apigateway/gen/Network/AWS/APIGateway/GetDeployments.hs
@@ -21,6 +21,8 @@
 -- Gets information about a Deployments collection.
 --
 -- /See:/ <http://docs.aws.amazon.com/apigateway/api-reference/resource/GetDeployments.html AWS API Reference> for GetDeployments.
+--
+-- This operation returns paginated results.
 module Network.AWS.APIGateway.GetDeployments
     (
     -- * Creating a Request
@@ -42,6 +44,7 @@ module Network.AWS.APIGateway.GetDeployments
 
 import           Network.AWS.APIGateway.Types
 import           Network.AWS.APIGateway.Types.Product
+import           Network.AWS.Pager
 import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
@@ -91,6 +94,13 @@ gdPosition = lens _gdPosition (\ s a -> s{_gdPosition = a});
 gdRestAPIId :: Lens' GetDeployments Text
 gdRestAPIId = lens _gdRestAPIId (\ s a -> s{_gdRestAPIId = a});
 
+instance AWSPager GetDeployments where
+        page rq rs
+          | stop (rs ^. gdrsPosition) = Nothing
+          | stop (rs ^. gdrsItems) = Nothing
+          | otherwise =
+            Just $ rq & gdPosition .~ rs ^. gdrsPosition
+
 instance AWSRequest GetDeployments where
         type Rs GetDeployments = GetDeploymentsResponse
         request = get aPIGateway

diff --git a/amazonka-apigateway/gen/Network/AWS/APIGateway/GetDomainNames.hs b/amazonka-apigateway/gen/Network/AWS/APIGateway/GetDomainNames.hs
@@ -21,6 +21,8 @@
 -- Represents a collection of DomainName resources.
 --
 -- /See:/ <http://docs.aws.amazon.com/apigateway/api-reference/resource/GetDomainNames.html AWS API Reference> for GetDomainNames.
+--
+-- This operation returns paginated results.
 module Network.AWS.APIGateway.GetDomainNames
     (
     -- * Creating a Request
@@ -41,6 +43,7 @@ module Network.AWS.APIGateway.GetDomainNames
 
 import           Network.AWS.APIGateway.Types
 import           Network.AWS.APIGateway.Types.Product
+import           Network.AWS.Pager
 import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
@@ -78,6 +81,13 @@ gdnLimit = lens _gdnLimit (\ s a -> s{_gdnLimit = a});
 gdnPosition :: Lens' GetDomainNames (Maybe Text)
 gdnPosition = lens _gdnPosition (\ s a -> s{_gdnPosition = a});
 
+instance AWSPager GetDomainNames where
+        page rq rs
+          | stop (rs ^. gdnrsPosition) = Nothing
+          | stop (rs ^. gdnrsItems) = Nothing
+          | otherwise =
+            Just $ rq & gdnPosition .~ rs ^. gdnrsPosition
+
 instance AWSRequest GetDomainNames where
         type Rs GetDomainNames = GetDomainNamesResponse
         request = get aPIGateway

diff --git a/amazonka-apigateway/gen/Network/AWS/APIGateway/GetModels.hs b/amazonka-apigateway/gen/Network/AWS/APIGateway/GetModels.hs
@@ -21,6 +21,8 @@
 -- Describes existing Models defined for a RestApi resource.
 --
 -- /See:/ <http://docs.aws.amazon.com/apigateway/api-reference/resource/GetModels.html AWS API Reference> for GetModels.
+--
+-- This operation returns paginated results.
 module Network.AWS.APIGateway.GetModels
     (
     -- * Creating a Request
@@ -42,6 +44,7 @@ module Network.AWS.APIGateway.GetModels
 
 import           Network.AWS.APIGateway.Types
 import           Network.AWS.APIGateway.Types.Product
+import           Network.AWS.Pager
 import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
@@ -88,6 +91,13 @@ gmsPosition = lens _gmsPosition (\ s a -> s{_gmsPosition = a});
 gmsRestAPIId :: Lens' GetModels Text
 gmsRestAPIId = lens _gmsRestAPIId (\ s a -> s{_gmsRestAPIId = a});
 
+instance AWSPager GetModels where
+        page rq rs
+          | stop (rs ^. gmrsPosition) = Nothing
+          | stop (rs ^. gmrsItems) = Nothing
+          | otherwise =
+            Just $ rq & gmsPosition .~ rs ^. gmrsPosition
+
 instance AWSRequest GetModels where
         type Rs GetModels = GetModelsResponse
         request = get aPIGateway

diff --git a/amazonka-apigateway/gen/Network/AWS/APIGateway/GetResources.hs b/amazonka-apigateway/gen/Network/AWS/APIGateway/GetResources.hs
@@ -21,6 +21,8 @@
 -- Lists information about a collection of Resource resources.
 --
 -- /See:/ <http://docs.aws.amazon.com/apigateway/api-reference/resource/GetResources.html AWS API Reference> for GetResources.
+--
+-- This operation returns paginated results.
 module Network.AWS.APIGateway.GetResources
     (
     -- * Creating a Request
@@ -42,6 +44,7 @@ module Network.AWS.APIGateway.GetResources
 
 import           Network.AWS.APIGateway.Types
 import           Network.AWS.APIGateway.Types.Product
+import           Network.AWS.Pager
 import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
@@ -89,6 +92,13 @@ grsPosition = lens _grsPosition (\ s a -> s{_grsPosition = a});
 grsRestAPIId :: Lens' GetResources Text
 grsRestAPIId = lens _grsRestAPIId (\ s a -> s{_grsRestAPIId = a});
 
+instance AWSPager GetResources where
+        page rq rs
+          | stop (rs ^. grrsPosition) = Nothing
+          | stop (rs ^. grrsItems) = Nothing
+          | otherwise =
+            Just $ rq & grsPosition .~ rs ^. grrsPosition
+
 instance AWSRequest GetResources where
         type Rs GetResources = GetResourcesResponse
         request = get aPIGateway

diff --git a/amazonka-apigateway/gen/Network/AWS/APIGateway/GetRestAPIs.hs b/amazonka-apigateway/gen/Network/AWS/APIGateway/GetRestAPIs.hs
@@ -21,6 +21,8 @@
 -- Lists the RestApis resources for your collection.
 --
 -- /See:/ <http://docs.aws.amazon.com/apigateway/api-reference/resource/GetRestAPIs.html AWS API Reference> for GetRestAPIs.
+--
+-- This operation returns paginated results.
 module Network.AWS.APIGateway.GetRestAPIs
     (
     -- * Creating a Request
@@ -41,6 +43,7 @@ module Network.AWS.APIGateway.GetRestAPIs
 
 import           Network.AWS.APIGateway.Types
 import           Network.AWS.APIGateway.Types.Product
+import           Network.AWS.Pager
 import           Network.AWS.Prelude
 import           Network.AWS.Request
 import           Network.AWS.Response
@@ -79,6 +82,13 @@ graLimit = lens _graLimit (\ s a -> s{_graLimit = a});
 graPosition :: Lens' GetRestAPIs (Maybe Text)
 graPosition = lens _graPosition (\ s a -> s{_graPosition = a});
 
+instance AWSPager GetRestAPIs where
+        page rq rs
+          | stop (rs ^. grarsPosition) = Nothing
+          | stop (rs ^. grarsItems) = Nothing
+          | otherwise =
+            Just $ rq & graPosition .~ rs ^. grarsPosition
+
 instance AWSRequest GetRestAPIs where
         type Rs GetRestAPIs = GetRestAPIsResponse
         request = get aPIGateway