{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.MediaLive.Types.AudioCodecSettings where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.MediaLive.Types.AacSettings
import Amazonka.MediaLive.Types.Ac3Settings
import Amazonka.MediaLive.Types.Eac3AtmosSettings
import Amazonka.MediaLive.Types.Eac3Settings
import Amazonka.MediaLive.Types.Mp2Settings
import Amazonka.MediaLive.Types.PassThroughSettings
import Amazonka.MediaLive.Types.WavSettings
import qualified Amazonka.Prelude as Prelude
data AudioCodecSettings = AudioCodecSettings'
{ AudioCodecSettings -> Maybe AacSettings
aacSettings :: Prelude.Maybe AacSettings,
AudioCodecSettings -> Maybe Ac3Settings
ac3Settings :: Prelude.Maybe Ac3Settings,
AudioCodecSettings -> Maybe Eac3AtmosSettings
eac3AtmosSettings :: Prelude.Maybe Eac3AtmosSettings,
AudioCodecSettings -> Maybe Eac3Settings
eac3Settings :: Prelude.Maybe Eac3Settings,
AudioCodecSettings -> Maybe Mp2Settings
mp2Settings :: Prelude.Maybe Mp2Settings,
AudioCodecSettings -> Maybe PassThroughSettings
passThroughSettings :: Prelude.Maybe PassThroughSettings,
AudioCodecSettings -> Maybe WavSettings
wavSettings :: Prelude.Maybe WavSettings
}
deriving (AudioCodecSettings -> AudioCodecSettings -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AudioCodecSettings -> AudioCodecSettings -> Bool
$c/= :: AudioCodecSettings -> AudioCodecSettings -> Bool
== :: AudioCodecSettings -> AudioCodecSettings -> Bool
$c== :: AudioCodecSettings -> AudioCodecSettings -> Bool
Prelude.Eq, ReadPrec [AudioCodecSettings]
ReadPrec AudioCodecSettings
Int -> ReadS AudioCodecSettings
ReadS [AudioCodecSettings]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [AudioCodecSettings]
$creadListPrec :: ReadPrec [AudioCodecSettings]
readPrec :: ReadPrec AudioCodecSettings
$creadPrec :: ReadPrec AudioCodecSettings
readList :: ReadS [AudioCodecSettings]
$creadList :: ReadS [AudioCodecSettings]
readsPrec :: Int -> ReadS AudioCodecSettings
$creadsPrec :: Int -> ReadS AudioCodecSettings
Prelude.Read, Int -> AudioCodecSettings -> ShowS
[AudioCodecSettings] -> ShowS
AudioCodecSettings -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [AudioCodecSettings] -> ShowS
$cshowList :: [AudioCodecSettings] -> ShowS
show :: AudioCodecSettings -> String
$cshow :: AudioCodecSettings -> String
showsPrec :: Int -> AudioCodecSettings -> ShowS
$cshowsPrec :: Int -> AudioCodecSettings -> ShowS
Prelude.Show, forall x. Rep AudioCodecSettings x -> AudioCodecSettings
forall x. AudioCodecSettings -> Rep AudioCodecSettings x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep AudioCodecSettings x -> AudioCodecSettings
$cfrom :: forall x. AudioCodecSettings -> Rep AudioCodecSettings x
Prelude.Generic)
newAudioCodecSettings ::
AudioCodecSettings
newAudioCodecSettings :: AudioCodecSettings
newAudioCodecSettings =
AudioCodecSettings'
{ $sel:aacSettings:AudioCodecSettings' :: Maybe AacSettings
aacSettings = forall a. Maybe a
Prelude.Nothing,
$sel:ac3Settings:AudioCodecSettings' :: Maybe Ac3Settings
ac3Settings = forall a. Maybe a
Prelude.Nothing,
$sel:eac3AtmosSettings:AudioCodecSettings' :: Maybe Eac3AtmosSettings
eac3AtmosSettings = forall a. Maybe a
Prelude.Nothing,
$sel:eac3Settings:AudioCodecSettings' :: Maybe Eac3Settings
eac3Settings = forall a. Maybe a
Prelude.Nothing,
$sel:mp2Settings:AudioCodecSettings' :: Maybe Mp2Settings
mp2Settings = forall a. Maybe a
Prelude.Nothing,
$sel:passThroughSettings:AudioCodecSettings' :: Maybe PassThroughSettings
passThroughSettings = forall a. Maybe a
Prelude.Nothing,
$sel:wavSettings:AudioCodecSettings' :: Maybe WavSettings
wavSettings = forall a. Maybe a
Prelude.Nothing
}
audioCodecSettings_aacSettings :: Lens.Lens' AudioCodecSettings (Prelude.Maybe AacSettings)
audioCodecSettings_aacSettings :: Lens' AudioCodecSettings (Maybe AacSettings)
audioCodecSettings_aacSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AudioCodecSettings' {Maybe AacSettings
aacSettings :: Maybe AacSettings
$sel:aacSettings:AudioCodecSettings' :: AudioCodecSettings -> Maybe AacSettings
aacSettings} -> Maybe AacSettings
aacSettings) (\s :: AudioCodecSettings
s@AudioCodecSettings' {} Maybe AacSettings
a -> AudioCodecSettings
s {$sel:aacSettings:AudioCodecSettings' :: Maybe AacSettings
aacSettings = Maybe AacSettings
a} :: AudioCodecSettings)
audioCodecSettings_ac3Settings :: Lens.Lens' AudioCodecSettings (Prelude.Maybe Ac3Settings)
audioCodecSettings_ac3Settings :: Lens' AudioCodecSettings (Maybe Ac3Settings)
audioCodecSettings_ac3Settings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AudioCodecSettings' {Maybe Ac3Settings
ac3Settings :: Maybe Ac3Settings
$sel:ac3Settings:AudioCodecSettings' :: AudioCodecSettings -> Maybe Ac3Settings
ac3Settings} -> Maybe Ac3Settings
ac3Settings) (\s :: AudioCodecSettings
s@AudioCodecSettings' {} Maybe Ac3Settings
a -> AudioCodecSettings
s {$sel:ac3Settings:AudioCodecSettings' :: Maybe Ac3Settings
ac3Settings = Maybe Ac3Settings
a} :: AudioCodecSettings)
audioCodecSettings_eac3AtmosSettings :: Lens.Lens' AudioCodecSettings (Prelude.Maybe Eac3AtmosSettings)
audioCodecSettings_eac3AtmosSettings :: Lens' AudioCodecSettings (Maybe Eac3AtmosSettings)
audioCodecSettings_eac3AtmosSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AudioCodecSettings' {Maybe Eac3AtmosSettings
eac3AtmosSettings :: Maybe Eac3AtmosSettings
$sel:eac3AtmosSettings:AudioCodecSettings' :: AudioCodecSettings -> Maybe Eac3AtmosSettings
eac3AtmosSettings} -> Maybe Eac3AtmosSettings
eac3AtmosSettings) (\s :: AudioCodecSettings
s@AudioCodecSettings' {} Maybe Eac3AtmosSettings
a -> AudioCodecSettings
s {$sel:eac3AtmosSettings:AudioCodecSettings' :: Maybe Eac3AtmosSettings
eac3AtmosSettings = Maybe Eac3AtmosSettings
a} :: AudioCodecSettings)
audioCodecSettings_eac3Settings :: Lens.Lens' AudioCodecSettings (Prelude.Maybe Eac3Settings)
audioCodecSettings_eac3Settings :: Lens' AudioCodecSettings (Maybe Eac3Settings)
audioCodecSettings_eac3Settings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AudioCodecSettings' {Maybe Eac3Settings
eac3Settings :: Maybe Eac3Settings
$sel:eac3Settings:AudioCodecSettings' :: AudioCodecSettings -> Maybe Eac3Settings
eac3Settings} -> Maybe Eac3Settings
eac3Settings) (\s :: AudioCodecSettings
s@AudioCodecSettings' {} Maybe Eac3Settings
a -> AudioCodecSettings
s {$sel:eac3Settings:AudioCodecSettings' :: Maybe Eac3Settings
eac3Settings = Maybe Eac3Settings
a} :: AudioCodecSettings)
audioCodecSettings_mp2Settings :: Lens.Lens' AudioCodecSettings (Prelude.Maybe Mp2Settings)
audioCodecSettings_mp2Settings :: Lens' AudioCodecSettings (Maybe Mp2Settings)
audioCodecSettings_mp2Settings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AudioCodecSettings' {Maybe Mp2Settings
mp2Settings :: Maybe Mp2Settings
$sel:mp2Settings:AudioCodecSettings' :: AudioCodecSettings -> Maybe Mp2Settings
mp2Settings} -> Maybe Mp2Settings
mp2Settings) (\s :: AudioCodecSettings
s@AudioCodecSettings' {} Maybe Mp2Settings
a -> AudioCodecSettings
s {$sel:mp2Settings:AudioCodecSettings' :: Maybe Mp2Settings
mp2Settings = Maybe Mp2Settings
a} :: AudioCodecSettings)
audioCodecSettings_passThroughSettings :: Lens.Lens' AudioCodecSettings (Prelude.Maybe PassThroughSettings)
audioCodecSettings_passThroughSettings :: Lens' AudioCodecSettings (Maybe PassThroughSettings)
audioCodecSettings_passThroughSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AudioCodecSettings' {Maybe PassThroughSettings
passThroughSettings :: Maybe PassThroughSettings
$sel:passThroughSettings:AudioCodecSettings' :: AudioCodecSettings -> Maybe PassThroughSettings
passThroughSettings} -> Maybe PassThroughSettings
passThroughSettings) (\s :: AudioCodecSettings
s@AudioCodecSettings' {} Maybe PassThroughSettings
a -> AudioCodecSettings
s {$sel:passThroughSettings:AudioCodecSettings' :: Maybe PassThroughSettings
passThroughSettings = Maybe PassThroughSettings
a} :: AudioCodecSettings)
audioCodecSettings_wavSettings :: Lens.Lens' AudioCodecSettings (Prelude.Maybe WavSettings)
audioCodecSettings_wavSettings :: Lens' AudioCodecSettings (Maybe WavSettings)
audioCodecSettings_wavSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\AudioCodecSettings' {Maybe WavSettings
wavSettings :: Maybe WavSettings
$sel:wavSettings:AudioCodecSettings' :: AudioCodecSettings -> Maybe WavSettings
wavSettings} -> Maybe WavSettings
wavSettings) (\s :: AudioCodecSettings
s@AudioCodecSettings' {} Maybe WavSettings
a -> AudioCodecSettings
s {$sel:wavSettings:AudioCodecSettings' :: Maybe WavSettings
wavSettings = Maybe WavSettings
a} :: AudioCodecSettings)
instance Data.FromJSON AudioCodecSettings where
parseJSON :: Value -> Parser AudioCodecSettings
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"AudioCodecSettings"
( \Object
x ->
Maybe AacSettings
-> Maybe Ac3Settings
-> Maybe Eac3AtmosSettings
-> Maybe Eac3Settings
-> Maybe Mp2Settings
-> Maybe PassThroughSettings
-> Maybe WavSettings
-> AudioCodecSettings
AudioCodecSettings'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"aacSettings")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"ac3Settings")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"eac3AtmosSettings")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"eac3Settings")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"mp2Settings")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"passThroughSettings")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"wavSettings")
)
instance Prelude.Hashable AudioCodecSettings where
hashWithSalt :: Int -> AudioCodecSettings -> Int
hashWithSalt Int
_salt AudioCodecSettings' {Maybe AacSettings
Maybe Ac3Settings
Maybe Eac3AtmosSettings
Maybe Eac3Settings
Maybe Mp2Settings
Maybe PassThroughSettings
Maybe WavSettings
wavSettings :: Maybe WavSettings
passThroughSettings :: Maybe PassThroughSettings
mp2Settings :: Maybe Mp2Settings
eac3Settings :: Maybe Eac3Settings
eac3AtmosSettings :: Maybe Eac3AtmosSettings
ac3Settings :: Maybe Ac3Settings
aacSettings :: Maybe AacSettings
$sel:wavSettings:AudioCodecSettings' :: AudioCodecSettings -> Maybe WavSettings
$sel:passThroughSettings:AudioCodecSettings' :: AudioCodecSettings -> Maybe PassThroughSettings
$sel:mp2Settings:AudioCodecSettings' :: AudioCodecSettings -> Maybe Mp2Settings
$sel:eac3Settings:AudioCodecSettings' :: AudioCodecSettings -> Maybe Eac3Settings
$sel:eac3AtmosSettings:AudioCodecSettings' :: AudioCodecSettings -> Maybe Eac3AtmosSettings
$sel:ac3Settings:AudioCodecSettings' :: AudioCodecSettings -> Maybe Ac3Settings
$sel:aacSettings:AudioCodecSettings' :: AudioCodecSettings -> Maybe AacSettings
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe AacSettings
aacSettings
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Ac3Settings
ac3Settings
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Eac3AtmosSettings
eac3AtmosSettings
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Eac3Settings
eac3Settings
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Mp2Settings
mp2Settings
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe PassThroughSettings
passThroughSettings
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe WavSettings
wavSettings
instance Prelude.NFData AudioCodecSettings where
rnf :: AudioCodecSettings -> ()
rnf AudioCodecSettings' {Maybe AacSettings
Maybe Ac3Settings
Maybe Eac3AtmosSettings
Maybe Eac3Settings
Maybe Mp2Settings
Maybe PassThroughSettings
Maybe WavSettings
wavSettings :: Maybe WavSettings
passThroughSettings :: Maybe PassThroughSettings
mp2Settings :: Maybe Mp2Settings
eac3Settings :: Maybe Eac3Settings
eac3AtmosSettings :: Maybe Eac3AtmosSettings
ac3Settings :: Maybe Ac3Settings
aacSettings :: Maybe AacSettings
$sel:wavSettings:AudioCodecSettings' :: AudioCodecSettings -> Maybe WavSettings
$sel:passThroughSettings:AudioCodecSettings' :: AudioCodecSettings -> Maybe PassThroughSettings
$sel:mp2Settings:AudioCodecSettings' :: AudioCodecSettings -> Maybe Mp2Settings
$sel:eac3Settings:AudioCodecSettings' :: AudioCodecSettings -> Maybe Eac3Settings
$sel:eac3AtmosSettings:AudioCodecSettings' :: AudioCodecSettings -> Maybe Eac3AtmosSettings
$sel:ac3Settings:AudioCodecSettings' :: AudioCodecSettings -> Maybe Ac3Settings
$sel:aacSettings:AudioCodecSettings' :: AudioCodecSettings -> Maybe AacSettings
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe AacSettings
aacSettings
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Ac3Settings
ac3Settings
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Eac3AtmosSettings
eac3AtmosSettings
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Eac3Settings
eac3Settings
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Mp2Settings
mp2Settings
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe PassThroughSettings
passThroughSettings
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe WavSettings
wavSettings
instance Data.ToJSON AudioCodecSettings where
toJSON :: AudioCodecSettings -> Value
toJSON AudioCodecSettings' {Maybe AacSettings
Maybe Ac3Settings
Maybe Eac3AtmosSettings
Maybe Eac3Settings
Maybe Mp2Settings
Maybe PassThroughSettings
Maybe WavSettings
wavSettings :: Maybe WavSettings
passThroughSettings :: Maybe PassThroughSettings
mp2Settings :: Maybe Mp2Settings
eac3Settings :: Maybe Eac3Settings
eac3AtmosSettings :: Maybe Eac3AtmosSettings
ac3Settings :: Maybe Ac3Settings
aacSettings :: Maybe AacSettings
$sel:wavSettings:AudioCodecSettings' :: AudioCodecSettings -> Maybe WavSettings
$sel:passThroughSettings:AudioCodecSettings' :: AudioCodecSettings -> Maybe PassThroughSettings
$sel:mp2Settings:AudioCodecSettings' :: AudioCodecSettings -> Maybe Mp2Settings
$sel:eac3Settings:AudioCodecSettings' :: AudioCodecSettings -> Maybe Eac3Settings
$sel:eac3AtmosSettings:AudioCodecSettings' :: AudioCodecSettings -> Maybe Eac3AtmosSettings
$sel:ac3Settings:AudioCodecSettings' :: AudioCodecSettings -> Maybe Ac3Settings
$sel:aacSettings:AudioCodecSettings' :: AudioCodecSettings -> Maybe AacSettings
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"aacSettings" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe AacSettings
aacSettings,
(Key
"ac3Settings" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Ac3Settings
ac3Settings,
(Key
"eac3AtmosSettings" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Eac3AtmosSettings
eac3AtmosSettings,
(Key
"eac3Settings" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Eac3Settings
eac3Settings,
(Key
"mp2Settings" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Mp2Settings
mp2Settings,
(Key
"passThroughSettings" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PassThroughSettings
passThroughSettings,
(Key
"wavSettings" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe WavSettings
wavSettings
]
)