module Stratosphere.MediaConnect.FlowSource.GatewayBridgeSourceProperty (
        module Exports, GatewayBridgeSourceProperty(..),
        mkGatewayBridgeSourceProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.MediaConnect.FlowSource.VpcInterfaceAttachmentProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data GatewayBridgeSourceProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediaconnect-flowsource-gatewaybridgesource.html>
    GatewayBridgeSourceProperty {GatewayBridgeSourceProperty -> ()
haddock_workaround_ :: (),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediaconnect-flowsource-gatewaybridgesource.html#cfn-mediaconnect-flowsource-gatewaybridgesource-bridgearn>
                                 GatewayBridgeSourceProperty -> Value Text
bridgeArn :: (Value Prelude.Text),
                                 -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediaconnect-flowsource-gatewaybridgesource.html#cfn-mediaconnect-flowsource-gatewaybridgesource-vpcinterfaceattachment>
                                 GatewayBridgeSourceProperty -> Maybe VpcInterfaceAttachmentProperty
vpcInterfaceAttachment :: (Prelude.Maybe VpcInterfaceAttachmentProperty)}
  deriving stock (GatewayBridgeSourceProperty -> GatewayBridgeSourceProperty -> Bool
(GatewayBridgeSourceProperty
 -> GatewayBridgeSourceProperty -> Bool)
-> (GatewayBridgeSourceProperty
    -> GatewayBridgeSourceProperty -> Bool)
-> Eq GatewayBridgeSourceProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: GatewayBridgeSourceProperty -> GatewayBridgeSourceProperty -> Bool
== :: GatewayBridgeSourceProperty -> GatewayBridgeSourceProperty -> Bool
$c/= :: GatewayBridgeSourceProperty -> GatewayBridgeSourceProperty -> Bool
/= :: GatewayBridgeSourceProperty -> GatewayBridgeSourceProperty -> Bool
Prelude.Eq, Int -> GatewayBridgeSourceProperty -> ShowS
[GatewayBridgeSourceProperty] -> ShowS
GatewayBridgeSourceProperty -> String
(Int -> GatewayBridgeSourceProperty -> ShowS)
-> (GatewayBridgeSourceProperty -> String)
-> ([GatewayBridgeSourceProperty] -> ShowS)
-> Show GatewayBridgeSourceProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> GatewayBridgeSourceProperty -> ShowS
showsPrec :: Int -> GatewayBridgeSourceProperty -> ShowS
$cshow :: GatewayBridgeSourceProperty -> String
show :: GatewayBridgeSourceProperty -> String
$cshowList :: [GatewayBridgeSourceProperty] -> ShowS
showList :: [GatewayBridgeSourceProperty] -> ShowS
Prelude.Show)
mkGatewayBridgeSourceProperty ::
  Value Prelude.Text -> GatewayBridgeSourceProperty
mkGatewayBridgeSourceProperty :: Value Text -> GatewayBridgeSourceProperty
mkGatewayBridgeSourceProperty Value Text
bridgeArn
  = GatewayBridgeSourceProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), bridgeArn :: Value Text
bridgeArn = Value Text
bridgeArn,
       vpcInterfaceAttachment :: Maybe VpcInterfaceAttachmentProperty
vpcInterfaceAttachment = Maybe VpcInterfaceAttachmentProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties GatewayBridgeSourceProperty where
  toResourceProperties :: GatewayBridgeSourceProperty -> ResourceProperties
toResourceProperties GatewayBridgeSourceProperty {Maybe VpcInterfaceAttachmentProperty
()
Value Text
haddock_workaround_ :: GatewayBridgeSourceProperty -> ()
bridgeArn :: GatewayBridgeSourceProperty -> Value Text
vpcInterfaceAttachment :: GatewayBridgeSourceProperty -> Maybe VpcInterfaceAttachmentProperty
haddock_workaround_ :: ()
bridgeArn :: Value Text
vpcInterfaceAttachment :: Maybe VpcInterfaceAttachmentProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::MediaConnect::FlowSource.GatewayBridgeSource",
         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
"BridgeArn" 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
bridgeArn]
                           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                              [Key -> VpcInterfaceAttachmentProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"VpcInterfaceAttachment"
                                 (VpcInterfaceAttachmentProperty -> (Key, Value))
-> Maybe VpcInterfaceAttachmentProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe VpcInterfaceAttachmentProperty
vpcInterfaceAttachment]))}
instance JSON.ToJSON GatewayBridgeSourceProperty where
  toJSON :: GatewayBridgeSourceProperty -> Value
toJSON GatewayBridgeSourceProperty {Maybe VpcInterfaceAttachmentProperty
()
Value Text
haddock_workaround_ :: GatewayBridgeSourceProperty -> ()
bridgeArn :: GatewayBridgeSourceProperty -> Value Text
vpcInterfaceAttachment :: GatewayBridgeSourceProperty -> Maybe VpcInterfaceAttachmentProperty
haddock_workaround_ :: ()
bridgeArn :: Value Text
vpcInterfaceAttachment :: Maybe VpcInterfaceAttachmentProperty
..}
    = [(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
"BridgeArn" 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
bridgeArn]
              ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                 [Key -> VpcInterfaceAttachmentProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"VpcInterfaceAttachment"
                    (VpcInterfaceAttachmentProperty -> (Key, Value))
-> Maybe VpcInterfaceAttachmentProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe VpcInterfaceAttachmentProperty
vpcInterfaceAttachment])))
instance Property "BridgeArn" GatewayBridgeSourceProperty where
  type PropertyType "BridgeArn" GatewayBridgeSourceProperty = Value Prelude.Text
  set :: PropertyType "BridgeArn" GatewayBridgeSourceProperty
-> GatewayBridgeSourceProperty -> GatewayBridgeSourceProperty
set PropertyType "BridgeArn" GatewayBridgeSourceProperty
newValue GatewayBridgeSourceProperty {Maybe VpcInterfaceAttachmentProperty
()
Value Text
haddock_workaround_ :: GatewayBridgeSourceProperty -> ()
bridgeArn :: GatewayBridgeSourceProperty -> Value Text
vpcInterfaceAttachment :: GatewayBridgeSourceProperty -> Maybe VpcInterfaceAttachmentProperty
haddock_workaround_ :: ()
bridgeArn :: Value Text
vpcInterfaceAttachment :: Maybe VpcInterfaceAttachmentProperty
..}
    = GatewayBridgeSourceProperty {bridgeArn :: Value Text
bridgeArn = PropertyType "BridgeArn" GatewayBridgeSourceProperty
Value Text
newValue, Maybe VpcInterfaceAttachmentProperty
()
haddock_workaround_ :: ()
vpcInterfaceAttachment :: Maybe VpcInterfaceAttachmentProperty
haddock_workaround_ :: ()
vpcInterfaceAttachment :: Maybe VpcInterfaceAttachmentProperty
..}
instance Property "VpcInterfaceAttachment" GatewayBridgeSourceProperty where
  type PropertyType "VpcInterfaceAttachment" GatewayBridgeSourceProperty = VpcInterfaceAttachmentProperty
  set :: PropertyType "VpcInterfaceAttachment" GatewayBridgeSourceProperty
-> GatewayBridgeSourceProperty -> GatewayBridgeSourceProperty
set PropertyType "VpcInterfaceAttachment" GatewayBridgeSourceProperty
newValue GatewayBridgeSourceProperty {Maybe VpcInterfaceAttachmentProperty
()
Value Text
haddock_workaround_ :: GatewayBridgeSourceProperty -> ()
bridgeArn :: GatewayBridgeSourceProperty -> Value Text
vpcInterfaceAttachment :: GatewayBridgeSourceProperty -> Maybe VpcInterfaceAttachmentProperty
haddock_workaround_ :: ()
bridgeArn :: Value Text
vpcInterfaceAttachment :: Maybe VpcInterfaceAttachmentProperty
..}
    = GatewayBridgeSourceProperty
        {vpcInterfaceAttachment :: Maybe VpcInterfaceAttachmentProperty
vpcInterfaceAttachment = VpcInterfaceAttachmentProperty
-> Maybe VpcInterfaceAttachmentProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "VpcInterfaceAttachment" GatewayBridgeSourceProperty
VpcInterfaceAttachmentProperty
newValue, ()
Value Text
haddock_workaround_ :: ()
bridgeArn :: Value Text
haddock_workaround_ :: ()
bridgeArn :: Value Text
..}