{-# 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.MQ.CreateBroker
(
CreateBroker (..),
newCreateBroker,
createBroker_authenticationStrategy,
createBroker_configuration,
createBroker_creatorRequestId,
createBroker_encryptionOptions,
createBroker_ldapServerMetadata,
createBroker_logs,
createBroker_maintenanceWindowStartTime,
createBroker_securityGroups,
createBroker_storageType,
createBroker_subnetIds,
createBroker_tags,
createBroker_engineVersion,
createBroker_hostInstanceType,
createBroker_autoMinorVersionUpgrade,
createBroker_users,
createBroker_brokerName,
createBroker_deploymentMode,
createBroker_engineType,
createBroker_publiclyAccessible,
CreateBrokerResponse (..),
newCreateBrokerResponse,
createBrokerResponse_brokerArn,
createBrokerResponse_brokerId,
createBrokerResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MQ.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateBroker = CreateBroker'
{
CreateBroker -> Maybe AuthenticationStrategy
authenticationStrategy :: Prelude.Maybe AuthenticationStrategy,
CreateBroker -> Maybe ConfigurationId
configuration :: Prelude.Maybe ConfigurationId,
CreateBroker -> Maybe Text
creatorRequestId :: Prelude.Maybe Prelude.Text,
CreateBroker -> Maybe EncryptionOptions
encryptionOptions :: Prelude.Maybe EncryptionOptions,
CreateBroker -> Maybe LdapServerMetadataInput
ldapServerMetadata :: Prelude.Maybe LdapServerMetadataInput,
CreateBroker -> Maybe Logs
logs :: Prelude.Maybe Logs,
CreateBroker -> Maybe WeeklyStartTime
maintenanceWindowStartTime :: Prelude.Maybe WeeklyStartTime,
CreateBroker -> Maybe [Text]
securityGroups :: Prelude.Maybe [Prelude.Text],
CreateBroker -> Maybe BrokerStorageType
storageType :: Prelude.Maybe BrokerStorageType,
CreateBroker -> Maybe [Text]
subnetIds :: Prelude.Maybe [Prelude.Text],
CreateBroker -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
CreateBroker -> Text
engineVersion :: Prelude.Text,
CreateBroker -> Text
hostInstanceType :: Prelude.Text,
CreateBroker -> Bool
autoMinorVersionUpgrade :: Prelude.Bool,
CreateBroker -> [User]
users :: [User],
CreateBroker -> Text
brokerName :: Prelude.Text,
CreateBroker -> DeploymentMode
deploymentMode :: DeploymentMode,
CreateBroker -> EngineType
engineType :: EngineType,
CreateBroker -> Bool
publiclyAccessible :: Prelude.Bool
}
deriving (CreateBroker -> CreateBroker -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateBroker -> CreateBroker -> Bool
$c/= :: CreateBroker -> CreateBroker -> Bool
== :: CreateBroker -> CreateBroker -> Bool
$c== :: CreateBroker -> CreateBroker -> Bool
Prelude.Eq, ReadPrec [CreateBroker]
ReadPrec CreateBroker
Int -> ReadS CreateBroker
ReadS [CreateBroker]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateBroker]
$creadListPrec :: ReadPrec [CreateBroker]
readPrec :: ReadPrec CreateBroker
$creadPrec :: ReadPrec CreateBroker
readList :: ReadS [CreateBroker]
$creadList :: ReadS [CreateBroker]
readsPrec :: Int -> ReadS CreateBroker
$creadsPrec :: Int -> ReadS CreateBroker
Prelude.Read, Int -> CreateBroker -> ShowS
[CreateBroker] -> ShowS
CreateBroker -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateBroker] -> ShowS
$cshowList :: [CreateBroker] -> ShowS
show :: CreateBroker -> String
$cshow :: CreateBroker -> String
showsPrec :: Int -> CreateBroker -> ShowS
$cshowsPrec :: Int -> CreateBroker -> ShowS
Prelude.Show, forall x. Rep CreateBroker x -> CreateBroker
forall x. CreateBroker -> Rep CreateBroker x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateBroker x -> CreateBroker
$cfrom :: forall x. CreateBroker -> Rep CreateBroker x
Prelude.Generic)
newCreateBroker ::
Prelude.Text ->
Prelude.Text ->
Prelude.Bool ->
Prelude.Text ->
DeploymentMode ->
EngineType ->
Prelude.Bool ->
CreateBroker
newCreateBroker :: Text
-> Text
-> Bool
-> Text
-> DeploymentMode
-> EngineType
-> Bool
-> CreateBroker
newCreateBroker
Text
pEngineVersion_
Text
pHostInstanceType_
Bool
pAutoMinorVersionUpgrade_
Text
pBrokerName_
DeploymentMode
pDeploymentMode_
EngineType
pEngineType_
Bool
pPubliclyAccessible_ =
CreateBroker'
{ $sel:authenticationStrategy:CreateBroker' :: Maybe AuthenticationStrategy
authenticationStrategy =
forall a. Maybe a
Prelude.Nothing,
$sel:configuration:CreateBroker' :: Maybe ConfigurationId
configuration = forall a. Maybe a
Prelude.Nothing,
$sel:creatorRequestId:CreateBroker' :: Maybe Text
creatorRequestId = forall a. Maybe a
Prelude.Nothing,
$sel:encryptionOptions:CreateBroker' :: Maybe EncryptionOptions
encryptionOptions = forall a. Maybe a
Prelude.Nothing,
$sel:ldapServerMetadata:CreateBroker' :: Maybe LdapServerMetadataInput
ldapServerMetadata = forall a. Maybe a
Prelude.Nothing,
$sel:logs:CreateBroker' :: Maybe Logs
logs = forall a. Maybe a
Prelude.Nothing,
$sel:maintenanceWindowStartTime:CreateBroker' :: Maybe WeeklyStartTime
maintenanceWindowStartTime = forall a. Maybe a
Prelude.Nothing,
$sel:securityGroups:CreateBroker' :: Maybe [Text]
securityGroups = forall a. Maybe a
Prelude.Nothing,
$sel:storageType:CreateBroker' :: Maybe BrokerStorageType
storageType = forall a. Maybe a
Prelude.Nothing,
$sel:subnetIds:CreateBroker' :: Maybe [Text]
subnetIds = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateBroker' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:engineVersion:CreateBroker' :: Text
engineVersion = Text
pEngineVersion_,
$sel:hostInstanceType:CreateBroker' :: Text
hostInstanceType = Text
pHostInstanceType_,
$sel:autoMinorVersionUpgrade:CreateBroker' :: Bool
autoMinorVersionUpgrade = Bool
pAutoMinorVersionUpgrade_,
$sel:users:CreateBroker' :: [User]
users = forall a. Monoid a => a
Prelude.mempty,
$sel:brokerName:CreateBroker' :: Text
brokerName = Text
pBrokerName_,
$sel:deploymentMode:CreateBroker' :: DeploymentMode
deploymentMode = DeploymentMode
pDeploymentMode_,
$sel:engineType:CreateBroker' :: EngineType
engineType = EngineType
pEngineType_,
$sel:publiclyAccessible:CreateBroker' :: Bool
publiclyAccessible = Bool
pPubliclyAccessible_
}
createBroker_authenticationStrategy :: Lens.Lens' CreateBroker (Prelude.Maybe AuthenticationStrategy)
createBroker_authenticationStrategy :: Lens' CreateBroker (Maybe AuthenticationStrategy)
createBroker_authenticationStrategy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBroker' {Maybe AuthenticationStrategy
authenticationStrategy :: Maybe AuthenticationStrategy
$sel:authenticationStrategy:CreateBroker' :: CreateBroker -> Maybe AuthenticationStrategy
authenticationStrategy} -> Maybe AuthenticationStrategy
authenticationStrategy) (\s :: CreateBroker
s@CreateBroker' {} Maybe AuthenticationStrategy
a -> CreateBroker
s {$sel:authenticationStrategy:CreateBroker' :: Maybe AuthenticationStrategy
authenticationStrategy = Maybe AuthenticationStrategy
a} :: CreateBroker)
createBroker_configuration :: Lens.Lens' CreateBroker (Prelude.Maybe ConfigurationId)
createBroker_configuration :: Lens' CreateBroker (Maybe ConfigurationId)
createBroker_configuration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBroker' {Maybe ConfigurationId
configuration :: Maybe ConfigurationId
$sel:configuration:CreateBroker' :: CreateBroker -> Maybe ConfigurationId
configuration} -> Maybe ConfigurationId
configuration) (\s :: CreateBroker
s@CreateBroker' {} Maybe ConfigurationId
a -> CreateBroker
s {$sel:configuration:CreateBroker' :: Maybe ConfigurationId
configuration = Maybe ConfigurationId
a} :: CreateBroker)
createBroker_creatorRequestId :: Lens.Lens' CreateBroker (Prelude.Maybe Prelude.Text)
createBroker_creatorRequestId :: Lens' CreateBroker (Maybe Text)
createBroker_creatorRequestId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBroker' {Maybe Text
creatorRequestId :: Maybe Text
$sel:creatorRequestId:CreateBroker' :: CreateBroker -> Maybe Text
creatorRequestId} -> Maybe Text
creatorRequestId) (\s :: CreateBroker
s@CreateBroker' {} Maybe Text
a -> CreateBroker
s {$sel:creatorRequestId:CreateBroker' :: Maybe Text
creatorRequestId = Maybe Text
a} :: CreateBroker)
createBroker_encryptionOptions :: Lens.Lens' CreateBroker (Prelude.Maybe EncryptionOptions)
createBroker_encryptionOptions :: Lens' CreateBroker (Maybe EncryptionOptions)
createBroker_encryptionOptions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBroker' {Maybe EncryptionOptions
encryptionOptions :: Maybe EncryptionOptions
$sel:encryptionOptions:CreateBroker' :: CreateBroker -> Maybe EncryptionOptions
encryptionOptions} -> Maybe EncryptionOptions
encryptionOptions) (\s :: CreateBroker
s@CreateBroker' {} Maybe EncryptionOptions
a -> CreateBroker
s {$sel:encryptionOptions:CreateBroker' :: Maybe EncryptionOptions
encryptionOptions = Maybe EncryptionOptions
a} :: CreateBroker)
createBroker_ldapServerMetadata :: Lens.Lens' CreateBroker (Prelude.Maybe LdapServerMetadataInput)
createBroker_ldapServerMetadata :: Lens' CreateBroker (Maybe LdapServerMetadataInput)
createBroker_ldapServerMetadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBroker' {Maybe LdapServerMetadataInput
ldapServerMetadata :: Maybe LdapServerMetadataInput
$sel:ldapServerMetadata:CreateBroker' :: CreateBroker -> Maybe LdapServerMetadataInput
ldapServerMetadata} -> Maybe LdapServerMetadataInput
ldapServerMetadata) (\s :: CreateBroker
s@CreateBroker' {} Maybe LdapServerMetadataInput
a -> CreateBroker
s {$sel:ldapServerMetadata:CreateBroker' :: Maybe LdapServerMetadataInput
ldapServerMetadata = Maybe LdapServerMetadataInput
a} :: CreateBroker)
createBroker_logs :: Lens.Lens' CreateBroker (Prelude.Maybe Logs)
createBroker_logs :: Lens' CreateBroker (Maybe Logs)
createBroker_logs = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBroker' {Maybe Logs
logs :: Maybe Logs
$sel:logs:CreateBroker' :: CreateBroker -> Maybe Logs
logs} -> Maybe Logs
logs) (\s :: CreateBroker
s@CreateBroker' {} Maybe Logs
a -> CreateBroker
s {$sel:logs:CreateBroker' :: Maybe Logs
logs = Maybe Logs
a} :: CreateBroker)
createBroker_maintenanceWindowStartTime :: Lens.Lens' CreateBroker (Prelude.Maybe WeeklyStartTime)
createBroker_maintenanceWindowStartTime :: Lens' CreateBroker (Maybe WeeklyStartTime)
createBroker_maintenanceWindowStartTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBroker' {Maybe WeeklyStartTime
maintenanceWindowStartTime :: Maybe WeeklyStartTime
$sel:maintenanceWindowStartTime:CreateBroker' :: CreateBroker -> Maybe WeeklyStartTime
maintenanceWindowStartTime} -> Maybe WeeklyStartTime
maintenanceWindowStartTime) (\s :: CreateBroker
s@CreateBroker' {} Maybe WeeklyStartTime
a -> CreateBroker
s {$sel:maintenanceWindowStartTime:CreateBroker' :: Maybe WeeklyStartTime
maintenanceWindowStartTime = Maybe WeeklyStartTime
a} :: CreateBroker)
createBroker_securityGroups :: Lens.Lens' CreateBroker (Prelude.Maybe [Prelude.Text])
createBroker_securityGroups :: Lens' CreateBroker (Maybe [Text])
createBroker_securityGroups = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBroker' {Maybe [Text]
securityGroups :: Maybe [Text]
$sel:securityGroups:CreateBroker' :: CreateBroker -> Maybe [Text]
securityGroups} -> Maybe [Text]
securityGroups) (\s :: CreateBroker
s@CreateBroker' {} Maybe [Text]
a -> CreateBroker
s {$sel:securityGroups:CreateBroker' :: Maybe [Text]
securityGroups = Maybe [Text]
a} :: CreateBroker) 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
createBroker_storageType :: Lens.Lens' CreateBroker (Prelude.Maybe BrokerStorageType)
createBroker_storageType :: Lens' CreateBroker (Maybe BrokerStorageType)
createBroker_storageType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBroker' {Maybe BrokerStorageType
storageType :: Maybe BrokerStorageType
$sel:storageType:CreateBroker' :: CreateBroker -> Maybe BrokerStorageType
storageType} -> Maybe BrokerStorageType
storageType) (\s :: CreateBroker
s@CreateBroker' {} Maybe BrokerStorageType
a -> CreateBroker
s {$sel:storageType:CreateBroker' :: Maybe BrokerStorageType
storageType = Maybe BrokerStorageType
a} :: CreateBroker)
createBroker_subnetIds :: Lens.Lens' CreateBroker (Prelude.Maybe [Prelude.Text])
createBroker_subnetIds :: Lens' CreateBroker (Maybe [Text])
createBroker_subnetIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBroker' {Maybe [Text]
subnetIds :: Maybe [Text]
$sel:subnetIds:CreateBroker' :: CreateBroker -> Maybe [Text]
subnetIds} -> Maybe [Text]
subnetIds) (\s :: CreateBroker
s@CreateBroker' {} Maybe [Text]
a -> CreateBroker
s {$sel:subnetIds:CreateBroker' :: Maybe [Text]
subnetIds = Maybe [Text]
a} :: CreateBroker) 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
createBroker_tags :: Lens.Lens' CreateBroker (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
createBroker_tags :: Lens' CreateBroker (Maybe (HashMap Text Text))
createBroker_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBroker' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:CreateBroker' :: CreateBroker -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: CreateBroker
s@CreateBroker' {} Maybe (HashMap Text Text)
a -> CreateBroker
s {$sel:tags:CreateBroker' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: CreateBroker) 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
createBroker_engineVersion :: Lens.Lens' CreateBroker Prelude.Text
createBroker_engineVersion :: Lens' CreateBroker Text
createBroker_engineVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBroker' {Text
engineVersion :: Text
$sel:engineVersion:CreateBroker' :: CreateBroker -> Text
engineVersion} -> Text
engineVersion) (\s :: CreateBroker
s@CreateBroker' {} Text
a -> CreateBroker
s {$sel:engineVersion:CreateBroker' :: Text
engineVersion = Text
a} :: CreateBroker)
createBroker_hostInstanceType :: Lens.Lens' CreateBroker Prelude.Text
createBroker_hostInstanceType :: Lens' CreateBroker Text
createBroker_hostInstanceType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBroker' {Text
hostInstanceType :: Text
$sel:hostInstanceType:CreateBroker' :: CreateBroker -> Text
hostInstanceType} -> Text
hostInstanceType) (\s :: CreateBroker
s@CreateBroker' {} Text
a -> CreateBroker
s {$sel:hostInstanceType:CreateBroker' :: Text
hostInstanceType = Text
a} :: CreateBroker)
createBroker_autoMinorVersionUpgrade :: Lens.Lens' CreateBroker Prelude.Bool
createBroker_autoMinorVersionUpgrade :: Lens' CreateBroker Bool
createBroker_autoMinorVersionUpgrade = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBroker' {Bool
autoMinorVersionUpgrade :: Bool
$sel:autoMinorVersionUpgrade:CreateBroker' :: CreateBroker -> Bool
autoMinorVersionUpgrade} -> Bool
autoMinorVersionUpgrade) (\s :: CreateBroker
s@CreateBroker' {} Bool
a -> CreateBroker
s {$sel:autoMinorVersionUpgrade:CreateBroker' :: Bool
autoMinorVersionUpgrade = Bool
a} :: CreateBroker)
createBroker_users :: Lens.Lens' CreateBroker [User]
createBroker_users :: Lens' CreateBroker [User]
createBroker_users = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBroker' {[User]
users :: [User]
$sel:users:CreateBroker' :: CreateBroker -> [User]
users} -> [User]
users) (\s :: CreateBroker
s@CreateBroker' {} [User]
a -> CreateBroker
s {$sel:users:CreateBroker' :: [User]
users = [User]
a} :: CreateBroker) 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
createBroker_brokerName :: Lens.Lens' CreateBroker Prelude.Text
createBroker_brokerName :: Lens' CreateBroker Text
createBroker_brokerName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBroker' {Text
brokerName :: Text
$sel:brokerName:CreateBroker' :: CreateBroker -> Text
brokerName} -> Text
brokerName) (\s :: CreateBroker
s@CreateBroker' {} Text
a -> CreateBroker
s {$sel:brokerName:CreateBroker' :: Text
brokerName = Text
a} :: CreateBroker)
createBroker_deploymentMode :: Lens.Lens' CreateBroker DeploymentMode
createBroker_deploymentMode :: Lens' CreateBroker DeploymentMode
createBroker_deploymentMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBroker' {DeploymentMode
deploymentMode :: DeploymentMode
$sel:deploymentMode:CreateBroker' :: CreateBroker -> DeploymentMode
deploymentMode} -> DeploymentMode
deploymentMode) (\s :: CreateBroker
s@CreateBroker' {} DeploymentMode
a -> CreateBroker
s {$sel:deploymentMode:CreateBroker' :: DeploymentMode
deploymentMode = DeploymentMode
a} :: CreateBroker)
createBroker_engineType :: Lens.Lens' CreateBroker EngineType
createBroker_engineType :: Lens' CreateBroker EngineType
createBroker_engineType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBroker' {EngineType
engineType :: EngineType
$sel:engineType:CreateBroker' :: CreateBroker -> EngineType
engineType} -> EngineType
engineType) (\s :: CreateBroker
s@CreateBroker' {} EngineType
a -> CreateBroker
s {$sel:engineType:CreateBroker' :: EngineType
engineType = EngineType
a} :: CreateBroker)
createBroker_publiclyAccessible :: Lens.Lens' CreateBroker Prelude.Bool
createBroker_publiclyAccessible :: Lens' CreateBroker Bool
createBroker_publiclyAccessible = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBroker' {Bool
publiclyAccessible :: Bool
$sel:publiclyAccessible:CreateBroker' :: CreateBroker -> Bool
publiclyAccessible} -> Bool
publiclyAccessible) (\s :: CreateBroker
s@CreateBroker' {} Bool
a -> CreateBroker
s {$sel:publiclyAccessible:CreateBroker' :: Bool
publiclyAccessible = Bool
a} :: CreateBroker)
instance Core.AWSRequest CreateBroker where
type AWSResponse CreateBroker = CreateBrokerResponse
request :: (Service -> Service) -> CreateBroker -> Request CreateBroker
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 CreateBroker
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse CreateBroker)))
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 ->
Maybe Text -> Maybe Text -> Int -> CreateBrokerResponse
CreateBrokerResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"brokerArn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"brokerId")
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 CreateBroker where
hashWithSalt :: Int -> CreateBroker -> Int
hashWithSalt Int
_salt CreateBroker' {Bool
[User]
Maybe [Text]
Maybe Text
Maybe (HashMap Text Text)
Maybe AuthenticationStrategy
Maybe BrokerStorageType
Maybe ConfigurationId
Maybe EncryptionOptions
Maybe LdapServerMetadataInput
Maybe Logs
Maybe WeeklyStartTime
Text
DeploymentMode
EngineType
publiclyAccessible :: Bool
engineType :: EngineType
deploymentMode :: DeploymentMode
brokerName :: Text
users :: [User]
autoMinorVersionUpgrade :: Bool
hostInstanceType :: Text
engineVersion :: Text
tags :: Maybe (HashMap Text Text)
subnetIds :: Maybe [Text]
storageType :: Maybe BrokerStorageType
securityGroups :: Maybe [Text]
maintenanceWindowStartTime :: Maybe WeeklyStartTime
logs :: Maybe Logs
ldapServerMetadata :: Maybe LdapServerMetadataInput
encryptionOptions :: Maybe EncryptionOptions
creatorRequestId :: Maybe Text
configuration :: Maybe ConfigurationId
authenticationStrategy :: Maybe AuthenticationStrategy
$sel:publiclyAccessible:CreateBroker' :: CreateBroker -> Bool
$sel:engineType:CreateBroker' :: CreateBroker -> EngineType
$sel:deploymentMode:CreateBroker' :: CreateBroker -> DeploymentMode
$sel:brokerName:CreateBroker' :: CreateBroker -> Text
$sel:users:CreateBroker' :: CreateBroker -> [User]
$sel:autoMinorVersionUpgrade:CreateBroker' :: CreateBroker -> Bool
$sel:hostInstanceType:CreateBroker' :: CreateBroker -> Text
$sel:engineVersion:CreateBroker' :: CreateBroker -> Text
$sel:tags:CreateBroker' :: CreateBroker -> Maybe (HashMap Text Text)
$sel:subnetIds:CreateBroker' :: CreateBroker -> Maybe [Text]
$sel:storageType:CreateBroker' :: CreateBroker -> Maybe BrokerStorageType
$sel:securityGroups:CreateBroker' :: CreateBroker -> Maybe [Text]
$sel:maintenanceWindowStartTime:CreateBroker' :: CreateBroker -> Maybe WeeklyStartTime
$sel:logs:CreateBroker' :: CreateBroker -> Maybe Logs
$sel:ldapServerMetadata:CreateBroker' :: CreateBroker -> Maybe LdapServerMetadataInput
$sel:encryptionOptions:CreateBroker' :: CreateBroker -> Maybe EncryptionOptions
$sel:creatorRequestId:CreateBroker' :: CreateBroker -> Maybe Text
$sel:configuration:CreateBroker' :: CreateBroker -> Maybe ConfigurationId
$sel:authenticationStrategy:CreateBroker' :: CreateBroker -> Maybe AuthenticationStrategy
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe AuthenticationStrategy
authenticationStrategy
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ConfigurationId
configuration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
creatorRequestId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe EncryptionOptions
encryptionOptions
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe LdapServerMetadataInput
ldapServerMetadata
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Logs
logs
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe WeeklyStartTime
maintenanceWindowStartTime
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
securityGroups
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe BrokerStorageType
storageType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
subnetIds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
engineVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
hostInstanceType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Bool
autoMinorVersionUpgrade
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [User]
users
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
brokerName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` DeploymentMode
deploymentMode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` EngineType
engineType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Bool
publiclyAccessible
instance Prelude.NFData CreateBroker where
rnf :: CreateBroker -> ()
rnf CreateBroker' {Bool
[User]
Maybe [Text]
Maybe Text
Maybe (HashMap Text Text)
Maybe AuthenticationStrategy
Maybe BrokerStorageType
Maybe ConfigurationId
Maybe EncryptionOptions
Maybe LdapServerMetadataInput
Maybe Logs
Maybe WeeklyStartTime
Text
DeploymentMode
EngineType
publiclyAccessible :: Bool
engineType :: EngineType
deploymentMode :: DeploymentMode
brokerName :: Text
users :: [User]
autoMinorVersionUpgrade :: Bool
hostInstanceType :: Text
engineVersion :: Text
tags :: Maybe (HashMap Text Text)
subnetIds :: Maybe [Text]
storageType :: Maybe BrokerStorageType
securityGroups :: Maybe [Text]
maintenanceWindowStartTime :: Maybe WeeklyStartTime
logs :: Maybe Logs
ldapServerMetadata :: Maybe LdapServerMetadataInput
encryptionOptions :: Maybe EncryptionOptions
creatorRequestId :: Maybe Text
configuration :: Maybe ConfigurationId
authenticationStrategy :: Maybe AuthenticationStrategy
$sel:publiclyAccessible:CreateBroker' :: CreateBroker -> Bool
$sel:engineType:CreateBroker' :: CreateBroker -> EngineType
$sel:deploymentMode:CreateBroker' :: CreateBroker -> DeploymentMode
$sel:brokerName:CreateBroker' :: CreateBroker -> Text
$sel:users:CreateBroker' :: CreateBroker -> [User]
$sel:autoMinorVersionUpgrade:CreateBroker' :: CreateBroker -> Bool
$sel:hostInstanceType:CreateBroker' :: CreateBroker -> Text
$sel:engineVersion:CreateBroker' :: CreateBroker -> Text
$sel:tags:CreateBroker' :: CreateBroker -> Maybe (HashMap Text Text)
$sel:subnetIds:CreateBroker' :: CreateBroker -> Maybe [Text]
$sel:storageType:CreateBroker' :: CreateBroker -> Maybe BrokerStorageType
$sel:securityGroups:CreateBroker' :: CreateBroker -> Maybe [Text]
$sel:maintenanceWindowStartTime:CreateBroker' :: CreateBroker -> Maybe WeeklyStartTime
$sel:logs:CreateBroker' :: CreateBroker -> Maybe Logs
$sel:ldapServerMetadata:CreateBroker' :: CreateBroker -> Maybe LdapServerMetadataInput
$sel:encryptionOptions:CreateBroker' :: CreateBroker -> Maybe EncryptionOptions
$sel:creatorRequestId:CreateBroker' :: CreateBroker -> Maybe Text
$sel:configuration:CreateBroker' :: CreateBroker -> Maybe ConfigurationId
$sel:authenticationStrategy:CreateBroker' :: CreateBroker -> Maybe AuthenticationStrategy
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe AuthenticationStrategy
authenticationStrategy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ConfigurationId
configuration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
creatorRequestId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe EncryptionOptions
encryptionOptions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe LdapServerMetadataInput
ldapServerMetadata
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Logs
logs
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe WeeklyStartTime
maintenanceWindowStartTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
securityGroups
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe BrokerStorageType
storageType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
subnetIds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
engineVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
hostInstanceType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Bool
autoMinorVersionUpgrade
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [User]
users
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
brokerName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf DeploymentMode
deploymentMode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf EngineType
engineType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Bool
publiclyAccessible
instance Data.ToHeaders CreateBroker where
toHeaders :: CreateBroker -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON CreateBroker where
toJSON :: CreateBroker -> Value
toJSON CreateBroker' {Bool
[User]
Maybe [Text]
Maybe Text
Maybe (HashMap Text Text)
Maybe AuthenticationStrategy
Maybe BrokerStorageType
Maybe ConfigurationId
Maybe EncryptionOptions
Maybe LdapServerMetadataInput
Maybe Logs
Maybe WeeklyStartTime
Text
DeploymentMode
EngineType
publiclyAccessible :: Bool
engineType :: EngineType
deploymentMode :: DeploymentMode
brokerName :: Text
users :: [User]
autoMinorVersionUpgrade :: Bool
hostInstanceType :: Text
engineVersion :: Text
tags :: Maybe (HashMap Text Text)
subnetIds :: Maybe [Text]
storageType :: Maybe BrokerStorageType
securityGroups :: Maybe [Text]
maintenanceWindowStartTime :: Maybe WeeklyStartTime
logs :: Maybe Logs
ldapServerMetadata :: Maybe LdapServerMetadataInput
encryptionOptions :: Maybe EncryptionOptions
creatorRequestId :: Maybe Text
configuration :: Maybe ConfigurationId
authenticationStrategy :: Maybe AuthenticationStrategy
$sel:publiclyAccessible:CreateBroker' :: CreateBroker -> Bool
$sel:engineType:CreateBroker' :: CreateBroker -> EngineType
$sel:deploymentMode:CreateBroker' :: CreateBroker -> DeploymentMode
$sel:brokerName:CreateBroker' :: CreateBroker -> Text
$sel:users:CreateBroker' :: CreateBroker -> [User]
$sel:autoMinorVersionUpgrade:CreateBroker' :: CreateBroker -> Bool
$sel:hostInstanceType:CreateBroker' :: CreateBroker -> Text
$sel:engineVersion:CreateBroker' :: CreateBroker -> Text
$sel:tags:CreateBroker' :: CreateBroker -> Maybe (HashMap Text Text)
$sel:subnetIds:CreateBroker' :: CreateBroker -> Maybe [Text]
$sel:storageType:CreateBroker' :: CreateBroker -> Maybe BrokerStorageType
$sel:securityGroups:CreateBroker' :: CreateBroker -> Maybe [Text]
$sel:maintenanceWindowStartTime:CreateBroker' :: CreateBroker -> Maybe WeeklyStartTime
$sel:logs:CreateBroker' :: CreateBroker -> Maybe Logs
$sel:ldapServerMetadata:CreateBroker' :: CreateBroker -> Maybe LdapServerMetadataInput
$sel:encryptionOptions:CreateBroker' :: CreateBroker -> Maybe EncryptionOptions
$sel:creatorRequestId:CreateBroker' :: CreateBroker -> Maybe Text
$sel:configuration:CreateBroker' :: CreateBroker -> Maybe ConfigurationId
$sel:authenticationStrategy:CreateBroker' :: CreateBroker -> Maybe AuthenticationStrategy
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"authenticationStrategy" 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 AuthenticationStrategy
authenticationStrategy,
(Key
"configuration" 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 ConfigurationId
configuration,
(Key
"creatorRequestId" 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
creatorRequestId,
(Key
"encryptionOptions" 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 EncryptionOptions
encryptionOptions,
(Key
"ldapServerMetadata" 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 LdapServerMetadataInput
ldapServerMetadata,
(Key
"logs" 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 Logs
logs,
(Key
"maintenanceWindowStartTime" 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 WeeklyStartTime
maintenanceWindowStartTime,
(Key
"securityGroups" 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]
securityGroups,
(Key
"storageType" 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 BrokerStorageType
storageType,
(Key
"subnetIds" 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]
subnetIds,
(Key
"tags" 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 (HashMap Text Text)
tags,
forall a. a -> Maybe a
Prelude.Just (Key
"engineVersion" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
engineVersion),
forall a. a -> Maybe a
Prelude.Just
(Key
"hostInstanceType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
hostInstanceType),
forall a. a -> Maybe a
Prelude.Just
( Key
"autoMinorVersionUpgrade"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Bool
autoMinorVersionUpgrade
),
forall a. a -> Maybe a
Prelude.Just (Key
"users" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= [User]
users),
forall a. a -> Maybe a
Prelude.Just (Key
"brokerName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
brokerName),
forall a. a -> Maybe a
Prelude.Just
(Key
"deploymentMode" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= DeploymentMode
deploymentMode),
forall a. a -> Maybe a
Prelude.Just (Key
"engineType" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= EngineType
engineType),
forall a. a -> Maybe a
Prelude.Just
(Key
"publiclyAccessible" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Bool
publiclyAccessible)
]
)
instance Data.ToPath CreateBroker where
toPath :: CreateBroker -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/v1/brokers"
instance Data.ToQuery CreateBroker where
toQuery :: CreateBroker -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateBrokerResponse = CreateBrokerResponse'
{
CreateBrokerResponse -> Maybe Text
brokerArn :: Prelude.Maybe Prelude.Text,
CreateBrokerResponse -> Maybe Text
brokerId :: Prelude.Maybe Prelude.Text,
CreateBrokerResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateBrokerResponse -> CreateBrokerResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateBrokerResponse -> CreateBrokerResponse -> Bool
$c/= :: CreateBrokerResponse -> CreateBrokerResponse -> Bool
== :: CreateBrokerResponse -> CreateBrokerResponse -> Bool
$c== :: CreateBrokerResponse -> CreateBrokerResponse -> Bool
Prelude.Eq, ReadPrec [CreateBrokerResponse]
ReadPrec CreateBrokerResponse
Int -> ReadS CreateBrokerResponse
ReadS [CreateBrokerResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateBrokerResponse]
$creadListPrec :: ReadPrec [CreateBrokerResponse]
readPrec :: ReadPrec CreateBrokerResponse
$creadPrec :: ReadPrec CreateBrokerResponse
readList :: ReadS [CreateBrokerResponse]
$creadList :: ReadS [CreateBrokerResponse]
readsPrec :: Int -> ReadS CreateBrokerResponse
$creadsPrec :: Int -> ReadS CreateBrokerResponse
Prelude.Read, Int -> CreateBrokerResponse -> ShowS
[CreateBrokerResponse] -> ShowS
CreateBrokerResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateBrokerResponse] -> ShowS
$cshowList :: [CreateBrokerResponse] -> ShowS
show :: CreateBrokerResponse -> String
$cshow :: CreateBrokerResponse -> String
showsPrec :: Int -> CreateBrokerResponse -> ShowS
$cshowsPrec :: Int -> CreateBrokerResponse -> ShowS
Prelude.Show, forall x. Rep CreateBrokerResponse x -> CreateBrokerResponse
forall x. CreateBrokerResponse -> Rep CreateBrokerResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateBrokerResponse x -> CreateBrokerResponse
$cfrom :: forall x. CreateBrokerResponse -> Rep CreateBrokerResponse x
Prelude.Generic)
newCreateBrokerResponse ::
Prelude.Int ->
CreateBrokerResponse
newCreateBrokerResponse :: Int -> CreateBrokerResponse
newCreateBrokerResponse Int
pHttpStatus_ =
CreateBrokerResponse'
{ $sel:brokerArn:CreateBrokerResponse' :: Maybe Text
brokerArn = forall a. Maybe a
Prelude.Nothing,
$sel:brokerId:CreateBrokerResponse' :: Maybe Text
brokerId = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateBrokerResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createBrokerResponse_brokerArn :: Lens.Lens' CreateBrokerResponse (Prelude.Maybe Prelude.Text)
createBrokerResponse_brokerArn :: Lens' CreateBrokerResponse (Maybe Text)
createBrokerResponse_brokerArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBrokerResponse' {Maybe Text
brokerArn :: Maybe Text
$sel:brokerArn:CreateBrokerResponse' :: CreateBrokerResponse -> Maybe Text
brokerArn} -> Maybe Text
brokerArn) (\s :: CreateBrokerResponse
s@CreateBrokerResponse' {} Maybe Text
a -> CreateBrokerResponse
s {$sel:brokerArn:CreateBrokerResponse' :: Maybe Text
brokerArn = Maybe Text
a} :: CreateBrokerResponse)
createBrokerResponse_brokerId :: Lens.Lens' CreateBrokerResponse (Prelude.Maybe Prelude.Text)
createBrokerResponse_brokerId :: Lens' CreateBrokerResponse (Maybe Text)
createBrokerResponse_brokerId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBrokerResponse' {Maybe Text
brokerId :: Maybe Text
$sel:brokerId:CreateBrokerResponse' :: CreateBrokerResponse -> Maybe Text
brokerId} -> Maybe Text
brokerId) (\s :: CreateBrokerResponse
s@CreateBrokerResponse' {} Maybe Text
a -> CreateBrokerResponse
s {$sel:brokerId:CreateBrokerResponse' :: Maybe Text
brokerId = Maybe Text
a} :: CreateBrokerResponse)
createBrokerResponse_httpStatus :: Lens.Lens' CreateBrokerResponse Prelude.Int
createBrokerResponse_httpStatus :: Lens' CreateBrokerResponse Int
createBrokerResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateBrokerResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateBrokerResponse' :: CreateBrokerResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateBrokerResponse
s@CreateBrokerResponse' {} Int
a -> CreateBrokerResponse
s {$sel:httpStatus:CreateBrokerResponse' :: Int
httpStatus = Int
a} :: CreateBrokerResponse)
instance Prelude.NFData CreateBrokerResponse where
rnf :: CreateBrokerResponse -> ()
rnf CreateBrokerResponse' {Int
Maybe Text
httpStatus :: Int
brokerId :: Maybe Text
brokerArn :: Maybe Text
$sel:httpStatus:CreateBrokerResponse' :: CreateBrokerResponse -> Int
$sel:brokerId:CreateBrokerResponse' :: CreateBrokerResponse -> Maybe Text
$sel:brokerArn:CreateBrokerResponse' :: CreateBrokerResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
brokerArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
brokerId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus