amazonka-apigateway 1.3.5 → 1.3.6

raw patch · 19 files changed

+169/−30 lines, 19 filesdep ~amazonka-apigatewaydep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-apigateway, amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-apigateway.cabal +5/−5
• gen/Network/AWS/APIGateway.hs +9/−8
• gen/Network/AWS/APIGateway/CreateDeployment.hs +12/−0
• gen/Network/AWS/APIGateway/CreateStage.hs +16/−3
• gen/Network/AWS/APIGateway/GetAPIKeys.hs +10/−0
• gen/Network/AWS/APIGateway/GetBasePathMappings.hs +10/−0
• gen/Network/AWS/APIGateway/GetClientCertificates.hs +10/−0
• gen/Network/AWS/APIGateway/GetDeployments.hs +10/−0
• gen/Network/AWS/APIGateway/GetDomainNames.hs +10/−0
• gen/Network/AWS/APIGateway/GetModels.hs +10/−0
• gen/Network/AWS/APIGateway/GetResources.hs +10/−0
• gen/Network/AWS/APIGateway/GetRestAPIs.hs +10/−0
• gen/Network/AWS/APIGateway/GetStage.hs +1/−0
• gen/Network/AWS/APIGateway/PutIntegration.hs +21/−12
• gen/Network/AWS/APIGateway/TestInvokeMethod.hs +10/−0
• gen/Network/AWS/APIGateway/Types.hs +1/−0
• gen/Network/AWS/APIGateway/Types/Product.hs +12/−1
• gen/Network/AWS/APIGateway/UpdateStage.hs +1/−0

@@ -8,7 +8,7 @@  ## Version -`1.3.5`+`1.3.6`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-apigateway-version:               1.3.5+version:               1.3.6 synopsis:              Amazon API Gateway SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -122,7 +122,7 @@         , Network.AWS.APIGateway.Types.Sum      build-depends:-          amazonka-core == 1.3.5.*+          amazonka-core == 1.3.6.*         , base          >= 4.7     && < 5  test-suite amazonka-apigateway-test@@ -142,9 +142,9 @@         , Test.AWS.APIGateway.Internal      build-depends:-          amazonka-core == 1.3.5.*-        , amazonka-test == 1.3.5.*-        , amazonka-apigateway == 1.3.5.*+          amazonka-core == 1.3.6.*+        , amazonka-test == 1.3.6.*+        , amazonka-apigateway == 1.3.6.*         , base         , bytestring         , lens

@@ -58,13 +58,13 @@     -- ** 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 @@     -- ** GetMethodResponse     , module Network.AWS.APIGateway.GetMethodResponse -    -- ** GetModels+    -- ** GetModels (Paginated)     , module Network.AWS.APIGateway.GetModels      -- ** GetBasePathMapping@@ -94,7 +94,7 @@     -- ** UpdateStage     , module Network.AWS.APIGateway.UpdateStage -    -- ** GetRestAPIs+    -- ** GetRestAPIs (Paginated)     , module Network.AWS.APIGateway.GetRestAPIs      -- ** CreateDeployment@@ -190,7 +190,7 @@     -- ** GenerateClientCertificate     , module Network.AWS.APIGateway.GenerateClientCertificate -    -- ** GetResources+    -- ** GetResources (Paginated)     , module Network.AWS.APIGateway.GetResources      -- ** GetAccount@@ -205,7 +205,7 @@     -- ** GetSDK     , module Network.AWS.APIGateway.GetSDK -    -- ** GetAPIKeys+    -- ** GetAPIKeys (Paginated)     , module Network.AWS.APIGateway.GetAPIKeys      -- ** DeleteBasePathMapping@@ -244,13 +244,13 @@     -- ** 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@@ -414,6 +414,7 @@     , Stage     , stage     , sDeploymentId+    , sVariables     , sClientCertificateId     , sCreatedDate     , sCacheClusterStatus

@@ -29,6 +29,7 @@     , CreateDeployment     -- * Request Lenses     , cdStageDescription+    , cdVariables     , cdCacheClusterSize     , cdCacheClusterEnabled     , cdDescription@@ -56,6 +57,7 @@ -- /See:/ 'createDeployment' smart constructor. data CreateDeployment = CreateDeployment'     { _cdStageDescription    :: !(Maybe Text)+    , _cdVariables           :: !(Maybe (Map Text Text))     , _cdCacheClusterSize    :: !(Maybe CacheClusterSize)     , _cdCacheClusterEnabled :: !(Maybe Bool)     , _cdDescription         :: !(Maybe Text)@@ -69,6 +71,8 @@ -- -- * 'cdStageDescription' --+-- * 'cdVariables'+-- -- * 'cdCacheClusterSize' -- -- * 'cdCacheClusterEnabled'@@ -85,6 +89,7 @@ createDeployment pRestAPIId_ pStageName_ =     CreateDeployment'     { _cdStageDescription = Nothing+    , _cdVariables = Nothing     , _cdCacheClusterSize = Nothing     , _cdCacheClusterEnabled = Nothing     , _cdDescription = Nothing@@ -97,6 +102,12 @@ cdStageDescription :: Lens' CreateDeployment (Maybe Text) cdStageDescription = lens _cdStageDescription (\ s a -> s{_cdStageDescription = a}); +-- | A map that defines the stage variables for the Stage resource that is+-- associated with the new deployment. Variable names can have alphabetic+-- characters, and the values must match [A-Za-z0-9-._~:\/?#&=,]++cdVariables :: Lens' CreateDeployment (HashMap Text Text)+cdVariables = lens _cdVariables (\ s a -> s{_cdVariables = a}) . _Default . _Map;+ -- | Specifies the cache cluster size for the Stage resource specified in the -- input, if a cache cluster is enabled. cdCacheClusterSize :: Lens' CreateDeployment (Maybe CacheClusterSize)@@ -131,6 +142,7 @@           = object               (catMaybes                  [("stageDescription" .=) <$> _cdStageDescription,+                  ("variables" .=) <$> _cdVariables,                   ("cacheClusterSize" .=) <$> _cdCacheClusterSize,                   ("cacheClusterEnabled" .=) <$>                     _cdCacheClusterEnabled,

@@ -27,6 +27,7 @@       createStage     , CreateStage     -- * Request Lenses+    , csVariables     , csCacheClusterSize     , csCacheClusterEnabled     , csDescription@@ -39,6 +40,7 @@     , Stage     -- * Response Lenses     , sDeploymentId+    , sVariables     , sClientCertificateId     , sCreatedDate     , sCacheClusterStatus@@ -60,7 +62,8 @@ -- -- /See:/ 'createStage' smart constructor. data CreateStage = CreateStage'-    { _csCacheClusterSize    :: !(Maybe CacheClusterSize)+    { _csVariables           :: !(Maybe (Map Text Text))+    , _csCacheClusterSize    :: !(Maybe CacheClusterSize)     , _csCacheClusterEnabled :: !(Maybe Bool)     , _csDescription         :: !(Maybe Text)     , _csRestAPIId           :: !Text@@ -72,6 +75,8 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'csVariables'+-- -- * 'csCacheClusterSize' -- -- * 'csCacheClusterEnabled'@@ -90,7 +95,8 @@     -> CreateStage createStage pRestAPIId_ pStageName_ pDeploymentId_ =     CreateStage'-    { _csCacheClusterSize = Nothing+    { _csVariables = Nothing+    , _csCacheClusterSize = Nothing     , _csCacheClusterEnabled = Nothing     , _csDescription = Nothing     , _csRestAPIId = pRestAPIId_@@ -98,6 +104,12 @@     , _csDeploymentId = pDeploymentId_     } +-- | A map that defines the stage variables for the new Stage resource.+-- Variable names can have alphabetic characters, and the values must match+-- [A-Za-z0-9-._~:\/?#&=,]++csVariables :: Lens' CreateStage (HashMap Text Text)+csVariables = lens _csVariables (\ s a -> s{_csVariables = a}) . _Default . _Map;+ -- | The stage\'s cache cluster size. csCacheClusterSize :: Lens' CreateStage (Maybe CacheClusterSize) csCacheClusterSize = lens _csCacheClusterSize (\ s a -> s{_csCacheClusterSize = a});@@ -134,7 +146,8 @@         toJSON CreateStage'{..}           = object               (catMaybes-                 [("cacheClusterSize" .=) <$> _csCacheClusterSize,+                 [("variables" .=) <$> _csVariables,+                  ("cacheClusterSize" .=) <$> _csCacheClusterSize,                   ("cacheClusterEnabled" .=) <$>                     _csCacheClusterEnabled,                   ("description" .=) <$> _csDescription,

@@ -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 @@  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@@ -75,6 +78,13 @@ -- | The position of the current ApiKeys resource to get information about. 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

@@ -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 @@  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 @@ -- | The domain name of a BasePathMapping resource. 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 =

@@ -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 @@  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@@ -73,6 +76,13 @@ -- | Undocumented member. 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 =

@@ -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 @@  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 @@ -- resources to get information about. 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

@@ -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 @@  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@@ -77,6 +80,13 @@ -- | The position of the current domain names to get information about. 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

@@ -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 @@  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@@ -87,6 +90,13 @@ -- | The RestApi identifier. 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

@@ -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 @@  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 @@ -- | The RestApi identifier for the Resource. 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

@@ -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 @@  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 @@ -- information about. 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

@@ -35,6 +35,7 @@     , Stage     -- * Response Lenses     , sDeploymentId+    , sVariables     , sClientCertificateId     , sCreatedDate     , sCacheClusterStatus

@@ -32,6 +32,7 @@     , pRequestParameters     , pUri     , pCacheNamespace+    , pIntegrationHTTPMethod     , pCacheKeyParameters     , pRestAPIId     , pResourceId@@ -63,16 +64,17 @@ -- -- /See:/ 'putIntegration' smart constructor. data PutIntegration = PutIntegration'-    { _pRequestTemplates   :: !(Maybe (Map Text Text))-    , _pCredentials        :: !(Maybe Text)-    , _pRequestParameters  :: !(Maybe (Map Text Text))-    , _pUri                :: !(Maybe Text)-    , _pCacheNamespace     :: !(Maybe Text)-    , _pCacheKeyParameters :: !(Maybe [Text])-    , _pRestAPIId          :: !Text-    , _pResourceId         :: !Text-    , _pHttpMethod         :: !Text-    , _pType               :: !IntegrationType+    { _pRequestTemplates      :: !(Maybe (Map Text Text))+    , _pCredentials           :: !(Maybe Text)+    , _pRequestParameters     :: !(Maybe (Map Text Text))+    , _pUri                   :: !(Maybe Text)+    , _pCacheNamespace        :: !(Maybe Text)+    , _pIntegrationHTTPMethod :: !(Maybe Text)+    , _pCacheKeyParameters    :: !(Maybe [Text])+    , _pRestAPIId             :: !Text+    , _pResourceId            :: !Text+    , _pHttpMethod            :: !Text+    , _pType                  :: !IntegrationType     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'PutIntegration' with the minimum fields required to make a request.@@ -89,6 +91,8 @@ -- -- * 'pCacheNamespace' --+-- * 'pIntegrationHTTPMethod'+-- -- * 'pCacheKeyParameters' -- -- * 'pRestAPIId'@@ -111,6 +115,7 @@     , _pRequestParameters = Nothing     , _pUri = Nothing     , _pCacheNamespace = Nothing+    , _pIntegrationHTTPMethod = Nothing     , _pCacheKeyParameters = Nothing     , _pRestAPIId = pRestAPIId_     , _pResourceId = pResourceId_@@ -148,6 +153,10 @@ pCacheNamespace :: Lens' PutIntegration (Maybe Text) pCacheNamespace = lens _pCacheNamespace (\ s a -> s{_pCacheNamespace = a}); +-- | Specifies a put integration HTTP method.+pIntegrationHTTPMethod :: Lens' PutIntegration (Maybe Text)+pIntegrationHTTPMethod = lens _pIntegrationHTTPMethod (\ s a -> s{_pIntegrationHTTPMethod = a});+ -- | Specifies a put integration input\'s cache key parameters. pCacheKeyParameters :: Lens' PutIntegration [Text] pCacheKeyParameters = lens _pCacheKeyParameters (\ s a -> s{_pCacheKeyParameters = a}) . _Default . _Coerce;@@ -160,7 +169,7 @@ pResourceId :: Lens' PutIntegration Text pResourceId = lens _pResourceId (\ s a -> s{_pResourceId = a}); --- | Specifies a put integration HTTP method.+-- | Specifies a put integration request\'s HTTP method. pHttpMethod :: Lens' PutIntegration Text pHttpMethod = lens _pHttpMethod (\ s a -> s{_pHttpMethod = a}); @@ -185,8 +194,8 @@                   ("requestParameters" .=) <$> _pRequestParameters,                   ("uri" .=) <$> _pUri,                   ("cacheNamespace" .=) <$> _pCacheNamespace,+                  ("httpMethod" .=) <$> _pIntegrationHTTPMethod,                   ("cacheKeyParameters" .=) <$> _pCacheKeyParameters,-                  Just ("httpMethod" .= _pHttpMethod),                   Just ("type" .= _pType)])  instance ToPath PutIntegration where

@@ -30,6 +30,7 @@     , timPathWithQueryString     , timBody     , timClientCertificateId+    , timStageVariables     , timHeaders     , timRestAPIId     , timResourceId@@ -58,6 +59,7 @@     { _timPathWithQueryString :: !(Maybe Text)     , _timBody                :: !(Maybe Text)     , _timClientCertificateId :: !(Maybe Text)+    , _timStageVariables      :: !(Maybe (Map Text Text))     , _timHeaders             :: !(Maybe (Map Text Text))     , _timRestAPIId           :: !Text     , _timResourceId          :: !Text@@ -74,6 +76,8 @@ -- -- * 'timClientCertificateId' --+-- * 'timStageVariables'+-- -- * 'timHeaders' -- -- * 'timRestAPIId'@@ -91,6 +95,7 @@     { _timPathWithQueryString = Nothing     , _timBody = Nothing     , _timClientCertificateId = Nothing+    , _timStageVariables = Nothing     , _timHeaders = Nothing     , _timRestAPIId = pRestAPIId_     , _timResourceId = pResourceId_@@ -110,6 +115,10 @@ timClientCertificateId = lens _timClientCertificateId (\ s a -> s{_timClientCertificateId = a});  -- | Undocumented member.+timStageVariables :: Lens' TestInvokeMethod (HashMap Text Text)+timStageVariables = lens _timStageVariables (\ s a -> s{_timStageVariables = a}) . _Default . _Map;++-- | Undocumented member. timHeaders :: Lens' TestInvokeMethod (HashMap Text Text) timHeaders = lens _timHeaders (\ s a -> s{_timHeaders = a}) . _Default . _Map; @@ -149,6 +158,7 @@                   ("body" .=) <$> _timBody,                   ("clientCertificateId" .=) <$>                     _timClientCertificateId,+                  ("stageVariables" .=) <$> _timStageVariables,                   ("headers" .=) <$> _timHeaders])  instance ToPath TestInvokeMethod where

@@ -180,6 +180,7 @@     , Stage     , stage     , sDeploymentId+    , sVariables     , sClientCertificateId     , sCreatedDate     , sCacheClusterStatus

@@ -1146,6 +1146,7 @@ -- /See:/ 'stage' smart constructor. data Stage = Stage'     { _sDeploymentId        :: !(Maybe Text)+    , _sVariables           :: !(Maybe (Map Text Text))     , _sClientCertificateId :: !(Maybe Text)     , _sCreatedDate         :: !(Maybe POSIX)     , _sCacheClusterStatus  :: !(Maybe CacheClusterStatus)@@ -1163,6 +1164,8 @@ -- -- * 'sDeploymentId' --+-- * 'sVariables'+-- -- * 'sClientCertificateId' -- -- * 'sCreatedDate'@@ -1185,6 +1188,7 @@ stage =     Stage'     { _sDeploymentId = Nothing+    , _sVariables = Nothing     , _sClientCertificateId = Nothing     , _sCreatedDate = Nothing     , _sCacheClusterStatus = Nothing@@ -1200,6 +1204,12 @@ sDeploymentId :: Lens' Stage (Maybe Text) sDeploymentId = lens _sDeploymentId (\ s a -> s{_sDeploymentId = a}); +-- | A map that defines the stage variables for a Stage resource. Variable+-- names can have alphabetic characters, and the values must match+-- [A-Za-z0-9-._~:\/?#&=,]++sVariables :: Lens' Stage (HashMap Text Text)+sVariables = lens _sVariables (\ s a -> s{_sVariables = a}) . _Default . _Map;+ -- | Undocumented member. sClientCertificateId :: Lens' Stage (Maybe Text) sClientCertificateId = lens _sClientCertificateId (\ s a -> s{_sClientCertificateId = a});@@ -1248,7 +1258,8 @@               (\ x ->                  Stage' <$>                    (x .:? "deploymentId") <*>-                     (x .:? "clientCertificateId")+                     (x .:? "variables" .!= mempty)+                     <*> (x .:? "clientCertificateId")                      <*> (x .:? "createdDate")                      <*> (x .:? "cacheClusterStatus")                      <*> (x .:? "methodSettings" .!= mempty)

@@ -36,6 +36,7 @@     , Stage     -- * Response Lenses     , sDeploymentId+    , sVariables     , sClientCertificateId     , sCreatedDate     , sCacheClusterStatus