module Stratosphere.MediaLive.Channel.AudioOnlyHlsSettingsProperty (
        module Exports, AudioOnlyHlsSettingsProperty(..),
        mkAudioOnlyHlsSettingsProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.MediaLive.Channel.InputLocationProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data AudioOnlyHlsSettingsProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-audioonlyhlssettings.html>
    AudioOnlyHlsSettingsProperty {AudioOnlyHlsSettingsProperty -> ()
haddock_workaround_ :: (),
                                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-audioonlyhlssettings.html#cfn-medialive-channel-audioonlyhlssettings-audiogroupid>
                                  AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
audioGroupId :: (Prelude.Maybe (Value Prelude.Text)),
                                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-audioonlyhlssettings.html#cfn-medialive-channel-audioonlyhlssettings-audioonlyimage>
                                  AudioOnlyHlsSettingsProperty -> Maybe InputLocationProperty
audioOnlyImage :: (Prelude.Maybe InputLocationProperty),
                                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-audioonlyhlssettings.html#cfn-medialive-channel-audioonlyhlssettings-audiotracktype>
                                  AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
audioTrackType :: (Prelude.Maybe (Value Prelude.Text)),
                                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-medialive-channel-audioonlyhlssettings.html#cfn-medialive-channel-audioonlyhlssettings-segmenttype>
                                  AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
segmentType :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (AudioOnlyHlsSettingsProperty
-> AudioOnlyHlsSettingsProperty -> Bool
(AudioOnlyHlsSettingsProperty
 -> AudioOnlyHlsSettingsProperty -> Bool)
-> (AudioOnlyHlsSettingsProperty
    -> AudioOnlyHlsSettingsProperty -> Bool)
-> Eq AudioOnlyHlsSettingsProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AudioOnlyHlsSettingsProperty
-> AudioOnlyHlsSettingsProperty -> Bool
== :: AudioOnlyHlsSettingsProperty
-> AudioOnlyHlsSettingsProperty -> Bool
$c/= :: AudioOnlyHlsSettingsProperty
-> AudioOnlyHlsSettingsProperty -> Bool
/= :: AudioOnlyHlsSettingsProperty
-> AudioOnlyHlsSettingsProperty -> Bool
Prelude.Eq, Int -> AudioOnlyHlsSettingsProperty -> ShowS
[AudioOnlyHlsSettingsProperty] -> ShowS
AudioOnlyHlsSettingsProperty -> String
(Int -> AudioOnlyHlsSettingsProperty -> ShowS)
-> (AudioOnlyHlsSettingsProperty -> String)
-> ([AudioOnlyHlsSettingsProperty] -> ShowS)
-> Show AudioOnlyHlsSettingsProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AudioOnlyHlsSettingsProperty -> ShowS
showsPrec :: Int -> AudioOnlyHlsSettingsProperty -> ShowS
$cshow :: AudioOnlyHlsSettingsProperty -> String
show :: AudioOnlyHlsSettingsProperty -> String
$cshowList :: [AudioOnlyHlsSettingsProperty] -> ShowS
showList :: [AudioOnlyHlsSettingsProperty] -> ShowS
Prelude.Show)
mkAudioOnlyHlsSettingsProperty :: AudioOnlyHlsSettingsProperty
mkAudioOnlyHlsSettingsProperty :: AudioOnlyHlsSettingsProperty
mkAudioOnlyHlsSettingsProperty
  = AudioOnlyHlsSettingsProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), audioGroupId :: Maybe (Value Text)
audioGroupId = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       audioOnlyImage :: Maybe InputLocationProperty
audioOnlyImage = Maybe InputLocationProperty
forall a. Maybe a
Prelude.Nothing, audioTrackType :: Maybe (Value Text)
audioTrackType = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       segmentType :: Maybe (Value Text)
segmentType = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties AudioOnlyHlsSettingsProperty where
  toResourceProperties :: AudioOnlyHlsSettingsProperty -> ResourceProperties
toResourceProperties AudioOnlyHlsSettingsProperty {Maybe (Value Text)
Maybe InputLocationProperty
()
haddock_workaround_ :: AudioOnlyHlsSettingsProperty -> ()
audioGroupId :: AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
audioOnlyImage :: AudioOnlyHlsSettingsProperty -> Maybe InputLocationProperty
audioTrackType :: AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
segmentType :: AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
audioGroupId :: Maybe (Value Text)
audioOnlyImage :: Maybe InputLocationProperty
audioTrackType :: Maybe (Value Text)
segmentType :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::MediaLive::Channel.AudioOnlyHlsSettings",
         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 -> 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
"AudioGroupId" (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)
audioGroupId,
                            Key -> InputLocationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AudioOnlyImage" (InputLocationProperty -> (Key, Value))
-> Maybe InputLocationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe InputLocationProperty
audioOnlyImage,
                            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
"AudioTrackType" (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)
audioTrackType,
                            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
"SegmentType" (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)
segmentType])}
instance JSON.ToJSON AudioOnlyHlsSettingsProperty where
  toJSON :: AudioOnlyHlsSettingsProperty -> Value
toJSON AudioOnlyHlsSettingsProperty {Maybe (Value Text)
Maybe InputLocationProperty
()
haddock_workaround_ :: AudioOnlyHlsSettingsProperty -> ()
audioGroupId :: AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
audioOnlyImage :: AudioOnlyHlsSettingsProperty -> Maybe InputLocationProperty
audioTrackType :: AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
segmentType :: AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
audioGroupId :: Maybe (Value Text)
audioOnlyImage :: Maybe InputLocationProperty
audioTrackType :: Maybe (Value Text)
segmentType :: Maybe (Value Text)
..}
    = [(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 -> 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
"AudioGroupId" (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)
audioGroupId,
               Key -> InputLocationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AudioOnlyImage" (InputLocationProperty -> (Key, Value))
-> Maybe InputLocationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe InputLocationProperty
audioOnlyImage,
               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
"AudioTrackType" (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)
audioTrackType,
               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
"SegmentType" (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)
segmentType]))
instance Property "AudioGroupId" AudioOnlyHlsSettingsProperty where
  type PropertyType "AudioGroupId" AudioOnlyHlsSettingsProperty = Value Prelude.Text
  set :: PropertyType "AudioGroupId" AudioOnlyHlsSettingsProperty
-> AudioOnlyHlsSettingsProperty -> AudioOnlyHlsSettingsProperty
set PropertyType "AudioGroupId" AudioOnlyHlsSettingsProperty
newValue AudioOnlyHlsSettingsProperty {Maybe (Value Text)
Maybe InputLocationProperty
()
haddock_workaround_ :: AudioOnlyHlsSettingsProperty -> ()
audioGroupId :: AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
audioOnlyImage :: AudioOnlyHlsSettingsProperty -> Maybe InputLocationProperty
audioTrackType :: AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
segmentType :: AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
audioGroupId :: Maybe (Value Text)
audioOnlyImage :: Maybe InputLocationProperty
audioTrackType :: Maybe (Value Text)
segmentType :: Maybe (Value Text)
..}
    = AudioOnlyHlsSettingsProperty
        {audioGroupId :: Maybe (Value Text)
audioGroupId = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AudioGroupId" AudioOnlyHlsSettingsProperty
Value Text
newValue, Maybe (Value Text)
Maybe InputLocationProperty
()
haddock_workaround_ :: ()
audioOnlyImage :: Maybe InputLocationProperty
audioTrackType :: Maybe (Value Text)
segmentType :: Maybe (Value Text)
haddock_workaround_ :: ()
audioOnlyImage :: Maybe InputLocationProperty
audioTrackType :: Maybe (Value Text)
segmentType :: Maybe (Value Text)
..}
instance Property "AudioOnlyImage" AudioOnlyHlsSettingsProperty where
  type PropertyType "AudioOnlyImage" AudioOnlyHlsSettingsProperty = InputLocationProperty
  set :: PropertyType "AudioOnlyImage" AudioOnlyHlsSettingsProperty
-> AudioOnlyHlsSettingsProperty -> AudioOnlyHlsSettingsProperty
set PropertyType "AudioOnlyImage" AudioOnlyHlsSettingsProperty
newValue AudioOnlyHlsSettingsProperty {Maybe (Value Text)
Maybe InputLocationProperty
()
haddock_workaround_ :: AudioOnlyHlsSettingsProperty -> ()
audioGroupId :: AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
audioOnlyImage :: AudioOnlyHlsSettingsProperty -> Maybe InputLocationProperty
audioTrackType :: AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
segmentType :: AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
audioGroupId :: Maybe (Value Text)
audioOnlyImage :: Maybe InputLocationProperty
audioTrackType :: Maybe (Value Text)
segmentType :: Maybe (Value Text)
..}
    = AudioOnlyHlsSettingsProperty
        {audioOnlyImage :: Maybe InputLocationProperty
audioOnlyImage = InputLocationProperty -> Maybe InputLocationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AudioOnlyImage" AudioOnlyHlsSettingsProperty
InputLocationProperty
newValue, Maybe (Value Text)
()
haddock_workaround_ :: ()
audioGroupId :: Maybe (Value Text)
audioTrackType :: Maybe (Value Text)
segmentType :: Maybe (Value Text)
haddock_workaround_ :: ()
audioGroupId :: Maybe (Value Text)
audioTrackType :: Maybe (Value Text)
segmentType :: Maybe (Value Text)
..}
instance Property "AudioTrackType" AudioOnlyHlsSettingsProperty where
  type PropertyType "AudioTrackType" AudioOnlyHlsSettingsProperty = Value Prelude.Text
  set :: PropertyType "AudioTrackType" AudioOnlyHlsSettingsProperty
-> AudioOnlyHlsSettingsProperty -> AudioOnlyHlsSettingsProperty
set PropertyType "AudioTrackType" AudioOnlyHlsSettingsProperty
newValue AudioOnlyHlsSettingsProperty {Maybe (Value Text)
Maybe InputLocationProperty
()
haddock_workaround_ :: AudioOnlyHlsSettingsProperty -> ()
audioGroupId :: AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
audioOnlyImage :: AudioOnlyHlsSettingsProperty -> Maybe InputLocationProperty
audioTrackType :: AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
segmentType :: AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
audioGroupId :: Maybe (Value Text)
audioOnlyImage :: Maybe InputLocationProperty
audioTrackType :: Maybe (Value Text)
segmentType :: Maybe (Value Text)
..}
    = AudioOnlyHlsSettingsProperty
        {audioTrackType :: Maybe (Value Text)
audioTrackType = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AudioTrackType" AudioOnlyHlsSettingsProperty
Value Text
newValue, Maybe (Value Text)
Maybe InputLocationProperty
()
haddock_workaround_ :: ()
audioGroupId :: Maybe (Value Text)
audioOnlyImage :: Maybe InputLocationProperty
segmentType :: Maybe (Value Text)
haddock_workaround_ :: ()
audioGroupId :: Maybe (Value Text)
audioOnlyImage :: Maybe InputLocationProperty
segmentType :: Maybe (Value Text)
..}
instance Property "SegmentType" AudioOnlyHlsSettingsProperty where
  type PropertyType "SegmentType" AudioOnlyHlsSettingsProperty = Value Prelude.Text
  set :: PropertyType "SegmentType" AudioOnlyHlsSettingsProperty
-> AudioOnlyHlsSettingsProperty -> AudioOnlyHlsSettingsProperty
set PropertyType "SegmentType" AudioOnlyHlsSettingsProperty
newValue AudioOnlyHlsSettingsProperty {Maybe (Value Text)
Maybe InputLocationProperty
()
haddock_workaround_ :: AudioOnlyHlsSettingsProperty -> ()
audioGroupId :: AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
audioOnlyImage :: AudioOnlyHlsSettingsProperty -> Maybe InputLocationProperty
audioTrackType :: AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
segmentType :: AudioOnlyHlsSettingsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
audioGroupId :: Maybe (Value Text)
audioOnlyImage :: Maybe InputLocationProperty
audioTrackType :: Maybe (Value Text)
segmentType :: Maybe (Value Text)
..}
    = AudioOnlyHlsSettingsProperty
        {segmentType :: Maybe (Value Text)
segmentType = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SegmentType" AudioOnlyHlsSettingsProperty
Value Text
newValue, Maybe (Value Text)
Maybe InputLocationProperty
()
haddock_workaround_ :: ()
audioGroupId :: Maybe (Value Text)
audioOnlyImage :: Maybe InputLocationProperty
audioTrackType :: Maybe (Value Text)
haddock_workaround_ :: ()
audioGroupId :: Maybe (Value Text)
audioOnlyImage :: Maybe InputLocationProperty
audioTrackType :: Maybe (Value Text)
..}