module Stratosphere.MediaPackageV2.OriginEndpoint.SegmentProperty (
        module Exports, SegmentProperty(..), mkSegmentProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.MediaPackageV2.OriginEndpoint.EncryptionProperty as Exports
import {-# SOURCE #-} Stratosphere.MediaPackageV2.OriginEndpoint.ScteProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data SegmentProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediapackagev2-originendpoint-segment.html>
    SegmentProperty {SegmentProperty -> ()
haddock_workaround_ :: (),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediapackagev2-originendpoint-segment.html#cfn-mediapackagev2-originendpoint-segment-encryption>
                     SegmentProperty -> Maybe EncryptionProperty
encryption :: (Prelude.Maybe EncryptionProperty),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediapackagev2-originendpoint-segment.html#cfn-mediapackagev2-originendpoint-segment-includeiframeonlystreams>
                     SegmentProperty -> Maybe (Value Bool)
includeIframeOnlyStreams :: (Prelude.Maybe (Value Prelude.Bool)),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediapackagev2-originendpoint-segment.html#cfn-mediapackagev2-originendpoint-segment-scte>
                     SegmentProperty -> Maybe ScteProperty
scte :: (Prelude.Maybe ScteProperty),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediapackagev2-originendpoint-segment.html#cfn-mediapackagev2-originendpoint-segment-segmentdurationseconds>
                     SegmentProperty -> Maybe (Value Integer)
segmentDurationSeconds :: (Prelude.Maybe (Value Prelude.Integer)),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediapackagev2-originendpoint-segment.html#cfn-mediapackagev2-originendpoint-segment-segmentname>
                     SegmentProperty -> Maybe (Value Text)
segmentName :: (Prelude.Maybe (Value Prelude.Text)),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediapackagev2-originendpoint-segment.html#cfn-mediapackagev2-originendpoint-segment-tsincludedvbsubtitles>
                     SegmentProperty -> Maybe (Value Bool)
tsIncludeDvbSubtitles :: (Prelude.Maybe (Value Prelude.Bool)),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mediapackagev2-originendpoint-segment.html#cfn-mediapackagev2-originendpoint-segment-tsuseaudiorenditiongroup>
                     SegmentProperty -> Maybe (Value Bool)
tsUseAudioRenditionGroup :: (Prelude.Maybe (Value Prelude.Bool))}
  deriving stock (SegmentProperty -> SegmentProperty -> Bool
(SegmentProperty -> SegmentProperty -> Bool)
-> (SegmentProperty -> SegmentProperty -> Bool)
-> Eq SegmentProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SegmentProperty -> SegmentProperty -> Bool
== :: SegmentProperty -> SegmentProperty -> Bool
$c/= :: SegmentProperty -> SegmentProperty -> Bool
/= :: SegmentProperty -> SegmentProperty -> Bool
Prelude.Eq, Int -> SegmentProperty -> ShowS
[SegmentProperty] -> ShowS
SegmentProperty -> String
(Int -> SegmentProperty -> ShowS)
-> (SegmentProperty -> String)
-> ([SegmentProperty] -> ShowS)
-> Show SegmentProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SegmentProperty -> ShowS
showsPrec :: Int -> SegmentProperty -> ShowS
$cshow :: SegmentProperty -> String
show :: SegmentProperty -> String
$cshowList :: [SegmentProperty] -> ShowS
showList :: [SegmentProperty] -> ShowS
Prelude.Show)
mkSegmentProperty :: SegmentProperty
mkSegmentProperty :: SegmentProperty
mkSegmentProperty
  = SegmentProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), encryption :: Maybe EncryptionProperty
encryption = Maybe EncryptionProperty
forall a. Maybe a
Prelude.Nothing,
       includeIframeOnlyStreams :: Maybe (Value Bool)
includeIframeOnlyStreams = Maybe (Value Bool)
forall a. Maybe a
Prelude.Nothing, scte :: Maybe ScteProperty
scte = Maybe ScteProperty
forall a. Maybe a
Prelude.Nothing,
       segmentDurationSeconds :: Maybe (Value Integer)
segmentDurationSeconds = Maybe (Value Integer)
forall a. Maybe a
Prelude.Nothing,
       segmentName :: Maybe (Value Text)
segmentName = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsIncludeDvbSubtitles = Maybe (Value Bool)
forall a. Maybe a
Prelude.Nothing,
       tsUseAudioRenditionGroup :: Maybe (Value Bool)
tsUseAudioRenditionGroup = Maybe (Value Bool)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties SegmentProperty where
  toResourceProperties :: SegmentProperty -> ResourceProperties
toResourceProperties SegmentProperty {Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ScteProperty
Maybe EncryptionProperty
()
haddock_workaround_ :: SegmentProperty -> ()
encryption :: SegmentProperty -> Maybe EncryptionProperty
includeIframeOnlyStreams :: SegmentProperty -> Maybe (Value Bool)
scte :: SegmentProperty -> Maybe ScteProperty
segmentDurationSeconds :: SegmentProperty -> Maybe (Value Integer)
segmentName :: SegmentProperty -> Maybe (Value Text)
tsIncludeDvbSubtitles :: SegmentProperty -> Maybe (Value Bool)
tsUseAudioRenditionGroup :: SegmentProperty -> Maybe (Value Bool)
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
includeIframeOnlyStreams :: Maybe (Value Bool)
scte :: Maybe ScteProperty
segmentDurationSeconds :: Maybe (Value Integer)
segmentName :: Maybe (Value Text)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::MediaPackageV2::OriginEndpoint.Segment",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                           [Key -> EncryptionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Encryption" (EncryptionProperty -> (Key, Value))
-> Maybe EncryptionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe EncryptionProperty
encryption,
                            Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"IncludeIframeOnlyStreams"
                              (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
includeIframeOnlyStreams,
                            Key -> ScteProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Scte" (ScteProperty -> (Key, Value))
-> Maybe ScteProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ScteProperty
scte,
                            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..=) Key
"SegmentDurationSeconds"
                              (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
segmentDurationSeconds,
                            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
"SegmentName" (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)
segmentName,
                            Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TsIncludeDvbSubtitles"
                              (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
tsIncludeDvbSubtitles,
                            Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TsUseAudioRenditionGroup"
                              (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
tsUseAudioRenditionGroup])}
instance JSON.ToJSON SegmentProperty where
  toJSON :: SegmentProperty -> Value
toJSON SegmentProperty {Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ScteProperty
Maybe EncryptionProperty
()
haddock_workaround_ :: SegmentProperty -> ()
encryption :: SegmentProperty -> Maybe EncryptionProperty
includeIframeOnlyStreams :: SegmentProperty -> Maybe (Value Bool)
scte :: SegmentProperty -> Maybe ScteProperty
segmentDurationSeconds :: SegmentProperty -> Maybe (Value Integer)
segmentName :: SegmentProperty -> Maybe (Value Text)
tsIncludeDvbSubtitles :: SegmentProperty -> Maybe (Value Bool)
tsUseAudioRenditionGroup :: SegmentProperty -> Maybe (Value Bool)
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
includeIframeOnlyStreams :: Maybe (Value Bool)
scte :: Maybe ScteProperty
segmentDurationSeconds :: Maybe (Value Integer)
segmentName :: Maybe (Value Text)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
              [Key -> EncryptionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Encryption" (EncryptionProperty -> (Key, Value))
-> Maybe EncryptionProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe EncryptionProperty
encryption,
               Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"IncludeIframeOnlyStreams"
                 (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
includeIframeOnlyStreams,
               Key -> ScteProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Scte" (ScteProperty -> (Key, Value))
-> Maybe ScteProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ScteProperty
scte,
               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..=) Key
"SegmentDurationSeconds"
                 (Value Integer -> (Key, Value))
-> Maybe (Value Integer) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Integer)
segmentDurationSeconds,
               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
"SegmentName" (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)
segmentName,
               Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TsIncludeDvbSubtitles"
                 (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
tsIncludeDvbSubtitles,
               Key -> Value Bool -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TsUseAudioRenditionGroup"
                 (Value Bool -> (Key, Value))
-> Maybe (Value Bool) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Bool)
tsUseAudioRenditionGroup]))
instance Property "Encryption" SegmentProperty where
  type PropertyType "Encryption" SegmentProperty = EncryptionProperty
  set :: PropertyType "Encryption" SegmentProperty
-> SegmentProperty -> SegmentProperty
set PropertyType "Encryption" SegmentProperty
newValue SegmentProperty {Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ScteProperty
Maybe EncryptionProperty
()
haddock_workaround_ :: SegmentProperty -> ()
encryption :: SegmentProperty -> Maybe EncryptionProperty
includeIframeOnlyStreams :: SegmentProperty -> Maybe (Value Bool)
scte :: SegmentProperty -> Maybe ScteProperty
segmentDurationSeconds :: SegmentProperty -> Maybe (Value Integer)
segmentName :: SegmentProperty -> Maybe (Value Text)
tsIncludeDvbSubtitles :: SegmentProperty -> Maybe (Value Bool)
tsUseAudioRenditionGroup :: SegmentProperty -> Maybe (Value Bool)
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
includeIframeOnlyStreams :: Maybe (Value Bool)
scte :: Maybe ScteProperty
segmentDurationSeconds :: Maybe (Value Integer)
segmentName :: Maybe (Value Text)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
..}
    = SegmentProperty {encryption :: Maybe EncryptionProperty
encryption = EncryptionProperty -> Maybe EncryptionProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Encryption" SegmentProperty
EncryptionProperty
newValue, Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ScteProperty
()
haddock_workaround_ :: ()
includeIframeOnlyStreams :: Maybe (Value Bool)
scte :: Maybe ScteProperty
segmentDurationSeconds :: Maybe (Value Integer)
segmentName :: Maybe (Value Text)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
haddock_workaround_ :: ()
includeIframeOnlyStreams :: Maybe (Value Bool)
scte :: Maybe ScteProperty
segmentDurationSeconds :: Maybe (Value Integer)
segmentName :: Maybe (Value Text)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
..}
instance Property "IncludeIframeOnlyStreams" SegmentProperty where
  type PropertyType "IncludeIframeOnlyStreams" SegmentProperty = Value Prelude.Bool
  set :: PropertyType "IncludeIframeOnlyStreams" SegmentProperty
-> SegmentProperty -> SegmentProperty
set PropertyType "IncludeIframeOnlyStreams" SegmentProperty
newValue SegmentProperty {Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ScteProperty
Maybe EncryptionProperty
()
haddock_workaround_ :: SegmentProperty -> ()
encryption :: SegmentProperty -> Maybe EncryptionProperty
includeIframeOnlyStreams :: SegmentProperty -> Maybe (Value Bool)
scte :: SegmentProperty -> Maybe ScteProperty
segmentDurationSeconds :: SegmentProperty -> Maybe (Value Integer)
segmentName :: SegmentProperty -> Maybe (Value Text)
tsIncludeDvbSubtitles :: SegmentProperty -> Maybe (Value Bool)
tsUseAudioRenditionGroup :: SegmentProperty -> Maybe (Value Bool)
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
includeIframeOnlyStreams :: Maybe (Value Bool)
scte :: Maybe ScteProperty
segmentDurationSeconds :: Maybe (Value Integer)
segmentName :: Maybe (Value Text)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
..}
    = SegmentProperty
        {includeIframeOnlyStreams :: Maybe (Value Bool)
includeIframeOnlyStreams = Value Bool -> Maybe (Value Bool)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "IncludeIframeOnlyStreams" SegmentProperty
Value Bool
newValue, Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ScteProperty
Maybe EncryptionProperty
()
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
scte :: Maybe ScteProperty
segmentDurationSeconds :: Maybe (Value Integer)
segmentName :: Maybe (Value Text)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
scte :: Maybe ScteProperty
segmentDurationSeconds :: Maybe (Value Integer)
segmentName :: Maybe (Value Text)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
..}
instance Property "Scte" SegmentProperty where
  type PropertyType "Scte" SegmentProperty = ScteProperty
  set :: PropertyType "Scte" SegmentProperty
-> SegmentProperty -> SegmentProperty
set PropertyType "Scte" SegmentProperty
newValue SegmentProperty {Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ScteProperty
Maybe EncryptionProperty
()
haddock_workaround_ :: SegmentProperty -> ()
encryption :: SegmentProperty -> Maybe EncryptionProperty
includeIframeOnlyStreams :: SegmentProperty -> Maybe (Value Bool)
scte :: SegmentProperty -> Maybe ScteProperty
segmentDurationSeconds :: SegmentProperty -> Maybe (Value Integer)
segmentName :: SegmentProperty -> Maybe (Value Text)
tsIncludeDvbSubtitles :: SegmentProperty -> Maybe (Value Bool)
tsUseAudioRenditionGroup :: SegmentProperty -> Maybe (Value Bool)
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
includeIframeOnlyStreams :: Maybe (Value Bool)
scte :: Maybe ScteProperty
segmentDurationSeconds :: Maybe (Value Integer)
segmentName :: Maybe (Value Text)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
..}
    = SegmentProperty {scte :: Maybe ScteProperty
scte = ScteProperty -> Maybe ScteProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Scte" SegmentProperty
ScteProperty
newValue, Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe EncryptionProperty
()
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
includeIframeOnlyStreams :: Maybe (Value Bool)
segmentDurationSeconds :: Maybe (Value Integer)
segmentName :: Maybe (Value Text)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
includeIframeOnlyStreams :: Maybe (Value Bool)
segmentDurationSeconds :: Maybe (Value Integer)
segmentName :: Maybe (Value Text)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
..}
instance Property "SegmentDurationSeconds" SegmentProperty where
  type PropertyType "SegmentDurationSeconds" SegmentProperty = Value Prelude.Integer
  set :: PropertyType "SegmentDurationSeconds" SegmentProperty
-> SegmentProperty -> SegmentProperty
set PropertyType "SegmentDurationSeconds" SegmentProperty
newValue SegmentProperty {Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ScteProperty
Maybe EncryptionProperty
()
haddock_workaround_ :: SegmentProperty -> ()
encryption :: SegmentProperty -> Maybe EncryptionProperty
includeIframeOnlyStreams :: SegmentProperty -> Maybe (Value Bool)
scte :: SegmentProperty -> Maybe ScteProperty
segmentDurationSeconds :: SegmentProperty -> Maybe (Value Integer)
segmentName :: SegmentProperty -> Maybe (Value Text)
tsIncludeDvbSubtitles :: SegmentProperty -> Maybe (Value Bool)
tsUseAudioRenditionGroup :: SegmentProperty -> Maybe (Value Bool)
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
includeIframeOnlyStreams :: Maybe (Value Bool)
scte :: Maybe ScteProperty
segmentDurationSeconds :: Maybe (Value Integer)
segmentName :: Maybe (Value Text)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
..}
    = SegmentProperty
        {segmentDurationSeconds :: Maybe (Value Integer)
segmentDurationSeconds = Value Integer -> Maybe (Value Integer)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SegmentDurationSeconds" SegmentProperty
Value Integer
newValue, Maybe (Value Bool)
Maybe (Value Text)
Maybe ScteProperty
Maybe EncryptionProperty
()
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
includeIframeOnlyStreams :: Maybe (Value Bool)
scte :: Maybe ScteProperty
segmentName :: Maybe (Value Text)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
includeIframeOnlyStreams :: Maybe (Value Bool)
scte :: Maybe ScteProperty
segmentName :: Maybe (Value Text)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
..}
instance Property "SegmentName" SegmentProperty where
  type PropertyType "SegmentName" SegmentProperty = Value Prelude.Text
  set :: PropertyType "SegmentName" SegmentProperty
-> SegmentProperty -> SegmentProperty
set PropertyType "SegmentName" SegmentProperty
newValue SegmentProperty {Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ScteProperty
Maybe EncryptionProperty
()
haddock_workaround_ :: SegmentProperty -> ()
encryption :: SegmentProperty -> Maybe EncryptionProperty
includeIframeOnlyStreams :: SegmentProperty -> Maybe (Value Bool)
scte :: SegmentProperty -> Maybe ScteProperty
segmentDurationSeconds :: SegmentProperty -> Maybe (Value Integer)
segmentName :: SegmentProperty -> Maybe (Value Text)
tsIncludeDvbSubtitles :: SegmentProperty -> Maybe (Value Bool)
tsUseAudioRenditionGroup :: SegmentProperty -> Maybe (Value Bool)
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
includeIframeOnlyStreams :: Maybe (Value Bool)
scte :: Maybe ScteProperty
segmentDurationSeconds :: Maybe (Value Integer)
segmentName :: Maybe (Value Text)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
..}
    = SegmentProperty {segmentName :: Maybe (Value Text)
segmentName = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SegmentName" SegmentProperty
Value Text
newValue, Maybe (Value Bool)
Maybe (Value Integer)
Maybe ScteProperty
Maybe EncryptionProperty
()
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
includeIframeOnlyStreams :: Maybe (Value Bool)
scte :: Maybe ScteProperty
segmentDurationSeconds :: Maybe (Value Integer)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
includeIframeOnlyStreams :: Maybe (Value Bool)
scte :: Maybe ScteProperty
segmentDurationSeconds :: Maybe (Value Integer)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
..}
instance Property "TsIncludeDvbSubtitles" SegmentProperty where
  type PropertyType "TsIncludeDvbSubtitles" SegmentProperty = Value Prelude.Bool
  set :: PropertyType "TsIncludeDvbSubtitles" SegmentProperty
-> SegmentProperty -> SegmentProperty
set PropertyType "TsIncludeDvbSubtitles" SegmentProperty
newValue SegmentProperty {Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ScteProperty
Maybe EncryptionProperty
()
haddock_workaround_ :: SegmentProperty -> ()
encryption :: SegmentProperty -> Maybe EncryptionProperty
includeIframeOnlyStreams :: SegmentProperty -> Maybe (Value Bool)
scte :: SegmentProperty -> Maybe ScteProperty
segmentDurationSeconds :: SegmentProperty -> Maybe (Value Integer)
segmentName :: SegmentProperty -> Maybe (Value Text)
tsIncludeDvbSubtitles :: SegmentProperty -> Maybe (Value Bool)
tsUseAudioRenditionGroup :: SegmentProperty -> Maybe (Value Bool)
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
includeIframeOnlyStreams :: Maybe (Value Bool)
scte :: Maybe ScteProperty
segmentDurationSeconds :: Maybe (Value Integer)
segmentName :: Maybe (Value Text)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
..}
    = SegmentProperty
        {tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsIncludeDvbSubtitles = Value Bool -> Maybe (Value Bool)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "TsIncludeDvbSubtitles" SegmentProperty
Value Bool
newValue, Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ScteProperty
Maybe EncryptionProperty
()
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
includeIframeOnlyStreams :: Maybe (Value Bool)
scte :: Maybe ScteProperty
segmentDurationSeconds :: Maybe (Value Integer)
segmentName :: Maybe (Value Text)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
includeIframeOnlyStreams :: Maybe (Value Bool)
scte :: Maybe ScteProperty
segmentDurationSeconds :: Maybe (Value Integer)
segmentName :: Maybe (Value Text)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
..}
instance Property "TsUseAudioRenditionGroup" SegmentProperty where
  type PropertyType "TsUseAudioRenditionGroup" SegmentProperty = Value Prelude.Bool
  set :: PropertyType "TsUseAudioRenditionGroup" SegmentProperty
-> SegmentProperty -> SegmentProperty
set PropertyType "TsUseAudioRenditionGroup" SegmentProperty
newValue SegmentProperty {Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ScteProperty
Maybe EncryptionProperty
()
haddock_workaround_ :: SegmentProperty -> ()
encryption :: SegmentProperty -> Maybe EncryptionProperty
includeIframeOnlyStreams :: SegmentProperty -> Maybe (Value Bool)
scte :: SegmentProperty -> Maybe ScteProperty
segmentDurationSeconds :: SegmentProperty -> Maybe (Value Integer)
segmentName :: SegmentProperty -> Maybe (Value Text)
tsIncludeDvbSubtitles :: SegmentProperty -> Maybe (Value Bool)
tsUseAudioRenditionGroup :: SegmentProperty -> Maybe (Value Bool)
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
includeIframeOnlyStreams :: Maybe (Value Bool)
scte :: Maybe ScteProperty
segmentDurationSeconds :: Maybe (Value Integer)
segmentName :: Maybe (Value Text)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
tsUseAudioRenditionGroup :: Maybe (Value Bool)
..}
    = SegmentProperty
        {tsUseAudioRenditionGroup :: Maybe (Value Bool)
tsUseAudioRenditionGroup = Value Bool -> Maybe (Value Bool)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "TsUseAudioRenditionGroup" SegmentProperty
Value Bool
newValue, Maybe (Value Bool)
Maybe (Value Integer)
Maybe (Value Text)
Maybe ScteProperty
Maybe EncryptionProperty
()
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
includeIframeOnlyStreams :: Maybe (Value Bool)
scte :: Maybe ScteProperty
segmentDurationSeconds :: Maybe (Value Integer)
segmentName :: Maybe (Value Text)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
haddock_workaround_ :: ()
encryption :: Maybe EncryptionProperty
includeIframeOnlyStreams :: Maybe (Value Bool)
scte :: Maybe ScteProperty
segmentDurationSeconds :: Maybe (Value Integer)
segmentName :: Maybe (Value Text)
tsIncludeDvbSubtitles :: Maybe (Value Bool)
..}