{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.APIGateway.CreateAuthorizer
(
CreateAuthorizer (..),
newCreateAuthorizer,
createAuthorizer_authType,
createAuthorizer_authorizerCredentials,
createAuthorizer_authorizerResultTtlInSeconds,
createAuthorizer_authorizerUri,
createAuthorizer_identitySource,
createAuthorizer_identityValidationExpression,
createAuthorizer_providerARNs,
createAuthorizer_restApiId,
createAuthorizer_name,
createAuthorizer_type,
Authorizer (..),
newAuthorizer,
authorizer_authType,
authorizer_authorizerCredentials,
authorizer_authorizerResultTtlInSeconds,
authorizer_authorizerUri,
authorizer_id,
authorizer_identitySource,
authorizer_identityValidationExpression,
authorizer_name,
authorizer_providerARNs,
authorizer_type,
)
where
import Amazonka.APIGateway.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateAuthorizer = CreateAuthorizer'
{
CreateAuthorizer -> Maybe Text
authType :: Prelude.Maybe Prelude.Text,
CreateAuthorizer -> Maybe Text
authorizerCredentials :: Prelude.Maybe Prelude.Text,
CreateAuthorizer -> Maybe Int
authorizerResultTtlInSeconds :: Prelude.Maybe Prelude.Int,
CreateAuthorizer -> Maybe Text
authorizerUri :: Prelude.Maybe Prelude.Text,
CreateAuthorizer -> Maybe Text
identitySource :: Prelude.Maybe Prelude.Text,
CreateAuthorizer -> Maybe Text
identityValidationExpression :: Prelude.Maybe Prelude.Text,
CreateAuthorizer -> Maybe [Text]
providerARNs :: Prelude.Maybe [Prelude.Text],
CreateAuthorizer -> Text
restApiId :: Prelude.Text,
CreateAuthorizer -> Text
name :: Prelude.Text,
CreateAuthorizer -> AuthorizerType
type' :: AuthorizerType
}
deriving (CreateAuthorizer -> CreateAuthorizer -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateAuthorizer -> CreateAuthorizer -> Bool
$c/= :: CreateAuthorizer -> CreateAuthorizer -> Bool
== :: CreateAuthorizer -> CreateAuthorizer -> Bool
$c== :: CreateAuthorizer -> CreateAuthorizer -> Bool
Prelude.Eq, ReadPrec [CreateAuthorizer]
ReadPrec CreateAuthorizer
Int -> ReadS CreateAuthorizer
ReadS [CreateAuthorizer]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateAuthorizer]
$creadListPrec :: ReadPrec [CreateAuthorizer]
readPrec :: ReadPrec CreateAuthorizer
$creadPrec :: ReadPrec CreateAuthorizer
readList :: ReadS [CreateAuthorizer]
$creadList :: ReadS [CreateAuthorizer]
readsPrec :: Int -> ReadS CreateAuthorizer
$creadsPrec :: Int -> ReadS CreateAuthorizer
Prelude.Read, Int -> CreateAuthorizer -> ShowS
[CreateAuthorizer] -> ShowS
CreateAuthorizer -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateAuthorizer] -> ShowS
$cshowList :: [CreateAuthorizer] -> ShowS
show :: CreateAuthorizer -> String
$cshow :: CreateAuthorizer -> String
showsPrec :: Int -> CreateAuthorizer -> ShowS
$cshowsPrec :: Int -> CreateAuthorizer -> ShowS
Prelude.Show, forall x. Rep CreateAuthorizer x -> CreateAuthorizer
forall x. CreateAuthorizer -> Rep CreateAuthorizer x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateAuthorizer x -> CreateAuthorizer
$cfrom :: forall x. CreateAuthorizer -> Rep CreateAuthorizer x
Prelude.Generic)
newCreateAuthorizer ::
Prelude.Text ->
Prelude.Text ->
AuthorizerType ->
CreateAuthorizer
newCreateAuthorizer :: Text -> Text -> AuthorizerType -> CreateAuthorizer
newCreateAuthorizer Text
pRestApiId_ Text
pName_ AuthorizerType
pType_ =
CreateAuthorizer'
{ $sel:authType:CreateAuthorizer' :: Maybe Text
authType = forall a. Maybe a
Prelude.Nothing,
$sel:authorizerCredentials:CreateAuthorizer' :: Maybe Text
authorizerCredentials = forall a. Maybe a
Prelude.Nothing,
$sel:authorizerResultTtlInSeconds:CreateAuthorizer' :: Maybe Int
authorizerResultTtlInSeconds = forall a. Maybe a
Prelude.Nothing,
$sel:authorizerUri:CreateAuthorizer' :: Maybe Text
authorizerUri = forall a. Maybe a
Prelude.Nothing,
$sel:identitySource:CreateAuthorizer' :: Maybe Text
identitySource = forall a. Maybe a
Prelude.Nothing,
$sel:identityValidationExpression:CreateAuthorizer' :: Maybe Text
identityValidationExpression = forall a. Maybe a
Prelude.Nothing,
$sel:providerARNs:CreateAuthorizer' :: Maybe [Text]
providerARNs = forall a. Maybe a
Prelude.Nothing,
$sel:restApiId:CreateAuthorizer' :: Text
restApiId = Text
pRestApiId_,
$sel:name:CreateAuthorizer' :: Text
name = Text
pName_,
$sel:type':CreateAuthorizer' :: AuthorizerType
type' = AuthorizerType
pType_
}
createAuthorizer_authType :: Lens.Lens' CreateAuthorizer (Prelude.Maybe Prelude.Text)
createAuthorizer_authType :: Lens' CreateAuthorizer (Maybe Text)
createAuthorizer_authType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAuthorizer' {Maybe Text
authType :: Maybe Text
$sel:authType:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
authType} -> Maybe Text
authType) (\s :: CreateAuthorizer
s@CreateAuthorizer' {} Maybe Text
a -> CreateAuthorizer
s {$sel:authType:CreateAuthorizer' :: Maybe Text
authType = Maybe Text
a} :: CreateAuthorizer)
createAuthorizer_authorizerCredentials :: Lens.Lens' CreateAuthorizer (Prelude.Maybe Prelude.Text)
createAuthorizer_authorizerCredentials :: Lens' CreateAuthorizer (Maybe Text)
createAuthorizer_authorizerCredentials = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAuthorizer' {Maybe Text
authorizerCredentials :: Maybe Text
$sel:authorizerCredentials:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
authorizerCredentials} -> Maybe Text
authorizerCredentials) (\s :: CreateAuthorizer
s@CreateAuthorizer' {} Maybe Text
a -> CreateAuthorizer
s {$sel:authorizerCredentials:CreateAuthorizer' :: Maybe Text
authorizerCredentials = Maybe Text
a} :: CreateAuthorizer)
createAuthorizer_authorizerResultTtlInSeconds :: Lens.Lens' CreateAuthorizer (Prelude.Maybe Prelude.Int)
createAuthorizer_authorizerResultTtlInSeconds :: Lens' CreateAuthorizer (Maybe Int)
createAuthorizer_authorizerResultTtlInSeconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAuthorizer' {Maybe Int
authorizerResultTtlInSeconds :: Maybe Int
$sel:authorizerResultTtlInSeconds:CreateAuthorizer' :: CreateAuthorizer -> Maybe Int
authorizerResultTtlInSeconds} -> Maybe Int
authorizerResultTtlInSeconds) (\s :: CreateAuthorizer
s@CreateAuthorizer' {} Maybe Int
a -> CreateAuthorizer
s {$sel:authorizerResultTtlInSeconds:CreateAuthorizer' :: Maybe Int
authorizerResultTtlInSeconds = Maybe Int
a} :: CreateAuthorizer)
createAuthorizer_authorizerUri :: Lens.Lens' CreateAuthorizer (Prelude.Maybe Prelude.Text)
createAuthorizer_authorizerUri :: Lens' CreateAuthorizer (Maybe Text)
createAuthorizer_authorizerUri = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAuthorizer' {Maybe Text
authorizerUri :: Maybe Text
$sel:authorizerUri:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
authorizerUri} -> Maybe Text
authorizerUri) (\s :: CreateAuthorizer
s@CreateAuthorizer' {} Maybe Text
a -> CreateAuthorizer
s {$sel:authorizerUri:CreateAuthorizer' :: Maybe Text
authorizerUri = Maybe Text
a} :: CreateAuthorizer)
createAuthorizer_identitySource :: Lens.Lens' CreateAuthorizer (Prelude.Maybe Prelude.Text)
createAuthorizer_identitySource :: Lens' CreateAuthorizer (Maybe Text)
createAuthorizer_identitySource = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAuthorizer' {Maybe Text
identitySource :: Maybe Text
$sel:identitySource:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
identitySource} -> Maybe Text
identitySource) (\s :: CreateAuthorizer
s@CreateAuthorizer' {} Maybe Text
a -> CreateAuthorizer
s {$sel:identitySource:CreateAuthorizer' :: Maybe Text
identitySource = Maybe Text
a} :: CreateAuthorizer)
createAuthorizer_identityValidationExpression :: Lens.Lens' CreateAuthorizer (Prelude.Maybe Prelude.Text)
createAuthorizer_identityValidationExpression :: Lens' CreateAuthorizer (Maybe Text)
createAuthorizer_identityValidationExpression = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAuthorizer' {Maybe Text
identityValidationExpression :: Maybe Text
$sel:identityValidationExpression:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
identityValidationExpression} -> Maybe Text
identityValidationExpression) (\s :: CreateAuthorizer
s@CreateAuthorizer' {} Maybe Text
a -> CreateAuthorizer
s {$sel:identityValidationExpression:CreateAuthorizer' :: Maybe Text
identityValidationExpression = Maybe Text
a} :: CreateAuthorizer)
createAuthorizer_providerARNs :: Lens.Lens' CreateAuthorizer (Prelude.Maybe [Prelude.Text])
createAuthorizer_providerARNs :: Lens' CreateAuthorizer (Maybe [Text])
createAuthorizer_providerARNs = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAuthorizer' {Maybe [Text]
providerARNs :: Maybe [Text]
$sel:providerARNs:CreateAuthorizer' :: CreateAuthorizer -> Maybe [Text]
providerARNs} -> Maybe [Text]
providerARNs) (\s :: CreateAuthorizer
s@CreateAuthorizer' {} Maybe [Text]
a -> CreateAuthorizer
s {$sel:providerARNs:CreateAuthorizer' :: Maybe [Text]
providerARNs = Maybe [Text]
a} :: CreateAuthorizer) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createAuthorizer_restApiId :: Lens.Lens' CreateAuthorizer Prelude.Text
createAuthorizer_restApiId :: Lens' CreateAuthorizer Text
createAuthorizer_restApiId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAuthorizer' {Text
restApiId :: Text
$sel:restApiId:CreateAuthorizer' :: CreateAuthorizer -> Text
restApiId} -> Text
restApiId) (\s :: CreateAuthorizer
s@CreateAuthorizer' {} Text
a -> CreateAuthorizer
s {$sel:restApiId:CreateAuthorizer' :: Text
restApiId = Text
a} :: CreateAuthorizer)
createAuthorizer_name :: Lens.Lens' CreateAuthorizer Prelude.Text
createAuthorizer_name :: Lens' CreateAuthorizer Text
createAuthorizer_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAuthorizer' {Text
name :: Text
$sel:name:CreateAuthorizer' :: CreateAuthorizer -> Text
name} -> Text
name) (\s :: CreateAuthorizer
s@CreateAuthorizer' {} Text
a -> CreateAuthorizer
s {$sel:name:CreateAuthorizer' :: Text
name = Text
a} :: CreateAuthorizer)
createAuthorizer_type :: Lens.Lens' CreateAuthorizer AuthorizerType
createAuthorizer_type :: Lens' CreateAuthorizer AuthorizerType
createAuthorizer_type = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateAuthorizer' {AuthorizerType
type' :: AuthorizerType
$sel:type':CreateAuthorizer' :: CreateAuthorizer -> AuthorizerType
type'} -> AuthorizerType
type') (\s :: CreateAuthorizer
s@CreateAuthorizer' {} AuthorizerType
a -> CreateAuthorizer
s {$sel:type':CreateAuthorizer' :: AuthorizerType
type' = AuthorizerType
a} :: CreateAuthorizer)
instance Core.AWSRequest CreateAuthorizer where
type AWSResponse CreateAuthorizer = Authorizer
request :: (Service -> Service)
-> CreateAuthorizer -> Request CreateAuthorizer
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy CreateAuthorizer
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateAuthorizer)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
(\Int
s ResponseHeaders
h Object
x -> forall a. FromJSON a => Object -> Either String a
Data.eitherParseJSON Object
x)
instance Prelude.Hashable CreateAuthorizer where
hashWithSalt :: Int -> CreateAuthorizer -> Int
hashWithSalt Int
_salt CreateAuthorizer' {Maybe Int
Maybe [Text]
Maybe Text
Text
AuthorizerType
type' :: AuthorizerType
name :: Text
restApiId :: Text
providerARNs :: Maybe [Text]
identityValidationExpression :: Maybe Text
identitySource :: Maybe Text
authorizerUri :: Maybe Text
authorizerResultTtlInSeconds :: Maybe Int
authorizerCredentials :: Maybe Text
authType :: Maybe Text
$sel:type':CreateAuthorizer' :: CreateAuthorizer -> AuthorizerType
$sel:name:CreateAuthorizer' :: CreateAuthorizer -> Text
$sel:restApiId:CreateAuthorizer' :: CreateAuthorizer -> Text
$sel:providerARNs:CreateAuthorizer' :: CreateAuthorizer -> Maybe [Text]
$sel:identityValidationExpression:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
$sel:identitySource:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
$sel:authorizerUri:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
$sel:authorizerResultTtlInSeconds:CreateAuthorizer' :: CreateAuthorizer -> Maybe Int
$sel:authorizerCredentials:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
$sel:authType:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
authType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
authorizerCredentials
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
authorizerResultTtlInSeconds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
authorizerUri
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
identitySource
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
identityValidationExpression
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
providerARNs
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
restApiId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` AuthorizerType
type'
instance Prelude.NFData CreateAuthorizer where
rnf :: CreateAuthorizer -> ()
rnf CreateAuthorizer' {Maybe Int
Maybe [Text]
Maybe Text
Text
AuthorizerType
type' :: AuthorizerType
name :: Text
restApiId :: Text
providerARNs :: Maybe [Text]
identityValidationExpression :: Maybe Text
identitySource :: Maybe Text
authorizerUri :: Maybe Text
authorizerResultTtlInSeconds :: Maybe Int
authorizerCredentials :: Maybe Text
authType :: Maybe Text
$sel:type':CreateAuthorizer' :: CreateAuthorizer -> AuthorizerType
$sel:name:CreateAuthorizer' :: CreateAuthorizer -> Text
$sel:restApiId:CreateAuthorizer' :: CreateAuthorizer -> Text
$sel:providerARNs:CreateAuthorizer' :: CreateAuthorizer -> Maybe [Text]
$sel:identityValidationExpression:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
$sel:identitySource:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
$sel:authorizerUri:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
$sel:authorizerResultTtlInSeconds:CreateAuthorizer' :: CreateAuthorizer -> Maybe Int
$sel:authorizerCredentials:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
$sel:authType:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
authType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
authorizerCredentials
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
authorizerResultTtlInSeconds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
authorizerUri
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
identitySource
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
identityValidationExpression
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
providerARNs
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
restApiId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf AuthorizerType
type'
instance Data.ToHeaders CreateAuthorizer where
toHeaders :: CreateAuthorizer -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Accept"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# (ByteString
"application/json" :: Prelude.ByteString)
]
)
instance Data.ToJSON CreateAuthorizer where
toJSON :: CreateAuthorizer -> Value
toJSON CreateAuthorizer' {Maybe Int
Maybe [Text]
Maybe Text
Text
AuthorizerType
type' :: AuthorizerType
name :: Text
restApiId :: Text
providerARNs :: Maybe [Text]
identityValidationExpression :: Maybe Text
identitySource :: Maybe Text
authorizerUri :: Maybe Text
authorizerResultTtlInSeconds :: Maybe Int
authorizerCredentials :: Maybe Text
authType :: Maybe Text
$sel:type':CreateAuthorizer' :: CreateAuthorizer -> AuthorizerType
$sel:name:CreateAuthorizer' :: CreateAuthorizer -> Text
$sel:restApiId:CreateAuthorizer' :: CreateAuthorizer -> Text
$sel:providerARNs:CreateAuthorizer' :: CreateAuthorizer -> Maybe [Text]
$sel:identityValidationExpression:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
$sel:identitySource:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
$sel:authorizerUri:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
$sel:authorizerResultTtlInSeconds:CreateAuthorizer' :: CreateAuthorizer -> Maybe Int
$sel:authorizerCredentials:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
$sel:authType:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"authType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
authType,
(Key
"authorizerCredentials" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
authorizerCredentials,
(Key
"authorizerResultTtlInSeconds" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Int
authorizerResultTtlInSeconds,
(Key
"authorizerUri" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
authorizerUri,
(Key
"identitySource" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
identitySource,
(Key
"identityValidationExpression" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
identityValidationExpression,
(Key
"providerARNs" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
providerARNs,
forall a. a -> Maybe a
Prelude.Just (Key
"name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
name),
forall a. a -> Maybe a
Prelude.Just (Key
"type" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= AuthorizerType
type')
]
)
instance Data.ToPath CreateAuthorizer where
toPath :: CreateAuthorizer -> ByteString
toPath CreateAuthorizer' {Maybe Int
Maybe [Text]
Maybe Text
Text
AuthorizerType
type' :: AuthorizerType
name :: Text
restApiId :: Text
providerARNs :: Maybe [Text]
identityValidationExpression :: Maybe Text
identitySource :: Maybe Text
authorizerUri :: Maybe Text
authorizerResultTtlInSeconds :: Maybe Int
authorizerCredentials :: Maybe Text
authType :: Maybe Text
$sel:type':CreateAuthorizer' :: CreateAuthorizer -> AuthorizerType
$sel:name:CreateAuthorizer' :: CreateAuthorizer -> Text
$sel:restApiId:CreateAuthorizer' :: CreateAuthorizer -> Text
$sel:providerARNs:CreateAuthorizer' :: CreateAuthorizer -> Maybe [Text]
$sel:identityValidationExpression:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
$sel:identitySource:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
$sel:authorizerUri:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
$sel:authorizerResultTtlInSeconds:CreateAuthorizer' :: CreateAuthorizer -> Maybe Int
$sel:authorizerCredentials:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
$sel:authType:CreateAuthorizer' :: CreateAuthorizer -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/restapis/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
restApiId, ByteString
"/authorizers"]
instance Data.ToQuery CreateAuthorizer where
toQuery :: CreateAuthorizer -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty