module Stratosphere.ARCRegionSwitch.Plan.GlobalAuroraConfigurationProperty (
        module Exports, GlobalAuroraConfigurationProperty(..),
        mkGlobalAuroraConfigurationProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.ARCRegionSwitch.Plan.GlobalAuroraUngracefulProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data GlobalAuroraConfigurationProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-globalauroraconfiguration.html>
    GlobalAuroraConfigurationProperty {GlobalAuroraConfigurationProperty -> ()
haddock_workaround_ :: (),
                                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-globalauroraconfiguration.html#cfn-arcregionswitch-plan-globalauroraconfiguration-behavior>
                                       GlobalAuroraConfigurationProperty -> Object
behavior :: JSON.Object,
                                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-globalauroraconfiguration.html#cfn-arcregionswitch-plan-globalauroraconfiguration-crossaccountrole>
                                       GlobalAuroraConfigurationProperty -> Maybe (Value Text)
crossAccountRole :: (Prelude.Maybe (Value Prelude.Text)),
                                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-globalauroraconfiguration.html#cfn-arcregionswitch-plan-globalauroraconfiguration-databaseclusterarns>
                                       GlobalAuroraConfigurationProperty -> ValueList Text
databaseClusterArns :: (ValueList Prelude.Text),
                                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-globalauroraconfiguration.html#cfn-arcregionswitch-plan-globalauroraconfiguration-externalid>
                                       GlobalAuroraConfigurationProperty -> Maybe (Value Text)
externalId :: (Prelude.Maybe (Value Prelude.Text)),
                                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-globalauroraconfiguration.html#cfn-arcregionswitch-plan-globalauroraconfiguration-globalclusteridentifier>
                                       GlobalAuroraConfigurationProperty -> Value Text
globalClusterIdentifier :: (Value Prelude.Text),
                                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-globalauroraconfiguration.html#cfn-arcregionswitch-plan-globalauroraconfiguration-timeoutminutes>
                                       GlobalAuroraConfigurationProperty -> Maybe (Value Double)
timeoutMinutes :: (Prelude.Maybe (Value Prelude.Double)),
                                       -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-arcregionswitch-plan-globalauroraconfiguration.html#cfn-arcregionswitch-plan-globalauroraconfiguration-ungraceful>
                                       GlobalAuroraConfigurationProperty
-> Maybe GlobalAuroraUngracefulProperty
ungraceful :: (Prelude.Maybe GlobalAuroraUngracefulProperty)}
  deriving stock (GlobalAuroraConfigurationProperty
-> GlobalAuroraConfigurationProperty -> Bool
(GlobalAuroraConfigurationProperty
 -> GlobalAuroraConfigurationProperty -> Bool)
-> (GlobalAuroraConfigurationProperty
    -> GlobalAuroraConfigurationProperty -> Bool)
-> Eq GlobalAuroraConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: GlobalAuroraConfigurationProperty
-> GlobalAuroraConfigurationProperty -> Bool
== :: GlobalAuroraConfigurationProperty
-> GlobalAuroraConfigurationProperty -> Bool
$c/= :: GlobalAuroraConfigurationProperty
-> GlobalAuroraConfigurationProperty -> Bool
/= :: GlobalAuroraConfigurationProperty
-> GlobalAuroraConfigurationProperty -> Bool
Prelude.Eq, Int -> GlobalAuroraConfigurationProperty -> ShowS
[GlobalAuroraConfigurationProperty] -> ShowS
GlobalAuroraConfigurationProperty -> String
(Int -> GlobalAuroraConfigurationProperty -> ShowS)
-> (GlobalAuroraConfigurationProperty -> String)
-> ([GlobalAuroraConfigurationProperty] -> ShowS)
-> Show GlobalAuroraConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> GlobalAuroraConfigurationProperty -> ShowS
showsPrec :: Int -> GlobalAuroraConfigurationProperty -> ShowS
$cshow :: GlobalAuroraConfigurationProperty -> String
show :: GlobalAuroraConfigurationProperty -> String
$cshowList :: [GlobalAuroraConfigurationProperty] -> ShowS
showList :: [GlobalAuroraConfigurationProperty] -> ShowS
Prelude.Show)
mkGlobalAuroraConfigurationProperty ::
  JSON.Object
  -> ValueList Prelude.Text
     -> Value Prelude.Text -> GlobalAuroraConfigurationProperty
mkGlobalAuroraConfigurationProperty :: Object
-> ValueList Text
-> Value Text
-> GlobalAuroraConfigurationProperty
mkGlobalAuroraConfigurationProperty
  Object
behavior
  ValueList Text
databaseClusterArns
  Value Text
globalClusterIdentifier
  = GlobalAuroraConfigurationProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), behavior :: Object
behavior = Object
behavior,
       databaseClusterArns :: ValueList Text
databaseClusterArns = ValueList Text
databaseClusterArns,
       globalClusterIdentifier :: Value Text
globalClusterIdentifier = Value Text
globalClusterIdentifier,
       crossAccountRole :: Maybe (Value Text)
crossAccountRole = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, externalId :: Maybe (Value Text)
externalId = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       timeoutMinutes :: Maybe (Value Double)
timeoutMinutes = Maybe (Value Double)
forall a. Maybe a
Prelude.Nothing, ungraceful :: Maybe GlobalAuroraUngracefulProperty
ungraceful = Maybe GlobalAuroraUngracefulProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties GlobalAuroraConfigurationProperty where
  toResourceProperties :: GlobalAuroraConfigurationProperty -> ResourceProperties
toResourceProperties GlobalAuroraConfigurationProperty {Maybe (Value Double)
Maybe (Value Text)
Maybe GlobalAuroraUngracefulProperty
()
Object
ValueList Text
Value Text
haddock_workaround_ :: GlobalAuroraConfigurationProperty -> ()
behavior :: GlobalAuroraConfigurationProperty -> Object
crossAccountRole :: GlobalAuroraConfigurationProperty -> Maybe (Value Text)
databaseClusterArns :: GlobalAuroraConfigurationProperty -> ValueList Text
externalId :: GlobalAuroraConfigurationProperty -> Maybe (Value Text)
globalClusterIdentifier :: GlobalAuroraConfigurationProperty -> Value Text
timeoutMinutes :: GlobalAuroraConfigurationProperty -> Maybe (Value Double)
ungraceful :: GlobalAuroraConfigurationProperty
-> Maybe GlobalAuroraUngracefulProperty
haddock_workaround_ :: ()
behavior :: Object
crossAccountRole :: Maybe (Value Text)
databaseClusterArns :: ValueList Text
externalId :: Maybe (Value Text)
globalClusterIdentifier :: Value Text
timeoutMinutes :: Maybe (Value Double)
ungraceful :: Maybe GlobalAuroraUngracefulProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::ARCRegionSwitch::Plan.GlobalAuroraConfiguration",
         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
"Behavior" Key -> Object -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Object
behavior,
                            Key
"DatabaseClusterArns" 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..= ValueList Text
databaseClusterArns,
                            Key
"GlobalClusterIdentifier" 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..= Value Text
globalClusterIdentifier]
                           ([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
"CrossAccountRole" (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)
crossAccountRole,
                               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
"ExternalId" (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)
externalId,
                               Key -> Value Double -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TimeoutMinutes" (Value Double -> (Key, Value))
-> Maybe (Value Double) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Double)
timeoutMinutes,
                               Key -> GlobalAuroraUngracefulProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Ungraceful" (GlobalAuroraUngracefulProperty -> (Key, Value))
-> Maybe GlobalAuroraUngracefulProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe GlobalAuroraUngracefulProperty
ungraceful]))}
instance JSON.ToJSON GlobalAuroraConfigurationProperty where
  toJSON :: GlobalAuroraConfigurationProperty -> Value
toJSON GlobalAuroraConfigurationProperty {Maybe (Value Double)
Maybe (Value Text)
Maybe GlobalAuroraUngracefulProperty
()
Object
ValueList Text
Value Text
haddock_workaround_ :: GlobalAuroraConfigurationProperty -> ()
behavior :: GlobalAuroraConfigurationProperty -> Object
crossAccountRole :: GlobalAuroraConfigurationProperty -> Maybe (Value Text)
databaseClusterArns :: GlobalAuroraConfigurationProperty -> ValueList Text
externalId :: GlobalAuroraConfigurationProperty -> Maybe (Value Text)
globalClusterIdentifier :: GlobalAuroraConfigurationProperty -> Value Text
timeoutMinutes :: GlobalAuroraConfigurationProperty -> Maybe (Value Double)
ungraceful :: GlobalAuroraConfigurationProperty
-> Maybe GlobalAuroraUngracefulProperty
haddock_workaround_ :: ()
behavior :: Object
crossAccountRole :: Maybe (Value Text)
databaseClusterArns :: ValueList Text
externalId :: Maybe (Value Text)
globalClusterIdentifier :: Value Text
timeoutMinutes :: Maybe (Value Double)
ungraceful :: Maybe GlobalAuroraUngracefulProperty
..}
    = [(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
"Behavior" Key -> Object -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Object
behavior,
               Key
"DatabaseClusterArns" 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..= ValueList Text
databaseClusterArns,
               Key
"GlobalClusterIdentifier" 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..= Value Text
globalClusterIdentifier]
              ([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
"CrossAccountRole" (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)
crossAccountRole,
                  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
"ExternalId" (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)
externalId,
                  Key -> Value Double -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TimeoutMinutes" (Value Double -> (Key, Value))
-> Maybe (Value Double) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Double)
timeoutMinutes,
                  Key -> GlobalAuroraUngracefulProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Ungraceful" (GlobalAuroraUngracefulProperty -> (Key, Value))
-> Maybe GlobalAuroraUngracefulProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe GlobalAuroraUngracefulProperty
ungraceful])))
instance Property "Behavior" GlobalAuroraConfigurationProperty where
  type PropertyType "Behavior" GlobalAuroraConfigurationProperty = JSON.Object
  set :: PropertyType "Behavior" GlobalAuroraConfigurationProperty
-> GlobalAuroraConfigurationProperty
-> GlobalAuroraConfigurationProperty
set PropertyType "Behavior" GlobalAuroraConfigurationProperty
newValue GlobalAuroraConfigurationProperty {Maybe (Value Double)
Maybe (Value Text)
Maybe GlobalAuroraUngracefulProperty
()
Object
ValueList Text
Value Text
haddock_workaround_ :: GlobalAuroraConfigurationProperty -> ()
behavior :: GlobalAuroraConfigurationProperty -> Object
crossAccountRole :: GlobalAuroraConfigurationProperty -> Maybe (Value Text)
databaseClusterArns :: GlobalAuroraConfigurationProperty -> ValueList Text
externalId :: GlobalAuroraConfigurationProperty -> Maybe (Value Text)
globalClusterIdentifier :: GlobalAuroraConfigurationProperty -> Value Text
timeoutMinutes :: GlobalAuroraConfigurationProperty -> Maybe (Value Double)
ungraceful :: GlobalAuroraConfigurationProperty
-> Maybe GlobalAuroraUngracefulProperty
haddock_workaround_ :: ()
behavior :: Object
crossAccountRole :: Maybe (Value Text)
databaseClusterArns :: ValueList Text
externalId :: Maybe (Value Text)
globalClusterIdentifier :: Value Text
timeoutMinutes :: Maybe (Value Double)
ungraceful :: Maybe GlobalAuroraUngracefulProperty
..}
    = GlobalAuroraConfigurationProperty {behavior :: Object
behavior = Object
PropertyType "Behavior" GlobalAuroraConfigurationProperty
newValue, Maybe (Value Double)
Maybe (Value Text)
Maybe GlobalAuroraUngracefulProperty
()
ValueList Text
Value Text
haddock_workaround_ :: ()
crossAccountRole :: Maybe (Value Text)
databaseClusterArns :: ValueList Text
externalId :: Maybe (Value Text)
globalClusterIdentifier :: Value Text
timeoutMinutes :: Maybe (Value Double)
ungraceful :: Maybe GlobalAuroraUngracefulProperty
haddock_workaround_ :: ()
crossAccountRole :: Maybe (Value Text)
databaseClusterArns :: ValueList Text
externalId :: Maybe (Value Text)
globalClusterIdentifier :: Value Text
timeoutMinutes :: Maybe (Value Double)
ungraceful :: Maybe GlobalAuroraUngracefulProperty
..}
instance Property "CrossAccountRole" GlobalAuroraConfigurationProperty where
  type PropertyType "CrossAccountRole" GlobalAuroraConfigurationProperty = Value Prelude.Text
  set :: PropertyType "CrossAccountRole" GlobalAuroraConfigurationProperty
-> GlobalAuroraConfigurationProperty
-> GlobalAuroraConfigurationProperty
set PropertyType "CrossAccountRole" GlobalAuroraConfigurationProperty
newValue GlobalAuroraConfigurationProperty {Maybe (Value Double)
Maybe (Value Text)
Maybe GlobalAuroraUngracefulProperty
()
Object
ValueList Text
Value Text
haddock_workaround_ :: GlobalAuroraConfigurationProperty -> ()
behavior :: GlobalAuroraConfigurationProperty -> Object
crossAccountRole :: GlobalAuroraConfigurationProperty -> Maybe (Value Text)
databaseClusterArns :: GlobalAuroraConfigurationProperty -> ValueList Text
externalId :: GlobalAuroraConfigurationProperty -> Maybe (Value Text)
globalClusterIdentifier :: GlobalAuroraConfigurationProperty -> Value Text
timeoutMinutes :: GlobalAuroraConfigurationProperty -> Maybe (Value Double)
ungraceful :: GlobalAuroraConfigurationProperty
-> Maybe GlobalAuroraUngracefulProperty
haddock_workaround_ :: ()
behavior :: Object
crossAccountRole :: Maybe (Value Text)
databaseClusterArns :: ValueList Text
externalId :: Maybe (Value Text)
globalClusterIdentifier :: Value Text
timeoutMinutes :: Maybe (Value Double)
ungraceful :: Maybe GlobalAuroraUngracefulProperty
..}
    = GlobalAuroraConfigurationProperty
        {crossAccountRole :: Maybe (Value Text)
crossAccountRole = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "CrossAccountRole" GlobalAuroraConfigurationProperty
Value Text
newValue, Maybe (Value Double)
Maybe (Value Text)
Maybe GlobalAuroraUngracefulProperty
()
Object
ValueList Text
Value Text
haddock_workaround_ :: ()
behavior :: Object
databaseClusterArns :: ValueList Text
externalId :: Maybe (Value Text)
globalClusterIdentifier :: Value Text
timeoutMinutes :: Maybe (Value Double)
ungraceful :: Maybe GlobalAuroraUngracefulProperty
haddock_workaround_ :: ()
behavior :: Object
databaseClusterArns :: ValueList Text
externalId :: Maybe (Value Text)
globalClusterIdentifier :: Value Text
timeoutMinutes :: Maybe (Value Double)
ungraceful :: Maybe GlobalAuroraUngracefulProperty
..}
instance Property "DatabaseClusterArns" GlobalAuroraConfigurationProperty where
  type PropertyType "DatabaseClusterArns" GlobalAuroraConfigurationProperty = ValueList Prelude.Text
  set :: PropertyType
  "DatabaseClusterArns" GlobalAuroraConfigurationProperty
-> GlobalAuroraConfigurationProperty
-> GlobalAuroraConfigurationProperty
set PropertyType
  "DatabaseClusterArns" GlobalAuroraConfigurationProperty
newValue GlobalAuroraConfigurationProperty {Maybe (Value Double)
Maybe (Value Text)
Maybe GlobalAuroraUngracefulProperty
()
Object
ValueList Text
Value Text
haddock_workaround_ :: GlobalAuroraConfigurationProperty -> ()
behavior :: GlobalAuroraConfigurationProperty -> Object
crossAccountRole :: GlobalAuroraConfigurationProperty -> Maybe (Value Text)
databaseClusterArns :: GlobalAuroraConfigurationProperty -> ValueList Text
externalId :: GlobalAuroraConfigurationProperty -> Maybe (Value Text)
globalClusterIdentifier :: GlobalAuroraConfigurationProperty -> Value Text
timeoutMinutes :: GlobalAuroraConfigurationProperty -> Maybe (Value Double)
ungraceful :: GlobalAuroraConfigurationProperty
-> Maybe GlobalAuroraUngracefulProperty
haddock_workaround_ :: ()
behavior :: Object
crossAccountRole :: Maybe (Value Text)
databaseClusterArns :: ValueList Text
externalId :: Maybe (Value Text)
globalClusterIdentifier :: Value Text
timeoutMinutes :: Maybe (Value Double)
ungraceful :: Maybe GlobalAuroraUngracefulProperty
..}
    = GlobalAuroraConfigurationProperty
        {databaseClusterArns :: ValueList Text
databaseClusterArns = PropertyType
  "DatabaseClusterArns" GlobalAuroraConfigurationProperty
ValueList Text
newValue, Maybe (Value Double)
Maybe (Value Text)
Maybe GlobalAuroraUngracefulProperty
()
Object
Value Text
haddock_workaround_ :: ()
behavior :: Object
crossAccountRole :: Maybe (Value Text)
externalId :: Maybe (Value Text)
globalClusterIdentifier :: Value Text
timeoutMinutes :: Maybe (Value Double)
ungraceful :: Maybe GlobalAuroraUngracefulProperty
haddock_workaround_ :: ()
behavior :: Object
crossAccountRole :: Maybe (Value Text)
externalId :: Maybe (Value Text)
globalClusterIdentifier :: Value Text
timeoutMinutes :: Maybe (Value Double)
ungraceful :: Maybe GlobalAuroraUngracefulProperty
..}
instance Property "ExternalId" GlobalAuroraConfigurationProperty where
  type PropertyType "ExternalId" GlobalAuroraConfigurationProperty = Value Prelude.Text
  set :: PropertyType "ExternalId" GlobalAuroraConfigurationProperty
-> GlobalAuroraConfigurationProperty
-> GlobalAuroraConfigurationProperty
set PropertyType "ExternalId" GlobalAuroraConfigurationProperty
newValue GlobalAuroraConfigurationProperty {Maybe (Value Double)
Maybe (Value Text)
Maybe GlobalAuroraUngracefulProperty
()
Object
ValueList Text
Value Text
haddock_workaround_ :: GlobalAuroraConfigurationProperty -> ()
behavior :: GlobalAuroraConfigurationProperty -> Object
crossAccountRole :: GlobalAuroraConfigurationProperty -> Maybe (Value Text)
databaseClusterArns :: GlobalAuroraConfigurationProperty -> ValueList Text
externalId :: GlobalAuroraConfigurationProperty -> Maybe (Value Text)
globalClusterIdentifier :: GlobalAuroraConfigurationProperty -> Value Text
timeoutMinutes :: GlobalAuroraConfigurationProperty -> Maybe (Value Double)
ungraceful :: GlobalAuroraConfigurationProperty
-> Maybe GlobalAuroraUngracefulProperty
haddock_workaround_ :: ()
behavior :: Object
crossAccountRole :: Maybe (Value Text)
databaseClusterArns :: ValueList Text
externalId :: Maybe (Value Text)
globalClusterIdentifier :: Value Text
timeoutMinutes :: Maybe (Value Double)
ungraceful :: Maybe GlobalAuroraUngracefulProperty
..}
    = GlobalAuroraConfigurationProperty
        {externalId :: Maybe (Value Text)
externalId = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ExternalId" GlobalAuroraConfigurationProperty
Value Text
newValue, Maybe (Value Double)
Maybe (Value Text)
Maybe GlobalAuroraUngracefulProperty
()
Object
ValueList Text
Value Text
haddock_workaround_ :: ()
behavior :: Object
crossAccountRole :: Maybe (Value Text)
databaseClusterArns :: ValueList Text
globalClusterIdentifier :: Value Text
timeoutMinutes :: Maybe (Value Double)
ungraceful :: Maybe GlobalAuroraUngracefulProperty
haddock_workaround_ :: ()
behavior :: Object
crossAccountRole :: Maybe (Value Text)
databaseClusterArns :: ValueList Text
globalClusterIdentifier :: Value Text
timeoutMinutes :: Maybe (Value Double)
ungraceful :: Maybe GlobalAuroraUngracefulProperty
..}
instance Property "GlobalClusterIdentifier" GlobalAuroraConfigurationProperty where
  type PropertyType "GlobalClusterIdentifier" GlobalAuroraConfigurationProperty = Value Prelude.Text
  set :: PropertyType
  "GlobalClusterIdentifier" GlobalAuroraConfigurationProperty
-> GlobalAuroraConfigurationProperty
-> GlobalAuroraConfigurationProperty
set PropertyType
  "GlobalClusterIdentifier" GlobalAuroraConfigurationProperty
newValue GlobalAuroraConfigurationProperty {Maybe (Value Double)
Maybe (Value Text)
Maybe GlobalAuroraUngracefulProperty
()
Object
ValueList Text
Value Text
haddock_workaround_ :: GlobalAuroraConfigurationProperty -> ()
behavior :: GlobalAuroraConfigurationProperty -> Object
crossAccountRole :: GlobalAuroraConfigurationProperty -> Maybe (Value Text)
databaseClusterArns :: GlobalAuroraConfigurationProperty -> ValueList Text
externalId :: GlobalAuroraConfigurationProperty -> Maybe (Value Text)
globalClusterIdentifier :: GlobalAuroraConfigurationProperty -> Value Text
timeoutMinutes :: GlobalAuroraConfigurationProperty -> Maybe (Value Double)
ungraceful :: GlobalAuroraConfigurationProperty
-> Maybe GlobalAuroraUngracefulProperty
haddock_workaround_ :: ()
behavior :: Object
crossAccountRole :: Maybe (Value Text)
databaseClusterArns :: ValueList Text
externalId :: Maybe (Value Text)
globalClusterIdentifier :: Value Text
timeoutMinutes :: Maybe (Value Double)
ungraceful :: Maybe GlobalAuroraUngracefulProperty
..}
    = GlobalAuroraConfigurationProperty
        {globalClusterIdentifier :: Value Text
globalClusterIdentifier = PropertyType
  "GlobalClusterIdentifier" GlobalAuroraConfigurationProperty
Value Text
newValue, Maybe (Value Double)
Maybe (Value Text)
Maybe GlobalAuroraUngracefulProperty
()
Object
ValueList Text
haddock_workaround_ :: ()
behavior :: Object
crossAccountRole :: Maybe (Value Text)
databaseClusterArns :: ValueList Text
externalId :: Maybe (Value Text)
timeoutMinutes :: Maybe (Value Double)
ungraceful :: Maybe GlobalAuroraUngracefulProperty
haddock_workaround_ :: ()
behavior :: Object
crossAccountRole :: Maybe (Value Text)
databaseClusterArns :: ValueList Text
externalId :: Maybe (Value Text)
timeoutMinutes :: Maybe (Value Double)
ungraceful :: Maybe GlobalAuroraUngracefulProperty
..}
instance Property "TimeoutMinutes" GlobalAuroraConfigurationProperty where
  type PropertyType "TimeoutMinutes" GlobalAuroraConfigurationProperty = Value Prelude.Double
  set :: PropertyType "TimeoutMinutes" GlobalAuroraConfigurationProperty
-> GlobalAuroraConfigurationProperty
-> GlobalAuroraConfigurationProperty
set PropertyType "TimeoutMinutes" GlobalAuroraConfigurationProperty
newValue GlobalAuroraConfigurationProperty {Maybe (Value Double)
Maybe (Value Text)
Maybe GlobalAuroraUngracefulProperty
()
Object
ValueList Text
Value Text
haddock_workaround_ :: GlobalAuroraConfigurationProperty -> ()
behavior :: GlobalAuroraConfigurationProperty -> Object
crossAccountRole :: GlobalAuroraConfigurationProperty -> Maybe (Value Text)
databaseClusterArns :: GlobalAuroraConfigurationProperty -> ValueList Text
externalId :: GlobalAuroraConfigurationProperty -> Maybe (Value Text)
globalClusterIdentifier :: GlobalAuroraConfigurationProperty -> Value Text
timeoutMinutes :: GlobalAuroraConfigurationProperty -> Maybe (Value Double)
ungraceful :: GlobalAuroraConfigurationProperty
-> Maybe GlobalAuroraUngracefulProperty
haddock_workaround_ :: ()
behavior :: Object
crossAccountRole :: Maybe (Value Text)
databaseClusterArns :: ValueList Text
externalId :: Maybe (Value Text)
globalClusterIdentifier :: Value Text
timeoutMinutes :: Maybe (Value Double)
ungraceful :: Maybe GlobalAuroraUngracefulProperty
..}
    = GlobalAuroraConfigurationProperty
        {timeoutMinutes :: Maybe (Value Double)
timeoutMinutes = Value Double -> Maybe (Value Double)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "TimeoutMinutes" GlobalAuroraConfigurationProperty
Value Double
newValue, Maybe (Value Text)
Maybe GlobalAuroraUngracefulProperty
()
Object
ValueList Text
Value Text
haddock_workaround_ :: ()
behavior :: Object
crossAccountRole :: Maybe (Value Text)
databaseClusterArns :: ValueList Text
externalId :: Maybe (Value Text)
globalClusterIdentifier :: Value Text
ungraceful :: Maybe GlobalAuroraUngracefulProperty
haddock_workaround_ :: ()
behavior :: Object
crossAccountRole :: Maybe (Value Text)
databaseClusterArns :: ValueList Text
externalId :: Maybe (Value Text)
globalClusterIdentifier :: Value Text
ungraceful :: Maybe GlobalAuroraUngracefulProperty
..}
instance Property "Ungraceful" GlobalAuroraConfigurationProperty where
  type PropertyType "Ungraceful" GlobalAuroraConfigurationProperty = GlobalAuroraUngracefulProperty
  set :: PropertyType "Ungraceful" GlobalAuroraConfigurationProperty
-> GlobalAuroraConfigurationProperty
-> GlobalAuroraConfigurationProperty
set PropertyType "Ungraceful" GlobalAuroraConfigurationProperty
newValue GlobalAuroraConfigurationProperty {Maybe (Value Double)
Maybe (Value Text)
Maybe GlobalAuroraUngracefulProperty
()
Object
ValueList Text
Value Text
haddock_workaround_ :: GlobalAuroraConfigurationProperty -> ()
behavior :: GlobalAuroraConfigurationProperty -> Object
crossAccountRole :: GlobalAuroraConfigurationProperty -> Maybe (Value Text)
databaseClusterArns :: GlobalAuroraConfigurationProperty -> ValueList Text
externalId :: GlobalAuroraConfigurationProperty -> Maybe (Value Text)
globalClusterIdentifier :: GlobalAuroraConfigurationProperty -> Value Text
timeoutMinutes :: GlobalAuroraConfigurationProperty -> Maybe (Value Double)
ungraceful :: GlobalAuroraConfigurationProperty
-> Maybe GlobalAuroraUngracefulProperty
haddock_workaround_ :: ()
behavior :: Object
crossAccountRole :: Maybe (Value Text)
databaseClusterArns :: ValueList Text
externalId :: Maybe (Value Text)
globalClusterIdentifier :: Value Text
timeoutMinutes :: Maybe (Value Double)
ungraceful :: Maybe GlobalAuroraUngracefulProperty
..}
    = GlobalAuroraConfigurationProperty
        {ungraceful :: Maybe GlobalAuroraUngracefulProperty
ungraceful = GlobalAuroraUngracefulProperty
-> Maybe GlobalAuroraUngracefulProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Ungraceful" GlobalAuroraConfigurationProperty
GlobalAuroraUngracefulProperty
newValue, Maybe (Value Double)
Maybe (Value Text)
()
Object
ValueList Text
Value Text
haddock_workaround_ :: ()
behavior :: Object
crossAccountRole :: Maybe (Value Text)
databaseClusterArns :: ValueList Text
externalId :: Maybe (Value Text)
globalClusterIdentifier :: Value Text
timeoutMinutes :: Maybe (Value Double)
haddock_workaround_ :: ()
behavior :: Object
crossAccountRole :: Maybe (Value Text)
databaseClusterArns :: ValueList Text
externalId :: Maybe (Value Text)
globalClusterIdentifier :: Value Text
timeoutMinutes :: Maybe (Value Double)
..}