{-# 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.MediaPackage.UpdateOriginEndpoint
-- 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)
--
-- Updates an existing OriginEndpoint.
module Amazonka.MediaPackage.UpdateOriginEndpoint
  ( -- * Creating a Request
    UpdateOriginEndpoint (..),
    newUpdateOriginEndpoint,

    -- * Request Lenses
    updateOriginEndpoint_whitelist,
    updateOriginEndpoint_hlsPackage,
    updateOriginEndpoint_manifestName,
    updateOriginEndpoint_authorization,
    updateOriginEndpoint_startoverWindowSeconds,
    updateOriginEndpoint_dashPackage,
    updateOriginEndpoint_mssPackage,
    updateOriginEndpoint_timeDelaySeconds,
    updateOriginEndpoint_cmafPackage,
    updateOriginEndpoint_description,
    updateOriginEndpoint_origination,
    updateOriginEndpoint_id,

    -- * Destructuring the Response
    UpdateOriginEndpointResponse (..),
    newUpdateOriginEndpointResponse,

    -- * Response Lenses
    updateOriginEndpointResponse_whitelist,
    updateOriginEndpointResponse_hlsPackage,
    updateOriginEndpointResponse_arn,
    updateOriginEndpointResponse_manifestName,
    updateOriginEndpointResponse_url,
    updateOriginEndpointResponse_authorization,
    updateOriginEndpointResponse_channelId,
    updateOriginEndpointResponse_startoverWindowSeconds,
    updateOriginEndpointResponse_dashPackage,
    updateOriginEndpointResponse_mssPackage,
    updateOriginEndpointResponse_id,
    updateOriginEndpointResponse_timeDelaySeconds,
    updateOriginEndpointResponse_cmafPackage,
    updateOriginEndpointResponse_description,
    updateOriginEndpointResponse_tags,
    updateOriginEndpointResponse_origination,
    updateOriginEndpointResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import Amazonka.MediaPackage.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | Configuration parameters used to update an existing OriginEndpoint.
--
-- /See:/ 'newUpdateOriginEndpoint' smart constructor.
data UpdateOriginEndpoint = UpdateOriginEndpoint'
  { -- | A list of source IP CIDR blocks that will be allowed to access the
    -- OriginEndpoint.
    UpdateOriginEndpoint -> Maybe [Text]
whitelist :: Prelude.Maybe [Prelude.Text],
    UpdateOriginEndpoint -> Maybe HlsPackage
hlsPackage :: Prelude.Maybe HlsPackage,
    -- | A short string that will be appended to the end of the Endpoint URL.
    UpdateOriginEndpoint -> Maybe Text
manifestName :: Prelude.Maybe Prelude.Text,
    UpdateOriginEndpoint -> Maybe Authorization
authorization :: Prelude.Maybe Authorization,
    -- | Maximum duration (in seconds) of content to retain for startover
    -- playback. If not specified, startover playback will be disabled for the
    -- OriginEndpoint.
    UpdateOriginEndpoint -> Maybe Int
startoverWindowSeconds :: Prelude.Maybe Prelude.Int,
    UpdateOriginEndpoint -> Maybe DashPackage
dashPackage :: Prelude.Maybe DashPackage,
    UpdateOriginEndpoint -> Maybe MssPackage
mssPackage :: Prelude.Maybe MssPackage,
    -- | Amount of delay (in seconds) to enforce on the playback of live content.
    -- If not specified, there will be no time delay in effect for the
    -- OriginEndpoint.
    UpdateOriginEndpoint -> Maybe Int
timeDelaySeconds :: Prelude.Maybe Prelude.Int,
    UpdateOriginEndpoint -> Maybe CmafPackageCreateOrUpdateParameters
cmafPackage :: Prelude.Maybe CmafPackageCreateOrUpdateParameters,
    -- | A short text description of the OriginEndpoint.
    UpdateOriginEndpoint -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
    -- | Control whether origination of video is allowed for this OriginEndpoint.
    -- If set to ALLOW, the OriginEndpoint may by requested, pursuant to any
    -- other form of access control. If set to DENY, the OriginEndpoint may not
    -- be requested. This can be helpful for Live to VOD harvesting, or for
    -- temporarily disabling origination
    UpdateOriginEndpoint -> Maybe Origination
origination :: Prelude.Maybe Origination,
    -- | The ID of the OriginEndpoint to update.
    UpdateOriginEndpoint -> Text
id :: Prelude.Text
  }
  deriving (UpdateOriginEndpoint -> UpdateOriginEndpoint -> Bool
(UpdateOriginEndpoint -> UpdateOriginEndpoint -> Bool)
-> (UpdateOriginEndpoint -> UpdateOriginEndpoint -> Bool)
-> Eq UpdateOriginEndpoint
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateOriginEndpoint -> UpdateOriginEndpoint -> Bool
$c/= :: UpdateOriginEndpoint -> UpdateOriginEndpoint -> Bool
== :: UpdateOriginEndpoint -> UpdateOriginEndpoint -> Bool
$c== :: UpdateOriginEndpoint -> UpdateOriginEndpoint -> Bool
Prelude.Eq, ReadPrec [UpdateOriginEndpoint]
ReadPrec UpdateOriginEndpoint
Int -> ReadS UpdateOriginEndpoint
ReadS [UpdateOriginEndpoint]
(Int -> ReadS UpdateOriginEndpoint)
-> ReadS [UpdateOriginEndpoint]
-> ReadPrec UpdateOriginEndpoint
-> ReadPrec [UpdateOriginEndpoint]
-> Read UpdateOriginEndpoint
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateOriginEndpoint]
$creadListPrec :: ReadPrec [UpdateOriginEndpoint]
readPrec :: ReadPrec UpdateOriginEndpoint
$creadPrec :: ReadPrec UpdateOriginEndpoint
readList :: ReadS [UpdateOriginEndpoint]
$creadList :: ReadS [UpdateOriginEndpoint]
readsPrec :: Int -> ReadS UpdateOriginEndpoint
$creadsPrec :: Int -> ReadS UpdateOriginEndpoint
Prelude.Read, Int -> UpdateOriginEndpoint -> ShowS
[UpdateOriginEndpoint] -> ShowS
UpdateOriginEndpoint -> String
(Int -> UpdateOriginEndpoint -> ShowS)
-> (UpdateOriginEndpoint -> String)
-> ([UpdateOriginEndpoint] -> ShowS)
-> Show UpdateOriginEndpoint
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateOriginEndpoint] -> ShowS
$cshowList :: [UpdateOriginEndpoint] -> ShowS
show :: UpdateOriginEndpoint -> String
$cshow :: UpdateOriginEndpoint -> String
showsPrec :: Int -> UpdateOriginEndpoint -> ShowS
$cshowsPrec :: Int -> UpdateOriginEndpoint -> ShowS
Prelude.Show, (forall x. UpdateOriginEndpoint -> Rep UpdateOriginEndpoint x)
-> (forall x. Rep UpdateOriginEndpoint x -> UpdateOriginEndpoint)
-> Generic UpdateOriginEndpoint
forall x. Rep UpdateOriginEndpoint x -> UpdateOriginEndpoint
forall x. UpdateOriginEndpoint -> Rep UpdateOriginEndpoint x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateOriginEndpoint x -> UpdateOriginEndpoint
$cfrom :: forall x. UpdateOriginEndpoint -> Rep UpdateOriginEndpoint x
Prelude.Generic)

-- |
-- Create a value of 'UpdateOriginEndpoint' 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:
--
-- 'whitelist', 'updateOriginEndpoint_whitelist' - A list of source IP CIDR blocks that will be allowed to access the
-- OriginEndpoint.
--
-- 'hlsPackage', 'updateOriginEndpoint_hlsPackage' - Undocumented member.
--
-- 'manifestName', 'updateOriginEndpoint_manifestName' - A short string that will be appended to the end of the Endpoint URL.
--
-- 'authorization', 'updateOriginEndpoint_authorization' - Undocumented member.
--
-- 'startoverWindowSeconds', 'updateOriginEndpoint_startoverWindowSeconds' - Maximum duration (in seconds) of content to retain for startover
-- playback. If not specified, startover playback will be disabled for the
-- OriginEndpoint.
--
-- 'dashPackage', 'updateOriginEndpoint_dashPackage' - Undocumented member.
--
-- 'mssPackage', 'updateOriginEndpoint_mssPackage' - Undocumented member.
--
-- 'timeDelaySeconds', 'updateOriginEndpoint_timeDelaySeconds' - Amount of delay (in seconds) to enforce on the playback of live content.
-- If not specified, there will be no time delay in effect for the
-- OriginEndpoint.
--
-- 'cmafPackage', 'updateOriginEndpoint_cmafPackage' - Undocumented member.
--
-- 'description', 'updateOriginEndpoint_description' - A short text description of the OriginEndpoint.
--
-- 'origination', 'updateOriginEndpoint_origination' - Control whether origination of video is allowed for this OriginEndpoint.
-- If set to ALLOW, the OriginEndpoint may by requested, pursuant to any
-- other form of access control. If set to DENY, the OriginEndpoint may not
-- be requested. This can be helpful for Live to VOD harvesting, or for
-- temporarily disabling origination
--
-- 'id', 'updateOriginEndpoint_id' - The ID of the OriginEndpoint to update.
newUpdateOriginEndpoint ::
  -- | 'id'
  Prelude.Text ->
  UpdateOriginEndpoint
newUpdateOriginEndpoint :: Text -> UpdateOriginEndpoint
newUpdateOriginEndpoint Text
pId_ =
  UpdateOriginEndpoint' :: Maybe [Text]
-> Maybe HlsPackage
-> Maybe Text
-> Maybe Authorization
-> Maybe Int
-> Maybe DashPackage
-> Maybe MssPackage
-> Maybe Int
-> Maybe CmafPackageCreateOrUpdateParameters
-> Maybe Text
-> Maybe Origination
-> Text
-> UpdateOriginEndpoint
UpdateOriginEndpoint'
    { $sel:whitelist:UpdateOriginEndpoint' :: Maybe [Text]
whitelist = Maybe [Text]
forall a. Maybe a
Prelude.Nothing,
      $sel:hlsPackage:UpdateOriginEndpoint' :: Maybe HlsPackage
hlsPackage = Maybe HlsPackage
forall a. Maybe a
Prelude.Nothing,
      $sel:manifestName:UpdateOriginEndpoint' :: Maybe Text
manifestName = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:authorization:UpdateOriginEndpoint' :: Maybe Authorization
authorization = Maybe Authorization
forall a. Maybe a
Prelude.Nothing,
      $sel:startoverWindowSeconds:UpdateOriginEndpoint' :: Maybe Int
startoverWindowSeconds = Maybe Int
forall a. Maybe a
Prelude.Nothing,
      $sel:dashPackage:UpdateOriginEndpoint' :: Maybe DashPackage
dashPackage = Maybe DashPackage
forall a. Maybe a
Prelude.Nothing,
      $sel:mssPackage:UpdateOriginEndpoint' :: Maybe MssPackage
mssPackage = Maybe MssPackage
forall a. Maybe a
Prelude.Nothing,
      $sel:timeDelaySeconds:UpdateOriginEndpoint' :: Maybe Int
timeDelaySeconds = Maybe Int
forall a. Maybe a
Prelude.Nothing,
      $sel:cmafPackage:UpdateOriginEndpoint' :: Maybe CmafPackageCreateOrUpdateParameters
cmafPackage = Maybe CmafPackageCreateOrUpdateParameters
forall a. Maybe a
Prelude.Nothing,
      $sel:description:UpdateOriginEndpoint' :: Maybe Text
description = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:origination:UpdateOriginEndpoint' :: Maybe Origination
origination = Maybe Origination
forall a. Maybe a
Prelude.Nothing,
      $sel:id:UpdateOriginEndpoint' :: Text
id = Text
pId_
    }

-- | A list of source IP CIDR blocks that will be allowed to access the
-- OriginEndpoint.
updateOriginEndpoint_whitelist :: Lens.Lens' UpdateOriginEndpoint (Prelude.Maybe [Prelude.Text])
updateOriginEndpoint_whitelist :: (Maybe [Text] -> f (Maybe [Text]))
-> UpdateOriginEndpoint -> f UpdateOriginEndpoint
updateOriginEndpoint_whitelist = (UpdateOriginEndpoint -> Maybe [Text])
-> (UpdateOriginEndpoint -> Maybe [Text] -> UpdateOriginEndpoint)
-> Lens
     UpdateOriginEndpoint
     UpdateOriginEndpoint
     (Maybe [Text])
     (Maybe [Text])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpoint' {Maybe [Text]
whitelist :: Maybe [Text]
$sel:whitelist:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe [Text]
whitelist} -> Maybe [Text]
whitelist) (\s :: UpdateOriginEndpoint
s@UpdateOriginEndpoint' {} Maybe [Text]
a -> UpdateOriginEndpoint
s {$sel:whitelist:UpdateOriginEndpoint' :: Maybe [Text]
whitelist = Maybe [Text]
a} :: UpdateOriginEndpoint) ((Maybe [Text] -> f (Maybe [Text]))
 -> UpdateOriginEndpoint -> f UpdateOriginEndpoint)
-> ((Maybe [Text] -> f (Maybe [Text]))
    -> Maybe [Text] -> f (Maybe [Text]))
-> (Maybe [Text] -> f (Maybe [Text]))
-> UpdateOriginEndpoint
-> f UpdateOriginEndpoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Text] [Text] [Text] [Text]
-> Iso (Maybe [Text]) (Maybe [Text]) (Maybe [Text]) (Maybe [Text])
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 [Text] [Text] [Text] [Text]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | Undocumented member.
updateOriginEndpoint_hlsPackage :: Lens.Lens' UpdateOriginEndpoint (Prelude.Maybe HlsPackage)
updateOriginEndpoint_hlsPackage :: (Maybe HlsPackage -> f (Maybe HlsPackage))
-> UpdateOriginEndpoint -> f UpdateOriginEndpoint
updateOriginEndpoint_hlsPackage = (UpdateOriginEndpoint -> Maybe HlsPackage)
-> (UpdateOriginEndpoint
    -> Maybe HlsPackage -> UpdateOriginEndpoint)
-> Lens
     UpdateOriginEndpoint
     UpdateOriginEndpoint
     (Maybe HlsPackage)
     (Maybe HlsPackage)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpoint' {Maybe HlsPackage
hlsPackage :: Maybe HlsPackage
$sel:hlsPackage:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe HlsPackage
hlsPackage} -> Maybe HlsPackage
hlsPackage) (\s :: UpdateOriginEndpoint
s@UpdateOriginEndpoint' {} Maybe HlsPackage
a -> UpdateOriginEndpoint
s {$sel:hlsPackage:UpdateOriginEndpoint' :: Maybe HlsPackage
hlsPackage = Maybe HlsPackage
a} :: UpdateOriginEndpoint)

-- | A short string that will be appended to the end of the Endpoint URL.
updateOriginEndpoint_manifestName :: Lens.Lens' UpdateOriginEndpoint (Prelude.Maybe Prelude.Text)
updateOriginEndpoint_manifestName :: (Maybe Text -> f (Maybe Text))
-> UpdateOriginEndpoint -> f UpdateOriginEndpoint
updateOriginEndpoint_manifestName = (UpdateOriginEndpoint -> Maybe Text)
-> (UpdateOriginEndpoint -> Maybe Text -> UpdateOriginEndpoint)
-> Lens
     UpdateOriginEndpoint UpdateOriginEndpoint (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpoint' {Maybe Text
manifestName :: Maybe Text
$sel:manifestName:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe Text
manifestName} -> Maybe Text
manifestName) (\s :: UpdateOriginEndpoint
s@UpdateOriginEndpoint' {} Maybe Text
a -> UpdateOriginEndpoint
s {$sel:manifestName:UpdateOriginEndpoint' :: Maybe Text
manifestName = Maybe Text
a} :: UpdateOriginEndpoint)

-- | Undocumented member.
updateOriginEndpoint_authorization :: Lens.Lens' UpdateOriginEndpoint (Prelude.Maybe Authorization)
updateOriginEndpoint_authorization :: (Maybe Authorization -> f (Maybe Authorization))
-> UpdateOriginEndpoint -> f UpdateOriginEndpoint
updateOriginEndpoint_authorization = (UpdateOriginEndpoint -> Maybe Authorization)
-> (UpdateOriginEndpoint
    -> Maybe Authorization -> UpdateOriginEndpoint)
-> Lens
     UpdateOriginEndpoint
     UpdateOriginEndpoint
     (Maybe Authorization)
     (Maybe Authorization)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpoint' {Maybe Authorization
authorization :: Maybe Authorization
$sel:authorization:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe Authorization
authorization} -> Maybe Authorization
authorization) (\s :: UpdateOriginEndpoint
s@UpdateOriginEndpoint' {} Maybe Authorization
a -> UpdateOriginEndpoint
s {$sel:authorization:UpdateOriginEndpoint' :: Maybe Authorization
authorization = Maybe Authorization
a} :: UpdateOriginEndpoint)

-- | Maximum duration (in seconds) of content to retain for startover
-- playback. If not specified, startover playback will be disabled for the
-- OriginEndpoint.
updateOriginEndpoint_startoverWindowSeconds :: Lens.Lens' UpdateOriginEndpoint (Prelude.Maybe Prelude.Int)
updateOriginEndpoint_startoverWindowSeconds :: (Maybe Int -> f (Maybe Int))
-> UpdateOriginEndpoint -> f UpdateOriginEndpoint
updateOriginEndpoint_startoverWindowSeconds = (UpdateOriginEndpoint -> Maybe Int)
-> (UpdateOriginEndpoint -> Maybe Int -> UpdateOriginEndpoint)
-> Lens
     UpdateOriginEndpoint UpdateOriginEndpoint (Maybe Int) (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpoint' {Maybe Int
startoverWindowSeconds :: Maybe Int
$sel:startoverWindowSeconds:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe Int
startoverWindowSeconds} -> Maybe Int
startoverWindowSeconds) (\s :: UpdateOriginEndpoint
s@UpdateOriginEndpoint' {} Maybe Int
a -> UpdateOriginEndpoint
s {$sel:startoverWindowSeconds:UpdateOriginEndpoint' :: Maybe Int
startoverWindowSeconds = Maybe Int
a} :: UpdateOriginEndpoint)

-- | Undocumented member.
updateOriginEndpoint_dashPackage :: Lens.Lens' UpdateOriginEndpoint (Prelude.Maybe DashPackage)
updateOriginEndpoint_dashPackage :: (Maybe DashPackage -> f (Maybe DashPackage))
-> UpdateOriginEndpoint -> f UpdateOriginEndpoint
updateOriginEndpoint_dashPackage = (UpdateOriginEndpoint -> Maybe DashPackage)
-> (UpdateOriginEndpoint
    -> Maybe DashPackage -> UpdateOriginEndpoint)
-> Lens
     UpdateOriginEndpoint
     UpdateOriginEndpoint
     (Maybe DashPackage)
     (Maybe DashPackage)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpoint' {Maybe DashPackage
dashPackage :: Maybe DashPackage
$sel:dashPackage:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe DashPackage
dashPackage} -> Maybe DashPackage
dashPackage) (\s :: UpdateOriginEndpoint
s@UpdateOriginEndpoint' {} Maybe DashPackage
a -> UpdateOriginEndpoint
s {$sel:dashPackage:UpdateOriginEndpoint' :: Maybe DashPackage
dashPackage = Maybe DashPackage
a} :: UpdateOriginEndpoint)

-- | Undocumented member.
updateOriginEndpoint_mssPackage :: Lens.Lens' UpdateOriginEndpoint (Prelude.Maybe MssPackage)
updateOriginEndpoint_mssPackage :: (Maybe MssPackage -> f (Maybe MssPackage))
-> UpdateOriginEndpoint -> f UpdateOriginEndpoint
updateOriginEndpoint_mssPackage = (UpdateOriginEndpoint -> Maybe MssPackage)
-> (UpdateOriginEndpoint
    -> Maybe MssPackage -> UpdateOriginEndpoint)
-> Lens
     UpdateOriginEndpoint
     UpdateOriginEndpoint
     (Maybe MssPackage)
     (Maybe MssPackage)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpoint' {Maybe MssPackage
mssPackage :: Maybe MssPackage
$sel:mssPackage:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe MssPackage
mssPackage} -> Maybe MssPackage
mssPackage) (\s :: UpdateOriginEndpoint
s@UpdateOriginEndpoint' {} Maybe MssPackage
a -> UpdateOriginEndpoint
s {$sel:mssPackage:UpdateOriginEndpoint' :: Maybe MssPackage
mssPackage = Maybe MssPackage
a} :: UpdateOriginEndpoint)

-- | Amount of delay (in seconds) to enforce on the playback of live content.
-- If not specified, there will be no time delay in effect for the
-- OriginEndpoint.
updateOriginEndpoint_timeDelaySeconds :: Lens.Lens' UpdateOriginEndpoint (Prelude.Maybe Prelude.Int)
updateOriginEndpoint_timeDelaySeconds :: (Maybe Int -> f (Maybe Int))
-> UpdateOriginEndpoint -> f UpdateOriginEndpoint
updateOriginEndpoint_timeDelaySeconds = (UpdateOriginEndpoint -> Maybe Int)
-> (UpdateOriginEndpoint -> Maybe Int -> UpdateOriginEndpoint)
-> Lens
     UpdateOriginEndpoint UpdateOriginEndpoint (Maybe Int) (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpoint' {Maybe Int
timeDelaySeconds :: Maybe Int
$sel:timeDelaySeconds:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe Int
timeDelaySeconds} -> Maybe Int
timeDelaySeconds) (\s :: UpdateOriginEndpoint
s@UpdateOriginEndpoint' {} Maybe Int
a -> UpdateOriginEndpoint
s {$sel:timeDelaySeconds:UpdateOriginEndpoint' :: Maybe Int
timeDelaySeconds = Maybe Int
a} :: UpdateOriginEndpoint)

-- | Undocumented member.
updateOriginEndpoint_cmafPackage :: Lens.Lens' UpdateOriginEndpoint (Prelude.Maybe CmafPackageCreateOrUpdateParameters)
updateOriginEndpoint_cmafPackage :: (Maybe CmafPackageCreateOrUpdateParameters
 -> f (Maybe CmafPackageCreateOrUpdateParameters))
-> UpdateOriginEndpoint -> f UpdateOriginEndpoint
updateOriginEndpoint_cmafPackage = (UpdateOriginEndpoint -> Maybe CmafPackageCreateOrUpdateParameters)
-> (UpdateOriginEndpoint
    -> Maybe CmafPackageCreateOrUpdateParameters
    -> UpdateOriginEndpoint)
-> Lens
     UpdateOriginEndpoint
     UpdateOriginEndpoint
     (Maybe CmafPackageCreateOrUpdateParameters)
     (Maybe CmafPackageCreateOrUpdateParameters)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpoint' {Maybe CmafPackageCreateOrUpdateParameters
cmafPackage :: Maybe CmafPackageCreateOrUpdateParameters
$sel:cmafPackage:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe CmafPackageCreateOrUpdateParameters
cmafPackage} -> Maybe CmafPackageCreateOrUpdateParameters
cmafPackage) (\s :: UpdateOriginEndpoint
s@UpdateOriginEndpoint' {} Maybe CmafPackageCreateOrUpdateParameters
a -> UpdateOriginEndpoint
s {$sel:cmafPackage:UpdateOriginEndpoint' :: Maybe CmafPackageCreateOrUpdateParameters
cmafPackage = Maybe CmafPackageCreateOrUpdateParameters
a} :: UpdateOriginEndpoint)

-- | A short text description of the OriginEndpoint.
updateOriginEndpoint_description :: Lens.Lens' UpdateOriginEndpoint (Prelude.Maybe Prelude.Text)
updateOriginEndpoint_description :: (Maybe Text -> f (Maybe Text))
-> UpdateOriginEndpoint -> f UpdateOriginEndpoint
updateOriginEndpoint_description = (UpdateOriginEndpoint -> Maybe Text)
-> (UpdateOriginEndpoint -> Maybe Text -> UpdateOriginEndpoint)
-> Lens
     UpdateOriginEndpoint UpdateOriginEndpoint (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpoint' {Maybe Text
description :: Maybe Text
$sel:description:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe Text
description} -> Maybe Text
description) (\s :: UpdateOriginEndpoint
s@UpdateOriginEndpoint' {} Maybe Text
a -> UpdateOriginEndpoint
s {$sel:description:UpdateOriginEndpoint' :: Maybe Text
description = Maybe Text
a} :: UpdateOriginEndpoint)

-- | Control whether origination of video is allowed for this OriginEndpoint.
-- If set to ALLOW, the OriginEndpoint may by requested, pursuant to any
-- other form of access control. If set to DENY, the OriginEndpoint may not
-- be requested. This can be helpful for Live to VOD harvesting, or for
-- temporarily disabling origination
updateOriginEndpoint_origination :: Lens.Lens' UpdateOriginEndpoint (Prelude.Maybe Origination)
updateOriginEndpoint_origination :: (Maybe Origination -> f (Maybe Origination))
-> UpdateOriginEndpoint -> f UpdateOriginEndpoint
updateOriginEndpoint_origination = (UpdateOriginEndpoint -> Maybe Origination)
-> (UpdateOriginEndpoint
    -> Maybe Origination -> UpdateOriginEndpoint)
-> Lens
     UpdateOriginEndpoint
     UpdateOriginEndpoint
     (Maybe Origination)
     (Maybe Origination)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpoint' {Maybe Origination
origination :: Maybe Origination
$sel:origination:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe Origination
origination} -> Maybe Origination
origination) (\s :: UpdateOriginEndpoint
s@UpdateOriginEndpoint' {} Maybe Origination
a -> UpdateOriginEndpoint
s {$sel:origination:UpdateOriginEndpoint' :: Maybe Origination
origination = Maybe Origination
a} :: UpdateOriginEndpoint)

-- | The ID of the OriginEndpoint to update.
updateOriginEndpoint_id :: Lens.Lens' UpdateOriginEndpoint Prelude.Text
updateOriginEndpoint_id :: (Text -> f Text) -> UpdateOriginEndpoint -> f UpdateOriginEndpoint
updateOriginEndpoint_id = (UpdateOriginEndpoint -> Text)
-> (UpdateOriginEndpoint -> Text -> UpdateOriginEndpoint)
-> Lens UpdateOriginEndpoint UpdateOriginEndpoint Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpoint' {Text
id :: Text
$sel:id:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Text
id} -> Text
id) (\s :: UpdateOriginEndpoint
s@UpdateOriginEndpoint' {} Text
a -> UpdateOriginEndpoint
s {$sel:id:UpdateOriginEndpoint' :: Text
id = Text
a} :: UpdateOriginEndpoint)

instance Core.AWSRequest UpdateOriginEndpoint where
  type
    AWSResponse UpdateOriginEndpoint =
      UpdateOriginEndpointResponse
  request :: UpdateOriginEndpoint -> Request UpdateOriginEndpoint
request = Service -> UpdateOriginEndpoint -> Request UpdateOriginEndpoint
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.putJSON Service
defaultService
  response :: Logger
-> Service
-> Proxy UpdateOriginEndpoint
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse UpdateOriginEndpoint)))
response =
    (Int
 -> ResponseHeaders
 -> Object
 -> Either String (AWSResponse UpdateOriginEndpoint))
-> Logger
-> Service
-> Proxy UpdateOriginEndpoint
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse UpdateOriginEndpoint)))
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
      ( \Int
s ResponseHeaders
h Object
x ->
          Maybe [Text]
-> Maybe HlsPackage
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Authorization
-> Maybe Text
-> Maybe Int
-> Maybe DashPackage
-> Maybe MssPackage
-> Maybe Text
-> Maybe Int
-> Maybe CmafPackage
-> Maybe Text
-> Maybe (HashMap Text Text)
-> Maybe Origination
-> Int
-> UpdateOriginEndpointResponse
UpdateOriginEndpointResponse'
            (Maybe [Text]
 -> Maybe HlsPackage
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe Authorization
 -> Maybe Text
 -> Maybe Int
 -> Maybe DashPackage
 -> Maybe MssPackage
 -> Maybe Text
 -> Maybe Int
 -> Maybe CmafPackage
 -> Maybe Text
 -> Maybe (HashMap Text Text)
 -> Maybe Origination
 -> Int
 -> UpdateOriginEndpointResponse)
-> Either String (Maybe [Text])
-> Either
     String
     (Maybe HlsPackage
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Authorization
      -> Maybe Text
      -> Maybe Int
      -> Maybe DashPackage
      -> Maybe MssPackage
      -> Maybe Text
      -> Maybe Int
      -> Maybe CmafPackage
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> Maybe Origination
      -> Int
      -> UpdateOriginEndpointResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Either String (Maybe (Maybe [Text]))
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"whitelist" Either String (Maybe (Maybe [Text]))
-> Maybe [Text] -> Either String (Maybe [Text])
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ Maybe [Text]
forall a. Monoid a => a
Prelude.mempty)
            Either
  String
  (Maybe HlsPackage
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Authorization
   -> Maybe Text
   -> Maybe Int
   -> Maybe DashPackage
   -> Maybe MssPackage
   -> Maybe Text
   -> Maybe Int
   -> Maybe CmafPackage
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> Maybe Origination
   -> Int
   -> UpdateOriginEndpointResponse)
-> Either String (Maybe HlsPackage)
-> Either
     String
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe Authorization
      -> Maybe Text
      -> Maybe Int
      -> Maybe DashPackage
      -> Maybe MssPackage
      -> Maybe Text
      -> Maybe Int
      -> Maybe CmafPackage
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> Maybe Origination
      -> Int
      -> UpdateOriginEndpointResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe HlsPackage)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"hlsPackage")
            Either
  String
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe Authorization
   -> Maybe Text
   -> Maybe Int
   -> Maybe DashPackage
   -> Maybe MssPackage
   -> Maybe Text
   -> Maybe Int
   -> Maybe CmafPackage
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> Maybe Origination
   -> Int
   -> UpdateOriginEndpointResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Text
      -> Maybe Text
      -> Maybe Authorization
      -> Maybe Text
      -> Maybe Int
      -> Maybe DashPackage
      -> Maybe MssPackage
      -> Maybe Text
      -> Maybe Int
      -> Maybe CmafPackage
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> Maybe Origination
      -> Int
      -> UpdateOriginEndpointResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"arn")
            Either
  String
  (Maybe Text
   -> Maybe Text
   -> Maybe Authorization
   -> Maybe Text
   -> Maybe Int
   -> Maybe DashPackage
   -> Maybe MssPackage
   -> Maybe Text
   -> Maybe Int
   -> Maybe CmafPackage
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> Maybe Origination
   -> Int
   -> UpdateOriginEndpointResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Text
      -> Maybe Authorization
      -> Maybe Text
      -> Maybe Int
      -> Maybe DashPackage
      -> Maybe MssPackage
      -> Maybe Text
      -> Maybe Int
      -> Maybe CmafPackage
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> Maybe Origination
      -> Int
      -> UpdateOriginEndpointResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"manifestName")
            Either
  String
  (Maybe Text
   -> Maybe Authorization
   -> Maybe Text
   -> Maybe Int
   -> Maybe DashPackage
   -> Maybe MssPackage
   -> Maybe Text
   -> Maybe Int
   -> Maybe CmafPackage
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> Maybe Origination
   -> Int
   -> UpdateOriginEndpointResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Authorization
      -> Maybe Text
      -> Maybe Int
      -> Maybe DashPackage
      -> Maybe MssPackage
      -> Maybe Text
      -> Maybe Int
      -> Maybe CmafPackage
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> Maybe Origination
      -> Int
      -> UpdateOriginEndpointResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"url")
            Either
  String
  (Maybe Authorization
   -> Maybe Text
   -> Maybe Int
   -> Maybe DashPackage
   -> Maybe MssPackage
   -> Maybe Text
   -> Maybe Int
   -> Maybe CmafPackage
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> Maybe Origination
   -> Int
   -> UpdateOriginEndpointResponse)
-> Either String (Maybe Authorization)
-> Either
     String
     (Maybe Text
      -> Maybe Int
      -> Maybe DashPackage
      -> Maybe MssPackage
      -> Maybe Text
      -> Maybe Int
      -> Maybe CmafPackage
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> Maybe Origination
      -> Int
      -> UpdateOriginEndpointResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Authorization)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"authorization")
            Either
  String
  (Maybe Text
   -> Maybe Int
   -> Maybe DashPackage
   -> Maybe MssPackage
   -> Maybe Text
   -> Maybe Int
   -> Maybe CmafPackage
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> Maybe Origination
   -> Int
   -> UpdateOriginEndpointResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Int
      -> Maybe DashPackage
      -> Maybe MssPackage
      -> Maybe Text
      -> Maybe Int
      -> Maybe CmafPackage
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> Maybe Origination
      -> Int
      -> UpdateOriginEndpointResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"channelId")
            Either
  String
  (Maybe Int
   -> Maybe DashPackage
   -> Maybe MssPackage
   -> Maybe Text
   -> Maybe Int
   -> Maybe CmafPackage
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> Maybe Origination
   -> Int
   -> UpdateOriginEndpointResponse)
-> Either String (Maybe Int)
-> Either
     String
     (Maybe DashPackage
      -> Maybe MssPackage
      -> Maybe Text
      -> Maybe Int
      -> Maybe CmafPackage
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> Maybe Origination
      -> Int
      -> UpdateOriginEndpointResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Int)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"startoverWindowSeconds")
            Either
  String
  (Maybe DashPackage
   -> Maybe MssPackage
   -> Maybe Text
   -> Maybe Int
   -> Maybe CmafPackage
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> Maybe Origination
   -> Int
   -> UpdateOriginEndpointResponse)
-> Either String (Maybe DashPackage)
-> Either
     String
     (Maybe MssPackage
      -> Maybe Text
      -> Maybe Int
      -> Maybe CmafPackage
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> Maybe Origination
      -> Int
      -> UpdateOriginEndpointResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe DashPackage)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"dashPackage")
            Either
  String
  (Maybe MssPackage
   -> Maybe Text
   -> Maybe Int
   -> Maybe CmafPackage
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> Maybe Origination
   -> Int
   -> UpdateOriginEndpointResponse)
-> Either String (Maybe MssPackage)
-> Either
     String
     (Maybe Text
      -> Maybe Int
      -> Maybe CmafPackage
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> Maybe Origination
      -> Int
      -> UpdateOriginEndpointResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe MssPackage)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"mssPackage")
            Either
  String
  (Maybe Text
   -> Maybe Int
   -> Maybe CmafPackage
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> Maybe Origination
   -> Int
   -> UpdateOriginEndpointResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Int
      -> Maybe CmafPackage
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> Maybe Origination
      -> Int
      -> UpdateOriginEndpointResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"id")
            Either
  String
  (Maybe Int
   -> Maybe CmafPackage
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> Maybe Origination
   -> Int
   -> UpdateOriginEndpointResponse)
-> Either String (Maybe Int)
-> Either
     String
     (Maybe CmafPackage
      -> Maybe Text
      -> Maybe (HashMap Text Text)
      -> Maybe Origination
      -> Int
      -> UpdateOriginEndpointResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Int)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"timeDelaySeconds")
            Either
  String
  (Maybe CmafPackage
   -> Maybe Text
   -> Maybe (HashMap Text Text)
   -> Maybe Origination
   -> Int
   -> UpdateOriginEndpointResponse)
-> Either String (Maybe CmafPackage)
-> Either
     String
     (Maybe Text
      -> Maybe (HashMap Text Text)
      -> Maybe Origination
      -> Int
      -> UpdateOriginEndpointResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe CmafPackage)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"cmafPackage")
            Either
  String
  (Maybe Text
   -> Maybe (HashMap Text Text)
   -> Maybe Origination
   -> Int
   -> UpdateOriginEndpointResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe (HashMap Text Text)
      -> Maybe Origination -> Int -> UpdateOriginEndpointResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"description")
            Either
  String
  (Maybe (HashMap Text Text)
   -> Maybe Origination -> Int -> UpdateOriginEndpointResponse)
-> Either String (Maybe (HashMap Text Text))
-> Either
     String (Maybe Origination -> Int -> UpdateOriginEndpointResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe (Maybe (HashMap Text Text)))
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"tags" Either String (Maybe (Maybe (HashMap Text Text)))
-> Maybe (HashMap Text Text)
-> Either String (Maybe (HashMap Text Text))
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ Maybe (HashMap Text Text)
forall a. Monoid a => a
Prelude.mempty)
            Either
  String (Maybe Origination -> Int -> UpdateOriginEndpointResponse)
-> Either String (Maybe Origination)
-> Either String (Int -> UpdateOriginEndpointResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Origination)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"origination")
            Either String (Int -> UpdateOriginEndpointResponse)
-> Either String Int -> Either String UpdateOriginEndpointResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Int -> Either String Int
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

instance Prelude.Hashable UpdateOriginEndpoint

instance Prelude.NFData UpdateOriginEndpoint

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

instance Core.ToJSON UpdateOriginEndpoint where
  toJSON :: UpdateOriginEndpoint -> Value
toJSON UpdateOriginEndpoint' {Maybe Int
Maybe [Text]
Maybe Text
Maybe Authorization
Maybe Origination
Maybe MssPackage
Maybe HlsPackage
Maybe CmafPackageCreateOrUpdateParameters
Maybe DashPackage
Text
id :: Text
origination :: Maybe Origination
description :: Maybe Text
cmafPackage :: Maybe CmafPackageCreateOrUpdateParameters
timeDelaySeconds :: Maybe Int
mssPackage :: Maybe MssPackage
dashPackage :: Maybe DashPackage
startoverWindowSeconds :: Maybe Int
authorization :: Maybe Authorization
manifestName :: Maybe Text
hlsPackage :: Maybe HlsPackage
whitelist :: Maybe [Text]
$sel:id:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Text
$sel:origination:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe Origination
$sel:description:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe Text
$sel:cmafPackage:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe CmafPackageCreateOrUpdateParameters
$sel:timeDelaySeconds:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe Int
$sel:mssPackage:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe MssPackage
$sel:dashPackage:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe DashPackage
$sel:startoverWindowSeconds:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe Int
$sel:authorization:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe Authorization
$sel:manifestName:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe Text
$sel:hlsPackage:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe HlsPackage
$sel:whitelist:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe [Text]
..} =
    [Pair] -> Value
Core.object
      ( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Text
"whitelist" Text -> [Text] -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) ([Text] -> Pair) -> Maybe [Text] -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
whitelist,
            (Text
"hlsPackage" Text -> HlsPackage -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (HlsPackage -> Pair) -> Maybe HlsPackage -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe HlsPackage
hlsPackage,
            (Text
"manifestName" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Text -> Pair) -> Maybe Text -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
manifestName,
            (Text
"authorization" Text -> Authorization -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Authorization -> Pair) -> Maybe Authorization -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Authorization
authorization,
            (Text
"startoverWindowSeconds" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              (Int -> Pair) -> Maybe Int -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Int
startoverWindowSeconds,
            (Text
"dashPackage" Text -> DashPackage -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (DashPackage -> Pair) -> Maybe DashPackage -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe DashPackage
dashPackage,
            (Text
"mssPackage" Text -> MssPackage -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (MssPackage -> Pair) -> Maybe MssPackage -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe MssPackage
mssPackage,
            (Text
"timeDelaySeconds" Text -> Int -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              (Int -> Pair) -> Maybe Int -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Int
timeDelaySeconds,
            (Text
"cmafPackage" Text -> CmafPackageCreateOrUpdateParameters -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (CmafPackageCreateOrUpdateParameters -> Pair)
-> Maybe CmafPackageCreateOrUpdateParameters -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe CmafPackageCreateOrUpdateParameters
cmafPackage,
            (Text
"description" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Text -> Pair) -> Maybe Text -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
description,
            (Text
"origination" Text -> Origination -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Origination -> Pair) -> Maybe Origination -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Origination
origination
          ]
      )

instance Core.ToPath UpdateOriginEndpoint where
  toPath :: UpdateOriginEndpoint -> ByteString
toPath UpdateOriginEndpoint' {Maybe Int
Maybe [Text]
Maybe Text
Maybe Authorization
Maybe Origination
Maybe MssPackage
Maybe HlsPackage
Maybe CmafPackageCreateOrUpdateParameters
Maybe DashPackage
Text
id :: Text
origination :: Maybe Origination
description :: Maybe Text
cmafPackage :: Maybe CmafPackageCreateOrUpdateParameters
timeDelaySeconds :: Maybe Int
mssPackage :: Maybe MssPackage
dashPackage :: Maybe DashPackage
startoverWindowSeconds :: Maybe Int
authorization :: Maybe Authorization
manifestName :: Maybe Text
hlsPackage :: Maybe HlsPackage
whitelist :: Maybe [Text]
$sel:id:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Text
$sel:origination:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe Origination
$sel:description:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe Text
$sel:cmafPackage:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe CmafPackageCreateOrUpdateParameters
$sel:timeDelaySeconds:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe Int
$sel:mssPackage:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe MssPackage
$sel:dashPackage:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe DashPackage
$sel:startoverWindowSeconds:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe Int
$sel:authorization:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe Authorization
$sel:manifestName:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe Text
$sel:hlsPackage:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe HlsPackage
$sel:whitelist:UpdateOriginEndpoint' :: UpdateOriginEndpoint -> Maybe [Text]
..} =
    [ByteString] -> ByteString
forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ByteString
"/origin_endpoints/", Text -> ByteString
forall a. ToByteString a => a -> ByteString
Core.toBS Text
id]

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

-- | /See:/ 'newUpdateOriginEndpointResponse' smart constructor.
data UpdateOriginEndpointResponse = UpdateOriginEndpointResponse'
  { -- | A list of source IP CIDR blocks that will be allowed to access the
    -- OriginEndpoint.
    UpdateOriginEndpointResponse -> Maybe [Text]
whitelist :: Prelude.Maybe [Prelude.Text],
    UpdateOriginEndpointResponse -> Maybe HlsPackage
hlsPackage :: Prelude.Maybe HlsPackage,
    -- | The Amazon Resource Name (ARN) assigned to the OriginEndpoint.
    UpdateOriginEndpointResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
    -- | A short string appended to the end of the OriginEndpoint URL.
    UpdateOriginEndpointResponse -> Maybe Text
manifestName :: Prelude.Maybe Prelude.Text,
    -- | The URL of the packaged OriginEndpoint for consumption.
    UpdateOriginEndpointResponse -> Maybe Text
url :: Prelude.Maybe Prelude.Text,
    UpdateOriginEndpointResponse -> Maybe Authorization
authorization :: Prelude.Maybe Authorization,
    -- | The ID of the Channel the OriginEndpoint is associated with.
    UpdateOriginEndpointResponse -> Maybe Text
channelId :: Prelude.Maybe Prelude.Text,
    -- | Maximum duration (seconds) of content to retain for startover playback.
    -- If not specified, startover playback will be disabled for the
    -- OriginEndpoint.
    UpdateOriginEndpointResponse -> Maybe Int
startoverWindowSeconds :: Prelude.Maybe Prelude.Int,
    UpdateOriginEndpointResponse -> Maybe DashPackage
dashPackage :: Prelude.Maybe DashPackage,
    UpdateOriginEndpointResponse -> Maybe MssPackage
mssPackage :: Prelude.Maybe MssPackage,
    -- | The ID of the OriginEndpoint.
    UpdateOriginEndpointResponse -> Maybe Text
id :: Prelude.Maybe Prelude.Text,
    -- | Amount of delay (seconds) to enforce on the playback of live content. If
    -- not specified, there will be no time delay in effect for the
    -- OriginEndpoint.
    UpdateOriginEndpointResponse -> Maybe Int
timeDelaySeconds :: Prelude.Maybe Prelude.Int,
    UpdateOriginEndpointResponse -> Maybe CmafPackage
cmafPackage :: Prelude.Maybe CmafPackage,
    -- | A short text description of the OriginEndpoint.
    UpdateOriginEndpointResponse -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
    UpdateOriginEndpointResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
    -- | Control whether origination of video is allowed for this OriginEndpoint.
    -- If set to ALLOW, the OriginEndpoint may by requested, pursuant to any
    -- other form of access control. If set to DENY, the OriginEndpoint may not
    -- be requested. This can be helpful for Live to VOD harvesting, or for
    -- temporarily disabling origination
    UpdateOriginEndpointResponse -> Maybe Origination
origination :: Prelude.Maybe Origination,
    -- | The response's http status code.
    UpdateOriginEndpointResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (UpdateOriginEndpointResponse
-> UpdateOriginEndpointResponse -> Bool
(UpdateOriginEndpointResponse
 -> UpdateOriginEndpointResponse -> Bool)
-> (UpdateOriginEndpointResponse
    -> UpdateOriginEndpointResponse -> Bool)
-> Eq UpdateOriginEndpointResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateOriginEndpointResponse
-> UpdateOriginEndpointResponse -> Bool
$c/= :: UpdateOriginEndpointResponse
-> UpdateOriginEndpointResponse -> Bool
== :: UpdateOriginEndpointResponse
-> UpdateOriginEndpointResponse -> Bool
$c== :: UpdateOriginEndpointResponse
-> UpdateOriginEndpointResponse -> Bool
Prelude.Eq, ReadPrec [UpdateOriginEndpointResponse]
ReadPrec UpdateOriginEndpointResponse
Int -> ReadS UpdateOriginEndpointResponse
ReadS [UpdateOriginEndpointResponse]
(Int -> ReadS UpdateOriginEndpointResponse)
-> ReadS [UpdateOriginEndpointResponse]
-> ReadPrec UpdateOriginEndpointResponse
-> ReadPrec [UpdateOriginEndpointResponse]
-> Read UpdateOriginEndpointResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateOriginEndpointResponse]
$creadListPrec :: ReadPrec [UpdateOriginEndpointResponse]
readPrec :: ReadPrec UpdateOriginEndpointResponse
$creadPrec :: ReadPrec UpdateOriginEndpointResponse
readList :: ReadS [UpdateOriginEndpointResponse]
$creadList :: ReadS [UpdateOriginEndpointResponse]
readsPrec :: Int -> ReadS UpdateOriginEndpointResponse
$creadsPrec :: Int -> ReadS UpdateOriginEndpointResponse
Prelude.Read, Int -> UpdateOriginEndpointResponse -> ShowS
[UpdateOriginEndpointResponse] -> ShowS
UpdateOriginEndpointResponse -> String
(Int -> UpdateOriginEndpointResponse -> ShowS)
-> (UpdateOriginEndpointResponse -> String)
-> ([UpdateOriginEndpointResponse] -> ShowS)
-> Show UpdateOriginEndpointResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateOriginEndpointResponse] -> ShowS
$cshowList :: [UpdateOriginEndpointResponse] -> ShowS
show :: UpdateOriginEndpointResponse -> String
$cshow :: UpdateOriginEndpointResponse -> String
showsPrec :: Int -> UpdateOriginEndpointResponse -> ShowS
$cshowsPrec :: Int -> UpdateOriginEndpointResponse -> ShowS
Prelude.Show, (forall x.
 UpdateOriginEndpointResponse -> Rep UpdateOriginEndpointResponse x)
-> (forall x.
    Rep UpdateOriginEndpointResponse x -> UpdateOriginEndpointResponse)
-> Generic UpdateOriginEndpointResponse
forall x.
Rep UpdateOriginEndpointResponse x -> UpdateOriginEndpointResponse
forall x.
UpdateOriginEndpointResponse -> Rep UpdateOriginEndpointResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateOriginEndpointResponse x -> UpdateOriginEndpointResponse
$cfrom :: forall x.
UpdateOriginEndpointResponse -> Rep UpdateOriginEndpointResponse x
Prelude.Generic)

-- |
-- Create a value of 'UpdateOriginEndpointResponse' 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:
--
-- 'whitelist', 'updateOriginEndpointResponse_whitelist' - A list of source IP CIDR blocks that will be allowed to access the
-- OriginEndpoint.
--
-- 'hlsPackage', 'updateOriginEndpointResponse_hlsPackage' - Undocumented member.
--
-- 'arn', 'updateOriginEndpointResponse_arn' - The Amazon Resource Name (ARN) assigned to the OriginEndpoint.
--
-- 'manifestName', 'updateOriginEndpointResponse_manifestName' - A short string appended to the end of the OriginEndpoint URL.
--
-- 'url', 'updateOriginEndpointResponse_url' - The URL of the packaged OriginEndpoint for consumption.
--
-- 'authorization', 'updateOriginEndpointResponse_authorization' - Undocumented member.
--
-- 'channelId', 'updateOriginEndpointResponse_channelId' - The ID of the Channel the OriginEndpoint is associated with.
--
-- 'startoverWindowSeconds', 'updateOriginEndpointResponse_startoverWindowSeconds' - Maximum duration (seconds) of content to retain for startover playback.
-- If not specified, startover playback will be disabled for the
-- OriginEndpoint.
--
-- 'dashPackage', 'updateOriginEndpointResponse_dashPackage' - Undocumented member.
--
-- 'mssPackage', 'updateOriginEndpointResponse_mssPackage' - Undocumented member.
--
-- 'id', 'updateOriginEndpointResponse_id' - The ID of the OriginEndpoint.
--
-- 'timeDelaySeconds', 'updateOriginEndpointResponse_timeDelaySeconds' - Amount of delay (seconds) to enforce on the playback of live content. If
-- not specified, there will be no time delay in effect for the
-- OriginEndpoint.
--
-- 'cmafPackage', 'updateOriginEndpointResponse_cmafPackage' - Undocumented member.
--
-- 'description', 'updateOriginEndpointResponse_description' - A short text description of the OriginEndpoint.
--
-- 'tags', 'updateOriginEndpointResponse_tags' - Undocumented member.
--
-- 'origination', 'updateOriginEndpointResponse_origination' - Control whether origination of video is allowed for this OriginEndpoint.
-- If set to ALLOW, the OriginEndpoint may by requested, pursuant to any
-- other form of access control. If set to DENY, the OriginEndpoint may not
-- be requested. This can be helpful for Live to VOD harvesting, or for
-- temporarily disabling origination
--
-- 'httpStatus', 'updateOriginEndpointResponse_httpStatus' - The response's http status code.
newUpdateOriginEndpointResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  UpdateOriginEndpointResponse
newUpdateOriginEndpointResponse :: Int -> UpdateOriginEndpointResponse
newUpdateOriginEndpointResponse Int
pHttpStatus_ =
  UpdateOriginEndpointResponse' :: Maybe [Text]
-> Maybe HlsPackage
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Authorization
-> Maybe Text
-> Maybe Int
-> Maybe DashPackage
-> Maybe MssPackage
-> Maybe Text
-> Maybe Int
-> Maybe CmafPackage
-> Maybe Text
-> Maybe (HashMap Text Text)
-> Maybe Origination
-> Int
-> UpdateOriginEndpointResponse
UpdateOriginEndpointResponse'
    { $sel:whitelist:UpdateOriginEndpointResponse' :: Maybe [Text]
whitelist =
        Maybe [Text]
forall a. Maybe a
Prelude.Nothing,
      $sel:hlsPackage:UpdateOriginEndpointResponse' :: Maybe HlsPackage
hlsPackage = Maybe HlsPackage
forall a. Maybe a
Prelude.Nothing,
      $sel:arn:UpdateOriginEndpointResponse' :: Maybe Text
arn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:manifestName:UpdateOriginEndpointResponse' :: Maybe Text
manifestName = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:url:UpdateOriginEndpointResponse' :: Maybe Text
url = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:authorization:UpdateOriginEndpointResponse' :: Maybe Authorization
authorization = Maybe Authorization
forall a. Maybe a
Prelude.Nothing,
      $sel:channelId:UpdateOriginEndpointResponse' :: Maybe Text
channelId = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:startoverWindowSeconds:UpdateOriginEndpointResponse' :: Maybe Int
startoverWindowSeconds = Maybe Int
forall a. Maybe a
Prelude.Nothing,
      $sel:dashPackage:UpdateOriginEndpointResponse' :: Maybe DashPackage
dashPackage = Maybe DashPackage
forall a. Maybe a
Prelude.Nothing,
      $sel:mssPackage:UpdateOriginEndpointResponse' :: Maybe MssPackage
mssPackage = Maybe MssPackage
forall a. Maybe a
Prelude.Nothing,
      $sel:id:UpdateOriginEndpointResponse' :: Maybe Text
id = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:timeDelaySeconds:UpdateOriginEndpointResponse' :: Maybe Int
timeDelaySeconds = Maybe Int
forall a. Maybe a
Prelude.Nothing,
      $sel:cmafPackage:UpdateOriginEndpointResponse' :: Maybe CmafPackage
cmafPackage = Maybe CmafPackage
forall a. Maybe a
Prelude.Nothing,
      $sel:description:UpdateOriginEndpointResponse' :: Maybe Text
description = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:tags:UpdateOriginEndpointResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
forall a. Maybe a
Prelude.Nothing,
      $sel:origination:UpdateOriginEndpointResponse' :: Maybe Origination
origination = Maybe Origination
forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:UpdateOriginEndpointResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | A list of source IP CIDR blocks that will be allowed to access the
-- OriginEndpoint.
updateOriginEndpointResponse_whitelist :: Lens.Lens' UpdateOriginEndpointResponse (Prelude.Maybe [Prelude.Text])
updateOriginEndpointResponse_whitelist :: (Maybe [Text] -> f (Maybe [Text]))
-> UpdateOriginEndpointResponse -> f UpdateOriginEndpointResponse
updateOriginEndpointResponse_whitelist = (UpdateOriginEndpointResponse -> Maybe [Text])
-> (UpdateOriginEndpointResponse
    -> Maybe [Text] -> UpdateOriginEndpointResponse)
-> Lens
     UpdateOriginEndpointResponse
     UpdateOriginEndpointResponse
     (Maybe [Text])
     (Maybe [Text])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpointResponse' {Maybe [Text]
whitelist :: Maybe [Text]
$sel:whitelist:UpdateOriginEndpointResponse' :: UpdateOriginEndpointResponse -> Maybe [Text]
whitelist} -> Maybe [Text]
whitelist) (\s :: UpdateOriginEndpointResponse
s@UpdateOriginEndpointResponse' {} Maybe [Text]
a -> UpdateOriginEndpointResponse
s {$sel:whitelist:UpdateOriginEndpointResponse' :: Maybe [Text]
whitelist = Maybe [Text]
a} :: UpdateOriginEndpointResponse) ((Maybe [Text] -> f (Maybe [Text]))
 -> UpdateOriginEndpointResponse -> f UpdateOriginEndpointResponse)
-> ((Maybe [Text] -> f (Maybe [Text]))
    -> Maybe [Text] -> f (Maybe [Text]))
-> (Maybe [Text] -> f (Maybe [Text]))
-> UpdateOriginEndpointResponse
-> f UpdateOriginEndpointResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Text] [Text] [Text] [Text]
-> Iso (Maybe [Text]) (Maybe [Text]) (Maybe [Text]) (Maybe [Text])
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 [Text] [Text] [Text] [Text]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | Undocumented member.
updateOriginEndpointResponse_hlsPackage :: Lens.Lens' UpdateOriginEndpointResponse (Prelude.Maybe HlsPackage)
updateOriginEndpointResponse_hlsPackage :: (Maybe HlsPackage -> f (Maybe HlsPackage))
-> UpdateOriginEndpointResponse -> f UpdateOriginEndpointResponse
updateOriginEndpointResponse_hlsPackage = (UpdateOriginEndpointResponse -> Maybe HlsPackage)
-> (UpdateOriginEndpointResponse
    -> Maybe HlsPackage -> UpdateOriginEndpointResponse)
-> Lens
     UpdateOriginEndpointResponse
     UpdateOriginEndpointResponse
     (Maybe HlsPackage)
     (Maybe HlsPackage)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpointResponse' {Maybe HlsPackage
hlsPackage :: Maybe HlsPackage
$sel:hlsPackage:UpdateOriginEndpointResponse' :: UpdateOriginEndpointResponse -> Maybe HlsPackage
hlsPackage} -> Maybe HlsPackage
hlsPackage) (\s :: UpdateOriginEndpointResponse
s@UpdateOriginEndpointResponse' {} Maybe HlsPackage
a -> UpdateOriginEndpointResponse
s {$sel:hlsPackage:UpdateOriginEndpointResponse' :: Maybe HlsPackage
hlsPackage = Maybe HlsPackage
a} :: UpdateOriginEndpointResponse)

-- | The Amazon Resource Name (ARN) assigned to the OriginEndpoint.
updateOriginEndpointResponse_arn :: Lens.Lens' UpdateOriginEndpointResponse (Prelude.Maybe Prelude.Text)
updateOriginEndpointResponse_arn :: (Maybe Text -> f (Maybe Text))
-> UpdateOriginEndpointResponse -> f UpdateOriginEndpointResponse
updateOriginEndpointResponse_arn = (UpdateOriginEndpointResponse -> Maybe Text)
-> (UpdateOriginEndpointResponse
    -> Maybe Text -> UpdateOriginEndpointResponse)
-> Lens
     UpdateOriginEndpointResponse
     UpdateOriginEndpointResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpointResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:UpdateOriginEndpointResponse' :: UpdateOriginEndpointResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: UpdateOriginEndpointResponse
s@UpdateOriginEndpointResponse' {} Maybe Text
a -> UpdateOriginEndpointResponse
s {$sel:arn:UpdateOriginEndpointResponse' :: Maybe Text
arn = Maybe Text
a} :: UpdateOriginEndpointResponse)

-- | A short string appended to the end of the OriginEndpoint URL.
updateOriginEndpointResponse_manifestName :: Lens.Lens' UpdateOriginEndpointResponse (Prelude.Maybe Prelude.Text)
updateOriginEndpointResponse_manifestName :: (Maybe Text -> f (Maybe Text))
-> UpdateOriginEndpointResponse -> f UpdateOriginEndpointResponse
updateOriginEndpointResponse_manifestName = (UpdateOriginEndpointResponse -> Maybe Text)
-> (UpdateOriginEndpointResponse
    -> Maybe Text -> UpdateOriginEndpointResponse)
-> Lens
     UpdateOriginEndpointResponse
     UpdateOriginEndpointResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpointResponse' {Maybe Text
manifestName :: Maybe Text
$sel:manifestName:UpdateOriginEndpointResponse' :: UpdateOriginEndpointResponse -> Maybe Text
manifestName} -> Maybe Text
manifestName) (\s :: UpdateOriginEndpointResponse
s@UpdateOriginEndpointResponse' {} Maybe Text
a -> UpdateOriginEndpointResponse
s {$sel:manifestName:UpdateOriginEndpointResponse' :: Maybe Text
manifestName = Maybe Text
a} :: UpdateOriginEndpointResponse)

-- | The URL of the packaged OriginEndpoint for consumption.
updateOriginEndpointResponse_url :: Lens.Lens' UpdateOriginEndpointResponse (Prelude.Maybe Prelude.Text)
updateOriginEndpointResponse_url :: (Maybe Text -> f (Maybe Text))
-> UpdateOriginEndpointResponse -> f UpdateOriginEndpointResponse
updateOriginEndpointResponse_url = (UpdateOriginEndpointResponse -> Maybe Text)
-> (UpdateOriginEndpointResponse
    -> Maybe Text -> UpdateOriginEndpointResponse)
-> Lens
     UpdateOriginEndpointResponse
     UpdateOriginEndpointResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpointResponse' {Maybe Text
url :: Maybe Text
$sel:url:UpdateOriginEndpointResponse' :: UpdateOriginEndpointResponse -> Maybe Text
url} -> Maybe Text
url) (\s :: UpdateOriginEndpointResponse
s@UpdateOriginEndpointResponse' {} Maybe Text
a -> UpdateOriginEndpointResponse
s {$sel:url:UpdateOriginEndpointResponse' :: Maybe Text
url = Maybe Text
a} :: UpdateOriginEndpointResponse)

-- | Undocumented member.
updateOriginEndpointResponse_authorization :: Lens.Lens' UpdateOriginEndpointResponse (Prelude.Maybe Authorization)
updateOriginEndpointResponse_authorization :: (Maybe Authorization -> f (Maybe Authorization))
-> UpdateOriginEndpointResponse -> f UpdateOriginEndpointResponse
updateOriginEndpointResponse_authorization = (UpdateOriginEndpointResponse -> Maybe Authorization)
-> (UpdateOriginEndpointResponse
    -> Maybe Authorization -> UpdateOriginEndpointResponse)
-> Lens
     UpdateOriginEndpointResponse
     UpdateOriginEndpointResponse
     (Maybe Authorization)
     (Maybe Authorization)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpointResponse' {Maybe Authorization
authorization :: Maybe Authorization
$sel:authorization:UpdateOriginEndpointResponse' :: UpdateOriginEndpointResponse -> Maybe Authorization
authorization} -> Maybe Authorization
authorization) (\s :: UpdateOriginEndpointResponse
s@UpdateOriginEndpointResponse' {} Maybe Authorization
a -> UpdateOriginEndpointResponse
s {$sel:authorization:UpdateOriginEndpointResponse' :: Maybe Authorization
authorization = Maybe Authorization
a} :: UpdateOriginEndpointResponse)

-- | The ID of the Channel the OriginEndpoint is associated with.
updateOriginEndpointResponse_channelId :: Lens.Lens' UpdateOriginEndpointResponse (Prelude.Maybe Prelude.Text)
updateOriginEndpointResponse_channelId :: (Maybe Text -> f (Maybe Text))
-> UpdateOriginEndpointResponse -> f UpdateOriginEndpointResponse
updateOriginEndpointResponse_channelId = (UpdateOriginEndpointResponse -> Maybe Text)
-> (UpdateOriginEndpointResponse
    -> Maybe Text -> UpdateOriginEndpointResponse)
-> Lens
     UpdateOriginEndpointResponse
     UpdateOriginEndpointResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpointResponse' {Maybe Text
channelId :: Maybe Text
$sel:channelId:UpdateOriginEndpointResponse' :: UpdateOriginEndpointResponse -> Maybe Text
channelId} -> Maybe Text
channelId) (\s :: UpdateOriginEndpointResponse
s@UpdateOriginEndpointResponse' {} Maybe Text
a -> UpdateOriginEndpointResponse
s {$sel:channelId:UpdateOriginEndpointResponse' :: Maybe Text
channelId = Maybe Text
a} :: UpdateOriginEndpointResponse)

-- | Maximum duration (seconds) of content to retain for startover playback.
-- If not specified, startover playback will be disabled for the
-- OriginEndpoint.
updateOriginEndpointResponse_startoverWindowSeconds :: Lens.Lens' UpdateOriginEndpointResponse (Prelude.Maybe Prelude.Int)
updateOriginEndpointResponse_startoverWindowSeconds :: (Maybe Int -> f (Maybe Int))
-> UpdateOriginEndpointResponse -> f UpdateOriginEndpointResponse
updateOriginEndpointResponse_startoverWindowSeconds = (UpdateOriginEndpointResponse -> Maybe Int)
-> (UpdateOriginEndpointResponse
    -> Maybe Int -> UpdateOriginEndpointResponse)
-> Lens
     UpdateOriginEndpointResponse
     UpdateOriginEndpointResponse
     (Maybe Int)
     (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpointResponse' {Maybe Int
startoverWindowSeconds :: Maybe Int
$sel:startoverWindowSeconds:UpdateOriginEndpointResponse' :: UpdateOriginEndpointResponse -> Maybe Int
startoverWindowSeconds} -> Maybe Int
startoverWindowSeconds) (\s :: UpdateOriginEndpointResponse
s@UpdateOriginEndpointResponse' {} Maybe Int
a -> UpdateOriginEndpointResponse
s {$sel:startoverWindowSeconds:UpdateOriginEndpointResponse' :: Maybe Int
startoverWindowSeconds = Maybe Int
a} :: UpdateOriginEndpointResponse)

-- | Undocumented member.
updateOriginEndpointResponse_dashPackage :: Lens.Lens' UpdateOriginEndpointResponse (Prelude.Maybe DashPackage)
updateOriginEndpointResponse_dashPackage :: (Maybe DashPackage -> f (Maybe DashPackage))
-> UpdateOriginEndpointResponse -> f UpdateOriginEndpointResponse
updateOriginEndpointResponse_dashPackage = (UpdateOriginEndpointResponse -> Maybe DashPackage)
-> (UpdateOriginEndpointResponse
    -> Maybe DashPackage -> UpdateOriginEndpointResponse)
-> Lens
     UpdateOriginEndpointResponse
     UpdateOriginEndpointResponse
     (Maybe DashPackage)
     (Maybe DashPackage)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpointResponse' {Maybe DashPackage
dashPackage :: Maybe DashPackage
$sel:dashPackage:UpdateOriginEndpointResponse' :: UpdateOriginEndpointResponse -> Maybe DashPackage
dashPackage} -> Maybe DashPackage
dashPackage) (\s :: UpdateOriginEndpointResponse
s@UpdateOriginEndpointResponse' {} Maybe DashPackage
a -> UpdateOriginEndpointResponse
s {$sel:dashPackage:UpdateOriginEndpointResponse' :: Maybe DashPackage
dashPackage = Maybe DashPackage
a} :: UpdateOriginEndpointResponse)

-- | Undocumented member.
updateOriginEndpointResponse_mssPackage :: Lens.Lens' UpdateOriginEndpointResponse (Prelude.Maybe MssPackage)
updateOriginEndpointResponse_mssPackage :: (Maybe MssPackage -> f (Maybe MssPackage))
-> UpdateOriginEndpointResponse -> f UpdateOriginEndpointResponse
updateOriginEndpointResponse_mssPackage = (UpdateOriginEndpointResponse -> Maybe MssPackage)
-> (UpdateOriginEndpointResponse
    -> Maybe MssPackage -> UpdateOriginEndpointResponse)
-> Lens
     UpdateOriginEndpointResponse
     UpdateOriginEndpointResponse
     (Maybe MssPackage)
     (Maybe MssPackage)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpointResponse' {Maybe MssPackage
mssPackage :: Maybe MssPackage
$sel:mssPackage:UpdateOriginEndpointResponse' :: UpdateOriginEndpointResponse -> Maybe MssPackage
mssPackage} -> Maybe MssPackage
mssPackage) (\s :: UpdateOriginEndpointResponse
s@UpdateOriginEndpointResponse' {} Maybe MssPackage
a -> UpdateOriginEndpointResponse
s {$sel:mssPackage:UpdateOriginEndpointResponse' :: Maybe MssPackage
mssPackage = Maybe MssPackage
a} :: UpdateOriginEndpointResponse)

-- | The ID of the OriginEndpoint.
updateOriginEndpointResponse_id :: Lens.Lens' UpdateOriginEndpointResponse (Prelude.Maybe Prelude.Text)
updateOriginEndpointResponse_id :: (Maybe Text -> f (Maybe Text))
-> UpdateOriginEndpointResponse -> f UpdateOriginEndpointResponse
updateOriginEndpointResponse_id = (UpdateOriginEndpointResponse -> Maybe Text)
-> (UpdateOriginEndpointResponse
    -> Maybe Text -> UpdateOriginEndpointResponse)
-> Lens
     UpdateOriginEndpointResponse
     UpdateOriginEndpointResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpointResponse' {Maybe Text
id :: Maybe Text
$sel:id:UpdateOriginEndpointResponse' :: UpdateOriginEndpointResponse -> Maybe Text
id} -> Maybe Text
id) (\s :: UpdateOriginEndpointResponse
s@UpdateOriginEndpointResponse' {} Maybe Text
a -> UpdateOriginEndpointResponse
s {$sel:id:UpdateOriginEndpointResponse' :: Maybe Text
id = Maybe Text
a} :: UpdateOriginEndpointResponse)

-- | Amount of delay (seconds) to enforce on the playback of live content. If
-- not specified, there will be no time delay in effect for the
-- OriginEndpoint.
updateOriginEndpointResponse_timeDelaySeconds :: Lens.Lens' UpdateOriginEndpointResponse (Prelude.Maybe Prelude.Int)
updateOriginEndpointResponse_timeDelaySeconds :: (Maybe Int -> f (Maybe Int))
-> UpdateOriginEndpointResponse -> f UpdateOriginEndpointResponse
updateOriginEndpointResponse_timeDelaySeconds = (UpdateOriginEndpointResponse -> Maybe Int)
-> (UpdateOriginEndpointResponse
    -> Maybe Int -> UpdateOriginEndpointResponse)
-> Lens
     UpdateOriginEndpointResponse
     UpdateOriginEndpointResponse
     (Maybe Int)
     (Maybe Int)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpointResponse' {Maybe Int
timeDelaySeconds :: Maybe Int
$sel:timeDelaySeconds:UpdateOriginEndpointResponse' :: UpdateOriginEndpointResponse -> Maybe Int
timeDelaySeconds} -> Maybe Int
timeDelaySeconds) (\s :: UpdateOriginEndpointResponse
s@UpdateOriginEndpointResponse' {} Maybe Int
a -> UpdateOriginEndpointResponse
s {$sel:timeDelaySeconds:UpdateOriginEndpointResponse' :: Maybe Int
timeDelaySeconds = Maybe Int
a} :: UpdateOriginEndpointResponse)

-- | Undocumented member.
updateOriginEndpointResponse_cmafPackage :: Lens.Lens' UpdateOriginEndpointResponse (Prelude.Maybe CmafPackage)
updateOriginEndpointResponse_cmafPackage :: (Maybe CmafPackage -> f (Maybe CmafPackage))
-> UpdateOriginEndpointResponse -> f UpdateOriginEndpointResponse
updateOriginEndpointResponse_cmafPackage = (UpdateOriginEndpointResponse -> Maybe CmafPackage)
-> (UpdateOriginEndpointResponse
    -> Maybe CmafPackage -> UpdateOriginEndpointResponse)
-> Lens
     UpdateOriginEndpointResponse
     UpdateOriginEndpointResponse
     (Maybe CmafPackage)
     (Maybe CmafPackage)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpointResponse' {Maybe CmafPackage
cmafPackage :: Maybe CmafPackage
$sel:cmafPackage:UpdateOriginEndpointResponse' :: UpdateOriginEndpointResponse -> Maybe CmafPackage
cmafPackage} -> Maybe CmafPackage
cmafPackage) (\s :: UpdateOriginEndpointResponse
s@UpdateOriginEndpointResponse' {} Maybe CmafPackage
a -> UpdateOriginEndpointResponse
s {$sel:cmafPackage:UpdateOriginEndpointResponse' :: Maybe CmafPackage
cmafPackage = Maybe CmafPackage
a} :: UpdateOriginEndpointResponse)

-- | A short text description of the OriginEndpoint.
updateOriginEndpointResponse_description :: Lens.Lens' UpdateOriginEndpointResponse (Prelude.Maybe Prelude.Text)
updateOriginEndpointResponse_description :: (Maybe Text -> f (Maybe Text))
-> UpdateOriginEndpointResponse -> f UpdateOriginEndpointResponse
updateOriginEndpointResponse_description = (UpdateOriginEndpointResponse -> Maybe Text)
-> (UpdateOriginEndpointResponse
    -> Maybe Text -> UpdateOriginEndpointResponse)
-> Lens
     UpdateOriginEndpointResponse
     UpdateOriginEndpointResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpointResponse' {Maybe Text
description :: Maybe Text
$sel:description:UpdateOriginEndpointResponse' :: UpdateOriginEndpointResponse -> Maybe Text
description} -> Maybe Text
description) (\s :: UpdateOriginEndpointResponse
s@UpdateOriginEndpointResponse' {} Maybe Text
a -> UpdateOriginEndpointResponse
s {$sel:description:UpdateOriginEndpointResponse' :: Maybe Text
description = Maybe Text
a} :: UpdateOriginEndpointResponse)

-- | Undocumented member.
updateOriginEndpointResponse_tags :: Lens.Lens' UpdateOriginEndpointResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
updateOriginEndpointResponse_tags :: (Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> UpdateOriginEndpointResponse -> f UpdateOriginEndpointResponse
updateOriginEndpointResponse_tags = (UpdateOriginEndpointResponse -> Maybe (HashMap Text Text))
-> (UpdateOriginEndpointResponse
    -> Maybe (HashMap Text Text) -> UpdateOriginEndpointResponse)
-> Lens
     UpdateOriginEndpointResponse
     UpdateOriginEndpointResponse
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpointResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:UpdateOriginEndpointResponse' :: UpdateOriginEndpointResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: UpdateOriginEndpointResponse
s@UpdateOriginEndpointResponse' {} Maybe (HashMap Text Text)
a -> UpdateOriginEndpointResponse
s {$sel:tags:UpdateOriginEndpointResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: UpdateOriginEndpointResponse) ((Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
 -> UpdateOriginEndpointResponse -> f UpdateOriginEndpointResponse)
-> ((Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
    -> Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> (Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> UpdateOriginEndpointResponse
-> f UpdateOriginEndpointResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
-> Iso
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
     (Maybe (HashMap Text Text))
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
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
  (HashMap Text Text)
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | Control whether origination of video is allowed for this OriginEndpoint.
-- If set to ALLOW, the OriginEndpoint may by requested, pursuant to any
-- other form of access control. If set to DENY, the OriginEndpoint may not
-- be requested. This can be helpful for Live to VOD harvesting, or for
-- temporarily disabling origination
updateOriginEndpointResponse_origination :: Lens.Lens' UpdateOriginEndpointResponse (Prelude.Maybe Origination)
updateOriginEndpointResponse_origination :: (Maybe Origination -> f (Maybe Origination))
-> UpdateOriginEndpointResponse -> f UpdateOriginEndpointResponse
updateOriginEndpointResponse_origination = (UpdateOriginEndpointResponse -> Maybe Origination)
-> (UpdateOriginEndpointResponse
    -> Maybe Origination -> UpdateOriginEndpointResponse)
-> Lens
     UpdateOriginEndpointResponse
     UpdateOriginEndpointResponse
     (Maybe Origination)
     (Maybe Origination)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateOriginEndpointResponse' {Maybe Origination
origination :: Maybe Origination
$sel:origination:UpdateOriginEndpointResponse' :: UpdateOriginEndpointResponse -> Maybe Origination
origination} -> Maybe Origination
origination) (\s :: UpdateOriginEndpointResponse
s@UpdateOriginEndpointResponse' {} Maybe Origination
a -> UpdateOriginEndpointResponse
s {$sel:origination:UpdateOriginEndpointResponse' :: Maybe Origination
origination = Maybe Origination
a} :: UpdateOriginEndpointResponse)

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

instance Prelude.NFData UpdateOriginEndpointResponse