Skip to content

Commit

Permalink
Regenerating APIGateway from latest service definition
Browse files Browse the repository at this point in the history
  • Loading branch information
brendanhay committed May 4, 2016
1 parent 3b047a4 commit e57d291
Show file tree
Hide file tree
Showing 31 changed files with 551 additions and 83 deletions.
2 changes: 2 additions & 0 deletions amazonka-apigateway/amazonka-apigateway.cabal
Original file line number Diff line number Diff line change
Expand Up @@ -101,10 +101,12 @@ library
, Network.AWS.APIGateway.GetSDK
, Network.AWS.APIGateway.GetStage
, Network.AWS.APIGateway.GetStages
, Network.AWS.APIGateway.ImportRestAPI
, Network.AWS.APIGateway.PutIntegration
, Network.AWS.APIGateway.PutIntegrationResponse
, Network.AWS.APIGateway.PutMethod
, Network.AWS.APIGateway.PutMethodResponse
, Network.AWS.APIGateway.PutRestAPI
, Network.AWS.APIGateway.TestInvokeAuthorizer
, Network.AWS.APIGateway.TestInvokeMethod
, Network.AWS.APIGateway.Types
Expand Down
Empty file.
Empty file.
Empty file.
Empty file.
13 changes: 13 additions & 0 deletions amazonka-apigateway/gen/Network/AWS/APIGateway.hs
Original file line number Diff line number Diff line change
Expand Up @@ -80,6 +80,9 @@ module Network.AWS.APIGateway
-- ** PutMethodResponse
, module Network.AWS.APIGateway.PutMethodResponse

-- ** ImportRestAPI
, module Network.AWS.APIGateway.ImportRestAPI

-- ** DeleteMethodResponse
, module Network.AWS.APIGateway.DeleteMethodResponse

Expand Down Expand Up @@ -149,6 +152,9 @@ module Network.AWS.APIGateway
-- ** GetStages
, module Network.AWS.APIGateway.GetStages

-- ** PutRestAPI
, module Network.AWS.APIGateway.PutRestAPI

-- ** GetMethod
, module Network.AWS.APIGateway.GetMethod

Expand Down Expand Up @@ -295,6 +301,9 @@ module Network.AWS.APIGateway
-- ** Op
, Op (..)

-- ** PutMode
, PutMode (..)

-- ** UnauthorizedCacheControlHeaderStrategy
, UnauthorizedCacheControlHeaderStrategy (..)

Expand Down Expand Up @@ -323,6 +332,7 @@ module Network.AWS.APIGateway
, aName
, aId
, aAuthorizerResultTtlInSeconds
, aAuthType
, aType
, aIdentitySource
, aAuthorizerCredentials
Expand Down Expand Up @@ -448,6 +458,7 @@ module Network.AWS.APIGateway
-- ** RestAPI
, RestAPI
, restAPI
, raWarnings
, raCreatedDate
, raName
, raId
Expand Down Expand Up @@ -535,10 +546,12 @@ import Network.AWS.APIGateway.GetRestAPIs
import Network.AWS.APIGateway.GetSDK
import Network.AWS.APIGateway.GetStage
import Network.AWS.APIGateway.GetStages
import Network.AWS.APIGateway.ImportRestAPI
import Network.AWS.APIGateway.PutIntegration
import Network.AWS.APIGateway.PutIntegrationResponse
import Network.AWS.APIGateway.PutMethod
import Network.AWS.APIGateway.PutMethodResponse
import Network.AWS.APIGateway.PutRestAPI
import Network.AWS.APIGateway.TestInvokeAuthorizer
import Network.AWS.APIGateway.TestInvokeMethod
import Network.AWS.APIGateway.Types
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,7 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Undocumented operation.
-- Create an < ApiKey> resource.
module Network.AWS.APIGateway.CreateAPIKey
(
-- * Creating a Request
Expand Down Expand Up @@ -50,7 +50,9 @@ import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response

-- | /See:/ 'createAPIKey' smart constructor.
-- | Request to create an < ApiKey> resource.
--
-- /See:/ 'createAPIKey' smart constructor.
data CreateAPIKey = CreateAPIKey'
{ _cakEnabled :: !(Maybe Bool)
, _cakName :: !(Maybe Text)
Expand Down
20 changes: 17 additions & 3 deletions amazonka-apigateway/gen/Network/AWS/APIGateway/CreateAuthorizer.hs
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,7 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Undocumented operation.
-- Adds a new < Authorizer> resource to an existing < RestApi> resource.
module Network.AWS.APIGateway.CreateAuthorizer
(
-- * Creating a Request
Expand All @@ -27,6 +27,7 @@ module Network.AWS.APIGateway.CreateAuthorizer
-- * Request Lenses
, caIdentityValidationExpression
, caAuthorizerResultTtlInSeconds
, caAuthType
, caAuthorizerCredentials
, caRestAPIId
, caName
Expand All @@ -43,6 +44,7 @@ module Network.AWS.APIGateway.CreateAuthorizer
, aName
, aId
, aAuthorizerResultTtlInSeconds
, aAuthType
, aType
, aIdentitySource
, aAuthorizerCredentials
Expand All @@ -55,10 +57,13 @@ import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response

-- | /See:/ 'createAuthorizer' smart constructor.
-- | Request to add a new < Authorizer> to an existing < RestApi> resource.
--
-- /See:/ 'createAuthorizer' smart constructor.
data CreateAuthorizer = CreateAuthorizer'
{ _caIdentityValidationExpression :: !(Maybe Text)
, _caAuthorizerResultTtlInSeconds :: !(Maybe Int)
, _caAuthType :: !(Maybe Text)
, _caAuthorizerCredentials :: !(Maybe Text)
, _caRestAPIId :: !Text
, _caName :: !Text
Expand All @@ -75,6 +80,8 @@ data CreateAuthorizer = CreateAuthorizer'
--
-- * 'caAuthorizerResultTtlInSeconds'
--
-- * 'caAuthType'
--
-- * 'caAuthorizerCredentials'
--
-- * 'caRestAPIId'
Expand All @@ -97,6 +104,7 @@ createAuthorizer pRestAPIId_ pName_ pType_ pAuthorizerURI_ pIdentitySource_ =
CreateAuthorizer'
{ _caIdentityValidationExpression = Nothing
, _caAuthorizerResultTtlInSeconds = Nothing
, _caAuthType = Nothing
, _caAuthorizerCredentials = Nothing
, _caRestAPIId = pRestAPIId_
, _caName = pName_
Expand All @@ -113,11 +121,16 @@ caIdentityValidationExpression = lens _caIdentityValidationExpression (\ s a ->
caAuthorizerResultTtlInSeconds :: Lens' CreateAuthorizer (Maybe Int)
caAuthorizerResultTtlInSeconds = lens _caAuthorizerResultTtlInSeconds (\ s a -> s{_caAuthorizerResultTtlInSeconds = a});

-- | Optional customer-defined field, used in Swagger imports\/exports. Has
-- no functional impact.
caAuthType :: Lens' CreateAuthorizer (Maybe Text)
caAuthType = lens _caAuthType (\ s a -> s{_caAuthType = a});

-- | Specifies the credentials required for the authorizer, if any.
caAuthorizerCredentials :: Lens' CreateAuthorizer (Maybe Text)
caAuthorizerCredentials = lens _caAuthorizerCredentials (\ s a -> s{_caAuthorizerCredentials = a});

-- | Undocumented member.
-- | The < RestApi> identifier under which the < Authorizer> will be created.
caRestAPIId :: Lens' CreateAuthorizer Text
caRestAPIId = lens _caRestAPIId (\ s a -> s{_caRestAPIId = a});

Expand Down Expand Up @@ -161,6 +174,7 @@ instance ToJSON CreateAuthorizer where
_caIdentityValidationExpression,
("authorizerResultTtlInSeconds" .=) <$>
_caAuthorizerResultTtlInSeconds,
("authType" .=) <$> _caAuthType,
("authorizerCredentials" .=) <$>
_caAuthorizerCredentials,
Just ("name" .= _caName), Just ("type" .= _caType),
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -33,6 +33,7 @@ module Network.AWS.APIGateway.CreateRestAPI
, restAPI
, RestAPI
-- * Response Lenses
, raWarnings
, raCreatedDate
, raName
, raId
Expand All @@ -46,7 +47,7 @@ import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response

-- | Request to add a new < RestApi> resource to your collection.
-- | The POST Request to add a new < RestApi> resource to your collection.
--
-- /See:/ 'createRestAPI' smart constructor.
data CreateRestAPI = CreateRestAPI'
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,7 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Undocumented operation.
-- Deletes the < ClientCertificate> resource.
module Network.AWS.APIGateway.DeleteClientCertificate
(
-- * Creating a Request
Expand All @@ -39,7 +39,9 @@ import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response

-- | /See:/ 'deleteClientCertificate' smart constructor.
-- | A request to delete the < ClientCertificate> resource.
--
-- /See:/ 'deleteClientCertificate' smart constructor.
newtype DeleteClientCertificate = DeleteClientCertificate'
{ _dccClientCertificateId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
Expand All @@ -57,7 +59,7 @@ deleteClientCertificate pClientCertificateId_ =
{ _dccClientCertificateId = pClientCertificateId_
}

-- | Undocumented member.
-- | The identifier of the < ClientCertificate> resource to be deleted.
dccClientCertificateId :: Lens' DeleteClientCertificate Text
dccClientCertificateId = lens _dccClientCertificateId (\ s a -> s{_dccClientCertificateId = a});

Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,7 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Undocumented operation.
-- Generates a < ClientCertificate> resource.
module Network.AWS.APIGateway.GenerateClientCertificate
(
-- * Creating a Request
Expand All @@ -45,7 +45,9 @@ import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response

-- | /See:/ 'generateClientCertificate' smart constructor.
-- | A request to generate a < ClientCertificate> resource.
--
-- /See:/ 'generateClientCertificate' smart constructor.
newtype GenerateClientCertificate = GenerateClientCertificate'
{ _gccDescription :: Maybe Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
Expand All @@ -62,7 +64,7 @@ generateClientCertificate =
{ _gccDescription = Nothing
}

-- | Undocumented member.
-- | The description of the < ClientCertificate>.
gccDescription :: Lens' GenerateClientCertificate (Maybe Text)
gccDescription = lens _gccDescription (\ s a -> s{_gccDescription = a});

Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -37,6 +37,7 @@ module Network.AWS.APIGateway.GetAuthorizer
, aName
, aId
, aAuthorizerResultTtlInSeconds
, aAuthType
, aType
, aIdentitySource
, aAuthorizerCredentials
Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -73,11 +73,12 @@ getAuthorizers pRestAPIId_ =
, _gaRestAPIId = pRestAPIId_
}

-- | Undocumented member.
-- | Limit the number of < Authorizer> resources in the response.
gaLimit :: Lens' GetAuthorizers (Maybe Int)
gaLimit = lens _gaLimit (\ s a -> s{_gaLimit = a});

-- | Undocumented member.
-- | If not all < Authorizer> resources in the response were present, the
-- position will specificy where to start the next page of results.
gaPosition :: Lens' GetAuthorizers (Maybe Text)
gaPosition = lens _gaPosition (\ s a -> s{_gaPosition = a});

Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,7 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Undocumented operation.
-- Gets information about the current < ClientCertificate> resource.
module Network.AWS.APIGateway.GetClientCertificate
(
-- * Creating a Request
Expand All @@ -45,7 +45,10 @@ import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response

-- | /See:/ 'getClientCertificate' smart constructor.
-- | A request to get information about the current < ClientCertificate>
-- resource.
--
-- /See:/ 'getClientCertificate' smart constructor.
newtype GetClientCertificate = GetClientCertificate'
{ _gccClientCertificateId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
Expand All @@ -63,7 +66,7 @@ getClientCertificate pClientCertificateId_ =
{ _gccClientCertificateId = pClientCertificateId_
}

-- | Undocumented member.
-- | The identifier of the < ClientCertificate> resource to be described.
gccClientCertificateId :: Lens' GetClientCertificate Text
gccClientCertificateId = lens _gccClientCertificateId (\ s a -> s{_gccClientCertificateId = a});

Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -18,7 +18,7 @@
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Undocumented operation.
-- Gets a collection of < ClientCertificate> resources.
--
-- This operation returns paginated results.
module Network.AWS.APIGateway.GetClientCertificates
Expand Down Expand Up @@ -47,7 +47,10 @@ import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response

-- | /See:/ 'getClientCertificates' smart constructor.
-- | A request to get information about a collection of < ClientCertificate>
-- resources.
--
-- /See:/ 'getClientCertificates' smart constructor.
data GetClientCertificates = GetClientCertificates'
{ _gccLimit :: !(Maybe Int)
, _gccPosition :: !(Maybe Text)
Expand All @@ -68,11 +71,14 @@ getClientCertificates =
, _gccPosition = Nothing
}

-- | Undocumented member.
-- | The maximum number of < ClientCertificate> resources in the collection
-- to get information about. The default limit is 25. It should be an
-- integer between 1 - 500.
gccLimit :: Lens' GetClientCertificates (Maybe Int)
gccLimit = lens _gccLimit (\ s a -> s{_gccLimit = a});

-- | Undocumented member.
-- | The position of the current < ClientCertificate> resource in the
-- collection to get information about.
gccPosition :: Lens' GetClientCertificates (Maybe Text)
gccPosition = lens _gccPosition (\ s a -> s{_gccPosition = a});

Expand Down Expand Up @@ -112,7 +118,9 @@ instance ToQuery GetClientCertificates where
= mconcat
["limit" =: _gccLimit, "position" =: _gccPosition]

-- | /See:/ 'getClientCertificatesResponse' smart constructor.
-- | Represents a collection of < ClientCertificate> resources.
--
-- /See:/ 'getClientCertificatesResponse' smart constructor.
data GetClientCertificatesResponse = GetClientCertificatesResponse'
{ _gccrsItems :: !(Maybe [ClientCertificate])
, _gccrsPosition :: !(Maybe Text)
Expand All @@ -138,7 +146,8 @@ getClientCertificatesResponse pResponseStatus_ =
, _gccrsResponseStatus = pResponseStatus_
}

-- | Undocumented member.
-- | The current page of any < ClientCertificate> resources in the collection
-- of < ClientCertificate> resources.
gccrsItems :: Lens' GetClientCertificatesResponse [ClientCertificate]
gccrsItems = lens _gccrsItems (\ s a -> s{_gccrsItems = a}) . _Default . _Coerce;

Expand Down
Loading

0 comments on commit e57d291

Please sign in to comment.