{-# 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 #-}
module Amazonka.IVSChat.UpdateLoggingConfiguration
(
UpdateLoggingConfiguration (..),
newUpdateLoggingConfiguration,
updateLoggingConfiguration_destinationConfiguration,
updateLoggingConfiguration_name,
updateLoggingConfiguration_identifier,
UpdateLoggingConfigurationResponse (..),
newUpdateLoggingConfigurationResponse,
updateLoggingConfigurationResponse_arn,
updateLoggingConfigurationResponse_createTime,
updateLoggingConfigurationResponse_destinationConfiguration,
updateLoggingConfigurationResponse_id,
updateLoggingConfigurationResponse_name,
updateLoggingConfigurationResponse_state,
updateLoggingConfigurationResponse_tags,
updateLoggingConfigurationResponse_updateTime,
updateLoggingConfigurationResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IVSChat.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UpdateLoggingConfiguration = UpdateLoggingConfiguration'
{
UpdateLoggingConfiguration -> Maybe DestinationConfiguration
destinationConfiguration :: Prelude.Maybe DestinationConfiguration,
UpdateLoggingConfiguration -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
UpdateLoggingConfiguration -> Text
identifier :: Prelude.Text
}
deriving (UpdateLoggingConfiguration -> UpdateLoggingConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateLoggingConfiguration -> UpdateLoggingConfiguration -> Bool
$c/= :: UpdateLoggingConfiguration -> UpdateLoggingConfiguration -> Bool
== :: UpdateLoggingConfiguration -> UpdateLoggingConfiguration -> Bool
$c== :: UpdateLoggingConfiguration -> UpdateLoggingConfiguration -> Bool
Prelude.Eq, ReadPrec [UpdateLoggingConfiguration]
ReadPrec UpdateLoggingConfiguration
Int -> ReadS UpdateLoggingConfiguration
ReadS [UpdateLoggingConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateLoggingConfiguration]
$creadListPrec :: ReadPrec [UpdateLoggingConfiguration]
readPrec :: ReadPrec UpdateLoggingConfiguration
$creadPrec :: ReadPrec UpdateLoggingConfiguration
readList :: ReadS [UpdateLoggingConfiguration]
$creadList :: ReadS [UpdateLoggingConfiguration]
readsPrec :: Int -> ReadS UpdateLoggingConfiguration
$creadsPrec :: Int -> ReadS UpdateLoggingConfiguration
Prelude.Read, Int -> UpdateLoggingConfiguration -> ShowS
[UpdateLoggingConfiguration] -> ShowS
UpdateLoggingConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateLoggingConfiguration] -> ShowS
$cshowList :: [UpdateLoggingConfiguration] -> ShowS
show :: UpdateLoggingConfiguration -> String
$cshow :: UpdateLoggingConfiguration -> String
showsPrec :: Int -> UpdateLoggingConfiguration -> ShowS
$cshowsPrec :: Int -> UpdateLoggingConfiguration -> ShowS
Prelude.Show, forall x.
Rep UpdateLoggingConfiguration x -> UpdateLoggingConfiguration
forall x.
UpdateLoggingConfiguration -> Rep UpdateLoggingConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateLoggingConfiguration x -> UpdateLoggingConfiguration
$cfrom :: forall x.
UpdateLoggingConfiguration -> Rep UpdateLoggingConfiguration x
Prelude.Generic)
newUpdateLoggingConfiguration ::
Prelude.Text ->
UpdateLoggingConfiguration
newUpdateLoggingConfiguration :: Text -> UpdateLoggingConfiguration
newUpdateLoggingConfiguration Text
pIdentifier_ =
UpdateLoggingConfiguration'
{ $sel:destinationConfiguration:UpdateLoggingConfiguration' :: Maybe DestinationConfiguration
destinationConfiguration =
forall a. Maybe a
Prelude.Nothing,
$sel:name:UpdateLoggingConfiguration' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:identifier:UpdateLoggingConfiguration' :: Text
identifier = Text
pIdentifier_
}
updateLoggingConfiguration_destinationConfiguration :: Lens.Lens' UpdateLoggingConfiguration (Prelude.Maybe DestinationConfiguration)
updateLoggingConfiguration_destinationConfiguration :: Lens' UpdateLoggingConfiguration (Maybe DestinationConfiguration)
updateLoggingConfiguration_destinationConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLoggingConfiguration' {Maybe DestinationConfiguration
destinationConfiguration :: Maybe DestinationConfiguration
$sel:destinationConfiguration:UpdateLoggingConfiguration' :: UpdateLoggingConfiguration -> Maybe DestinationConfiguration
destinationConfiguration} -> Maybe DestinationConfiguration
destinationConfiguration) (\s :: UpdateLoggingConfiguration
s@UpdateLoggingConfiguration' {} Maybe DestinationConfiguration
a -> UpdateLoggingConfiguration
s {$sel:destinationConfiguration:UpdateLoggingConfiguration' :: Maybe DestinationConfiguration
destinationConfiguration = Maybe DestinationConfiguration
a} :: UpdateLoggingConfiguration)
updateLoggingConfiguration_name :: Lens.Lens' UpdateLoggingConfiguration (Prelude.Maybe Prelude.Text)
updateLoggingConfiguration_name :: Lens' UpdateLoggingConfiguration (Maybe Text)
updateLoggingConfiguration_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLoggingConfiguration' {Maybe Text
name :: Maybe Text
$sel:name:UpdateLoggingConfiguration' :: UpdateLoggingConfiguration -> Maybe Text
name} -> Maybe Text
name) (\s :: UpdateLoggingConfiguration
s@UpdateLoggingConfiguration' {} Maybe Text
a -> UpdateLoggingConfiguration
s {$sel:name:UpdateLoggingConfiguration' :: Maybe Text
name = Maybe Text
a} :: UpdateLoggingConfiguration)
updateLoggingConfiguration_identifier :: Lens.Lens' UpdateLoggingConfiguration Prelude.Text
updateLoggingConfiguration_identifier :: Lens' UpdateLoggingConfiguration Text
updateLoggingConfiguration_identifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLoggingConfiguration' {Text
identifier :: Text
$sel:identifier:UpdateLoggingConfiguration' :: UpdateLoggingConfiguration -> Text
identifier} -> Text
identifier) (\s :: UpdateLoggingConfiguration
s@UpdateLoggingConfiguration' {} Text
a -> UpdateLoggingConfiguration
s {$sel:identifier:UpdateLoggingConfiguration' :: Text
identifier = Text
a} :: UpdateLoggingConfiguration)
instance Core.AWSRequest UpdateLoggingConfiguration where
type
AWSResponse UpdateLoggingConfiguration =
UpdateLoggingConfigurationResponse
request :: (Service -> Service)
-> UpdateLoggingConfiguration -> Request UpdateLoggingConfiguration
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy UpdateLoggingConfiguration
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UpdateLoggingConfiguration)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text
-> Maybe ISO8601
-> Maybe DestinationConfiguration
-> Maybe Text
-> Maybe Text
-> Maybe UpdateLoggingConfigurationState
-> Maybe (HashMap Text Text)
-> Maybe ISO8601
-> Int
-> UpdateLoggingConfigurationResponse
UpdateLoggingConfigurationResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"arn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"createTime")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"destinationConfiguration")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"id")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"name")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"state")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"tags" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"updateTime")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable UpdateLoggingConfiguration where
hashWithSalt :: Int -> UpdateLoggingConfiguration -> Int
hashWithSalt Int
_salt UpdateLoggingConfiguration' {Maybe Text
Maybe DestinationConfiguration
Text
identifier :: Text
name :: Maybe Text
destinationConfiguration :: Maybe DestinationConfiguration
$sel:identifier:UpdateLoggingConfiguration' :: UpdateLoggingConfiguration -> Text
$sel:name:UpdateLoggingConfiguration' :: UpdateLoggingConfiguration -> Maybe Text
$sel:destinationConfiguration:UpdateLoggingConfiguration' :: UpdateLoggingConfiguration -> Maybe DestinationConfiguration
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe DestinationConfiguration
destinationConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
identifier
instance Prelude.NFData UpdateLoggingConfiguration where
rnf :: UpdateLoggingConfiguration -> ()
rnf UpdateLoggingConfiguration' {Maybe Text
Maybe DestinationConfiguration
Text
identifier :: Text
name :: Maybe Text
destinationConfiguration :: Maybe DestinationConfiguration
$sel:identifier:UpdateLoggingConfiguration' :: UpdateLoggingConfiguration -> Text
$sel:name:UpdateLoggingConfiguration' :: UpdateLoggingConfiguration -> Maybe Text
$sel:destinationConfiguration:UpdateLoggingConfiguration' :: UpdateLoggingConfiguration -> Maybe DestinationConfiguration
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe DestinationConfiguration
destinationConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
identifier
instance Data.ToHeaders UpdateLoggingConfiguration where
toHeaders :: UpdateLoggingConfiguration -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON UpdateLoggingConfiguration where
toJSON :: UpdateLoggingConfiguration -> Value
toJSON UpdateLoggingConfiguration' {Maybe Text
Maybe DestinationConfiguration
Text
identifier :: Text
name :: Maybe Text
destinationConfiguration :: Maybe DestinationConfiguration
$sel:identifier:UpdateLoggingConfiguration' :: UpdateLoggingConfiguration -> Text
$sel:name:UpdateLoggingConfiguration' :: UpdateLoggingConfiguration -> Maybe Text
$sel:destinationConfiguration:UpdateLoggingConfiguration' :: UpdateLoggingConfiguration -> Maybe DestinationConfiguration
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"destinationConfiguration" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe DestinationConfiguration
destinationConfiguration,
(Key
"name" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
name,
forall a. a -> Maybe a
Prelude.Just (Key
"identifier" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
identifier)
]
)
instance Data.ToPath UpdateLoggingConfiguration where
toPath :: UpdateLoggingConfiguration -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/UpdateLoggingConfiguration"
instance Data.ToQuery UpdateLoggingConfiguration where
toQuery :: UpdateLoggingConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateLoggingConfigurationResponse = UpdateLoggingConfigurationResponse'
{
UpdateLoggingConfigurationResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
UpdateLoggingConfigurationResponse -> Maybe ISO8601
createTime :: Prelude.Maybe Data.ISO8601,
UpdateLoggingConfigurationResponse
-> Maybe DestinationConfiguration
destinationConfiguration :: Prelude.Maybe DestinationConfiguration,
UpdateLoggingConfigurationResponse -> Maybe Text
id :: Prelude.Maybe Prelude.Text,
UpdateLoggingConfigurationResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
UpdateLoggingConfigurationResponse
-> Maybe UpdateLoggingConfigurationState
state :: Prelude.Maybe UpdateLoggingConfigurationState,
UpdateLoggingConfigurationResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
UpdateLoggingConfigurationResponse -> Maybe ISO8601
updateTime :: Prelude.Maybe Data.ISO8601,
UpdateLoggingConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateLoggingConfigurationResponse
-> UpdateLoggingConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateLoggingConfigurationResponse
-> UpdateLoggingConfigurationResponse -> Bool
$c/= :: UpdateLoggingConfigurationResponse
-> UpdateLoggingConfigurationResponse -> Bool
== :: UpdateLoggingConfigurationResponse
-> UpdateLoggingConfigurationResponse -> Bool
$c== :: UpdateLoggingConfigurationResponse
-> UpdateLoggingConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [UpdateLoggingConfigurationResponse]
ReadPrec UpdateLoggingConfigurationResponse
Int -> ReadS UpdateLoggingConfigurationResponse
ReadS [UpdateLoggingConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateLoggingConfigurationResponse]
$creadListPrec :: ReadPrec [UpdateLoggingConfigurationResponse]
readPrec :: ReadPrec UpdateLoggingConfigurationResponse
$creadPrec :: ReadPrec UpdateLoggingConfigurationResponse
readList :: ReadS [UpdateLoggingConfigurationResponse]
$creadList :: ReadS [UpdateLoggingConfigurationResponse]
readsPrec :: Int -> ReadS UpdateLoggingConfigurationResponse
$creadsPrec :: Int -> ReadS UpdateLoggingConfigurationResponse
Prelude.Read, Int -> UpdateLoggingConfigurationResponse -> ShowS
[UpdateLoggingConfigurationResponse] -> ShowS
UpdateLoggingConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateLoggingConfigurationResponse] -> ShowS
$cshowList :: [UpdateLoggingConfigurationResponse] -> ShowS
show :: UpdateLoggingConfigurationResponse -> String
$cshow :: UpdateLoggingConfigurationResponse -> String
showsPrec :: Int -> UpdateLoggingConfigurationResponse -> ShowS
$cshowsPrec :: Int -> UpdateLoggingConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep UpdateLoggingConfigurationResponse x
-> UpdateLoggingConfigurationResponse
forall x.
UpdateLoggingConfigurationResponse
-> Rep UpdateLoggingConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateLoggingConfigurationResponse x
-> UpdateLoggingConfigurationResponse
$cfrom :: forall x.
UpdateLoggingConfigurationResponse
-> Rep UpdateLoggingConfigurationResponse x
Prelude.Generic)
newUpdateLoggingConfigurationResponse ::
Prelude.Int ->
UpdateLoggingConfigurationResponse
newUpdateLoggingConfigurationResponse :: Int -> UpdateLoggingConfigurationResponse
newUpdateLoggingConfigurationResponse Int
pHttpStatus_ =
UpdateLoggingConfigurationResponse'
{ $sel:arn:UpdateLoggingConfigurationResponse' :: Maybe Text
arn =
forall a. Maybe a
Prelude.Nothing,
$sel:createTime:UpdateLoggingConfigurationResponse' :: Maybe ISO8601
createTime = forall a. Maybe a
Prelude.Nothing,
$sel:destinationConfiguration:UpdateLoggingConfigurationResponse' :: Maybe DestinationConfiguration
destinationConfiguration =
forall a. Maybe a
Prelude.Nothing,
$sel:id:UpdateLoggingConfigurationResponse' :: Maybe Text
id = forall a. Maybe a
Prelude.Nothing,
$sel:name:UpdateLoggingConfigurationResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:state:UpdateLoggingConfigurationResponse' :: Maybe UpdateLoggingConfigurationState
state = forall a. Maybe a
Prelude.Nothing,
$sel:tags:UpdateLoggingConfigurationResponse' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:updateTime:UpdateLoggingConfigurationResponse' :: Maybe ISO8601
updateTime = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:UpdateLoggingConfigurationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
updateLoggingConfigurationResponse_arn :: Lens.Lens' UpdateLoggingConfigurationResponse (Prelude.Maybe Prelude.Text)
updateLoggingConfigurationResponse_arn :: Lens' UpdateLoggingConfigurationResponse (Maybe Text)
updateLoggingConfigurationResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLoggingConfigurationResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:UpdateLoggingConfigurationResponse' :: UpdateLoggingConfigurationResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: UpdateLoggingConfigurationResponse
s@UpdateLoggingConfigurationResponse' {} Maybe Text
a -> UpdateLoggingConfigurationResponse
s {$sel:arn:UpdateLoggingConfigurationResponse' :: Maybe Text
arn = Maybe Text
a} :: UpdateLoggingConfigurationResponse)
updateLoggingConfigurationResponse_createTime :: Lens.Lens' UpdateLoggingConfigurationResponse (Prelude.Maybe Prelude.UTCTime)
updateLoggingConfigurationResponse_createTime :: Lens' UpdateLoggingConfigurationResponse (Maybe UTCTime)
updateLoggingConfigurationResponse_createTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLoggingConfigurationResponse' {Maybe ISO8601
createTime :: Maybe ISO8601
$sel:createTime:UpdateLoggingConfigurationResponse' :: UpdateLoggingConfigurationResponse -> Maybe ISO8601
createTime} -> Maybe ISO8601
createTime) (\s :: UpdateLoggingConfigurationResponse
s@UpdateLoggingConfigurationResponse' {} Maybe ISO8601
a -> UpdateLoggingConfigurationResponse
s {$sel:createTime:UpdateLoggingConfigurationResponse' :: Maybe ISO8601
createTime = Maybe ISO8601
a} :: UpdateLoggingConfigurationResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
updateLoggingConfigurationResponse_destinationConfiguration :: Lens.Lens' UpdateLoggingConfigurationResponse (Prelude.Maybe DestinationConfiguration)
updateLoggingConfigurationResponse_destinationConfiguration :: Lens'
UpdateLoggingConfigurationResponse (Maybe DestinationConfiguration)
updateLoggingConfigurationResponse_destinationConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLoggingConfigurationResponse' {Maybe DestinationConfiguration
destinationConfiguration :: Maybe DestinationConfiguration
$sel:destinationConfiguration:UpdateLoggingConfigurationResponse' :: UpdateLoggingConfigurationResponse
-> Maybe DestinationConfiguration
destinationConfiguration} -> Maybe DestinationConfiguration
destinationConfiguration) (\s :: UpdateLoggingConfigurationResponse
s@UpdateLoggingConfigurationResponse' {} Maybe DestinationConfiguration
a -> UpdateLoggingConfigurationResponse
s {$sel:destinationConfiguration:UpdateLoggingConfigurationResponse' :: Maybe DestinationConfiguration
destinationConfiguration = Maybe DestinationConfiguration
a} :: UpdateLoggingConfigurationResponse)
updateLoggingConfigurationResponse_id :: Lens.Lens' UpdateLoggingConfigurationResponse (Prelude.Maybe Prelude.Text)
updateLoggingConfigurationResponse_id :: Lens' UpdateLoggingConfigurationResponse (Maybe Text)
updateLoggingConfigurationResponse_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLoggingConfigurationResponse' {Maybe Text
id :: Maybe Text
$sel:id:UpdateLoggingConfigurationResponse' :: UpdateLoggingConfigurationResponse -> Maybe Text
id} -> Maybe Text
id) (\s :: UpdateLoggingConfigurationResponse
s@UpdateLoggingConfigurationResponse' {} Maybe Text
a -> UpdateLoggingConfigurationResponse
s {$sel:id:UpdateLoggingConfigurationResponse' :: Maybe Text
id = Maybe Text
a} :: UpdateLoggingConfigurationResponse)
updateLoggingConfigurationResponse_name :: Lens.Lens' UpdateLoggingConfigurationResponse (Prelude.Maybe Prelude.Text)
updateLoggingConfigurationResponse_name :: Lens' UpdateLoggingConfigurationResponse (Maybe Text)
updateLoggingConfigurationResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLoggingConfigurationResponse' {Maybe Text
name :: Maybe Text
$sel:name:UpdateLoggingConfigurationResponse' :: UpdateLoggingConfigurationResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: UpdateLoggingConfigurationResponse
s@UpdateLoggingConfigurationResponse' {} Maybe Text
a -> UpdateLoggingConfigurationResponse
s {$sel:name:UpdateLoggingConfigurationResponse' :: Maybe Text
name = Maybe Text
a} :: UpdateLoggingConfigurationResponse)
updateLoggingConfigurationResponse_state :: Lens.Lens' UpdateLoggingConfigurationResponse (Prelude.Maybe UpdateLoggingConfigurationState)
updateLoggingConfigurationResponse_state :: Lens'
UpdateLoggingConfigurationResponse
(Maybe UpdateLoggingConfigurationState)
updateLoggingConfigurationResponse_state = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLoggingConfigurationResponse' {Maybe UpdateLoggingConfigurationState
state :: Maybe UpdateLoggingConfigurationState
$sel:state:UpdateLoggingConfigurationResponse' :: UpdateLoggingConfigurationResponse
-> Maybe UpdateLoggingConfigurationState
state} -> Maybe UpdateLoggingConfigurationState
state) (\s :: UpdateLoggingConfigurationResponse
s@UpdateLoggingConfigurationResponse' {} Maybe UpdateLoggingConfigurationState
a -> UpdateLoggingConfigurationResponse
s {$sel:state:UpdateLoggingConfigurationResponse' :: Maybe UpdateLoggingConfigurationState
state = Maybe UpdateLoggingConfigurationState
a} :: UpdateLoggingConfigurationResponse)
updateLoggingConfigurationResponse_tags :: Lens.Lens' UpdateLoggingConfigurationResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
updateLoggingConfigurationResponse_tags :: Lens'
UpdateLoggingConfigurationResponse (Maybe (HashMap Text Text))
updateLoggingConfigurationResponse_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLoggingConfigurationResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:UpdateLoggingConfigurationResponse' :: UpdateLoggingConfigurationResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: UpdateLoggingConfigurationResponse
s@UpdateLoggingConfigurationResponse' {} Maybe (HashMap Text Text)
a -> UpdateLoggingConfigurationResponse
s {$sel:tags:UpdateLoggingConfigurationResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: UpdateLoggingConfigurationResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
updateLoggingConfigurationResponse_updateTime :: Lens.Lens' UpdateLoggingConfigurationResponse (Prelude.Maybe Prelude.UTCTime)
updateLoggingConfigurationResponse_updateTime :: Lens' UpdateLoggingConfigurationResponse (Maybe UTCTime)
updateLoggingConfigurationResponse_updateTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLoggingConfigurationResponse' {Maybe ISO8601
updateTime :: Maybe ISO8601
$sel:updateTime:UpdateLoggingConfigurationResponse' :: UpdateLoggingConfigurationResponse -> Maybe ISO8601
updateTime} -> Maybe ISO8601
updateTime) (\s :: UpdateLoggingConfigurationResponse
s@UpdateLoggingConfigurationResponse' {} Maybe ISO8601
a -> UpdateLoggingConfigurationResponse
s {$sel:updateTime:UpdateLoggingConfigurationResponse' :: Maybe ISO8601
updateTime = Maybe ISO8601
a} :: UpdateLoggingConfigurationResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
updateLoggingConfigurationResponse_httpStatus :: Lens.Lens' UpdateLoggingConfigurationResponse Prelude.Int
updateLoggingConfigurationResponse_httpStatus :: Lens' UpdateLoggingConfigurationResponse Int
updateLoggingConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateLoggingConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateLoggingConfigurationResponse' :: UpdateLoggingConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateLoggingConfigurationResponse
s@UpdateLoggingConfigurationResponse' {} Int
a -> UpdateLoggingConfigurationResponse
s {$sel:httpStatus:UpdateLoggingConfigurationResponse' :: Int
httpStatus = Int
a} :: UpdateLoggingConfigurationResponse)
instance
Prelude.NFData
UpdateLoggingConfigurationResponse
where
rnf :: UpdateLoggingConfigurationResponse -> ()
rnf UpdateLoggingConfigurationResponse' {Int
Maybe Text
Maybe (HashMap Text Text)
Maybe ISO8601
Maybe DestinationConfiguration
Maybe UpdateLoggingConfigurationState
httpStatus :: Int
updateTime :: Maybe ISO8601
tags :: Maybe (HashMap Text Text)
state :: Maybe UpdateLoggingConfigurationState
name :: Maybe Text
id :: Maybe Text
destinationConfiguration :: Maybe DestinationConfiguration
createTime :: Maybe ISO8601
arn :: Maybe Text
$sel:httpStatus:UpdateLoggingConfigurationResponse' :: UpdateLoggingConfigurationResponse -> Int
$sel:updateTime:UpdateLoggingConfigurationResponse' :: UpdateLoggingConfigurationResponse -> Maybe ISO8601
$sel:tags:UpdateLoggingConfigurationResponse' :: UpdateLoggingConfigurationResponse -> Maybe (HashMap Text Text)
$sel:state:UpdateLoggingConfigurationResponse' :: UpdateLoggingConfigurationResponse
-> Maybe UpdateLoggingConfigurationState
$sel:name:UpdateLoggingConfigurationResponse' :: UpdateLoggingConfigurationResponse -> Maybe Text
$sel:id:UpdateLoggingConfigurationResponse' :: UpdateLoggingConfigurationResponse -> Maybe Text
$sel:destinationConfiguration:UpdateLoggingConfigurationResponse' :: UpdateLoggingConfigurationResponse
-> Maybe DestinationConfiguration
$sel:createTime:UpdateLoggingConfigurationResponse' :: UpdateLoggingConfigurationResponse -> Maybe ISO8601
$sel:arn:UpdateLoggingConfigurationResponse' :: UpdateLoggingConfigurationResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
arn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ISO8601
createTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe DestinationConfiguration
destinationConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
id
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
name
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe UpdateLoggingConfigurationState
state
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ISO8601
updateTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus