{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# 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.DescribeMultiplex
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Gets details about a multiplex.
module Amazonka.MediaLive.DescribeMultiplex
  ( -- * Creating a Request
    DescribeMultiplex (..),
    newDescribeMultiplex,

    -- * Request Lenses
    describeMultiplex_multiplexId,

    -- * Destructuring the Response
    DescribeMultiplexResponse (..),
    newDescribeMultiplexResponse,

    -- * Response Lenses
    describeMultiplexResponse_arn,
    describeMultiplexResponse_availabilityZones,
    describeMultiplexResponse_destinations,
    describeMultiplexResponse_id,
    describeMultiplexResponse_multiplexSettings,
    describeMultiplexResponse_name,
    describeMultiplexResponse_pipelinesRunningCount,
    describeMultiplexResponse_programCount,
    describeMultiplexResponse_state,
    describeMultiplexResponse_tags,
    describeMultiplexResponse_httpStatus,
  )
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
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | Placeholder documentation for DescribeMultiplexRequest
--
-- /See:/ 'newDescribeMultiplex' smart constructor.
data DescribeMultiplex = DescribeMultiplex'
  { -- | The ID of the multiplex.
    DescribeMultiplex -> Text
multiplexId :: Prelude.Text
  }
  deriving (DescribeMultiplex -> DescribeMultiplex -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeMultiplex -> DescribeMultiplex -> Bool
$c/= :: DescribeMultiplex -> DescribeMultiplex -> Bool
== :: DescribeMultiplex -> DescribeMultiplex -> Bool
$c== :: DescribeMultiplex -> DescribeMultiplex -> Bool
Prelude.Eq, ReadPrec [DescribeMultiplex]
ReadPrec DescribeMultiplex
Int -> ReadS DescribeMultiplex
ReadS [DescribeMultiplex]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeMultiplex]
$creadListPrec :: ReadPrec [DescribeMultiplex]
readPrec :: ReadPrec DescribeMultiplex
$creadPrec :: ReadPrec DescribeMultiplex
readList :: ReadS [DescribeMultiplex]
$creadList :: ReadS [DescribeMultiplex]
readsPrec :: Int -> ReadS DescribeMultiplex
$creadsPrec :: Int -> ReadS DescribeMultiplex
Prelude.Read, Int -> DescribeMultiplex -> ShowS
[DescribeMultiplex] -> ShowS
DescribeMultiplex -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeMultiplex] -> ShowS
$cshowList :: [DescribeMultiplex] -> ShowS
show :: DescribeMultiplex -> String
$cshow :: DescribeMultiplex -> String
showsPrec :: Int -> DescribeMultiplex -> ShowS
$cshowsPrec :: Int -> DescribeMultiplex -> ShowS
Prelude.Show, forall x. Rep DescribeMultiplex x -> DescribeMultiplex
forall x. DescribeMultiplex -> Rep DescribeMultiplex x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeMultiplex x -> DescribeMultiplex
$cfrom :: forall x. DescribeMultiplex -> Rep DescribeMultiplex x
Prelude.Generic)

-- |
-- Create a value of 'DescribeMultiplex' 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:
--
-- 'multiplexId', 'describeMultiplex_multiplexId' - The ID of the multiplex.
newDescribeMultiplex ::
  -- | 'multiplexId'
  Prelude.Text ->
  DescribeMultiplex
newDescribeMultiplex :: Text -> DescribeMultiplex
newDescribeMultiplex Text
pMultiplexId_ =
  DescribeMultiplex' {$sel:multiplexId:DescribeMultiplex' :: Text
multiplexId = Text
pMultiplexId_}

-- | The ID of the multiplex.
describeMultiplex_multiplexId :: Lens.Lens' DescribeMultiplex Prelude.Text
describeMultiplex_multiplexId :: Lens' DescribeMultiplex Text
describeMultiplex_multiplexId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMultiplex' {Text
multiplexId :: Text
$sel:multiplexId:DescribeMultiplex' :: DescribeMultiplex -> Text
multiplexId} -> Text
multiplexId) (\s :: DescribeMultiplex
s@DescribeMultiplex' {} Text
a -> DescribeMultiplex
s {$sel:multiplexId:DescribeMultiplex' :: Text
multiplexId = Text
a} :: DescribeMultiplex)

instance Core.AWSRequest DescribeMultiplex where
  type
    AWSResponse DescribeMultiplex =
      DescribeMultiplexResponse
  request :: (Service -> Service)
-> DescribeMultiplex -> Request DescribeMultiplex
request Service -> Service
overrides =
    forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
  response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeMultiplex
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse DescribeMultiplex)))
response =
    forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
      ( \Int
s ResponseHeaders
h Object
x ->
          Maybe Text
-> Maybe [Text]
-> Maybe [MultiplexOutputDestination]
-> Maybe Text
-> Maybe MultiplexSettings
-> Maybe Text
-> Maybe Int
-> Maybe Int
-> Maybe MultiplexState
-> Maybe (HashMap Text Text)
-> Int
-> DescribeMultiplexResponse
DescribeMultiplexResponse'
            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"arn")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
                            forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"availabilityZones"
                            forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
                        )
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"destinations" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"id")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"multiplexSettings")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"name")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"pipelinesRunningCount")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"programCount")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"state")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"tags" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

instance Prelude.Hashable DescribeMultiplex where
  hashWithSalt :: Int -> DescribeMultiplex -> Int
hashWithSalt Int
_salt DescribeMultiplex' {Text
multiplexId :: Text
$sel:multiplexId:DescribeMultiplex' :: DescribeMultiplex -> Text
..} =
    Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
multiplexId

instance Prelude.NFData DescribeMultiplex where
  rnf :: DescribeMultiplex -> ()
rnf DescribeMultiplex' {Text
multiplexId :: Text
$sel:multiplexId:DescribeMultiplex' :: DescribeMultiplex -> Text
..} = forall a. NFData a => a -> ()
Prelude.rnf Text
multiplexId

instance Data.ToHeaders DescribeMultiplex where
  toHeaders :: DescribeMultiplex -> ResponseHeaders
toHeaders =
    forall a b. a -> b -> a
Prelude.const
      ( forall a. Monoid a => [a] -> a
Prelude.mconcat
          [ HeaderName
"Content-Type"
              forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Data.ToPath DescribeMultiplex where
  toPath :: DescribeMultiplex -> ByteString
toPath DescribeMultiplex' {Text
multiplexId :: Text
$sel:multiplexId:DescribeMultiplex' :: DescribeMultiplex -> Text
..} =
    forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ByteString
"/prod/multiplexes/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
multiplexId]

instance Data.ToQuery DescribeMultiplex where
  toQuery :: DescribeMultiplex -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

-- | Placeholder documentation for DescribeMultiplexResponse
--
-- /See:/ 'newDescribeMultiplexResponse' smart constructor.
data DescribeMultiplexResponse = DescribeMultiplexResponse'
  { -- | The unique arn of the multiplex.
    DescribeMultiplexResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
    -- | A list of availability zones for the multiplex.
    DescribeMultiplexResponse -> Maybe [Text]
availabilityZones :: Prelude.Maybe [Prelude.Text],
    -- | A list of the multiplex output destinations.
    DescribeMultiplexResponse -> Maybe [MultiplexOutputDestination]
destinations :: Prelude.Maybe [MultiplexOutputDestination],
    -- | The unique id of the multiplex.
    DescribeMultiplexResponse -> Maybe Text
id :: Prelude.Maybe Prelude.Text,
    -- | Configuration for a multiplex event.
    DescribeMultiplexResponse -> Maybe MultiplexSettings
multiplexSettings :: Prelude.Maybe MultiplexSettings,
    -- | The name of the multiplex.
    DescribeMultiplexResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
    -- | The number of currently healthy pipelines.
    DescribeMultiplexResponse -> Maybe Int
pipelinesRunningCount :: Prelude.Maybe Prelude.Int,
    -- | The number of programs in the multiplex.
    DescribeMultiplexResponse -> Maybe Int
programCount :: Prelude.Maybe Prelude.Int,
    -- | The current state of the multiplex.
    DescribeMultiplexResponse -> Maybe MultiplexState
state :: Prelude.Maybe MultiplexState,
    -- | A collection of key-value pairs.
    DescribeMultiplexResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
    -- | The response's http status code.
    DescribeMultiplexResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (DescribeMultiplexResponse -> DescribeMultiplexResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeMultiplexResponse -> DescribeMultiplexResponse -> Bool
$c/= :: DescribeMultiplexResponse -> DescribeMultiplexResponse -> Bool
== :: DescribeMultiplexResponse -> DescribeMultiplexResponse -> Bool
$c== :: DescribeMultiplexResponse -> DescribeMultiplexResponse -> Bool
Prelude.Eq, ReadPrec [DescribeMultiplexResponse]
ReadPrec DescribeMultiplexResponse
Int -> ReadS DescribeMultiplexResponse
ReadS [DescribeMultiplexResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeMultiplexResponse]
$creadListPrec :: ReadPrec [DescribeMultiplexResponse]
readPrec :: ReadPrec DescribeMultiplexResponse
$creadPrec :: ReadPrec DescribeMultiplexResponse
readList :: ReadS [DescribeMultiplexResponse]
$creadList :: ReadS [DescribeMultiplexResponse]
readsPrec :: Int -> ReadS DescribeMultiplexResponse
$creadsPrec :: Int -> ReadS DescribeMultiplexResponse
Prelude.Read, Int -> DescribeMultiplexResponse -> ShowS
[DescribeMultiplexResponse] -> ShowS
DescribeMultiplexResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeMultiplexResponse] -> ShowS
$cshowList :: [DescribeMultiplexResponse] -> ShowS
show :: DescribeMultiplexResponse -> String
$cshow :: DescribeMultiplexResponse -> String
showsPrec :: Int -> DescribeMultiplexResponse -> ShowS
$cshowsPrec :: Int -> DescribeMultiplexResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeMultiplexResponse x -> DescribeMultiplexResponse
forall x.
DescribeMultiplexResponse -> Rep DescribeMultiplexResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeMultiplexResponse x -> DescribeMultiplexResponse
$cfrom :: forall x.
DescribeMultiplexResponse -> Rep DescribeMultiplexResponse x
Prelude.Generic)

-- |
-- Create a value of 'DescribeMultiplexResponse' 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:
--
-- 'arn', 'describeMultiplexResponse_arn' - The unique arn of the multiplex.
--
-- 'availabilityZones', 'describeMultiplexResponse_availabilityZones' - A list of availability zones for the multiplex.
--
-- 'destinations', 'describeMultiplexResponse_destinations' - A list of the multiplex output destinations.
--
-- 'id', 'describeMultiplexResponse_id' - The unique id of the multiplex.
--
-- 'multiplexSettings', 'describeMultiplexResponse_multiplexSettings' - Configuration for a multiplex event.
--
-- 'name', 'describeMultiplexResponse_name' - The name of the multiplex.
--
-- 'pipelinesRunningCount', 'describeMultiplexResponse_pipelinesRunningCount' - The number of currently healthy pipelines.
--
-- 'programCount', 'describeMultiplexResponse_programCount' - The number of programs in the multiplex.
--
-- 'state', 'describeMultiplexResponse_state' - The current state of the multiplex.
--
-- 'tags', 'describeMultiplexResponse_tags' - A collection of key-value pairs.
--
-- 'httpStatus', 'describeMultiplexResponse_httpStatus' - The response's http status code.
newDescribeMultiplexResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  DescribeMultiplexResponse
newDescribeMultiplexResponse :: Int -> DescribeMultiplexResponse
newDescribeMultiplexResponse Int
pHttpStatus_ =
  DescribeMultiplexResponse'
    { $sel:arn:DescribeMultiplexResponse' :: Maybe Text
arn = forall a. Maybe a
Prelude.Nothing,
      $sel:availabilityZones:DescribeMultiplexResponse' :: Maybe [Text]
availabilityZones = forall a. Maybe a
Prelude.Nothing,
      $sel:destinations:DescribeMultiplexResponse' :: Maybe [MultiplexOutputDestination]
destinations = forall a. Maybe a
Prelude.Nothing,
      $sel:id:DescribeMultiplexResponse' :: Maybe Text
id = forall a. Maybe a
Prelude.Nothing,
      $sel:multiplexSettings:DescribeMultiplexResponse' :: Maybe MultiplexSettings
multiplexSettings = forall a. Maybe a
Prelude.Nothing,
      $sel:name:DescribeMultiplexResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
      $sel:pipelinesRunningCount:DescribeMultiplexResponse' :: Maybe Int
pipelinesRunningCount = forall a. Maybe a
Prelude.Nothing,
      $sel:programCount:DescribeMultiplexResponse' :: Maybe Int
programCount = forall a. Maybe a
Prelude.Nothing,
      $sel:state:DescribeMultiplexResponse' :: Maybe MultiplexState
state = forall a. Maybe a
Prelude.Nothing,
      $sel:tags:DescribeMultiplexResponse' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:DescribeMultiplexResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | The unique arn of the multiplex.
describeMultiplexResponse_arn :: Lens.Lens' DescribeMultiplexResponse (Prelude.Maybe Prelude.Text)
describeMultiplexResponse_arn :: Lens' DescribeMultiplexResponse (Maybe Text)
describeMultiplexResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMultiplexResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: DescribeMultiplexResponse
s@DescribeMultiplexResponse' {} Maybe Text
a -> DescribeMultiplexResponse
s {$sel:arn:DescribeMultiplexResponse' :: Maybe Text
arn = Maybe Text
a} :: DescribeMultiplexResponse)

-- | A list of availability zones for the multiplex.
describeMultiplexResponse_availabilityZones :: Lens.Lens' DescribeMultiplexResponse (Prelude.Maybe [Prelude.Text])
describeMultiplexResponse_availabilityZones :: Lens' DescribeMultiplexResponse (Maybe [Text])
describeMultiplexResponse_availabilityZones = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMultiplexResponse' {Maybe [Text]
availabilityZones :: Maybe [Text]
$sel:availabilityZones:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Maybe [Text]
availabilityZones} -> Maybe [Text]
availabilityZones) (\s :: DescribeMultiplexResponse
s@DescribeMultiplexResponse' {} Maybe [Text]
a -> DescribeMultiplexResponse
s {$sel:availabilityZones:DescribeMultiplexResponse' :: Maybe [Text]
availabilityZones = Maybe [Text]
a} :: DescribeMultiplexResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. 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 forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | A list of the multiplex output destinations.
describeMultiplexResponse_destinations :: Lens.Lens' DescribeMultiplexResponse (Prelude.Maybe [MultiplexOutputDestination])
describeMultiplexResponse_destinations :: Lens'
  DescribeMultiplexResponse (Maybe [MultiplexOutputDestination])
describeMultiplexResponse_destinations = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMultiplexResponse' {Maybe [MultiplexOutputDestination]
destinations :: Maybe [MultiplexOutputDestination]
$sel:destinations:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Maybe [MultiplexOutputDestination]
destinations} -> Maybe [MultiplexOutputDestination]
destinations) (\s :: DescribeMultiplexResponse
s@DescribeMultiplexResponse' {} Maybe [MultiplexOutputDestination]
a -> DescribeMultiplexResponse
s {$sel:destinations:DescribeMultiplexResponse' :: Maybe [MultiplexOutputDestination]
destinations = Maybe [MultiplexOutputDestination]
a} :: DescribeMultiplexResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. 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 forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | The unique id of the multiplex.
describeMultiplexResponse_id :: Lens.Lens' DescribeMultiplexResponse (Prelude.Maybe Prelude.Text)
describeMultiplexResponse_id :: Lens' DescribeMultiplexResponse (Maybe Text)
describeMultiplexResponse_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMultiplexResponse' {Maybe Text
id :: Maybe Text
$sel:id:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Maybe Text
id} -> Maybe Text
id) (\s :: DescribeMultiplexResponse
s@DescribeMultiplexResponse' {} Maybe Text
a -> DescribeMultiplexResponse
s {$sel:id:DescribeMultiplexResponse' :: Maybe Text
id = Maybe Text
a} :: DescribeMultiplexResponse)

-- | Configuration for a multiplex event.
describeMultiplexResponse_multiplexSettings :: Lens.Lens' DescribeMultiplexResponse (Prelude.Maybe MultiplexSettings)
describeMultiplexResponse_multiplexSettings :: Lens' DescribeMultiplexResponse (Maybe MultiplexSettings)
describeMultiplexResponse_multiplexSettings = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMultiplexResponse' {Maybe MultiplexSettings
multiplexSettings :: Maybe MultiplexSettings
$sel:multiplexSettings:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Maybe MultiplexSettings
multiplexSettings} -> Maybe MultiplexSettings
multiplexSettings) (\s :: DescribeMultiplexResponse
s@DescribeMultiplexResponse' {} Maybe MultiplexSettings
a -> DescribeMultiplexResponse
s {$sel:multiplexSettings:DescribeMultiplexResponse' :: Maybe MultiplexSettings
multiplexSettings = Maybe MultiplexSettings
a} :: DescribeMultiplexResponse)

-- | The name of the multiplex.
describeMultiplexResponse_name :: Lens.Lens' DescribeMultiplexResponse (Prelude.Maybe Prelude.Text)
describeMultiplexResponse_name :: Lens' DescribeMultiplexResponse (Maybe Text)
describeMultiplexResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMultiplexResponse' {Maybe Text
name :: Maybe Text
$sel:name:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: DescribeMultiplexResponse
s@DescribeMultiplexResponse' {} Maybe Text
a -> DescribeMultiplexResponse
s {$sel:name:DescribeMultiplexResponse' :: Maybe Text
name = Maybe Text
a} :: DescribeMultiplexResponse)

-- | The number of currently healthy pipelines.
describeMultiplexResponse_pipelinesRunningCount :: Lens.Lens' DescribeMultiplexResponse (Prelude.Maybe Prelude.Int)
describeMultiplexResponse_pipelinesRunningCount :: Lens' DescribeMultiplexResponse (Maybe Int)
describeMultiplexResponse_pipelinesRunningCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMultiplexResponse' {Maybe Int
pipelinesRunningCount :: Maybe Int
$sel:pipelinesRunningCount:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Maybe Int
pipelinesRunningCount} -> Maybe Int
pipelinesRunningCount) (\s :: DescribeMultiplexResponse
s@DescribeMultiplexResponse' {} Maybe Int
a -> DescribeMultiplexResponse
s {$sel:pipelinesRunningCount:DescribeMultiplexResponse' :: Maybe Int
pipelinesRunningCount = Maybe Int
a} :: DescribeMultiplexResponse)

-- | The number of programs in the multiplex.
describeMultiplexResponse_programCount :: Lens.Lens' DescribeMultiplexResponse (Prelude.Maybe Prelude.Int)
describeMultiplexResponse_programCount :: Lens' DescribeMultiplexResponse (Maybe Int)
describeMultiplexResponse_programCount = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMultiplexResponse' {Maybe Int
programCount :: Maybe Int
$sel:programCount:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Maybe Int
programCount} -> Maybe Int
programCount) (\s :: DescribeMultiplexResponse
s@DescribeMultiplexResponse' {} Maybe Int
a -> DescribeMultiplexResponse
s {$sel:programCount:DescribeMultiplexResponse' :: Maybe Int
programCount = Maybe Int
a} :: DescribeMultiplexResponse)

-- | The current state of the multiplex.
describeMultiplexResponse_state :: Lens.Lens' DescribeMultiplexResponse (Prelude.Maybe MultiplexState)
describeMultiplexResponse_state :: Lens' DescribeMultiplexResponse (Maybe MultiplexState)
describeMultiplexResponse_state = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMultiplexResponse' {Maybe MultiplexState
state :: Maybe MultiplexState
$sel:state:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Maybe MultiplexState
state} -> Maybe MultiplexState
state) (\s :: DescribeMultiplexResponse
s@DescribeMultiplexResponse' {} Maybe MultiplexState
a -> DescribeMultiplexResponse
s {$sel:state:DescribeMultiplexResponse' :: Maybe MultiplexState
state = Maybe MultiplexState
a} :: DescribeMultiplexResponse)

-- | A collection of key-value pairs.
describeMultiplexResponse_tags :: Lens.Lens' DescribeMultiplexResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
describeMultiplexResponse_tags :: Lens' DescribeMultiplexResponse (Maybe (HashMap Text Text))
describeMultiplexResponse_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMultiplexResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: DescribeMultiplexResponse
s@DescribeMultiplexResponse' {} Maybe (HashMap Text Text)
a -> DescribeMultiplexResponse
s {$sel:tags:DescribeMultiplexResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: DescribeMultiplexResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. 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 forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | The response's http status code.
describeMultiplexResponse_httpStatus :: Lens.Lens' DescribeMultiplexResponse Prelude.Int
describeMultiplexResponse_httpStatus :: Lens' DescribeMultiplexResponse Int
describeMultiplexResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeMultiplexResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeMultiplexResponse
s@DescribeMultiplexResponse' {} Int
a -> DescribeMultiplexResponse
s {$sel:httpStatus:DescribeMultiplexResponse' :: Int
httpStatus = Int
a} :: DescribeMultiplexResponse)

instance Prelude.NFData DescribeMultiplexResponse where
  rnf :: DescribeMultiplexResponse -> ()
rnf DescribeMultiplexResponse' {Int
Maybe Int
Maybe [Text]
Maybe [MultiplexOutputDestination]
Maybe Text
Maybe (HashMap Text Text)
Maybe MultiplexSettings
Maybe MultiplexState
httpStatus :: Int
tags :: Maybe (HashMap Text Text)
state :: Maybe MultiplexState
programCount :: Maybe Int
pipelinesRunningCount :: Maybe Int
name :: Maybe Text
multiplexSettings :: Maybe MultiplexSettings
id :: Maybe Text
destinations :: Maybe [MultiplexOutputDestination]
availabilityZones :: Maybe [Text]
arn :: Maybe Text
$sel:httpStatus:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Int
$sel:tags:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Maybe (HashMap Text Text)
$sel:state:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Maybe MultiplexState
$sel:programCount:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Maybe Int
$sel:pipelinesRunningCount:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Maybe Int
$sel:name:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Maybe Text
$sel:multiplexSettings:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Maybe MultiplexSettings
$sel:id:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Maybe Text
$sel:destinations:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Maybe [MultiplexOutputDestination]
$sel:availabilityZones:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Maybe [Text]
$sel:arn:DescribeMultiplexResponse' :: DescribeMultiplexResponse -> Maybe Text
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
arn
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
availabilityZones
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [MultiplexOutputDestination]
destinations
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
id
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe MultiplexSettings
multiplexSettings
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
name
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
pipelinesRunningCount
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
programCount
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe MultiplexState
state
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus