module Stratosphere.EC2.TransitGatewayConnectPeer.TransitGatewayConnectPeerConfigurationProperty (
        module Exports, TransitGatewayConnectPeerConfigurationProperty(..),
        mkTransitGatewayConnectPeerConfigurationProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.EC2.TransitGatewayConnectPeer.TransitGatewayAttachmentBgpConfigurationProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data TransitGatewayConnectPeerConfigurationProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-transitgatewayconnectpeer-transitgatewayconnectpeerconfiguration.html>
    TransitGatewayConnectPeerConfigurationProperty {TransitGatewayConnectPeerConfigurationProperty -> ()
haddock_workaround_ :: (),
                                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-transitgatewayconnectpeer-transitgatewayconnectpeerconfiguration.html#cfn-ec2-transitgatewayconnectpeer-transitgatewayconnectpeerconfiguration-bgpconfigurations>
                                                    TransitGatewayConnectPeerConfigurationProperty
-> Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
bgpConfigurations :: (Prelude.Maybe [TransitGatewayAttachmentBgpConfigurationProperty]),
                                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-transitgatewayconnectpeer-transitgatewayconnectpeerconfiguration.html#cfn-ec2-transitgatewayconnectpeer-transitgatewayconnectpeerconfiguration-insidecidrblocks>
                                                    TransitGatewayConnectPeerConfigurationProperty -> ValueList Text
insideCidrBlocks :: (ValueList Prelude.Text),
                                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-transitgatewayconnectpeer-transitgatewayconnectpeerconfiguration.html#cfn-ec2-transitgatewayconnectpeer-transitgatewayconnectpeerconfiguration-peeraddress>
                                                    TransitGatewayConnectPeerConfigurationProperty -> Value Text
peerAddress :: (Value Prelude.Text),
                                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-transitgatewayconnectpeer-transitgatewayconnectpeerconfiguration.html#cfn-ec2-transitgatewayconnectpeer-transitgatewayconnectpeerconfiguration-protocol>
                                                    TransitGatewayConnectPeerConfigurationProperty
-> Maybe (Value Text)
protocol :: (Prelude.Maybe (Value Prelude.Text)),
                                                    -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-ec2-transitgatewayconnectpeer-transitgatewayconnectpeerconfiguration.html#cfn-ec2-transitgatewayconnectpeer-transitgatewayconnectpeerconfiguration-transitgatewayaddress>
                                                    TransitGatewayConnectPeerConfigurationProperty
-> Maybe (Value Text)
transitGatewayAddress :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (TransitGatewayConnectPeerConfigurationProperty
-> TransitGatewayConnectPeerConfigurationProperty -> Bool
(TransitGatewayConnectPeerConfigurationProperty
 -> TransitGatewayConnectPeerConfigurationProperty -> Bool)
-> (TransitGatewayConnectPeerConfigurationProperty
    -> TransitGatewayConnectPeerConfigurationProperty -> Bool)
-> Eq TransitGatewayConnectPeerConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TransitGatewayConnectPeerConfigurationProperty
-> TransitGatewayConnectPeerConfigurationProperty -> Bool
== :: TransitGatewayConnectPeerConfigurationProperty
-> TransitGatewayConnectPeerConfigurationProperty -> Bool
$c/= :: TransitGatewayConnectPeerConfigurationProperty
-> TransitGatewayConnectPeerConfigurationProperty -> Bool
/= :: TransitGatewayConnectPeerConfigurationProperty
-> TransitGatewayConnectPeerConfigurationProperty -> Bool
Prelude.Eq, Int -> TransitGatewayConnectPeerConfigurationProperty -> ShowS
[TransitGatewayConnectPeerConfigurationProperty] -> ShowS
TransitGatewayConnectPeerConfigurationProperty -> String
(Int -> TransitGatewayConnectPeerConfigurationProperty -> ShowS)
-> (TransitGatewayConnectPeerConfigurationProperty -> String)
-> ([TransitGatewayConnectPeerConfigurationProperty] -> ShowS)
-> Show TransitGatewayConnectPeerConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> TransitGatewayConnectPeerConfigurationProperty -> ShowS
showsPrec :: Int -> TransitGatewayConnectPeerConfigurationProperty -> ShowS
$cshow :: TransitGatewayConnectPeerConfigurationProperty -> String
show :: TransitGatewayConnectPeerConfigurationProperty -> String
$cshowList :: [TransitGatewayConnectPeerConfigurationProperty] -> ShowS
showList :: [TransitGatewayConnectPeerConfigurationProperty] -> ShowS
Prelude.Show)
mkTransitGatewayConnectPeerConfigurationProperty ::
  ValueList Prelude.Text
  -> Value Prelude.Text
     -> TransitGatewayConnectPeerConfigurationProperty
mkTransitGatewayConnectPeerConfigurationProperty :: ValueList Text
-> Value Text -> TransitGatewayConnectPeerConfigurationProperty
mkTransitGatewayConnectPeerConfigurationProperty
  ValueList Text
insideCidrBlocks
  Value Text
peerAddress
  = TransitGatewayConnectPeerConfigurationProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), insideCidrBlocks :: ValueList Text
insideCidrBlocks = ValueList Text
insideCidrBlocks,
       peerAddress :: Value Text
peerAddress = Value Text
peerAddress, bgpConfigurations :: Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
bgpConfigurations = Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
forall a. Maybe a
Prelude.Nothing,
       protocol :: Maybe (Value Text)
protocol = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       transitGatewayAddress :: Maybe (Value Text)
transitGatewayAddress = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties TransitGatewayConnectPeerConfigurationProperty where
  toResourceProperties :: TransitGatewayConnectPeerConfigurationProperty
-> ResourceProperties
toResourceProperties
    TransitGatewayConnectPeerConfigurationProperty {Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
Maybe (Value Text)
()
ValueList Text
Value Text
haddock_workaround_ :: TransitGatewayConnectPeerConfigurationProperty -> ()
bgpConfigurations :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
insideCidrBlocks :: TransitGatewayConnectPeerConfigurationProperty -> ValueList Text
peerAddress :: TransitGatewayConnectPeerConfigurationProperty -> Value Text
protocol :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe (Value Text)
transitGatewayAddress :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe (Value Text)
haddock_workaround_ :: ()
bgpConfigurations :: Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
insideCidrBlocks :: ValueList Text
peerAddress :: Value Text
protocol :: Maybe (Value Text)
transitGatewayAddress :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::EC2::TransitGatewayConnectPeer.TransitGatewayConnectPeerConfiguration",
         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
"InsideCidrBlocks" 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
insideCidrBlocks,
                            Key
"PeerAddress" 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
peerAddress]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [Key
-> [TransitGatewayAttachmentBgpConfigurationProperty]
-> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"BgpConfigurations" ([TransitGatewayAttachmentBgpConfigurationProperty]
 -> (Key, Value))
-> Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
bgpConfigurations,
                               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
"Protocol" (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)
protocol,
                               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
"TransitGatewayAddress"
                                 (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)
transitGatewayAddress]))}
instance JSON.ToJSON TransitGatewayConnectPeerConfigurationProperty where
  toJSON :: TransitGatewayConnectPeerConfigurationProperty -> Value
toJSON TransitGatewayConnectPeerConfigurationProperty {Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
Maybe (Value Text)
()
ValueList Text
Value Text
haddock_workaround_ :: TransitGatewayConnectPeerConfigurationProperty -> ()
bgpConfigurations :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
insideCidrBlocks :: TransitGatewayConnectPeerConfigurationProperty -> ValueList Text
peerAddress :: TransitGatewayConnectPeerConfigurationProperty -> Value Text
protocol :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe (Value Text)
transitGatewayAddress :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe (Value Text)
haddock_workaround_ :: ()
bgpConfigurations :: Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
insideCidrBlocks :: ValueList Text
peerAddress :: Value Text
protocol :: Maybe (Value Text)
transitGatewayAddress :: Maybe (Value 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
"InsideCidrBlocks" 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
insideCidrBlocks,
               Key
"PeerAddress" 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
peerAddress]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [Key
-> [TransitGatewayAttachmentBgpConfigurationProperty]
-> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"BgpConfigurations" ([TransitGatewayAttachmentBgpConfigurationProperty]
 -> (Key, Value))
-> Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
bgpConfigurations,
                  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
"Protocol" (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)
protocol,
                  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
"TransitGatewayAddress"
                    (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)
transitGatewayAddress])))
instance Property "BgpConfigurations" TransitGatewayConnectPeerConfigurationProperty where
  type PropertyType "BgpConfigurations" TransitGatewayConnectPeerConfigurationProperty = [TransitGatewayAttachmentBgpConfigurationProperty]
  set :: PropertyType
  "BgpConfigurations" TransitGatewayConnectPeerConfigurationProperty
-> TransitGatewayConnectPeerConfigurationProperty
-> TransitGatewayConnectPeerConfigurationProperty
set PropertyType
  "BgpConfigurations" TransitGatewayConnectPeerConfigurationProperty
newValue TransitGatewayConnectPeerConfigurationProperty {Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
Maybe (Value Text)
()
ValueList Text
Value Text
haddock_workaround_ :: TransitGatewayConnectPeerConfigurationProperty -> ()
bgpConfigurations :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
insideCidrBlocks :: TransitGatewayConnectPeerConfigurationProperty -> ValueList Text
peerAddress :: TransitGatewayConnectPeerConfigurationProperty -> Value Text
protocol :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe (Value Text)
transitGatewayAddress :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe (Value Text)
haddock_workaround_ :: ()
bgpConfigurations :: Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
insideCidrBlocks :: ValueList Text
peerAddress :: Value Text
protocol :: Maybe (Value Text)
transitGatewayAddress :: Maybe (Value Text)
..}
    = TransitGatewayConnectPeerConfigurationProperty
        {bgpConfigurations :: Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
bgpConfigurations = [TransitGatewayAttachmentBgpConfigurationProperty]
-> Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [TransitGatewayAttachmentBgpConfigurationProperty]
PropertyType
  "BgpConfigurations" TransitGatewayConnectPeerConfigurationProperty
newValue, Maybe (Value Text)
()
ValueList Text
Value Text
haddock_workaround_ :: ()
insideCidrBlocks :: ValueList Text
peerAddress :: Value Text
protocol :: Maybe (Value Text)
transitGatewayAddress :: Maybe (Value Text)
haddock_workaround_ :: ()
insideCidrBlocks :: ValueList Text
peerAddress :: Value Text
protocol :: Maybe (Value Text)
transitGatewayAddress :: Maybe (Value Text)
..}
instance Property "InsideCidrBlocks" TransitGatewayConnectPeerConfigurationProperty where
  type PropertyType "InsideCidrBlocks" TransitGatewayConnectPeerConfigurationProperty = ValueList Prelude.Text
  set :: PropertyType
  "InsideCidrBlocks" TransitGatewayConnectPeerConfigurationProperty
-> TransitGatewayConnectPeerConfigurationProperty
-> TransitGatewayConnectPeerConfigurationProperty
set PropertyType
  "InsideCidrBlocks" TransitGatewayConnectPeerConfigurationProperty
newValue TransitGatewayConnectPeerConfigurationProperty {Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
Maybe (Value Text)
()
ValueList Text
Value Text
haddock_workaround_ :: TransitGatewayConnectPeerConfigurationProperty -> ()
bgpConfigurations :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
insideCidrBlocks :: TransitGatewayConnectPeerConfigurationProperty -> ValueList Text
peerAddress :: TransitGatewayConnectPeerConfigurationProperty -> Value Text
protocol :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe (Value Text)
transitGatewayAddress :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe (Value Text)
haddock_workaround_ :: ()
bgpConfigurations :: Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
insideCidrBlocks :: ValueList Text
peerAddress :: Value Text
protocol :: Maybe (Value Text)
transitGatewayAddress :: Maybe (Value Text)
..}
    = TransitGatewayConnectPeerConfigurationProperty
        {insideCidrBlocks :: ValueList Text
insideCidrBlocks = PropertyType
  "InsideCidrBlocks" TransitGatewayConnectPeerConfigurationProperty
ValueList Text
newValue, Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
bgpConfigurations :: Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
peerAddress :: Value Text
protocol :: Maybe (Value Text)
transitGatewayAddress :: Maybe (Value Text)
haddock_workaround_ :: ()
bgpConfigurations :: Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
peerAddress :: Value Text
protocol :: Maybe (Value Text)
transitGatewayAddress :: Maybe (Value Text)
..}
instance Property "PeerAddress" TransitGatewayConnectPeerConfigurationProperty where
  type PropertyType "PeerAddress" TransitGatewayConnectPeerConfigurationProperty = Value Prelude.Text
  set :: PropertyType
  "PeerAddress" TransitGatewayConnectPeerConfigurationProperty
-> TransitGatewayConnectPeerConfigurationProperty
-> TransitGatewayConnectPeerConfigurationProperty
set PropertyType
  "PeerAddress" TransitGatewayConnectPeerConfigurationProperty
newValue TransitGatewayConnectPeerConfigurationProperty {Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
Maybe (Value Text)
()
ValueList Text
Value Text
haddock_workaround_ :: TransitGatewayConnectPeerConfigurationProperty -> ()
bgpConfigurations :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
insideCidrBlocks :: TransitGatewayConnectPeerConfigurationProperty -> ValueList Text
peerAddress :: TransitGatewayConnectPeerConfigurationProperty -> Value Text
protocol :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe (Value Text)
transitGatewayAddress :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe (Value Text)
haddock_workaround_ :: ()
bgpConfigurations :: Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
insideCidrBlocks :: ValueList Text
peerAddress :: Value Text
protocol :: Maybe (Value Text)
transitGatewayAddress :: Maybe (Value Text)
..}
    = TransitGatewayConnectPeerConfigurationProperty
        {peerAddress :: Value Text
peerAddress = PropertyType
  "PeerAddress" TransitGatewayConnectPeerConfigurationProperty
Value Text
newValue, Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
Maybe (Value Text)
()
ValueList Text
haddock_workaround_ :: ()
bgpConfigurations :: Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
insideCidrBlocks :: ValueList Text
protocol :: Maybe (Value Text)
transitGatewayAddress :: Maybe (Value Text)
haddock_workaround_ :: ()
bgpConfigurations :: Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
insideCidrBlocks :: ValueList Text
protocol :: Maybe (Value Text)
transitGatewayAddress :: Maybe (Value Text)
..}
instance Property "Protocol" TransitGatewayConnectPeerConfigurationProperty where
  type PropertyType "Protocol" TransitGatewayConnectPeerConfigurationProperty = Value Prelude.Text
  set :: PropertyType
  "Protocol" TransitGatewayConnectPeerConfigurationProperty
-> TransitGatewayConnectPeerConfigurationProperty
-> TransitGatewayConnectPeerConfigurationProperty
set PropertyType
  "Protocol" TransitGatewayConnectPeerConfigurationProperty
newValue TransitGatewayConnectPeerConfigurationProperty {Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
Maybe (Value Text)
()
ValueList Text
Value Text
haddock_workaround_ :: TransitGatewayConnectPeerConfigurationProperty -> ()
bgpConfigurations :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
insideCidrBlocks :: TransitGatewayConnectPeerConfigurationProperty -> ValueList Text
peerAddress :: TransitGatewayConnectPeerConfigurationProperty -> Value Text
protocol :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe (Value Text)
transitGatewayAddress :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe (Value Text)
haddock_workaround_ :: ()
bgpConfigurations :: Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
insideCidrBlocks :: ValueList Text
peerAddress :: Value Text
protocol :: Maybe (Value Text)
transitGatewayAddress :: Maybe (Value Text)
..}
    = TransitGatewayConnectPeerConfigurationProperty
        {protocol :: Maybe (Value Text)
protocol = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "Protocol" TransitGatewayConnectPeerConfigurationProperty
Value Text
newValue, Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
Maybe (Value Text)
()
ValueList Text
Value Text
haddock_workaround_ :: ()
bgpConfigurations :: Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
insideCidrBlocks :: ValueList Text
peerAddress :: Value Text
transitGatewayAddress :: Maybe (Value Text)
haddock_workaround_ :: ()
bgpConfigurations :: Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
insideCidrBlocks :: ValueList Text
peerAddress :: Value Text
transitGatewayAddress :: Maybe (Value Text)
..}
instance Property "TransitGatewayAddress" TransitGatewayConnectPeerConfigurationProperty where
  type PropertyType "TransitGatewayAddress" TransitGatewayConnectPeerConfigurationProperty = Value Prelude.Text
  set :: PropertyType
  "TransitGatewayAddress"
  TransitGatewayConnectPeerConfigurationProperty
-> TransitGatewayConnectPeerConfigurationProperty
-> TransitGatewayConnectPeerConfigurationProperty
set PropertyType
  "TransitGatewayAddress"
  TransitGatewayConnectPeerConfigurationProperty
newValue TransitGatewayConnectPeerConfigurationProperty {Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
Maybe (Value Text)
()
ValueList Text
Value Text
haddock_workaround_ :: TransitGatewayConnectPeerConfigurationProperty -> ()
bgpConfigurations :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
insideCidrBlocks :: TransitGatewayConnectPeerConfigurationProperty -> ValueList Text
peerAddress :: TransitGatewayConnectPeerConfigurationProperty -> Value Text
protocol :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe (Value Text)
transitGatewayAddress :: TransitGatewayConnectPeerConfigurationProperty
-> Maybe (Value Text)
haddock_workaround_ :: ()
bgpConfigurations :: Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
insideCidrBlocks :: ValueList Text
peerAddress :: Value Text
protocol :: Maybe (Value Text)
transitGatewayAddress :: Maybe (Value Text)
..}
    = TransitGatewayConnectPeerConfigurationProperty
        {transitGatewayAddress :: Maybe (Value Text)
transitGatewayAddress = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "TransitGatewayAddress"
  TransitGatewayConnectPeerConfigurationProperty
Value Text
newValue, Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
Maybe (Value Text)
()
ValueList Text
Value Text
haddock_workaround_ :: ()
bgpConfigurations :: Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
insideCidrBlocks :: ValueList Text
peerAddress :: Value Text
protocol :: Maybe (Value Text)
haddock_workaround_ :: ()
bgpConfigurations :: Maybe [TransitGatewayAttachmentBgpConfigurationProperty]
insideCidrBlocks :: ValueList Text
peerAddress :: Value Text
protocol :: Maybe (Value Text)
..}