{-# 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.MultiplexProgramPacketIdentifiersMap
-- Copyright   : (c) 2013-2021 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
module Amazonka.MediaLive.Types.MultiplexProgramPacketIdentifiersMap where

import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude

-- | Packet identifiers map for a given Multiplex program.
--
-- /See:/ 'newMultiplexProgramPacketIdentifiersMap' smart constructor.
data MultiplexProgramPacketIdentifiersMap = MultiplexProgramPacketIdentifiersMap'
  { MultiplexProgramPacketIdentifiersMap -> Maybe Int
pmtPid :: Prelude.Maybe Prelude.Int,
    MultiplexProgramPacketIdentifiersMap -> Maybe Int
etvSignalPid :: Prelude.Maybe Prelude.Int,
    MultiplexProgramPacketIdentifiersMap -> Maybe Int
videoPid :: Prelude.Maybe Prelude.Int,
    MultiplexProgramPacketIdentifiersMap -> Maybe Int
scte35Pid :: Prelude.Maybe Prelude.Int,
    MultiplexProgramPacketIdentifiersMap -> Maybe Int
privateMetadataPid :: Prelude.Maybe Prelude.Int,
    MultiplexProgramPacketIdentifiersMap -> Maybe Int
timedMetadataPid :: Prelude.Maybe Prelude.Int,
    MultiplexProgramPacketIdentifiersMap -> Maybe Int
pcrPid :: Prelude.Maybe Prelude.Int,
    MultiplexProgramPacketIdentifiersMap -> Maybe [Int]
klvDataPids :: Prelude.Maybe [Prelude.Int],
    MultiplexProgramPacketIdentifiersMap -> Maybe [Int]
dvbSubPids :: Prelude.Maybe [Prelude.Int],
    MultiplexProgramPacketIdentifiersMap -> Maybe [Int]
scte27Pids :: Prelude.Maybe [Prelude.Int],
    MultiplexProgramPacketIdentifiersMap -> Maybe Int
etvPlatformPid :: Prelude.Maybe Prelude.Int,
    MultiplexProgramPacketIdentifiersMap -> Maybe [Int]
audioPids :: Prelude.Maybe [Prelude.Int],
    MultiplexProgramPacketIdentifiersMap -> Maybe Int
dvbTeletextPid :: Prelude.Maybe Prelude.Int
  }
  deriving (MultiplexProgramPacketIdentifiersMap
-> MultiplexProgramPacketIdentifiersMap -> Bool
(MultiplexProgramPacketIdentifiersMap
 -> MultiplexProgramPacketIdentifiersMap -> Bool)
-> (MultiplexProgramPacketIdentifiersMap
    -> MultiplexProgramPacketIdentifiersMap -> Bool)
-> Eq MultiplexProgramPacketIdentifiersMap
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MultiplexProgramPacketIdentifiersMap
-> MultiplexProgramPacketIdentifiersMap -> Bool
$c/= :: MultiplexProgramPacketIdentifiersMap
-> MultiplexProgramPacketIdentifiersMap -> Bool
== :: MultiplexProgramPacketIdentifiersMap
-> MultiplexProgramPacketIdentifiersMap -> Bool
$c== :: MultiplexProgramPacketIdentifiersMap
-> MultiplexProgramPacketIdentifiersMap -> Bool
Prelude.Eq, ReadPrec [MultiplexProgramPacketIdentifiersMap]
ReadPrec MultiplexProgramPacketIdentifiersMap
Int -> ReadS MultiplexProgramPacketIdentifiersMap
ReadS [MultiplexProgramPacketIdentifiersMap]
(Int -> ReadS MultiplexProgramPacketIdentifiersMap)
-> ReadS [MultiplexProgramPacketIdentifiersMap]
-> ReadPrec MultiplexProgramPacketIdentifiersMap
-> ReadPrec [MultiplexProgramPacketIdentifiersMap]
-> Read MultiplexProgramPacketIdentifiersMap
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [MultiplexProgramPacketIdentifiersMap]
$creadListPrec :: ReadPrec [MultiplexProgramPacketIdentifiersMap]
readPrec :: ReadPrec MultiplexProgramPacketIdentifiersMap
$creadPrec :: ReadPrec MultiplexProgramPacketIdentifiersMap
readList :: ReadS [MultiplexProgramPacketIdentifiersMap]
$creadList :: ReadS [MultiplexProgramPacketIdentifiersMap]
readsPrec :: Int -> ReadS MultiplexProgramPacketIdentifiersMap
$creadsPrec :: Int -> ReadS MultiplexProgramPacketIdentifiersMap
Prelude.Read, Int -> MultiplexProgramPacketIdentifiersMap -> ShowS
[MultiplexProgramPacketIdentifiersMap] -> ShowS
MultiplexProgramPacketIdentifiersMap -> String
(Int -> MultiplexProgramPacketIdentifiersMap -> ShowS)
-> (MultiplexProgramPacketIdentifiersMap -> String)
-> ([MultiplexProgramPacketIdentifiersMap] -> ShowS)
-> Show MultiplexProgramPacketIdentifiersMap
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MultiplexProgramPacketIdentifiersMap] -> ShowS
$cshowList :: [MultiplexProgramPacketIdentifiersMap] -> ShowS
show :: MultiplexProgramPacketIdentifiersMap -> String
$cshow :: MultiplexProgramPacketIdentifiersMap -> String
showsPrec :: Int -> MultiplexProgramPacketIdentifiersMap -> ShowS
$cshowsPrec :: Int -> MultiplexProgramPacketIdentifiersMap -> ShowS
Prelude.Show, (forall x.
 MultiplexProgramPacketIdentifiersMap
 -> Rep MultiplexProgramPacketIdentifiersMap x)
-> (forall x.
    Rep MultiplexProgramPacketIdentifiersMap x
    -> MultiplexProgramPacketIdentifiersMap)
-> Generic MultiplexProgramPacketIdentifiersMap
forall x.
Rep MultiplexProgramPacketIdentifiersMap x
-> MultiplexProgramPacketIdentifiersMap
forall x.
MultiplexProgramPacketIdentifiersMap
-> Rep MultiplexProgramPacketIdentifiersMap x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep MultiplexProgramPacketIdentifiersMap x
-> MultiplexProgramPacketIdentifiersMap
$cfrom :: forall x.
MultiplexProgramPacketIdentifiersMap
-> Rep MultiplexProgramPacketIdentifiersMap x
Prelude.Generic)

-- |
-- Create a value of 'MultiplexProgramPacketIdentifiersMap' 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:
--
-- 'pmtPid', 'multiplexProgramPacketIdentifiersMap_pmtPid' - Undocumented member.
--
-- 'etvSignalPid', 'multiplexProgramPacketIdentifiersMap_etvSignalPid' - Undocumented member.
--
-- 'videoPid', 'multiplexProgramPacketIdentifiersMap_videoPid' - Undocumented member.
--
-- 'scte35Pid', 'multiplexProgramPacketIdentifiersMap_scte35Pid' - Undocumented member.
--
-- 'privateMetadataPid', 'multiplexProgramPacketIdentifiersMap_privateMetadataPid' - Undocumented member.
--
-- 'timedMetadataPid', 'multiplexProgramPacketIdentifiersMap_timedMetadataPid' - Undocumented member.
--
-- 'pcrPid', 'multiplexProgramPacketIdentifiersMap_pcrPid' - Undocumented member.
--
-- 'klvDataPids', 'multiplexProgramPacketIdentifiersMap_klvDataPids' - Undocumented member.
--
-- 'dvbSubPids', 'multiplexProgramPacketIdentifiersMap_dvbSubPids' - Undocumented member.
--
-- 'scte27Pids', 'multiplexProgramPacketIdentifiersMap_scte27Pids' - Undocumented member.
--
-- 'etvPlatformPid', 'multiplexProgramPacketIdentifiersMap_etvPlatformPid' - Undocumented member.
--
-- 'audioPids', 'multiplexProgramPacketIdentifiersMap_audioPids' - Undocumented member.
--
-- 'dvbTeletextPid', 'multiplexProgramPacketIdentifiersMap_dvbTeletextPid' - Undocumented member.
newMultiplexProgramPacketIdentifiersMap ::
  MultiplexProgramPacketIdentifiersMap
newMultiplexProgramPacketIdentifiersMap :: MultiplexProgramPacketIdentifiersMap
newMultiplexProgramPacketIdentifiersMap =
  MultiplexProgramPacketIdentifiersMap' :: Maybe Int
-> Maybe Int
-> Maybe Int
-> Maybe Int
-> Maybe Int
-> Maybe Int
-> Maybe Int
-> Maybe [Int]
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Int
-> Maybe [Int]
-> Maybe Int
-> MultiplexProgramPacketIdentifiersMap
MultiplexProgramPacketIdentifiersMap'
    { $sel:pmtPid:MultiplexProgramPacketIdentifiersMap' :: Maybe Int
pmtPid =
        Maybe Int
forall a. Maybe a
Prelude.Nothing,
      $sel:etvSignalPid:MultiplexProgramPacketIdentifiersMap' :: Maybe Int
etvSignalPid = Maybe Int
forall a. Maybe a
Prelude.Nothing,
      $sel:videoPid:MultiplexProgramPacketIdentifiersMap' :: Maybe Int
videoPid = Maybe Int
forall a. Maybe a
Prelude.Nothing,
      $sel:scte35Pid:MultiplexProgramPacketIdentifiersMap' :: Maybe Int
scte35Pid = Maybe Int
forall a. Maybe a
Prelude.Nothing,
      $sel:privateMetadataPid:MultiplexProgramPacketIdentifiersMap' :: Maybe Int
privateMetadataPid = Maybe Int
forall a. Maybe a
Prelude.Nothing,
      $sel:timedMetadataPid:MultiplexProgramPacketIdentifiersMap' :: Maybe Int
timedMetadataPid = Maybe Int
forall a. Maybe a
Prelude.Nothing,
      $sel:pcrPid:MultiplexProgramPacketIdentifiersMap' :: Maybe Int
pcrPid = Maybe Int
forall a. Maybe a
Prelude.Nothing,
      $sel:klvDataPids:MultiplexProgramPacketIdentifiersMap' :: Maybe [Int]
klvDataPids = Maybe [Int]
forall a. Maybe a
Prelude.Nothing,
      $sel:dvbSubPids:MultiplexProgramPacketIdentifiersMap' :: Maybe [Int]
dvbSubPids = Maybe [Int]
forall a. Maybe a
Prelude.Nothing,
      $sel:scte27Pids:MultiplexProgramPacketIdentifiersMap' :: Maybe [Int]
scte27Pids = Maybe [Int]
forall a. Maybe a
Prelude.Nothing,
      $sel:etvPlatformPid:MultiplexProgramPacketIdentifiersMap' :: Maybe Int
etvPlatformPid = Maybe Int
forall a. Maybe a
Prelude.Nothing,
      $sel:audioPids:MultiplexProgramPacketIdentifiersMap' :: Maybe [Int]
audioPids = Maybe [Int]
forall a. Maybe a
Prelude.Nothing,
      $sel:dvbTeletextPid:MultiplexProgramPacketIdentifiersMap' :: Maybe Int
dvbTeletextPid = Maybe Int
forall a. Maybe a
Prelude.Nothing
    }

-- | Undocumented member.
multiplexProgramPacketIdentifiersMap_pmtPid :: Lens.Lens' MultiplexProgramPacketIdentifiersMap (Prelude.Maybe Prelude.Int)
multiplexProgramPacketIdentifiersMap_pmtPid :: (Maybe Int -> f (Maybe Int))
-> MultiplexProgramPacketIdentifiersMap
-> f MultiplexProgramPacketIdentifiersMap
multiplexProgramPacketIdentifiersMap_pmtPid = (MultiplexProgramPacketIdentifiersMap -> Maybe Int)
-> (MultiplexProgramPacketIdentifiersMap
    -> Maybe Int -> MultiplexProgramPacketIdentifiersMap)
-> Lens
     MultiplexProgramPacketIdentifiersMap
     MultiplexProgramPacketIdentifiersMap
     (Maybe Int)
     (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MultiplexProgramPacketIdentifiersMap' {Maybe Int
pmtPid :: Maybe Int
$sel:pmtPid:MultiplexProgramPacketIdentifiersMap' :: MultiplexProgramPacketIdentifiersMap -> Maybe Int
pmtPid} -> Maybe Int
pmtPid) (\s :: MultiplexProgramPacketIdentifiersMap
s@MultiplexProgramPacketIdentifiersMap' {} Maybe Int
a -> MultiplexProgramPacketIdentifiersMap
s {$sel:pmtPid:MultiplexProgramPacketIdentifiersMap' :: Maybe Int
pmtPid = Maybe Int
a} :: MultiplexProgramPacketIdentifiersMap)

-- | Undocumented member.
multiplexProgramPacketIdentifiersMap_etvSignalPid :: Lens.Lens' MultiplexProgramPacketIdentifiersMap (Prelude.Maybe Prelude.Int)
multiplexProgramPacketIdentifiersMap_etvSignalPid :: (Maybe Int -> f (Maybe Int))
-> MultiplexProgramPacketIdentifiersMap
-> f MultiplexProgramPacketIdentifiersMap
multiplexProgramPacketIdentifiersMap_etvSignalPid = (MultiplexProgramPacketIdentifiersMap -> Maybe Int)
-> (MultiplexProgramPacketIdentifiersMap
    -> Maybe Int -> MultiplexProgramPacketIdentifiersMap)
-> Lens
     MultiplexProgramPacketIdentifiersMap
     MultiplexProgramPacketIdentifiersMap
     (Maybe Int)
     (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MultiplexProgramPacketIdentifiersMap' {Maybe Int
etvSignalPid :: Maybe Int
$sel:etvSignalPid:MultiplexProgramPacketIdentifiersMap' :: MultiplexProgramPacketIdentifiersMap -> Maybe Int
etvSignalPid} -> Maybe Int
etvSignalPid) (\s :: MultiplexProgramPacketIdentifiersMap
s@MultiplexProgramPacketIdentifiersMap' {} Maybe Int
a -> MultiplexProgramPacketIdentifiersMap
s {$sel:etvSignalPid:MultiplexProgramPacketIdentifiersMap' :: Maybe Int
etvSignalPid = Maybe Int
a} :: MultiplexProgramPacketIdentifiersMap)

-- | Undocumented member.
multiplexProgramPacketIdentifiersMap_videoPid :: Lens.Lens' MultiplexProgramPacketIdentifiersMap (Prelude.Maybe Prelude.Int)
multiplexProgramPacketIdentifiersMap_videoPid :: (Maybe Int -> f (Maybe Int))
-> MultiplexProgramPacketIdentifiersMap
-> f MultiplexProgramPacketIdentifiersMap
multiplexProgramPacketIdentifiersMap_videoPid = (MultiplexProgramPacketIdentifiersMap -> Maybe Int)
-> (MultiplexProgramPacketIdentifiersMap
    -> Maybe Int -> MultiplexProgramPacketIdentifiersMap)
-> Lens
     MultiplexProgramPacketIdentifiersMap
     MultiplexProgramPacketIdentifiersMap
     (Maybe Int)
     (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MultiplexProgramPacketIdentifiersMap' {Maybe Int
videoPid :: Maybe Int
$sel:videoPid:MultiplexProgramPacketIdentifiersMap' :: MultiplexProgramPacketIdentifiersMap -> Maybe Int
videoPid} -> Maybe Int
videoPid) (\s :: MultiplexProgramPacketIdentifiersMap
s@MultiplexProgramPacketIdentifiersMap' {} Maybe Int
a -> MultiplexProgramPacketIdentifiersMap
s {$sel:videoPid:MultiplexProgramPacketIdentifiersMap' :: Maybe Int
videoPid = Maybe Int
a} :: MultiplexProgramPacketIdentifiersMap)

-- | Undocumented member.
multiplexProgramPacketIdentifiersMap_scte35Pid :: Lens.Lens' MultiplexProgramPacketIdentifiersMap (Prelude.Maybe Prelude.Int)
multiplexProgramPacketIdentifiersMap_scte35Pid :: (Maybe Int -> f (Maybe Int))
-> MultiplexProgramPacketIdentifiersMap
-> f MultiplexProgramPacketIdentifiersMap
multiplexProgramPacketIdentifiersMap_scte35Pid = (MultiplexProgramPacketIdentifiersMap -> Maybe Int)
-> (MultiplexProgramPacketIdentifiersMap
    -> Maybe Int -> MultiplexProgramPacketIdentifiersMap)
-> Lens
     MultiplexProgramPacketIdentifiersMap
     MultiplexProgramPacketIdentifiersMap
     (Maybe Int)
     (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MultiplexProgramPacketIdentifiersMap' {Maybe Int
scte35Pid :: Maybe Int
$sel:scte35Pid:MultiplexProgramPacketIdentifiersMap' :: MultiplexProgramPacketIdentifiersMap -> Maybe Int
scte35Pid} -> Maybe Int
scte35Pid) (\s :: MultiplexProgramPacketIdentifiersMap
s@MultiplexProgramPacketIdentifiersMap' {} Maybe Int
a -> MultiplexProgramPacketIdentifiersMap
s {$sel:scte35Pid:MultiplexProgramPacketIdentifiersMap' :: Maybe Int
scte35Pid = Maybe Int
a} :: MultiplexProgramPacketIdentifiersMap)

-- | Undocumented member.
multiplexProgramPacketIdentifiersMap_privateMetadataPid :: Lens.Lens' MultiplexProgramPacketIdentifiersMap (Prelude.Maybe Prelude.Int)
multiplexProgramPacketIdentifiersMap_privateMetadataPid :: (Maybe Int -> f (Maybe Int))
-> MultiplexProgramPacketIdentifiersMap
-> f MultiplexProgramPacketIdentifiersMap
multiplexProgramPacketIdentifiersMap_privateMetadataPid = (MultiplexProgramPacketIdentifiersMap -> Maybe Int)
-> (MultiplexProgramPacketIdentifiersMap
    -> Maybe Int -> MultiplexProgramPacketIdentifiersMap)
-> Lens
     MultiplexProgramPacketIdentifiersMap
     MultiplexProgramPacketIdentifiersMap
     (Maybe Int)
     (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MultiplexProgramPacketIdentifiersMap' {Maybe Int
privateMetadataPid :: Maybe Int
$sel:privateMetadataPid:MultiplexProgramPacketIdentifiersMap' :: MultiplexProgramPacketIdentifiersMap -> Maybe Int
privateMetadataPid} -> Maybe Int
privateMetadataPid) (\s :: MultiplexProgramPacketIdentifiersMap
s@MultiplexProgramPacketIdentifiersMap' {} Maybe Int
a -> MultiplexProgramPacketIdentifiersMap
s {$sel:privateMetadataPid:MultiplexProgramPacketIdentifiersMap' :: Maybe Int
privateMetadataPid = Maybe Int
a} :: MultiplexProgramPacketIdentifiersMap)

-- | Undocumented member.
multiplexProgramPacketIdentifiersMap_timedMetadataPid :: Lens.Lens' MultiplexProgramPacketIdentifiersMap (Prelude.Maybe Prelude.Int)
multiplexProgramPacketIdentifiersMap_timedMetadataPid :: (Maybe Int -> f (Maybe Int))
-> MultiplexProgramPacketIdentifiersMap
-> f MultiplexProgramPacketIdentifiersMap
multiplexProgramPacketIdentifiersMap_timedMetadataPid = (MultiplexProgramPacketIdentifiersMap -> Maybe Int)
-> (MultiplexProgramPacketIdentifiersMap
    -> Maybe Int -> MultiplexProgramPacketIdentifiersMap)
-> Lens
     MultiplexProgramPacketIdentifiersMap
     MultiplexProgramPacketIdentifiersMap
     (Maybe Int)
     (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MultiplexProgramPacketIdentifiersMap' {Maybe Int
timedMetadataPid :: Maybe Int
$sel:timedMetadataPid:MultiplexProgramPacketIdentifiersMap' :: MultiplexProgramPacketIdentifiersMap -> Maybe Int
timedMetadataPid} -> Maybe Int
timedMetadataPid) (\s :: MultiplexProgramPacketIdentifiersMap
s@MultiplexProgramPacketIdentifiersMap' {} Maybe Int
a -> MultiplexProgramPacketIdentifiersMap
s {$sel:timedMetadataPid:MultiplexProgramPacketIdentifiersMap' :: Maybe Int
timedMetadataPid = Maybe Int
a} :: MultiplexProgramPacketIdentifiersMap)

-- | Undocumented member.
multiplexProgramPacketIdentifiersMap_pcrPid :: Lens.Lens' MultiplexProgramPacketIdentifiersMap (Prelude.Maybe Prelude.Int)
multiplexProgramPacketIdentifiersMap_pcrPid :: (Maybe Int -> f (Maybe Int))
-> MultiplexProgramPacketIdentifiersMap
-> f MultiplexProgramPacketIdentifiersMap
multiplexProgramPacketIdentifiersMap_pcrPid = (MultiplexProgramPacketIdentifiersMap -> Maybe Int)
-> (MultiplexProgramPacketIdentifiersMap
    -> Maybe Int -> MultiplexProgramPacketIdentifiersMap)
-> Lens
     MultiplexProgramPacketIdentifiersMap
     MultiplexProgramPacketIdentifiersMap
     (Maybe Int)
     (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MultiplexProgramPacketIdentifiersMap' {Maybe Int
pcrPid :: Maybe Int
$sel:pcrPid:MultiplexProgramPacketIdentifiersMap' :: MultiplexProgramPacketIdentifiersMap -> Maybe Int
pcrPid} -> Maybe Int
pcrPid) (\s :: MultiplexProgramPacketIdentifiersMap
s@MultiplexProgramPacketIdentifiersMap' {} Maybe Int
a -> MultiplexProgramPacketIdentifiersMap
s {$sel:pcrPid:MultiplexProgramPacketIdentifiersMap' :: Maybe Int
pcrPid = Maybe Int
a} :: MultiplexProgramPacketIdentifiersMap)

-- | Undocumented member.
multiplexProgramPacketIdentifiersMap_klvDataPids :: Lens.Lens' MultiplexProgramPacketIdentifiersMap (Prelude.Maybe [Prelude.Int])
multiplexProgramPacketIdentifiersMap_klvDataPids :: (Maybe [Int] -> f (Maybe [Int]))
-> MultiplexProgramPacketIdentifiersMap
-> f MultiplexProgramPacketIdentifiersMap
multiplexProgramPacketIdentifiersMap_klvDataPids = (MultiplexProgramPacketIdentifiersMap -> Maybe [Int])
-> (MultiplexProgramPacketIdentifiersMap
    -> Maybe [Int] -> MultiplexProgramPacketIdentifiersMap)
-> Lens
     MultiplexProgramPacketIdentifiersMap
     MultiplexProgramPacketIdentifiersMap
     (Maybe [Int])
     (Maybe [Int])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MultiplexProgramPacketIdentifiersMap' {Maybe [Int]
klvDataPids :: Maybe [Int]
$sel:klvDataPids:MultiplexProgramPacketIdentifiersMap' :: MultiplexProgramPacketIdentifiersMap -> Maybe [Int]
klvDataPids} -> Maybe [Int]
klvDataPids) (\s :: MultiplexProgramPacketIdentifiersMap
s@MultiplexProgramPacketIdentifiersMap' {} Maybe [Int]
a -> MultiplexProgramPacketIdentifiersMap
s {$sel:klvDataPids:MultiplexProgramPacketIdentifiersMap' :: Maybe [Int]
klvDataPids = Maybe [Int]
a} :: MultiplexProgramPacketIdentifiersMap) ((Maybe [Int] -> f (Maybe [Int]))
 -> MultiplexProgramPacketIdentifiersMap
 -> f MultiplexProgramPacketIdentifiersMap)
-> ((Maybe [Int] -> f (Maybe [Int]))
    -> Maybe [Int] -> f (Maybe [Int]))
-> (Maybe [Int] -> f (Maybe [Int]))
-> MultiplexProgramPacketIdentifiersMap
-> f MultiplexProgramPacketIdentifiersMap
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Int] [Int] [Int] [Int]
-> Iso (Maybe [Int]) (Maybe [Int]) (Maybe [Int]) (Maybe [Int])
forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping AnIso [Int] [Int] [Int] [Int]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | Undocumented member.
multiplexProgramPacketIdentifiersMap_dvbSubPids :: Lens.Lens' MultiplexProgramPacketIdentifiersMap (Prelude.Maybe [Prelude.Int])
multiplexProgramPacketIdentifiersMap_dvbSubPids :: (Maybe [Int] -> f (Maybe [Int]))
-> MultiplexProgramPacketIdentifiersMap
-> f MultiplexProgramPacketIdentifiersMap
multiplexProgramPacketIdentifiersMap_dvbSubPids = (MultiplexProgramPacketIdentifiersMap -> Maybe [Int])
-> (MultiplexProgramPacketIdentifiersMap
    -> Maybe [Int] -> MultiplexProgramPacketIdentifiersMap)
-> Lens
     MultiplexProgramPacketIdentifiersMap
     MultiplexProgramPacketIdentifiersMap
     (Maybe [Int])
     (Maybe [Int])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MultiplexProgramPacketIdentifiersMap' {Maybe [Int]
dvbSubPids :: Maybe [Int]
$sel:dvbSubPids:MultiplexProgramPacketIdentifiersMap' :: MultiplexProgramPacketIdentifiersMap -> Maybe [Int]
dvbSubPids} -> Maybe [Int]
dvbSubPids) (\s :: MultiplexProgramPacketIdentifiersMap
s@MultiplexProgramPacketIdentifiersMap' {} Maybe [Int]
a -> MultiplexProgramPacketIdentifiersMap
s {$sel:dvbSubPids:MultiplexProgramPacketIdentifiersMap' :: Maybe [Int]
dvbSubPids = Maybe [Int]
a} :: MultiplexProgramPacketIdentifiersMap) ((Maybe [Int] -> f (Maybe [Int]))
 -> MultiplexProgramPacketIdentifiersMap
 -> f MultiplexProgramPacketIdentifiersMap)
-> ((Maybe [Int] -> f (Maybe [Int]))
    -> Maybe [Int] -> f (Maybe [Int]))
-> (Maybe [Int] -> f (Maybe [Int]))
-> MultiplexProgramPacketIdentifiersMap
-> f MultiplexProgramPacketIdentifiersMap
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Int] [Int] [Int] [Int]
-> Iso (Maybe [Int]) (Maybe [Int]) (Maybe [Int]) (Maybe [Int])
forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping AnIso [Int] [Int] [Int] [Int]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | Undocumented member.
multiplexProgramPacketIdentifiersMap_scte27Pids :: Lens.Lens' MultiplexProgramPacketIdentifiersMap (Prelude.Maybe [Prelude.Int])
multiplexProgramPacketIdentifiersMap_scte27Pids :: (Maybe [Int] -> f (Maybe [Int]))
-> MultiplexProgramPacketIdentifiersMap
-> f MultiplexProgramPacketIdentifiersMap
multiplexProgramPacketIdentifiersMap_scte27Pids = (MultiplexProgramPacketIdentifiersMap -> Maybe [Int])
-> (MultiplexProgramPacketIdentifiersMap
    -> Maybe [Int] -> MultiplexProgramPacketIdentifiersMap)
-> Lens
     MultiplexProgramPacketIdentifiersMap
     MultiplexProgramPacketIdentifiersMap
     (Maybe [Int])
     (Maybe [Int])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MultiplexProgramPacketIdentifiersMap' {Maybe [Int]
scte27Pids :: Maybe [Int]
$sel:scte27Pids:MultiplexProgramPacketIdentifiersMap' :: MultiplexProgramPacketIdentifiersMap -> Maybe [Int]
scte27Pids} -> Maybe [Int]
scte27Pids) (\s :: MultiplexProgramPacketIdentifiersMap
s@MultiplexProgramPacketIdentifiersMap' {} Maybe [Int]
a -> MultiplexProgramPacketIdentifiersMap
s {$sel:scte27Pids:MultiplexProgramPacketIdentifiersMap' :: Maybe [Int]
scte27Pids = Maybe [Int]
a} :: MultiplexProgramPacketIdentifiersMap) ((Maybe [Int] -> f (Maybe [Int]))
 -> MultiplexProgramPacketIdentifiersMap
 -> f MultiplexProgramPacketIdentifiersMap)
-> ((Maybe [Int] -> f (Maybe [Int]))
    -> Maybe [Int] -> f (Maybe [Int]))
-> (Maybe [Int] -> f (Maybe [Int]))
-> MultiplexProgramPacketIdentifiersMap
-> f MultiplexProgramPacketIdentifiersMap
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Int] [Int] [Int] [Int]
-> Iso (Maybe [Int]) (Maybe [Int]) (Maybe [Int]) (Maybe [Int])
forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping AnIso [Int] [Int] [Int] [Int]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | Undocumented member.
multiplexProgramPacketIdentifiersMap_etvPlatformPid :: Lens.Lens' MultiplexProgramPacketIdentifiersMap (Prelude.Maybe Prelude.Int)
multiplexProgramPacketIdentifiersMap_etvPlatformPid :: (Maybe Int -> f (Maybe Int))
-> MultiplexProgramPacketIdentifiersMap
-> f MultiplexProgramPacketIdentifiersMap
multiplexProgramPacketIdentifiersMap_etvPlatformPid = (MultiplexProgramPacketIdentifiersMap -> Maybe Int)
-> (MultiplexProgramPacketIdentifiersMap
    -> Maybe Int -> MultiplexProgramPacketIdentifiersMap)
-> Lens
     MultiplexProgramPacketIdentifiersMap
     MultiplexProgramPacketIdentifiersMap
     (Maybe Int)
     (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MultiplexProgramPacketIdentifiersMap' {Maybe Int
etvPlatformPid :: Maybe Int
$sel:etvPlatformPid:MultiplexProgramPacketIdentifiersMap' :: MultiplexProgramPacketIdentifiersMap -> Maybe Int
etvPlatformPid} -> Maybe Int
etvPlatformPid) (\s :: MultiplexProgramPacketIdentifiersMap
s@MultiplexProgramPacketIdentifiersMap' {} Maybe Int
a -> MultiplexProgramPacketIdentifiersMap
s {$sel:etvPlatformPid:MultiplexProgramPacketIdentifiersMap' :: Maybe Int
etvPlatformPid = Maybe Int
a} :: MultiplexProgramPacketIdentifiersMap)

-- | Undocumented member.
multiplexProgramPacketIdentifiersMap_audioPids :: Lens.Lens' MultiplexProgramPacketIdentifiersMap (Prelude.Maybe [Prelude.Int])
multiplexProgramPacketIdentifiersMap_audioPids :: (Maybe [Int] -> f (Maybe [Int]))
-> MultiplexProgramPacketIdentifiersMap
-> f MultiplexProgramPacketIdentifiersMap
multiplexProgramPacketIdentifiersMap_audioPids = (MultiplexProgramPacketIdentifiersMap -> Maybe [Int])
-> (MultiplexProgramPacketIdentifiersMap
    -> Maybe [Int] -> MultiplexProgramPacketIdentifiersMap)
-> Lens
     MultiplexProgramPacketIdentifiersMap
     MultiplexProgramPacketIdentifiersMap
     (Maybe [Int])
     (Maybe [Int])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MultiplexProgramPacketIdentifiersMap' {Maybe [Int]
audioPids :: Maybe [Int]
$sel:audioPids:MultiplexProgramPacketIdentifiersMap' :: MultiplexProgramPacketIdentifiersMap -> Maybe [Int]
audioPids} -> Maybe [Int]
audioPids) (\s :: MultiplexProgramPacketIdentifiersMap
s@MultiplexProgramPacketIdentifiersMap' {} Maybe [Int]
a -> MultiplexProgramPacketIdentifiersMap
s {$sel:audioPids:MultiplexProgramPacketIdentifiersMap' :: Maybe [Int]
audioPids = Maybe [Int]
a} :: MultiplexProgramPacketIdentifiersMap) ((Maybe [Int] -> f (Maybe [Int]))
 -> MultiplexProgramPacketIdentifiersMap
 -> f MultiplexProgramPacketIdentifiersMap)
-> ((Maybe [Int] -> f (Maybe [Int]))
    -> Maybe [Int] -> f (Maybe [Int]))
-> (Maybe [Int] -> f (Maybe [Int]))
-> MultiplexProgramPacketIdentifiersMap
-> f MultiplexProgramPacketIdentifiersMap
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Int] [Int] [Int] [Int]
-> Iso (Maybe [Int]) (Maybe [Int]) (Maybe [Int]) (Maybe [Int])
forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping AnIso [Int] [Int] [Int] [Int]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | Undocumented member.
multiplexProgramPacketIdentifiersMap_dvbTeletextPid :: Lens.Lens' MultiplexProgramPacketIdentifiersMap (Prelude.Maybe Prelude.Int)
multiplexProgramPacketIdentifiersMap_dvbTeletextPid :: (Maybe Int -> f (Maybe Int))
-> MultiplexProgramPacketIdentifiersMap
-> f MultiplexProgramPacketIdentifiersMap
multiplexProgramPacketIdentifiersMap_dvbTeletextPid = (MultiplexProgramPacketIdentifiersMap -> Maybe Int)
-> (MultiplexProgramPacketIdentifiersMap
    -> Maybe Int -> MultiplexProgramPacketIdentifiersMap)
-> Lens
     MultiplexProgramPacketIdentifiersMap
     MultiplexProgramPacketIdentifiersMap
     (Maybe Int)
     (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\MultiplexProgramPacketIdentifiersMap' {Maybe Int
dvbTeletextPid :: Maybe Int
$sel:dvbTeletextPid:MultiplexProgramPacketIdentifiersMap' :: MultiplexProgramPacketIdentifiersMap -> Maybe Int
dvbTeletextPid} -> Maybe Int
dvbTeletextPid) (\s :: MultiplexProgramPacketIdentifiersMap
s@MultiplexProgramPacketIdentifiersMap' {} Maybe Int
a -> MultiplexProgramPacketIdentifiersMap
s {$sel:dvbTeletextPid:MultiplexProgramPacketIdentifiersMap' :: Maybe Int
dvbTeletextPid = Maybe Int
a} :: MultiplexProgramPacketIdentifiersMap)

instance
  Core.FromJSON
    MultiplexProgramPacketIdentifiersMap
  where
  parseJSON :: Value -> Parser MultiplexProgramPacketIdentifiersMap
parseJSON =
    String
-> (Object -> Parser MultiplexProgramPacketIdentifiersMap)
-> Value
-> Parser MultiplexProgramPacketIdentifiersMap
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Core.withObject
      String
"MultiplexProgramPacketIdentifiersMap"
      ( \Object
x ->
          Maybe Int
-> Maybe Int
-> Maybe Int
-> Maybe Int
-> Maybe Int
-> Maybe Int
-> Maybe Int
-> Maybe [Int]
-> Maybe [Int]
-> Maybe [Int]
-> Maybe Int
-> Maybe [Int]
-> Maybe Int
-> MultiplexProgramPacketIdentifiersMap
MultiplexProgramPacketIdentifiersMap'
            (Maybe Int
 -> Maybe Int
 -> Maybe Int
 -> Maybe Int
 -> Maybe Int
 -> Maybe Int
 -> Maybe Int
 -> Maybe [Int]
 -> Maybe [Int]
 -> Maybe [Int]
 -> Maybe Int
 -> Maybe [Int]
 -> Maybe Int
 -> MultiplexProgramPacketIdentifiersMap)
-> Parser (Maybe Int)
-> Parser
     (Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe [Int]
      -> Maybe [Int]
      -> Maybe [Int]
      -> Maybe Int
      -> Maybe [Int]
      -> Maybe Int
      -> MultiplexProgramPacketIdentifiersMap)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"pmtPid")
            Parser
  (Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe [Int]
   -> Maybe [Int]
   -> Maybe [Int]
   -> Maybe Int
   -> Maybe [Int]
   -> Maybe Int
   -> MultiplexProgramPacketIdentifiersMap)
-> Parser (Maybe Int)
-> Parser
     (Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe [Int]
      -> Maybe [Int]
      -> Maybe [Int]
      -> Maybe Int
      -> Maybe [Int]
      -> Maybe Int
      -> MultiplexProgramPacketIdentifiersMap)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"etvSignalPid")
            Parser
  (Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe [Int]
   -> Maybe [Int]
   -> Maybe [Int]
   -> Maybe Int
   -> Maybe [Int]
   -> Maybe Int
   -> MultiplexProgramPacketIdentifiersMap)
-> Parser (Maybe Int)
-> Parser
     (Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe [Int]
      -> Maybe [Int]
      -> Maybe [Int]
      -> Maybe Int
      -> Maybe [Int]
      -> Maybe Int
      -> MultiplexProgramPacketIdentifiersMap)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"videoPid")
            Parser
  (Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe [Int]
   -> Maybe [Int]
   -> Maybe [Int]
   -> Maybe Int
   -> Maybe [Int]
   -> Maybe Int
   -> MultiplexProgramPacketIdentifiersMap)
-> Parser (Maybe Int)
-> Parser
     (Maybe Int
      -> Maybe Int
      -> Maybe Int
      -> Maybe [Int]
      -> Maybe [Int]
      -> Maybe [Int]
      -> Maybe Int
      -> Maybe [Int]
      -> Maybe Int
      -> MultiplexProgramPacketIdentifiersMap)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"scte35Pid")
            Parser
  (Maybe Int
   -> Maybe Int
   -> Maybe Int
   -> Maybe [Int]
   -> Maybe [Int]
   -> Maybe [Int]
   -> Maybe Int
   -> Maybe [Int]
   -> Maybe Int
   -> MultiplexProgramPacketIdentifiersMap)
-> Parser (Maybe Int)
-> Parser
     (Maybe Int
      -> Maybe Int
      -> Maybe [Int]
      -> Maybe [Int]
      -> Maybe [Int]
      -> Maybe Int
      -> Maybe [Int]
      -> Maybe Int
      -> MultiplexProgramPacketIdentifiersMap)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"privateMetadataPid")
            Parser
  (Maybe Int
   -> Maybe Int
   -> Maybe [Int]
   -> Maybe [Int]
   -> Maybe [Int]
   -> Maybe Int
   -> Maybe [Int]
   -> Maybe Int
   -> MultiplexProgramPacketIdentifiersMap)
-> Parser (Maybe Int)
-> Parser
     (Maybe Int
      -> Maybe [Int]
      -> Maybe [Int]
      -> Maybe [Int]
      -> Maybe Int
      -> Maybe [Int]
      -> Maybe Int
      -> MultiplexProgramPacketIdentifiersMap)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"timedMetadataPid")
            Parser
  (Maybe Int
   -> Maybe [Int]
   -> Maybe [Int]
   -> Maybe [Int]
   -> Maybe Int
   -> Maybe [Int]
   -> Maybe Int
   -> MultiplexProgramPacketIdentifiersMap)
-> Parser (Maybe Int)
-> Parser
     (Maybe [Int]
      -> Maybe [Int]
      -> Maybe [Int]
      -> Maybe Int
      -> Maybe [Int]
      -> Maybe Int
      -> MultiplexProgramPacketIdentifiersMap)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"pcrPid")
            Parser
  (Maybe [Int]
   -> Maybe [Int]
   -> Maybe [Int]
   -> Maybe Int
   -> Maybe [Int]
   -> Maybe Int
   -> MultiplexProgramPacketIdentifiersMap)
-> Parser (Maybe [Int])
-> Parser
     (Maybe [Int]
      -> Maybe [Int]
      -> Maybe Int
      -> Maybe [Int]
      -> Maybe Int
      -> MultiplexProgramPacketIdentifiersMap)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe (Maybe [Int]))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"klvDataPids" Parser (Maybe (Maybe [Int])) -> Maybe [Int] -> Parser (Maybe [Int])
forall a. Parser (Maybe a) -> a -> Parser a
Core..!= Maybe [Int]
forall a. Monoid a => a
Prelude.mempty)
            Parser
  (Maybe [Int]
   -> Maybe [Int]
   -> Maybe Int
   -> Maybe [Int]
   -> Maybe Int
   -> MultiplexProgramPacketIdentifiersMap)
-> Parser (Maybe [Int])
-> Parser
     (Maybe [Int]
      -> Maybe Int
      -> Maybe [Int]
      -> Maybe Int
      -> MultiplexProgramPacketIdentifiersMap)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe (Maybe [Int]))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"dvbSubPids" Parser (Maybe (Maybe [Int])) -> Maybe [Int] -> Parser (Maybe [Int])
forall a. Parser (Maybe a) -> a -> Parser a
Core..!= Maybe [Int]
forall a. Monoid a => a
Prelude.mempty)
            Parser
  (Maybe [Int]
   -> Maybe Int
   -> Maybe [Int]
   -> Maybe Int
   -> MultiplexProgramPacketIdentifiersMap)
-> Parser (Maybe [Int])
-> Parser
     (Maybe Int
      -> Maybe [Int]
      -> Maybe Int
      -> MultiplexProgramPacketIdentifiersMap)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe (Maybe [Int]))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"scte27Pids" Parser (Maybe (Maybe [Int])) -> Maybe [Int] -> Parser (Maybe [Int])
forall a. Parser (Maybe a) -> a -> Parser a
Core..!= Maybe [Int]
forall a. Monoid a => a
Prelude.mempty)
            Parser
  (Maybe Int
   -> Maybe [Int]
   -> Maybe Int
   -> MultiplexProgramPacketIdentifiersMap)
-> Parser (Maybe Int)
-> Parser
     (Maybe [Int] -> Maybe Int -> MultiplexProgramPacketIdentifiersMap)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"etvPlatformPid")
            Parser
  (Maybe [Int] -> Maybe Int -> MultiplexProgramPacketIdentifiersMap)
-> Parser (Maybe [Int])
-> Parser (Maybe Int -> MultiplexProgramPacketIdentifiersMap)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe (Maybe [Int]))
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"audioPids" Parser (Maybe (Maybe [Int])) -> Maybe [Int] -> Parser (Maybe [Int])
forall a. Parser (Maybe a) -> a -> Parser a
Core..!= Maybe [Int]
forall a. Monoid a => a
Prelude.mempty)
            Parser (Maybe Int -> MultiplexProgramPacketIdentifiersMap)
-> Parser (Maybe Int)
-> Parser MultiplexProgramPacketIdentifiersMap
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Int)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"dvbTeletextPid")
      )

instance
  Prelude.Hashable
    MultiplexProgramPacketIdentifiersMap

instance
  Prelude.NFData
    MultiplexProgramPacketIdentifiersMap