module Stratosphere.MediaLive.Multiplexprogram.MultiplexProgramServiceDescriptorProperty (
MultiplexProgramServiceDescriptorProperty(..),
mkMultiplexProgramServiceDescriptorProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data MultiplexProgramServiceDescriptorProperty
=
MultiplexProgramServiceDescriptorProperty {MultiplexProgramServiceDescriptorProperty -> ()
haddock_workaround_ :: (),
MultiplexProgramServiceDescriptorProperty -> Value Text
providerName :: (Value Prelude.Text),
MultiplexProgramServiceDescriptorProperty -> Value Text
serviceName :: (Value Prelude.Text)}
deriving stock (MultiplexProgramServiceDescriptorProperty
-> MultiplexProgramServiceDescriptorProperty -> Bool
(MultiplexProgramServiceDescriptorProperty
-> MultiplexProgramServiceDescriptorProperty -> Bool)
-> (MultiplexProgramServiceDescriptorProperty
-> MultiplexProgramServiceDescriptorProperty -> Bool)
-> Eq MultiplexProgramServiceDescriptorProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MultiplexProgramServiceDescriptorProperty
-> MultiplexProgramServiceDescriptorProperty -> Bool
== :: MultiplexProgramServiceDescriptorProperty
-> MultiplexProgramServiceDescriptorProperty -> Bool
$c/= :: MultiplexProgramServiceDescriptorProperty
-> MultiplexProgramServiceDescriptorProperty -> Bool
/= :: MultiplexProgramServiceDescriptorProperty
-> MultiplexProgramServiceDescriptorProperty -> Bool
Prelude.Eq, Int -> MultiplexProgramServiceDescriptorProperty -> ShowS
[MultiplexProgramServiceDescriptorProperty] -> ShowS
MultiplexProgramServiceDescriptorProperty -> String
(Int -> MultiplexProgramServiceDescriptorProperty -> ShowS)
-> (MultiplexProgramServiceDescriptorProperty -> String)
-> ([MultiplexProgramServiceDescriptorProperty] -> ShowS)
-> Show MultiplexProgramServiceDescriptorProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> MultiplexProgramServiceDescriptorProperty -> ShowS
showsPrec :: Int -> MultiplexProgramServiceDescriptorProperty -> ShowS
$cshow :: MultiplexProgramServiceDescriptorProperty -> String
show :: MultiplexProgramServiceDescriptorProperty -> String
$cshowList :: [MultiplexProgramServiceDescriptorProperty] -> ShowS
showList :: [MultiplexProgramServiceDescriptorProperty] -> ShowS
Prelude.Show)
mkMultiplexProgramServiceDescriptorProperty ::
Value Prelude.Text
-> Value Prelude.Text -> MultiplexProgramServiceDescriptorProperty
mkMultiplexProgramServiceDescriptorProperty :: Value Text
-> Value Text -> MultiplexProgramServiceDescriptorProperty
mkMultiplexProgramServiceDescriptorProperty
Value Text
providerName
Value Text
serviceName
= MultiplexProgramServiceDescriptorProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), providerName :: Value Text
providerName = Value Text
providerName,
serviceName :: Value Text
serviceName = Value Text
serviceName}
instance ToResourceProperties MultiplexProgramServiceDescriptorProperty where
toResourceProperties :: MultiplexProgramServiceDescriptorProperty -> ResourceProperties
toResourceProperties MultiplexProgramServiceDescriptorProperty {()
Value Text
haddock_workaround_ :: MultiplexProgramServiceDescriptorProperty -> ()
providerName :: MultiplexProgramServiceDescriptorProperty -> Value Text
serviceName :: MultiplexProgramServiceDescriptorProperty -> Value Text
haddock_workaround_ :: ()
providerName :: Value Text
serviceName :: Value Text
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::MediaLive::Multiplexprogram.MultiplexProgramServiceDescriptor",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"ProviderName" 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
providerName,
Key
"ServiceName" 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
serviceName]}
instance JSON.ToJSON MultiplexProgramServiceDescriptorProperty where
toJSON :: MultiplexProgramServiceDescriptorProperty -> Value
toJSON MultiplexProgramServiceDescriptorProperty {()
Value Text
haddock_workaround_ :: MultiplexProgramServiceDescriptorProperty -> ()
providerName :: MultiplexProgramServiceDescriptorProperty -> Value Text
serviceName :: MultiplexProgramServiceDescriptorProperty -> Value Text
haddock_workaround_ :: ()
providerName :: Value Text
serviceName :: Value Text
..}
= [(Key, Value)] -> Value
JSON.object
[Key
"ProviderName" 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
providerName,
Key
"ServiceName" 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
serviceName]
instance Property "ProviderName" MultiplexProgramServiceDescriptorProperty where
type PropertyType "ProviderName" MultiplexProgramServiceDescriptorProperty = Value Prelude.Text
set :: PropertyType
"ProviderName" MultiplexProgramServiceDescriptorProperty
-> MultiplexProgramServiceDescriptorProperty
-> MultiplexProgramServiceDescriptorProperty
set PropertyType
"ProviderName" MultiplexProgramServiceDescriptorProperty
newValue MultiplexProgramServiceDescriptorProperty {()
Value Text
haddock_workaround_ :: MultiplexProgramServiceDescriptorProperty -> ()
providerName :: MultiplexProgramServiceDescriptorProperty -> Value Text
serviceName :: MultiplexProgramServiceDescriptorProperty -> Value Text
haddock_workaround_ :: ()
providerName :: Value Text
serviceName :: Value Text
..}
= MultiplexProgramServiceDescriptorProperty
{providerName :: Value Text
providerName = PropertyType
"ProviderName" MultiplexProgramServiceDescriptorProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
serviceName :: Value Text
haddock_workaround_ :: ()
serviceName :: Value Text
..}
instance Property "ServiceName" MultiplexProgramServiceDescriptorProperty where
type PropertyType "ServiceName" MultiplexProgramServiceDescriptorProperty = Value Prelude.Text
set :: PropertyType
"ServiceName" MultiplexProgramServiceDescriptorProperty
-> MultiplexProgramServiceDescriptorProperty
-> MultiplexProgramServiceDescriptorProperty
set PropertyType
"ServiceName" MultiplexProgramServiceDescriptorProperty
newValue MultiplexProgramServiceDescriptorProperty {()
Value Text
haddock_workaround_ :: MultiplexProgramServiceDescriptorProperty -> ()
providerName :: MultiplexProgramServiceDescriptorProperty -> Value Text
serviceName :: MultiplexProgramServiceDescriptorProperty -> Value Text
haddock_workaround_ :: ()
providerName :: Value Text
serviceName :: Value Text
..}
= MultiplexProgramServiceDescriptorProperty
{serviceName :: Value Text
serviceName = PropertyType
"ServiceName" MultiplexProgramServiceDescriptorProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
providerName :: Value Text
haddock_workaround_ :: ()
providerName :: Value Text
..}