amazonka-apigateway 1.4.3 → 1.4.4

raw patch · 93 files changed

+2823/−151 lines, 93 filesdep ~amazonka-apigatewaydep ~amazonka-coredep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• README.md +2/−2
• amazonka-apigateway.cabal +19/−7
• fixture/CreateUsagePlan.yaml +0/−0
• fixture/CreateUsagePlanKey.yaml +0/−0
• fixture/CreateUsagePlanKeyResponse.proto +0/−0
• fixture/CreateUsagePlanResponse.proto +0/−0
• fixture/DeleteUsagePlan.yaml +0/−0
• fixture/DeleteUsagePlanKey.yaml +0/−0
• fixture/DeleteUsagePlanKeyResponse.proto +0/−0
• fixture/DeleteUsagePlanResponse.proto +0/−0
• fixture/GetUsage.yaml +0/−0
• fixture/GetUsagePlan.yaml +0/−0
• fixture/GetUsagePlanKey.yaml +0/−0
• fixture/GetUsagePlanKeyResponse.proto +0/−0
• fixture/GetUsagePlanKeys.yaml +0/−0
• fixture/GetUsagePlanKeysResponse.proto +0/−0
• fixture/GetUsagePlanResponse.proto +0/−0
• fixture/GetUsagePlans.yaml +0/−0
• fixture/GetUsagePlansResponse.proto +0/−0
• fixture/GetUsageResponse.proto +0/−0
• fixture/ImportAPIKeys.yaml +0/−0
• fixture/ImportAPIKeysResponse.proto +0/−0
• fixture/UpdateUsage.yaml +0/−0
• fixture/UpdateUsagePlan.yaml +0/−0
• fixture/UpdateUsagePlanResponse.proto +0/−0
• fixture/UpdateUsageResponse.proto +0/−0
• gen/Network/AWS/APIGateway.hs +100/−1
• gen/Network/AWS/APIGateway/CreateAPIKey.hs +28/−5
• gen/Network/AWS/APIGateway/CreateAuthorizer.hs +27/−15
• gen/Network/AWS/APIGateway/CreateDeployment.hs +1/−1
• gen/Network/AWS/APIGateway/CreateRestAPI.hs +1/−1
• gen/Network/AWS/APIGateway/CreateStage.hs +1/−1
• gen/Network/AWS/APIGateway/CreateUsagePlan.hs +138/−0
• gen/Network/AWS/APIGateway/CreateUsagePlanKey.hs +119/−0
• gen/Network/AWS/APIGateway/DeleteAuthorizer.hs +2/−0
• gen/Network/AWS/APIGateway/DeleteMethod.hs +1/−1
• gen/Network/AWS/APIGateway/DeleteMethodResponse.hs +1/−1
• gen/Network/AWS/APIGateway/DeleteUsagePlan.hs +99/−0
• gen/Network/AWS/APIGateway/DeleteUsagePlanKey.hs +112/−0
• gen/Network/AWS/APIGateway/GetAPIKey.hs +15/−4
• gen/Network/AWS/APIGateway/GetAPIKeys.hs +40/−7
• gen/Network/AWS/APIGateway/GetAccount.hs +2/−0
• gen/Network/AWS/APIGateway/GetAuthorizer.hs +3/−0
• gen/Network/AWS/APIGateway/GetAuthorizers.hs +5/−1
• gen/Network/AWS/APIGateway/GetBasePathMappings.hs +2/−0
• gen/Network/AWS/APIGateway/GetClientCertificates.hs +2/−0
• gen/Network/AWS/APIGateway/GetDeployments.hs +5/−1
• gen/Network/AWS/APIGateway/GetDomainNames.hs +2/−0
• gen/Network/AWS/APIGateway/GetExport.hs +3/−3
• gen/Network/AWS/APIGateway/GetIntegration.hs +1/−0
• gen/Network/AWS/APIGateway/GetMethod.hs +1/−1
• gen/Network/AWS/APIGateway/GetMethodResponse.hs +2/−2
• gen/Network/AWS/APIGateway/GetModel.hs +1/−1
• gen/Network/AWS/APIGateway/GetModelTemplate.hs +2/−0
• gen/Network/AWS/APIGateway/GetModels.hs +2/−0
• gen/Network/AWS/APIGateway/GetResources.hs +2/−0
• gen/Network/AWS/APIGateway/GetRestAPIs.hs +3/−1
• gen/Network/AWS/APIGateway/GetSDK.hs +3/−3
• gen/Network/AWS/APIGateway/GetStages.hs +3/−1
• gen/Network/AWS/APIGateway/GetUsage.hs +144/−0
• gen/Network/AWS/APIGateway/GetUsagePlan.hs +93/−0
• gen/Network/AWS/APIGateway/GetUsagePlanKey.hs +103/−0
• gen/Network/AWS/APIGateway/GetUsagePlanKeys.hs +170/−0
• gen/Network/AWS/APIGateway/GetUsagePlans.hs +158/−0
• gen/Network/AWS/APIGateway/ImportAPIKeys.hs +162/−0
• gen/Network/AWS/APIGateway/PutIntegration.hs +20/−2
• gen/Network/AWS/APIGateway/PutIntegrationResponse.hs +1/−1
• gen/Network/AWS/APIGateway/PutMethod.hs +2/−2
• gen/Network/AWS/APIGateway/PutMethodResponse.hs +2/−2
• gen/Network/AWS/APIGateway/TestInvokeAuthorizer.hs +15/−3
• gen/Network/AWS/APIGateway/TestInvokeMethod.hs +6/−4
• gen/Network/AWS/APIGateway/Types.hs +51/−0
• gen/Network/AWS/APIGateway/Types/Product.hs +612/−51
• gen/Network/AWS/APIGateway/Types/Sum.hs +65/−7
• gen/Network/AWS/APIGateway/UpdateAPIKey.hs +2/−1
• gen/Network/AWS/APIGateway/UpdateAccount.hs +3/−1
• gen/Network/AWS/APIGateway/UpdateAuthorizer.hs +4/−1
• gen/Network/AWS/APIGateway/UpdateBasePathMapping.hs +1/−1
• gen/Network/AWS/APIGateway/UpdateClientCertificate.hs +1/−1
• gen/Network/AWS/APIGateway/UpdateDeployment.hs +2/−2
• gen/Network/AWS/APIGateway/UpdateDomainName.hs +1/−1
• gen/Network/AWS/APIGateway/UpdateIntegration.hs +2/−1
• gen/Network/AWS/APIGateway/UpdateIntegrationResponse.hs +1/−1
• gen/Network/AWS/APIGateway/UpdateMethod.hs +2/−2
• gen/Network/AWS/APIGateway/UpdateMethodResponse.hs +3/−3
• gen/Network/AWS/APIGateway/UpdateModel.hs +1/−1
• gen/Network/AWS/APIGateway/UpdateResource.hs +1/−1
• gen/Network/AWS/APIGateway/UpdateRestAPI.hs +1/−1
• gen/Network/AWS/APIGateway/UpdateStage.hs +1/−1
• gen/Network/AWS/APIGateway/UpdateUsage.hs +119/−0
• gen/Network/AWS/APIGateway/UpdateUsagePlan.hs +108/−0
• src/.gitkeep +0/−0
• test/Test/AWS/Gen/APIGateway.hs +216/−0

@@ -8,14 +8,14 @@  ## Version -`1.4.3`+`1.4.4`   ## Description  Amazon API Gateway -Amazon API Gateway helps developers deliver robust, secure and scalable mobile and web application backends. Amazon API Gateway allows developers to securely connect mobile and web applications to APIs that run on AWS Lambda, Amazon EC2, or other publicly addressable web services that are hosted outside of AWS.+Amazon API Gateway helps developers deliver robust, secure, and scalable mobile and web application back ends. Amazon API Gateway allows developers to securely connect mobile and web applications to APIs that run on AWS Lambda, Amazon EC2, or other publicly addressable web services that are hosted outside of AWS.  Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-apigateway) and the [AWS API Reference](https://aws.amazon.com/documentation/).

@@ -1,5 +1,5 @@ name:                  amazonka-apigateway-version:               1.4.3+version:               1.4.4 synopsis:              Amazon API Gateway SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -11,11 +11,11 @@ category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto+extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:     Amazon API Gateway -    Amazon API Gateway helps developers deliver robust, secure and scalable mobile and web application backends. Amazon API Gateway allows developers to securely connect mobile and web applications to APIs that run on AWS Lambda, Amazon EC2, or other publicly addressable web services that are hosted outside of AWS.+    Amazon API Gateway helps developers deliver robust, secure, and scalable mobile and web application back ends. Amazon API Gateway allows developers to securely connect mobile and web applications to APIs that run on AWS Lambda, Amazon EC2, or other publicly addressable web services that are hosted outside of AWS.     .     The types from this library are intended to be used with     <http://hackage.haskell.org/package/amazonka amazonka>, which provides@@ -52,6 +52,8 @@         , Network.AWS.APIGateway.CreateResource         , Network.AWS.APIGateway.CreateRestAPI         , Network.AWS.APIGateway.CreateStage+        , Network.AWS.APIGateway.CreateUsagePlan+        , Network.AWS.APIGateway.CreateUsagePlanKey         , Network.AWS.APIGateway.DeleteAPIKey         , Network.AWS.APIGateway.DeleteAuthorizer         , Network.AWS.APIGateway.DeleteBasePathMapping@@ -66,6 +68,8 @@         , Network.AWS.APIGateway.DeleteResource         , Network.AWS.APIGateway.DeleteRestAPI         , Network.AWS.APIGateway.DeleteStage+        , Network.AWS.APIGateway.DeleteUsagePlan+        , Network.AWS.APIGateway.DeleteUsagePlanKey         , Network.AWS.APIGateway.FlushStageAuthorizersCache         , Network.AWS.APIGateway.FlushStageCache         , Network.AWS.APIGateway.GenerateClientCertificate@@ -97,6 +101,12 @@         , Network.AWS.APIGateway.GetSDK         , Network.AWS.APIGateway.GetStage         , Network.AWS.APIGateway.GetStages+        , Network.AWS.APIGateway.GetUsage+        , Network.AWS.APIGateway.GetUsagePlan+        , Network.AWS.APIGateway.GetUsagePlanKey+        , Network.AWS.APIGateway.GetUsagePlanKeys+        , Network.AWS.APIGateway.GetUsagePlans+        , Network.AWS.APIGateway.ImportAPIKeys         , Network.AWS.APIGateway.ImportRestAPI         , Network.AWS.APIGateway.PutIntegration         , Network.AWS.APIGateway.PutIntegrationResponse@@ -121,6 +131,8 @@         , Network.AWS.APIGateway.UpdateResource         , Network.AWS.APIGateway.UpdateRestAPI         , Network.AWS.APIGateway.UpdateStage+        , Network.AWS.APIGateway.UpdateUsage+        , Network.AWS.APIGateway.UpdateUsagePlan         , Network.AWS.APIGateway.Waiters      other-modules:@@ -128,7 +140,7 @@         , Network.AWS.APIGateway.Types.Sum      build-depends:-          amazonka-core == 1.4.3.*+          amazonka-core == 1.4.4.*         , base          >= 4.7     && < 5  test-suite amazonka-apigateway-test@@ -148,9 +160,9 @@         , Test.AWS.APIGateway.Internal      build-depends:-          amazonka-core == 1.4.3.*-        , amazonka-test == 1.4.3.*-        , amazonka-apigateway == 1.4.3.*+          amazonka-core == 1.4.4.*+        , amazonka-test == 1.4.4.*+        , amazonka-apigateway == 1.4.4.*         , base         , bytestring         , tasty

@@ -13,7 +13,7 @@ -- -- Amazon API Gateway ----- Amazon API Gateway helps developers deliver robust, secure and scalable mobile and web application backends. Amazon API Gateway allows developers to securely connect mobile and web applications to APIs that run on AWS Lambda, Amazon EC2, or other publicly addressable web services that are hosted outside of AWS.+-- Amazon API Gateway helps developers deliver robust, secure, and scalable mobile and web application back ends. Amazon API Gateway allows developers to securely connect mobile and web applications to APIs that run on AWS Lambda, Amazon EC2, or other publicly addressable web services that are hosted outside of AWS. module Network.AWS.APIGateway     (     -- * Service Configuration@@ -58,6 +58,9 @@     -- ** GetDeployment     , module Network.AWS.APIGateway.GetDeployment +    -- ** CreateUsagePlan+    , module Network.AWS.APIGateway.CreateUsagePlan+     -- ** GetDomainNames (Paginated)     , module Network.AWS.APIGateway.GetDomainNames @@ -106,6 +109,9 @@     -- ** UpdateAccount     , module Network.AWS.APIGateway.UpdateAccount +    -- ** GetUsagePlan+    , module Network.AWS.APIGateway.GetUsagePlan+     -- ** DeleteDeployment     , module Network.AWS.APIGateway.DeleteDeployment @@ -118,6 +124,9 @@     -- ** UpdateResource     , module Network.AWS.APIGateway.UpdateResource +    -- ** GetUsage+    , module Network.AWS.APIGateway.GetUsage+     -- ** CreateModel     , module Network.AWS.APIGateway.CreateModel @@ -163,6 +172,9 @@     -- ** DeleteRestAPI     , module Network.AWS.APIGateway.DeleteRestAPI +    -- ** ImportAPIKeys+    , module Network.AWS.APIGateway.ImportAPIKeys+     -- ** TestInvokeMethod     , module Network.AWS.APIGateway.TestInvokeMethod @@ -175,6 +187,9 @@     -- ** PutIntegrationResponse     , module Network.AWS.APIGateway.PutIntegrationResponse +    -- ** GetUsagePlanKeys+    , module Network.AWS.APIGateway.GetUsagePlanKeys+     -- ** FlushStageCache     , module Network.AWS.APIGateway.FlushStageCache @@ -187,6 +202,9 @@     -- ** UpdateIntegrationResponse     , module Network.AWS.APIGateway.UpdateIntegrationResponse +    -- ** UpdateUsage+    , module Network.AWS.APIGateway.UpdateUsage+     -- ** DeleteIntegration     , module Network.AWS.APIGateway.DeleteIntegration @@ -202,6 +220,9 @@     -- ** GetResources (Paginated)     , module Network.AWS.APIGateway.GetResources +    -- ** GetUsagePlanKey+    , module Network.AWS.APIGateway.GetUsagePlanKey+     -- ** GetAccount     , module Network.AWS.APIGateway.GetAccount @@ -211,6 +232,12 @@     -- ** GetAuthorizer     , module Network.AWS.APIGateway.GetAuthorizer +    -- ** DeleteUsagePlan+    , module Network.AWS.APIGateway.DeleteUsagePlan++    -- ** UpdateUsagePlan+    , module Network.AWS.APIGateway.UpdateUsagePlan+     -- ** GetStage     , module Network.AWS.APIGateway.GetStage @@ -235,6 +262,9 @@     -- ** UpdateClientCertificate     , module Network.AWS.APIGateway.UpdateClientCertificate +    -- ** CreateUsagePlanKey+    , module Network.AWS.APIGateway.CreateUsagePlanKey+     -- ** CreateAuthorizer     , module Network.AWS.APIGateway.CreateAuthorizer @@ -247,9 +277,15 @@     -- ** CreateStage     , module Network.AWS.APIGateway.CreateStage +    -- ** DeleteUsagePlanKey+    , module Network.AWS.APIGateway.DeleteUsagePlanKey+     -- ** CreateAPIKey     , module Network.AWS.APIGateway.CreateAPIKey +    -- ** GetUsagePlans+    , module Network.AWS.APIGateway.GetUsagePlans+     -- ** PutMethod     , module Network.AWS.APIGateway.PutMethod @@ -282,6 +318,9 @@      -- * Types +    -- ** APIKeysFormat+    , APIKeysFormat (..)+     -- ** AuthorizerType     , AuthorizerType (..) @@ -300,6 +339,9 @@     -- ** PutMode     , PutMode (..) +    -- ** QuotaPeriodType+    , QuotaPeriodType (..)+     -- ** UnauthorizedCacheControlHeaderStrategy     , UnauthorizedCacheControlHeaderStrategy (..) @@ -307,6 +349,7 @@     , APIKey     , apiKey     , akEnabled+    , akValue     , akCreatedDate     , akName     , akId@@ -314,10 +357,18 @@     , akLastUpdatedDate     , akDescription +    -- ** APIStage+    , APIStage+    , apiStage+    , asStage+    , asApiId+     -- ** Account     , Account     , account+    , aApiKeyVersion     , aCloudwatchRoleARN+    , aFeatures     , aThrottleSettings      -- ** Authorizer@@ -325,6 +376,7 @@     , authorizer     , aAuthorizerURI     , aIdentityValidationExpression+    , aProviderARNs     , aName     , aId     , aAuthorizerResultTtlInSeconds@@ -372,6 +424,7 @@     , iRequestTemplates     , iCredentials     , iRequestParameters+    , iPassthroughBehavior     , iUri     , iIntegrationResponses     , iCacheNamespace@@ -442,6 +495,13 @@     , poValue     , poFrom +    -- ** QuotaSettings+    , QuotaSettings+    , quotaSettings+    , qsOffset+    , qsPeriod+    , qsLimit+     -- ** Resource     , Resource     , resource@@ -486,6 +546,33 @@     , throttleSettings     , tsBurstLimit     , tsRateLimit++    -- ** Usage+    , Usage+    , usage+    , uUsagePlanId+    , uEndDate+    , uItems+    , uStartDate+    , uPosition++    -- ** UsagePlan+    , UsagePlan+    , usagePlan+    , upApiStages+    , upName+    , upId+    , upThrottle+    , upQuota+    , upDescription++    -- ** UsagePlanKey+    , UsagePlanKey+    , usagePlanKey+    , upkValue+    , upkName+    , upkId+    , upkType     ) where  import           Network.AWS.APIGateway.CreateAPIKey@@ -497,6 +584,8 @@ import           Network.AWS.APIGateway.CreateResource import           Network.AWS.APIGateway.CreateRestAPI import           Network.AWS.APIGateway.CreateStage+import           Network.AWS.APIGateway.CreateUsagePlan+import           Network.AWS.APIGateway.CreateUsagePlanKey import           Network.AWS.APIGateway.DeleteAPIKey import           Network.AWS.APIGateway.DeleteAuthorizer import           Network.AWS.APIGateway.DeleteBasePathMapping@@ -511,6 +600,8 @@ import           Network.AWS.APIGateway.DeleteResource import           Network.AWS.APIGateway.DeleteRestAPI import           Network.AWS.APIGateway.DeleteStage+import           Network.AWS.APIGateway.DeleteUsagePlan+import           Network.AWS.APIGateway.DeleteUsagePlanKey import           Network.AWS.APIGateway.FlushStageAuthorizersCache import           Network.AWS.APIGateway.FlushStageCache import           Network.AWS.APIGateway.GenerateClientCertificate@@ -542,6 +633,12 @@ import           Network.AWS.APIGateway.GetSDK import           Network.AWS.APIGateway.GetStage import           Network.AWS.APIGateway.GetStages+import           Network.AWS.APIGateway.GetUsage+import           Network.AWS.APIGateway.GetUsagePlan+import           Network.AWS.APIGateway.GetUsagePlanKey+import           Network.AWS.APIGateway.GetUsagePlanKeys+import           Network.AWS.APIGateway.GetUsagePlans+import           Network.AWS.APIGateway.ImportAPIKeys import           Network.AWS.APIGateway.ImportRestAPI import           Network.AWS.APIGateway.PutIntegration import           Network.AWS.APIGateway.PutIntegrationResponse@@ -566,6 +663,8 @@ import           Network.AWS.APIGateway.UpdateResource import           Network.AWS.APIGateway.UpdateRestAPI import           Network.AWS.APIGateway.UpdateStage+import           Network.AWS.APIGateway.UpdateUsage+import           Network.AWS.APIGateway.UpdateUsagePlan import           Network.AWS.APIGateway.Waiters  {- $errors

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Create an < ApiKey> resource.+--+-- <http://docs.aws.amazon.com/cli/latest/reference/apigateway/create-api-key.html AWS CLI> module Network.AWS.APIGateway.CreateAPIKey     (     -- * Creating a Request@@ -26,6 +28,8 @@     , CreateAPIKey     -- * Request Lenses     , cakEnabled+    , cakValue+    , cakGenerateDistinctId     , cakName     , cakStageKeys     , cakDescription@@ -35,6 +39,7 @@     , APIKey     -- * Response Lenses     , akEnabled+    , akValue     , akCreatedDate     , akName     , akId@@ -54,10 +59,12 @@ -- -- /See:/ 'createAPIKey' smart constructor. data CreateAPIKey = CreateAPIKey'-    { _cakEnabled     :: !(Maybe Bool)-    , _cakName        :: !(Maybe Text)-    , _cakStageKeys   :: !(Maybe [StageKey])-    , _cakDescription :: !(Maybe Text)+    { _cakEnabled            :: !(Maybe Bool)+    , _cakValue              :: !(Maybe Text)+    , _cakGenerateDistinctId :: !(Maybe Bool)+    , _cakName               :: !(Maybe Text)+    , _cakStageKeys          :: !(Maybe [StageKey])+    , _cakDescription        :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateAPIKey' with the minimum fields required to make a request.@@ -66,6 +73,10 @@ -- -- * 'cakEnabled' --+-- * 'cakValue'+--+-- * 'cakGenerateDistinctId'+-- -- * 'cakName' -- -- * 'cakStageKeys'@@ -76,6 +87,8 @@ createAPIKey =     CreateAPIKey'     { _cakEnabled = Nothing+    , _cakValue = Nothing+    , _cakGenerateDistinctId = Nothing     , _cakName = Nothing     , _cakStageKeys = Nothing     , _cakDescription = Nothing@@ -85,11 +98,19 @@ cakEnabled :: Lens' CreateAPIKey (Maybe Bool) cakEnabled = lens _cakEnabled (\ s a -> s{_cakEnabled = a}); +-- | Specifies a value of the API key.+cakValue :: Lens' CreateAPIKey (Maybe Text)+cakValue = lens _cakValue (\ s a -> s{_cakValue = a});++-- | Specifies whether ('true') or not ('false') the key identifier is distinct from the created API key value.+cakGenerateDistinctId :: Lens' CreateAPIKey (Maybe Bool)+cakGenerateDistinctId = lens _cakGenerateDistinctId (\ s a -> s{_cakGenerateDistinctId = a});+ -- | The name of the < ApiKey>. cakName :: Lens' CreateAPIKey (Maybe Text) cakName = lens _cakName (\ s a -> s{_cakName = a}); --- | Specifies whether the < ApiKey> can be used by callers.+-- | DEPRECATED FOR USAGE PLANS - Specifies stages associated with the API key. cakStageKeys :: Lens' CreateAPIKey [StageKey] cakStageKeys = lens _cakStageKeys (\ s a -> s{_cakStageKeys = a}) . _Default . _Coerce; @@ -117,6 +138,8 @@           = object               (catMaybes                  [("enabled" .=) <$> _cakEnabled,+                  ("value" .=) <$> _cakValue,+                  ("generateDistinctId" .=) <$> _cakGenerateDistinctId,                   ("name" .=) <$> _cakName,                   ("stageKeys" .=) <$> _cakStageKeys,                   ("description" .=) <$> _cakDescription])

@@ -19,20 +19,23 @@ -- Portability : non-portable (GHC extensions) -- -- Adds a new < Authorizer> resource to an existing < RestApi> resource.+--+-- <http://docs.aws.amazon.com/cli/latest/reference/apigateway/create-authorizer.html AWS CLI> module Network.AWS.APIGateway.CreateAuthorizer     (     -- * Creating a Request       createAuthorizer     , CreateAuthorizer     -- * Request Lenses+    , caAuthorizerURI     , caIdentityValidationExpression+    , caProviderARNs     , caAuthorizerResultTtlInSeconds     , caAuthType     , caAuthorizerCredentials     , caRestAPIId     , caName     , caType-    , caAuthorizerURI     , caIdentitySource      -- * Destructuring the Response@@ -41,6 +44,7 @@     -- * Response Lenses     , aAuthorizerURI     , aIdentityValidationExpression+    , aProviderARNs     , aName     , aId     , aAuthorizerResultTtlInSeconds@@ -61,14 +65,15 @@ -- -- /See:/ 'createAuthorizer' smart constructor. data CreateAuthorizer = CreateAuthorizer'-    { _caIdentityValidationExpression :: !(Maybe Text)+    { _caAuthorizerURI                :: !(Maybe Text)+    , _caIdentityValidationExpression :: !(Maybe Text)+    , _caProviderARNs                 :: !(Maybe [Text])     , _caAuthorizerResultTtlInSeconds :: !(Maybe Int)     , _caAuthType                     :: !(Maybe Text)     , _caAuthorizerCredentials        :: !(Maybe Text)     , _caRestAPIId                    :: !Text     , _caName                         :: !Text     , _caType                         :: !AuthorizerType-    , _caAuthorizerURI                :: !Text     , _caIdentitySource               :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -76,8 +81,12 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'caAuthorizerURI'+-- -- * 'caIdentityValidationExpression' --+-- * 'caProviderARNs'+-- -- * 'caAuthorizerResultTtlInSeconds' -- -- * 'caAuthType'@@ -90,33 +99,39 @@ -- -- * 'caType' ----- * 'caAuthorizerURI'--- -- * 'caIdentitySource' createAuthorizer     :: Text -- ^ 'caRestAPIId'     -> Text -- ^ 'caName'     -> AuthorizerType -- ^ 'caType'-    -> Text -- ^ 'caAuthorizerURI'     -> Text -- ^ 'caIdentitySource'     -> CreateAuthorizer-createAuthorizer pRestAPIId_ pName_ pType_ pAuthorizerURI_ pIdentitySource_ =+createAuthorizer pRestAPIId_ pName_ pType_ pIdentitySource_ =     CreateAuthorizer'-    { _caIdentityValidationExpression = Nothing+    { _caAuthorizerURI = Nothing+    , _caIdentityValidationExpression = Nothing+    , _caProviderARNs = Nothing     , _caAuthorizerResultTtlInSeconds = Nothing     , _caAuthType = Nothing     , _caAuthorizerCredentials = Nothing     , _caRestAPIId = pRestAPIId_     , _caName = pName_     , _caType = pType_-    , _caAuthorizerURI = pAuthorizerURI_     , _caIdentitySource = pIdentitySource_     } +-- | [Required] Specifies the authorizer\'s Uniform Resource Identifier (URI).+caAuthorizerURI :: Lens' CreateAuthorizer (Maybe Text)+caAuthorizerURI = lens _caAuthorizerURI (\ s a -> s{_caAuthorizerURI = a});+ -- | A validation expression for the incoming identity. caIdentityValidationExpression :: Lens' CreateAuthorizer (Maybe Text) caIdentityValidationExpression = lens _caIdentityValidationExpression (\ s a -> s{_caIdentityValidationExpression = a}); +-- | A list of the Cognito Your User Pool authorizer\'s provider ARNs.+caProviderARNs :: Lens' CreateAuthorizer [Text]+caProviderARNs = lens _caProviderARNs (\ s a -> s{_caProviderARNs = a}) . _Default . _Coerce;+ -- | The TTL of cached authorizer results. caAuthorizerResultTtlInSeconds :: Lens' CreateAuthorizer (Maybe Int) caAuthorizerResultTtlInSeconds = lens _caAuthorizerResultTtlInSeconds (\ s a -> s{_caAuthorizerResultTtlInSeconds = a});@@ -141,10 +156,6 @@ caType :: Lens' CreateAuthorizer AuthorizerType caType = lens _caType (\ s a -> s{_caType = a}); --- | [Required] Specifies the authorizer\'s Uniform Resource Identifier (URI).-caAuthorizerURI :: Lens' CreateAuthorizer Text-caAuthorizerURI = lens _caAuthorizerURI (\ s a -> s{_caAuthorizerURI = a});- -- | [Required] The source of the identity in an incoming request. caIdentitySource :: Lens' CreateAuthorizer Text caIdentitySource = lens _caIdentitySource (\ s a -> s{_caIdentitySource = a});@@ -168,15 +179,16 @@         toJSON CreateAuthorizer'{..}           = object               (catMaybes-                 [("identityValidationExpression" .=) <$>+                 [("authorizerUri" .=) <$> _caAuthorizerURI,+                  ("identityValidationExpression" .=) <$>                     _caIdentityValidationExpression,+                  ("providerARNs" .=) <$> _caProviderARNs,                   ("authorizerResultTtlInSeconds" .=) <$>                     _caAuthorizerResultTtlInSeconds,                   ("authType" .=) <$> _caAuthType,                   ("authorizerCredentials" .=) <$>                     _caAuthorizerCredentials,                   Just ("name" .= _caName), Just ("type" .= _caType),-                  Just ("authorizerUri" .= _caAuthorizerURI),                   Just ("identitySource" .= _caIdentitySource)])  instance ToPath CreateAuthorizer where

@@ -99,7 +99,7 @@ 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 alphanumeric characters, and the values must match '[A-Za-z0-9-._~:\/?#&=,]+'.+-- | A map that defines the stage variables for the < Stage> resource that is associated with the new deployment. Variable names can have alphanumeric and underscore 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; 

@@ -75,7 +75,7 @@     , _craName = pName_     } --- | The Id of the < RestApi> that you want to clone from.+-- | The ID of the < RestApi> that you want to clone from. craCloneFrom :: Lens' CreateRestAPI (Maybe Text) craCloneFrom = lens _craCloneFrom (\ s a -> s{_craCloneFrom = a}); 

@@ -103,7 +103,7 @@     , _csDeploymentId = pDeploymentId_     } --- | A map that defines the stage variables for the new < Stage> resource. Variable names can have alphanumeric characters, and the values must match '[A-Za-z0-9-._~:\/?#&=,]+'.+-- | A map that defines the stage variables for the new < Stage> resource. Variable names can have alphanumeric and underscore 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; 

@@ -0,0 +1,138 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.APIGateway.CreateUsagePlan+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a usage plan with the throttle and quota limits, as well as the associated API stages, specified in the payload.+module Network.AWS.APIGateway.CreateUsagePlan+    (+    -- * Creating a Request+      createUsagePlan+    , CreateUsagePlan+    -- * Request Lenses+    , cupApiStages+    , cupThrottle+    , cupQuota+    , cupDescription+    , cupName++    -- * Destructuring the Response+    , usagePlan+    , UsagePlan+    -- * Response Lenses+    , upApiStages+    , upName+    , upId+    , upThrottle+    , upQuota+    , upDescription+    ) where++import           Network.AWS.APIGateway.Types+import           Network.AWS.APIGateway.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The POST request to create a usage plan with the name, description, throttle limits and quota limits, as well as the associated API stages, specified in the payload.+--+-- /See:/ 'createUsagePlan' smart constructor.+data CreateUsagePlan = CreateUsagePlan'+    { _cupApiStages   :: !(Maybe [APIStage])+    , _cupThrottle    :: !(Maybe ThrottleSettings)+    , _cupQuota       :: !(Maybe QuotaSettings)+    , _cupDescription :: !(Maybe Text)+    , _cupName        :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateUsagePlan' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cupApiStages'+--+-- * 'cupThrottle'+--+-- * 'cupQuota'+--+-- * 'cupDescription'+--+-- * 'cupName'+createUsagePlan+    :: Text -- ^ 'cupName'+    -> CreateUsagePlan+createUsagePlan pName_ =+    CreateUsagePlan'+    { _cupApiStages = Nothing+    , _cupThrottle = Nothing+    , _cupQuota = Nothing+    , _cupDescription = Nothing+    , _cupName = pName_+    }++-- | The associated API stages of the usage plan.+cupApiStages :: Lens' CreateUsagePlan [APIStage]+cupApiStages = lens _cupApiStages (\ s a -> s{_cupApiStages = a}) . _Default . _Coerce;++-- | The throttling limits of the usage plan.+cupThrottle :: Lens' CreateUsagePlan (Maybe ThrottleSettings)+cupThrottle = lens _cupThrottle (\ s a -> s{_cupThrottle = a});++-- | The quota of the usage plan.+cupQuota :: Lens' CreateUsagePlan (Maybe QuotaSettings)+cupQuota = lens _cupQuota (\ s a -> s{_cupQuota = a});++-- | The description of the usage plan.+cupDescription :: Lens' CreateUsagePlan (Maybe Text)+cupDescription = lens _cupDescription (\ s a -> s{_cupDescription = a});++-- | The name of the usage plan.+cupName :: Lens' CreateUsagePlan Text+cupName = lens _cupName (\ s a -> s{_cupName = a});++instance AWSRequest CreateUsagePlan where+        type Rs CreateUsagePlan = UsagePlan+        request = postJSON apiGateway+        response = receiveJSON (\ s h x -> eitherParseJSON x)++instance Hashable CreateUsagePlan++instance NFData CreateUsagePlan++instance ToHeaders CreateUsagePlan where+        toHeaders+          = const+              (mconcat+                 ["Accept" =# ("application/json" :: ByteString)])++instance ToJSON CreateUsagePlan where+        toJSON CreateUsagePlan'{..}+          = object+              (catMaybes+                 [("apiStages" .=) <$> _cupApiStages,+                  ("throttle" .=) <$> _cupThrottle,+                  ("quota" .=) <$> _cupQuota,+                  ("description" .=) <$> _cupDescription,+                  Just ("name" .= _cupName)])++instance ToPath CreateUsagePlan where+        toPath = const "/usageplans"++instance ToQuery CreateUsagePlan where+        toQuery = const mempty

@@ -0,0 +1,119 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.APIGateway.CreateUsagePlanKey+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a usage plan key for adding an existing API key to a usage plan.+module Network.AWS.APIGateway.CreateUsagePlanKey+    (+    -- * Creating a Request+      createUsagePlanKey+    , CreateUsagePlanKey+    -- * Request Lenses+    , cupkUsagePlanId+    , cupkKeyId+    , cupkKeyType++    -- * Destructuring the Response+    , usagePlanKey+    , UsagePlanKey+    -- * Response Lenses+    , upkValue+    , upkName+    , upkId+    , upkType+    ) where++import           Network.AWS.APIGateway.Types+import           Network.AWS.APIGateway.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The POST request to create a usage plan key for adding an existing API key to a usage plan.+--+-- /See:/ 'createUsagePlanKey' smart constructor.+data CreateUsagePlanKey = CreateUsagePlanKey'+    { _cupkUsagePlanId :: !Text+    , _cupkKeyId       :: !Text+    , _cupkKeyType     :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateUsagePlanKey' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cupkUsagePlanId'+--+-- * 'cupkKeyId'+--+-- * 'cupkKeyType'+createUsagePlanKey+    :: Text -- ^ 'cupkUsagePlanId'+    -> Text -- ^ 'cupkKeyId'+    -> Text -- ^ 'cupkKeyType'+    -> CreateUsagePlanKey+createUsagePlanKey pUsagePlanId_ pKeyId_ pKeyType_ =+    CreateUsagePlanKey'+    { _cupkUsagePlanId = pUsagePlanId_+    , _cupkKeyId = pKeyId_+    , _cupkKeyType = pKeyType_+    }++-- | The Id of the < UsagePlan> resource representing the usage plan containing the to-be-created < UsagePlanKey> resource representing a plan customer.+cupkUsagePlanId :: Lens' CreateUsagePlanKey Text+cupkUsagePlanId = lens _cupkUsagePlanId (\ s a -> s{_cupkUsagePlanId = a});++-- | The identifier of a < UsagePlanKey> resource for a plan customer.+cupkKeyId :: Lens' CreateUsagePlanKey Text+cupkKeyId = lens _cupkKeyId (\ s a -> s{_cupkKeyId = a});++-- | The type of a < UsagePlanKey> resource for a plan customer.+cupkKeyType :: Lens' CreateUsagePlanKey Text+cupkKeyType = lens _cupkKeyType (\ s a -> s{_cupkKeyType = a});++instance AWSRequest CreateUsagePlanKey where+        type Rs CreateUsagePlanKey = UsagePlanKey+        request = postJSON apiGateway+        response = receiveJSON (\ s h x -> eitherParseJSON x)++instance Hashable CreateUsagePlanKey++instance NFData CreateUsagePlanKey++instance ToHeaders CreateUsagePlanKey where+        toHeaders+          = const+              (mconcat+                 ["Accept" =# ("application/json" :: ByteString)])++instance ToJSON CreateUsagePlanKey where+        toJSON CreateUsagePlanKey'{..}+          = object+              (catMaybes+                 [Just ("keyId" .= _cupkKeyId),+                  Just ("keyType" .= _cupkKeyType)])++instance ToPath CreateUsagePlanKey where+        toPath CreateUsagePlanKey'{..}+          = mconcat+              ["/usageplans/", toBS _cupkUsagePlanId, "/keys"]++instance ToQuery CreateUsagePlanKey where+        toQuery = const mempty

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deletes an existing < Authorizer> resource.+--+-- <http://docs.aws.amazon.com/cli/latest/reference/apigateway/delete-authorizer.html AWS CLI> module Network.AWS.APIGateway.DeleteAuthorizer     (     -- * Creating a Request

@@ -79,7 +79,7 @@ dmmResourceId :: Lens' DeleteMethod Text dmmResourceId = lens _dmmResourceId (\ s a -> s{_dmmResourceId = a}); --- | The HTTP verb that identifies the < Method> resource.+-- | The HTTP verb of the < Method> resource. dmmHttpMethod :: Lens' DeleteMethod Text dmmHttpMethod = lens _dmmHttpMethod (\ s a -> s{_dmmHttpMethod = a}); 

@@ -85,7 +85,7 @@ dmResourceId :: Lens' DeleteMethodResponse Text dmResourceId = lens _dmResourceId (\ s a -> s{_dmResourceId = a}); --- | The HTTP verb identifier for the parent < Method> resource.+-- | The HTTP verb of the < Method> resource. dmHttpMethod :: Lens' DeleteMethodResponse Text dmHttpMethod = lens _dmHttpMethod (\ s a -> s{_dmHttpMethod = a}); 

@@ -0,0 +1,99 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.APIGateway.DeleteUsagePlan+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a usage plan of a given plan Id.+module Network.AWS.APIGateway.DeleteUsagePlan+    (+    -- * Creating a Request+      deleteUsagePlan+    , DeleteUsagePlan+    -- * Request Lenses+    , dupUsagePlanId++    -- * Destructuring the Response+    , deleteUsagePlanResponse+    , DeleteUsagePlanResponse+    ) where++import           Network.AWS.APIGateway.Types+import           Network.AWS.APIGateway.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The DELETE request to delete a uasge plan of a given plan Id.+--+-- /See:/ 'deleteUsagePlan' smart constructor.+newtype DeleteUsagePlan = DeleteUsagePlan'+    { _dupUsagePlanId :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteUsagePlan' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dupUsagePlanId'+deleteUsagePlan+    :: Text -- ^ 'dupUsagePlanId'+    -> DeleteUsagePlan+deleteUsagePlan pUsagePlanId_ =+    DeleteUsagePlan'+    { _dupUsagePlanId = pUsagePlanId_+    }++-- | The Id of the to-be-deleted usage plan.+dupUsagePlanId :: Lens' DeleteUsagePlan Text+dupUsagePlanId = lens _dupUsagePlanId (\ s a -> s{_dupUsagePlanId = a});++instance AWSRequest DeleteUsagePlan where+        type Rs DeleteUsagePlan = DeleteUsagePlanResponse+        request = delete apiGateway+        response = receiveNull DeleteUsagePlanResponse'++instance Hashable DeleteUsagePlan++instance NFData DeleteUsagePlan++instance ToHeaders DeleteUsagePlan where+        toHeaders+          = const+              (mconcat+                 ["Accept" =# ("application/json" :: ByteString)])++instance ToPath DeleteUsagePlan where+        toPath DeleteUsagePlan'{..}+          = mconcat ["/usageplans/", toBS _dupUsagePlanId]++instance ToQuery DeleteUsagePlan where+        toQuery = const mempty++-- | /See:/ 'deleteUsagePlanResponse' smart constructor.+data DeleteUsagePlanResponse =+    DeleteUsagePlanResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteUsagePlanResponse' with the minimum fields required to make a request.+--+deleteUsagePlanResponse+    :: DeleteUsagePlanResponse+deleteUsagePlanResponse = DeleteUsagePlanResponse'++instance NFData DeleteUsagePlanResponse

@@ -0,0 +1,112 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.APIGateway.DeleteUsagePlanKey+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a usage plan key and remove the underlying API key from the associated usage plan.+module Network.AWS.APIGateway.DeleteUsagePlanKey+    (+    -- * Creating a Request+      deleteUsagePlanKey+    , DeleteUsagePlanKey+    -- * Request Lenses+    , dupkUsagePlanId+    , dupkKeyId++    -- * Destructuring the Response+    , deleteUsagePlanKeyResponse+    , DeleteUsagePlanKeyResponse+    ) where++import           Network.AWS.APIGateway.Types+import           Network.AWS.APIGateway.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The DELETE request to delete a usage plan key and remove the underlying API key from the associated usage plan.+--+-- /See:/ 'deleteUsagePlanKey' smart constructor.+data DeleteUsagePlanKey = DeleteUsagePlanKey'+    { _dupkUsagePlanId :: !Text+    , _dupkKeyId       :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteUsagePlanKey' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dupkUsagePlanId'+--+-- * 'dupkKeyId'+deleteUsagePlanKey+    :: Text -- ^ 'dupkUsagePlanId'+    -> Text -- ^ 'dupkKeyId'+    -> DeleteUsagePlanKey+deleteUsagePlanKey pUsagePlanId_ pKeyId_ =+    DeleteUsagePlanKey'+    { _dupkUsagePlanId = pUsagePlanId_+    , _dupkKeyId = pKeyId_+    }++-- | The Id of the < UsagePlan> resource representing the usage plan containing the to-be-deleted < UsagePlanKey> resource representing a plan customer.+dupkUsagePlanId :: Lens' DeleteUsagePlanKey Text+dupkUsagePlanId = lens _dupkUsagePlanId (\ s a -> s{_dupkUsagePlanId = a});++-- | The Id of the < UsagePlanKey> resource to be deleted.+dupkKeyId :: Lens' DeleteUsagePlanKey Text+dupkKeyId = lens _dupkKeyId (\ s a -> s{_dupkKeyId = a});++instance AWSRequest DeleteUsagePlanKey where+        type Rs DeleteUsagePlanKey =+             DeleteUsagePlanKeyResponse+        request = delete apiGateway+        response = receiveNull DeleteUsagePlanKeyResponse'++instance Hashable DeleteUsagePlanKey++instance NFData DeleteUsagePlanKey++instance ToHeaders DeleteUsagePlanKey where+        toHeaders+          = const+              (mconcat+                 ["Accept" =# ("application/json" :: ByteString)])++instance ToPath DeleteUsagePlanKey where+        toPath DeleteUsagePlanKey'{..}+          = mconcat+              ["/usageplans/", toBS _dupkUsagePlanId, "/keys/",+               toBS _dupkKeyId]++instance ToQuery DeleteUsagePlanKey where+        toQuery = const mempty++-- | /See:/ 'deleteUsagePlanKeyResponse' smart constructor.+data DeleteUsagePlanKeyResponse =+    DeleteUsagePlanKeyResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteUsagePlanKeyResponse' with the minimum fields required to make a request.+--+deleteUsagePlanKeyResponse+    :: DeleteUsagePlanKeyResponse+deleteUsagePlanKeyResponse = DeleteUsagePlanKeyResponse'++instance NFData DeleteUsagePlanKeyResponse

@@ -25,6 +25,7 @@       getAPIKey     , GetAPIKey     -- * Request Lenses+    , gakIncludeValue     , gakApiKey      -- * Destructuring the Response@@ -32,6 +33,7 @@     , APIKey     -- * Response Lenses     , akEnabled+    , akValue     , akCreatedDate     , akName     , akId@@ -50,23 +52,31 @@ -- | A request to get information about the current < ApiKey> resource. -- -- /See:/ 'getAPIKey' smart constructor.-newtype GetAPIKey = GetAPIKey'-    { _gakApiKey :: Text+data GetAPIKey = GetAPIKey'+    { _gakIncludeValue :: !(Maybe Bool)+    , _gakApiKey       :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetAPIKey' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'gakIncludeValue'+-- -- * 'gakApiKey' getAPIKey     :: Text -- ^ 'gakApiKey'     -> GetAPIKey getAPIKey pApiKey_ =     GetAPIKey'-    { _gakApiKey = pApiKey_+    { _gakIncludeValue = Nothing+    , _gakApiKey = pApiKey_     } +-- | A boolean flag to specify whether ('true') or not ('false') the result contains the key value.+gakIncludeValue :: Lens' GetAPIKey (Maybe Bool)+gakIncludeValue = lens _gakIncludeValue (\ s a -> s{_gakIncludeValue = a});+ -- | The identifier of the < ApiKey> resource. gakApiKey :: Lens' GetAPIKey Text gakApiKey = lens _gakApiKey (\ s a -> s{_gakApiKey = a});@@ -91,4 +101,5 @@           = mconcat ["/apikeys/", toBS _gakApiKey]  instance ToQuery GetAPIKey where-        toQuery = const mempty+        toQuery GetAPIKey'{..}+          = mconcat ["includeValue" =: _gakIncludeValue]

@@ -27,6 +27,8 @@       getAPIKeys     , GetAPIKeys     -- * Request Lenses+    , gakIncludeValues+    , gakNameQuery     , gakLimit     , gakPosition @@ -35,6 +37,7 @@     , GetAPIKeysResponse     -- * Response Lenses     , gakrsItems+    , gakrsWarnings     , gakrsPosition     , gakrsResponseStatus     ) where@@ -51,14 +54,20 @@ -- -- /See:/ 'getAPIKeys' smart constructor. data GetAPIKeys = GetAPIKeys'-    { _gakLimit    :: !(Maybe Int)-    , _gakPosition :: !(Maybe Text)+    { _gakIncludeValues :: !(Maybe Bool)+    , _gakNameQuery     :: !(Maybe Text)+    , _gakLimit         :: !(Maybe Int)+    , _gakPosition      :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetAPIKeys' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'gakIncludeValues'+--+-- * 'gakNameQuery'+-- -- * 'gakLimit' -- -- * 'gakPosition'@@ -66,10 +75,20 @@     :: GetAPIKeys getAPIKeys =     GetAPIKeys'-    { _gakLimit = Nothing+    { _gakIncludeValues = Nothing+    , _gakNameQuery = Nothing+    , _gakLimit = Nothing     , _gakPosition = Nothing     } +-- | A boolean flag to specify whether ('true') or not ('false') the result contains key values.+gakIncludeValues :: Lens' GetAPIKeys (Maybe Bool)+gakIncludeValues = lens _gakIncludeValues (\ s a -> s{_gakIncludeValues = a});++-- | The name of queried API keys.+gakNameQuery :: Lens' GetAPIKeys (Maybe Text)+gakNameQuery = lens _gakNameQuery (\ s a -> s{_gakNameQuery = a});+ -- | The maximum number of < ApiKeys> to get information about. gakLimit :: Lens' GetAPIKeys (Maybe Int) gakLimit = lens _gakLimit (\ s a -> s{_gakLimit = a});@@ -92,8 +111,10 @@           = receiveJSON               (\ s h x ->                  GetAPIKeysResponse' <$>-                   (x .?> "item" .!@ mempty) <*> (x .?> "position") <*>-                     (pure (fromEnum s)))+                   (x .?> "item" .!@ mempty) <*>+                     (x .?> "warnings" .!@ mempty)+                     <*> (x .?> "position")+                     <*> (pure (fromEnum s)))  instance Hashable GetAPIKeys @@ -111,13 +132,18 @@ instance ToQuery GetAPIKeys where         toQuery GetAPIKeys'{..}           = mconcat-              ["limit" =: _gakLimit, "position" =: _gakPosition]+              ["includeValues" =: _gakIncludeValues,+               "name" =: _gakNameQuery, "limit" =: _gakLimit,+               "position" =: _gakPosition] --- | Represents a collection of < ApiKey> resources.+-- | Represents a collection of API keys as represented by an < ApiKeys> resource. --+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/how-to-api-keys.html Use API Keys>+-- -- /See:/ 'getAPIKeysResponse' smart constructor. data GetAPIKeysResponse = GetAPIKeysResponse'     { _gakrsItems          :: !(Maybe [APIKey])+    , _gakrsWarnings       :: !(Maybe [Text])     , _gakrsPosition       :: !(Maybe Text)     , _gakrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -128,6 +154,8 @@ -- -- * 'gakrsItems' --+-- * 'gakrsWarnings'+-- -- * 'gakrsPosition' -- -- * 'gakrsResponseStatus'@@ -137,6 +165,7 @@ getAPIKeysResponse pResponseStatus_ =     GetAPIKeysResponse'     { _gakrsItems = Nothing+    , _gakrsWarnings = Nothing     , _gakrsPosition = Nothing     , _gakrsResponseStatus = pResponseStatus_     }@@ -144,6 +173,10 @@ -- | The current page of any < ApiKey> resources in the collection of < ApiKey> resources. gakrsItems :: Lens' GetAPIKeysResponse [APIKey] gakrsItems = lens _gakrsItems (\ s a -> s{_gakrsItems = a}) . _Default . _Coerce;++-- | A list of warning messages logged during the import of API keys when the 'failOnWarnings' option is set to true.+gakrsWarnings :: Lens' GetAPIKeysResponse [Text]+gakrsWarnings = lens _gakrsWarnings (\ s a -> s{_gakrsWarnings = a}) . _Default . _Coerce;  -- | Undocumented member. gakrsPosition :: Lens' GetAPIKeysResponse (Maybe Text)

@@ -29,7 +29,9 @@     , account     , Account     -- * Response Lenses+    , aApiKeyVersion     , aCloudwatchRoleARN+    , aFeatures     , aThrottleSettings     ) where 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Describe an existing < Authorizer> resource.+--+-- <http://docs.aws.amazon.com/cli/latest/reference/apigateway/get-authorizer.html AWS CLI> module Network.AWS.APIGateway.GetAuthorizer     (     -- * Creating a Request@@ -34,6 +36,7 @@     -- * Response Lenses     , aAuthorizerURI     , aIdentityValidationExpression+    , aProviderARNs     , aName     , aId     , aAuthorizerResultTtlInSeconds

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Describe an existing < Authorizers> resource.+--+-- <http://docs.aws.amazon.com/cli/latest/reference/apigateway/get-authorizers.html AWS CLI> module Network.AWS.APIGateway.GetAuthorizers     (     -- * Creating a Request@@ -77,7 +79,7 @@ gaLimit :: Lens' GetAuthorizers (Maybe Int) gaLimit = lens _gaLimit (\ s a -> s{_gaLimit = a}); --- | If not all < Authorizer> resources in the response were present, the position will specificy where to start the next page of results.+-- | If not all < Authorizer> resources in the response were present, the position will specify where to start the next page of results. gaPosition :: Lens' GetAuthorizers (Maybe Text) gaPosition = lens _gaPosition (\ s a -> s{_gaPosition = a}); @@ -116,6 +118,8 @@               ["limit" =: _gaLimit, "position" =: _gaPosition]  -- | Represents a collection of < Authorizer> resources.+--+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/use-custom-authorizer.html Enable custom authorization> -- -- /See:/ 'getAuthorizersResponse' smart constructor. data GetAuthorizersResponse = GetAuthorizersResponse'

@@ -129,6 +129,8 @@  -- | Represents a collection of < BasePathMapping> resources. --+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/how-to-custom-domains.html Use Custom Domain Names>+-- -- /See:/ 'getBasePathMappingsResponse' smart constructor. data GetBasePathMappingsResponse = GetBasePathMappingsResponse'     { _gbpmrsItems          :: !(Maybe [BasePathMapping])

@@ -116,6 +116,8 @@  -- | Represents a collection of < ClientCertificate> resources. --+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/getting-started-client-side-ssl-authentication.html Use Client-Side Certificate>+-- -- /See:/ 'getClientCertificatesResponse' smart constructor. data GetClientCertificatesResponse = GetClientCertificatesResponse'     { _gccrsItems          :: !(Maybe [ClientCertificate])

@@ -125,7 +125,11 @@           = mconcat               ["limit" =: _gdLimit, "position" =: _gdPosition] --- | Represents a collection resource that contains zero or more references to your existing deployments, and links that guide you on ways to interact with your collection. The collection offers a paginated view of the contained deployments.+-- | Represents a collection resource that contains zero or more references to your existing deployments, and links that guide you on how to interact with your collection. The collection offers a paginated view of the contained deployments.+--+-- To create a new deployment of a < RestApi>, make a 'POST' request against this resource. To view, update, or delete an existing deployment, make a 'GET', 'PATCH', or 'DELETE' request, respectively, on a specified < Deployment> resource.+--+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/how-to-deploy-api.html Deploying an API>, <http://docs.aws.amazon.com/cli/latest/reference/apigateway/get-deployment.html AWS CLI>, <https://aws.amazon.com/tools/ AWS SDKs> -- -- /See:/ 'getDeploymentsResponse' smart constructor. data GetDeploymentsResponse = GetDeploymentsResponse'

@@ -115,6 +115,8 @@  -- | Represents a collection of < DomainName> resources. --+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/how-to-custom-domains.html Use Client-Side Certificate>+-- -- /See:/ 'getDomainNamesResponse' smart constructor. data GetDomainNamesResponse = GetDomainNamesResponse'     { _gdnrsItems          :: !(Maybe [DomainName])

@@ -86,11 +86,11 @@     , _geExportType = pExportType_     } --- | A key-value map of query string parameters that specify properties of the export, depending on the requested exportType. For exportType \'swagger\', any combination of the following parameters are supported: \'integrations\' will export x-amazon-apigateway-integration extensions \'authorizers\' will export x-amazon-apigateway-authorizer extensions \'postman\' will export with Postman extensions, allowing for import to the Postman tool+-- | A key-value map of query string parameters that specify properties of the export, depending on the requested 'exportType'. For 'exportType' 'swagger', any combination of the following parameters are supported: 'integrations' will export the API with x-amazon-apigateway-integration extensions. 'authorizers' will export the API with x-amazon-apigateway-authorizer extensions. 'postman' will export the API with Postman extensions, allowing for import to the Postman tool geParameters :: Lens' GetExport (HashMap Text Text) geParameters = lens _geParameters (\ s a -> s{_geParameters = a}) . _Default . _Map; --- | The content-type of the export, for example \'application\/json\'. Currently \'application\/json\' and \'application\/yaml\' are supported for exportType \'swagger\'. Should be specifed in the \'Accept\' header for direct API requests.+-- | The content-type of the export, for example 'application\/json'. Currently 'application\/json' and 'application\/yaml' are supported for 'exportType' of 'swagger'. This should be specified in the 'Accept' header for direct API requests. geAccepts :: Lens' GetExport (Maybe Text) geAccepts = lens _geAccepts (\ s a -> s{_geAccepts = a}); @@ -176,7 +176,7 @@ gersBody :: Lens' GetExportResponse (Maybe (HashMap Text Value)) gersBody = lens _gersBody (\ s a -> s{_gersBody = a}); --- | The content-disposition header value in the HTTP reseponse.+-- | The content-disposition header value in the HTTP response. gersContentDisposition :: Lens' GetExportResponse (Maybe Text) gersContentDisposition = lens _gersContentDisposition (\ s a -> s{_gersContentDisposition = a}); 

@@ -37,6 +37,7 @@     , iRequestTemplates     , iCredentials     , iRequestParameters+    , iPassthroughBehavior     , iUri     , iIntegrationResponses     , iCacheNamespace

@@ -88,7 +88,7 @@ gmmResourceId :: Lens' GetMethod Text gmmResourceId = lens _gmmResourceId (\ s a -> s{_gmmResourceId = a}); --- | Specifies the put method request\'s HTTP method type.+-- | Specifies the method request\'s HTTP method type. gmmHttpMethod :: Lens' GetMethod Text gmmHttpMethod = lens _gmmHttpMethod (\ s a -> s{_gmmHttpMethod = a}); 

@@ -89,11 +89,11 @@ gmResourceId :: Lens' GetMethodResponse Text gmResourceId = lens _gmResourceId (\ s a -> s{_gmResourceId = a}); --- | The HTTP verb identifier for the parent < Method> resource.+-- | The HTTP verb of the < Method> resource. gmHttpMethod :: Lens' GetMethodResponse Text gmHttpMethod = lens _gmHttpMethod (\ s a -> s{_gmHttpMethod = a}); --- | The status code identifier for the < MethodResponse> resource.+-- | The status code for the < MethodResponse> resource. gmStatusCode :: Lens' GetMethodResponse Text gmStatusCode = lens _gmStatusCode (\ s a -> s{_gmStatusCode = a}); 

@@ -76,7 +76,7 @@     , _ggModelName = pModelName_     } --- | Resolves all external model references and returns a flattened model schema.+-- | A query parameter of a Boolean value to resolve ('true') all external model references and returns a flattened model schema or not ('false') The default is 'false'. ggFlatten :: Lens' GetModel (Maybe Bool) ggFlatten = lens _ggFlatten (\ s a -> s{_ggFlatten = a}); 

@@ -106,6 +106,8 @@  -- | Represents a mapping template used to transform a payload. --+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/models-mappings.html#models-mappings-mappings Mapping Templates>+-- -- /See:/ 'getModelTemplateResponse' smart constructor. data GetModelTemplateResponse = GetModelTemplateResponse'     { _gmtrsValue          :: !(Maybe Text)

@@ -127,6 +127,8 @@  -- | Represents a collection of < Model> resources. --+-- < Method>, < MethodResponse>, <http://docs.aws.amazon.com/apigateway/latest/developerguide/models-mappings.html Models and Mappings>+-- -- /See:/ 'getModelsResponse' smart constructor. data GetModelsResponse = GetModelsResponse'     { _gmrsItems          :: !(Maybe [Model])

@@ -127,6 +127,8 @@  -- | Represents a collection of < Resource> resources. --+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/how-to-create-api.html Create an API>+-- -- /See:/ 'getResourcesResponse' smart constructor. data GetResourcesResponse = GetResourcesResponse'     { _grrsItems          :: !(Maybe [Resource])

@@ -113,7 +113,9 @@           = mconcat               ["limit" =: _graLimit, "position" =: _graPosition] --- | Contains references to your APIs and links that guide you in ways to interact with your collection. A collection offers a paginated view of your APIs.+-- | Contains references to your APIs and links that guide you in how to interact with your collection. A collection offers a paginated view of your APIs.+--+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/how-to-create-api.html Create an API> -- -- /See:/ 'getRestAPIsResponse' smart constructor. data GetRestAPIsResponse = GetRestAPIsResponse'

@@ -81,7 +81,7 @@     , _gsdkSdkType = pSdkType_     } --- | A key-value map of query string parameters that specify properties of the SDK, depending on the requested sdkType. For sdkType \'objectivec\', a parameter named \"classPrefix\" is required. For sdkType \'android\', parameters named \"groupId\", \"artifactId\", \"artifactVersion\", and \"invokerPackage\" are required.+-- | A key-value map of query string parameters that specify properties of the SDK, depending on the requested 'sdkType'. For 'sdkType' of 'objectivec', a parameter named 'classPrefix' is required. For 'sdkType' of 'android', parameters named 'groupId', 'artifactId', 'artifactVersion', and 'invokerPackage' are required. gsdkParameters :: Lens' GetSDK (HashMap Text Text) gsdkParameters = lens _gsdkParameters (\ s a -> s{_gsdkParameters = a}) . _Default . _Map; @@ -93,7 +93,7 @@ gsdkStageName :: Lens' GetSDK Text gsdkStageName = lens _gsdkStageName (\ s a -> s{_gsdkStageName = a}); --- | The language for the generated SDK. Currently javascript, android, and objectivec (for iOS) are supported.+-- | The language for the generated SDK. Currently 'javascript', 'android', and 'objectivec' (for iOS) are supported. gsdkSdkType :: Lens' GetSDK Text gsdkSdkType = lens _gsdkSdkType (\ s a -> s{_gsdkSdkType = a}); @@ -168,7 +168,7 @@ gsdkrsBody :: Lens' GetSDKResponse (Maybe (HashMap Text Value)) gsdkrsBody = lens _gsdkrsBody (\ s a -> s{_gsdkrsBody = a}); --- | The content-disposition header value in the HTTP reseponse.+-- | The content-disposition header value in the HTTP response. gsdkrsContentDisposition :: Lens' GetSDKResponse (Maybe Text) gsdkrsContentDisposition = lens _gsdkrsContentDisposition (\ s a -> s{_gsdkrsContentDisposition = a}); 

@@ -103,7 +103,9 @@         toQuery GetStages'{..}           = mconcat ["deploymentId" =: _gsDeploymentId] --- | A list of < Stage> resource that are associated with the < ApiKey> resource.+-- | A list of < Stage> resources that are associated with the < ApiKey> resource.+--+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/stages.html Deploying API in Stages> -- -- /See:/ 'getStagesResponse' smart constructor. data GetStagesResponse = GetStagesResponse'

@@ -0,0 +1,144 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.APIGateway.GetUsage+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the usage data of a usage plan in a specified time interval.+module Network.AWS.APIGateway.GetUsage+    (+    -- * Creating a Request+      getUsage+    , GetUsage+    -- * Request Lenses+    , guKeyId+    , guLimit+    , guPosition+    , guUsagePlanId+    , guStartDate+    , guEndDate++    -- * Destructuring the Response+    , usage+    , Usage+    -- * Response Lenses+    , uUsagePlanId+    , uEndDate+    , uItems+    , uStartDate+    , uPosition+    ) where++import           Network.AWS.APIGateway.Types+import           Network.AWS.APIGateway.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The GET request to get the usage data of a usage plan in a specified time interval.+--+-- /See:/ 'getUsage' smart constructor.+data GetUsage = GetUsage'+    { _guKeyId       :: !(Maybe Text)+    , _guLimit       :: !(Maybe Int)+    , _guPosition    :: !(Maybe Text)+    , _guUsagePlanId :: !Text+    , _guStartDate   :: !Text+    , _guEndDate     :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetUsage' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'guKeyId'+--+-- * 'guLimit'+--+-- * 'guPosition'+--+-- * 'guUsagePlanId'+--+-- * 'guStartDate'+--+-- * 'guEndDate'+getUsage+    :: Text -- ^ 'guUsagePlanId'+    -> Text -- ^ 'guStartDate'+    -> Text -- ^ 'guEndDate'+    -> GetUsage+getUsage pUsagePlanId_ pStartDate_ pEndDate_ =+    GetUsage'+    { _guKeyId = Nothing+    , _guLimit = Nothing+    , _guPosition = Nothing+    , _guUsagePlanId = pUsagePlanId_+    , _guStartDate = pStartDate_+    , _guEndDate = pEndDate_+    }++-- | The Id of the API key associated with the resultant usage data.+guKeyId :: Lens' GetUsage (Maybe Text)+guKeyId = lens _guKeyId (\ s a -> s{_guKeyId = a});++-- | The maximum number of results to be returned.+guLimit :: Lens' GetUsage (Maybe Int)+guLimit = lens _guLimit (\ s a -> s{_guLimit = a});++-- | Position+guPosition :: Lens' GetUsage (Maybe Text)+guPosition = lens _guPosition (\ s a -> s{_guPosition = a});++-- | The Id of the usage plan associated with the usage data.+guUsagePlanId :: Lens' GetUsage Text+guUsagePlanId = lens _guUsagePlanId (\ s a -> s{_guUsagePlanId = a});++-- | The starting date (e.g., 2016-01-01) of the usage data.+guStartDate :: Lens' GetUsage Text+guStartDate = lens _guStartDate (\ s a -> s{_guStartDate = a});++-- | The ending date (e.g., 2016-12-31) of the usage data.+guEndDate :: Lens' GetUsage Text+guEndDate = lens _guEndDate (\ s a -> s{_guEndDate = a});++instance AWSRequest GetUsage where+        type Rs GetUsage = Usage+        request = get apiGateway+        response = receiveJSON (\ s h x -> eitherParseJSON x)++instance Hashable GetUsage++instance NFData GetUsage++instance ToHeaders GetUsage where+        toHeaders+          = const+              (mconcat+                 ["Accept" =# ("application/json" :: ByteString)])++instance ToPath GetUsage where+        toPath GetUsage'{..}+          = mconcat+              ["/usageplans/", toBS _guUsagePlanId, "/usage"]++instance ToQuery GetUsage where+        toQuery GetUsage'{..}+          = mconcat+              ["keyId" =: _guKeyId, "limit" =: _guLimit,+               "position" =: _guPosition,+               "startDate" =: _guStartDate, "endDate" =: _guEndDate]

@@ -0,0 +1,93 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.APIGateway.GetUsagePlan+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets a usage plan of a given plan identifier.+module Network.AWS.APIGateway.GetUsagePlan+    (+    -- * Creating a Request+      getUsagePlan+    , GetUsagePlan+    -- * Request Lenses+    , gupUsagePlanId++    -- * Destructuring the Response+    , usagePlan+    , UsagePlan+    -- * Response Lenses+    , upApiStages+    , upName+    , upId+    , upThrottle+    , upQuota+    , upDescription+    ) where++import           Network.AWS.APIGateway.Types+import           Network.AWS.APIGateway.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The GET request to get a usage plan of a given plan identifier.+--+-- /See:/ 'getUsagePlan' smart constructor.+newtype GetUsagePlan = GetUsagePlan'+    { _gupUsagePlanId :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetUsagePlan' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gupUsagePlanId'+getUsagePlan+    :: Text -- ^ 'gupUsagePlanId'+    -> GetUsagePlan+getUsagePlan pUsagePlanId_ =+    GetUsagePlan'+    { _gupUsagePlanId = pUsagePlanId_+    }++-- | The identifier of the < UsagePlan> resource to be retrieved.+gupUsagePlanId :: Lens' GetUsagePlan Text+gupUsagePlanId = lens _gupUsagePlanId (\ s a -> s{_gupUsagePlanId = a});++instance AWSRequest GetUsagePlan where+        type Rs GetUsagePlan = UsagePlan+        request = get apiGateway+        response = receiveJSON (\ s h x -> eitherParseJSON x)++instance Hashable GetUsagePlan++instance NFData GetUsagePlan++instance ToHeaders GetUsagePlan where+        toHeaders+          = const+              (mconcat+                 ["Accept" =# ("application/json" :: ByteString)])++instance ToPath GetUsagePlan where+        toPath GetUsagePlan'{..}+          = mconcat ["/usageplans/", toBS _gupUsagePlanId]++instance ToQuery GetUsagePlan where+        toQuery = const mempty

@@ -0,0 +1,103 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.APIGateway.GetUsagePlanKey+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets a usage plan key of a given key identifier.+module Network.AWS.APIGateway.GetUsagePlanKey+    (+    -- * Creating a Request+      getUsagePlanKey+    , GetUsagePlanKey+    -- * Request Lenses+    , gUsagePlanId+    , gKeyId++    -- * Destructuring the Response+    , usagePlanKey+    , UsagePlanKey+    -- * Response Lenses+    , upkValue+    , upkName+    , upkId+    , upkType+    ) where++import           Network.AWS.APIGateway.Types+import           Network.AWS.APIGateway.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The GET request to get a usage plan key of a given key identifier.+--+-- /See:/ 'getUsagePlanKey' smart constructor.+data GetUsagePlanKey = GetUsagePlanKey'+    { _gUsagePlanId :: !Text+    , _gKeyId       :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetUsagePlanKey' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gUsagePlanId'+--+-- * 'gKeyId'+getUsagePlanKey+    :: Text -- ^ 'gUsagePlanId'+    -> Text -- ^ 'gKeyId'+    -> GetUsagePlanKey+getUsagePlanKey pUsagePlanId_ pKeyId_ =+    GetUsagePlanKey'+    { _gUsagePlanId = pUsagePlanId_+    , _gKeyId = pKeyId_+    }++-- | The Id of the < UsagePlan> resource representing the usage plan containing the to-be-retrieved < UsagePlanKey> resource representing a plan customer.+gUsagePlanId :: Lens' GetUsagePlanKey Text+gUsagePlanId = lens _gUsagePlanId (\ s a -> s{_gUsagePlanId = a});++-- | The key Id of the to-be-retrieved < UsagePlanKey> resource representing a plan customer.+gKeyId :: Lens' GetUsagePlanKey Text+gKeyId = lens _gKeyId (\ s a -> s{_gKeyId = a});++instance AWSRequest GetUsagePlanKey where+        type Rs GetUsagePlanKey = UsagePlanKey+        request = get apiGateway+        response = receiveJSON (\ s h x -> eitherParseJSON x)++instance Hashable GetUsagePlanKey++instance NFData GetUsagePlanKey++instance ToHeaders GetUsagePlanKey where+        toHeaders+          = const+              (mconcat+                 ["Accept" =# ("application/json" :: ByteString)])++instance ToPath GetUsagePlanKey where+        toPath GetUsagePlanKey'{..}+          = mconcat+              ["/usageplans/", toBS _gUsagePlanId, "/keys/",+               toBS _gKeyId]++instance ToQuery GetUsagePlanKey where+        toQuery = const mempty

@@ -0,0 +1,170 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.APIGateway.GetUsagePlanKeys+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets all the usage plan keys representing the API keys added to a specified usage plan.+module Network.AWS.APIGateway.GetUsagePlanKeys+    (+    -- * Creating a Request+      getUsagePlanKeys+    , GetUsagePlanKeys+    -- * Request Lenses+    , gupkNameQuery+    , gupkLimit+    , gupkPosition+    , gupkUsagePlanId++    -- * Destructuring the Response+    , getUsagePlanKeysResponse+    , GetUsagePlanKeysResponse+    -- * Response Lenses+    , gupkrsItems+    , gupkrsPosition+    , gupkrsResponseStatus+    ) where++import           Network.AWS.APIGateway.Types+import           Network.AWS.APIGateway.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The GET request to get all the usage plan keys representing the API keys added to a specified usage plan.+--+-- /See:/ 'getUsagePlanKeys' smart constructor.+data GetUsagePlanKeys = GetUsagePlanKeys'+    { _gupkNameQuery   :: !(Maybe Text)+    , _gupkLimit       :: !(Maybe Int)+    , _gupkPosition    :: !(Maybe Text)+    , _gupkUsagePlanId :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetUsagePlanKeys' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gupkNameQuery'+--+-- * 'gupkLimit'+--+-- * 'gupkPosition'+--+-- * 'gupkUsagePlanId'+getUsagePlanKeys+    :: Text -- ^ 'gupkUsagePlanId'+    -> GetUsagePlanKeys+getUsagePlanKeys pUsagePlanId_ =+    GetUsagePlanKeys'+    { _gupkNameQuery = Nothing+    , _gupkLimit = Nothing+    , _gupkPosition = Nothing+    , _gupkUsagePlanId = pUsagePlanId_+    }++-- | A query parameter specifying the name of the to-be-returned usage plan keys.+gupkNameQuery :: Lens' GetUsagePlanKeys (Maybe Text)+gupkNameQuery = lens _gupkNameQuery (\ s a -> s{_gupkNameQuery = a});++-- | A query parameter specifying the maximum number usage plan keys returned by the GET request.+gupkLimit :: Lens' GetUsagePlanKeys (Maybe Int)+gupkLimit = lens _gupkLimit (\ s a -> s{_gupkLimit = a});++-- | A query parameter specifying the zero-based index specifying the position of a usage plan key.+gupkPosition :: Lens' GetUsagePlanKeys (Maybe Text)+gupkPosition = lens _gupkPosition (\ s a -> s{_gupkPosition = a});++-- | The Id of the < UsagePlan> resource representing the usage plan containing the to-be-retrieved < UsagePlanKey> resource representing a plan customer.+gupkUsagePlanId :: Lens' GetUsagePlanKeys Text+gupkUsagePlanId = lens _gupkUsagePlanId (\ s a -> s{_gupkUsagePlanId = a});++instance AWSRequest GetUsagePlanKeys where+        type Rs GetUsagePlanKeys = GetUsagePlanKeysResponse+        request = get apiGateway+        response+          = receiveJSON+              (\ s h x ->+                 GetUsagePlanKeysResponse' <$>+                   (x .?> "item" .!@ mempty) <*> (x .?> "position") <*>+                     (pure (fromEnum s)))++instance Hashable GetUsagePlanKeys++instance NFData GetUsagePlanKeys++instance ToHeaders GetUsagePlanKeys where+        toHeaders+          = const+              (mconcat+                 ["Accept" =# ("application/json" :: ByteString)])++instance ToPath GetUsagePlanKeys where+        toPath GetUsagePlanKeys'{..}+          = mconcat+              ["/usageplans/", toBS _gupkUsagePlanId, "/keys"]++instance ToQuery GetUsagePlanKeys where+        toQuery GetUsagePlanKeys'{..}+          = mconcat+              ["name" =: _gupkNameQuery, "limit" =: _gupkLimit,+               "position" =: _gupkPosition]++-- | Represents the collection of usage plan keys added to usage plans for the associated API keys and, possibly, other types of keys.+--+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/api-gateway-api-usage-plans.html Create and Use Usage Plans>+--+-- /See:/ 'getUsagePlanKeysResponse' smart constructor.+data GetUsagePlanKeysResponse = GetUsagePlanKeysResponse'+    { _gupkrsItems          :: !(Maybe [UsagePlanKey])+    , _gupkrsPosition       :: !(Maybe Text)+    , _gupkrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetUsagePlanKeysResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gupkrsItems'+--+-- * 'gupkrsPosition'+--+-- * 'gupkrsResponseStatus'+getUsagePlanKeysResponse+    :: Int -- ^ 'gupkrsResponseStatus'+    -> GetUsagePlanKeysResponse+getUsagePlanKeysResponse pResponseStatus_ =+    GetUsagePlanKeysResponse'+    { _gupkrsItems = Nothing+    , _gupkrsPosition = Nothing+    , _gupkrsResponseStatus = pResponseStatus_+    }++-- | Gets the current item of the usage plan keys collection.+gupkrsItems :: Lens' GetUsagePlanKeysResponse [UsagePlanKey]+gupkrsItems = lens _gupkrsItems (\ s a -> s{_gupkrsItems = a}) . _Default . _Coerce;++-- | Undocumented member.+gupkrsPosition :: Lens' GetUsagePlanKeysResponse (Maybe Text)+gupkrsPosition = lens _gupkrsPosition (\ s a -> s{_gupkrsPosition = a});++-- | The response status code.+gupkrsResponseStatus :: Lens' GetUsagePlanKeysResponse Int+gupkrsResponseStatus = lens _gupkrsResponseStatus (\ s a -> s{_gupkrsResponseStatus = a});++instance NFData GetUsagePlanKeysResponse

@@ -0,0 +1,158 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.APIGateway.GetUsagePlans+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets all the usage plans of the caller\'s account.+module Network.AWS.APIGateway.GetUsagePlans+    (+    -- * Creating a Request+      getUsagePlans+    , GetUsagePlans+    -- * Request Lenses+    , gupKeyId+    , gupLimit+    , gupPosition++    -- * Destructuring the Response+    , getUsagePlansResponse+    , GetUsagePlansResponse+    -- * Response Lenses+    , guprsItems+    , guprsPosition+    , guprsResponseStatus+    ) where++import           Network.AWS.APIGateway.Types+import           Network.AWS.APIGateway.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The GET request to get all the usage plans of the caller\'s account.+--+-- /See:/ 'getUsagePlans' smart constructor.+data GetUsagePlans = GetUsagePlans'+    { _gupKeyId    :: !(Maybe Text)+    , _gupLimit    :: !(Maybe Int)+    , _gupPosition :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetUsagePlans' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gupKeyId'+--+-- * 'gupLimit'+--+-- * 'gupPosition'+getUsagePlans+    :: GetUsagePlans+getUsagePlans =+    GetUsagePlans'+    { _gupKeyId = Nothing+    , _gupLimit = Nothing+    , _gupPosition = Nothing+    }++-- | The identifier of the API key associated with the usage plans.+gupKeyId :: Lens' GetUsagePlans (Maybe Text)+gupKeyId = lens _gupKeyId (\ s a -> s{_gupKeyId = a});++-- | The number of < UsagePlan> resources to be returned as the result.+gupLimit :: Lens' GetUsagePlans (Maybe Int)+gupLimit = lens _gupLimit (\ s a -> s{_gupLimit = a});++-- | The zero-based array index specifying the position of the to-be-retrieved < UsagePlan> resource.+gupPosition :: Lens' GetUsagePlans (Maybe Text)+gupPosition = lens _gupPosition (\ s a -> s{_gupPosition = a});++instance AWSRequest GetUsagePlans where+        type Rs GetUsagePlans = GetUsagePlansResponse+        request = get apiGateway+        response+          = receiveJSON+              (\ s h x ->+                 GetUsagePlansResponse' <$>+                   (x .?> "item" .!@ mempty) <*> (x .?> "position") <*>+                     (pure (fromEnum s)))++instance Hashable GetUsagePlans++instance NFData GetUsagePlans++instance ToHeaders GetUsagePlans where+        toHeaders+          = const+              (mconcat+                 ["Accept" =# ("application/json" :: ByteString)])++instance ToPath GetUsagePlans where+        toPath = const "/usageplans"++instance ToQuery GetUsagePlans where+        toQuery GetUsagePlans'{..}+          = mconcat+              ["keyId" =: _gupKeyId, "limit" =: _gupLimit,+               "position" =: _gupPosition]++-- | Represents a collection of usage plans for an AWS account.+--+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/api-gateway-api-usage-plans.html Create and Use Usage Plans>+--+-- /See:/ 'getUsagePlansResponse' smart constructor.+data GetUsagePlansResponse = GetUsagePlansResponse'+    { _guprsItems          :: !(Maybe [UsagePlan])+    , _guprsPosition       :: !(Maybe Text)+    , _guprsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetUsagePlansResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'guprsItems'+--+-- * 'guprsPosition'+--+-- * 'guprsResponseStatus'+getUsagePlansResponse+    :: Int -- ^ 'guprsResponseStatus'+    -> GetUsagePlansResponse+getUsagePlansResponse pResponseStatus_ =+    GetUsagePlansResponse'+    { _guprsItems = Nothing+    , _guprsPosition = Nothing+    , _guprsResponseStatus = pResponseStatus_+    }++-- | Gets the current item when enumerating the collection of < UsagePlan>.+guprsItems :: Lens' GetUsagePlansResponse [UsagePlan]+guprsItems = lens _guprsItems (\ s a -> s{_guprsItems = a}) . _Default . _Coerce;++-- | Undocumented member.+guprsPosition :: Lens' GetUsagePlansResponse (Maybe Text)+guprsPosition = lens _guprsPosition (\ s a -> s{_guprsPosition = a});++-- | The response status code.+guprsResponseStatus :: Lens' GetUsagePlansResponse Int+guprsResponseStatus = lens _guprsResponseStatus (\ s a -> s{_guprsResponseStatus = a});++instance NFData GetUsagePlansResponse

@@ -0,0 +1,162 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.APIGateway.ImportAPIKeys+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Import API keys from an external source, such as a CSV-formatted file.+module Network.AWS.APIGateway.ImportAPIKeys+    (+    -- * Creating a Request+      importAPIKeys+    , ImportAPIKeys+    -- * Request Lenses+    , iakFailOnWarnings+    , iakBody+    , iakFormat++    -- * Destructuring the Response+    , importAPIKeysResponse+    , ImportAPIKeysResponse+    -- * Response Lenses+    , iakrsIds+    , iakrsWarnings+    , iakrsResponseStatus+    ) where++import           Network.AWS.APIGateway.Types+import           Network.AWS.APIGateway.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The POST request to import API keys from an external source, such as a CSV-formatted file.+--+-- /See:/ 'importAPIKeys' smart constructor.+data ImportAPIKeys = ImportAPIKeys'+    { _iakFailOnWarnings :: !(Maybe Bool)+    , _iakBody           :: !(HashMap Text Value)+    , _iakFormat         :: !APIKeysFormat+    } deriving (Eq,Show,Data,Typeable,Generic)++-- | Creates a value of 'ImportAPIKeys' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'iakFailOnWarnings'+--+-- * 'iakBody'+--+-- * 'iakFormat'+importAPIKeys+    :: HashMap Text Value -- ^ 'iakBody'+    -> APIKeysFormat -- ^ 'iakFormat'+    -> ImportAPIKeys+importAPIKeys pBody_ pFormat_ =+    ImportAPIKeys'+    { _iakFailOnWarnings = Nothing+    , _iakBody = pBody_+    , _iakFormat = pFormat_+    }++-- | A query parameter to indicate whether to rollback < ApiKey> importation ('true') or not ('false') when error is encountered.+iakFailOnWarnings :: Lens' ImportAPIKeys (Maybe Bool)+iakFailOnWarnings = lens _iakFailOnWarnings (\ s a -> s{_iakFailOnWarnings = a});++-- | The payload of the POST request to import API keys. For the payload format, see <http://docs.aws.amazon.com/apigateway/latest/developerguide/api-key-file-format.html API Key File Format>.+iakBody :: Lens' ImportAPIKeys (HashMap Text Value)+iakBody = lens _iakBody (\ s a -> s{_iakBody = a});++-- | A query parameter to specify the input format to imported API keys. Currently, only the 'csv' format is supported.+iakFormat :: Lens' ImportAPIKeys APIKeysFormat+iakFormat = lens _iakFormat (\ s a -> s{_iakFormat = a});++instance AWSRequest ImportAPIKeys where+        type Rs ImportAPIKeys = ImportAPIKeysResponse+        request = postBody apiGateway+        response+          = receiveJSON+              (\ s h x ->+                 ImportAPIKeysResponse' <$>+                   (x .?> "ids" .!@ mempty) <*>+                     (x .?> "warnings" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable ImportAPIKeys++instance NFData ImportAPIKeys++instance ToBody ImportAPIKeys where+        toBody = toBody . _iakBody++instance ToHeaders ImportAPIKeys where+        toHeaders+          = const+              (mconcat+                 ["Accept" =# ("application/json" :: ByteString)])++instance ToPath ImportAPIKeys where+        toPath = const "/apikeys"++instance ToQuery ImportAPIKeys where+        toQuery ImportAPIKeys'{..}+          = mconcat+              ["failonwarnings" =: _iakFailOnWarnings,+               "format" =: _iakFormat, "mode=import"]++-- | The identifier of an API key used to reference an API key in a usage plan.+--+-- /See:/ 'importAPIKeysResponse' smart constructor.+data ImportAPIKeysResponse = ImportAPIKeysResponse'+    { _iakrsIds            :: !(Maybe [Text])+    , _iakrsWarnings       :: !(Maybe [Text])+    , _iakrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ImportAPIKeysResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'iakrsIds'+--+-- * 'iakrsWarnings'+--+-- * 'iakrsResponseStatus'+importAPIKeysResponse+    :: Int -- ^ 'iakrsResponseStatus'+    -> ImportAPIKeysResponse+importAPIKeysResponse pResponseStatus_ =+    ImportAPIKeysResponse'+    { _iakrsIds = Nothing+    , _iakrsWarnings = Nothing+    , _iakrsResponseStatus = pResponseStatus_+    }++-- | A list of all the < ApiKey> identifiers.+iakrsIds :: Lens' ImportAPIKeysResponse [Text]+iakrsIds = lens _iakrsIds (\ s a -> s{_iakrsIds = a}) . _Default . _Coerce;++-- | A list of warning messages.+iakrsWarnings :: Lens' ImportAPIKeysResponse [Text]+iakrsWarnings = lens _iakrsWarnings (\ s a -> s{_iakrsWarnings = a}) . _Default . _Coerce;++-- | The response status code.+iakrsResponseStatus :: Lens' ImportAPIKeysResponse Int+iakrsResponseStatus = lens _iakrsResponseStatus (\ s a -> s{_iakrsResponseStatus = a});++instance NFData ImportAPIKeysResponse

@@ -28,6 +28,7 @@     , pRequestTemplates     , pCredentials     , pRequestParameters+    , pPassthroughBehavior     , pUri     , pCacheNamespace     , pIntegrationHTTPMethod@@ -45,6 +46,7 @@     , iRequestTemplates     , iCredentials     , iRequestParameters+    , iPassthroughBehavior     , iUri     , iIntegrationResponses     , iCacheNamespace@@ -66,6 +68,7 @@     { _pRequestTemplates      :: !(Maybe (Map Text Text))     , _pCredentials           :: !(Maybe Text)     , _pRequestParameters     :: !(Maybe (Map Text Text))+    , _pPassthroughBehavior   :: !(Maybe Text)     , _pUri                   :: !(Maybe Text)     , _pCacheNamespace        :: !(Maybe Text)     , _pIntegrationHTTPMethod :: !(Maybe Text)@@ -86,6 +89,8 @@ -- -- * 'pRequestParameters' --+-- * 'pPassthroughBehavior'+-- -- * 'pUri' -- -- * 'pCacheNamespace'@@ -112,6 +117,7 @@     { _pRequestTemplates = Nothing     , _pCredentials = Nothing     , _pRequestParameters = Nothing+    , _pPassthroughBehavior = Nothing     , _pUri = Nothing     , _pCacheNamespace = Nothing     , _pIntegrationHTTPMethod = Nothing@@ -122,7 +128,7 @@     , _pType = pType_     } --- | Specifies the templates used to transform the method request body. Request templates are represented as a key\/value map, with a content-type as the key and a template as the value.+-- | Represents a map of Velocity templates that are applied on the request payload based on the value of the Content-Type header sent by the client. The content type value is the key in this map, and the template (as a String) is the value. pRequestTemplates :: Lens' PutIntegration (HashMap Text Text) pRequestTemplates = lens _pRequestTemplates (\ s a -> s{_pRequestTemplates = a}) . _Default . _Map; @@ -130,10 +136,21 @@ pCredentials :: Lens' PutIntegration (Maybe Text) pCredentials = lens _pCredentials (\ s a -> s{_pCredentials = a}); --- | Represents request parameters that are sent with the backend request. Request parameters are represented as a key\/value map, with a destination as the key and a source as the value. A source must match an existing method request parameter, or a static value. Static values must be enclosed with single quotes, and be pre-encoded based on their destination in the request. The destination must match the pattern 'integration.request.{location}.{name}', where 'location' is either querystring, path, or header. 'name' must be a valid, unique parameter name.+-- | A key-value map specifying request parameters that are passed from the method request to the back end. The key is an integration request parameter name and the associated value is a method request parameter value or static value that must be enclosed within single quotes and pre-encoded as required by the back end. The method request parameter value must match the pattern of 'method.request.{location}.{name}', where 'location' is 'querystring', 'path', or 'header' and 'name' must be a valid and unique method request parameter name. pRequestParameters :: Lens' PutIntegration (HashMap Text Text) pRequestParameters = lens _pRequestParameters (\ s a -> s{_pRequestParameters = a}) . _Default . _Map; +-- | Specifies the pass-through behavior for incoming requests based on the Content-Type header in the request, and the available mapping templates specified as the 'requestTemplates' property on the Integration resource. There are three valid values: 'WHEN_NO_MATCH', 'WHEN_NO_TEMPLATES', and 'NEVER'.+--+-- -   'WHEN_NO_MATCH' passes the request body for unmapped content types through to the integration back end without transformation.+--+-- -   'NEVER' rejects unmapped content types with an HTTP 415 \'Unsupported Media Type\' response.+--+-- -   'WHEN_NO_TEMPLATES' allows pass-through when the integration has NO content types mapped to templates. However if there is at least one content type defined, unmapped content types will be rejected with the same 415 response.+--+pPassthroughBehavior :: Lens' PutIntegration (Maybe Text)+pPassthroughBehavior = lens _pPassthroughBehavior (\ s a -> s{_pPassthroughBehavior = a});+ -- | Specifies a put integration input\'s Uniform Resource Identifier (URI). When the integration type is HTTP or AWS, this field is required. For integration with Lambda as an AWS service proxy, this value is of the \'arn:aws:apigateway:\<region>:lambda:path\/2015-03-31\/functions\/\<functionArn>\/invocations\' format. pUri :: Lens' PutIntegration (Maybe Text) pUri = lens _pUri (\ s a -> s{_pUri = a});@@ -188,6 +205,7 @@                  [("requestTemplates" .=) <$> _pRequestTemplates,                   ("credentials" .=) <$> _pCredentials,                   ("requestParameters" .=) <$> _pRequestParameters,+                  ("passthroughBehavior" .=) <$> _pPassthroughBehavior,                   ("uri" .=) <$> _pUri,                   ("cacheNamespace" .=) <$> _pCacheNamespace,                   ("httpMethod" .=) <$> _pIntegrationHTTPMethod,

@@ -105,7 +105,7 @@ piSelectionPattern :: Lens' PutIntegrationResponse (Maybe Text) piSelectionPattern = lens _piSelectionPattern (\ s a -> s{_piSelectionPattern = a}); --- | Represents response parameters that can be read from the backend response. Response parameters are represented as a key\/value map, with a destination as the key and a source as the value. A destination must match an existing response parameter in the < Method>. The source can be a header from the backend response, or a static value. Static values are specified using enclosing single quotes, and backend response headers can be read using the pattern 'integration.response.header.{name}'.+-- | A key-value map specifying response parameters that are passed to the method response from the back end. The key is a method response header parameter name and the mapped value is an integration response header value, a static value enclosed within a pair of single quotes, or a JSON expression from the integration response body. The mapping key must match the pattern of 'method.response.header.{name}', where 'name' is a valid and unique header name. The mapped non-static value must match the pattern of 'integration.response.header.{name}' or 'integration.response.body.{JSON-expression}', where 'name' must be a valid and unique response header name and 'JSON-expression' a valid JSON expression without the '>' prefix. piResponseParameters :: Lens' PutIntegrationResponse (HashMap Text Text) piResponseParameters = lens _piResponseParameters (\ s a -> s{_piResponseParameters = a}) . _Default . _Map; 

@@ -110,7 +110,7 @@ putRequestModels :: Lens' PutMethod (HashMap Text Text) putRequestModels = lens _putRequestModels (\ s a -> s{_putRequestModels = a}) . _Default . _Map; --- | Represents requests parameters that are sent with the backend request. Request parameters are represented as a key\/value map, with a destination as the key and a source as the value. A source must match an existing method request parameter, or a static value. Static values must be enclosed with single quotes, and be pre-encoded based on their destination in the request. The destination must match the pattern 'integration.request.{location}.{name}', where 'location' is either querystring, path, or header. 'name' must be a valid, unique parameter name.+-- | A key-value map defining required or optional method request parameters that can be accepted by Amazon API Gateway. A key defines a method request parameter name matching the pattern of 'method.request.{location}.{name}', where 'location' is 'querystring', 'path', or 'header' and 'name' is a valid and unique parameter name. The value associated with the key is a Boolean flag indicating whether the parameter is required ('true') or optional ('false'). The method request parameter names defined here are available in < Integration> to be mapped to integration request parameters or body-mapping templates. putRequestParameters :: Lens' PutMethod (HashMap Text Bool) putRequestParameters = lens _putRequestParameters (\ s a -> s{_putRequestParameters = a}) . _Default . _Map; @@ -130,7 +130,7 @@ putResourceId :: Lens' PutMethod Text putResourceId = lens _putResourceId (\ s a -> s{_putResourceId = a}); --- | Specifies the put method request\'s HTTP method type.+-- | Specifies the method request\'s HTTP method type. putHttpMethod :: Lens' PutMethod Text putHttpMethod = lens _putHttpMethod (\ s a -> s{_putHttpMethod = a}); 

@@ -95,7 +95,7 @@ pmResponseModels :: Lens' PutMethodResponse (HashMap Text Text) pmResponseModels = lens _pmResponseModels (\ s a -> s{_pmResponseModels = a}) . _Default . _Map; --- | Represents response parameters that can be sent back to the caller by Amazon API Gateway. Response parameters are represented as a key\/value map, with a destination as the key and a Boolean flag as the value. The Boolean flag is used to specify whether the parameter is required. A destination must match the pattern 'method.response.header.{name}', where 'name' is a valid, unique header name. Destinations specified here are available to the integration for mapping from integration response parameters.+-- | A key-value map specifying required or optional response parameters that Amazon API Gateway can send back to the caller. A key defines a method response header name and the associated value is a Boolean flag indicating whether the method response parameter is required or not. The method response header names must match the pattern of 'method.response.header.{name}', where 'name' is a valid and unique header name. The response parameter names defined here are available in the integration response to be mapped from an integration response header expressed in 'integration.response.header.{name}', a static value enclosed within a pair of single quotes (e.g., '\'application\/json\''), or a JSON expression from the back-end response payload in the form of 'integration.response.body.{JSON-expression}', where 'JSON-expression' is a valid JSON expression without the '>' prefix.) pmResponseParameters :: Lens' PutMethodResponse (HashMap Text Bool) pmResponseParameters = lens _pmResponseParameters (\ s a -> s{_pmResponseParameters = a}) . _Default . _Map; @@ -107,7 +107,7 @@ pmResourceId :: Lens' PutMethodResponse Text pmResourceId = lens _pmResourceId (\ s a -> s{_pmResourceId = a}); --- | The HTTP verb that identifies the < Method> resource.+-- | The HTTP verb of the < Method> resource. pmHttpMethod :: Lens' PutMethodResponse Text pmHttpMethod = lens _pmHttpMethod (\ s a -> s{_pmHttpMethod = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Simulate the execution of an < Authorizer> in your < RestApi> with headers, parameters, and an incoming request body.+--+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/use-custom-authorizer.html Enable custom authorizers> module Network.AWS.APIGateway.TestInvokeAuthorizer     (     -- * Creating a Request@@ -41,6 +43,7 @@     , tiarsPrincipalId     , tiarsLatency     , tiarsAuthorization+    , tiarsClaims     , tiarsClientStatus     , tiarsPolicy     , tiarsResponseStatus@@ -137,6 +140,7 @@                    (x .?> "log") <*> (x .?> "principalId") <*>                      (x .?> "latency")                      <*> (x .?> "authorization" .!@ mempty)+                     <*> (x .?> "claims" .!@ mempty)                      <*> (x .?> "clientStatus")                      <*> (x .?> "policy")                      <*> (pure (fromEnum s)))@@ -171,7 +175,7 @@ instance ToQuery TestInvokeAuthorizer where         toQuery = const mempty --- | Represents the response of the test invoke request in for a custom < Authorizer>+-- | Represents the response of the test invoke request for a custom < Authorizer> -- -- /See:/ 'testInvokeAuthorizerResponse' smart constructor. data TestInvokeAuthorizerResponse = TestInvokeAuthorizerResponse'@@ -179,6 +183,7 @@     , _tiarsPrincipalId    :: !(Maybe Text)     , _tiarsLatency        :: !(Maybe Integer)     , _tiarsAuthorization  :: !(Maybe (Map Text [Text]))+    , _tiarsClaims         :: !(Maybe (Map Text Text))     , _tiarsClientStatus   :: !(Maybe Int)     , _tiarsPolicy         :: !(Maybe Text)     , _tiarsResponseStatus :: !Int@@ -196,6 +201,8 @@ -- -- * 'tiarsAuthorization' --+-- * 'tiarsClaims'+-- -- * 'tiarsClientStatus' -- -- * 'tiarsPolicy'@@ -210,6 +217,7 @@     , _tiarsPrincipalId = Nothing     , _tiarsLatency = Nothing     , _tiarsAuthorization = Nothing+    , _tiarsClaims = Nothing     , _tiarsClientStatus = Nothing     , _tiarsPolicy = Nothing     , _tiarsResponseStatus = pResponseStatus_@@ -223,7 +231,7 @@ tiarsPrincipalId :: Lens' TestInvokeAuthorizerResponse (Maybe Text) tiarsPrincipalId = lens _tiarsPrincipalId (\ s a -> s{_tiarsPrincipalId = a}); --- | The execution latency of the test authorizer request+-- | The execution latency of the test authorizer request. tiarsLatency :: Lens' TestInvokeAuthorizerResponse (Maybe Integer) tiarsLatency = lens _tiarsLatency (\ s a -> s{_tiarsLatency = a}); @@ -231,11 +239,15 @@ tiarsAuthorization :: Lens' TestInvokeAuthorizerResponse (HashMap Text [Text]) tiarsAuthorization = lens _tiarsAuthorization (\ s a -> s{_tiarsAuthorization = a}) . _Default . _Map; +-- | The <http://openid.net/specs/openid-connect-core-1_0.html#StandardClaims open identity claims>, with any supported custom attributes, returned from the Cognito Your User Pool configured for the API.+tiarsClaims :: Lens' TestInvokeAuthorizerResponse (HashMap Text Text)+tiarsClaims = lens _tiarsClaims (\ s a -> s{_tiarsClaims = a}) . _Default . _Map;+ -- | The HTTP status code that the client would have received. Value is 0 if the authorizer succeeded. tiarsClientStatus :: Lens' TestInvokeAuthorizerResponse (Maybe Int) tiarsClientStatus = lens _tiarsClientStatus (\ s a -> s{_tiarsClientStatus = a}); --- | The policy JSON document returned by the < Authorizer>+-- | The JSON policy document returned by the < Authorizer> tiarsPolicy :: Lens' TestInvokeAuthorizerResponse (Maybe Text) tiarsPolicy = lens _tiarsPolicy (\ s a -> s{_tiarsPolicy = a}); 

@@ -111,7 +111,7 @@ timBody :: Lens' TestInvokeMethod (Maybe Text) timBody = lens _timBody (\ s a -> s{_timBody = a}); --- | A < ClientCertificate> identifier to use in the test invocation. API Gateway will use use the certificate when making the HTTPS request to the defined backend endpoint.+-- | A < ClientCertificate> identifier to use in the test invocation. API Gateway will use the certificate when making the HTTPS request to the defined back-end endpoint. timClientCertificateId :: Lens' TestInvokeMethod (Maybe Text) timClientCertificateId = lens _timClientCertificateId (\ s a -> s{_timClientCertificateId = a}); @@ -179,8 +179,10 @@ instance ToQuery TestInvokeMethod where         toQuery = const mempty --- | Represents the response of the test invoke request in HTTP method.+-- | Represents the response of the test invoke request in the HTTP method. --+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/how-to-test-method.html#how-to-test-method-console Test API using the API Gateway console>+-- -- /See:/ 'testInvokeMethodResponse' smart constructor. data TestInvokeMethodResponse = TestInvokeMethodResponse'     { _timrsLog            :: !(Maybe Text)@@ -227,7 +229,7 @@ timrsStatus :: Lens' TestInvokeMethodResponse (Maybe Int) timrsStatus = lens _timrsStatus (\ s a -> s{_timrsStatus = a}); --- | The body of HTTP response.+-- | The body of the HTTP response. timrsBody :: Lens' TestInvokeMethodResponse (Maybe Text) timrsBody = lens _timrsBody (\ s a -> s{_timrsBody = a}); @@ -235,7 +237,7 @@ timrsLatency :: Lens' TestInvokeMethodResponse (Maybe Integer) timrsLatency = lens _timrsLatency (\ s a -> s{_timrsLatency = a}); --- | The headers of HTTP response.+-- | The headers of the HTTP response. timrsHeaders :: Lens' TestInvokeMethodResponse (HashMap Text Text) timrsHeaders = lens _timrsHeaders (\ s a -> s{_timrsHeaders = a}) . _Default . _Map; 

@@ -24,6 +24,9 @@     , _BadRequestException     , _LimitExceededException +    -- * APIKeysFormat+    , APIKeysFormat (..)+     -- * AuthorizerType     , AuthorizerType (..) @@ -42,6 +45,9 @@     -- * PutMode     , PutMode (..) +    -- * QuotaPeriodType+    , QuotaPeriodType (..)+     -- * UnauthorizedCacheControlHeaderStrategy     , UnauthorizedCacheControlHeaderStrategy (..) @@ -49,6 +55,7 @@     , APIKey     , apiKey     , akEnabled+    , akValue     , akCreatedDate     , akName     , akId@@ -56,10 +63,18 @@     , akLastUpdatedDate     , akDescription +    -- * APIStage+    , APIStage+    , apiStage+    , asStage+    , asApiId+     -- * Account     , Account     , account+    , aApiKeyVersion     , aCloudwatchRoleARN+    , aFeatures     , aThrottleSettings      -- * Authorizer@@ -67,6 +82,7 @@     , authorizer     , aAuthorizerURI     , aIdentityValidationExpression+    , aProviderARNs     , aName     , aId     , aAuthorizerResultTtlInSeconds@@ -114,6 +130,7 @@     , iRequestTemplates     , iCredentials     , iRequestParameters+    , iPassthroughBehavior     , iUri     , iIntegrationResponses     , iCacheNamespace@@ -184,6 +201,13 @@     , poValue     , poFrom +    -- * QuotaSettings+    , QuotaSettings+    , quotaSettings+    , qsOffset+    , qsPeriod+    , qsLimit+     -- * Resource     , Resource     , resource@@ -228,6 +252,33 @@     , throttleSettings     , tsBurstLimit     , tsRateLimit++    -- * Usage+    , Usage+    , usage+    , uUsagePlanId+    , uEndDate+    , uItems+    , uStartDate+    , uPosition++    -- * UsagePlan+    , UsagePlan+    , usagePlan+    , upApiStages+    , upName+    , upId+    , upThrottle+    , upQuota+    , upDescription++    -- * UsagePlanKey+    , UsagePlanKey+    , usagePlanKey+    , upkValue+    , upkName+    , upkId+    , upkType     ) where  import           Network.AWS.APIGateway.Types.Product

@@ -23,9 +23,12 @@  -- | A resource that can be distributed to callers for executing < Method> resources that require an API key. API keys can be mapped to any < Stage> on any < RestApi>, which indicates that the callers with the API key can make requests to that stage. --+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/how-to-api-keys.html Use API Keys>+-- -- /See:/ 'apiKey' smart constructor. data APIKey = APIKey'     { _akEnabled         :: !(Maybe Bool)+    , _akValue           :: !(Maybe Text)     , _akCreatedDate     :: !(Maybe POSIX)     , _akName            :: !(Maybe Text)     , _akId              :: !(Maybe Text)@@ -40,6 +43,8 @@ -- -- * 'akEnabled' --+-- * 'akValue'+-- -- * 'akCreatedDate' -- -- * 'akName'@@ -56,6 +61,7 @@ apiKey =     APIKey'     { _akEnabled = Nothing+    , _akValue = Nothing     , _akCreatedDate = Nothing     , _akName = Nothing     , _akId = Nothing@@ -68,6 +74,10 @@ akEnabled :: Lens' APIKey (Maybe Bool) akEnabled = lens _akEnabled (\ s a -> s{_akEnabled = a}); +-- | The value of the API Key.+akValue :: Lens' APIKey (Maybe Text)+akValue = lens _akValue (\ s a -> s{_akValue = a});+ -- | The date when the API Key was created, in <http://www.iso.org/iso/home/standards/iso8601.htm ISO 8601 format>. akCreatedDate :: Lens' APIKey (Maybe UTCTime) akCreatedDate = lens _akCreatedDate (\ s a -> s{_akCreatedDate = a}) . mapping _Time;@@ -97,8 +107,9 @@           = withObject "APIKey"               (\ x ->                  APIKey' <$>-                   (x .:? "enabled") <*> (x .:? "createdDate") <*>-                     (x .:? "name")+                   (x .:? "enabled") <*> (x .:? "value") <*>+                     (x .:? "createdDate")+                     <*> (x .:? "name")                      <*> (x .:? "id")                      <*> (x .:? "stageKeys" .!= mempty)                      <*> (x .:? "lastUpdatedDate")@@ -108,11 +119,93 @@  instance NFData APIKey +-- | API stage name of the associated API stage in a usage plan.+--+-- /See:/ 'apiStage' smart constructor.+data APIStage = APIStage'+    { _asStage :: !(Maybe Text)+    , _asApiId :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'APIStage' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'asStage'+--+-- * 'asApiId'+apiStage+    :: APIStage+apiStage =+    APIStage'+    { _asStage = Nothing+    , _asApiId = Nothing+    }++-- | API stage name of the associated API stage in a usage plan.+asStage :: Lens' APIStage (Maybe Text)+asStage = lens _asStage (\ s a -> s{_asStage = a});++-- | API Id of the associated API stage in a usage plan.+asApiId :: Lens' APIStage (Maybe Text)+asApiId = lens _asApiId (\ s a -> s{_asApiId = a});++instance FromJSON APIStage where+        parseJSON+          = withObject "APIStage"+              (\ x ->+                 APIStage' <$> (x .:? "stage") <*> (x .:? "apiId"))++instance Hashable APIStage++instance NFData APIStage++instance ToJSON APIStage where+        toJSON APIStage'{..}+          = object+              (catMaybes+                 [("stage" .=) <$> _asStage,+                  ("apiId" .=) <$> _asApiId])+ -- | Represents an AWS account that is associated with Amazon API Gateway. --+-- To view the account info, call 'GET' on this resource.+--+-- ==== Error Codes+-- #error-codes#+--+-- The following exception may be thrown when the request fails.+--+-- -   UnauthorizedException+-- -   NotFoundException+-- -   TooManyRequestsException+--+-- For detailed error code information, including the corresponding HTTP Status Codes, see <http://docs.aws.amazon.com/apigateway/api-reference/handling-errors/#api-error-codes API Gateway Error Codes>+--+-- ==== Example: Get the information about an account.+-- #example-get-the-information-about-an-account.#+--+-- ===== Request+-- #request#+--+-- > GET /account HTTP/1.1 Content-Type: application/json Host: apigateway.us-east-1.amazonaws.com X-Amz-Date: 20160531T184618Z Authorization: AWS4-HMAC-SHA256 Credential={access_key_ID}/us-east-1/apigateway/aws4_request, SignedHeaders=content-type;host;x-amz-date, Signature={sig4_hash}+--+-- ===== Response+-- #response#+--+-- The successful response returns a '200 OK' status code and a payload similar to the following:+--+-- > { "_links": { "curies": { "href": "http://docs.aws.amazon.com/apigateway/latest/developerguide/account-apigateway-{rel}.html", "name": "account", "templated": true }, "self": { "href": "/account" }, "account:update": { "href": "/account" } }, "cloudwatchRoleArn": "arn:aws:iam::123456789012:role/apigAwsProxyRole", "throttleSettings": { "rateLimit": 500, "burstLimit": 1000 } }+--+-- In addition to making the REST API call directly, you can use the AWS CLI and an AWS SDK to access this resource.+--+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/api-gateway-limits.html API Gateway Limits> <http://docs.aws.amazon.com/apigateway/latest/developerguide/welcome.html Developer Guide>, <http://docs.aws.amazon.com/cli/latest/reference/apigateway/get-account.html AWS CLI>+-- -- /See:/ 'account' smart constructor. data Account = Account'-    { _aCloudwatchRoleARN :: !(Maybe Text)+    { _aApiKeyVersion     :: !(Maybe Text)+    , _aCloudwatchRoleARN :: !(Maybe Text)+    , _aFeatures          :: !(Maybe [Text])     , _aThrottleSettings  :: !(Maybe ThrottleSettings)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -120,22 +213,36 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'aApiKeyVersion'+-- -- * 'aCloudwatchRoleARN' --+-- * 'aFeatures'+-- -- * 'aThrottleSettings' account     :: Account account =     Account'-    { _aCloudwatchRoleARN = Nothing+    { _aApiKeyVersion = Nothing+    , _aCloudwatchRoleARN = Nothing+    , _aFeatures = Nothing     , _aThrottleSettings = Nothing     } --- | Specifies the Amazon resource name (ARN) of an Amazon CloudWatch role for the current < Account> resource.+-- | The version of the API keys used for the account.+aApiKeyVersion :: Lens' Account (Maybe Text)+aApiKeyVersion = lens _aApiKeyVersion (\ s a -> s{_aApiKeyVersion = a});++-- | The ARN of an Amazon CloudWatch role for the current < Account>. aCloudwatchRoleARN :: Lens' Account (Maybe Text) aCloudwatchRoleARN = lens _aCloudwatchRoleARN (\ s a -> s{_aCloudwatchRoleARN = a}); --- | Specifies the application programming interface (API) throttle settings for the current < Account> resource.+-- | A list of features supported for the account. When usage plans are enabled, the features list will include an entry of '\"UsagePlans\"'.+aFeatures :: Lens' Account [Text]+aFeatures = lens _aFeatures (\ s a -> s{_aFeatures = a}) . _Default . _Coerce;++-- | Specifies the API request limits configured for the current < Account>. aThrottleSettings :: Lens' Account (Maybe ThrottleSettings) aThrottleSettings = lens _aThrottleSettings (\ s a -> s{_aThrottleSettings = a}); @@ -144,8 +251,10 @@           = withObject "Account"               (\ x ->                  Account' <$>-                   (x .:? "cloudwatchRoleArn") <*>-                     (x .:? "throttleSettings"))+                   (x .:? "apiKeyVersion") <*>+                     (x .:? "cloudwatchRoleArn")+                     <*> (x .:? "features" .!= mempty)+                     <*> (x .:? "throttleSettings"))  instance Hashable Account @@ -153,10 +262,13 @@  -- | Represents an authorization layer for methods. If enabled on a method, API Gateway will activate the authorizer when a client calls the method. --+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/use-custom-authorizer.html Enable custom authorization>+-- -- /See:/ 'authorizer' smart constructor. data Authorizer = Authorizer'     { _aAuthorizerURI                :: !(Maybe Text)     , _aIdentityValidationExpression :: !(Maybe Text)+    , _aProviderARNs                 :: !(Maybe [Text])     , _aName                         :: !(Maybe Text)     , _aId                           :: !(Maybe Text)     , _aAuthorizerResultTtlInSeconds :: !(Maybe Int)@@ -174,6 +286,8 @@ -- -- * 'aIdentityValidationExpression' --+-- * 'aProviderARNs'+-- -- * 'aName' -- -- * 'aId'@@ -193,6 +307,7 @@     Authorizer'     { _aAuthorizerURI = Nothing     , _aIdentityValidationExpression = Nothing+    , _aProviderARNs = Nothing     , _aName = Nothing     , _aId = Nothing     , _aAuthorizerResultTtlInSeconds = Nothing@@ -210,6 +325,10 @@ aIdentityValidationExpression :: Lens' Authorizer (Maybe Text) aIdentityValidationExpression = lens _aIdentityValidationExpression (\ s a -> s{_aIdentityValidationExpression = a}); +-- | A list of the provider ARNs of the authorizer.+aProviderARNs :: Lens' Authorizer [Text]+aProviderARNs = lens _aProviderARNs (\ s a -> s{_aProviderARNs = a}) . _Default . _Coerce;+ -- | [Required] The name of the authorizer. aName :: Lens' Authorizer (Maybe Text) aName = lens _aName (\ s a -> s{_aName = a});@@ -234,7 +353,7 @@ aIdentitySource :: Lens' Authorizer (Maybe Text) aIdentitySource = lens _aIdentitySource (\ s a -> s{_aIdentitySource = a}); --- | Specifies the credentials required for the authorizer, if any. Two options are available. To specify an IAM Role for Amazon API Gateway to assume, use the role\'s Amazon Resource Name (ARN). To use resource-based permissions on the Lambda function, specify null.+-- | Specifies the credentials required for the authorizer, if any. Two options are available. To specify an IAM role for Amazon API Gateway to assume, use the role\'s Amazon Resource Name (ARN). To use resource-based permissions on the Lambda function, specify null. aAuthorizerCredentials :: Lens' Authorizer (Maybe Text) aAuthorizerCredentials = lens _aAuthorizerCredentials (\ s a -> s{_aAuthorizerCredentials = a}); @@ -245,6 +364,7 @@                  Authorizer' <$>                    (x .:? "authorizerUri") <*>                      (x .:? "identityValidationExpression")+                     <*> (x .:? "providerARNs" .!= mempty)                      <*> (x .:? "name")                      <*> (x .:? "id")                      <*> (x .:? "authorizerResultTtlInSeconds")@@ -257,8 +377,12 @@  instance NFData Authorizer --- | Represents the base path that callers of the API that must provide as part of the URL after the domain name.+-- | Represents the base path that callers of the API must provide as part of the URL after the domain name. --+-- A custom domain name plus a 'BasePathMapping' specification identifies a deployed < RestApi> in a given stage of the owner < Account>.+--+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/how-to-custom-domains.html Use Custom Domain Names>+-- -- /See:/ 'basePathMapping' smart constructor. data BasePathMapping = BasePathMapping'     { _bpmStage     :: !(Maybe Text)@@ -308,8 +432,12 @@  instance NFData BasePathMapping --- | Represents a Client Certificate used to configure client-side SSL authentication while sending requests to the integration endpoint.+-- | Represents a client certificate used to configure client-side SSL authentication while sending requests to the integration endpoint. --+-- Client certificates are used authenticate an API by the back-end server. To authenticate an API client (or user), use a custom < Authorizer>.+--+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/getting-started-client-side-ssl-authentication.html Use Client-Side Certificate>+-- -- /See:/ 'clientCertificate' smart constructor. data ClientCertificate = ClientCertificate'     { _ccPemEncodedCertificate :: !(Maybe Text)@@ -343,23 +471,23 @@     , _ccDescription = Nothing     } --- | The PEM-encoded public key of the Client Certificate, that can be used to configure certificate authentication in the integration endpoint .+-- | The PEM-encoded public key of the client certificate, which can be used to configure certificate authentication in the integration endpoint . ccPemEncodedCertificate :: Lens' ClientCertificate (Maybe Text) ccPemEncodedCertificate = lens _ccPemEncodedCertificate (\ s a -> s{_ccPemEncodedCertificate = a}); --- | The identifier of the Client Certificate.+-- | The identifier of the client certificate. ccClientCertificateId :: Lens' ClientCertificate (Maybe Text) ccClientCertificateId = lens _ccClientCertificateId (\ s a -> s{_ccClientCertificateId = a}); --- | The date when the Client Certificate was created, in <http://www.iso.org/iso/home/standards/iso8601.htm ISO 8601 format>.+-- | The date when the client certificate was created, in <http://www.iso.org/iso/home/standards/iso8601.htm ISO 8601 format>. ccCreatedDate :: Lens' ClientCertificate (Maybe UTCTime) ccCreatedDate = lens _ccCreatedDate (\ s a -> s{_ccCreatedDate = a}) . mapping _Time; --- | The date when the Client Certificate will expire, in <http://www.iso.org/iso/home/standards/iso8601.htm ISO 8601 format>.+-- | The date when the client certificate will expire, in <http://www.iso.org/iso/home/standards/iso8601.htm ISO 8601 format>. ccExpirationDate :: Lens' ClientCertificate (Maybe UTCTime) ccExpirationDate = lens _ccExpirationDate (\ s a -> s{_ccExpirationDate = a}) . mapping _Time; --- | The description of the Client Certificate.+-- | The description of the client certificate. ccDescription :: Lens' ClientCertificate (Maybe Text) ccDescription = lens _ccDescription (\ s a -> s{_ccDescription = a}); @@ -380,6 +508,10 @@  -- | An immutable representation of a < RestApi> resource that can be called by users using < Stages>. A deployment must be associated with a < Stage> for it to be callable over the Internet. --+-- To create a deployment, call 'POST' on the < Deployments> resource of a < RestApi>. To view, update, or delete a deployment, call 'GET', 'PATCH', or 'DELETE' on the specified deployment resource ('\/restapis\/{restapi_id}\/deployments\/{deployment_id}').+--+-- < RestApi>, < Deployments>, < Stage>, <http://docs.aws.amazon.com/cli/latest/reference/apigateway/get-deployment.html AWS CLI>, <https://aws.amazon.com/tools/ AWS SDKs>+-- -- /See:/ 'deployment' smart constructor. data Deployment = Deployment'     { _dApiSummary  :: !(Maybe (Map Text (Map Text MethodSnapshot)))@@ -409,7 +541,7 @@     , _dDescription = Nothing     } --- | Gets a summary of the < RestApi> at the date and time that the deployment resource was created.+-- | A summary of the < RestApi> at the date and time that the deployment resource was created. dApiSummary :: Lens' Deployment (HashMap Text (HashMap Text MethodSnapshot)) dApiSummary = lens _dApiSummary (\ s a -> s{_dApiSummary = a}) . _Default . _Map; @@ -441,6 +573,8 @@  -- | Represents a domain name that is contained in a simpler, more intuitive URL that can be called. --+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/how-to-custom-domains.html Use Client-Side Certificate>+-- -- /See:/ 'domainName' smart constructor. data DomainName = DomainName'     { _dnCertificateName        :: !(Maybe Text)@@ -499,14 +633,19 @@  instance NFData DomainName --- | Represents a HTTP, AWS, or Mock integration.+-- | Represents an HTTP, AWS, or Mock integration. --+-- In the API Gateway console, the built-in Lambda integration is an AWS integration.+--+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/how-to-create-api.html Creating an API>+-- -- /See:/ 'integration' smart constructor. data Integration = Integration'     { _iHttpMethod           :: !(Maybe Text)     , _iRequestTemplates     :: !(Maybe (Map Text Text))     , _iCredentials          :: !(Maybe Text)     , _iRequestParameters    :: !(Maybe (Map Text Text))+    , _iPassthroughBehavior  :: !(Maybe Text)     , _iUri                  :: !(Maybe Text)     , _iIntegrationResponses :: !(Maybe (Map Text IntegrationResponse))     , _iCacheNamespace       :: !(Maybe Text)@@ -526,6 +665,8 @@ -- -- * 'iRequestParameters' --+-- * 'iPassthroughBehavior'+-- -- * 'iUri' -- -- * 'iIntegrationResponses'@@ -543,6 +684,7 @@     , _iRequestTemplates = Nothing     , _iCredentials = Nothing     , _iRequestParameters = Nothing+    , _iPassthroughBehavior = Nothing     , _iUri = Nothing     , _iIntegrationResponses = Nothing     , _iCacheNamespace = Nothing@@ -554,7 +696,7 @@ iHttpMethod :: Lens' Integration (Maybe Text) iHttpMethod = lens _iHttpMethod (\ s a -> s{_iHttpMethod = a}); --- | Specifies the integration\'s request templates.+-- | Represents a map of Velocity templates that are applied on the request payload based on the value of the Content-Type header sent by the client. The content type value is the key in this map, and the template (as a String) is the value. iRequestTemplates :: Lens' Integration (HashMap Text Text) iRequestTemplates = lens _iRequestTemplates (\ s a -> s{_iRequestTemplates = a}) . _Default . _Map; @@ -562,15 +704,41 @@ iCredentials :: Lens' Integration (Maybe Text) iCredentials = lens _iCredentials (\ s a -> s{_iCredentials = a}); --- | Represents requests parameters that are sent with the backend request. Request parameters are represented as a key\/value map, with a destination as the key and a source as the value. A source must match an existing method request parameter, or a static value. Static values must be enclosed with single quotes, and be pre-encoded based on their destination in the request. The destination must match the pattern 'integration.request.{location}.{name}', where 'location' is either querystring, path, or header. 'name' must be a valid, unique parameter name.+-- | A key-value map specifying request parameters that are passed from the method request to the back end. The key is an integration request parameter name and the associated value is a method request parameter value or static value that must be enclosed within single quotes and pre-encoded as required by the back end. The method request parameter value must match the pattern of 'method.request.{location}.{name}', where 'location' is 'querystring', 'path', or 'header' and 'name' must be a valid and unique method request parameter name. iRequestParameters :: Lens' Integration (HashMap Text Text) iRequestParameters = lens _iRequestParameters (\ s a -> s{_iRequestParameters = a}) . _Default . _Map; +-- | Specifies how the method request body of an unmapped content type will be passed through the integration request to the back end without transformation. A content type is unmapped if no mapping template is defined in the integration or the content type does not match any of the mapped content types, as specified in 'requestTemplates'. There are three valid values: 'WHEN_NO_MATCH', 'WHEN_NO_TEMPLATES', and 'NEVER'.+--+-- -   'WHEN_NO_MATCH' passes the method request body through the integration request to the back end without transformation when the method request content type does not match any content type associated with the mapping templates defined in the integration request.+-- -   'WHEN_NO_TEMPLATES' passes the method request body through the integration request to the back end without transformation when no mapping template is defined in the integration request. If a template is defined when this option is selected, the method request of an unmapped content-type will be rejected with an HTTP '415 Unsupported Media Type' response.+-- -   'NEVER' rejects the method request with an HTTP '415 Unsupported Media Type' response when either the method request content type does not match any content type associated with the mapping templates defined in the integration request or no mapping template is defined in the integration request.+--+iPassthroughBehavior :: Lens' Integration (Maybe Text)+iPassthroughBehavior = lens _iPassthroughBehavior (\ s a -> s{_iPassthroughBehavior = a});+ -- | Specifies the integration\'s Uniform Resource Identifier (URI). For HTTP integrations, the URI must be a fully formed, encoded HTTP(S) URL according to the <https://www.ietf.org/rfc/rfc3986.txt RFC-3986 specification>. For AWS integrations, the URI should be of the form 'arn:aws:apigateway:{region}:{subdomain.service|service}:{path|action}\/{service_api}'. 'Region', 'subdomain' and 'service' are used to determine the right endpoint. For AWS services that use the 'Action=' query string parameter, 'service_api' should be a valid action for the desired service. For RESTful AWS service APIs, 'path' is used to indicate that the remaining substring in the URI should be treated as the path to the resource, including the initial '\/'. iUri :: Lens' Integration (Maybe Text) iUri = lens _iUri (\ s a -> s{_iUri = a});  -- | Specifies the integration\'s responses.+--+-- ==== Example: Get integration responses of a method+-- #example-get-integration-responses-of-a-method#+--+-- ===== Request+-- #request#+--+-- > GET /restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration/responses/200 HTTP/1.1 Content-Type: application/json Host: apigateway.us-east-1.amazonaws.com X-Amz-Date: 20160607T191449Z Authorization: AWS4-HMAC-SHA256 Credential={access_key_ID}/20160607/us-east-1/apigateway/aws4_request, SignedHeaders=content-type;host;x-amz-date, Signature={sig4_hash}+--+-- ===== Response+-- #response#+--+-- The successful response returns '200 OK' status and a payload as follows:+--+-- > { "_links": { "curies": { "href": "http://docs.aws.amazon.com/apigateway/latest/developerguide/restapi-integration-response-{rel}.html", "name": "integrationresponse", "templated": true }, "self": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration/responses/200", "title": "200" }, "integrationresponse:delete": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration/responses/200" }, "integrationresponse:update": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration/responses/200" } }, "responseParameters": { "method.response.header.Content-Type": "'application/xml'" }, "responseTemplates": { "application/json": ">util.urlDecode(\"%3CkinesisStreams%3E#foreach(>stream in >input.path('>.StreamNames'))%3Cstream%3E%3Cname%3E>stream%3C/name%3E%3C/stream%3E#end%3C/kinesisStreams%3E\")\n" }, "statusCode": "200" }+--+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/how-to-create-api.html Creating an API> iIntegrationResponses :: Lens' Integration (HashMap Text IntegrationResponse) iIntegrationResponses = lens _iIntegrationResponses (\ s a -> s{_iIntegrationResponses = a}) . _Default . _Map; @@ -595,6 +763,7 @@                      (x .:? "requestTemplates" .!= mempty)                      <*> (x .:? "credentials")                      <*> (x .:? "requestParameters" .!= mempty)+                     <*> (x .:? "passthroughBehavior")                      <*> (x .:? "uri")                      <*> (x .:? "integrationResponses" .!= mempty)                      <*> (x .:? "cacheNamespace")@@ -605,8 +774,10 @@  instance NFData Integration --- | Represents an integration response. The status code must map to an existing < MethodResponse>, and parameters and templates can be used to transform the backend response.+-- | Represents an integration response. The status code must map to an existing < MethodResponse>, and parameters and templates can be used to transform the back-end response. --+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/how-to-create-api.html Creating an API>+-- -- /See:/ 'integrationResponse' smart constructor. data IntegrationResponse = IntegrationResponse'     { _iResponseTemplates  :: !(Maybe (Map Text Text))@@ -640,7 +811,7 @@ iResponseTemplates :: Lens' IntegrationResponse (HashMap Text Text) iResponseTemplates = lens _iResponseTemplates (\ s a -> s{_iResponseTemplates = a}) . _Default . _Map; --- | Specifies the regular expression (regex) pattern used to choose an integration response based on the response from the backend. If the backend is an AWS Lambda function, the AWS Lambda function error header is matched. For all other HTTP and AWS backends, the HTTP status code is matched.+-- | Specifies the regular expression (regex) pattern used to choose an integration response based on the response from the back end. For example, if the success response returns nothing and the error response returns some string, you could use the '.+' regex to match error response. However, make sure that the error response does not contain any newline ('\\n') character in such cases. If the back end is an AWS Lambda function, the AWS Lambda function error header is matched. For all other HTTP and AWS back ends, the HTTP status code is matched. iSelectionPattern :: Lens' IntegrationResponse (Maybe Text) iSelectionPattern = lens _iSelectionPattern (\ s a -> s{_iSelectionPattern = a}); @@ -648,7 +819,7 @@ iStatusCode :: Lens' IntegrationResponse (Maybe Text) iStatusCode = lens _iStatusCode (\ s a -> s{_iStatusCode = a}); --- | Represents response parameters that can be read from the backend response. Response parameters are represented as a key\/value map, with a destination as the key and a source as the value. A destination must match an existing response parameter in the < MethodResponse>. The source can be a header from the backend response, or a static value. Static values are specified using enclosing single quotes, and backend response headers can be read using the pattern 'integration.response.header.{name}'.+-- | A key-value map specifying response parameters that are passed to the method response from the back end. The key is a method response header parameter name and the mapped value is an integration response header value, a static value enclosed within a pair of single quotes, or a JSON expression from the integration response body. The mapping key must match the pattern of 'method.response.header.{name}', where 'name' is a valid and unique header name. The mapped non-static value must match the pattern of 'integration.response.header.{name}' or 'integration.response.body.{JSON-expression}', where 'name' is a valid and unique response header name and 'JSON-expression' is a valid JSON expression without the '>' prefix. iResponseParameters :: Lens' IntegrationResponse (HashMap Text Text) iResponseParameters = lens _iResponseParameters (\ s a -> s{_iResponseParameters = a}) . _Default . _Map; @@ -666,8 +837,29 @@  instance NFData IntegrationResponse --- | Represents a method.+-- | Represents a client-facing interface by which the client calls the API to access back-end resources. A __Method__ resource is integrated with an < Integration> resource. Both consist of a request and one or more responses. The method request takes the client input that is passed to the back end through the integration request. A method response returns the output from the back end to the client through an integration response. A method request is embodied in a __Method__ resource, whereas an integration request is embodied in an < Integration> resource. On the other hand, a method response is represented by a < MethodResponse> resource, whereas an integration response is represented by an < IntegrationResponse> resource. --+-- ==== Example: Retrive the GET method on a specified resource+-- #example-retrive-the-get-method-on-a-specified-resource#+--+-- ===== Request+-- #request#+--+-- The following example request retrieves the information about the GET method on an API resource ('3kzxbg5sa2') of an API ('fugvjdxtri').+--+-- > GET /restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET HTTP/1.1 Content-Type: application/json Host: apigateway.us-east-1.amazonaws.com X-Amz-Date: 20160603T210259Z Authorization: AWS4-HMAC-SHA256 Credential={access_key_ID}/20160603/us-east-1/apigateway/aws4_request, SignedHeaders=content-type;host;x-amz-date, Signature={sig4_hash}+--+-- ===== Response+-- #response#+--+-- The successful response returns a '200 OK' status code and a payload similar to the following:+--+-- > { "_links": { "curies": [ { "href": "http://docs.aws.amazon.com/apigateway/latest/developerguide/restapi-integration-{rel}.html", "name": "integration", "templated": true }, { "href": "http://docs.aws.amazon.com/apigateway/latest/developerguide/restapi-integration-response-{rel}.html", "name": "integrationresponse", "templated": true }, { "href": "http://docs.aws.amazon.com/apigateway/latest/developerguide/restapi-method-{rel}.html", "name": "method", "templated": true }, { "href": "http://docs.aws.amazon.com/apigateway/latest/developerguide/restapi-method-response-{rel}.html", "name": "methodresponse", "templated": true } ], "self": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET", "name": "GET", "title": "GET" }, "integration:put": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration" }, "method:delete": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET" }, "method:integration": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration" }, "method:responses": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/responses/200", "name": "200", "title": "200" }, "method:update": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET" }, "methodresponse:put": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/responses/{status_code}", "templated": true } }, "apiKeyRequired": true, "authorizationType": "NONE", "httpMethod": "GET", "_embedded": { "method:integration": { "_links": { "self": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration" }, "integration:delete": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration" }, "integration:responses": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration/responses/200", "name": "200", "title": "200" }, "integration:update": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration" }, "integrationresponse:put": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration/responses/{status_code}", "templated": true } }, "cacheKeyParameters": [], "cacheNamespace": "3kzxbg5sa2", "credentials": "arn:aws:iam::123456789012:role/apigAwsProxyRole", "httpMethod": "POST", "passthroughBehavior": "WHEN_NO_MATCH", "requestParameters": { "integration.request.header.Content-Type": "'application/x-amz-json-1.1'" }, "requestTemplates": { "application/json": "{\n}" }, "type": "AWS", "uri": "arn:aws:apigateway:us-east-1:kinesis:action/ListStreams", "_embedded": { "integration:responses": { "_links": { "self": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration/responses/200", "name": "200", "title": "200" }, "integrationresponse:delete": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration/responses/200" }, "integrationresponse:update": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration/responses/200" } }, "responseParameters": { "method.response.header.Content-Type": "'application/xml'" }, "responseTemplates": { "application/json": ">util.urlDecode(\"%3CkinesisStreams%3E%23foreach(%24stream%20in%20%24input.path(%27%24.StreamNames%27))%3Cstream%3E%3Cname%3E%24stream%3C%2Fname%3E%3C%2Fstream%3E%23end%3C%2FkinesisStreams%3E\")" }, "statusCode": "200" } } }, "method:responses": { "_links": { "self": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/responses/200", "name": "200", "title": "200" }, "methodresponse:delete": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/responses/200" }, "methodresponse:update": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/responses/200" } }, "responseModels": { "application/json": "Empty" }, "responseParameters": { "method.response.header.Content-Type": false }, "statusCode": "200" } } }+--+-- In the example above, the response template for the '200 OK' response maps the JSON output from the 'ListStreams' action in the back end to an XML output. The mapping template is URL-encoded as '%3CkinesisStreams%3E%23foreach(%24stream%20in%20%24input.path(%27%24.StreamNames%27))%3Cstream%3E%3Cname%3E%24stream%3C%2Fname%3E%3C%2Fstream%3E%23end%3C%2FkinesisStreams%3E' and the output is decoded using the <http://docs.aws.amazon.com/apigateway/latest/developerguide/api-gateway-mapping-template-reference.html#util-templat-reference >util.urlDecode()> helper function.+--+-- < MethodResponse>, < Integration>, < IntegrationResponse>, < Resource>, <http://docs.aws.amazon.com/apigateway/latest/developerguide/how-to-method-settings.html Set up an API\'s method>+-- -- /See:/ 'method' smart constructor. data Method = Method'     { _mMethodResponses   :: !(Maybe (Map Text MethodResponse))@@ -713,23 +905,42 @@     , _mMethodIntegration = Nothing     } --- | Represents available responses that can be sent to the caller. Method responses are represented as a key\/value map, with an HTTP status code as the key and a < MethodResponse> as the value. The status codes are available for the < Integration> responses to map to.+-- | Gets a method response associated with a given HTTP status code.+--+-- The collection of method responses are encapsulated in a key-value map, where the key is a response\'s HTTP status code and the value is a < MethodResponse> resource that specifies the response returned to the caller from the back end through the integration response.+--+-- ==== Example: Get a 200 OK response of a GET method+-- #example-get-a-200-ok-response-of-a-get-method#+--+-- ===== Request+-- #request#+--+-- > GET /restapis/uojnr9hd57/resources/0cjtch/methods/GET/responses/200 HTTP/1.1 Content-Type: application/json Host: apigateway.us-east-1.amazonaws.com Content-Length: 117 X-Amz-Date: 20160613T215008Z Authorization: AWS4-HMAC-SHA256 Credential={access_key_ID}/20160613/us-east-1/apigateway/aws4_request, SignedHeaders=content-type;host;x-amz-date, Signature={sig4_hash}+--+-- ===== Response+-- #response#+--+-- The successful response returns a '200 OK' status code and a payload similar to the following:+--+-- > { "_links": { "curies": { "href": "http://docs.aws.amazon.com/apigateway/latest/developerguide/restapi-method-response-{rel}.html", "name": "methodresponse", "templated": true }, "self": { "href": "/restapis/uojnr9hd57/resources/0cjtch/methods/GET/responses/200", "title": "200" }, "methodresponse:delete": { "href": "/restapis/uojnr9hd57/resources/0cjtch/methods/GET/responses/200" }, "methodresponse:update": { "href": "/restapis/uojnr9hd57/resources/0cjtch/methods/GET/responses/200" } }, "responseModels": { "application/json": "Empty" }, "responseParameters": { "method.response.header.operator": false, "method.response.header.operand_2": false, "method.response.header.operand_1": false }, "statusCode": "200" }+--+-- <http://docs.aws.amazon.com/cli/latest/reference/apigateway/get-method-response.html AWS CLI> mMethodResponses :: Lens' Method (HashMap Text MethodResponse) mMethodResponses = lens _mMethodResponses (\ s a -> s{_mMethodResponses = a}) . _Default . _Map; --- | The HTTP method.+-- | The method\'s HTTP verb. mHttpMethod :: Lens' Method (Maybe Text) mHttpMethod = lens _mHttpMethod (\ s a -> s{_mHttpMethod = a}); --- | Specifies the < Model> resources used for the request\'s content type. Request models are represented as a key\/value map, with a content type as the key and a < Model> name as the value.+-- | A key-value map specifying data schemas, represented by < Model> resources, (as the mapped value) of the request payloads of given content types (as the mapping key). mRequestModels :: Lens' Method (HashMap Text Text) mRequestModels = lens _mRequestModels (\ s a -> s{_mRequestModels = a}) . _Default . _Map; --- | Represents request parameters that can be accepted by Amazon API Gateway. Request parameters are represented as a key\/value map, with a source as the key and a Boolean flag as the value. The Boolean flag is used to specify whether the parameter is required. A source must match the pattern 'method.request.{location}.{name}', where 'location' is either querystring, path, or header. 'name' is a valid, unique parameter name. Sources specified here are available to the integration for mapping to integration request parameters or templates.+-- | A key-value map defining required or optional method request parameters that can be accepted by Amazon API Gateway. A key is a method request parameter name matching the pattern of 'method.request.{location}.{name}', where 'location' is 'querystring', 'path', or 'header' and 'name' is a valid and unique parameter name. The value associated with the key is a Boolean flag indicating whether the parameter is required ('true') or optional ('false'). The method request parameter names defined here are available in < Integration> to be mapped to integration request parameters or templates. mRequestParameters :: Lens' Method (HashMap Text Bool) mRequestParameters = lens _mRequestParameters (\ s a -> s{_mRequestParameters = a}) . _Default . _Map; --- | Specifies the identifier of an < Authorizer> to use on this Method. The authorizationType must be CUSTOM.+-- | The identifier of an < Authorizer> to use on this method. The 'authorizationType' must be 'CUSTOM'. mAuthorizerId :: Lens' Method (Maybe Text) mAuthorizerId = lens _mAuthorizerId (\ s a -> s{_mAuthorizerId = a}); @@ -737,11 +948,28 @@ mAuthorizationType :: Lens' Method (Maybe Text) mAuthorizationType = lens _mAuthorizationType (\ s a -> s{_mAuthorizationType = a}); --- | Specifies whether the method requires a valid < ApiKey>.+-- | A boolean flag specifying whether a valid < ApiKey> is required to invoke this method. mApiKeyRequired :: Lens' Method (Maybe Bool) mApiKeyRequired = lens _mApiKeyRequired (\ s a -> s{_mApiKeyRequired = a}); --- | The method\'s integration.+-- | Gets the method\'s integration responsible for passing the client-submitted request to the back end and performing necessary transformations to make the request compliant with the back end.+--+-- ==== Example:+-- #example#+--+-- ===== Request+-- #request#+--+-- > GET /restapis/uojnr9hd57/resources/0cjtch/methods/GET/integration HTTP/1.1 Content-Type: application/json Host: apigateway.us-east-1.amazonaws.com Content-Length: 117 X-Amz-Date: 20160613T213210Z Authorization: AWS4-HMAC-SHA256 Credential={access_key_ID}/20160613/us-east-1/apigateway/aws4_request, SignedHeaders=content-type;host;x-amz-date, Signature={sig4_hash}+--+-- ===== Response+-- #response#+--+-- The successful response returns a '200 OK' status code and a payload similar to the following:+--+-- > { "_links": { "curies": [ { "href": "http://docs.aws.amazon.com/apigateway/latest/developerguide/restapi-integration-{rel}.html", "name": "integration", "templated": true }, { "href": "http://docs.aws.amazon.com/apigateway/latest/developerguide/restapi-integration-response-{rel}.html", "name": "integrationresponse", "templated": true } ], "self": { "href": "/restapis/uojnr9hd57/resources/0cjtch/methods/GET/integration" }, "integration:delete": { "href": "/restapis/uojnr9hd57/resources/0cjtch/methods/GET/integration" }, "integration:responses": { "href": "/restapis/uojnr9hd57/resources/0cjtch/methods/GET/integration/responses/200", "name": "200", "title": "200" }, "integration:update": { "href": "/restapis/uojnr9hd57/resources/0cjtch/methods/GET/integration" }, "integrationresponse:put": { "href": "/restapis/uojnr9hd57/resources/0cjtch/methods/GET/integration/responses/{status_code}", "templated": true } }, "cacheKeyParameters": [], "cacheNamespace": "0cjtch", "credentials": "arn:aws:iam::123456789012:role/apigAwsProxyRole", "httpMethod": "POST", "passthroughBehavior": "WHEN_NO_MATCH", "requestTemplates": { "application/json": "{\n \"a\": \">input.params('operand1')\",\n \"b\": \">input.params('operand2')\", \n \"op\": \">input.params('operator')\" \n}" }, "type": "AWS", "uri": "arn:aws:apigateway:us-west-2:lambda:path//2015-03-31/functions/arn:aws:lambda:us-west-2:123456789012:function:Calc/invocations", "_embedded": { "integration:responses": { "_links": { "self": { "href": "/restapis/uojnr9hd57/resources/0cjtch/methods/GET/integration/responses/200", "name": "200", "title": "200" }, "integrationresponse:delete": { "href": "/restapis/uojnr9hd57/resources/0cjtch/methods/GET/integration/responses/200" }, "integrationresponse:update": { "href": "/restapis/uojnr9hd57/resources/0cjtch/methods/GET/integration/responses/200" } }, "responseParameters": { "method.response.header.operator": "integration.response.body.op", "method.response.header.operand_2": "integration.response.body.b", "method.response.header.operand_1": "integration.response.body.a" }, "responseTemplates": { "application/json": "#set(>res = >input.path('>'))\n{\n \"result\": \">res.a, >res.b, >res.op => >res.c\",\n \"a\" : \">res.a\",\n \"b\" : \">res.b\",\n \"op\" : \">res.op\",\n \"c\" : \">res.c\"\n}" }, "selectionPattern": "", "statusCode": "200" } } }+--+-- <http://docs.aws.amazon.com/cli/latest/reference/apigateway/get-integration.html AWS CLI> mMethodIntegration :: Lens' Method (Maybe Integration) mMethodIntegration = lens _mMethodIntegration (\ s a -> s{_mMethodIntegration = a}); @@ -763,8 +991,27 @@  instance NFData Method --- | Represents a method response. Amazon API Gateway sends back the status code to the caller as the HTTP status code. Parameters and models can be used to transform the response from the method\'s integration.+-- | Represents a method response of a given HTTP status code returned to the client. The method response is passed from the back end through the associated integration response that can be transformed using a mapping template. --+-- ==== Example: A __MethodResponse__ instance of an API+-- #example-a-methodresponse-instance-of-an-api#+--+-- ===== Request+-- #request#+--+-- The example request retrieves a __MethodResponse__ of the 200 status code.+--+-- > GET /restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/responses/200 HTTP/1.1 Content-Type: application/json Host: apigateway.us-east-1.amazonaws.com X-Amz-Date: 20160603T222952Z Authorization: AWS4-HMAC-SHA256 Credential={access_key_ID}/20160603/us-east-1/apigateway/aws4_request, SignedHeaders=content-type;host;x-amz-date, Signature={sig4_hash}+--+-- ===== Response+-- #response#+--+-- The successful response returns '200 OK' status and a payload as follows:+--+-- > { "_links": { "curies": { "href": "http://docs.aws.amazon.com/apigateway/latest/developerguide/restapi-method-response-{rel}.html", "name": "methodresponse", "templated": true }, "self": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/responses/200", "title": "200" }, "methodresponse:delete": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/responses/200" }, "methodresponse:update": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/responses/200" } }, "responseModels": { "application/json": "Empty" }, "responseParameters": { "method.response.header.Content-Type": false }, "statusCode": "200" }+--+-- < Method>, < IntegrationResponse>, < Integration> <http://docs.aws.amazon.com/apigateway/latest/developerguide/how-to-create-api.html Creating an API>+-- -- /See:/ 'methodResponse' smart constructor. data MethodResponse = MethodResponse'     { _mResponseModels     :: !(Maybe (Map Text Text))@@ -798,7 +1045,7 @@ mStatusCode :: Lens' MethodResponse (Maybe Text) mStatusCode = lens _mStatusCode (\ s a -> s{_mStatusCode = a}); --- | Represents response parameters that can be sent back to the caller by Amazon API Gateway. Response parameters are represented as a key\/value map, with a destination as the key and a boolean flag as the value, which is used to specify whether the parameter is required. A destination must match the pattern 'method.response.header.{name}', where 'name' is a valid, unique header name. Destinations specified here are available to the integration for mapping from integration response parameters.+-- | A key-value map specifying required or optional response parameters that Amazon API Gateway can send back to the caller. A key defines a method response header and the value specifies whether the associated method response header is required or not. The expression of the key must match the pattern 'method.response.header.{name}', where 'name' is a valid and unique header name. Amazon API Gateway passes certain integration response data to the method response headers specified here according to the mapping you prescribe in the API\'s < IntegrationResponse>. The integration response data that can be mapped include an integration response header expressed in 'integration.response.header.{name}', a static value enclosed within a pair of single quotes (e.g., '\'application\/json\''), or a JSON expression from the back-end response payload in the form of 'integration.response.body.{JSON-expression}', where 'JSON-expression' is a valid JSON expression without the '>' prefix.) mResponseParameters :: Lens' MethodResponse (HashMap Text Bool) mResponseParameters = lens _mResponseParameters (\ s a -> s{_mResponseParameters = a}) . _Default . _Map; @@ -870,11 +1117,11 @@     , _msUnauthorizedCacheControlHeaderStrategy = Nothing     } --- | Specifies the time to live (TTL) in seconds, for cached responses. The higher a the TTL, the longer the response will be cached. The PATCH path for this setting is '\/{method_setting_key}\/caching\/ttlInSeconds', and the value is an integer.+-- | Specifies the time to live (TTL), in seconds, for cached responses. The higher the TTL, the longer the response will be cached. The PATCH path for this setting is '\/{method_setting_key}\/caching\/ttlInSeconds', and the value is an integer. msCacheTtlInSeconds :: Lens' MethodSetting (Maybe Int) msCacheTtlInSeconds = lens _msCacheTtlInSeconds (\ s a -> s{_msCacheTtlInSeconds = a}); --- | Specifies the whether data trace logging is enabled for this method, which effects the log entries pushed to Amazon CloudWatch Logs. The PATCH path for this setting is '\/{method_setting_key}\/logging\/dataTrace', and the value is a Boolean.+-- | Specifies whether data trace logging is enabled for this method, which effects the log entries pushed to Amazon CloudWatch Logs. The PATCH path for this setting is '\/{method_setting_key}\/logging\/dataTrace', and the value is a Boolean. msDataTraceEnabled :: Lens' MethodSetting (Maybe Bool) msDataTraceEnabled = lens _msDataTraceEnabled (\ s a -> s{_msDataTraceEnabled = a}); @@ -906,7 +1153,7 @@ msThrottlingRateLimit :: Lens' MethodSetting (Maybe Double) msThrottlingRateLimit = lens _msThrottlingRateLimit (\ s a -> s{_msThrottlingRateLimit = a}); --- | Specifies the strategy on how to handle the unauthorized requests for cache invalidation. The PATCH path for this setting is '\/{method_setting_key}\/caching\/unauthorizedCacheControlHeaderStrategy', and the available values are 'FAIL_WITH_403', 'SUCCEED_WITH_RESPONSE_HEADER', 'SUCCEED_WITHOUT_RESPONSE_HEADER'.+-- | Specifies how to handle unauthorized requests for cache invalidation. The PATCH path for this setting is '\/{method_setting_key}\/caching\/unauthorizedCacheControlHeaderStrategy', and the available values are 'FAIL_WITH_403', 'SUCCEED_WITH_RESPONSE_HEADER', 'SUCCEED_WITHOUT_RESPONSE_HEADER'. msUnauthorizedCacheControlHeaderStrategy :: Lens' MethodSetting (Maybe UnauthorizedCacheControlHeaderStrategy) msUnauthorizedCacheControlHeaderStrategy = lens _msUnauthorizedCacheControlHeaderStrategy (\ s a -> s{_msUnauthorizedCacheControlHeaderStrategy = a}); @@ -973,8 +1220,14 @@  instance NFData MethodSnapshot --- | Represents the structure of a request or response payload for a method.+-- | Represents the data structure of a method\'s request or response payload. --+-- A request model defines the data structure of the client-supplied request payload. A response model defines the data structure of the response payload returned by the back end. Although not required, models are useful for mapping payloads between the front end and back end.+--+-- A model is used for generating an API\'s SDK, validating the input request body, and creating a skeletal mapping template.+--+-- < Method>, < MethodResponse>, <http://docs.aws.amazon.com/apigateway/latest/developerguide/models-mappings.html Models and Mappings>+-- -- /See:/ 'model' smart constructor. data Model = Model'     { _mSchema      :: !(Maybe Text)@@ -1008,7 +1261,7 @@     , _mContentType = Nothing     } --- | The schema for the model. For 'application\/json' models, this should be <http://json-schema.org/documentation.html JSON-schema draft v4> model.+-- | The schema for the model. For 'application\/json' models, this should be <http://json-schema.org/documentation.html JSON-schema draft v4> model. Do not include \"\\*\/\" characters in the description of any properties because such \"\\*\/\" characters may be interpreted as the closing marker for comments in some languages, such as Java or JavaScript, causing the installation of your API\'s SDK generated by API Gateway to fail. mSchema :: Lens' Model (Maybe Text) mSchema = lens _mSchema (\ s a -> s{_mSchema = a}); @@ -1072,19 +1325,19 @@     , _poFrom = Nothing     } --- | A patch operation whose value indicates the operation to perform. Its value MUST be one of \"add\", \"remove\", \"replace\", \"move\", \"copy\", or \"test\"; other values are errors.+-- | An update operation to be performed with this PATCH request. The valid value can be \"add\", \"remove\", or \"replace\". Not all valid operations are supported for a given resource. Support of the operations depends on specific operational contexts. Attempts to apply an unsupported operation on a resource will return an error message. poOp :: Lens' PatchOperation (Maybe Op) poOp = lens _poOp (\ s a -> s{_poOp = a}); --- | Operation objects MUST have exactly one \"path\" member. That member\'s value is a string containing a \`JSON-Pointer\` value that references a location within the target document (the \"target location\") where the operation is performed.+-- | The 'op' operation\'s target, as identified by a <https://tools.ietf.org/html/draft-ietf-appsawg-json-pointer-08 JSON Pointer> value that references a location within the targeted resource. For example, if the target resource has an updateable property of '{\"name\":\"value\"}', the path for this property is '\/name'. If the 'name' property value is a JSON object (e.g., '{\"name\": {\"child\/name\": \"child-value\"}}'), the path for the 'child\/name' property will be '\/name\/child~1name'. Any slash (\"\/\") character appearing in path names must be escaped with \"~1\", as shown in the example above. Each 'op' operation can have only one 'path' associated with it. poPath :: Lens' PatchOperation (Maybe Text) poPath = lens _poPath (\ s a -> s{_poPath = a}); --- | The actual value content.+-- | The new target value of the update operation. poValue :: Lens' PatchOperation (Maybe Text) poValue = lens _poValue (\ s a -> s{_poValue = a}); --- | The \"move\" and \"copy\" operation object MUST contain a \"from\" member, which is a string containing a 'JSON Pointer' value that references the location in the target document to move the value from.+-- | Not supported. poFrom :: Lens' PatchOperation (Maybe Text) poFrom = lens _poFrom (\ s a -> s{_poFrom = a}); @@ -1099,8 +1352,69 @@                  [("op" .=) <$> _poOp, ("path" .=) <$> _poPath,                   ("value" .=) <$> _poValue, ("from" .=) <$> _poFrom]) --- | Represents a resource.+-- | Quotas configured for a usage plan. --+-- /See:/ 'quotaSettings' smart constructor.+data QuotaSettings = QuotaSettings'+    { _qsOffset :: !(Maybe Int)+    , _qsPeriod :: !(Maybe QuotaPeriodType)+    , _qsLimit  :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'QuotaSettings' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'qsOffset'+--+-- * 'qsPeriod'+--+-- * 'qsLimit'+quotaSettings+    :: QuotaSettings+quotaSettings =+    QuotaSettings'+    { _qsOffset = Nothing+    , _qsPeriod = Nothing+    , _qsLimit = Nothing+    }++-- | The number of requests subtracted from the given limit in the initial time period.+qsOffset :: Lens' QuotaSettings (Maybe Int)+qsOffset = lens _qsOffset (\ s a -> s{_qsOffset = a});++-- | The time period in which the limit applies. Valid values are \"DAY\", \"WEEK\" or \"MONTH\".+qsPeriod :: Lens' QuotaSettings (Maybe QuotaPeriodType)+qsPeriod = lens _qsPeriod (\ s a -> s{_qsPeriod = a});++-- | The maximum number of requests that can be made in a given time period.+qsLimit :: Lens' QuotaSettings (Maybe Int)+qsLimit = lens _qsLimit (\ s a -> s{_qsLimit = a});++instance FromJSON QuotaSettings where+        parseJSON+          = withObject "QuotaSettings"+              (\ x ->+                 QuotaSettings' <$>+                   (x .:? "offset") <*> (x .:? "period") <*>+                     (x .:? "limit"))++instance Hashable QuotaSettings++instance NFData QuotaSettings++instance ToJSON QuotaSettings where+        toJSON QuotaSettings'{..}+          = object+              (catMaybes+                 [("offset" .=) <$> _qsOffset,+                  ("period" .=) <$> _qsPeriod,+                  ("limit" .=) <$> _qsLimit])++-- | Represents an API resource.+--+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/how-to-create-api.html Create an API>+-- -- /See:/ 'resource' smart constructor. data Resource = Resource'     { _rPathPart        :: !(Maybe Text)@@ -1146,7 +1460,25 @@ rId :: Lens' Resource (Maybe Text) rId = lens _rId (\ s a -> s{_rId = a}); --- | Map of methods for this resource, which is included only if the request uses the __embed__ query option.+-- | Gets an API resource\'s method of a given HTTP verb.+--+-- The resource methods are a map of methods indexed by methods\' HTTP verbs enabled on the resource. This method map is included in the '200 OK' response of the 'GET \/restapis\/{restapi_id}\/resources\/{resource_id}' or 'GET \/restapis\/{restapi_id}\/resources\/{resource_id}?embed=methods' request.+--+-- ==== Example: Get the GET method of an API resource+-- #example-get-the-get-method-of-an-api-resource#+--+-- ===== Request+-- #request#+--+-- > GET /restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET HTTP/1.1 Content-Type: application/json Host: apigateway.us-east-1.amazonaws.com X-Amz-Date: 20160608T031827Z Authorization: AWS4-HMAC-SHA256 Credential={access_key_ID}/20160608/us-east-1/apigateway/aws4_request, SignedHeaders=content-type;host;x-amz-date, Signature={sig4_hash}+--+-- ===== Response+-- #response#+--+-- > { "_links": { "curies": [ { "href": "http://docs.aws.amazon.com/apigateway/latest/developerguide/restapi-integration-{rel}.html", "name": "integration", "templated": true }, { "href": "http://docs.aws.amazon.com/apigateway/latest/developerguide/restapi-integration-response-{rel}.html", "name": "integrationresponse", "templated": true }, { "href": "http://docs.aws.amazon.com/apigateway/latest/developerguide/restapi-method-{rel}.html", "name": "method", "templated": true }, { "href": "http://docs.aws.amazon.com/apigateway/latest/developerguide/restapi-method-response-{rel}.html", "name": "methodresponse", "templated": true } ], "self": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET", "name": "GET", "title": "GET" }, "integration:put": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration" }, "method:delete": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET" }, "method:integration": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration" }, "method:responses": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/responses/200", "name": "200", "title": "200" }, "method:update": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET" }, "methodresponse:put": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/responses/{status_code}", "templated": true } }, "apiKeyRequired": false, "authorizationType": "NONE", "httpMethod": "GET", "_embedded": { "method:integration": { "_links": { "self": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration" }, "integration:delete": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration" }, "integration:responses": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration/responses/200", "name": "200", "title": "200" }, "integration:update": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration" }, "integrationresponse:put": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration/responses/{status_code}", "templated": true } }, "cacheKeyParameters": [], "cacheNamespace": "3kzxbg5sa2", "credentials": "arn:aws:iam::123456789012:role/apigAwsProxyRole", "httpMethod": "POST", "passthroughBehavior": "WHEN_NO_MATCH", "requestParameters": { "integration.request.header.Content-Type": "'application/x-amz-json-1.1'" }, "requestTemplates": { "application/json": "{\n}" }, "type": "AWS", "uri": "arn:aws:apigateway:us-east-1:kinesis:action/ListStreams", "_embedded": { "integration:responses": { "_links": { "self": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration/responses/200", "name": "200", "title": "200" }, "integrationresponse:delete": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration/responses/200" }, "integrationresponse:update": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/integration/responses/200" } }, "responseParameters": { "method.response.header.Content-Type": "'application/xml'" }, "responseTemplates": { "application/json": ">util.urlDecode(\"%3CkinesisStreams%3E#foreach(>stream in >input.path('>.StreamNames'))%3Cstream%3E%3Cname%3E>stream%3C/name%3E%3C/stream%3E#end%3C/kinesisStreams%3E\")\n" }, "statusCode": "200" } } }, "method:responses": { "_links": { "self": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/responses/200", "name": "200", "title": "200" }, "methodresponse:delete": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/responses/200" }, "methodresponse:update": { "href": "/restapis/fugvjdxtri/resources/3kzxbg5sa2/methods/GET/responses/200" } }, "responseModels": { "application/json": "Empty" }, "responseParameters": { "method.response.header.Content-Type": false }, "statusCode": "200" } } }+--+-- If the 'OPTIONS' is enabled on the resource, you can follow the example here to get that method. Just replace the 'GET' of the last path segment in the request URL with 'OPTIONS'.+-- rResourceMethods :: Lens' Resource (HashMap Text Method) rResourceMethods = lens _rResourceMethods (\ s a -> s{_rResourceMethods = a}) . _Default . _Map; @@ -1170,6 +1502,8 @@  -- | Represents a REST API. --+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/how-to-create-api.html Create an API>+-- -- /See:/ 'restAPI' smart constructor. data RestAPI = RestAPI'     { _raWarnings    :: !(Maybe [Text])@@ -1203,7 +1537,7 @@     , _raDescription = Nothing     } --- | Undocumented member.+-- | The warning messages reported when 'failonwarnings' is turned on during API import. raWarnings :: Lens' RestAPI [Text] raWarnings = lens _raWarnings (\ s a -> s{_raWarnings = a}) . _Default . _Coerce; @@ -1240,6 +1574,8 @@  -- | Represents a unique identifier for a version of a deployed < RestApi> that is callable by users. --+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/how-to-deploy-api.html Deploy an API>+-- -- /See:/ 'stage' smart constructor. data Stage = Stage'     { _sDeploymentId        :: !(Maybe Text)@@ -1301,11 +1637,11 @@ 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 alphanumeric characters, and the values must match '[A-Za-z0-9-._~:\/?#&=,]+'.+-- | A map that defines the stage variables for a < Stage> resource. Variable names can have alphanumeric and underscore 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.+-- | The identifier of a client certificate for an API stage. sClientCertificateId :: Lens' Stage (Maybe Text) sClientCertificateId = lens _sClientCertificateId (\ s a -> s{_sClientCertificateId = a}); @@ -1317,7 +1653,7 @@ sCacheClusterStatus :: Lens' Stage (Maybe CacheClusterStatus) sCacheClusterStatus = lens _sCacheClusterStatus (\ s a -> s{_sCacheClusterStatus = a}); --- | A map that defines the method settings for a < Stage> resource. Keys are defined as '{resource_path}\/{http_method}' for an individual method override, or '\\*\/\\*' for the settings applied to all methods in the stage.+-- | A map that defines the method settings for a < Stage> resource. Keys (designated as '\/{method_setting_key' below) are method paths defined as '{resource_path}\/{http_method}' for an individual method override, or '\/\\*\/\\*' for overriding all methods in the stage. Any forward slash (\"\/\") characters in the 'resource_path' part must be encoded as \"~1\" as in, for example, '~1resource~1sub-resource\/GET'. sMethodSettings :: Lens' Stage (HashMap Text MethodSetting) sMethodSettings = lens _sMethodSettings (\ s a -> s{_sMethodSettings = a}) . _Default . _Map; @@ -1404,7 +1740,7 @@                  [("restApiId" .=) <$> _skRestAPIId,                   ("stageName" .=) <$> _skStageName]) --- | Returns the throttle settings.+-- | The API request rate limits. -- -- /See:/ 'throttleSettings' smart constructor. data ThrottleSettings = ThrottleSettings'@@ -1427,11 +1763,11 @@     , _tsRateLimit = Nothing     } --- | Returns the burstLimit when __ThrottleSettings__ is called.+-- | The API request burst limit, the maximum rate limit over a time ranging from one to a few seconds, depending upon whether the underlying token bucket is at its full capacity. tsBurstLimit :: Lens' ThrottleSettings (Maybe Int) tsBurstLimit = lens _tsBurstLimit (\ s a -> s{_tsBurstLimit = a}); --- | Returns the rateLimit when __ThrottleSettings__ is called.+-- | The API request steady-state rate limit. tsRateLimit :: Lens' ThrottleSettings (Maybe Double) tsRateLimit = lens _tsRateLimit (\ s a -> s{_tsRateLimit = a}); @@ -1445,3 +1781,228 @@ instance Hashable ThrottleSettings  instance NFData ThrottleSettings++instance ToJSON ThrottleSettings where+        toJSON ThrottleSettings'{..}+          = object+              (catMaybes+                 [("burstLimit" .=) <$> _tsBurstLimit,+                  ("rateLimit" .=) <$> _tsRateLimit])++-- | Represents the usage data of a usage plan.+--+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/api-gateway-api-usage-plans.html Create and Use Usage Plans>, <http://docs.aws.amazon.com/apigateway/latest/developerguide/api-gateway-create-usage-plans-with-console.html#api-gateway-usage-plan-manage-usage Manage Usage in a Usage Plan>+--+-- /See:/ 'usage' smart constructor.+data Usage = Usage'+    { _uUsagePlanId :: !(Maybe Text)+    , _uEndDate     :: !(Maybe Text)+    , _uItems       :: !(Maybe (Map Text [[Integer]]))+    , _uStartDate   :: !(Maybe Text)+    , _uPosition    :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'Usage' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'uUsagePlanId'+--+-- * 'uEndDate'+--+-- * 'uItems'+--+-- * 'uStartDate'+--+-- * 'uPosition'+usage+    :: Usage+usage =+    Usage'+    { _uUsagePlanId = Nothing+    , _uEndDate = Nothing+    , _uItems = Nothing+    , _uStartDate = Nothing+    , _uPosition = Nothing+    }++-- | The plan Id associated with this usage data.+uUsagePlanId :: Lens' Usage (Maybe Text)+uUsagePlanId = lens _uUsagePlanId (\ s a -> s{_uUsagePlanId = a});++-- | The ending date of the usage data.+uEndDate :: Lens' Usage (Maybe Text)+uEndDate = lens _uEndDate (\ s a -> s{_uEndDate = a});++-- | The usage data, as daily logs of used and remaining quotas, over the specified time interval indexed over the API keys in a usage plan. For example, '{..., \"values\" : { \"{api_key}\" : [ [0, 100], [10, 90], [100, 10]]}', where '{api_key}' stands for an API key value and the daily log entry is of the format '[used quota, remaining quota]'.+uItems :: Lens' Usage (HashMap Text [[Integer]])+uItems = lens _uItems (\ s a -> s{_uItems = a}) . _Default . _Map;++-- | The starting date of the usage data.+uStartDate :: Lens' Usage (Maybe Text)+uStartDate = lens _uStartDate (\ s a -> s{_uStartDate = a});++-- | Undocumented member.+uPosition :: Lens' Usage (Maybe Text)+uPosition = lens _uPosition (\ s a -> s{_uPosition = a});++instance FromJSON Usage where+        parseJSON+          = withObject "Usage"+              (\ x ->+                 Usage' <$>+                   (x .:? "usagePlanId") <*> (x .:? "endDate") <*>+                     (x .:? "values" .!= mempty)+                     <*> (x .:? "startDate")+                     <*> (x .:? "position"))++instance Hashable Usage++instance NFData Usage++-- | Represents a usage plan than can specify who can assess associated API stages with specified request limits and quotas.+--+-- In a usage plan, you associate an API by specifying the API\'s Id and a stage name of the specified API. You add plan customers by adding API keys to the plan.+--+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/api-gateway-api-usage-plans.html Create and Use Usage Plans>+--+-- /See:/ 'usagePlan' smart constructor.+data UsagePlan = UsagePlan'+    { _upApiStages   :: !(Maybe [APIStage])+    , _upName        :: !(Maybe Text)+    , _upId          :: !(Maybe Text)+    , _upThrottle    :: !(Maybe ThrottleSettings)+    , _upQuota       :: !(Maybe QuotaSettings)+    , _upDescription :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'UsagePlan' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'upApiStages'+--+-- * 'upName'+--+-- * 'upId'+--+-- * 'upThrottle'+--+-- * 'upQuota'+--+-- * 'upDescription'+usagePlan+    :: UsagePlan+usagePlan =+    UsagePlan'+    { _upApiStages = Nothing+    , _upName = Nothing+    , _upId = Nothing+    , _upThrottle = Nothing+    , _upQuota = Nothing+    , _upDescription = Nothing+    }++-- | The associated API stages of a usage plan.+upApiStages :: Lens' UsagePlan [APIStage]+upApiStages = lens _upApiStages (\ s a -> s{_upApiStages = a}) . _Default . _Coerce;++-- | The name of a usage plan.+upName :: Lens' UsagePlan (Maybe Text)+upName = lens _upName (\ s a -> s{_upName = a});++-- | The identifier of a < UsagePlan> resource.+upId :: Lens' UsagePlan (Maybe Text)+upId = lens _upId (\ s a -> s{_upId = a});++-- | The request throttle limits of a usage plan.+upThrottle :: Lens' UsagePlan (Maybe ThrottleSettings)+upThrottle = lens _upThrottle (\ s a -> s{_upThrottle = a});++-- | The maximum number of permitted requests per a given unit time interval.+upQuota :: Lens' UsagePlan (Maybe QuotaSettings)+upQuota = lens _upQuota (\ s a -> s{_upQuota = a});++-- | The description of a usage plan.+upDescription :: Lens' UsagePlan (Maybe Text)+upDescription = lens _upDescription (\ s a -> s{_upDescription = a});++instance FromJSON UsagePlan where+        parseJSON+          = withObject "UsagePlan"+              (\ x ->+                 UsagePlan' <$>+                   (x .:? "apiStages" .!= mempty) <*> (x .:? "name") <*>+                     (x .:? "id")+                     <*> (x .:? "throttle")+                     <*> (x .:? "quota")+                     <*> (x .:? "description"))++instance Hashable UsagePlan++instance NFData UsagePlan++-- | Represents a usage plan key to identify a plan customer.+--+-- To associate an API stage with a selected API key in a usage plan, you must create a UsagePlanKey resource to represent the selected < ApiKey>.+--+-- \"+--+-- <http://docs.aws.amazon.com/apigateway/latest/developerguide/api-gateway-api-usage-plans.html Create and Use Usage Plans>+--+-- /See:/ 'usagePlanKey' smart constructor.+data UsagePlanKey = UsagePlanKey'+    { _upkValue :: !(Maybe Text)+    , _upkName  :: !(Maybe Text)+    , _upkId    :: !(Maybe Text)+    , _upkType  :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'UsagePlanKey' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'upkValue'+--+-- * 'upkName'+--+-- * 'upkId'+--+-- * 'upkType'+usagePlanKey+    :: UsagePlanKey+usagePlanKey =+    UsagePlanKey'+    { _upkValue = Nothing+    , _upkName = Nothing+    , _upkId = Nothing+    , _upkType = Nothing+    }++-- | The value of a usage plan key.+upkValue :: Lens' UsagePlanKey (Maybe Text)+upkValue = lens _upkValue (\ s a -> s{_upkValue = a});++-- | The name of a usage plan key.+upkName :: Lens' UsagePlanKey (Maybe Text)+upkName = lens _upkName (\ s a -> s{_upkName = a});++-- | The Id of a usage plan key.+upkId :: Lens' UsagePlanKey (Maybe Text)+upkId = lens _upkId (\ s a -> s{_upkId = a});++-- | The type of a usage plan key. Currently, the valid key type is 'API_KEY'.+upkType :: Lens' UsagePlanKey (Maybe Text)+upkType = lens _upkType (\ s a -> s{_upkType = a});++instance FromJSON UsagePlanKey where+        parseJSON+          = withObject "UsagePlanKey"+              (\ x ->+                 UsagePlanKey' <$>+                   (x .:? "value") <*> (x .:? "name") <*> (x .:? "id")+                     <*> (x .:? "type"))++instance Hashable UsagePlanKey++instance NFData UsagePlanKey

@@ -19,19 +19,45 @@  import           Network.AWS.Prelude --- | The authorizer type. Only current value is TOKEN.-data AuthorizerType =-    Token+data APIKeysFormat =+    CSV     deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic) +instance FromText APIKeysFormat where+    parser = takeLowerText >>= \case+        "csv" -> pure CSV+        e -> fromTextError $ "Failure parsing APIKeysFormat from value: '" <> e+           <> "'. Accepted values: csv"++instance ToText APIKeysFormat where+    toText = \case+        CSV -> "csv"++instance Hashable     APIKeysFormat+instance NFData       APIKeysFormat+instance ToByteString APIKeysFormat+instance ToQuery      APIKeysFormat+instance ToHeader     APIKeysFormat++instance ToJSON APIKeysFormat where+    toJSON = toJSONText++-- | The authorizer type. the only current value is TOKEN.+data AuthorizerType+    = CognitoUserPools+    | Token+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ instance FromText AuthorizerType where     parser = takeLowerText >>= \case+        "cognito_user_pools" -> pure CognitoUserPools         "token" -> pure Token         e -> fromTextError $ "Failure parsing AuthorizerType from value: '" <> e-           <> "'. Accepted values: TOKEN"+           <> "'. Accepted values: cognito_user_pools, token"  instance ToText AuthorizerType where     toText = \case+        CognitoUserPools -> "COGNITO_USER_POOLS"         Token -> "TOKEN"  instance Hashable     AuthorizerType@@ -111,7 +137,7 @@         "flush_in_progress" -> pure FlushInProgress         "not_available" -> pure NotAvailable         e -> fromTextError $ "Failure parsing CacheClusterStatus from value: '" <> e-           <> "'. Accepted values: AVAILABLE, CREATE_IN_PROGRESS, DELETE_IN_PROGRESS, FLUSH_IN_PROGRESS, NOT_AVAILABLE"+           <> "'. Accepted values: available, create_in_progress, delete_in_progress, flush_in_progress, not_available"  instance ToText CacheClusterStatus where     toText = \case@@ -143,7 +169,7 @@         "http" -> pure HTTP         "mock" -> pure Mock         e -> fromTextError $ "Failure parsing IntegrationType from value: '" <> e-           <> "'. Accepted values: AWS, HTTP, MOCK"+           <> "'. Accepted values: aws, http, mock"  instance ToText IntegrationType where     toText = \case@@ -227,6 +253,38 @@ instance ToJSON PutMode where     toJSON = toJSONText +data QuotaPeriodType+    = Day+    | Month+    | Week+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText QuotaPeriodType where+    parser = takeLowerText >>= \case+        "day" -> pure Day+        "month" -> pure Month+        "week" -> pure Week+        e -> fromTextError $ "Failure parsing QuotaPeriodType from value: '" <> e+           <> "'. Accepted values: day, month, week"++instance ToText QuotaPeriodType where+    toText = \case+        Day -> "DAY"+        Month -> "MONTH"+        Week -> "WEEK"++instance Hashable     QuotaPeriodType+instance NFData       QuotaPeriodType+instance ToByteString QuotaPeriodType+instance ToQuery      QuotaPeriodType+instance ToHeader     QuotaPeriodType++instance ToJSON QuotaPeriodType where+    toJSON = toJSONText++instance FromJSON QuotaPeriodType where+    parseJSON = parseJSONText "QuotaPeriodType"+ data UnauthorizedCacheControlHeaderStrategy     = FailWith403     | SucceedWithResponseHeader@@ -239,7 +297,7 @@         "succeed_with_response_header" -> pure SucceedWithResponseHeader         "succeed_without_response_header" -> pure SucceedWithoutResponseHeader         e -> fromTextError $ "Failure parsing UnauthorizedCacheControlHeaderStrategy from value: '" <> e-           <> "'. Accepted values: FAIL_WITH_403, SUCCEED_WITH_RESPONSE_HEADER, SUCCEED_WITHOUT_RESPONSE_HEADER"+           <> "'. Accepted values: fail_with_403, succeed_with_response_header, succeed_without_response_header"  instance ToText UnauthorizedCacheControlHeaderStrategy where     toText = \case

@@ -33,6 +33,7 @@     , APIKey     -- * Response Lenses     , akEnabled+    , akValue     , akCreatedDate     , akName     , akId@@ -72,7 +73,7 @@     , _uakApiKey = pApiKey_     } --- | A list of operations describing the updates to apply to the specified resource. The patches are applied in the order specified in the list.+-- | A list of update operations to be applied to the specified resource and in the order specified in this list. uakPatchOperations :: Lens' UpdateAPIKey [PatchOperation] uakPatchOperations = lens _uakPatchOperations (\ s a -> s{_uakPatchOperations = a}) . _Default . _Coerce; 

@@ -31,7 +31,9 @@     , account     , Account     -- * Response Lenses+    , aApiKeyVersion     , aCloudwatchRoleARN+    , aFeatures     , aThrottleSettings     ) where @@ -61,7 +63,7 @@     { _uaPatchOperations = Nothing     } --- | A list of operations describing the updates to apply to the specified resource. The patches are applied in the order specified in the list.+-- | A list of update operations to be applied to the specified resource and in the order specified in this list. uaPatchOperations :: Lens' UpdateAccount [PatchOperation] uaPatchOperations = lens _uaPatchOperations (\ s a -> s{_uaPatchOperations = a}) . _Default . _Coerce; 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Updates an existing < Authorizer> resource.+--+-- <http://docs.aws.amazon.com/cli/latest/reference/apigateway/update-authorizer.html AWS CLI> module Network.AWS.APIGateway.UpdateAuthorizer     (     -- * Creating a Request@@ -35,6 +37,7 @@     -- * Response Lenses     , aAuthorizerURI     , aIdentityValidationExpression+    , aProviderARNs     , aName     , aId     , aAuthorizerResultTtlInSeconds@@ -80,7 +83,7 @@     , _uaaAuthorizerId = pAuthorizerId_     } --- | A list of operations describing the updates to apply to the specified resource. The patches are applied in the order specified in the list.+-- | A list of update operations to be applied to the specified resource and in the order specified in this list. uaaPatchOperations :: Lens' UpdateAuthorizer [PatchOperation] uaaPatchOperations = lens _uaaPatchOperations (\ s a -> s{_uaaPatchOperations = a}) . _Default . _Coerce; 

@@ -74,7 +74,7 @@     , _ubpmBasePath = pBasePath_     } --- | A list of operations describing the updates to apply to the specified resource. The patches are applied in the order specified in the list.+-- | A list of update operations to be applied to the specified resource and in the order specified in this list. ubpmPatchOperations :: Lens' UpdateBasePathMapping [PatchOperation] ubpmPatchOperations = lens _ubpmPatchOperations (\ s a -> s{_ubpmPatchOperations = a}) . _Default . _Coerce; 

@@ -70,7 +70,7 @@     , _uccClientCertificateId = pClientCertificateId_     } --- | A list of operations describing the updates to apply to the specified resource. The patches are applied in the order specified in the list.+-- | A list of update operations to be applied to the specified resource and in the order specified in this list. uccPatchOperations :: Lens' UpdateClientCertificate [PatchOperation] uccPatchOperations = lens _uccPatchOperations (\ s a -> s{_uccPatchOperations = a}) . _Default . _Coerce; 

@@ -75,7 +75,7 @@     , _udDeploymentId = pDeploymentId_     } --- | A list of operations describing the updates to apply to the specified resource. The patches are applied in the order specified in the list.+-- | A list of update operations to be applied to the specified resource and in the order specified in this list. udPatchOperations :: Lens' UpdateDeployment [PatchOperation] udPatchOperations = lens _udPatchOperations (\ s a -> s{_udPatchOperations = a}) . _Default . _Coerce; @@ -83,7 +83,7 @@ udRestAPIId :: Lens' UpdateDeployment Text udRestAPIId = lens _udRestAPIId (\ s a -> s{_udRestAPIId = a}); --- | The replacment identifier for the < Deployment> resource to change information about.+-- | The replacement identifier for the < Deployment> resource to change information about. udDeploymentId :: Lens' UpdateDeployment Text udDeploymentId = lens _udDeploymentId (\ s a -> s{_udDeploymentId = a}); 

@@ -69,7 +69,7 @@     , _udnDomainName = pDomainName_     } --- | A list of operations describing the updates to apply to the specified resource. The patches are applied in the order specified in the list.+-- | A list of update operations to be applied to the specified resource and in the order specified in this list. udnPatchOperations :: Lens' UpdateDomainName [PatchOperation] udnPatchOperations = lens _udnPatchOperations (\ s a -> s{_udnPatchOperations = a}) . _Default . _Coerce; 

@@ -38,6 +38,7 @@     , iRequestTemplates     , iCredentials     , iRequestParameters+    , iPassthroughBehavior     , iUri     , iIntegrationResponses     , iCacheNamespace@@ -86,7 +87,7 @@     , _updHttpMethod = pHttpMethod_     } --- | A list of operations describing the updates to apply to the specified resource. The patches are applied in the order specified in the list.+-- | A list of update operations to be applied to the specified resource and in the order specified in this list. updPatchOperations :: Lens' UpdateIntegration [PatchOperation] updPatchOperations = lens _updPatchOperations (\ s a -> s{_updPatchOperations = a}) . _Default . _Coerce; 

@@ -87,7 +87,7 @@     , _uiStatusCode = pStatusCode_     } --- | A list of operations describing the updates to apply to the specified resource. The patches are applied in the order specified in the list.+-- | A list of update operations to be applied to the specified resource and in the order specified in this list. uiPatchOperations :: Lens' UpdateIntegrationResponse [PatchOperation] uiPatchOperations = lens _uiPatchOperations (\ s a -> s{_uiPatchOperations = a}) . _Default . _Coerce; 

@@ -85,7 +85,7 @@     , _ummHttpMethod = pHttpMethod_     } --- | A list of operations describing the updates to apply to the specified resource. The patches are applied in the order specified in the list.+-- | A list of update operations to be applied to the specified resource and in the order specified in this list. ummPatchOperations :: Lens' UpdateMethod [PatchOperation] ummPatchOperations = lens _ummPatchOperations (\ s a -> s{_ummPatchOperations = a}) . _Default . _Coerce; @@ -97,7 +97,7 @@ ummResourceId :: Lens' UpdateMethod Text ummResourceId = lens _ummResourceId (\ s a -> s{_ummResourceId = a}); --- | The HTTP verb that identifies the < Method> resource.+-- | The HTTP verb of the < Method> resource. ummHttpMethod :: Lens' UpdateMethod Text ummHttpMethod = lens _ummHttpMethod (\ s a -> s{_ummHttpMethod = a}); 

@@ -86,7 +86,7 @@     , _umStatusCode = pStatusCode_     } --- | A list of operations describing the updates to apply to the specified resource. The patches are applied in the order specified in the list.+-- | A list of update operations to be applied to the specified resource and in the order specified in this list. umPatchOperations :: Lens' UpdateMethodResponse [PatchOperation] umPatchOperations = lens _umPatchOperations (\ s a -> s{_umPatchOperations = a}) . _Default . _Coerce; @@ -98,11 +98,11 @@ umResourceId :: Lens' UpdateMethodResponse Text umResourceId = lens _umResourceId (\ s a -> s{_umResourceId = a}); --- | The HTTP verb identifier for the parent < Method> resource.+-- | The HTTP verb of the < Method> resource. umHttpMethod :: Lens' UpdateMethodResponse Text umHttpMethod = lens _umHttpMethod (\ s a -> s{_umHttpMethod = a}); --- | The status code identifier for the < MethodResponse> resource.+-- | The status code for the < MethodResponse> resource. umStatusCode :: Lens' UpdateMethodResponse Text umStatusCode = lens _umStatusCode (\ s a -> s{_umStatusCode = a}); 

@@ -76,7 +76,7 @@     , _uModelName = pModelName_     } --- | A list of operations describing the updates to apply to the specified resource. The patches are applied in the order specified in the list.+-- | A list of update operations to be applied to the specified resource and in the order specified in this list. uPatchOperations :: Lens' UpdateModel [PatchOperation] uPatchOperations = lens _uPatchOperations (\ s a -> s{_uPatchOperations = a}) . _Default . _Coerce; 

@@ -76,7 +76,7 @@     , _urResourceId = pResourceId_     } --- | A list of operations describing the updates to apply to the specified resource. The patches are applied in the order specified in the list.+-- | A list of update operations to be applied to the specified resource and in the order specified in this list. urPatchOperations :: Lens' UpdateResource [PatchOperation] urPatchOperations = lens _urPatchOperations (\ s a -> s{_urPatchOperations = a}) . _Default . _Coerce; 

@@ -70,7 +70,7 @@     , _uraRestAPIId = pRestAPIId_     } --- | A list of operations describing the updates to apply to the specified resource. The patches are applied in the order specified in the list.+-- | A list of update operations to be applied to the specified resource and in the order specified in this list. uraPatchOperations :: Lens' UpdateRestAPI [PatchOperation] uraPatchOperations = lens _uraPatchOperations (\ s a -> s{_uraPatchOperations = a}) . _Default . _Coerce; 

@@ -82,7 +82,7 @@     , _usStageName = pStageName_     } --- | A list of operations describing the updates to apply to the specified resource. The patches are applied in the order specified in the list.+-- | A list of update operations to be applied to the specified resource and in the order specified in this list. usPatchOperations :: Lens' UpdateStage [PatchOperation] usPatchOperations = lens _usPatchOperations (\ s a -> s{_usPatchOperations = a}) . _Default . _Coerce; 

@@ -0,0 +1,119 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.APIGateway.UpdateUsage+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Grants a temporary extension to the reamining quota of a usage plan associated with a specified API key.+module Network.AWS.APIGateway.UpdateUsage+    (+    -- * Creating a Request+      updateUsage+    , UpdateUsage+    -- * Request Lenses+    , uuPatchOperations+    , uuUsagePlanId+    , uuKeyId++    -- * Destructuring the Response+    , usage+    , Usage+    -- * Response Lenses+    , uUsagePlanId+    , uEndDate+    , uItems+    , uStartDate+    , uPosition+    ) where++import           Network.AWS.APIGateway.Types+import           Network.AWS.APIGateway.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The PATCH request to grant a temporary extension to the reamining quota of a usage plan associated with a specified API key.+--+-- /See:/ 'updateUsage' smart constructor.+data UpdateUsage = UpdateUsage'+    { _uuPatchOperations :: !(Maybe [PatchOperation])+    , _uuUsagePlanId     :: !Text+    , _uuKeyId           :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'UpdateUsage' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'uuPatchOperations'+--+-- * 'uuUsagePlanId'+--+-- * 'uuKeyId'+updateUsage+    :: Text -- ^ 'uuUsagePlanId'+    -> Text -- ^ 'uuKeyId'+    -> UpdateUsage+updateUsage pUsagePlanId_ pKeyId_ =+    UpdateUsage'+    { _uuPatchOperations = Nothing+    , _uuUsagePlanId = pUsagePlanId_+    , _uuKeyId = pKeyId_+    }++-- | A list of update operations to be applied to the specified resource and in the order specified in this list.+uuPatchOperations :: Lens' UpdateUsage [PatchOperation]+uuPatchOperations = lens _uuPatchOperations (\ s a -> s{_uuPatchOperations = a}) . _Default . _Coerce;++-- | The Id of the usage plan associated with the usage data.+uuUsagePlanId :: Lens' UpdateUsage Text+uuUsagePlanId = lens _uuUsagePlanId (\ s a -> s{_uuUsagePlanId = a});++-- | The identifier of the API key associated with the usage plan in which a temporary extension is granted to the remaining quota.+uuKeyId :: Lens' UpdateUsage Text+uuKeyId = lens _uuKeyId (\ s a -> s{_uuKeyId = a});++instance AWSRequest UpdateUsage where+        type Rs UpdateUsage = Usage+        request = patchJSON apiGateway+        response = receiveJSON (\ s h x -> eitherParseJSON x)++instance Hashable UpdateUsage++instance NFData UpdateUsage++instance ToHeaders UpdateUsage where+        toHeaders+          = const+              (mconcat+                 ["Accept" =# ("application/json" :: ByteString)])++instance ToJSON UpdateUsage where+        toJSON UpdateUsage'{..}+          = object+              (catMaybes+                 [("patchOperations" .=) <$> _uuPatchOperations])++instance ToPath UpdateUsage where+        toPath UpdateUsage'{..}+          = mconcat+              ["/usageplans/", toBS _uuUsagePlanId, "/keys/",+               toBS _uuKeyId, "/usage"]++instance ToQuery UpdateUsage where+        toQuery = const mempty

@@ -0,0 +1,108 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.APIGateway.UpdateUsagePlan+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a usage plan of a given plan Id.+module Network.AWS.APIGateway.UpdateUsagePlan+    (+    -- * Creating a Request+      updateUsagePlan+    , UpdateUsagePlan+    -- * Request Lenses+    , uupPatchOperations+    , uupUsagePlanId++    -- * Destructuring the Response+    , usagePlan+    , UsagePlan+    -- * Response Lenses+    , upApiStages+    , upName+    , upId+    , upThrottle+    , upQuota+    , upDescription+    ) where++import           Network.AWS.APIGateway.Types+import           Network.AWS.APIGateway.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | The PATCH request to update a usage plan of a given plan Id.+--+-- /See:/ 'updateUsagePlan' smart constructor.+data UpdateUsagePlan = UpdateUsagePlan'+    { _uupPatchOperations :: !(Maybe [PatchOperation])+    , _uupUsagePlanId     :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'UpdateUsagePlan' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'uupPatchOperations'+--+-- * 'uupUsagePlanId'+updateUsagePlan+    :: Text -- ^ 'uupUsagePlanId'+    -> UpdateUsagePlan+updateUsagePlan pUsagePlanId_ =+    UpdateUsagePlan'+    { _uupPatchOperations = Nothing+    , _uupUsagePlanId = pUsagePlanId_+    }++-- | A list of update operations to be applied to the specified resource and in the order specified in this list.+uupPatchOperations :: Lens' UpdateUsagePlan [PatchOperation]+uupPatchOperations = lens _uupPatchOperations (\ s a -> s{_uupPatchOperations = a}) . _Default . _Coerce;++-- | The Id of the to-be-updated usage plan.+uupUsagePlanId :: Lens' UpdateUsagePlan Text+uupUsagePlanId = lens _uupUsagePlanId (\ s a -> s{_uupUsagePlanId = a});++instance AWSRequest UpdateUsagePlan where+        type Rs UpdateUsagePlan = UsagePlan+        request = patchJSON apiGateway+        response = receiveJSON (\ s h x -> eitherParseJSON x)++instance Hashable UpdateUsagePlan++instance NFData UpdateUsagePlan++instance ToHeaders UpdateUsagePlan where+        toHeaders+          = const+              (mconcat+                 ["Accept" =# ("application/json" :: ByteString)])++instance ToJSON UpdateUsagePlan where+        toJSON UpdateUsagePlan'{..}+          = object+              (catMaybes+                 [("patchOperations" .=) <$> _uupPatchOperations])++instance ToPath UpdateUsagePlan where+        toPath UpdateUsagePlan'{..}+          = mconcat ["/usageplans/", toBS _uupUsagePlanId]++instance ToQuery UpdateUsagePlan where+        toQuery = const mempty

@@ -37,6 +37,9 @@ --         , requestGetDeployment $ --             getDeployment --+--         , requestCreateUsagePlan $+--             createUsagePlan+-- --         , requestGetDomainNames $ --             getDomainNames --@@ -85,6 +88,9 @@ --         , requestUpdateAccount $ --             updateAccount --+--         , requestGetUsagePlan $+--             getUsagePlan+-- --         , requestDeleteDeployment $ --             deleteDeployment --@@ -97,6 +103,9 @@ --         , requestUpdateResource $ --             updateResource --+--         , requestGetUsage $+--             getUsage+-- --         , requestCreateModel $ --             createModel --@@ -142,6 +151,9 @@ --         , requestDeleteRestAPI $ --             deleteRestAPI --+--         , requestImportAPIKeys $+--             importAPIKeys+-- --         , requestTestInvokeMethod $ --             testInvokeMethod --@@ -154,6 +166,9 @@ --         , requestPutIntegrationResponse $ --             putIntegrationResponse --+--         , requestGetUsagePlanKeys $+--             getUsagePlanKeys+-- --         , requestFlushStageCache $ --             flushStageCache --@@ -166,6 +181,9 @@ --         , requestUpdateIntegrationResponse $ --             updateIntegrationResponse --+--         , requestUpdateUsage $+--             updateUsage+-- --         , requestDeleteIntegration $ --             deleteIntegration --@@ -181,6 +199,9 @@ --         , requestGetResources $ --             getResources --+--         , requestGetUsagePlanKey $+--             getUsagePlanKey+-- --         , requestGetAccount $ --             getAccount --@@ -190,6 +211,12 @@ --         , requestGetAuthorizer $ --             getAuthorizer --+--         , requestDeleteUsagePlan $+--             deleteUsagePlan+--+--         , requestUpdateUsagePlan $+--             updateUsagePlan+-- --         , requestGetStage $ --             getStage --@@ -214,6 +241,9 @@ --         , requestUpdateClientCertificate $ --             updateClientCertificate --+--         , requestCreateUsagePlanKey $+--             createUsagePlanKey+-- --         , requestCreateAuthorizer $ --             createAuthorizer --@@ -226,9 +256,15 @@ --         , requestCreateStage $ --             createStage --+--         , requestDeleteUsagePlanKey $+--             deleteUsagePlanKey+-- --         , requestCreateAPIKey $ --             createAPIKey --+--         , requestGetUsagePlans $+--             getUsagePlans+-- --         , requestPutMethod $ --             putMethod --@@ -271,6 +307,9 @@ --         , responseGetDeployment $ --             deployment --+--         , responseCreateUsagePlan $+--             usagePlan+-- --         , responseGetDomainNames $ --             getDomainNamesResponse --@@ -319,6 +358,9 @@ --         , responseUpdateAccount $ --             account --+--         , responseGetUsagePlan $+--             usagePlan+-- --         , responseDeleteDeployment $ --             deleteDeploymentResponse --@@ -331,6 +373,9 @@ --         , responseUpdateResource $ --             resource --+--         , responseGetUsage $+--             usage+-- --         , responseCreateModel $ --             model --@@ -376,6 +421,9 @@ --         , responseDeleteRestAPI $ --             deleteRestAPIResponse --+--         , responseImportAPIKeys $+--             importAPIKeysResponse+-- --         , responseTestInvokeMethod $ --             testInvokeMethodResponse --@@ -388,6 +436,9 @@ --         , responsePutIntegrationResponse $ --             integrationResponse --+--         , responseGetUsagePlanKeys $+--             getUsagePlanKeysResponse+-- --         , responseFlushStageCache $ --             flushStageCacheResponse --@@ -400,6 +451,9 @@ --         , responseUpdateIntegrationResponse $ --             integrationResponse --+--         , responseUpdateUsage $+--             usage+-- --         , responseDeleteIntegration $ --             deleteIntegrationResponse' --@@ -415,6 +469,9 @@ --         , responseGetResources $ --             getResourcesResponse --+--         , responseGetUsagePlanKey $+--             usagePlanKey+-- --         , responseGetAccount $ --             account --@@ -424,6 +481,12 @@ --         , responseGetAuthorizer $ --             authorizer --+--         , responseDeleteUsagePlan $+--             deleteUsagePlanResponse+--+--         , responseUpdateUsagePlan $+--             usagePlan+-- --         , responseGetStage $ --             stage --@@ -448,6 +511,9 @@ --         , responseUpdateClientCertificate $ --             clientCertificate --+--         , responseCreateUsagePlanKey $+--             usagePlanKey+-- --         , responseCreateAuthorizer $ --             authorizer --@@ -460,9 +526,15 @@ --         , responseCreateStage $ --             stage --+--         , responseDeleteUsagePlanKey $+--             deleteUsagePlanKeyResponse+-- --         , responseCreateAPIKey $ --             apiKey --+--         , responseGetUsagePlans $+--             getUsagePlansResponse+-- --         , responsePutMethod $ --             method --@@ -513,6 +585,11 @@     "GetDeployment"     "fixture/GetDeployment.yaml" +requestCreateUsagePlan :: CreateUsagePlan -> TestTree+requestCreateUsagePlan = req+    "CreateUsagePlan"+    "fixture/CreateUsagePlan.yaml"+ requestGetDomainNames :: GetDomainNames -> TestTree requestGetDomainNames = req     "GetDomainNames"@@ -593,6 +670,11 @@     "UpdateAccount"     "fixture/UpdateAccount.yaml" +requestGetUsagePlan :: GetUsagePlan -> TestTree+requestGetUsagePlan = req+    "GetUsagePlan"+    "fixture/GetUsagePlan.yaml"+ requestDeleteDeployment :: DeleteDeployment -> TestTree requestDeleteDeployment = req     "DeleteDeployment"@@ -613,6 +695,11 @@     "UpdateResource"     "fixture/UpdateResource.yaml" +requestGetUsage :: GetUsage -> TestTree+requestGetUsage = req+    "GetUsage"+    "fixture/GetUsage.yaml"+ requestCreateModel :: CreateModel -> TestTree requestCreateModel = req     "CreateModel"@@ -688,6 +775,11 @@     "DeleteRestAPI"     "fixture/DeleteRestAPI.yaml" +requestImportAPIKeys :: ImportAPIKeys -> TestTree+requestImportAPIKeys = req+    "ImportAPIKeys"+    "fixture/ImportAPIKeys.yaml"+ requestTestInvokeMethod :: TestInvokeMethod -> TestTree requestTestInvokeMethod = req     "TestInvokeMethod"@@ -708,6 +800,11 @@     "PutIntegrationResponse"     "fixture/PutIntegrationResponse.yaml" +requestGetUsagePlanKeys :: GetUsagePlanKeys -> TestTree+requestGetUsagePlanKeys = req+    "GetUsagePlanKeys"+    "fixture/GetUsagePlanKeys.yaml"+ requestFlushStageCache :: FlushStageCache -> TestTree requestFlushStageCache = req     "FlushStageCache"@@ -728,6 +825,11 @@     "UpdateIntegrationResponse"     "fixture/UpdateIntegrationResponse.yaml" +requestUpdateUsage :: UpdateUsage -> TestTree+requestUpdateUsage = req+    "UpdateUsage"+    "fixture/UpdateUsage.yaml"+ requestDeleteIntegration :: DeleteIntegration -> TestTree requestDeleteIntegration = req     "DeleteIntegration"@@ -753,6 +855,11 @@     "GetResources"     "fixture/GetResources.yaml" +requestGetUsagePlanKey :: GetUsagePlanKey -> TestTree+requestGetUsagePlanKey = req+    "GetUsagePlanKey"+    "fixture/GetUsagePlanKey.yaml"+ requestGetAccount :: GetAccount -> TestTree requestGetAccount = req     "GetAccount"@@ -768,6 +875,16 @@     "GetAuthorizer"     "fixture/GetAuthorizer.yaml" +requestDeleteUsagePlan :: DeleteUsagePlan -> TestTree+requestDeleteUsagePlan = req+    "DeleteUsagePlan"+    "fixture/DeleteUsagePlan.yaml"++requestUpdateUsagePlan :: UpdateUsagePlan -> TestTree+requestUpdateUsagePlan = req+    "UpdateUsagePlan"+    "fixture/UpdateUsagePlan.yaml"+ requestGetStage :: GetStage -> TestTree requestGetStage = req     "GetStage"@@ -808,6 +925,11 @@     "UpdateClientCertificate"     "fixture/UpdateClientCertificate.yaml" +requestCreateUsagePlanKey :: CreateUsagePlanKey -> TestTree+requestCreateUsagePlanKey = req+    "CreateUsagePlanKey"+    "fixture/CreateUsagePlanKey.yaml"+ requestCreateAuthorizer :: CreateAuthorizer -> TestTree requestCreateAuthorizer = req     "CreateAuthorizer"@@ -828,11 +950,21 @@     "CreateStage"     "fixture/CreateStage.yaml" +requestDeleteUsagePlanKey :: DeleteUsagePlanKey -> TestTree+requestDeleteUsagePlanKey = req+    "DeleteUsagePlanKey"+    "fixture/DeleteUsagePlanKey.yaml"+ requestCreateAPIKey :: CreateAPIKey -> TestTree requestCreateAPIKey = req     "CreateAPIKey"     "fixture/CreateAPIKey.yaml" +requestGetUsagePlans :: GetUsagePlans -> TestTree+requestGetUsagePlans = req+    "GetUsagePlans"+    "fixture/GetUsagePlans.yaml"+ requestPutMethod :: PutMethod -> TestTree requestPutMethod = req     "PutMethod"@@ -906,6 +1038,13 @@     apiGateway     (Proxy :: Proxy GetDeployment) +responseCreateUsagePlan :: UsagePlan -> TestTree+responseCreateUsagePlan = res+    "CreateUsagePlanResponse"+    "fixture/CreateUsagePlanResponse.proto"+    apiGateway+    (Proxy :: Proxy CreateUsagePlan)+ responseGetDomainNames :: GetDomainNamesResponse -> TestTree responseGetDomainNames = res     "GetDomainNamesResponse"@@ -1018,6 +1157,13 @@     apiGateway     (Proxy :: Proxy UpdateAccount) +responseGetUsagePlan :: UsagePlan -> TestTree+responseGetUsagePlan = res+    "GetUsagePlanResponse"+    "fixture/GetUsagePlanResponse.proto"+    apiGateway+    (Proxy :: Proxy GetUsagePlan)+ responseDeleteDeployment :: DeleteDeploymentResponse -> TestTree responseDeleteDeployment = res     "DeleteDeploymentResponse"@@ -1046,6 +1192,13 @@     apiGateway     (Proxy :: Proxy UpdateResource) +responseGetUsage :: Usage -> TestTree+responseGetUsage = res+    "GetUsageResponse"+    "fixture/GetUsageResponse.proto"+    apiGateway+    (Proxy :: Proxy GetUsage)+ responseCreateModel :: Model -> TestTree responseCreateModel = res     "CreateModelResponse"@@ -1151,6 +1304,13 @@     apiGateway     (Proxy :: Proxy DeleteRestAPI) +responseImportAPIKeys :: ImportAPIKeysResponse -> TestTree+responseImportAPIKeys = res+    "ImportAPIKeysResponse"+    "fixture/ImportAPIKeysResponse.proto"+    apiGateway+    (Proxy :: Proxy ImportAPIKeys)+ responseTestInvokeMethod :: TestInvokeMethodResponse -> TestTree responseTestInvokeMethod = res     "TestInvokeMethodResponse"@@ -1179,6 +1339,13 @@     apiGateway     (Proxy :: Proxy PutIntegrationResponse) +responseGetUsagePlanKeys :: GetUsagePlanKeysResponse -> TestTree+responseGetUsagePlanKeys = res+    "GetUsagePlanKeysResponse"+    "fixture/GetUsagePlanKeysResponse.proto"+    apiGateway+    (Proxy :: Proxy GetUsagePlanKeys)+ responseFlushStageCache :: FlushStageCacheResponse -> TestTree responseFlushStageCache = res     "FlushStageCacheResponse"@@ -1207,6 +1374,13 @@     apiGateway     (Proxy :: Proxy UpdateIntegrationResponse) +responseUpdateUsage :: Usage -> TestTree+responseUpdateUsage = res+    "UpdateUsageResponse"+    "fixture/UpdateUsageResponse.proto"+    apiGateway+    (Proxy :: Proxy UpdateUsage)+ responseDeleteIntegration :: DeleteIntegrationResponse' -> TestTree responseDeleteIntegration = res     "DeleteIntegrationResponse"@@ -1242,6 +1416,13 @@     apiGateway     (Proxy :: Proxy GetResources) +responseGetUsagePlanKey :: UsagePlanKey -> TestTree+responseGetUsagePlanKey = res+    "GetUsagePlanKeyResponse"+    "fixture/GetUsagePlanKeyResponse.proto"+    apiGateway+    (Proxy :: Proxy GetUsagePlanKey)+ responseGetAccount :: Account -> TestTree responseGetAccount = res     "GetAccountResponse"@@ -1263,6 +1444,20 @@     apiGateway     (Proxy :: Proxy GetAuthorizer) +responseDeleteUsagePlan :: DeleteUsagePlanResponse -> TestTree+responseDeleteUsagePlan = res+    "DeleteUsagePlanResponse"+    "fixture/DeleteUsagePlanResponse.proto"+    apiGateway+    (Proxy :: Proxy DeleteUsagePlan)++responseUpdateUsagePlan :: UsagePlan -> TestTree+responseUpdateUsagePlan = res+    "UpdateUsagePlanResponse"+    "fixture/UpdateUsagePlanResponse.proto"+    apiGateway+    (Proxy :: Proxy UpdateUsagePlan)+ responseGetStage :: Stage -> TestTree responseGetStage = res     "GetStageResponse"@@ -1319,6 +1514,13 @@     apiGateway     (Proxy :: Proxy UpdateClientCertificate) +responseCreateUsagePlanKey :: UsagePlanKey -> TestTree+responseCreateUsagePlanKey = res+    "CreateUsagePlanKeyResponse"+    "fixture/CreateUsagePlanKeyResponse.proto"+    apiGateway+    (Proxy :: Proxy CreateUsagePlanKey)+ responseCreateAuthorizer :: Authorizer -> TestTree responseCreateAuthorizer = res     "CreateAuthorizerResponse"@@ -1347,12 +1549,26 @@     apiGateway     (Proxy :: Proxy CreateStage) +responseDeleteUsagePlanKey :: DeleteUsagePlanKeyResponse -> TestTree+responseDeleteUsagePlanKey = res+    "DeleteUsagePlanKeyResponse"+    "fixture/DeleteUsagePlanKeyResponse.proto"+    apiGateway+    (Proxy :: Proxy DeleteUsagePlanKey)+ responseCreateAPIKey :: APIKey -> TestTree responseCreateAPIKey = res     "CreateAPIKeyResponse"     "fixture/CreateAPIKeyResponse.proto"     apiGateway     (Proxy :: Proxy CreateAPIKey)++responseGetUsagePlans :: GetUsagePlansResponse -> TestTree+responseGetUsagePlans = res+    "GetUsagePlansResponse"+    "fixture/GetUsagePlansResponse.proto"+    apiGateway+    (Proxy :: Proxy GetUsagePlans)  responsePutMethod :: Method -> TestTree responsePutMethod = res