{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.MediaLive.Types.OutputSettings
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
module Amazonka.MediaLive.Types.OutputSettings 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.ArchiveOutputSettings
import Amazonka.MediaLive.Types.FrameCaptureOutputSettings
import Amazonka.MediaLive.Types.HlsOutputSettings
import Amazonka.MediaLive.Types.MediaPackageOutputSettings
import Amazonka.MediaLive.Types.MsSmoothOutputSettings
import Amazonka.MediaLive.Types.MultiplexOutputSettings
import Amazonka.MediaLive.Types.RtmpOutputSettings
import Amazonka.MediaLive.Types.UdpOutputSettings
import qualified Amazonka.Prelude as Prelude

-- | Output Settings
--
-- /See:/ 'newOutputSettings' smart constructor.
data OutputSettings = OutputSettings'
  { OutputSettings -> Maybe ArchiveOutputSettings
archiveOutputSettings :: Prelude.Maybe ArchiveOutputSettings,
    OutputSettings -> Maybe FrameCaptureOutputSettings
frameCaptureOutputSettings :: Prelude.Maybe FrameCaptureOutputSettings,
    OutputSettings -> Maybe HlsOutputSettings
hlsOutputSettings :: Prelude.Maybe HlsOutputSettings,
    OutputSettings -> Maybe MediaPackageOutputSettings
mediaPackageOutputSettings :: Prelude.Maybe MediaPackageOutputSettings,
    OutputSettings -> Maybe MsSmoothOutputSettings
msSmoothOutputSettings :: Prelude.Maybe MsSmoothOutputSettings,
    OutputSettings -> Maybe MultiplexOutputSettings
multiplexOutputSettings :: Prelude.Maybe MultiplexOutputSettings,
    OutputSettings -> Maybe RtmpOutputSettings
rtmpOutputSettings :: Prelude.Maybe RtmpOutputSettings,
    OutputSettings -> Maybe UdpOutputSettings
udpOutputSettings :: Prelude.Maybe UdpOutputSettings
  }
  deriving (OutputSettings -> OutputSettings -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OutputSettings -> OutputSettings -> Bool
$c/= :: OutputSettings -> OutputSettings -> Bool
== :: OutputSettings -> OutputSettings -> Bool
$c== :: OutputSettings -> OutputSettings -> Bool
Prelude.Eq, ReadPrec [OutputSettings]
ReadPrec OutputSettings
Int -> ReadS OutputSettings
ReadS [OutputSettings]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [OutputSettings]
$creadListPrec :: ReadPrec [OutputSettings]
readPrec :: ReadPrec OutputSettings
$creadPrec :: ReadPrec OutputSettings
readList :: ReadS [OutputSettings]
$creadList :: ReadS [OutputSettings]
readsPrec :: Int -> ReadS OutputSettings
$creadsPrec :: Int -> ReadS OutputSettings
Prelude.Read, Int -> OutputSettings -> ShowS
[OutputSettings] -> ShowS
OutputSettings -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [OutputSettings] -> ShowS
$cshowList :: [OutputSettings] -> ShowS
show :: OutputSettings -> String
$cshow :: OutputSettings -> String
showsPrec :: Int -> OutputSettings -> ShowS
$cshowsPrec :: Int -> OutputSettings -> ShowS
Prelude.Show, forall x. Rep OutputSettings x -> OutputSettings
forall x. OutputSettings -> Rep OutputSettings x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep OutputSettings x -> OutputSettings
$cfrom :: forall x. OutputSettings -> Rep OutputSettings x
Prelude.Generic)

-- |
-- Create a value of 'OutputSettings' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'archiveOutputSettings', 'outputSettings_archiveOutputSettings' - Undocumented member.
--
-- 'frameCaptureOutputSettings', 'outputSettings_frameCaptureOutputSettings' - Undocumented member.
--
-- 'hlsOutputSettings', 'outputSettings_hlsOutputSettings' - Undocumented member.
--
-- 'mediaPackageOutputSettings', 'outputSettings_mediaPackageOutputSettings' - Undocumented member.
--
-- 'msSmoothOutputSettings', 'outputSettings_msSmoothOutputSettings' - Undocumented member.
--
-- 'multiplexOutputSettings', 'outputSettings_multiplexOutputSettings' - Undocumented member.
--
-- 'rtmpOutputSettings', 'outputSettings_rtmpOutputSettings' - Undocumented member.
--
-- 'udpOutputSettings', 'outputSettings_udpOutputSettings' - Undocumented member.
newOutputSettings ::
  OutputSettings
newOutputSettings :: OutputSettings
newOutputSettings =
  OutputSettings'
    { $sel:archiveOutputSettings:OutputSettings' :: Maybe ArchiveOutputSettings
archiveOutputSettings =
        forall a. Maybe a
Prelude.Nothing,
      $sel:frameCaptureOutputSettings:OutputSettings' :: Maybe FrameCaptureOutputSettings
frameCaptureOutputSettings = forall a. Maybe a
Prelude.Nothing,
      $sel:hlsOutputSettings:OutputSettings' :: Maybe HlsOutputSettings
hlsOutputSettings = forall a. Maybe a
Prelude.Nothing,
      $sel:mediaPackageOutputSettings:OutputSettings' :: Maybe MediaPackageOutputSettings
mediaPackageOutputSettings = forall a. Maybe a
Prelude.Nothing,
      $sel:msSmoothOutputSettings:OutputSettings' :: Maybe MsSmoothOutputSettings
msSmoothOutputSettings = forall a. Maybe a
Prelude.Nothing,
      $sel:multiplexOutputSettings:OutputSettings' :: Maybe MultiplexOutputSettings
multiplexOutputSettings = forall a. Maybe a
Prelude.Nothing,
      $sel:rtmpOutputSettings:OutputSettings' :: Maybe RtmpOutputSettings
rtmpOutputSettings = forall a. Maybe a
Prelude.Nothing,
      $sel:udpOutputSettings:OutputSettings' :: Maybe UdpOutputSettings
udpOutputSettings = forall a. Maybe a
Prelude.Nothing
    }

-- | Undocumented member.
outputSettings_archiveOutputSettings :: Lens.Lens' OutputSettings (Prelude.Maybe ArchiveOutputSettings)
outputSettings_archiveOutputSettings :: Lens' OutputSettings (Maybe ArchiveOutputSettings)
outputSettings_archiveOutputSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\OutputSettings' {Maybe ArchiveOutputSettings
archiveOutputSettings :: Maybe ArchiveOutputSettings
$sel:archiveOutputSettings:OutputSettings' :: OutputSettings -> Maybe ArchiveOutputSettings
archiveOutputSettings} -> Maybe ArchiveOutputSettings
archiveOutputSettings) (\s :: OutputSettings
s@OutputSettings' {} Maybe ArchiveOutputSettings
a -> OutputSettings
s {$sel:archiveOutputSettings:OutputSettings' :: Maybe ArchiveOutputSettings
archiveOutputSettings = Maybe ArchiveOutputSettings
a} :: OutputSettings)

-- | Undocumented member.
outputSettings_frameCaptureOutputSettings :: Lens.Lens' OutputSettings (Prelude.Maybe FrameCaptureOutputSettings)
outputSettings_frameCaptureOutputSettings :: Lens' OutputSettings (Maybe FrameCaptureOutputSettings)
outputSettings_frameCaptureOutputSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\OutputSettings' {Maybe FrameCaptureOutputSettings
frameCaptureOutputSettings :: Maybe FrameCaptureOutputSettings
$sel:frameCaptureOutputSettings:OutputSettings' :: OutputSettings -> Maybe FrameCaptureOutputSettings
frameCaptureOutputSettings} -> Maybe FrameCaptureOutputSettings
frameCaptureOutputSettings) (\s :: OutputSettings
s@OutputSettings' {} Maybe FrameCaptureOutputSettings
a -> OutputSettings
s {$sel:frameCaptureOutputSettings:OutputSettings' :: Maybe FrameCaptureOutputSettings
frameCaptureOutputSettings = Maybe FrameCaptureOutputSettings
a} :: OutputSettings)

-- | Undocumented member.
outputSettings_hlsOutputSettings :: Lens.Lens' OutputSettings (Prelude.Maybe HlsOutputSettings)
outputSettings_hlsOutputSettings :: Lens' OutputSettings (Maybe HlsOutputSettings)
outputSettings_hlsOutputSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\OutputSettings' {Maybe HlsOutputSettings
hlsOutputSettings :: Maybe HlsOutputSettings
$sel:hlsOutputSettings:OutputSettings' :: OutputSettings -> Maybe HlsOutputSettings
hlsOutputSettings} -> Maybe HlsOutputSettings
hlsOutputSettings) (\s :: OutputSettings
s@OutputSettings' {} Maybe HlsOutputSettings
a -> OutputSettings
s {$sel:hlsOutputSettings:OutputSettings' :: Maybe HlsOutputSettings
hlsOutputSettings = Maybe HlsOutputSettings
a} :: OutputSettings)

-- | Undocumented member.
outputSettings_mediaPackageOutputSettings :: Lens.Lens' OutputSettings (Prelude.Maybe MediaPackageOutputSettings)
outputSettings_mediaPackageOutputSettings :: Lens' OutputSettings (Maybe MediaPackageOutputSettings)
outputSettings_mediaPackageOutputSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\OutputSettings' {Maybe MediaPackageOutputSettings
mediaPackageOutputSettings :: Maybe MediaPackageOutputSettings
$sel:mediaPackageOutputSettings:OutputSettings' :: OutputSettings -> Maybe MediaPackageOutputSettings
mediaPackageOutputSettings} -> Maybe MediaPackageOutputSettings
mediaPackageOutputSettings) (\s :: OutputSettings
s@OutputSettings' {} Maybe MediaPackageOutputSettings
a -> OutputSettings
s {$sel:mediaPackageOutputSettings:OutputSettings' :: Maybe MediaPackageOutputSettings
mediaPackageOutputSettings = Maybe MediaPackageOutputSettings
a} :: OutputSettings)

-- | Undocumented member.
outputSettings_msSmoothOutputSettings :: Lens.Lens' OutputSettings (Prelude.Maybe MsSmoothOutputSettings)
outputSettings_msSmoothOutputSettings :: Lens' OutputSettings (Maybe MsSmoothOutputSettings)
outputSettings_msSmoothOutputSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\OutputSettings' {Maybe MsSmoothOutputSettings
msSmoothOutputSettings :: Maybe MsSmoothOutputSettings
$sel:msSmoothOutputSettings:OutputSettings' :: OutputSettings -> Maybe MsSmoothOutputSettings
msSmoothOutputSettings} -> Maybe MsSmoothOutputSettings
msSmoothOutputSettings) (\s :: OutputSettings
s@OutputSettings' {} Maybe MsSmoothOutputSettings
a -> OutputSettings
s {$sel:msSmoothOutputSettings:OutputSettings' :: Maybe MsSmoothOutputSettings
msSmoothOutputSettings = Maybe MsSmoothOutputSettings
a} :: OutputSettings)

-- | Undocumented member.
outputSettings_multiplexOutputSettings :: Lens.Lens' OutputSettings (Prelude.Maybe MultiplexOutputSettings)
outputSettings_multiplexOutputSettings :: Lens' OutputSettings (Maybe MultiplexOutputSettings)
outputSettings_multiplexOutputSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\OutputSettings' {Maybe MultiplexOutputSettings
multiplexOutputSettings :: Maybe MultiplexOutputSettings
$sel:multiplexOutputSettings:OutputSettings' :: OutputSettings -> Maybe MultiplexOutputSettings
multiplexOutputSettings} -> Maybe MultiplexOutputSettings
multiplexOutputSettings) (\s :: OutputSettings
s@OutputSettings' {} Maybe MultiplexOutputSettings
a -> OutputSettings
s {$sel:multiplexOutputSettings:OutputSettings' :: Maybe MultiplexOutputSettings
multiplexOutputSettings = Maybe MultiplexOutputSettings
a} :: OutputSettings)

-- | Undocumented member.
outputSettings_rtmpOutputSettings :: Lens.Lens' OutputSettings (Prelude.Maybe RtmpOutputSettings)
outputSettings_rtmpOutputSettings :: Lens' OutputSettings (Maybe RtmpOutputSettings)
outputSettings_rtmpOutputSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\OutputSettings' {Maybe RtmpOutputSettings
rtmpOutputSettings :: Maybe RtmpOutputSettings
$sel:rtmpOutputSettings:OutputSettings' :: OutputSettings -> Maybe RtmpOutputSettings
rtmpOutputSettings} -> Maybe RtmpOutputSettings
rtmpOutputSettings) (\s :: OutputSettings
s@OutputSettings' {} Maybe RtmpOutputSettings
a -> OutputSettings
s {$sel:rtmpOutputSettings:OutputSettings' :: Maybe RtmpOutputSettings
rtmpOutputSettings = Maybe RtmpOutputSettings
a} :: OutputSettings)

-- | Undocumented member.
outputSettings_udpOutputSettings :: Lens.Lens' OutputSettings (Prelude.Maybe UdpOutputSettings)
outputSettings_udpOutputSettings :: Lens' OutputSettings (Maybe UdpOutputSettings)
outputSettings_udpOutputSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\OutputSettings' {Maybe UdpOutputSettings
udpOutputSettings :: Maybe UdpOutputSettings
$sel:udpOutputSettings:OutputSettings' :: OutputSettings -> Maybe UdpOutputSettings
udpOutputSettings} -> Maybe UdpOutputSettings
udpOutputSettings) (\s :: OutputSettings
s@OutputSettings' {} Maybe UdpOutputSettings
a -> OutputSettings
s {$sel:udpOutputSettings:OutputSettings' :: Maybe UdpOutputSettings
udpOutputSettings = Maybe UdpOutputSettings
a} :: OutputSettings)

instance Data.FromJSON OutputSettings where
  parseJSON :: Value -> Parser OutputSettings
parseJSON =
    forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
      String
"OutputSettings"
      ( \Object
x ->
          Maybe ArchiveOutputSettings
-> Maybe FrameCaptureOutputSettings
-> Maybe HlsOutputSettings
-> Maybe MediaPackageOutputSettings
-> Maybe MsSmoothOutputSettings
-> Maybe MultiplexOutputSettings
-> Maybe RtmpOutputSettings
-> Maybe UdpOutputSettings
-> OutputSettings
OutputSettings'
            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
"archiveOutputSettings")
            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
"frameCaptureOutputSettings")
            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
"hlsOutputSettings")
            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
"mediaPackageOutputSettings")
            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
"msSmoothOutputSettings")
            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
"multiplexOutputSettings")
            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
"rtmpOutputSettings")
            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
"udpOutputSettings")
      )

instance Prelude.Hashable OutputSettings where
  hashWithSalt :: Int -> OutputSettings -> Int
hashWithSalt Int
_salt OutputSettings' {Maybe FrameCaptureOutputSettings
Maybe MediaPackageOutputSettings
Maybe MsSmoothOutputSettings
Maybe MultiplexOutputSettings
Maybe ArchiveOutputSettings
Maybe RtmpOutputSettings
Maybe HlsOutputSettings
Maybe UdpOutputSettings
udpOutputSettings :: Maybe UdpOutputSettings
rtmpOutputSettings :: Maybe RtmpOutputSettings
multiplexOutputSettings :: Maybe MultiplexOutputSettings
msSmoothOutputSettings :: Maybe MsSmoothOutputSettings
mediaPackageOutputSettings :: Maybe MediaPackageOutputSettings
hlsOutputSettings :: Maybe HlsOutputSettings
frameCaptureOutputSettings :: Maybe FrameCaptureOutputSettings
archiveOutputSettings :: Maybe ArchiveOutputSettings
$sel:udpOutputSettings:OutputSettings' :: OutputSettings -> Maybe UdpOutputSettings
$sel:rtmpOutputSettings:OutputSettings' :: OutputSettings -> Maybe RtmpOutputSettings
$sel:multiplexOutputSettings:OutputSettings' :: OutputSettings -> Maybe MultiplexOutputSettings
$sel:msSmoothOutputSettings:OutputSettings' :: OutputSettings -> Maybe MsSmoothOutputSettings
$sel:mediaPackageOutputSettings:OutputSettings' :: OutputSettings -> Maybe MediaPackageOutputSettings
$sel:hlsOutputSettings:OutputSettings' :: OutputSettings -> Maybe HlsOutputSettings
$sel:frameCaptureOutputSettings:OutputSettings' :: OutputSettings -> Maybe FrameCaptureOutputSettings
$sel:archiveOutputSettings:OutputSettings' :: OutputSettings -> Maybe ArchiveOutputSettings
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ArchiveOutputSettings
archiveOutputSettings
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe FrameCaptureOutputSettings
frameCaptureOutputSettings
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe HlsOutputSettings
hlsOutputSettings
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe MediaPackageOutputSettings
mediaPackageOutputSettings
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe MsSmoothOutputSettings
msSmoothOutputSettings
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe MultiplexOutputSettings
multiplexOutputSettings
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RtmpOutputSettings
rtmpOutputSettings
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe UdpOutputSettings
udpOutputSettings

instance Prelude.NFData OutputSettings where
  rnf :: OutputSettings -> ()
rnf OutputSettings' {Maybe FrameCaptureOutputSettings
Maybe MediaPackageOutputSettings
Maybe MsSmoothOutputSettings
Maybe MultiplexOutputSettings
Maybe ArchiveOutputSettings
Maybe RtmpOutputSettings
Maybe HlsOutputSettings
Maybe UdpOutputSettings
udpOutputSettings :: Maybe UdpOutputSettings
rtmpOutputSettings :: Maybe RtmpOutputSettings
multiplexOutputSettings :: Maybe MultiplexOutputSettings
msSmoothOutputSettings :: Maybe MsSmoothOutputSettings
mediaPackageOutputSettings :: Maybe MediaPackageOutputSettings
hlsOutputSettings :: Maybe HlsOutputSettings
frameCaptureOutputSettings :: Maybe FrameCaptureOutputSettings
archiveOutputSettings :: Maybe ArchiveOutputSettings
$sel:udpOutputSettings:OutputSettings' :: OutputSettings -> Maybe UdpOutputSettings
$sel:rtmpOutputSettings:OutputSettings' :: OutputSettings -> Maybe RtmpOutputSettings
$sel:multiplexOutputSettings:OutputSettings' :: OutputSettings -> Maybe MultiplexOutputSettings
$sel:msSmoothOutputSettings:OutputSettings' :: OutputSettings -> Maybe MsSmoothOutputSettings
$sel:mediaPackageOutputSettings:OutputSettings' :: OutputSettings -> Maybe MediaPackageOutputSettings
$sel:hlsOutputSettings:OutputSettings' :: OutputSettings -> Maybe HlsOutputSettings
$sel:frameCaptureOutputSettings:OutputSettings' :: OutputSettings -> Maybe FrameCaptureOutputSettings
$sel:archiveOutputSettings:OutputSettings' :: OutputSettings -> Maybe ArchiveOutputSettings
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe ArchiveOutputSettings
archiveOutputSettings
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe FrameCaptureOutputSettings
frameCaptureOutputSettings
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe HlsOutputSettings
hlsOutputSettings
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe MediaPackageOutputSettings
mediaPackageOutputSettings
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe MsSmoothOutputSettings
msSmoothOutputSettings
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe MultiplexOutputSettings
multiplexOutputSettings
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RtmpOutputSettings
rtmpOutputSettings
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe UdpOutputSettings
udpOutputSettings

instance Data.ToJSON OutputSettings where
  toJSON :: OutputSettings -> Value
toJSON OutputSettings' {Maybe FrameCaptureOutputSettings
Maybe MediaPackageOutputSettings
Maybe MsSmoothOutputSettings
Maybe MultiplexOutputSettings
Maybe ArchiveOutputSettings
Maybe RtmpOutputSettings
Maybe HlsOutputSettings
Maybe UdpOutputSettings
udpOutputSettings :: Maybe UdpOutputSettings
rtmpOutputSettings :: Maybe RtmpOutputSettings
multiplexOutputSettings :: Maybe MultiplexOutputSettings
msSmoothOutputSettings :: Maybe MsSmoothOutputSettings
mediaPackageOutputSettings :: Maybe MediaPackageOutputSettings
hlsOutputSettings :: Maybe HlsOutputSettings
frameCaptureOutputSettings :: Maybe FrameCaptureOutputSettings
archiveOutputSettings :: Maybe ArchiveOutputSettings
$sel:udpOutputSettings:OutputSettings' :: OutputSettings -> Maybe UdpOutputSettings
$sel:rtmpOutputSettings:OutputSettings' :: OutputSettings -> Maybe RtmpOutputSettings
$sel:multiplexOutputSettings:OutputSettings' :: OutputSettings -> Maybe MultiplexOutputSettings
$sel:msSmoothOutputSettings:OutputSettings' :: OutputSettings -> Maybe MsSmoothOutputSettings
$sel:mediaPackageOutputSettings:OutputSettings' :: OutputSettings -> Maybe MediaPackageOutputSettings
$sel:hlsOutputSettings:OutputSettings' :: OutputSettings -> Maybe HlsOutputSettings
$sel:frameCaptureOutputSettings:OutputSettings' :: OutputSettings -> Maybe FrameCaptureOutputSettings
$sel:archiveOutputSettings:OutputSettings' :: OutputSettings -> Maybe ArchiveOutputSettings
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"archiveOutputSettings" 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 ArchiveOutputSettings
archiveOutputSettings,
            (Key
"frameCaptureOutputSettings" 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 FrameCaptureOutputSettings
frameCaptureOutputSettings,
            (Key
"hlsOutputSettings" 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 HlsOutputSettings
hlsOutputSettings,
            (Key
"mediaPackageOutputSettings" 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 MediaPackageOutputSettings
mediaPackageOutputSettings,
            (Key
"msSmoothOutputSettings" 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 MsSmoothOutputSettings
msSmoothOutputSettings,
            (Key
"multiplexOutputSettings" 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 MultiplexOutputSettings
multiplexOutputSettings,
            (Key
"rtmpOutputSettings" 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 RtmpOutputSettings
rtmpOutputSettings,
            (Key
"udpOutputSettings" 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 UdpOutputSettings
udpOutputSettings
          ]
      )