{-# 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.ConfigureLogs
-- 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)
--
-- Changes the Channel\'s properities to configure log subscription
module Amazonka.MediaPackage.ConfigureLogs
  ( -- * Creating a Request
    ConfigureLogs (..),
    newConfigureLogs,

    -- * Request Lenses
    configureLogs_ingressAccessLogs,
    configureLogs_egressAccessLogs,
    configureLogs_id,

    -- * Destructuring the Response
    ConfigureLogsResponse (..),
    newConfigureLogsResponse,

    -- * Response Lenses
    configureLogsResponse_ingressAccessLogs,
    configureLogsResponse_hlsIngest,
    configureLogsResponse_arn,
    configureLogsResponse_id,
    configureLogsResponse_description,
    configureLogsResponse_egressAccessLogs,
    configureLogsResponse_tags,
    configureLogsResponse_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

-- | the option to configure log subscription.
--
-- /See:/ 'newConfigureLogs' smart constructor.
data ConfigureLogs = ConfigureLogs'
  { ConfigureLogs -> Maybe IngressAccessLogs
ingressAccessLogs :: Prelude.Maybe IngressAccessLogs,
    ConfigureLogs -> Maybe EgressAccessLogs
egressAccessLogs :: Prelude.Maybe EgressAccessLogs,
    -- | The ID of the channel to log subscription.
    ConfigureLogs -> Text
id :: Prelude.Text
  }
  deriving (ConfigureLogs -> ConfigureLogs -> Bool
(ConfigureLogs -> ConfigureLogs -> Bool)
-> (ConfigureLogs -> ConfigureLogs -> Bool) -> Eq ConfigureLogs
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ConfigureLogs -> ConfigureLogs -> Bool
$c/= :: ConfigureLogs -> ConfigureLogs -> Bool
== :: ConfigureLogs -> ConfigureLogs -> Bool
$c== :: ConfigureLogs -> ConfigureLogs -> Bool
Prelude.Eq, ReadPrec [ConfigureLogs]
ReadPrec ConfigureLogs
Int -> ReadS ConfigureLogs
ReadS [ConfigureLogs]
(Int -> ReadS ConfigureLogs)
-> ReadS [ConfigureLogs]
-> ReadPrec ConfigureLogs
-> ReadPrec [ConfigureLogs]
-> Read ConfigureLogs
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ConfigureLogs]
$creadListPrec :: ReadPrec [ConfigureLogs]
readPrec :: ReadPrec ConfigureLogs
$creadPrec :: ReadPrec ConfigureLogs
readList :: ReadS [ConfigureLogs]
$creadList :: ReadS [ConfigureLogs]
readsPrec :: Int -> ReadS ConfigureLogs
$creadsPrec :: Int -> ReadS ConfigureLogs
Prelude.Read, Int -> ConfigureLogs -> ShowS
[ConfigureLogs] -> ShowS
ConfigureLogs -> String
(Int -> ConfigureLogs -> ShowS)
-> (ConfigureLogs -> String)
-> ([ConfigureLogs] -> ShowS)
-> Show ConfigureLogs
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ConfigureLogs] -> ShowS
$cshowList :: [ConfigureLogs] -> ShowS
show :: ConfigureLogs -> String
$cshow :: ConfigureLogs -> String
showsPrec :: Int -> ConfigureLogs -> ShowS
$cshowsPrec :: Int -> ConfigureLogs -> ShowS
Prelude.Show, (forall x. ConfigureLogs -> Rep ConfigureLogs x)
-> (forall x. Rep ConfigureLogs x -> ConfigureLogs)
-> Generic ConfigureLogs
forall x. Rep ConfigureLogs x -> ConfigureLogs
forall x. ConfigureLogs -> Rep ConfigureLogs x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ConfigureLogs x -> ConfigureLogs
$cfrom :: forall x. ConfigureLogs -> Rep ConfigureLogs x
Prelude.Generic)

-- |
-- Create a value of 'ConfigureLogs' 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:
--
-- 'ingressAccessLogs', 'configureLogs_ingressAccessLogs' - Undocumented member.
--
-- 'egressAccessLogs', 'configureLogs_egressAccessLogs' - Undocumented member.
--
-- 'id', 'configureLogs_id' - The ID of the channel to log subscription.
newConfigureLogs ::
  -- | 'id'
  Prelude.Text ->
  ConfigureLogs
newConfigureLogs :: Text -> ConfigureLogs
newConfigureLogs Text
pId_ =
  ConfigureLogs' :: Maybe IngressAccessLogs
-> Maybe EgressAccessLogs -> Text -> ConfigureLogs
ConfigureLogs'
    { $sel:ingressAccessLogs:ConfigureLogs' :: Maybe IngressAccessLogs
ingressAccessLogs = Maybe IngressAccessLogs
forall a. Maybe a
Prelude.Nothing,
      $sel:egressAccessLogs:ConfigureLogs' :: Maybe EgressAccessLogs
egressAccessLogs = Maybe EgressAccessLogs
forall a. Maybe a
Prelude.Nothing,
      $sel:id:ConfigureLogs' :: Text
id = Text
pId_
    }

-- | Undocumented member.
configureLogs_ingressAccessLogs :: Lens.Lens' ConfigureLogs (Prelude.Maybe IngressAccessLogs)
configureLogs_ingressAccessLogs :: (Maybe IngressAccessLogs -> f (Maybe IngressAccessLogs))
-> ConfigureLogs -> f ConfigureLogs
configureLogs_ingressAccessLogs = (ConfigureLogs -> Maybe IngressAccessLogs)
-> (ConfigureLogs -> Maybe IngressAccessLogs -> ConfigureLogs)
-> Lens
     ConfigureLogs
     ConfigureLogs
     (Maybe IngressAccessLogs)
     (Maybe IngressAccessLogs)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ConfigureLogs' {Maybe IngressAccessLogs
ingressAccessLogs :: Maybe IngressAccessLogs
$sel:ingressAccessLogs:ConfigureLogs' :: ConfigureLogs -> Maybe IngressAccessLogs
ingressAccessLogs} -> Maybe IngressAccessLogs
ingressAccessLogs) (\s :: ConfigureLogs
s@ConfigureLogs' {} Maybe IngressAccessLogs
a -> ConfigureLogs
s {$sel:ingressAccessLogs:ConfigureLogs' :: Maybe IngressAccessLogs
ingressAccessLogs = Maybe IngressAccessLogs
a} :: ConfigureLogs)

-- | Undocumented member.
configureLogs_egressAccessLogs :: Lens.Lens' ConfigureLogs (Prelude.Maybe EgressAccessLogs)
configureLogs_egressAccessLogs :: (Maybe EgressAccessLogs -> f (Maybe EgressAccessLogs))
-> ConfigureLogs -> f ConfigureLogs
configureLogs_egressAccessLogs = (ConfigureLogs -> Maybe EgressAccessLogs)
-> (ConfigureLogs -> Maybe EgressAccessLogs -> ConfigureLogs)
-> Lens
     ConfigureLogs
     ConfigureLogs
     (Maybe EgressAccessLogs)
     (Maybe EgressAccessLogs)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ConfigureLogs' {Maybe EgressAccessLogs
egressAccessLogs :: Maybe EgressAccessLogs
$sel:egressAccessLogs:ConfigureLogs' :: ConfigureLogs -> Maybe EgressAccessLogs
egressAccessLogs} -> Maybe EgressAccessLogs
egressAccessLogs) (\s :: ConfigureLogs
s@ConfigureLogs' {} Maybe EgressAccessLogs
a -> ConfigureLogs
s {$sel:egressAccessLogs:ConfigureLogs' :: Maybe EgressAccessLogs
egressAccessLogs = Maybe EgressAccessLogs
a} :: ConfigureLogs)

-- | The ID of the channel to log subscription.
configureLogs_id :: Lens.Lens' ConfigureLogs Prelude.Text
configureLogs_id :: (Text -> f Text) -> ConfigureLogs -> f ConfigureLogs
configureLogs_id = (ConfigureLogs -> Text)
-> (ConfigureLogs -> Text -> ConfigureLogs)
-> Lens ConfigureLogs ConfigureLogs Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ConfigureLogs' {Text
id :: Text
$sel:id:ConfigureLogs' :: ConfigureLogs -> Text
id} -> Text
id) (\s :: ConfigureLogs
s@ConfigureLogs' {} Text
a -> ConfigureLogs
s {$sel:id:ConfigureLogs' :: Text
id = Text
a} :: ConfigureLogs)

instance Core.AWSRequest ConfigureLogs where
  type
    AWSResponse ConfigureLogs =
      ConfigureLogsResponse
  request :: ConfigureLogs -> Request ConfigureLogs
request = Service -> ConfigureLogs -> Request ConfigureLogs
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.putJSON Service
defaultService
  response :: Logger
-> Service
-> Proxy ConfigureLogs
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ConfigureLogs)))
response =
    (Int
 -> ResponseHeaders
 -> Object
 -> Either String (AWSResponse ConfigureLogs))
-> Logger
-> Service
-> Proxy ConfigureLogs
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ConfigureLogs)))
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 IngressAccessLogs
-> Maybe HlsIngest
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe EgressAccessLogs
-> Maybe (HashMap Text Text)
-> Int
-> ConfigureLogsResponse
ConfigureLogsResponse'
            (Maybe IngressAccessLogs
 -> Maybe HlsIngest
 -> Maybe Text
 -> Maybe Text
 -> Maybe Text
 -> Maybe EgressAccessLogs
 -> Maybe (HashMap Text Text)
 -> Int
 -> ConfigureLogsResponse)
-> Either String (Maybe IngressAccessLogs)
-> Either
     String
     (Maybe HlsIngest
      -> Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe EgressAccessLogs
      -> Maybe (HashMap Text Text)
      -> Int
      -> ConfigureLogsResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Either String (Maybe IngressAccessLogs)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"ingressAccessLogs")
            Either
  String
  (Maybe HlsIngest
   -> Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe EgressAccessLogs
   -> Maybe (HashMap Text Text)
   -> Int
   -> ConfigureLogsResponse)
-> Either String (Maybe HlsIngest)
-> Either
     String
     (Maybe Text
      -> Maybe Text
      -> Maybe Text
      -> Maybe EgressAccessLogs
      -> Maybe (HashMap Text Text)
      -> Int
      -> ConfigureLogsResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe HlsIngest)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"hlsIngest")
            Either
  String
  (Maybe Text
   -> Maybe Text
   -> Maybe Text
   -> Maybe EgressAccessLogs
   -> Maybe (HashMap Text Text)
   -> Int
   -> ConfigureLogsResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Text
      -> Maybe Text
      -> Maybe EgressAccessLogs
      -> Maybe (HashMap Text Text)
      -> Int
      -> ConfigureLogsResponse)
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 EgressAccessLogs
   -> Maybe (HashMap Text Text)
   -> Int
   -> ConfigureLogsResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe Text
      -> Maybe EgressAccessLogs
      -> Maybe (HashMap Text Text)
      -> Int
      -> ConfigureLogsResponse)
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 Text
   -> Maybe EgressAccessLogs
   -> Maybe (HashMap Text Text)
   -> Int
   -> ConfigureLogsResponse)
-> Either String (Maybe Text)
-> Either
     String
     (Maybe EgressAccessLogs
      -> Maybe (HashMap Text Text) -> Int -> ConfigureLogsResponse)
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 EgressAccessLogs
   -> Maybe (HashMap Text Text) -> Int -> ConfigureLogsResponse)
-> Either String (Maybe EgressAccessLogs)
-> Either
     String (Maybe (HashMap Text Text) -> Int -> ConfigureLogsResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe EgressAccessLogs)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"egressAccessLogs")
            Either
  String (Maybe (HashMap Text Text) -> Int -> ConfigureLogsResponse)
-> Either String (Maybe (HashMap Text Text))
-> Either String (Int -> ConfigureLogsResponse)
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 (Int -> ConfigureLogsResponse)
-> Either String Int -> Either String ConfigureLogsResponse
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 ConfigureLogs

instance Prelude.NFData ConfigureLogs

instance Core.ToHeaders ConfigureLogs where
  toHeaders :: ConfigureLogs -> ResponseHeaders
toHeaders =
    ResponseHeaders -> ConfigureLogs -> 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 ConfigureLogs where
  toJSON :: ConfigureLogs -> Value
toJSON ConfigureLogs' {Maybe EgressAccessLogs
Maybe IngressAccessLogs
Text
id :: Text
egressAccessLogs :: Maybe EgressAccessLogs
ingressAccessLogs :: Maybe IngressAccessLogs
$sel:id:ConfigureLogs' :: ConfigureLogs -> Text
$sel:egressAccessLogs:ConfigureLogs' :: ConfigureLogs -> Maybe EgressAccessLogs
$sel:ingressAccessLogs:ConfigureLogs' :: ConfigureLogs -> Maybe IngressAccessLogs
..} =
    [Pair] -> Value
Core.object
      ( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Text
"ingressAccessLogs" Text -> IngressAccessLogs -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              (IngressAccessLogs -> Pair)
-> Maybe IngressAccessLogs -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe IngressAccessLogs
ingressAccessLogs,
            (Text
"egressAccessLogs" Text -> EgressAccessLogs -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=)
              (EgressAccessLogs -> Pair) -> Maybe EgressAccessLogs -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe EgressAccessLogs
egressAccessLogs
          ]
      )

instance Core.ToPath ConfigureLogs where
  toPath :: ConfigureLogs -> ByteString
toPath ConfigureLogs' {Maybe EgressAccessLogs
Maybe IngressAccessLogs
Text
id :: Text
egressAccessLogs :: Maybe EgressAccessLogs
ingressAccessLogs :: Maybe IngressAccessLogs
$sel:id:ConfigureLogs' :: ConfigureLogs -> Text
$sel:egressAccessLogs:ConfigureLogs' :: ConfigureLogs -> Maybe EgressAccessLogs
$sel:ingressAccessLogs:ConfigureLogs' :: ConfigureLogs -> Maybe IngressAccessLogs
..} =
    [ByteString] -> ByteString
forall a. Monoid a => [a] -> a
Prelude.mconcat
      [ByteString
"/channels/", Text -> ByteString
forall a. ToByteString a => a -> ByteString
Core.toBS Text
id, ByteString
"/configure_logs"]

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

-- | /See:/ 'newConfigureLogsResponse' smart constructor.
data ConfigureLogsResponse = ConfigureLogsResponse'
  { ConfigureLogsResponse -> Maybe IngressAccessLogs
ingressAccessLogs :: Prelude.Maybe IngressAccessLogs,
    ConfigureLogsResponse -> Maybe HlsIngest
hlsIngest :: Prelude.Maybe HlsIngest,
    -- | The Amazon Resource Name (ARN) assigned to the Channel.
    ConfigureLogsResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
    -- | The ID of the Channel.
    ConfigureLogsResponse -> Maybe Text
id :: Prelude.Maybe Prelude.Text,
    -- | A short text description of the Channel.
    ConfigureLogsResponse -> Maybe Text
description :: Prelude.Maybe Prelude.Text,
    ConfigureLogsResponse -> Maybe EgressAccessLogs
egressAccessLogs :: Prelude.Maybe EgressAccessLogs,
    ConfigureLogsResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
    -- | The response's http status code.
    ConfigureLogsResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (ConfigureLogsResponse -> ConfigureLogsResponse -> Bool
(ConfigureLogsResponse -> ConfigureLogsResponse -> Bool)
-> (ConfigureLogsResponse -> ConfigureLogsResponse -> Bool)
-> Eq ConfigureLogsResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ConfigureLogsResponse -> ConfigureLogsResponse -> Bool
$c/= :: ConfigureLogsResponse -> ConfigureLogsResponse -> Bool
== :: ConfigureLogsResponse -> ConfigureLogsResponse -> Bool
$c== :: ConfigureLogsResponse -> ConfigureLogsResponse -> Bool
Prelude.Eq, ReadPrec [ConfigureLogsResponse]
ReadPrec ConfigureLogsResponse
Int -> ReadS ConfigureLogsResponse
ReadS [ConfigureLogsResponse]
(Int -> ReadS ConfigureLogsResponse)
-> ReadS [ConfigureLogsResponse]
-> ReadPrec ConfigureLogsResponse
-> ReadPrec [ConfigureLogsResponse]
-> Read ConfigureLogsResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ConfigureLogsResponse]
$creadListPrec :: ReadPrec [ConfigureLogsResponse]
readPrec :: ReadPrec ConfigureLogsResponse
$creadPrec :: ReadPrec ConfigureLogsResponse
readList :: ReadS [ConfigureLogsResponse]
$creadList :: ReadS [ConfigureLogsResponse]
readsPrec :: Int -> ReadS ConfigureLogsResponse
$creadsPrec :: Int -> ReadS ConfigureLogsResponse
Prelude.Read, Int -> ConfigureLogsResponse -> ShowS
[ConfigureLogsResponse] -> ShowS
ConfigureLogsResponse -> String
(Int -> ConfigureLogsResponse -> ShowS)
-> (ConfigureLogsResponse -> String)
-> ([ConfigureLogsResponse] -> ShowS)
-> Show ConfigureLogsResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ConfigureLogsResponse] -> ShowS
$cshowList :: [ConfigureLogsResponse] -> ShowS
show :: ConfigureLogsResponse -> String
$cshow :: ConfigureLogsResponse -> String
showsPrec :: Int -> ConfigureLogsResponse -> ShowS
$cshowsPrec :: Int -> ConfigureLogsResponse -> ShowS
Prelude.Show, (forall x. ConfigureLogsResponse -> Rep ConfigureLogsResponse x)
-> (forall x. Rep ConfigureLogsResponse x -> ConfigureLogsResponse)
-> Generic ConfigureLogsResponse
forall x. Rep ConfigureLogsResponse x -> ConfigureLogsResponse
forall x. ConfigureLogsResponse -> Rep ConfigureLogsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ConfigureLogsResponse x -> ConfigureLogsResponse
$cfrom :: forall x. ConfigureLogsResponse -> Rep ConfigureLogsResponse x
Prelude.Generic)

-- |
-- Create a value of 'ConfigureLogsResponse' 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:
--
-- 'ingressAccessLogs', 'configureLogsResponse_ingressAccessLogs' - Undocumented member.
--
-- 'hlsIngest', 'configureLogsResponse_hlsIngest' - Undocumented member.
--
-- 'arn', 'configureLogsResponse_arn' - The Amazon Resource Name (ARN) assigned to the Channel.
--
-- 'id', 'configureLogsResponse_id' - The ID of the Channel.
--
-- 'description', 'configureLogsResponse_description' - A short text description of the Channel.
--
-- 'egressAccessLogs', 'configureLogsResponse_egressAccessLogs' - Undocumented member.
--
-- 'tags', 'configureLogsResponse_tags' - Undocumented member.
--
-- 'httpStatus', 'configureLogsResponse_httpStatus' - The response's http status code.
newConfigureLogsResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  ConfigureLogsResponse
newConfigureLogsResponse :: Int -> ConfigureLogsResponse
newConfigureLogsResponse Int
pHttpStatus_ =
  ConfigureLogsResponse' :: Maybe IngressAccessLogs
-> Maybe HlsIngest
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe EgressAccessLogs
-> Maybe (HashMap Text Text)
-> Int
-> ConfigureLogsResponse
ConfigureLogsResponse'
    { $sel:ingressAccessLogs:ConfigureLogsResponse' :: Maybe IngressAccessLogs
ingressAccessLogs =
        Maybe IngressAccessLogs
forall a. Maybe a
Prelude.Nothing,
      $sel:hlsIngest:ConfigureLogsResponse' :: Maybe HlsIngest
hlsIngest = Maybe HlsIngest
forall a. Maybe a
Prelude.Nothing,
      $sel:arn:ConfigureLogsResponse' :: Maybe Text
arn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:id:ConfigureLogsResponse' :: Maybe Text
id = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:description:ConfigureLogsResponse' :: Maybe Text
description = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:egressAccessLogs:ConfigureLogsResponse' :: Maybe EgressAccessLogs
egressAccessLogs = Maybe EgressAccessLogs
forall a. Maybe a
Prelude.Nothing,
      $sel:tags:ConfigureLogsResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:ConfigureLogsResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | Undocumented member.
configureLogsResponse_ingressAccessLogs :: Lens.Lens' ConfigureLogsResponse (Prelude.Maybe IngressAccessLogs)
configureLogsResponse_ingressAccessLogs :: (Maybe IngressAccessLogs -> f (Maybe IngressAccessLogs))
-> ConfigureLogsResponse -> f ConfigureLogsResponse
configureLogsResponse_ingressAccessLogs = (ConfigureLogsResponse -> Maybe IngressAccessLogs)
-> (ConfigureLogsResponse
    -> Maybe IngressAccessLogs -> ConfigureLogsResponse)
-> Lens
     ConfigureLogsResponse
     ConfigureLogsResponse
     (Maybe IngressAccessLogs)
     (Maybe IngressAccessLogs)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ConfigureLogsResponse' {Maybe IngressAccessLogs
ingressAccessLogs :: Maybe IngressAccessLogs
$sel:ingressAccessLogs:ConfigureLogsResponse' :: ConfigureLogsResponse -> Maybe IngressAccessLogs
ingressAccessLogs} -> Maybe IngressAccessLogs
ingressAccessLogs) (\s :: ConfigureLogsResponse
s@ConfigureLogsResponse' {} Maybe IngressAccessLogs
a -> ConfigureLogsResponse
s {$sel:ingressAccessLogs:ConfigureLogsResponse' :: Maybe IngressAccessLogs
ingressAccessLogs = Maybe IngressAccessLogs
a} :: ConfigureLogsResponse)

-- | Undocumented member.
configureLogsResponse_hlsIngest :: Lens.Lens' ConfigureLogsResponse (Prelude.Maybe HlsIngest)
configureLogsResponse_hlsIngest :: (Maybe HlsIngest -> f (Maybe HlsIngest))
-> ConfigureLogsResponse -> f ConfigureLogsResponse
configureLogsResponse_hlsIngest = (ConfigureLogsResponse -> Maybe HlsIngest)
-> (ConfigureLogsResponse
    -> Maybe HlsIngest -> ConfigureLogsResponse)
-> Lens
     ConfigureLogsResponse
     ConfigureLogsResponse
     (Maybe HlsIngest)
     (Maybe HlsIngest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ConfigureLogsResponse' {Maybe HlsIngest
hlsIngest :: Maybe HlsIngest
$sel:hlsIngest:ConfigureLogsResponse' :: ConfigureLogsResponse -> Maybe HlsIngest
hlsIngest} -> Maybe HlsIngest
hlsIngest) (\s :: ConfigureLogsResponse
s@ConfigureLogsResponse' {} Maybe HlsIngest
a -> ConfigureLogsResponse
s {$sel:hlsIngest:ConfigureLogsResponse' :: Maybe HlsIngest
hlsIngest = Maybe HlsIngest
a} :: ConfigureLogsResponse)

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

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

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

-- | Undocumented member.
configureLogsResponse_egressAccessLogs :: Lens.Lens' ConfigureLogsResponse (Prelude.Maybe EgressAccessLogs)
configureLogsResponse_egressAccessLogs :: (Maybe EgressAccessLogs -> f (Maybe EgressAccessLogs))
-> ConfigureLogsResponse -> f ConfigureLogsResponse
configureLogsResponse_egressAccessLogs = (ConfigureLogsResponse -> Maybe EgressAccessLogs)
-> (ConfigureLogsResponse
    -> Maybe EgressAccessLogs -> ConfigureLogsResponse)
-> Lens
     ConfigureLogsResponse
     ConfigureLogsResponse
     (Maybe EgressAccessLogs)
     (Maybe EgressAccessLogs)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ConfigureLogsResponse' {Maybe EgressAccessLogs
egressAccessLogs :: Maybe EgressAccessLogs
$sel:egressAccessLogs:ConfigureLogsResponse' :: ConfigureLogsResponse -> Maybe EgressAccessLogs
egressAccessLogs} -> Maybe EgressAccessLogs
egressAccessLogs) (\s :: ConfigureLogsResponse
s@ConfigureLogsResponse' {} Maybe EgressAccessLogs
a -> ConfigureLogsResponse
s {$sel:egressAccessLogs:ConfigureLogsResponse' :: Maybe EgressAccessLogs
egressAccessLogs = Maybe EgressAccessLogs
a} :: ConfigureLogsResponse)

-- | Undocumented member.
configureLogsResponse_tags :: Lens.Lens' ConfigureLogsResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
configureLogsResponse_tags :: (Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
-> ConfigureLogsResponse -> f ConfigureLogsResponse
configureLogsResponse_tags = (ConfigureLogsResponse -> Maybe (HashMap Text Text))
-> (ConfigureLogsResponse
    -> Maybe (HashMap Text Text) -> ConfigureLogsResponse)
-> Lens
     ConfigureLogsResponse
     ConfigureLogsResponse
     (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 (\ConfigureLogsResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:ConfigureLogsResponse' :: ConfigureLogsResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: ConfigureLogsResponse
s@ConfigureLogsResponse' {} Maybe (HashMap Text Text)
a -> ConfigureLogsResponse
s {$sel:tags:ConfigureLogsResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: ConfigureLogsResponse) ((Maybe (HashMap Text Text) -> f (Maybe (HashMap Text Text)))
 -> ConfigureLogsResponse -> f ConfigureLogsResponse)
-> ((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)))
-> ConfigureLogsResponse
-> f ConfigureLogsResponse
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

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

instance Prelude.NFData ConfigureLogsResponse