{-# 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.ElastiCache.CreateCacheCluster
(
CreateCacheCluster (..),
newCreateCacheCluster,
createCacheCluster_aZMode,
createCacheCluster_authToken,
createCacheCluster_autoMinorVersionUpgrade,
createCacheCluster_cacheNodeType,
createCacheCluster_cacheParameterGroupName,
createCacheCluster_cacheSecurityGroupNames,
createCacheCluster_cacheSubnetGroupName,
createCacheCluster_engine,
createCacheCluster_engineVersion,
createCacheCluster_ipDiscovery,
createCacheCluster_logDeliveryConfigurations,
createCacheCluster_networkType,
createCacheCluster_notificationTopicArn,
createCacheCluster_numCacheNodes,
createCacheCluster_outpostMode,
createCacheCluster_port,
createCacheCluster_preferredAvailabilityZone,
createCacheCluster_preferredAvailabilityZones,
createCacheCluster_preferredMaintenanceWindow,
createCacheCluster_preferredOutpostArn,
createCacheCluster_preferredOutpostArns,
createCacheCluster_replicationGroupId,
createCacheCluster_securityGroupIds,
createCacheCluster_snapshotArns,
createCacheCluster_snapshotName,
createCacheCluster_snapshotRetentionLimit,
createCacheCluster_snapshotWindow,
createCacheCluster_tags,
createCacheCluster_transitEncryptionEnabled,
createCacheCluster_cacheClusterId,
CreateCacheClusterResponse (..),
newCreateCacheClusterResponse,
createCacheClusterResponse_cacheCluster,
createCacheClusterResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.ElastiCache.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateCacheCluster = CreateCacheCluster'
{
CreateCacheCluster -> Maybe AZMode
aZMode :: Prelude.Maybe AZMode,
CreateCacheCluster -> Maybe Text
authToken :: Prelude.Maybe Prelude.Text,
CreateCacheCluster -> Maybe Bool
autoMinorVersionUpgrade :: Prelude.Maybe Prelude.Bool,
CreateCacheCluster -> Maybe Text
cacheNodeType :: Prelude.Maybe Prelude.Text,
CreateCacheCluster -> Maybe Text
cacheParameterGroupName :: Prelude.Maybe Prelude.Text,
CreateCacheCluster -> Maybe [Text]
cacheSecurityGroupNames :: Prelude.Maybe [Prelude.Text],
CreateCacheCluster -> Maybe Text
cacheSubnetGroupName :: Prelude.Maybe Prelude.Text,
CreateCacheCluster -> Maybe Text
engine :: Prelude.Maybe Prelude.Text,
CreateCacheCluster -> Maybe Text
engineVersion :: Prelude.Maybe Prelude.Text,
CreateCacheCluster -> Maybe IpDiscovery
ipDiscovery :: Prelude.Maybe IpDiscovery,
CreateCacheCluster -> Maybe [LogDeliveryConfigurationRequest]
logDeliveryConfigurations :: Prelude.Maybe [LogDeliveryConfigurationRequest],
CreateCacheCluster -> Maybe NetworkType
networkType :: Prelude.Maybe NetworkType,
CreateCacheCluster -> Maybe Text
notificationTopicArn :: Prelude.Maybe Prelude.Text,
CreateCacheCluster -> Maybe Int
numCacheNodes :: Prelude.Maybe Prelude.Int,
CreateCacheCluster -> Maybe OutpostMode
outpostMode :: Prelude.Maybe OutpostMode,
CreateCacheCluster -> Maybe Int
port :: Prelude.Maybe Prelude.Int,
CreateCacheCluster -> Maybe Text
preferredAvailabilityZone :: Prelude.Maybe Prelude.Text,
CreateCacheCluster -> Maybe [Text]
preferredAvailabilityZones :: Prelude.Maybe [Prelude.Text],
CreateCacheCluster -> Maybe Text
preferredMaintenanceWindow :: Prelude.Maybe Prelude.Text,
CreateCacheCluster -> Maybe Text
preferredOutpostArn :: Prelude.Maybe Prelude.Text,
CreateCacheCluster -> Maybe [Text]
preferredOutpostArns :: Prelude.Maybe [Prelude.Text],
CreateCacheCluster -> Maybe Text
replicationGroupId :: Prelude.Maybe Prelude.Text,
CreateCacheCluster -> Maybe [Text]
securityGroupIds :: Prelude.Maybe [Prelude.Text],
CreateCacheCluster -> Maybe [Text]
snapshotArns :: Prelude.Maybe [Prelude.Text],
CreateCacheCluster -> Maybe Text
snapshotName :: Prelude.Maybe Prelude.Text,
CreateCacheCluster -> Maybe Int
snapshotRetentionLimit :: Prelude.Maybe Prelude.Int,
CreateCacheCluster -> Maybe Text
snapshotWindow :: Prelude.Maybe Prelude.Text,
CreateCacheCluster -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
CreateCacheCluster -> Maybe Bool
transitEncryptionEnabled :: Prelude.Maybe Prelude.Bool,
CreateCacheCluster -> Text
cacheClusterId :: Prelude.Text
}
deriving (CreateCacheCluster -> CreateCacheCluster -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateCacheCluster -> CreateCacheCluster -> Bool
$c/= :: CreateCacheCluster -> CreateCacheCluster -> Bool
== :: CreateCacheCluster -> CreateCacheCluster -> Bool
$c== :: CreateCacheCluster -> CreateCacheCluster -> Bool
Prelude.Eq, ReadPrec [CreateCacheCluster]
ReadPrec CreateCacheCluster
Int -> ReadS CreateCacheCluster
ReadS [CreateCacheCluster]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateCacheCluster]
$creadListPrec :: ReadPrec [CreateCacheCluster]
readPrec :: ReadPrec CreateCacheCluster
$creadPrec :: ReadPrec CreateCacheCluster
readList :: ReadS [CreateCacheCluster]
$creadList :: ReadS [CreateCacheCluster]
readsPrec :: Int -> ReadS CreateCacheCluster
$creadsPrec :: Int -> ReadS CreateCacheCluster
Prelude.Read, Int -> CreateCacheCluster -> ShowS
[CreateCacheCluster] -> ShowS
CreateCacheCluster -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateCacheCluster] -> ShowS
$cshowList :: [CreateCacheCluster] -> ShowS
show :: CreateCacheCluster -> String
$cshow :: CreateCacheCluster -> String
showsPrec :: Int -> CreateCacheCluster -> ShowS
$cshowsPrec :: Int -> CreateCacheCluster -> ShowS
Prelude.Show, forall x. Rep CreateCacheCluster x -> CreateCacheCluster
forall x. CreateCacheCluster -> Rep CreateCacheCluster x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep CreateCacheCluster x -> CreateCacheCluster
$cfrom :: forall x. CreateCacheCluster -> Rep CreateCacheCluster x
Prelude.Generic)
newCreateCacheCluster ::
Prelude.Text ->
CreateCacheCluster
newCreateCacheCluster :: Text -> CreateCacheCluster
newCreateCacheCluster Text
pCacheClusterId_ =
CreateCacheCluster'
{ $sel:aZMode:CreateCacheCluster' :: Maybe AZMode
aZMode = forall a. Maybe a
Prelude.Nothing,
$sel:authToken:CreateCacheCluster' :: Maybe Text
authToken = forall a. Maybe a
Prelude.Nothing,
$sel:autoMinorVersionUpgrade:CreateCacheCluster' :: Maybe Bool
autoMinorVersionUpgrade = forall a. Maybe a
Prelude.Nothing,
$sel:cacheNodeType:CreateCacheCluster' :: Maybe Text
cacheNodeType = forall a. Maybe a
Prelude.Nothing,
$sel:cacheParameterGroupName:CreateCacheCluster' :: Maybe Text
cacheParameterGroupName = forall a. Maybe a
Prelude.Nothing,
$sel:cacheSecurityGroupNames:CreateCacheCluster' :: Maybe [Text]
cacheSecurityGroupNames = forall a. Maybe a
Prelude.Nothing,
$sel:cacheSubnetGroupName:CreateCacheCluster' :: Maybe Text
cacheSubnetGroupName = forall a. Maybe a
Prelude.Nothing,
$sel:engine:CreateCacheCluster' :: Maybe Text
engine = forall a. Maybe a
Prelude.Nothing,
$sel:engineVersion:CreateCacheCluster' :: Maybe Text
engineVersion = forall a. Maybe a
Prelude.Nothing,
$sel:ipDiscovery:CreateCacheCluster' :: Maybe IpDiscovery
ipDiscovery = forall a. Maybe a
Prelude.Nothing,
$sel:logDeliveryConfigurations:CreateCacheCluster' :: Maybe [LogDeliveryConfigurationRequest]
logDeliveryConfigurations = forall a. Maybe a
Prelude.Nothing,
$sel:networkType:CreateCacheCluster' :: Maybe NetworkType
networkType = forall a. Maybe a
Prelude.Nothing,
$sel:notificationTopicArn:CreateCacheCluster' :: Maybe Text
notificationTopicArn = forall a. Maybe a
Prelude.Nothing,
$sel:numCacheNodes:CreateCacheCluster' :: Maybe Int
numCacheNodes = forall a. Maybe a
Prelude.Nothing,
$sel:outpostMode:CreateCacheCluster' :: Maybe OutpostMode
outpostMode = forall a. Maybe a
Prelude.Nothing,
$sel:port:CreateCacheCluster' :: Maybe Int
port = forall a. Maybe a
Prelude.Nothing,
$sel:preferredAvailabilityZone:CreateCacheCluster' :: Maybe Text
preferredAvailabilityZone = forall a. Maybe a
Prelude.Nothing,
$sel:preferredAvailabilityZones:CreateCacheCluster' :: Maybe [Text]
preferredAvailabilityZones = forall a. Maybe a
Prelude.Nothing,
$sel:preferredMaintenanceWindow:CreateCacheCluster' :: Maybe Text
preferredMaintenanceWindow = forall a. Maybe a
Prelude.Nothing,
$sel:preferredOutpostArn:CreateCacheCluster' :: Maybe Text
preferredOutpostArn = forall a. Maybe a
Prelude.Nothing,
$sel:preferredOutpostArns:CreateCacheCluster' :: Maybe [Text]
preferredOutpostArns = forall a. Maybe a
Prelude.Nothing,
$sel:replicationGroupId:CreateCacheCluster' :: Maybe Text
replicationGroupId = forall a. Maybe a
Prelude.Nothing,
$sel:securityGroupIds:CreateCacheCluster' :: Maybe [Text]
securityGroupIds = forall a. Maybe a
Prelude.Nothing,
$sel:snapshotArns:CreateCacheCluster' :: Maybe [Text]
snapshotArns = forall a. Maybe a
Prelude.Nothing,
$sel:snapshotName:CreateCacheCluster' :: Maybe Text
snapshotName = forall a. Maybe a
Prelude.Nothing,
$sel:snapshotRetentionLimit:CreateCacheCluster' :: Maybe Int
snapshotRetentionLimit = forall a. Maybe a
Prelude.Nothing,
$sel:snapshotWindow:CreateCacheCluster' :: Maybe Text
snapshotWindow = forall a. Maybe a
Prelude.Nothing,
$sel:tags:CreateCacheCluster' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:transitEncryptionEnabled:CreateCacheCluster' :: Maybe Bool
transitEncryptionEnabled = forall a. Maybe a
Prelude.Nothing,
$sel:cacheClusterId:CreateCacheCluster' :: Text
cacheClusterId = Text
pCacheClusterId_
}
createCacheCluster_aZMode :: Lens.Lens' CreateCacheCluster (Prelude.Maybe AZMode)
createCacheCluster_aZMode :: Lens' CreateCacheCluster (Maybe AZMode)
createCacheCluster_aZMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe AZMode
aZMode :: Maybe AZMode
$sel:aZMode:CreateCacheCluster' :: CreateCacheCluster -> Maybe AZMode
aZMode} -> Maybe AZMode
aZMode) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe AZMode
a -> CreateCacheCluster
s {$sel:aZMode:CreateCacheCluster' :: Maybe AZMode
aZMode = Maybe AZMode
a} :: CreateCacheCluster)
createCacheCluster_authToken :: Lens.Lens' CreateCacheCluster (Prelude.Maybe Prelude.Text)
createCacheCluster_authToken :: Lens' CreateCacheCluster (Maybe Text)
createCacheCluster_authToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe Text
authToken :: Maybe Text
$sel:authToken:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
authToken} -> Maybe Text
authToken) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe Text
a -> CreateCacheCluster
s {$sel:authToken:CreateCacheCluster' :: Maybe Text
authToken = Maybe Text
a} :: CreateCacheCluster)
createCacheCluster_autoMinorVersionUpgrade :: Lens.Lens' CreateCacheCluster (Prelude.Maybe Prelude.Bool)
createCacheCluster_autoMinorVersionUpgrade :: Lens' CreateCacheCluster (Maybe Bool)
createCacheCluster_autoMinorVersionUpgrade = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe Bool
autoMinorVersionUpgrade :: Maybe Bool
$sel:autoMinorVersionUpgrade:CreateCacheCluster' :: CreateCacheCluster -> Maybe Bool
autoMinorVersionUpgrade} -> Maybe Bool
autoMinorVersionUpgrade) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe Bool
a -> CreateCacheCluster
s {$sel:autoMinorVersionUpgrade:CreateCacheCluster' :: Maybe Bool
autoMinorVersionUpgrade = Maybe Bool
a} :: CreateCacheCluster)
createCacheCluster_cacheNodeType :: Lens.Lens' CreateCacheCluster (Prelude.Maybe Prelude.Text)
createCacheCluster_cacheNodeType :: Lens' CreateCacheCluster (Maybe Text)
createCacheCluster_cacheNodeType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe Text
cacheNodeType :: Maybe Text
$sel:cacheNodeType:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
cacheNodeType} -> Maybe Text
cacheNodeType) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe Text
a -> CreateCacheCluster
s {$sel:cacheNodeType:CreateCacheCluster' :: Maybe Text
cacheNodeType = Maybe Text
a} :: CreateCacheCluster)
createCacheCluster_cacheParameterGroupName :: Lens.Lens' CreateCacheCluster (Prelude.Maybe Prelude.Text)
createCacheCluster_cacheParameterGroupName :: Lens' CreateCacheCluster (Maybe Text)
createCacheCluster_cacheParameterGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe Text
cacheParameterGroupName :: Maybe Text
$sel:cacheParameterGroupName:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
cacheParameterGroupName} -> Maybe Text
cacheParameterGroupName) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe Text
a -> CreateCacheCluster
s {$sel:cacheParameterGroupName:CreateCacheCluster' :: Maybe Text
cacheParameterGroupName = Maybe Text
a} :: CreateCacheCluster)
createCacheCluster_cacheSecurityGroupNames :: Lens.Lens' CreateCacheCluster (Prelude.Maybe [Prelude.Text])
createCacheCluster_cacheSecurityGroupNames :: Lens' CreateCacheCluster (Maybe [Text])
createCacheCluster_cacheSecurityGroupNames = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe [Text]
cacheSecurityGroupNames :: Maybe [Text]
$sel:cacheSecurityGroupNames:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Text]
cacheSecurityGroupNames} -> Maybe [Text]
cacheSecurityGroupNames) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe [Text]
a -> CreateCacheCluster
s {$sel:cacheSecurityGroupNames:CreateCacheCluster' :: Maybe [Text]
cacheSecurityGroupNames = Maybe [Text]
a} :: CreateCacheCluster) 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
createCacheCluster_cacheSubnetGroupName :: Lens.Lens' CreateCacheCluster (Prelude.Maybe Prelude.Text)
createCacheCluster_cacheSubnetGroupName :: Lens' CreateCacheCluster (Maybe Text)
createCacheCluster_cacheSubnetGroupName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe Text
cacheSubnetGroupName :: Maybe Text
$sel:cacheSubnetGroupName:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
cacheSubnetGroupName} -> Maybe Text
cacheSubnetGroupName) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe Text
a -> CreateCacheCluster
s {$sel:cacheSubnetGroupName:CreateCacheCluster' :: Maybe Text
cacheSubnetGroupName = Maybe Text
a} :: CreateCacheCluster)
createCacheCluster_engine :: Lens.Lens' CreateCacheCluster (Prelude.Maybe Prelude.Text)
createCacheCluster_engine :: Lens' CreateCacheCluster (Maybe Text)
createCacheCluster_engine = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe Text
engine :: Maybe Text
$sel:engine:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
engine} -> Maybe Text
engine) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe Text
a -> CreateCacheCluster
s {$sel:engine:CreateCacheCluster' :: Maybe Text
engine = Maybe Text
a} :: CreateCacheCluster)
createCacheCluster_engineVersion :: Lens.Lens' CreateCacheCluster (Prelude.Maybe Prelude.Text)
createCacheCluster_engineVersion :: Lens' CreateCacheCluster (Maybe Text)
createCacheCluster_engineVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe Text
engineVersion :: Maybe Text
$sel:engineVersion:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
engineVersion} -> Maybe Text
engineVersion) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe Text
a -> CreateCacheCluster
s {$sel:engineVersion:CreateCacheCluster' :: Maybe Text
engineVersion = Maybe Text
a} :: CreateCacheCluster)
createCacheCluster_ipDiscovery :: Lens.Lens' CreateCacheCluster (Prelude.Maybe IpDiscovery)
createCacheCluster_ipDiscovery :: Lens' CreateCacheCluster (Maybe IpDiscovery)
createCacheCluster_ipDiscovery = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe IpDiscovery
ipDiscovery :: Maybe IpDiscovery
$sel:ipDiscovery:CreateCacheCluster' :: CreateCacheCluster -> Maybe IpDiscovery
ipDiscovery} -> Maybe IpDiscovery
ipDiscovery) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe IpDiscovery
a -> CreateCacheCluster
s {$sel:ipDiscovery:CreateCacheCluster' :: Maybe IpDiscovery
ipDiscovery = Maybe IpDiscovery
a} :: CreateCacheCluster)
createCacheCluster_logDeliveryConfigurations :: Lens.Lens' CreateCacheCluster (Prelude.Maybe [LogDeliveryConfigurationRequest])
createCacheCluster_logDeliveryConfigurations :: Lens' CreateCacheCluster (Maybe [LogDeliveryConfigurationRequest])
createCacheCluster_logDeliveryConfigurations = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe [LogDeliveryConfigurationRequest]
logDeliveryConfigurations :: Maybe [LogDeliveryConfigurationRequest]
$sel:logDeliveryConfigurations:CreateCacheCluster' :: CreateCacheCluster -> Maybe [LogDeliveryConfigurationRequest]
logDeliveryConfigurations} -> Maybe [LogDeliveryConfigurationRequest]
logDeliveryConfigurations) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe [LogDeliveryConfigurationRequest]
a -> CreateCacheCluster
s {$sel:logDeliveryConfigurations:CreateCacheCluster' :: Maybe [LogDeliveryConfigurationRequest]
logDeliveryConfigurations = Maybe [LogDeliveryConfigurationRequest]
a} :: CreateCacheCluster) 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
createCacheCluster_networkType :: Lens.Lens' CreateCacheCluster (Prelude.Maybe NetworkType)
createCacheCluster_networkType :: Lens' CreateCacheCluster (Maybe NetworkType)
createCacheCluster_networkType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe NetworkType
networkType :: Maybe NetworkType
$sel:networkType:CreateCacheCluster' :: CreateCacheCluster -> Maybe NetworkType
networkType} -> Maybe NetworkType
networkType) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe NetworkType
a -> CreateCacheCluster
s {$sel:networkType:CreateCacheCluster' :: Maybe NetworkType
networkType = Maybe NetworkType
a} :: CreateCacheCluster)
createCacheCluster_notificationTopicArn :: Lens.Lens' CreateCacheCluster (Prelude.Maybe Prelude.Text)
createCacheCluster_notificationTopicArn :: Lens' CreateCacheCluster (Maybe Text)
createCacheCluster_notificationTopicArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe Text
notificationTopicArn :: Maybe Text
$sel:notificationTopicArn:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
notificationTopicArn} -> Maybe Text
notificationTopicArn) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe Text
a -> CreateCacheCluster
s {$sel:notificationTopicArn:CreateCacheCluster' :: Maybe Text
notificationTopicArn = Maybe Text
a} :: CreateCacheCluster)
createCacheCluster_numCacheNodes :: Lens.Lens' CreateCacheCluster (Prelude.Maybe Prelude.Int)
createCacheCluster_numCacheNodes :: Lens' CreateCacheCluster (Maybe Int)
createCacheCluster_numCacheNodes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe Int
numCacheNodes :: Maybe Int
$sel:numCacheNodes:CreateCacheCluster' :: CreateCacheCluster -> Maybe Int
numCacheNodes} -> Maybe Int
numCacheNodes) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe Int
a -> CreateCacheCluster
s {$sel:numCacheNodes:CreateCacheCluster' :: Maybe Int
numCacheNodes = Maybe Int
a} :: CreateCacheCluster)
createCacheCluster_outpostMode :: Lens.Lens' CreateCacheCluster (Prelude.Maybe OutpostMode)
createCacheCluster_outpostMode :: Lens' CreateCacheCluster (Maybe OutpostMode)
createCacheCluster_outpostMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe OutpostMode
outpostMode :: Maybe OutpostMode
$sel:outpostMode:CreateCacheCluster' :: CreateCacheCluster -> Maybe OutpostMode
outpostMode} -> Maybe OutpostMode
outpostMode) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe OutpostMode
a -> CreateCacheCluster
s {$sel:outpostMode:CreateCacheCluster' :: Maybe OutpostMode
outpostMode = Maybe OutpostMode
a} :: CreateCacheCluster)
createCacheCluster_port :: Lens.Lens' CreateCacheCluster (Prelude.Maybe Prelude.Int)
createCacheCluster_port :: Lens' CreateCacheCluster (Maybe Int)
createCacheCluster_port = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe Int
port :: Maybe Int
$sel:port:CreateCacheCluster' :: CreateCacheCluster -> Maybe Int
port} -> Maybe Int
port) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe Int
a -> CreateCacheCluster
s {$sel:port:CreateCacheCluster' :: Maybe Int
port = Maybe Int
a} :: CreateCacheCluster)
createCacheCluster_preferredAvailabilityZone :: Lens.Lens' CreateCacheCluster (Prelude.Maybe Prelude.Text)
createCacheCluster_preferredAvailabilityZone :: Lens' CreateCacheCluster (Maybe Text)
createCacheCluster_preferredAvailabilityZone = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe Text
preferredAvailabilityZone :: Maybe Text
$sel:preferredAvailabilityZone:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
preferredAvailabilityZone} -> Maybe Text
preferredAvailabilityZone) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe Text
a -> CreateCacheCluster
s {$sel:preferredAvailabilityZone:CreateCacheCluster' :: Maybe Text
preferredAvailabilityZone = Maybe Text
a} :: CreateCacheCluster)
createCacheCluster_preferredAvailabilityZones :: Lens.Lens' CreateCacheCluster (Prelude.Maybe [Prelude.Text])
createCacheCluster_preferredAvailabilityZones :: Lens' CreateCacheCluster (Maybe [Text])
createCacheCluster_preferredAvailabilityZones = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe [Text]
preferredAvailabilityZones :: Maybe [Text]
$sel:preferredAvailabilityZones:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Text]
preferredAvailabilityZones} -> Maybe [Text]
preferredAvailabilityZones) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe [Text]
a -> CreateCacheCluster
s {$sel:preferredAvailabilityZones:CreateCacheCluster' :: Maybe [Text]
preferredAvailabilityZones = Maybe [Text]
a} :: CreateCacheCluster) 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
createCacheCluster_preferredMaintenanceWindow :: Lens.Lens' CreateCacheCluster (Prelude.Maybe Prelude.Text)
createCacheCluster_preferredMaintenanceWindow :: Lens' CreateCacheCluster (Maybe Text)
createCacheCluster_preferredMaintenanceWindow = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe Text
preferredMaintenanceWindow :: Maybe Text
$sel:preferredMaintenanceWindow:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
preferredMaintenanceWindow} -> Maybe Text
preferredMaintenanceWindow) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe Text
a -> CreateCacheCluster
s {$sel:preferredMaintenanceWindow:CreateCacheCluster' :: Maybe Text
preferredMaintenanceWindow = Maybe Text
a} :: CreateCacheCluster)
createCacheCluster_preferredOutpostArn :: Lens.Lens' CreateCacheCluster (Prelude.Maybe Prelude.Text)
createCacheCluster_preferredOutpostArn :: Lens' CreateCacheCluster (Maybe Text)
createCacheCluster_preferredOutpostArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe Text
preferredOutpostArn :: Maybe Text
$sel:preferredOutpostArn:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
preferredOutpostArn} -> Maybe Text
preferredOutpostArn) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe Text
a -> CreateCacheCluster
s {$sel:preferredOutpostArn:CreateCacheCluster' :: Maybe Text
preferredOutpostArn = Maybe Text
a} :: CreateCacheCluster)
createCacheCluster_preferredOutpostArns :: Lens.Lens' CreateCacheCluster (Prelude.Maybe [Prelude.Text])
createCacheCluster_preferredOutpostArns :: Lens' CreateCacheCluster (Maybe [Text])
createCacheCluster_preferredOutpostArns = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe [Text]
preferredOutpostArns :: Maybe [Text]
$sel:preferredOutpostArns:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Text]
preferredOutpostArns} -> Maybe [Text]
preferredOutpostArns) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe [Text]
a -> CreateCacheCluster
s {$sel:preferredOutpostArns:CreateCacheCluster' :: Maybe [Text]
preferredOutpostArns = Maybe [Text]
a} :: CreateCacheCluster) 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
createCacheCluster_replicationGroupId :: Lens.Lens' CreateCacheCluster (Prelude.Maybe Prelude.Text)
createCacheCluster_replicationGroupId :: Lens' CreateCacheCluster (Maybe Text)
createCacheCluster_replicationGroupId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe Text
replicationGroupId :: Maybe Text
$sel:replicationGroupId:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
replicationGroupId} -> Maybe Text
replicationGroupId) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe Text
a -> CreateCacheCluster
s {$sel:replicationGroupId:CreateCacheCluster' :: Maybe Text
replicationGroupId = Maybe Text
a} :: CreateCacheCluster)
createCacheCluster_securityGroupIds :: Lens.Lens' CreateCacheCluster (Prelude.Maybe [Prelude.Text])
createCacheCluster_securityGroupIds :: Lens' CreateCacheCluster (Maybe [Text])
createCacheCluster_securityGroupIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe [Text]
securityGroupIds :: Maybe [Text]
$sel:securityGroupIds:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Text]
securityGroupIds} -> Maybe [Text]
securityGroupIds) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe [Text]
a -> CreateCacheCluster
s {$sel:securityGroupIds:CreateCacheCluster' :: Maybe [Text]
securityGroupIds = Maybe [Text]
a} :: CreateCacheCluster) 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
createCacheCluster_snapshotArns :: Lens.Lens' CreateCacheCluster (Prelude.Maybe [Prelude.Text])
createCacheCluster_snapshotArns :: Lens' CreateCacheCluster (Maybe [Text])
createCacheCluster_snapshotArns = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe [Text]
snapshotArns :: Maybe [Text]
$sel:snapshotArns:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Text]
snapshotArns} -> Maybe [Text]
snapshotArns) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe [Text]
a -> CreateCacheCluster
s {$sel:snapshotArns:CreateCacheCluster' :: Maybe [Text]
snapshotArns = Maybe [Text]
a} :: CreateCacheCluster) 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
createCacheCluster_snapshotName :: Lens.Lens' CreateCacheCluster (Prelude.Maybe Prelude.Text)
createCacheCluster_snapshotName :: Lens' CreateCacheCluster (Maybe Text)
createCacheCluster_snapshotName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe Text
snapshotName :: Maybe Text
$sel:snapshotName:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
snapshotName} -> Maybe Text
snapshotName) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe Text
a -> CreateCacheCluster
s {$sel:snapshotName:CreateCacheCluster' :: Maybe Text
snapshotName = Maybe Text
a} :: CreateCacheCluster)
createCacheCluster_snapshotRetentionLimit :: Lens.Lens' CreateCacheCluster (Prelude.Maybe Prelude.Int)
createCacheCluster_snapshotRetentionLimit :: Lens' CreateCacheCluster (Maybe Int)
createCacheCluster_snapshotRetentionLimit = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe Int
snapshotRetentionLimit :: Maybe Int
$sel:snapshotRetentionLimit:CreateCacheCluster' :: CreateCacheCluster -> Maybe Int
snapshotRetentionLimit} -> Maybe Int
snapshotRetentionLimit) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe Int
a -> CreateCacheCluster
s {$sel:snapshotRetentionLimit:CreateCacheCluster' :: Maybe Int
snapshotRetentionLimit = Maybe Int
a} :: CreateCacheCluster)
createCacheCluster_snapshotWindow :: Lens.Lens' CreateCacheCluster (Prelude.Maybe Prelude.Text)
createCacheCluster_snapshotWindow :: Lens' CreateCacheCluster (Maybe Text)
createCacheCluster_snapshotWindow = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe Text
snapshotWindow :: Maybe Text
$sel:snapshotWindow:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
snapshotWindow} -> Maybe Text
snapshotWindow) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe Text
a -> CreateCacheCluster
s {$sel:snapshotWindow:CreateCacheCluster' :: Maybe Text
snapshotWindow = Maybe Text
a} :: CreateCacheCluster)
createCacheCluster_tags :: Lens.Lens' CreateCacheCluster (Prelude.Maybe [Tag])
createCacheCluster_tags :: Lens' CreateCacheCluster (Maybe [Tag])
createCacheCluster_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe [Tag]
a -> CreateCacheCluster
s {$sel:tags:CreateCacheCluster' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: CreateCacheCluster) 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
createCacheCluster_transitEncryptionEnabled :: Lens.Lens' CreateCacheCluster (Prelude.Maybe Prelude.Bool)
createCacheCluster_transitEncryptionEnabled :: Lens' CreateCacheCluster (Maybe Bool)
createCacheCluster_transitEncryptionEnabled = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Maybe Bool
transitEncryptionEnabled :: Maybe Bool
$sel:transitEncryptionEnabled:CreateCacheCluster' :: CreateCacheCluster -> Maybe Bool
transitEncryptionEnabled} -> Maybe Bool
transitEncryptionEnabled) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Maybe Bool
a -> CreateCacheCluster
s {$sel:transitEncryptionEnabled:CreateCacheCluster' :: Maybe Bool
transitEncryptionEnabled = Maybe Bool
a} :: CreateCacheCluster)
createCacheCluster_cacheClusterId :: Lens.Lens' CreateCacheCluster Prelude.Text
createCacheCluster_cacheClusterId :: Lens' CreateCacheCluster Text
createCacheCluster_cacheClusterId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheCluster' {Text
cacheClusterId :: Text
$sel:cacheClusterId:CreateCacheCluster' :: CreateCacheCluster -> Text
cacheClusterId} -> Text
cacheClusterId) (\s :: CreateCacheCluster
s@CreateCacheCluster' {} Text
a -> CreateCacheCluster
s {$sel:cacheClusterId:CreateCacheCluster' :: Text
cacheClusterId = Text
a} :: CreateCacheCluster)
instance Core.AWSRequest CreateCacheCluster where
type
AWSResponse CreateCacheCluster =
CreateCacheClusterResponse
request :: (Service -> Service)
-> CreateCacheCluster -> Request CreateCacheCluster
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 CreateCacheCluster
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateCacheCluster)))
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
"CreateCacheClusterResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe CacheCluster -> Int -> CreateCacheClusterResponse
CreateCacheClusterResponse'
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
"CacheCluster")
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 CreateCacheCluster where
hashWithSalt :: Int -> CreateCacheCluster -> Int
hashWithSalt Int
_salt CreateCacheCluster' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe [LogDeliveryConfigurationRequest]
Maybe [Tag]
Maybe Text
Maybe AZMode
Maybe IpDiscovery
Maybe NetworkType
Maybe OutpostMode
Text
cacheClusterId :: Text
transitEncryptionEnabled :: Maybe Bool
tags :: Maybe [Tag]
snapshotWindow :: Maybe Text
snapshotRetentionLimit :: Maybe Int
snapshotName :: Maybe Text
snapshotArns :: Maybe [Text]
securityGroupIds :: Maybe [Text]
replicationGroupId :: Maybe Text
preferredOutpostArns :: Maybe [Text]
preferredOutpostArn :: Maybe Text
preferredMaintenanceWindow :: Maybe Text
preferredAvailabilityZones :: Maybe [Text]
preferredAvailabilityZone :: Maybe Text
port :: Maybe Int
outpostMode :: Maybe OutpostMode
numCacheNodes :: Maybe Int
notificationTopicArn :: Maybe Text
networkType :: Maybe NetworkType
logDeliveryConfigurations :: Maybe [LogDeliveryConfigurationRequest]
ipDiscovery :: Maybe IpDiscovery
engineVersion :: Maybe Text
engine :: Maybe Text
cacheSubnetGroupName :: Maybe Text
cacheSecurityGroupNames :: Maybe [Text]
cacheParameterGroupName :: Maybe Text
cacheNodeType :: Maybe Text
autoMinorVersionUpgrade :: Maybe Bool
authToken :: Maybe Text
aZMode :: Maybe AZMode
$sel:cacheClusterId:CreateCacheCluster' :: CreateCacheCluster -> Text
$sel:transitEncryptionEnabled:CreateCacheCluster' :: CreateCacheCluster -> Maybe Bool
$sel:tags:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Tag]
$sel:snapshotWindow:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:snapshotRetentionLimit:CreateCacheCluster' :: CreateCacheCluster -> Maybe Int
$sel:snapshotName:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:snapshotArns:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Text]
$sel:securityGroupIds:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Text]
$sel:replicationGroupId:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:preferredOutpostArns:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Text]
$sel:preferredOutpostArn:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:preferredMaintenanceWindow:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:preferredAvailabilityZones:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Text]
$sel:preferredAvailabilityZone:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:port:CreateCacheCluster' :: CreateCacheCluster -> Maybe Int
$sel:outpostMode:CreateCacheCluster' :: CreateCacheCluster -> Maybe OutpostMode
$sel:numCacheNodes:CreateCacheCluster' :: CreateCacheCluster -> Maybe Int
$sel:notificationTopicArn:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:networkType:CreateCacheCluster' :: CreateCacheCluster -> Maybe NetworkType
$sel:logDeliveryConfigurations:CreateCacheCluster' :: CreateCacheCluster -> Maybe [LogDeliveryConfigurationRequest]
$sel:ipDiscovery:CreateCacheCluster' :: CreateCacheCluster -> Maybe IpDiscovery
$sel:engineVersion:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:engine:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:cacheSubnetGroupName:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:cacheSecurityGroupNames:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Text]
$sel:cacheParameterGroupName:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:cacheNodeType:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:autoMinorVersionUpgrade:CreateCacheCluster' :: CreateCacheCluster -> Maybe Bool
$sel:authToken:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:aZMode:CreateCacheCluster' :: CreateCacheCluster -> Maybe AZMode
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe AZMode
aZMode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
authToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
autoMinorVersionUpgrade
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cacheNodeType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cacheParameterGroupName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
cacheSecurityGroupNames
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
cacheSubnetGroupName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
engine
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
engineVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe IpDiscovery
ipDiscovery
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [LogDeliveryConfigurationRequest]
logDeliveryConfigurations
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe NetworkType
networkType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
notificationTopicArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
numCacheNodes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe OutpostMode
outpostMode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
port
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
preferredAvailabilityZone
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
preferredAvailabilityZones
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
preferredMaintenanceWindow
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
preferredOutpostArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
preferredOutpostArns
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
replicationGroupId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
securityGroupIds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
snapshotArns
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
snapshotName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
snapshotRetentionLimit
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
snapshotWindow
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
transitEncryptionEnabled
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
cacheClusterId
instance Prelude.NFData CreateCacheCluster where
rnf :: CreateCacheCluster -> ()
rnf CreateCacheCluster' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe [LogDeliveryConfigurationRequest]
Maybe [Tag]
Maybe Text
Maybe AZMode
Maybe IpDiscovery
Maybe NetworkType
Maybe OutpostMode
Text
cacheClusterId :: Text
transitEncryptionEnabled :: Maybe Bool
tags :: Maybe [Tag]
snapshotWindow :: Maybe Text
snapshotRetentionLimit :: Maybe Int
snapshotName :: Maybe Text
snapshotArns :: Maybe [Text]
securityGroupIds :: Maybe [Text]
replicationGroupId :: Maybe Text
preferredOutpostArns :: Maybe [Text]
preferredOutpostArn :: Maybe Text
preferredMaintenanceWindow :: Maybe Text
preferredAvailabilityZones :: Maybe [Text]
preferredAvailabilityZone :: Maybe Text
port :: Maybe Int
outpostMode :: Maybe OutpostMode
numCacheNodes :: Maybe Int
notificationTopicArn :: Maybe Text
networkType :: Maybe NetworkType
logDeliveryConfigurations :: Maybe [LogDeliveryConfigurationRequest]
ipDiscovery :: Maybe IpDiscovery
engineVersion :: Maybe Text
engine :: Maybe Text
cacheSubnetGroupName :: Maybe Text
cacheSecurityGroupNames :: Maybe [Text]
cacheParameterGroupName :: Maybe Text
cacheNodeType :: Maybe Text
autoMinorVersionUpgrade :: Maybe Bool
authToken :: Maybe Text
aZMode :: Maybe AZMode
$sel:cacheClusterId:CreateCacheCluster' :: CreateCacheCluster -> Text
$sel:transitEncryptionEnabled:CreateCacheCluster' :: CreateCacheCluster -> Maybe Bool
$sel:tags:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Tag]
$sel:snapshotWindow:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:snapshotRetentionLimit:CreateCacheCluster' :: CreateCacheCluster -> Maybe Int
$sel:snapshotName:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:snapshotArns:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Text]
$sel:securityGroupIds:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Text]
$sel:replicationGroupId:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:preferredOutpostArns:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Text]
$sel:preferredOutpostArn:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:preferredMaintenanceWindow:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:preferredAvailabilityZones:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Text]
$sel:preferredAvailabilityZone:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:port:CreateCacheCluster' :: CreateCacheCluster -> Maybe Int
$sel:outpostMode:CreateCacheCluster' :: CreateCacheCluster -> Maybe OutpostMode
$sel:numCacheNodes:CreateCacheCluster' :: CreateCacheCluster -> Maybe Int
$sel:notificationTopicArn:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:networkType:CreateCacheCluster' :: CreateCacheCluster -> Maybe NetworkType
$sel:logDeliveryConfigurations:CreateCacheCluster' :: CreateCacheCluster -> Maybe [LogDeliveryConfigurationRequest]
$sel:ipDiscovery:CreateCacheCluster' :: CreateCacheCluster -> Maybe IpDiscovery
$sel:engineVersion:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:engine:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:cacheSubnetGroupName:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:cacheSecurityGroupNames:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Text]
$sel:cacheParameterGroupName:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:cacheNodeType:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:autoMinorVersionUpgrade:CreateCacheCluster' :: CreateCacheCluster -> Maybe Bool
$sel:authToken:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:aZMode:CreateCacheCluster' :: CreateCacheCluster -> Maybe AZMode
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe AZMode
aZMode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
authToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
autoMinorVersionUpgrade
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cacheNodeType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cacheParameterGroupName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
cacheSecurityGroupNames
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
cacheSubnetGroupName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
engine
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
engineVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe IpDiscovery
ipDiscovery
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [LogDeliveryConfigurationRequest]
logDeliveryConfigurations
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe NetworkType
networkType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
notificationTopicArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
numCacheNodes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe OutpostMode
outpostMode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
port
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Text
preferredAvailabilityZone
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe [Text]
preferredAvailabilityZones
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Text
preferredMaintenanceWindow
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Text
preferredOutpostArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe [Text]
preferredOutpostArns
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Text
replicationGroupId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe [Text]
securityGroupIds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe [Text]
snapshotArns
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Text
snapshotName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Int
snapshotRetentionLimit
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Text
snapshotWindow
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 Bool
transitEncryptionEnabled
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Text
cacheClusterId
instance Data.ToHeaders CreateCacheCluster where
toHeaders :: CreateCacheCluster -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath CreateCacheCluster where
toPath :: CreateCacheCluster -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery CreateCacheCluster where
toQuery :: CreateCacheCluster -> QueryString
toQuery CreateCacheCluster' {Maybe Bool
Maybe Int
Maybe [Text]
Maybe [LogDeliveryConfigurationRequest]
Maybe [Tag]
Maybe Text
Maybe AZMode
Maybe IpDiscovery
Maybe NetworkType
Maybe OutpostMode
Text
cacheClusterId :: Text
transitEncryptionEnabled :: Maybe Bool
tags :: Maybe [Tag]
snapshotWindow :: Maybe Text
snapshotRetentionLimit :: Maybe Int
snapshotName :: Maybe Text
snapshotArns :: Maybe [Text]
securityGroupIds :: Maybe [Text]
replicationGroupId :: Maybe Text
preferredOutpostArns :: Maybe [Text]
preferredOutpostArn :: Maybe Text
preferredMaintenanceWindow :: Maybe Text
preferredAvailabilityZones :: Maybe [Text]
preferredAvailabilityZone :: Maybe Text
port :: Maybe Int
outpostMode :: Maybe OutpostMode
numCacheNodes :: Maybe Int
notificationTopicArn :: Maybe Text
networkType :: Maybe NetworkType
logDeliveryConfigurations :: Maybe [LogDeliveryConfigurationRequest]
ipDiscovery :: Maybe IpDiscovery
engineVersion :: Maybe Text
engine :: Maybe Text
cacheSubnetGroupName :: Maybe Text
cacheSecurityGroupNames :: Maybe [Text]
cacheParameterGroupName :: Maybe Text
cacheNodeType :: Maybe Text
autoMinorVersionUpgrade :: Maybe Bool
authToken :: Maybe Text
aZMode :: Maybe AZMode
$sel:cacheClusterId:CreateCacheCluster' :: CreateCacheCluster -> Text
$sel:transitEncryptionEnabled:CreateCacheCluster' :: CreateCacheCluster -> Maybe Bool
$sel:tags:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Tag]
$sel:snapshotWindow:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:snapshotRetentionLimit:CreateCacheCluster' :: CreateCacheCluster -> Maybe Int
$sel:snapshotName:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:snapshotArns:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Text]
$sel:securityGroupIds:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Text]
$sel:replicationGroupId:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:preferredOutpostArns:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Text]
$sel:preferredOutpostArn:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:preferredMaintenanceWindow:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:preferredAvailabilityZones:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Text]
$sel:preferredAvailabilityZone:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:port:CreateCacheCluster' :: CreateCacheCluster -> Maybe Int
$sel:outpostMode:CreateCacheCluster' :: CreateCacheCluster -> Maybe OutpostMode
$sel:numCacheNodes:CreateCacheCluster' :: CreateCacheCluster -> Maybe Int
$sel:notificationTopicArn:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:networkType:CreateCacheCluster' :: CreateCacheCluster -> Maybe NetworkType
$sel:logDeliveryConfigurations:CreateCacheCluster' :: CreateCacheCluster -> Maybe [LogDeliveryConfigurationRequest]
$sel:ipDiscovery:CreateCacheCluster' :: CreateCacheCluster -> Maybe IpDiscovery
$sel:engineVersion:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:engine:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:cacheSubnetGroupName:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:cacheSecurityGroupNames:CreateCacheCluster' :: CreateCacheCluster -> Maybe [Text]
$sel:cacheParameterGroupName:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:cacheNodeType:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:autoMinorVersionUpgrade:CreateCacheCluster' :: CreateCacheCluster -> Maybe Bool
$sel:authToken:CreateCacheCluster' :: CreateCacheCluster -> Maybe Text
$sel:aZMode:CreateCacheCluster' :: CreateCacheCluster -> Maybe AZMode
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"CreateCacheCluster" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2015-02-02" :: Prelude.ByteString),
ByteString
"AZMode" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe AZMode
aZMode,
ByteString
"AuthToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
authToken,
ByteString
"AutoMinorVersionUpgrade"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
autoMinorVersionUpgrade,
ByteString
"CacheNodeType" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
cacheNodeType,
ByteString
"CacheParameterGroupName"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
cacheParameterGroupName,
ByteString
"CacheSecurityGroupNames"
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
"CacheSecurityGroupName"
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
cacheSecurityGroupNames
),
ByteString
"CacheSubnetGroupName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
cacheSubnetGroupName,
ByteString
"Engine" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
engine,
ByteString
"EngineVersion" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
engineVersion,
ByteString
"IpDiscovery" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe IpDiscovery
ipDiscovery,
ByteString
"LogDeliveryConfigurations"
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
"LogDeliveryConfigurationRequest"
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [LogDeliveryConfigurationRequest]
logDeliveryConfigurations
),
ByteString
"NetworkType" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe NetworkType
networkType,
ByteString
"NotificationTopicArn" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
notificationTopicArn,
ByteString
"NumCacheNodes" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
numCacheNodes,
ByteString
"OutpostMode" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe OutpostMode
outpostMode,
ByteString
"Port" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
port,
ByteString
"PreferredAvailabilityZone"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
preferredAvailabilityZone,
ByteString
"PreferredAvailabilityZones"
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
"PreferredAvailabilityZone"
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
preferredAvailabilityZones
),
ByteString
"PreferredMaintenanceWindow"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
preferredMaintenanceWindow,
ByteString
"PreferredOutpostArn" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
preferredOutpostArn,
ByteString
"PreferredOutpostArns"
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
"PreferredOutpostArn"
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
preferredOutpostArns
),
ByteString
"ReplicationGroupId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
replicationGroupId,
ByteString
"SecurityGroupIds"
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
"SecurityGroupId"
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
securityGroupIds
),
ByteString
"SnapshotArns"
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
"SnapshotArn"
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
snapshotArns
),
ByteString
"SnapshotName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
snapshotName,
ByteString
"SnapshotRetentionLimit"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
snapshotRetentionLimit,
ByteString
"SnapshotWindow" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
snapshotWindow,
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
"TransitEncryptionEnabled"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
transitEncryptionEnabled,
ByteString
"CacheClusterId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
cacheClusterId
]
data CreateCacheClusterResponse = CreateCacheClusterResponse'
{ CreateCacheClusterResponse -> Maybe CacheCluster
cacheCluster :: Prelude.Maybe CacheCluster,
CreateCacheClusterResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateCacheClusterResponse -> CreateCacheClusterResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateCacheClusterResponse -> CreateCacheClusterResponse -> Bool
$c/= :: CreateCacheClusterResponse -> CreateCacheClusterResponse -> Bool
== :: CreateCacheClusterResponse -> CreateCacheClusterResponse -> Bool
$c== :: CreateCacheClusterResponse -> CreateCacheClusterResponse -> Bool
Prelude.Eq, ReadPrec [CreateCacheClusterResponse]
ReadPrec CreateCacheClusterResponse
Int -> ReadS CreateCacheClusterResponse
ReadS [CreateCacheClusterResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateCacheClusterResponse]
$creadListPrec :: ReadPrec [CreateCacheClusterResponse]
readPrec :: ReadPrec CreateCacheClusterResponse
$creadPrec :: ReadPrec CreateCacheClusterResponse
readList :: ReadS [CreateCacheClusterResponse]
$creadList :: ReadS [CreateCacheClusterResponse]
readsPrec :: Int -> ReadS CreateCacheClusterResponse
$creadsPrec :: Int -> ReadS CreateCacheClusterResponse
Prelude.Read, Int -> CreateCacheClusterResponse -> ShowS
[CreateCacheClusterResponse] -> ShowS
CreateCacheClusterResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateCacheClusterResponse] -> ShowS
$cshowList :: [CreateCacheClusterResponse] -> ShowS
show :: CreateCacheClusterResponse -> String
$cshow :: CreateCacheClusterResponse -> String
showsPrec :: Int -> CreateCacheClusterResponse -> ShowS
$cshowsPrec :: Int -> CreateCacheClusterResponse -> ShowS
Prelude.Show, forall x.
Rep CreateCacheClusterResponse x -> CreateCacheClusterResponse
forall x.
CreateCacheClusterResponse -> Rep CreateCacheClusterResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateCacheClusterResponse x -> CreateCacheClusterResponse
$cfrom :: forall x.
CreateCacheClusterResponse -> Rep CreateCacheClusterResponse x
Prelude.Generic)
newCreateCacheClusterResponse ::
Prelude.Int ->
CreateCacheClusterResponse
newCreateCacheClusterResponse :: Int -> CreateCacheClusterResponse
newCreateCacheClusterResponse Int
pHttpStatus_ =
CreateCacheClusterResponse'
{ $sel:cacheCluster:CreateCacheClusterResponse' :: Maybe CacheCluster
cacheCluster =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateCacheClusterResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createCacheClusterResponse_cacheCluster :: Lens.Lens' CreateCacheClusterResponse (Prelude.Maybe CacheCluster)
createCacheClusterResponse_cacheCluster :: Lens' CreateCacheClusterResponse (Maybe CacheCluster)
createCacheClusterResponse_cacheCluster = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheClusterResponse' {Maybe CacheCluster
cacheCluster :: Maybe CacheCluster
$sel:cacheCluster:CreateCacheClusterResponse' :: CreateCacheClusterResponse -> Maybe CacheCluster
cacheCluster} -> Maybe CacheCluster
cacheCluster) (\s :: CreateCacheClusterResponse
s@CreateCacheClusterResponse' {} Maybe CacheCluster
a -> CreateCacheClusterResponse
s {$sel:cacheCluster:CreateCacheClusterResponse' :: Maybe CacheCluster
cacheCluster = Maybe CacheCluster
a} :: CreateCacheClusterResponse)
createCacheClusterResponse_httpStatus :: Lens.Lens' CreateCacheClusterResponse Prelude.Int
createCacheClusterResponse_httpStatus :: Lens' CreateCacheClusterResponse Int
createCacheClusterResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateCacheClusterResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateCacheClusterResponse' :: CreateCacheClusterResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateCacheClusterResponse
s@CreateCacheClusterResponse' {} Int
a -> CreateCacheClusterResponse
s {$sel:httpStatus:CreateCacheClusterResponse' :: Int
httpStatus = Int
a} :: CreateCacheClusterResponse)
instance Prelude.NFData CreateCacheClusterResponse where
rnf :: CreateCacheClusterResponse -> ()
rnf CreateCacheClusterResponse' {Int
Maybe CacheCluster
httpStatus :: Int
cacheCluster :: Maybe CacheCluster
$sel:httpStatus:CreateCacheClusterResponse' :: CreateCacheClusterResponse -> Int
$sel:cacheCluster:CreateCacheClusterResponse' :: CreateCacheClusterResponse -> Maybe CacheCluster
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe CacheCluster
cacheCluster
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus