{-# 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.RDS.CreateDBProxy
(
CreateDBProxy (..),
newCreateDBProxy,
createDBProxy_debugLogging,
createDBProxy_idleClientTimeout,
createDBProxy_requireTLS,
createDBProxy_tags,
createDBProxy_vpcSecurityGroupIds,
createDBProxy_dbProxyName,
createDBProxy_engineFamily,
createDBProxy_auth,
createDBProxy_roleArn,
createDBProxy_vpcSubnetIds,
CreateDBProxyResponse (..),
newCreateDBProxyResponse,
createDBProxyResponse_dbProxy,
createDBProxyResponse_httpStatus,
)
where
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 Amazonka.RDS.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateDBProxy = CreateDBProxy'
{
CreateDBProxy -> Maybe Bool
debugLogging :: Prelude.Maybe Prelude.Bool,
CreateDBProxy -> Maybe Int
idleClientTimeout :: Prelude.Maybe Prelude.Int,
CreateDBProxy -> Maybe Bool
requireTLS :: Prelude.Maybe Prelude.Bool,
CreateDBProxy -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateDBProxy -> Maybe [Text]
vpcSecurityGroupIds :: Prelude.Maybe [Prelude.Text],
CreateDBProxy -> Text
dbProxyName :: Prelude.Text,
CreateDBProxy -> EngineFamily
engineFamily :: EngineFamily,
CreateDBProxy -> [UserAuthConfig]
auth :: [UserAuthConfig],
CreateDBProxy -> Text
roleArn :: Prelude.Text,
CreateDBProxy -> [Text]
vpcSubnetIds :: [Prelude.Text]
}
deriving (CreateDBProxy -> CreateDBProxy -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateDBProxy -> CreateDBProxy -> Bool
$c/= :: CreateDBProxy -> CreateDBProxy -> Bool
== :: CreateDBProxy -> CreateDBProxy -> Bool
$c== :: CreateDBProxy -> CreateDBProxy -> Bool
Prelude.Eq, ReadPrec [CreateDBProxy]
ReadPrec CreateDBProxy
Int -> ReadS CreateDBProxy
ReadS [CreateDBProxy]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateDBProxy]
$creadListPrec :: ReadPrec [CreateDBProxy]
readPrec :: ReadPrec CreateDBProxy
$creadPrec :: ReadPrec CreateDBProxy
readList :: ReadS [CreateDBProxy]
$creadList :: ReadS [CreateDBProxy]
readsPrec :: Int -> ReadS CreateDBProxy
$creadsPrec :: Int -> ReadS CreateDBProxy
Prelude.Read, Int -> CreateDBProxy -> ShowS
[CreateDBProxy] -> ShowS
CreateDBProxy -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateDBProxy] -> ShowS
$cshowList :: [CreateDBProxy] -> ShowS
show :: CreateDBProxy -> String
$cshow :: CreateDBProxy -> String
showsPrec :: Int -> CreateDBProxy -> ShowS
$cshowsPrec :: Int -> CreateDBProxy -> ShowS
Prelude.Show, forall x. Rep CreateDBProxy x -> CreateDBProxy
forall x. CreateDBProxy -> Rep CreateDBProxy x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateDBProxy x -> CreateDBProxy
$cfrom :: forall x. CreateDBProxy -> Rep CreateDBProxy x
Prelude.Generic)
newCreateDBProxy ::
Prelude.Text ->
EngineFamily ->
Prelude.Text ->
CreateDBProxy
newCreateDBProxy :: Text -> EngineFamily -> Text -> CreateDBProxy
newCreateDBProxy
Text
pDBProxyName_
EngineFamily
pEngineFamily_
Text
pRoleArn_ =
CreateDBProxy'
{ $sel:debugLogging:CreateDBProxy' :: Maybe Bool
debugLogging = forall a. Maybe a
Prelude.Nothing,
$sel:idleClientTimeout:CreateDBProxy' :: Maybe Int
idleClientTimeout = forall a. Maybe a
Prelude.Nothing,
$sel:requireTLS:CreateDBProxy' :: Maybe Bool
requireTLS = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateDBProxy' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:vpcSecurityGroupIds:CreateDBProxy' :: Maybe [Text]
vpcSecurityGroupIds = forall a. Maybe a
Prelude.Nothing,
$sel:dbProxyName:CreateDBProxy' :: Text
dbProxyName = Text
pDBProxyName_,
$sel:engineFamily:CreateDBProxy' :: EngineFamily
engineFamily = EngineFamily
pEngineFamily_,
$sel:auth:CreateDBProxy' :: [UserAuthConfig]
auth = forall a. Monoid a => a
Prelude.mempty,
$sel:roleArn:CreateDBProxy' :: Text
roleArn = Text
pRoleArn_,
$sel:vpcSubnetIds:CreateDBProxy' :: [Text]
vpcSubnetIds = forall a. Monoid a => a
Prelude.mempty
}
createDBProxy_debugLogging :: Lens.Lens' CreateDBProxy (Prelude.Maybe Prelude.Bool)
createDBProxy_debugLogging :: Lens' CreateDBProxy (Maybe Bool)
createDBProxy_debugLogging = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDBProxy' {Maybe Bool
debugLogging :: Maybe Bool
$sel:debugLogging:CreateDBProxy' :: CreateDBProxy -> Maybe Bool
debugLogging} -> Maybe Bool
debugLogging) (\s :: CreateDBProxy
s@CreateDBProxy' {} Maybe Bool
a -> CreateDBProxy
s {$sel:debugLogging:CreateDBProxy' :: Maybe Bool
debugLogging = Maybe Bool
a} :: CreateDBProxy)
createDBProxy_idleClientTimeout :: Lens.Lens' CreateDBProxy (Prelude.Maybe Prelude.Int)
createDBProxy_idleClientTimeout :: Lens' CreateDBProxy (Maybe Int)
createDBProxy_idleClientTimeout = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDBProxy' {Maybe Int
idleClientTimeout :: Maybe Int
$sel:idleClientTimeout:CreateDBProxy' :: CreateDBProxy -> Maybe Int
idleClientTimeout} -> Maybe Int
idleClientTimeout) (\s :: CreateDBProxy
s@CreateDBProxy' {} Maybe Int
a -> CreateDBProxy
s {$sel:idleClientTimeout:CreateDBProxy' :: Maybe Int
idleClientTimeout = Maybe Int
a} :: CreateDBProxy)
createDBProxy_requireTLS :: Lens.Lens' CreateDBProxy (Prelude.Maybe Prelude.Bool)
createDBProxy_requireTLS :: Lens' CreateDBProxy (Maybe Bool)
createDBProxy_requireTLS = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDBProxy' {Maybe Bool
requireTLS :: Maybe Bool
$sel:requireTLS:CreateDBProxy' :: CreateDBProxy -> Maybe Bool
requireTLS} -> Maybe Bool
requireTLS) (\s :: CreateDBProxy
s@CreateDBProxy' {} Maybe Bool
a -> CreateDBProxy
s {$sel:requireTLS:CreateDBProxy' :: Maybe Bool
requireTLS = Maybe Bool
a} :: CreateDBProxy)
createDBProxy_tags :: Lens.Lens' CreateDBProxy (Prelude.Maybe [Tag])
createDBProxy_tags :: Lens' CreateDBProxy (Maybe [Tag])
createDBProxy_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDBProxy' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateDBProxy' :: CreateDBProxy -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateDBProxy
s@CreateDBProxy' {} Maybe [Tag]
a -> CreateDBProxy
s {$sel:tags:CreateDBProxy' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateDBProxy) 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
createDBProxy_vpcSecurityGroupIds :: Lens.Lens' CreateDBProxy (Prelude.Maybe [Prelude.Text])
createDBProxy_vpcSecurityGroupIds :: Lens' CreateDBProxy (Maybe [Text])
createDBProxy_vpcSecurityGroupIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDBProxy' {Maybe [Text]
vpcSecurityGroupIds :: Maybe [Text]
$sel:vpcSecurityGroupIds:CreateDBProxy' :: CreateDBProxy -> Maybe [Text]
vpcSecurityGroupIds} -> Maybe [Text]
vpcSecurityGroupIds) (\s :: CreateDBProxy
s@CreateDBProxy' {} Maybe [Text]
a -> CreateDBProxy
s {$sel:vpcSecurityGroupIds:CreateDBProxy' :: Maybe [Text]
vpcSecurityGroupIds = Maybe [Text]
a} :: CreateDBProxy) 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
createDBProxy_dbProxyName :: Lens.Lens' CreateDBProxy Prelude.Text
createDBProxy_dbProxyName :: Lens' CreateDBProxy Text
createDBProxy_dbProxyName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDBProxy' {Text
dbProxyName :: Text
$sel:dbProxyName:CreateDBProxy' :: CreateDBProxy -> Text
dbProxyName} -> Text
dbProxyName) (\s :: CreateDBProxy
s@CreateDBProxy' {} Text
a -> CreateDBProxy
s {$sel:dbProxyName:CreateDBProxy' :: Text
dbProxyName = Text
a} :: CreateDBProxy)
createDBProxy_engineFamily :: Lens.Lens' CreateDBProxy EngineFamily
createDBProxy_engineFamily :: Lens' CreateDBProxy EngineFamily
createDBProxy_engineFamily = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDBProxy' {EngineFamily
engineFamily :: EngineFamily
$sel:engineFamily:CreateDBProxy' :: CreateDBProxy -> EngineFamily
engineFamily} -> EngineFamily
engineFamily) (\s :: CreateDBProxy
s@CreateDBProxy' {} EngineFamily
a -> CreateDBProxy
s {$sel:engineFamily:CreateDBProxy' :: EngineFamily
engineFamily = EngineFamily
a} :: CreateDBProxy)
createDBProxy_auth :: Lens.Lens' CreateDBProxy [UserAuthConfig]
createDBProxy_auth :: Lens' CreateDBProxy [UserAuthConfig]
createDBProxy_auth = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDBProxy' {[UserAuthConfig]
auth :: [UserAuthConfig]
$sel:auth:CreateDBProxy' :: CreateDBProxy -> [UserAuthConfig]
auth} -> [UserAuthConfig]
auth) (\s :: CreateDBProxy
s@CreateDBProxy' {} [UserAuthConfig]
a -> CreateDBProxy
s {$sel:auth:CreateDBProxy' :: [UserAuthConfig]
auth = [UserAuthConfig]
a} :: CreateDBProxy) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
createDBProxy_roleArn :: Lens.Lens' CreateDBProxy Prelude.Text
createDBProxy_roleArn :: Lens' CreateDBProxy Text
createDBProxy_roleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDBProxy' {Text
roleArn :: Text
$sel:roleArn:CreateDBProxy' :: CreateDBProxy -> Text
roleArn} -> Text
roleArn) (\s :: CreateDBProxy
s@CreateDBProxy' {} Text
a -> CreateDBProxy
s {$sel:roleArn:CreateDBProxy' :: Text
roleArn = Text
a} :: CreateDBProxy)
createDBProxy_vpcSubnetIds :: Lens.Lens' CreateDBProxy [Prelude.Text]
createDBProxy_vpcSubnetIds :: Lens' CreateDBProxy [Text]
createDBProxy_vpcSubnetIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDBProxy' {[Text]
vpcSubnetIds :: [Text]
$sel:vpcSubnetIds:CreateDBProxy' :: CreateDBProxy -> [Text]
vpcSubnetIds} -> [Text]
vpcSubnetIds) (\s :: CreateDBProxy
s@CreateDBProxy' {} [Text]
a -> CreateDBProxy
s {$sel:vpcSubnetIds:CreateDBProxy' :: [Text]
vpcSubnetIds = [Text]
a} :: CreateDBProxy) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Core.AWSRequest CreateDBProxy where
type
AWSResponse CreateDBProxy =
CreateDBProxyResponse
request :: (Service -> Service) -> CreateDBProxy -> Request CreateDBProxy
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy CreateDBProxy
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateDBProxy)))
response =
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"CreateDBProxyResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe DBProxy -> Int -> CreateDBProxyResponse
CreateDBProxyResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"DBProxy")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable CreateDBProxy where
hashWithSalt :: Int -> CreateDBProxy -> Int
hashWithSalt Int
_salt CreateDBProxy' {[Text]
[UserAuthConfig]
Maybe Bool
Maybe Int
Maybe [Text]
Maybe [Tag]
Text
EngineFamily
vpcSubnetIds :: [Text]
roleArn :: Text
auth :: [UserAuthConfig]
engineFamily :: EngineFamily
dbProxyName :: Text
vpcSecurityGroupIds :: Maybe [Text]
tags :: Maybe [Tag]
requireTLS :: Maybe Bool
idleClientTimeout :: Maybe Int
debugLogging :: Maybe Bool
$sel:vpcSubnetIds:CreateDBProxy' :: CreateDBProxy -> [Text]
$sel:roleArn:CreateDBProxy' :: CreateDBProxy -> Text
$sel:auth:CreateDBProxy' :: CreateDBProxy -> [UserAuthConfig]
$sel:engineFamily:CreateDBProxy' :: CreateDBProxy -> EngineFamily
$sel:dbProxyName:CreateDBProxy' :: CreateDBProxy -> Text
$sel:vpcSecurityGroupIds:CreateDBProxy' :: CreateDBProxy -> Maybe [Text]
$sel:tags:CreateDBProxy' :: CreateDBProxy -> Maybe [Tag]
$sel:requireTLS:CreateDBProxy' :: CreateDBProxy -> Maybe Bool
$sel:idleClientTimeout:CreateDBProxy' :: CreateDBProxy -> Maybe Int
$sel:debugLogging:CreateDBProxy' :: CreateDBProxy -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
debugLogging
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
idleClientTimeout
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
requireTLS
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
vpcSecurityGroupIds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
dbProxyName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` EngineFamily
engineFamily
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [UserAuthConfig]
auth
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
roleArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [Text]
vpcSubnetIds
instance Prelude.NFData CreateDBProxy where
rnf :: CreateDBProxy -> ()
rnf CreateDBProxy' {[Text]
[UserAuthConfig]
Maybe Bool
Maybe Int
Maybe [Text]
Maybe [Tag]
Text
EngineFamily
vpcSubnetIds :: [Text]
roleArn :: Text
auth :: [UserAuthConfig]
engineFamily :: EngineFamily
dbProxyName :: Text
vpcSecurityGroupIds :: Maybe [Text]
tags :: Maybe [Tag]
requireTLS :: Maybe Bool
idleClientTimeout :: Maybe Int
debugLogging :: Maybe Bool
$sel:vpcSubnetIds:CreateDBProxy' :: CreateDBProxy -> [Text]
$sel:roleArn:CreateDBProxy' :: CreateDBProxy -> Text
$sel:auth:CreateDBProxy' :: CreateDBProxy -> [UserAuthConfig]
$sel:engineFamily:CreateDBProxy' :: CreateDBProxy -> EngineFamily
$sel:dbProxyName:CreateDBProxy' :: CreateDBProxy -> Text
$sel:vpcSecurityGroupIds:CreateDBProxy' :: CreateDBProxy -> Maybe [Text]
$sel:tags:CreateDBProxy' :: CreateDBProxy -> Maybe [Tag]
$sel:requireTLS:CreateDBProxy' :: CreateDBProxy -> Maybe Bool
$sel:idleClientTimeout:CreateDBProxy' :: CreateDBProxy -> Maybe Int
$sel:debugLogging:CreateDBProxy' :: CreateDBProxy -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
debugLogging
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
idleClientTimeout
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
requireTLS
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
vpcSecurityGroupIds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
dbProxyName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf EngineFamily
engineFamily
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [UserAuthConfig]
auth
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
roleArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [Text]
vpcSubnetIds
instance Data.ToHeaders CreateDBProxy where
toHeaders :: CreateDBProxy -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath CreateDBProxy where
toPath :: CreateDBProxy -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateDBProxy where
toQuery :: CreateDBProxy -> QueryString
toQuery CreateDBProxy' {[Text]
[UserAuthConfig]
Maybe Bool
Maybe Int
Maybe [Text]
Maybe [Tag]
Text
EngineFamily
vpcSubnetIds :: [Text]
roleArn :: Text
auth :: [UserAuthConfig]
engineFamily :: EngineFamily
dbProxyName :: Text
vpcSecurityGroupIds :: Maybe [Text]
tags :: Maybe [Tag]
requireTLS :: Maybe Bool
idleClientTimeout :: Maybe Int
debugLogging :: Maybe Bool
$sel:vpcSubnetIds:CreateDBProxy' :: CreateDBProxy -> [Text]
$sel:roleArn:CreateDBProxy' :: CreateDBProxy -> Text
$sel:auth:CreateDBProxy' :: CreateDBProxy -> [UserAuthConfig]
$sel:engineFamily:CreateDBProxy' :: CreateDBProxy -> EngineFamily
$sel:dbProxyName:CreateDBProxy' :: CreateDBProxy -> Text
$sel:vpcSecurityGroupIds:CreateDBProxy' :: CreateDBProxy -> Maybe [Text]
$sel:tags:CreateDBProxy' :: CreateDBProxy -> Maybe [Tag]
$sel:requireTLS:CreateDBProxy' :: CreateDBProxy -> Maybe Bool
$sel:idleClientTimeout:CreateDBProxy' :: CreateDBProxy -> Maybe Int
$sel:debugLogging:CreateDBProxy' :: CreateDBProxy -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"CreateDBProxy" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2014-10-31" :: Prelude.ByteString),
ByteString
"DebugLogging" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
debugLogging,
ByteString
"IdleClientTimeout" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
idleClientTimeout,
ByteString
"RequireTLS" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
requireTLS,
ByteString
"Tags"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
(forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"Tag" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags),
ByteString
"VpcSecurityGroupIds"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
( forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member"
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
vpcSecurityGroupIds
),
ByteString
"DBProxyName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
dbProxyName,
ByteString
"EngineFamily" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: EngineFamily
engineFamily,
ByteString
"Auth" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" [UserAuthConfig]
auth,
ByteString
"RoleArn" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
roleArn,
ByteString
"VpcSubnetIds"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" [Text]
vpcSubnetIds
]
data CreateDBProxyResponse = CreateDBProxyResponse'
{
CreateDBProxyResponse -> Maybe DBProxy
dbProxy :: Prelude.Maybe DBProxy,
CreateDBProxyResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateDBProxyResponse -> CreateDBProxyResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateDBProxyResponse -> CreateDBProxyResponse -> Bool
$c/= :: CreateDBProxyResponse -> CreateDBProxyResponse -> Bool
== :: CreateDBProxyResponse -> CreateDBProxyResponse -> Bool
$c== :: CreateDBProxyResponse -> CreateDBProxyResponse -> Bool
Prelude.Eq, ReadPrec [CreateDBProxyResponse]
ReadPrec CreateDBProxyResponse
Int -> ReadS CreateDBProxyResponse
ReadS [CreateDBProxyResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateDBProxyResponse]
$creadListPrec :: ReadPrec [CreateDBProxyResponse]
readPrec :: ReadPrec CreateDBProxyResponse
$creadPrec :: ReadPrec CreateDBProxyResponse
readList :: ReadS [CreateDBProxyResponse]
$creadList :: ReadS [CreateDBProxyResponse]
readsPrec :: Int -> ReadS CreateDBProxyResponse
$creadsPrec :: Int -> ReadS CreateDBProxyResponse
Prelude.Read, Int -> CreateDBProxyResponse -> ShowS
[CreateDBProxyResponse] -> ShowS
CreateDBProxyResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateDBProxyResponse] -> ShowS
$cshowList :: [CreateDBProxyResponse] -> ShowS
show :: CreateDBProxyResponse -> String
$cshow :: CreateDBProxyResponse -> String
showsPrec :: Int -> CreateDBProxyResponse -> ShowS
$cshowsPrec :: Int -> CreateDBProxyResponse -> ShowS
Prelude.Show, forall x. Rep CreateDBProxyResponse x -> CreateDBProxyResponse
forall x. CreateDBProxyResponse -> Rep CreateDBProxyResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateDBProxyResponse x -> CreateDBProxyResponse
$cfrom :: forall x. CreateDBProxyResponse -> Rep CreateDBProxyResponse x
Prelude.Generic)
newCreateDBProxyResponse ::
Prelude.Int ->
CreateDBProxyResponse
newCreateDBProxyResponse :: Int -> CreateDBProxyResponse
newCreateDBProxyResponse Int
pHttpStatus_ =
CreateDBProxyResponse'
{ $sel:dbProxy:CreateDBProxyResponse' :: Maybe DBProxy
dbProxy = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateDBProxyResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createDBProxyResponse_dbProxy :: Lens.Lens' CreateDBProxyResponse (Prelude.Maybe DBProxy)
createDBProxyResponse_dbProxy :: Lens' CreateDBProxyResponse (Maybe DBProxy)
createDBProxyResponse_dbProxy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDBProxyResponse' {Maybe DBProxy
dbProxy :: Maybe DBProxy
$sel:dbProxy:CreateDBProxyResponse' :: CreateDBProxyResponse -> Maybe DBProxy
dbProxy} -> Maybe DBProxy
dbProxy) (\s :: CreateDBProxyResponse
s@CreateDBProxyResponse' {} Maybe DBProxy
a -> CreateDBProxyResponse
s {$sel:dbProxy:CreateDBProxyResponse' :: Maybe DBProxy
dbProxy = Maybe DBProxy
a} :: CreateDBProxyResponse)
createDBProxyResponse_httpStatus :: Lens.Lens' CreateDBProxyResponse Prelude.Int
createDBProxyResponse_httpStatus :: Lens' CreateDBProxyResponse Int
createDBProxyResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateDBProxyResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateDBProxyResponse' :: CreateDBProxyResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateDBProxyResponse
s@CreateDBProxyResponse' {} Int
a -> CreateDBProxyResponse
s {$sel:httpStatus:CreateDBProxyResponse' :: Int
httpStatus = Int
a} :: CreateDBProxyResponse)
instance Prelude.NFData CreateDBProxyResponse where
rnf :: CreateDBProxyResponse -> ()
rnf CreateDBProxyResponse' {Int
Maybe DBProxy
httpStatus :: Int
dbProxy :: Maybe DBProxy
$sel:httpStatus:CreateDBProxyResponse' :: CreateDBProxyResponse -> Int
$sel:dbProxy:CreateDBProxyResponse' :: CreateDBProxyResponse -> Maybe DBProxy
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe DBProxy
dbProxy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus