module Stratosphere.DMS.ReplicationConfig.ComputeConfigProperty (
        ComputeConfigProperty(..), mkComputeConfigProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data ComputeConfigProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-replicationconfig-computeconfig.html>
    ComputeConfigProperty {ComputeConfigProperty -> ()
haddock_workaround_ :: (),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-replicationconfig-computeconfig.html#cfn-dms-replicationconfig-computeconfig-availabilityzone>
                           ComputeConfigProperty -> Maybe (Value Text)
availabilityZone :: (Prelude.Maybe (Value Prelude.Text)),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-replicationconfig-computeconfig.html#cfn-dms-replicationconfig-computeconfig-dnsnameservers>
                           ComputeConfigProperty -> Maybe (Value Text)
dnsNameServers :: (Prelude.Maybe (Value Prelude.Text)),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-replicationconfig-computeconfig.html#cfn-dms-replicationconfig-computeconfig-kmskeyid>
                           ComputeConfigProperty -> Maybe (Value Text)
kmsKeyId :: (Prelude.Maybe (Value Prelude.Text)),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-replicationconfig-computeconfig.html#cfn-dms-replicationconfig-computeconfig-maxcapacityunits>
                           ComputeConfigProperty -> Value Integer
maxCapacityUnits :: (Value Prelude.Integer),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-replicationconfig-computeconfig.html#cfn-dms-replicationconfig-computeconfig-mincapacityunits>
                           ComputeConfigProperty -> Maybe (Value Integer)
minCapacityUnits :: (Prelude.Maybe (Value Prelude.Integer)),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-replicationconfig-computeconfig.html#cfn-dms-replicationconfig-computeconfig-multiaz>
                           ComputeConfigProperty -> Maybe (Value Bool)
multiAZ :: (Prelude.Maybe (Value Prelude.Bool)),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-replicationconfig-computeconfig.html#cfn-dms-replicationconfig-computeconfig-preferredmaintenancewindow>
                           ComputeConfigProperty -> Maybe (Value Text)
preferredMaintenanceWindow :: (Prelude.Maybe (Value Prelude.Text)),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-replicationconfig-computeconfig.html#cfn-dms-replicationconfig-computeconfig-replicationsubnetgroupid>
                           ComputeConfigProperty -> Maybe (Value Text)
replicationSubnetGroupId :: (Prelude.Maybe (Value Prelude.Text)),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dms-replicationconfig-computeconfig.html#cfn-dms-replicationconfig-computeconfig-vpcsecuritygroupids>
                           ComputeConfigProperty -> Maybe (ValueList Text)
vpcSecurityGroupIds :: (Prelude.Maybe (ValueList Prelude.Text))}
  deriving stock (ComputeConfigProperty -> ComputeConfigProperty -> Bool
(ComputeConfigProperty -> ComputeConfigProperty -> Bool)
-> (ComputeConfigProperty -> ComputeConfigProperty -> Bool)
-> Eq ComputeConfigProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ComputeConfigProperty -> ComputeConfigProperty -> Bool
== :: ComputeConfigProperty -> ComputeConfigProperty -> Bool
$c/= :: ComputeConfigProperty -> ComputeConfigProperty -> Bool
/= :: ComputeConfigProperty -> ComputeConfigProperty -> Bool
Prelude.Eq, Int -> ComputeConfigProperty -> ShowS
[ComputeConfigProperty] -> ShowS
ComputeConfigProperty -> String
(Int -> ComputeConfigProperty -> ShowS)
-> (ComputeConfigProperty -> String)
-> ([ComputeConfigProperty] -> ShowS)
-> Show ComputeConfigProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ComputeConfigProperty -> ShowS
showsPrec :: Int -> ComputeConfigProperty -> ShowS
$cshow :: ComputeConfigProperty -> String
show :: ComputeConfigProperty -> String
$cshowList :: [ComputeConfigProperty] -> ShowS
showList :: [ComputeConfigProperty] -> ShowS
Prelude.Show)
mkComputeConfigProperty ::
  Value Prelude.Integer -> ComputeConfigProperty
mkComputeConfigProperty :: Value Integer -> ComputeConfigProperty
mkComputeConfigProperty Value Integer
maxCapacityUnits
  = ComputeConfigProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), maxCapacityUnits :: Value Integer
maxCapacityUnits = Value Integer
maxCapacityUnits,
       availabilityZone :: Maybe (Value Text)
availabilityZone = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       dnsNameServers :: Maybe (Value Text)
dnsNameServers = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, kmsKeyId :: Maybe (Value Text)
kmsKeyId = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       minCapacityUnits :: Maybe (Value Integer)
minCapacityUnits = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing, multiAZ :: Maybe (Value Bool)
multiAZ = Maybe (Value Bool)
forall a. Maybe a
Prelude.Nothing,
       preferredMaintenanceWindow :: Maybe (Value Text)
preferredMaintenanceWindow = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       replicationSubnetGroupId :: Maybe (Value Text)
replicationSubnetGroupId = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       vpcSecurityGroupIds :: Maybe (ValueList Text)
vpcSecurityGroupIds = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties ComputeConfigProperty where
  toResourceProperties :: ComputeConfigProperty -> ResourceProperties
toResourceProperties ComputeConfigProperty {Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ComputeConfigProperty -> ()
availabilityZone :: ComputeConfigProperty -> Maybe (Value Text)
dnsNameServers :: ComputeConfigProperty -> Maybe (Value Text)
kmsKeyId :: ComputeConfigProperty -> Maybe (Value Text)
maxCapacityUnits :: ComputeConfigProperty -> Value Integer
minCapacityUnits :: ComputeConfigProperty -> Maybe (Value Integer)
multiAZ :: ComputeConfigProperty -> Maybe (Value Bool)
preferredMaintenanceWindow :: ComputeConfigProperty -> Maybe (Value Text)
replicationSubnetGroupId :: ComputeConfigProperty -> Maybe (Value Text)
vpcSecurityGroupIds :: ComputeConfigProperty -> Maybe (ValueList Text)
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::DMS::ReplicationConfig.ComputeConfig",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
                           [Key
"MaxCapacityUnits" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
maxCapacityUnits]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AvailabilityZone" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
availabilityZone,
                               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DnsNameServers" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
dnsNameServers,
                               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"KmsKeyId" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
kmsKeyId,
                               Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"MinCapacityUnits" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
minCapacityUnits,
                               Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"MultiAZ" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
multiAZ,
                               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PreferredMaintenanceWindow"
                                 (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
preferredMaintenanceWindow,
                               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ReplicationSubnetGroupId"
                                 (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
replicationSubnetGroupId,
                               Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"VpcSecurityGroupIds" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
vpcSecurityGroupIds]))}
instance JSON.ToJSON ComputeConfigProperty where
  toJSON :: ComputeConfigProperty -> Value
toJSON ComputeConfigProperty {Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ComputeConfigProperty -> ()
availabilityZone :: ComputeConfigProperty -> Maybe (Value Text)
dnsNameServers :: ComputeConfigProperty -> Maybe (Value Text)
kmsKeyId :: ComputeConfigProperty -> Maybe (Value Text)
maxCapacityUnits :: ComputeConfigProperty -> Value Integer
minCapacityUnits :: ComputeConfigProperty -> Maybe (Value Integer)
multiAZ :: ComputeConfigProperty -> Maybe (Value Bool)
preferredMaintenanceWindow :: ComputeConfigProperty -> Maybe (Value Text)
replicationSubnetGroupId :: ComputeConfigProperty -> Maybe (Value Text)
vpcSecurityGroupIds :: ComputeConfigProperty -> Maybe (ValueList Text)
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
              [Key
"MaxCapacityUnits" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
maxCapacityUnits]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AvailabilityZone" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
availabilityZone,
                  Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DnsNameServers" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
dnsNameServers,
                  Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"KmsKeyId" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
kmsKeyId,
                  Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"MinCapacityUnits" (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
minCapacityUnits,
                  Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"MultiAZ" (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
multiAZ,
                  Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PreferredMaintenanceWindow"
                    (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
preferredMaintenanceWindow,
                  Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ReplicationSubnetGroupId"
                    (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
replicationSubnetGroupId,
                  Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"VpcSecurityGroupIds" (ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
vpcSecurityGroupIds])))
instance Property "AvailabilityZone" ComputeConfigProperty where
  type PropertyType "AvailabilityZone" ComputeConfigProperty = Value Prelude.Text
  set :: PropertyType "AvailabilityZone" ComputeConfigProperty
-> ComputeConfigProperty -> ComputeConfigProperty
set PropertyType "AvailabilityZone" ComputeConfigProperty
newValue ComputeConfigProperty {Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ComputeConfigProperty -> ()
availabilityZone :: ComputeConfigProperty -> Maybe (Value Text)
dnsNameServers :: ComputeConfigProperty -> Maybe (Value Text)
kmsKeyId :: ComputeConfigProperty -> Maybe (Value Text)
maxCapacityUnits :: ComputeConfigProperty -> Value Integer
minCapacityUnits :: ComputeConfigProperty -> Maybe (Value Integer)
multiAZ :: ComputeConfigProperty -> Maybe (Value Bool)
preferredMaintenanceWindow :: ComputeConfigProperty -> Maybe (Value Text)
replicationSubnetGroupId :: ComputeConfigProperty -> Maybe (Value Text)
vpcSecurityGroupIds :: ComputeConfigProperty -> Maybe (ValueList Text)
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = ComputeConfigProperty
        {availabilityZone :: Maybe (Value Text)
availabilityZone = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AvailabilityZone" ComputeConfigProperty
Value Text
newValue, Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ()
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
instance Property "DnsNameServers" ComputeConfigProperty where
  type PropertyType "DnsNameServers" ComputeConfigProperty = Value Prelude.Text
  set :: PropertyType "DnsNameServers" ComputeConfigProperty
-> ComputeConfigProperty -> ComputeConfigProperty
set PropertyType "DnsNameServers" ComputeConfigProperty
newValue ComputeConfigProperty {Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ComputeConfigProperty -> ()
availabilityZone :: ComputeConfigProperty -> Maybe (Value Text)
dnsNameServers :: ComputeConfigProperty -> Maybe (Value Text)
kmsKeyId :: ComputeConfigProperty -> Maybe (Value Text)
maxCapacityUnits :: ComputeConfigProperty -> Value Integer
minCapacityUnits :: ComputeConfigProperty -> Maybe (Value Integer)
multiAZ :: ComputeConfigProperty -> Maybe (Value Bool)
preferredMaintenanceWindow :: ComputeConfigProperty -> Maybe (Value Text)
replicationSubnetGroupId :: ComputeConfigProperty -> Maybe (Value Text)
vpcSecurityGroupIds :: ComputeConfigProperty -> Maybe (ValueList Text)
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = ComputeConfigProperty
        {dnsNameServers :: Maybe (Value Text)
dnsNameServers = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "DnsNameServers" ComputeConfigProperty
Value Text
newValue, Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
instance Property "KmsKeyId" ComputeConfigProperty where
  type PropertyType "KmsKeyId" ComputeConfigProperty = Value Prelude.Text
  set :: PropertyType "KmsKeyId" ComputeConfigProperty
-> ComputeConfigProperty -> ComputeConfigProperty
set PropertyType "KmsKeyId" ComputeConfigProperty
newValue ComputeConfigProperty {Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ComputeConfigProperty -> ()
availabilityZone :: ComputeConfigProperty -> Maybe (Value Text)
dnsNameServers :: ComputeConfigProperty -> Maybe (Value Text)
kmsKeyId :: ComputeConfigProperty -> Maybe (Value Text)
maxCapacityUnits :: ComputeConfigProperty -> Value Integer
minCapacityUnits :: ComputeConfigProperty -> Maybe (Value Integer)
multiAZ :: ComputeConfigProperty -> Maybe (Value Bool)
preferredMaintenanceWindow :: ComputeConfigProperty -> Maybe (Value Text)
replicationSubnetGroupId :: ComputeConfigProperty -> Maybe (Value Text)
vpcSecurityGroupIds :: ComputeConfigProperty -> Maybe (ValueList Text)
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = ComputeConfigProperty {kmsKeyId :: Maybe (Value Text)
kmsKeyId = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "KmsKeyId" ComputeConfigProperty
Value Text
newValue, Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
instance Property "MaxCapacityUnits" ComputeConfigProperty where
  type PropertyType "MaxCapacityUnits" ComputeConfigProperty = Value Prelude.Integer
  set :: PropertyType "MaxCapacityUnits" ComputeConfigProperty
-> ComputeConfigProperty -> ComputeConfigProperty
set PropertyType "MaxCapacityUnits" ComputeConfigProperty
newValue ComputeConfigProperty {Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ComputeConfigProperty -> ()
availabilityZone :: ComputeConfigProperty -> Maybe (Value Text)
dnsNameServers :: ComputeConfigProperty -> Maybe (Value Text)
kmsKeyId :: ComputeConfigProperty -> Maybe (Value Text)
maxCapacityUnits :: ComputeConfigProperty -> Value Integer
minCapacityUnits :: ComputeConfigProperty -> Maybe (Value Integer)
multiAZ :: ComputeConfigProperty -> Maybe (Value Bool)
preferredMaintenanceWindow :: ComputeConfigProperty -> Maybe (Value Text)
replicationSubnetGroupId :: ComputeConfigProperty -> Maybe (Value Text)
vpcSecurityGroupIds :: ComputeConfigProperty -> Maybe (ValueList Text)
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = ComputeConfigProperty {maxCapacityUnits :: Value Integer
maxCapacityUnits = PropertyType "MaxCapacityUnits" ComputeConfigProperty
Value Integer
newValue, Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
instance Property "MinCapacityUnits" ComputeConfigProperty where
  type PropertyType "MinCapacityUnits" ComputeConfigProperty = Value Prelude.Integer
  set :: PropertyType "MinCapacityUnits" ComputeConfigProperty
-> ComputeConfigProperty -> ComputeConfigProperty
set PropertyType "MinCapacityUnits" ComputeConfigProperty
newValue ComputeConfigProperty {Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ComputeConfigProperty -> ()
availabilityZone :: ComputeConfigProperty -> Maybe (Value Text)
dnsNameServers :: ComputeConfigProperty -> Maybe (Value Text)
kmsKeyId :: ComputeConfigProperty -> Maybe (Value Text)
maxCapacityUnits :: ComputeConfigProperty -> Value Integer
minCapacityUnits :: ComputeConfigProperty -> Maybe (Value Integer)
multiAZ :: ComputeConfigProperty -> Maybe (Value Bool)
preferredMaintenanceWindow :: ComputeConfigProperty -> Maybe (Value Text)
replicationSubnetGroupId :: ComputeConfigProperty -> Maybe (Value Text)
vpcSecurityGroupIds :: ComputeConfigProperty -> Maybe (ValueList Text)
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = ComputeConfigProperty
        {minCapacityUnits :: Maybe (Value Integer)
minCapacityUnits = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "MinCapacityUnits" ComputeConfigProperty
Value Integer
newValue, Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
instance Property "MultiAZ" ComputeConfigProperty where
  type PropertyType "MultiAZ" ComputeConfigProperty = Value Prelude.Bool
  set :: PropertyType "MultiAZ" ComputeConfigProperty
-> ComputeConfigProperty -> ComputeConfigProperty
set PropertyType "MultiAZ" ComputeConfigProperty
newValue ComputeConfigProperty {Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ComputeConfigProperty -> ()
availabilityZone :: ComputeConfigProperty -> Maybe (Value Text)
dnsNameServers :: ComputeConfigProperty -> Maybe (Value Text)
kmsKeyId :: ComputeConfigProperty -> Maybe (Value Text)
maxCapacityUnits :: ComputeConfigProperty -> Value Integer
minCapacityUnits :: ComputeConfigProperty -> Maybe (Value Integer)
multiAZ :: ComputeConfigProperty -> Maybe (Value Bool)
preferredMaintenanceWindow :: ComputeConfigProperty -> Maybe (Value Text)
replicationSubnetGroupId :: ComputeConfigProperty -> Maybe (Value Text)
vpcSecurityGroupIds :: ComputeConfigProperty -> Maybe (ValueList Text)
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = ComputeConfigProperty {multiAZ :: Maybe (Value Bool)
multiAZ = Value Bool -> Maybe (Value Bool)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "MultiAZ" ComputeConfigProperty
Value Bool
newValue, Maybe (ValueList Text)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
instance Property "PreferredMaintenanceWindow" ComputeConfigProperty where
  type PropertyType "PreferredMaintenanceWindow" ComputeConfigProperty = Value Prelude.Text
  set :: PropertyType "PreferredMaintenanceWindow" ComputeConfigProperty
-> ComputeConfigProperty -> ComputeConfigProperty
set PropertyType "PreferredMaintenanceWindow" ComputeConfigProperty
newValue ComputeConfigProperty {Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ComputeConfigProperty -> ()
availabilityZone :: ComputeConfigProperty -> Maybe (Value Text)
dnsNameServers :: ComputeConfigProperty -> Maybe (Value Text)
kmsKeyId :: ComputeConfigProperty -> Maybe (Value Text)
maxCapacityUnits :: ComputeConfigProperty -> Value Integer
minCapacityUnits :: ComputeConfigProperty -> Maybe (Value Integer)
multiAZ :: ComputeConfigProperty -> Maybe (Value Bool)
preferredMaintenanceWindow :: ComputeConfigProperty -> Maybe (Value Text)
replicationSubnetGroupId :: ComputeConfigProperty -> Maybe (Value Text)
vpcSecurityGroupIds :: ComputeConfigProperty -> Maybe (ValueList Text)
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = ComputeConfigProperty
        {preferredMaintenanceWindow :: Maybe (Value Text)
preferredMaintenanceWindow = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "PreferredMaintenanceWindow" ComputeConfigProperty
Value Text
newValue, Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
instance Property "ReplicationSubnetGroupId" ComputeConfigProperty where
  type PropertyType "ReplicationSubnetGroupId" ComputeConfigProperty = Value Prelude.Text
  set :: PropertyType "ReplicationSubnetGroupId" ComputeConfigProperty
-> ComputeConfigProperty -> ComputeConfigProperty
set PropertyType "ReplicationSubnetGroupId" ComputeConfigProperty
newValue ComputeConfigProperty {Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ComputeConfigProperty -> ()
availabilityZone :: ComputeConfigProperty -> Maybe (Value Text)
dnsNameServers :: ComputeConfigProperty -> Maybe (Value Text)
kmsKeyId :: ComputeConfigProperty -> Maybe (Value Text)
maxCapacityUnits :: ComputeConfigProperty -> Value Integer
minCapacityUnits :: ComputeConfigProperty -> Maybe (Value Integer)
multiAZ :: ComputeConfigProperty -> Maybe (Value Bool)
preferredMaintenanceWindow :: ComputeConfigProperty -> Maybe (Value Text)
replicationSubnetGroupId :: ComputeConfigProperty -> Maybe (Value Text)
vpcSecurityGroupIds :: ComputeConfigProperty -> Maybe (ValueList Text)
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = ComputeConfigProperty
        {replicationSubnetGroupId :: Maybe (Value Text)
replicationSubnetGroupId = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ReplicationSubnetGroupId" ComputeConfigProperty
Value Text
newValue, Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
instance Property "VpcSecurityGroupIds" ComputeConfigProperty where
  type PropertyType "VpcSecurityGroupIds" ComputeConfigProperty = ValueList Prelude.Text
  set :: PropertyType "VpcSecurityGroupIds" ComputeConfigProperty
-> ComputeConfigProperty -> ComputeConfigProperty
set PropertyType "VpcSecurityGroupIds" ComputeConfigProperty
newValue ComputeConfigProperty {Maybe (ValueList Text)
Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ComputeConfigProperty -> ()
availabilityZone :: ComputeConfigProperty -> Maybe (Value Text)
dnsNameServers :: ComputeConfigProperty -> Maybe (Value Text)
kmsKeyId :: ComputeConfigProperty -> Maybe (Value Text)
maxCapacityUnits :: ComputeConfigProperty -> Value Integer
minCapacityUnits :: ComputeConfigProperty -> Maybe (Value Integer)
multiAZ :: ComputeConfigProperty -> Maybe (Value Bool)
preferredMaintenanceWindow :: ComputeConfigProperty -> Maybe (Value Text)
replicationSubnetGroupId :: ComputeConfigProperty -> Maybe (Value Text)
vpcSecurityGroupIds :: ComputeConfigProperty -> Maybe (ValueList Text)
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
vpcSecurityGroupIds :: Maybe (ValueList Text)
..}
    = ComputeConfigProperty
        {vpcSecurityGroupIds :: Maybe (ValueList Text)
vpcSecurityGroupIds = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "VpcSecurityGroupIds" ComputeConfigProperty
ValueList Text
newValue, Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
()
Value Integer
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
haddock_workaround_ :: ()
availabilityZone :: Maybe (Value Text)
dnsNameServers :: Maybe (Value Text)
kmsKeyId :: Maybe (Value Text)
maxCapacityUnits :: Value Integer
minCapacityUnits :: Maybe (Value Integer)
multiAZ :: Maybe (Value Bool)
preferredMaintenanceWindow :: Maybe (Value Text)
replicationSubnetGroupId :: Maybe (Value Text)
..}