module Stratosphere.MediaLive.Multiplexprogram.MultiplexProgramSettingsProperty (
        module Exports, MultiplexProgramSettingsProperty(..),
        mkMultiplexProgramSettingsProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.MediaLive.Multiplexprogram.MultiplexProgramServiceDescriptorProperty as Exports
import {-# SOURCE #-} Stratosphere.MediaLive.Multiplexprogram.MultiplexVideoSettingsProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data MultiplexProgramSettingsProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-multiplexprogram-multiplexprogramsettings.html>
    MultiplexProgramSettingsProperty {MultiplexProgramSettingsProperty -> ()
haddock_workaround_ :: (),
                                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-multiplexprogram-multiplexprogramsettings.html#cfn-medialive-multiplexprogram-multiplexprogramsettings-preferredchannelpipeline>
                                      MultiplexProgramSettingsProperty -> Maybe (Value Text)
preferredChannelPipeline :: (Prelude.Maybe (Value Prelude.Text)),
                                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-multiplexprogram-multiplexprogramsettings.html#cfn-medialive-multiplexprogram-multiplexprogramsettings-programnumber>
                                      MultiplexProgramSettingsProperty -> Value Integer
programNumber :: (Value Prelude.Integer),
                                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-multiplexprogram-multiplexprogramsettings.html#cfn-medialive-multiplexprogram-multiplexprogramsettings-servicedescriptor>
                                      MultiplexProgramSettingsProperty
-> Maybe MultiplexProgramServiceDescriptorProperty
serviceDescriptor :: (Prelude.Maybe MultiplexProgramServiceDescriptorProperty),
                                      -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-multiplexprogram-multiplexprogramsettings.html#cfn-medialive-multiplexprogram-multiplexprogramsettings-videosettings>
                                      MultiplexProgramSettingsProperty
-> Maybe MultiplexVideoSettingsProperty
videoSettings :: (Prelude.Maybe MultiplexVideoSettingsProperty)}
  deriving stock (MultiplexProgramSettingsProperty
-> MultiplexProgramSettingsProperty -> Bool
(MultiplexProgramSettingsProperty
 -> MultiplexProgramSettingsProperty -> Bool)
-> (MultiplexProgramSettingsProperty
    -> MultiplexProgramSettingsProperty -> Bool)
-> Eq MultiplexProgramSettingsProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MultiplexProgramSettingsProperty
-> MultiplexProgramSettingsProperty -> Bool
== :: MultiplexProgramSettingsProperty
-> MultiplexProgramSettingsProperty -> Bool
$c/= :: MultiplexProgramSettingsProperty
-> MultiplexProgramSettingsProperty -> Bool
/= :: MultiplexProgramSettingsProperty
-> MultiplexProgramSettingsProperty -> Bool
Prelude.Eq, Int -> MultiplexProgramSettingsProperty -> ShowS
[MultiplexProgramSettingsProperty] -> ShowS
MultiplexProgramSettingsProperty -> String
(Int -> MultiplexProgramSettingsProperty -> ShowS)
-> (MultiplexProgramSettingsProperty -> String)
-> ([MultiplexProgramSettingsProperty] -> ShowS)
-> Show MultiplexProgramSettingsProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> MultiplexProgramSettingsProperty -> ShowS
showsPrec :: Int -> MultiplexProgramSettingsProperty -> ShowS
$cshow :: MultiplexProgramSettingsProperty -> String
show :: MultiplexProgramSettingsProperty -> String
$cshowList :: [MultiplexProgramSettingsProperty] -> ShowS
showList :: [MultiplexProgramSettingsProperty] -> ShowS
Prelude.Show)
mkMultiplexProgramSettingsProperty ::
  Value Prelude.Integer -> MultiplexProgramSettingsProperty
mkMultiplexProgramSettingsProperty :: Value Integer -> MultiplexProgramSettingsProperty
mkMultiplexProgramSettingsProperty Value Integer
programNumber
  = MultiplexProgramSettingsProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), programNumber :: Value Integer
programNumber = Value Integer
programNumber,
       preferredChannelPipeline :: Maybe (Value Text)
preferredChannelPipeline = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       serviceDescriptor :: Maybe MultiplexProgramServiceDescriptorProperty
serviceDescriptor = Maybe MultiplexProgramServiceDescriptorProperty
forall a. Maybe a
Prelude.Nothing,
       videoSettings :: Maybe MultiplexVideoSettingsProperty
videoSettings = Maybe MultiplexVideoSettingsProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties MultiplexProgramSettingsProperty where
  toResourceProperties :: MultiplexProgramSettingsProperty -> ResourceProperties
toResourceProperties MultiplexProgramSettingsProperty {Maybe (Value Text)
Maybe MultiplexProgramServiceDescriptorProperty
Maybe MultiplexVideoSettingsProperty
()
Value Integer
haddock_workaround_ :: MultiplexProgramSettingsProperty -> ()
preferredChannelPipeline :: MultiplexProgramSettingsProperty -> Maybe (Value Text)
programNumber :: MultiplexProgramSettingsProperty -> Value Integer
serviceDescriptor :: MultiplexProgramSettingsProperty
-> Maybe MultiplexProgramServiceDescriptorProperty
videoSettings :: MultiplexProgramSettingsProperty
-> Maybe MultiplexVideoSettingsProperty
haddock_workaround_ :: ()
preferredChannelPipeline :: Maybe (Value Text)
programNumber :: Value Integer
serviceDescriptor :: Maybe MultiplexProgramServiceDescriptorProperty
videoSettings :: Maybe MultiplexVideoSettingsProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::MediaLive::Multiplexprogram.MultiplexProgramSettings",
         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
"ProgramNumber" 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
programNumber]
                           ([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
"PreferredChannelPipeline"
                                 (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)
preferredChannelPipeline,
                               Key -> MultiplexProgramServiceDescriptorProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ServiceDescriptor" (MultiplexProgramServiceDescriptorProperty -> (Key, Value))
-> Maybe MultiplexProgramServiceDescriptorProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe MultiplexProgramServiceDescriptorProperty
serviceDescriptor,
                               Key -> MultiplexVideoSettingsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"VideoSettings" (MultiplexVideoSettingsProperty -> (Key, Value))
-> Maybe MultiplexVideoSettingsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe MultiplexVideoSettingsProperty
videoSettings]))}
instance JSON.ToJSON MultiplexProgramSettingsProperty where
  toJSON :: MultiplexProgramSettingsProperty -> Value
toJSON MultiplexProgramSettingsProperty {Maybe (Value Text)
Maybe MultiplexProgramServiceDescriptorProperty
Maybe MultiplexVideoSettingsProperty
()
Value Integer
haddock_workaround_ :: MultiplexProgramSettingsProperty -> ()
preferredChannelPipeline :: MultiplexProgramSettingsProperty -> Maybe (Value Text)
programNumber :: MultiplexProgramSettingsProperty -> Value Integer
serviceDescriptor :: MultiplexProgramSettingsProperty
-> Maybe MultiplexProgramServiceDescriptorProperty
videoSettings :: MultiplexProgramSettingsProperty
-> Maybe MultiplexVideoSettingsProperty
haddock_workaround_ :: ()
preferredChannelPipeline :: Maybe (Value Text)
programNumber :: Value Integer
serviceDescriptor :: Maybe MultiplexProgramServiceDescriptorProperty
videoSettings :: Maybe MultiplexVideoSettingsProperty
..}
    = [(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
"ProgramNumber" 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
programNumber]
              ([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
"PreferredChannelPipeline"
                    (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)
preferredChannelPipeline,
                  Key -> MultiplexProgramServiceDescriptorProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ServiceDescriptor" (MultiplexProgramServiceDescriptorProperty -> (Key, Value))
-> Maybe MultiplexProgramServiceDescriptorProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe MultiplexProgramServiceDescriptorProperty
serviceDescriptor,
                  Key -> MultiplexVideoSettingsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"VideoSettings" (MultiplexVideoSettingsProperty -> (Key, Value))
-> Maybe MultiplexVideoSettingsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe MultiplexVideoSettingsProperty
videoSettings])))
instance Property "PreferredChannelPipeline" MultiplexProgramSettingsProperty where
  type PropertyType "PreferredChannelPipeline" MultiplexProgramSettingsProperty = Value Prelude.Text
  set :: PropertyType
  "PreferredChannelPipeline" MultiplexProgramSettingsProperty
-> MultiplexProgramSettingsProperty
-> MultiplexProgramSettingsProperty
set PropertyType
  "PreferredChannelPipeline" MultiplexProgramSettingsProperty
newValue MultiplexProgramSettingsProperty {Maybe (Value Text)
Maybe MultiplexProgramServiceDescriptorProperty
Maybe MultiplexVideoSettingsProperty
()
Value Integer
haddock_workaround_ :: MultiplexProgramSettingsProperty -> ()
preferredChannelPipeline :: MultiplexProgramSettingsProperty -> Maybe (Value Text)
programNumber :: MultiplexProgramSettingsProperty -> Value Integer
serviceDescriptor :: MultiplexProgramSettingsProperty
-> Maybe MultiplexProgramServiceDescriptorProperty
videoSettings :: MultiplexProgramSettingsProperty
-> Maybe MultiplexVideoSettingsProperty
haddock_workaround_ :: ()
preferredChannelPipeline :: Maybe (Value Text)
programNumber :: Value Integer
serviceDescriptor :: Maybe MultiplexProgramServiceDescriptorProperty
videoSettings :: Maybe MultiplexVideoSettingsProperty
..}
    = MultiplexProgramSettingsProperty
        {preferredChannelPipeline :: Maybe (Value Text)
preferredChannelPipeline = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "PreferredChannelPipeline" MultiplexProgramSettingsProperty
Value Text
newValue, Maybe MultiplexProgramServiceDescriptorProperty
Maybe MultiplexVideoSettingsProperty
()
Value Integer
haddock_workaround_ :: ()
programNumber :: Value Integer
serviceDescriptor :: Maybe MultiplexProgramServiceDescriptorProperty
videoSettings :: Maybe MultiplexVideoSettingsProperty
haddock_workaround_ :: ()
programNumber :: Value Integer
serviceDescriptor :: Maybe MultiplexProgramServiceDescriptorProperty
videoSettings :: Maybe MultiplexVideoSettingsProperty
..}
instance Property "ProgramNumber" MultiplexProgramSettingsProperty where
  type PropertyType "ProgramNumber" MultiplexProgramSettingsProperty = Value Prelude.Integer
  set :: PropertyType "ProgramNumber" MultiplexProgramSettingsProperty
-> MultiplexProgramSettingsProperty
-> MultiplexProgramSettingsProperty
set PropertyType "ProgramNumber" MultiplexProgramSettingsProperty
newValue MultiplexProgramSettingsProperty {Maybe (Value Text)
Maybe MultiplexProgramServiceDescriptorProperty
Maybe MultiplexVideoSettingsProperty
()
Value Integer
haddock_workaround_ :: MultiplexProgramSettingsProperty -> ()
preferredChannelPipeline :: MultiplexProgramSettingsProperty -> Maybe (Value Text)
programNumber :: MultiplexProgramSettingsProperty -> Value Integer
serviceDescriptor :: MultiplexProgramSettingsProperty
-> Maybe MultiplexProgramServiceDescriptorProperty
videoSettings :: MultiplexProgramSettingsProperty
-> Maybe MultiplexVideoSettingsProperty
haddock_workaround_ :: ()
preferredChannelPipeline :: Maybe (Value Text)
programNumber :: Value Integer
serviceDescriptor :: Maybe MultiplexProgramServiceDescriptorProperty
videoSettings :: Maybe MultiplexVideoSettingsProperty
..}
    = MultiplexProgramSettingsProperty {programNumber :: Value Integer
programNumber = PropertyType "ProgramNumber" MultiplexProgramSettingsProperty
Value Integer
newValue, Maybe (Value Text)
Maybe MultiplexProgramServiceDescriptorProperty
Maybe MultiplexVideoSettingsProperty
()
haddock_workaround_ :: ()
preferredChannelPipeline :: Maybe (Value Text)
serviceDescriptor :: Maybe MultiplexProgramServiceDescriptorProperty
videoSettings :: Maybe MultiplexVideoSettingsProperty
haddock_workaround_ :: ()
preferredChannelPipeline :: Maybe (Value Text)
serviceDescriptor :: Maybe MultiplexProgramServiceDescriptorProperty
videoSettings :: Maybe MultiplexVideoSettingsProperty
..}
instance Property "ServiceDescriptor" MultiplexProgramSettingsProperty where
  type PropertyType "ServiceDescriptor" MultiplexProgramSettingsProperty = MultiplexProgramServiceDescriptorProperty
  set :: PropertyType "ServiceDescriptor" MultiplexProgramSettingsProperty
-> MultiplexProgramSettingsProperty
-> MultiplexProgramSettingsProperty
set PropertyType "ServiceDescriptor" MultiplexProgramSettingsProperty
newValue MultiplexProgramSettingsProperty {Maybe (Value Text)
Maybe MultiplexProgramServiceDescriptorProperty
Maybe MultiplexVideoSettingsProperty
()
Value Integer
haddock_workaround_ :: MultiplexProgramSettingsProperty -> ()
preferredChannelPipeline :: MultiplexProgramSettingsProperty -> Maybe (Value Text)
programNumber :: MultiplexProgramSettingsProperty -> Value Integer
serviceDescriptor :: MultiplexProgramSettingsProperty
-> Maybe MultiplexProgramServiceDescriptorProperty
videoSettings :: MultiplexProgramSettingsProperty
-> Maybe MultiplexVideoSettingsProperty
haddock_workaround_ :: ()
preferredChannelPipeline :: Maybe (Value Text)
programNumber :: Value Integer
serviceDescriptor :: Maybe MultiplexProgramServiceDescriptorProperty
videoSettings :: Maybe MultiplexVideoSettingsProperty
..}
    = MultiplexProgramSettingsProperty
        {serviceDescriptor :: Maybe MultiplexProgramServiceDescriptorProperty
serviceDescriptor = MultiplexProgramServiceDescriptorProperty
-> Maybe MultiplexProgramServiceDescriptorProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ServiceDescriptor" MultiplexProgramSettingsProperty
MultiplexProgramServiceDescriptorProperty
newValue, Maybe (Value Text)
Maybe MultiplexVideoSettingsProperty
()
Value Integer
haddock_workaround_ :: ()
preferredChannelPipeline :: Maybe (Value Text)
programNumber :: Value Integer
videoSettings :: Maybe MultiplexVideoSettingsProperty
haddock_workaround_ :: ()
preferredChannelPipeline :: Maybe (Value Text)
programNumber :: Value Integer
videoSettings :: Maybe MultiplexVideoSettingsProperty
..}
instance Property "VideoSettings" MultiplexProgramSettingsProperty where
  type PropertyType "VideoSettings" MultiplexProgramSettingsProperty = MultiplexVideoSettingsProperty
  set :: PropertyType "VideoSettings" MultiplexProgramSettingsProperty
-> MultiplexProgramSettingsProperty
-> MultiplexProgramSettingsProperty
set PropertyType "VideoSettings" MultiplexProgramSettingsProperty
newValue MultiplexProgramSettingsProperty {Maybe (Value Text)
Maybe MultiplexProgramServiceDescriptorProperty
Maybe MultiplexVideoSettingsProperty
()
Value Integer
haddock_workaround_ :: MultiplexProgramSettingsProperty -> ()
preferredChannelPipeline :: MultiplexProgramSettingsProperty -> Maybe (Value Text)
programNumber :: MultiplexProgramSettingsProperty -> Value Integer
serviceDescriptor :: MultiplexProgramSettingsProperty
-> Maybe MultiplexProgramServiceDescriptorProperty
videoSettings :: MultiplexProgramSettingsProperty
-> Maybe MultiplexVideoSettingsProperty
haddock_workaround_ :: ()
preferredChannelPipeline :: Maybe (Value Text)
programNumber :: Value Integer
serviceDescriptor :: Maybe MultiplexProgramServiceDescriptorProperty
videoSettings :: Maybe MultiplexVideoSettingsProperty
..}
    = MultiplexProgramSettingsProperty
        {videoSettings :: Maybe MultiplexVideoSettingsProperty
videoSettings = MultiplexVideoSettingsProperty
-> Maybe MultiplexVideoSettingsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "VideoSettings" MultiplexProgramSettingsProperty
MultiplexVideoSettingsProperty
newValue, Maybe (Value Text)
Maybe MultiplexProgramServiceDescriptorProperty
()
Value Integer
haddock_workaround_ :: ()
preferredChannelPipeline :: Maybe (Value Text)
programNumber :: Value Integer
serviceDescriptor :: Maybe MultiplexProgramServiceDescriptorProperty
haddock_workaround_ :: ()
preferredChannelPipeline :: Maybe (Value Text)
programNumber :: Value Integer
serviceDescriptor :: Maybe MultiplexProgramServiceDescriptorProperty
..}