{-# 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.GetLoggingConfiguration
(
GetLoggingConfiguration (..),
newGetLoggingConfiguration,
getLoggingConfiguration_identifier,
GetLoggingConfigurationResponse (..),
newGetLoggingConfigurationResponse,
getLoggingConfigurationResponse_arn,
getLoggingConfigurationResponse_createTime,
getLoggingConfigurationResponse_destinationConfiguration,
getLoggingConfigurationResponse_id,
getLoggingConfigurationResponse_name,
getLoggingConfigurationResponse_state,
getLoggingConfigurationResponse_tags,
getLoggingConfigurationResponse_updateTime,
getLoggingConfigurationResponse_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 GetLoggingConfiguration = GetLoggingConfiguration'
{
GetLoggingConfiguration -> Text
identifier :: Prelude.Text
}
deriving (GetLoggingConfiguration -> GetLoggingConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetLoggingConfiguration -> GetLoggingConfiguration -> Bool
$c/= :: GetLoggingConfiguration -> GetLoggingConfiguration -> Bool
== :: GetLoggingConfiguration -> GetLoggingConfiguration -> Bool
$c== :: GetLoggingConfiguration -> GetLoggingConfiguration -> Bool
Prelude.Eq, ReadPrec [GetLoggingConfiguration]
ReadPrec GetLoggingConfiguration
Int -> ReadS GetLoggingConfiguration
ReadS [GetLoggingConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetLoggingConfiguration]
$creadListPrec :: ReadPrec [GetLoggingConfiguration]
readPrec :: ReadPrec GetLoggingConfiguration
$creadPrec :: ReadPrec GetLoggingConfiguration
readList :: ReadS [GetLoggingConfiguration]
$creadList :: ReadS [GetLoggingConfiguration]
readsPrec :: Int -> ReadS GetLoggingConfiguration
$creadsPrec :: Int -> ReadS GetLoggingConfiguration
Prelude.Read, Int -> GetLoggingConfiguration -> ShowS
[GetLoggingConfiguration] -> ShowS
GetLoggingConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetLoggingConfiguration] -> ShowS
$cshowList :: [GetLoggingConfiguration] -> ShowS
show :: GetLoggingConfiguration -> String
$cshow :: GetLoggingConfiguration -> String
showsPrec :: Int -> GetLoggingConfiguration -> ShowS
$cshowsPrec :: Int -> GetLoggingConfiguration -> ShowS
Prelude.Show, forall x. Rep GetLoggingConfiguration x -> GetLoggingConfiguration
forall x. GetLoggingConfiguration -> Rep GetLoggingConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep GetLoggingConfiguration x -> GetLoggingConfiguration
$cfrom :: forall x. GetLoggingConfiguration -> Rep GetLoggingConfiguration x
Prelude.Generic)
newGetLoggingConfiguration ::
Prelude.Text ->
GetLoggingConfiguration
newGetLoggingConfiguration :: Text -> GetLoggingConfiguration
newGetLoggingConfiguration Text
pIdentifier_ =
GetLoggingConfiguration' {$sel:identifier:GetLoggingConfiguration' :: Text
identifier = Text
pIdentifier_}
getLoggingConfiguration_identifier :: Lens.Lens' GetLoggingConfiguration Prelude.Text
getLoggingConfiguration_identifier :: Lens' GetLoggingConfiguration Text
getLoggingConfiguration_identifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLoggingConfiguration' {Text
identifier :: Text
$sel:identifier:GetLoggingConfiguration' :: GetLoggingConfiguration -> Text
identifier} -> Text
identifier) (\s :: GetLoggingConfiguration
s@GetLoggingConfiguration' {} Text
a -> GetLoggingConfiguration
s {$sel:identifier:GetLoggingConfiguration' :: Text
identifier = Text
a} :: GetLoggingConfiguration)
instance Core.AWSRequest GetLoggingConfiguration where
type
AWSResponse GetLoggingConfiguration =
GetLoggingConfigurationResponse
request :: (Service -> Service)
-> GetLoggingConfiguration -> Request GetLoggingConfiguration
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 GetLoggingConfiguration
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetLoggingConfiguration)))
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 LoggingConfigurationState
-> Maybe (HashMap Text Text)
-> Maybe ISO8601
-> Int
-> GetLoggingConfigurationResponse
GetLoggingConfigurationResponse'
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 GetLoggingConfiguration where
hashWithSalt :: Int -> GetLoggingConfiguration -> Int
hashWithSalt Int
_salt GetLoggingConfiguration' {Text
identifier :: Text
$sel:identifier:GetLoggingConfiguration' :: GetLoggingConfiguration -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
identifier
instance Prelude.NFData GetLoggingConfiguration where
rnf :: GetLoggingConfiguration -> ()
rnf GetLoggingConfiguration' {Text
identifier :: Text
$sel:identifier:GetLoggingConfiguration' :: GetLoggingConfiguration -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
identifier
instance Data.ToHeaders GetLoggingConfiguration where
toHeaders :: GetLoggingConfiguration -> 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 GetLoggingConfiguration where
toJSON :: GetLoggingConfiguration -> Value
toJSON GetLoggingConfiguration' {Text
identifier :: Text
$sel:identifier:GetLoggingConfiguration' :: GetLoggingConfiguration -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[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 GetLoggingConfiguration where
toPath :: GetLoggingConfiguration -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/GetLoggingConfiguration"
instance Data.ToQuery GetLoggingConfiguration where
toQuery :: GetLoggingConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetLoggingConfigurationResponse = GetLoggingConfigurationResponse'
{
GetLoggingConfigurationResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
GetLoggingConfigurationResponse -> Maybe ISO8601
createTime :: Prelude.Maybe Data.ISO8601,
GetLoggingConfigurationResponse -> Maybe DestinationConfiguration
destinationConfiguration :: Prelude.Maybe DestinationConfiguration,
GetLoggingConfigurationResponse -> Maybe Text
id :: Prelude.Maybe Prelude.Text,
GetLoggingConfigurationResponse -> Maybe Text
name :: Prelude.Maybe Prelude.Text,
GetLoggingConfigurationResponse -> Maybe LoggingConfigurationState
state :: Prelude.Maybe LoggingConfigurationState,
GetLoggingConfigurationResponse -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
GetLoggingConfigurationResponse -> Maybe ISO8601
updateTime :: Prelude.Maybe Data.ISO8601,
GetLoggingConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetLoggingConfigurationResponse
-> GetLoggingConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetLoggingConfigurationResponse
-> GetLoggingConfigurationResponse -> Bool
$c/= :: GetLoggingConfigurationResponse
-> GetLoggingConfigurationResponse -> Bool
== :: GetLoggingConfigurationResponse
-> GetLoggingConfigurationResponse -> Bool
$c== :: GetLoggingConfigurationResponse
-> GetLoggingConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [GetLoggingConfigurationResponse]
ReadPrec GetLoggingConfigurationResponse
Int -> ReadS GetLoggingConfigurationResponse
ReadS [GetLoggingConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetLoggingConfigurationResponse]
$creadListPrec :: ReadPrec [GetLoggingConfigurationResponse]
readPrec :: ReadPrec GetLoggingConfigurationResponse
$creadPrec :: ReadPrec GetLoggingConfigurationResponse
readList :: ReadS [GetLoggingConfigurationResponse]
$creadList :: ReadS [GetLoggingConfigurationResponse]
readsPrec :: Int -> ReadS GetLoggingConfigurationResponse
$creadsPrec :: Int -> ReadS GetLoggingConfigurationResponse
Prelude.Read, Int -> GetLoggingConfigurationResponse -> ShowS
[GetLoggingConfigurationResponse] -> ShowS
GetLoggingConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetLoggingConfigurationResponse] -> ShowS
$cshowList :: [GetLoggingConfigurationResponse] -> ShowS
show :: GetLoggingConfigurationResponse -> String
$cshow :: GetLoggingConfigurationResponse -> String
showsPrec :: Int -> GetLoggingConfigurationResponse -> ShowS
$cshowsPrec :: Int -> GetLoggingConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep GetLoggingConfigurationResponse x
-> GetLoggingConfigurationResponse
forall x.
GetLoggingConfigurationResponse
-> Rep GetLoggingConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetLoggingConfigurationResponse x
-> GetLoggingConfigurationResponse
$cfrom :: forall x.
GetLoggingConfigurationResponse
-> Rep GetLoggingConfigurationResponse x
Prelude.Generic)
newGetLoggingConfigurationResponse ::
Prelude.Int ->
GetLoggingConfigurationResponse
newGetLoggingConfigurationResponse :: Int -> GetLoggingConfigurationResponse
newGetLoggingConfigurationResponse Int
pHttpStatus_ =
GetLoggingConfigurationResponse'
{ $sel:arn:GetLoggingConfigurationResponse' :: Maybe Text
arn =
forall a. Maybe a
Prelude.Nothing,
$sel:createTime:GetLoggingConfigurationResponse' :: Maybe ISO8601
createTime = forall a. Maybe a
Prelude.Nothing,
$sel:destinationConfiguration:GetLoggingConfigurationResponse' :: Maybe DestinationConfiguration
destinationConfiguration = forall a. Maybe a
Prelude.Nothing,
$sel:id:GetLoggingConfigurationResponse' :: Maybe Text
id = forall a. Maybe a
Prelude.Nothing,
$sel:name:GetLoggingConfigurationResponse' :: Maybe Text
name = forall a. Maybe a
Prelude.Nothing,
$sel:state:GetLoggingConfigurationResponse' :: Maybe LoggingConfigurationState
state = forall a. Maybe a
Prelude.Nothing,
$sel:tags:GetLoggingConfigurationResponse' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:updateTime:GetLoggingConfigurationResponse' :: Maybe ISO8601
updateTime = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetLoggingConfigurationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getLoggingConfigurationResponse_arn :: Lens.Lens' GetLoggingConfigurationResponse (Prelude.Maybe Prelude.Text)
getLoggingConfigurationResponse_arn :: Lens' GetLoggingConfigurationResponse (Maybe Text)
getLoggingConfigurationResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLoggingConfigurationResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:GetLoggingConfigurationResponse' :: GetLoggingConfigurationResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: GetLoggingConfigurationResponse
s@GetLoggingConfigurationResponse' {} Maybe Text
a -> GetLoggingConfigurationResponse
s {$sel:arn:GetLoggingConfigurationResponse' :: Maybe Text
arn = Maybe Text
a} :: GetLoggingConfigurationResponse)
getLoggingConfigurationResponse_createTime :: Lens.Lens' GetLoggingConfigurationResponse (Prelude.Maybe Prelude.UTCTime)
getLoggingConfigurationResponse_createTime :: Lens' GetLoggingConfigurationResponse (Maybe UTCTime)
getLoggingConfigurationResponse_createTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLoggingConfigurationResponse' {Maybe ISO8601
createTime :: Maybe ISO8601
$sel:createTime:GetLoggingConfigurationResponse' :: GetLoggingConfigurationResponse -> Maybe ISO8601
createTime} -> Maybe ISO8601
createTime) (\s :: GetLoggingConfigurationResponse
s@GetLoggingConfigurationResponse' {} Maybe ISO8601
a -> GetLoggingConfigurationResponse
s {$sel:createTime:GetLoggingConfigurationResponse' :: Maybe ISO8601
createTime = Maybe ISO8601
a} :: GetLoggingConfigurationResponse) 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
getLoggingConfigurationResponse_destinationConfiguration :: Lens.Lens' GetLoggingConfigurationResponse (Prelude.Maybe DestinationConfiguration)
getLoggingConfigurationResponse_destinationConfiguration :: Lens'
GetLoggingConfigurationResponse (Maybe DestinationConfiguration)
getLoggingConfigurationResponse_destinationConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLoggingConfigurationResponse' {Maybe DestinationConfiguration
destinationConfiguration :: Maybe DestinationConfiguration
$sel:destinationConfiguration:GetLoggingConfigurationResponse' :: GetLoggingConfigurationResponse -> Maybe DestinationConfiguration
destinationConfiguration} -> Maybe DestinationConfiguration
destinationConfiguration) (\s :: GetLoggingConfigurationResponse
s@GetLoggingConfigurationResponse' {} Maybe DestinationConfiguration
a -> GetLoggingConfigurationResponse
s {$sel:destinationConfiguration:GetLoggingConfigurationResponse' :: Maybe DestinationConfiguration
destinationConfiguration = Maybe DestinationConfiguration
a} :: GetLoggingConfigurationResponse)
getLoggingConfigurationResponse_id :: Lens.Lens' GetLoggingConfigurationResponse (Prelude.Maybe Prelude.Text)
getLoggingConfigurationResponse_id :: Lens' GetLoggingConfigurationResponse (Maybe Text)
getLoggingConfigurationResponse_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLoggingConfigurationResponse' {Maybe Text
id :: Maybe Text
$sel:id:GetLoggingConfigurationResponse' :: GetLoggingConfigurationResponse -> Maybe Text
id} -> Maybe Text
id) (\s :: GetLoggingConfigurationResponse
s@GetLoggingConfigurationResponse' {} Maybe Text
a -> GetLoggingConfigurationResponse
s {$sel:id:GetLoggingConfigurationResponse' :: Maybe Text
id = Maybe Text
a} :: GetLoggingConfigurationResponse)
getLoggingConfigurationResponse_name :: Lens.Lens' GetLoggingConfigurationResponse (Prelude.Maybe Prelude.Text)
getLoggingConfigurationResponse_name :: Lens' GetLoggingConfigurationResponse (Maybe Text)
getLoggingConfigurationResponse_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLoggingConfigurationResponse' {Maybe Text
name :: Maybe Text
$sel:name:GetLoggingConfigurationResponse' :: GetLoggingConfigurationResponse -> Maybe Text
name} -> Maybe Text
name) (\s :: GetLoggingConfigurationResponse
s@GetLoggingConfigurationResponse' {} Maybe Text
a -> GetLoggingConfigurationResponse
s {$sel:name:GetLoggingConfigurationResponse' :: Maybe Text
name = Maybe Text
a} :: GetLoggingConfigurationResponse)
getLoggingConfigurationResponse_state :: Lens.Lens' GetLoggingConfigurationResponse (Prelude.Maybe LoggingConfigurationState)
getLoggingConfigurationResponse_state :: Lens'
GetLoggingConfigurationResponse (Maybe LoggingConfigurationState)
getLoggingConfigurationResponse_state = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLoggingConfigurationResponse' {Maybe LoggingConfigurationState
state :: Maybe LoggingConfigurationState
$sel:state:GetLoggingConfigurationResponse' :: GetLoggingConfigurationResponse -> Maybe LoggingConfigurationState
state} -> Maybe LoggingConfigurationState
state) (\s :: GetLoggingConfigurationResponse
s@GetLoggingConfigurationResponse' {} Maybe LoggingConfigurationState
a -> GetLoggingConfigurationResponse
s {$sel:state:GetLoggingConfigurationResponse' :: Maybe LoggingConfigurationState
state = Maybe LoggingConfigurationState
a} :: GetLoggingConfigurationResponse)
getLoggingConfigurationResponse_tags :: Lens.Lens' GetLoggingConfigurationResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
getLoggingConfigurationResponse_tags :: Lens' GetLoggingConfigurationResponse (Maybe (HashMap Text Text))
getLoggingConfigurationResponse_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLoggingConfigurationResponse' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:GetLoggingConfigurationResponse' :: GetLoggingConfigurationResponse -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: GetLoggingConfigurationResponse
s@GetLoggingConfigurationResponse' {} Maybe (HashMap Text Text)
a -> GetLoggingConfigurationResponse
s {$sel:tags:GetLoggingConfigurationResponse' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: GetLoggingConfigurationResponse) 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
getLoggingConfigurationResponse_updateTime :: Lens.Lens' GetLoggingConfigurationResponse (Prelude.Maybe Prelude.UTCTime)
getLoggingConfigurationResponse_updateTime :: Lens' GetLoggingConfigurationResponse (Maybe UTCTime)
getLoggingConfigurationResponse_updateTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLoggingConfigurationResponse' {Maybe ISO8601
updateTime :: Maybe ISO8601
$sel:updateTime:GetLoggingConfigurationResponse' :: GetLoggingConfigurationResponse -> Maybe ISO8601
updateTime} -> Maybe ISO8601
updateTime) (\s :: GetLoggingConfigurationResponse
s@GetLoggingConfigurationResponse' {} Maybe ISO8601
a -> GetLoggingConfigurationResponse
s {$sel:updateTime:GetLoggingConfigurationResponse' :: Maybe ISO8601
updateTime = Maybe ISO8601
a} :: GetLoggingConfigurationResponse) 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
getLoggingConfigurationResponse_httpStatus :: Lens.Lens' GetLoggingConfigurationResponse Prelude.Int
getLoggingConfigurationResponse_httpStatus :: Lens' GetLoggingConfigurationResponse Int
getLoggingConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetLoggingConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetLoggingConfigurationResponse' :: GetLoggingConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetLoggingConfigurationResponse
s@GetLoggingConfigurationResponse' {} Int
a -> GetLoggingConfigurationResponse
s {$sel:httpStatus:GetLoggingConfigurationResponse' :: Int
httpStatus = Int
a} :: GetLoggingConfigurationResponse)
instance
Prelude.NFData
GetLoggingConfigurationResponse
where
rnf :: GetLoggingConfigurationResponse -> ()
rnf GetLoggingConfigurationResponse' {Int
Maybe Text
Maybe (HashMap Text Text)
Maybe ISO8601
Maybe LoggingConfigurationState
Maybe DestinationConfiguration
httpStatus :: Int
updateTime :: Maybe ISO8601
tags :: Maybe (HashMap Text Text)
state :: Maybe LoggingConfigurationState
name :: Maybe Text
id :: Maybe Text
destinationConfiguration :: Maybe DestinationConfiguration
createTime :: Maybe ISO8601
arn :: Maybe Text
$sel:httpStatus:GetLoggingConfigurationResponse' :: GetLoggingConfigurationResponse -> Int
$sel:updateTime:GetLoggingConfigurationResponse' :: GetLoggingConfigurationResponse -> Maybe ISO8601
$sel:tags:GetLoggingConfigurationResponse' :: GetLoggingConfigurationResponse -> Maybe (HashMap Text Text)
$sel:state:GetLoggingConfigurationResponse' :: GetLoggingConfigurationResponse -> Maybe LoggingConfigurationState
$sel:name:GetLoggingConfigurationResponse' :: GetLoggingConfigurationResponse -> Maybe Text
$sel:id:GetLoggingConfigurationResponse' :: GetLoggingConfigurationResponse -> Maybe Text
$sel:destinationConfiguration:GetLoggingConfigurationResponse' :: GetLoggingConfigurationResponse -> Maybe DestinationConfiguration
$sel:createTime:GetLoggingConfigurationResponse' :: GetLoggingConfigurationResponse -> Maybe ISO8601
$sel:arn:GetLoggingConfigurationResponse' :: GetLoggingConfigurationResponse -> 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 LoggingConfigurationState
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