{-# 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.Greengrass.CreateLoggerDefinitionVersion
(
CreateLoggerDefinitionVersion (..),
newCreateLoggerDefinitionVersion,
createLoggerDefinitionVersion_amznClientToken,
createLoggerDefinitionVersion_loggers,
createLoggerDefinitionVersion_loggerDefinitionId,
CreateLoggerDefinitionVersionResponse (..),
newCreateLoggerDefinitionVersionResponse,
createLoggerDefinitionVersionResponse_arn,
createLoggerDefinitionVersionResponse_creationTimestamp,
createLoggerDefinitionVersionResponse_id,
createLoggerDefinitionVersionResponse_version,
createLoggerDefinitionVersionResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.Greengrass.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data CreateLoggerDefinitionVersion = CreateLoggerDefinitionVersion'
{
CreateLoggerDefinitionVersion -> Maybe Text
amznClientToken :: Prelude.Maybe Prelude.Text,
CreateLoggerDefinitionVersion -> Maybe [GreengrassLogger]
loggers :: Prelude.Maybe [GreengrassLogger],
CreateLoggerDefinitionVersion -> Text
loggerDefinitionId :: Prelude.Text
}
deriving (CreateLoggerDefinitionVersion
-> CreateLoggerDefinitionVersion -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateLoggerDefinitionVersion
-> CreateLoggerDefinitionVersion -> Bool
$c/= :: CreateLoggerDefinitionVersion
-> CreateLoggerDefinitionVersion -> Bool
== :: CreateLoggerDefinitionVersion
-> CreateLoggerDefinitionVersion -> Bool
$c== :: CreateLoggerDefinitionVersion
-> CreateLoggerDefinitionVersion -> Bool
Prelude.Eq, ReadPrec [CreateLoggerDefinitionVersion]
ReadPrec CreateLoggerDefinitionVersion
Int -> ReadS CreateLoggerDefinitionVersion
ReadS [CreateLoggerDefinitionVersion]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateLoggerDefinitionVersion]
$creadListPrec :: ReadPrec [CreateLoggerDefinitionVersion]
readPrec :: ReadPrec CreateLoggerDefinitionVersion
$creadPrec :: ReadPrec CreateLoggerDefinitionVersion
readList :: ReadS [CreateLoggerDefinitionVersion]
$creadList :: ReadS [CreateLoggerDefinitionVersion]
readsPrec :: Int -> ReadS CreateLoggerDefinitionVersion
$creadsPrec :: Int -> ReadS CreateLoggerDefinitionVersion
Prelude.Read, Int -> CreateLoggerDefinitionVersion -> ShowS
[CreateLoggerDefinitionVersion] -> ShowS
CreateLoggerDefinitionVersion -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateLoggerDefinitionVersion] -> ShowS
$cshowList :: [CreateLoggerDefinitionVersion] -> ShowS
show :: CreateLoggerDefinitionVersion -> String
$cshow :: CreateLoggerDefinitionVersion -> String
showsPrec :: Int -> CreateLoggerDefinitionVersion -> ShowS
$cshowsPrec :: Int -> CreateLoggerDefinitionVersion -> ShowS
Prelude.Show, forall x.
Rep CreateLoggerDefinitionVersion x
-> CreateLoggerDefinitionVersion
forall x.
CreateLoggerDefinitionVersion
-> Rep CreateLoggerDefinitionVersion x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateLoggerDefinitionVersion x
-> CreateLoggerDefinitionVersion
$cfrom :: forall x.
CreateLoggerDefinitionVersion
-> Rep CreateLoggerDefinitionVersion x
Prelude.Generic)
newCreateLoggerDefinitionVersion ::
Prelude.Text ->
CreateLoggerDefinitionVersion
newCreateLoggerDefinitionVersion :: Text -> CreateLoggerDefinitionVersion
newCreateLoggerDefinitionVersion Text
pLoggerDefinitionId_ =
CreateLoggerDefinitionVersion'
{ $sel:amznClientToken:CreateLoggerDefinitionVersion' :: Maybe Text
amznClientToken =
forall a. Maybe a
Prelude.Nothing,
$sel:loggers:CreateLoggerDefinitionVersion' :: Maybe [GreengrassLogger]
loggers = forall a. Maybe a
Prelude.Nothing,
$sel:loggerDefinitionId:CreateLoggerDefinitionVersion' :: Text
loggerDefinitionId = Text
pLoggerDefinitionId_
}
createLoggerDefinitionVersion_amznClientToken :: Lens.Lens' CreateLoggerDefinitionVersion (Prelude.Maybe Prelude.Text)
createLoggerDefinitionVersion_amznClientToken :: Lens' CreateLoggerDefinitionVersion (Maybe Text)
createLoggerDefinitionVersion_amznClientToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoggerDefinitionVersion' {Maybe Text
amznClientToken :: Maybe Text
$sel:amznClientToken:CreateLoggerDefinitionVersion' :: CreateLoggerDefinitionVersion -> Maybe Text
amznClientToken} -> Maybe Text
amznClientToken) (\s :: CreateLoggerDefinitionVersion
s@CreateLoggerDefinitionVersion' {} Maybe Text
a -> CreateLoggerDefinitionVersion
s {$sel:amznClientToken:CreateLoggerDefinitionVersion' :: Maybe Text
amznClientToken = Maybe Text
a} :: CreateLoggerDefinitionVersion)
createLoggerDefinitionVersion_loggers :: Lens.Lens' CreateLoggerDefinitionVersion (Prelude.Maybe [GreengrassLogger])
createLoggerDefinitionVersion_loggers :: Lens' CreateLoggerDefinitionVersion (Maybe [GreengrassLogger])
createLoggerDefinitionVersion_loggers = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoggerDefinitionVersion' {Maybe [GreengrassLogger]
loggers :: Maybe [GreengrassLogger]
$sel:loggers:CreateLoggerDefinitionVersion' :: CreateLoggerDefinitionVersion -> Maybe [GreengrassLogger]
loggers} -> Maybe [GreengrassLogger]
loggers) (\s :: CreateLoggerDefinitionVersion
s@CreateLoggerDefinitionVersion' {} Maybe [GreengrassLogger]
a -> CreateLoggerDefinitionVersion
s {$sel:loggers:CreateLoggerDefinitionVersion' :: Maybe [GreengrassLogger]
loggers = Maybe [GreengrassLogger]
a} :: CreateLoggerDefinitionVersion) 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
createLoggerDefinitionVersion_loggerDefinitionId :: Lens.Lens' CreateLoggerDefinitionVersion Prelude.Text
createLoggerDefinitionVersion_loggerDefinitionId :: Lens' CreateLoggerDefinitionVersion Text
createLoggerDefinitionVersion_loggerDefinitionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoggerDefinitionVersion' {Text
loggerDefinitionId :: Text
$sel:loggerDefinitionId:CreateLoggerDefinitionVersion' :: CreateLoggerDefinitionVersion -> Text
loggerDefinitionId} -> Text
loggerDefinitionId) (\s :: CreateLoggerDefinitionVersion
s@CreateLoggerDefinitionVersion' {} Text
a -> CreateLoggerDefinitionVersion
s {$sel:loggerDefinitionId:CreateLoggerDefinitionVersion' :: Text
loggerDefinitionId = Text
a} :: CreateLoggerDefinitionVersion)
instance
Core.AWSRequest
CreateLoggerDefinitionVersion
where
type
AWSResponse CreateLoggerDefinitionVersion =
CreateLoggerDefinitionVersionResponse
request :: (Service -> Service)
-> CreateLoggerDefinitionVersion
-> Request CreateLoggerDefinitionVersion
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 CreateLoggerDefinitionVersion
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CreateLoggerDefinitionVersion)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> CreateLoggerDefinitionVersionResponse
CreateLoggerDefinitionVersionResponse'
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
"CreationTimestamp")
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
"Version")
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
CreateLoggerDefinitionVersion
where
hashWithSalt :: Int -> CreateLoggerDefinitionVersion -> Int
hashWithSalt Int
_salt CreateLoggerDefinitionVersion' {Maybe [GreengrassLogger]
Maybe Text
Text
loggerDefinitionId :: Text
loggers :: Maybe [GreengrassLogger]
amznClientToken :: Maybe Text
$sel:loggerDefinitionId:CreateLoggerDefinitionVersion' :: CreateLoggerDefinitionVersion -> Text
$sel:loggers:CreateLoggerDefinitionVersion' :: CreateLoggerDefinitionVersion -> Maybe [GreengrassLogger]
$sel:amznClientToken:CreateLoggerDefinitionVersion' :: CreateLoggerDefinitionVersion -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
amznClientToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [GreengrassLogger]
loggers
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
loggerDefinitionId
instance Prelude.NFData CreateLoggerDefinitionVersion where
rnf :: CreateLoggerDefinitionVersion -> ()
rnf CreateLoggerDefinitionVersion' {Maybe [GreengrassLogger]
Maybe Text
Text
loggerDefinitionId :: Text
loggers :: Maybe [GreengrassLogger]
amznClientToken :: Maybe Text
$sel:loggerDefinitionId:CreateLoggerDefinitionVersion' :: CreateLoggerDefinitionVersion -> Text
$sel:loggers:CreateLoggerDefinitionVersion' :: CreateLoggerDefinitionVersion -> Maybe [GreengrassLogger]
$sel:amznClientToken:CreateLoggerDefinitionVersion' :: CreateLoggerDefinitionVersion -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
amznClientToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [GreengrassLogger]
loggers
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
loggerDefinitionId
instance Data.ToHeaders CreateLoggerDefinitionVersion where
toHeaders :: CreateLoggerDefinitionVersion -> ResponseHeaders
toHeaders CreateLoggerDefinitionVersion' {Maybe [GreengrassLogger]
Maybe Text
Text
loggerDefinitionId :: Text
loggers :: Maybe [GreengrassLogger]
amznClientToken :: Maybe Text
$sel:loggerDefinitionId:CreateLoggerDefinitionVersion' :: CreateLoggerDefinitionVersion -> Text
$sel:loggers:CreateLoggerDefinitionVersion' :: CreateLoggerDefinitionVersion -> Maybe [GreengrassLogger]
$sel:amznClientToken:CreateLoggerDefinitionVersion' :: CreateLoggerDefinitionVersion -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amzn-Client-Token" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
amznClientToken,
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# (ByteString
"application/x-amz-json-1.1" :: Prelude.ByteString)
]
instance Data.ToJSON CreateLoggerDefinitionVersion where
toJSON :: CreateLoggerDefinitionVersion -> Value
toJSON CreateLoggerDefinitionVersion' {Maybe [GreengrassLogger]
Maybe Text
Text
loggerDefinitionId :: Text
loggers :: Maybe [GreengrassLogger]
amznClientToken :: Maybe Text
$sel:loggerDefinitionId:CreateLoggerDefinitionVersion' :: CreateLoggerDefinitionVersion -> Text
$sel:loggers:CreateLoggerDefinitionVersion' :: CreateLoggerDefinitionVersion -> Maybe [GreengrassLogger]
$sel:amznClientToken:CreateLoggerDefinitionVersion' :: CreateLoggerDefinitionVersion -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[(Key
"Loggers" 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 [GreengrassLogger]
loggers]
)
instance Data.ToPath CreateLoggerDefinitionVersion where
toPath :: CreateLoggerDefinitionVersion -> ByteString
toPath CreateLoggerDefinitionVersion' {Maybe [GreengrassLogger]
Maybe Text
Text
loggerDefinitionId :: Text
loggers :: Maybe [GreengrassLogger]
amznClientToken :: Maybe Text
$sel:loggerDefinitionId:CreateLoggerDefinitionVersion' :: CreateLoggerDefinitionVersion -> Text
$sel:loggers:CreateLoggerDefinitionVersion' :: CreateLoggerDefinitionVersion -> Maybe [GreengrassLogger]
$sel:amznClientToken:CreateLoggerDefinitionVersion' :: CreateLoggerDefinitionVersion -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/greengrass/definition/loggers/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
loggerDefinitionId,
ByteString
"/versions"
]
instance Data.ToQuery CreateLoggerDefinitionVersion where
toQuery :: CreateLoggerDefinitionVersion -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CreateLoggerDefinitionVersionResponse = CreateLoggerDefinitionVersionResponse'
{
CreateLoggerDefinitionVersionResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
CreateLoggerDefinitionVersionResponse -> Maybe Text
creationTimestamp :: Prelude.Maybe Prelude.Text,
CreateLoggerDefinitionVersionResponse -> Maybe Text
id :: Prelude.Maybe Prelude.Text,
CreateLoggerDefinitionVersionResponse -> Maybe Text
version :: Prelude.Maybe Prelude.Text,
CreateLoggerDefinitionVersionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CreateLoggerDefinitionVersionResponse
-> CreateLoggerDefinitionVersionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CreateLoggerDefinitionVersionResponse
-> CreateLoggerDefinitionVersionResponse -> Bool
$c/= :: CreateLoggerDefinitionVersionResponse
-> CreateLoggerDefinitionVersionResponse -> Bool
== :: CreateLoggerDefinitionVersionResponse
-> CreateLoggerDefinitionVersionResponse -> Bool
$c== :: CreateLoggerDefinitionVersionResponse
-> CreateLoggerDefinitionVersionResponse -> Bool
Prelude.Eq, ReadPrec [CreateLoggerDefinitionVersionResponse]
ReadPrec CreateLoggerDefinitionVersionResponse
Int -> ReadS CreateLoggerDefinitionVersionResponse
ReadS [CreateLoggerDefinitionVersionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CreateLoggerDefinitionVersionResponse]
$creadListPrec :: ReadPrec [CreateLoggerDefinitionVersionResponse]
readPrec :: ReadPrec CreateLoggerDefinitionVersionResponse
$creadPrec :: ReadPrec CreateLoggerDefinitionVersionResponse
readList :: ReadS [CreateLoggerDefinitionVersionResponse]
$creadList :: ReadS [CreateLoggerDefinitionVersionResponse]
readsPrec :: Int -> ReadS CreateLoggerDefinitionVersionResponse
$creadsPrec :: Int -> ReadS CreateLoggerDefinitionVersionResponse
Prelude.Read, Int -> CreateLoggerDefinitionVersionResponse -> ShowS
[CreateLoggerDefinitionVersionResponse] -> ShowS
CreateLoggerDefinitionVersionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CreateLoggerDefinitionVersionResponse] -> ShowS
$cshowList :: [CreateLoggerDefinitionVersionResponse] -> ShowS
show :: CreateLoggerDefinitionVersionResponse -> String
$cshow :: CreateLoggerDefinitionVersionResponse -> String
showsPrec :: Int -> CreateLoggerDefinitionVersionResponse -> ShowS
$cshowsPrec :: Int -> CreateLoggerDefinitionVersionResponse -> ShowS
Prelude.Show, forall x.
Rep CreateLoggerDefinitionVersionResponse x
-> CreateLoggerDefinitionVersionResponse
forall x.
CreateLoggerDefinitionVersionResponse
-> Rep CreateLoggerDefinitionVersionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CreateLoggerDefinitionVersionResponse x
-> CreateLoggerDefinitionVersionResponse
$cfrom :: forall x.
CreateLoggerDefinitionVersionResponse
-> Rep CreateLoggerDefinitionVersionResponse x
Prelude.Generic)
newCreateLoggerDefinitionVersionResponse ::
Prelude.Int ->
CreateLoggerDefinitionVersionResponse
newCreateLoggerDefinitionVersionResponse :: Int -> CreateLoggerDefinitionVersionResponse
newCreateLoggerDefinitionVersionResponse Int
pHttpStatus_ =
CreateLoggerDefinitionVersionResponse'
{ $sel:arn:CreateLoggerDefinitionVersionResponse' :: Maybe Text
arn =
forall a. Maybe a
Prelude.Nothing,
$sel:creationTimestamp:CreateLoggerDefinitionVersionResponse' :: Maybe Text
creationTimestamp = forall a. Maybe a
Prelude.Nothing,
$sel:id:CreateLoggerDefinitionVersionResponse' :: Maybe Text
id = forall a. Maybe a
Prelude.Nothing,
$sel:version:CreateLoggerDefinitionVersionResponse' :: Maybe Text
version = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CreateLoggerDefinitionVersionResponse' :: Int
httpStatus = Int
pHttpStatus_
}
createLoggerDefinitionVersionResponse_arn :: Lens.Lens' CreateLoggerDefinitionVersionResponse (Prelude.Maybe Prelude.Text)
createLoggerDefinitionVersionResponse_arn :: Lens' CreateLoggerDefinitionVersionResponse (Maybe Text)
createLoggerDefinitionVersionResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoggerDefinitionVersionResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:CreateLoggerDefinitionVersionResponse' :: CreateLoggerDefinitionVersionResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: CreateLoggerDefinitionVersionResponse
s@CreateLoggerDefinitionVersionResponse' {} Maybe Text
a -> CreateLoggerDefinitionVersionResponse
s {$sel:arn:CreateLoggerDefinitionVersionResponse' :: Maybe Text
arn = Maybe Text
a} :: CreateLoggerDefinitionVersionResponse)
createLoggerDefinitionVersionResponse_creationTimestamp :: Lens.Lens' CreateLoggerDefinitionVersionResponse (Prelude.Maybe Prelude.Text)
createLoggerDefinitionVersionResponse_creationTimestamp :: Lens' CreateLoggerDefinitionVersionResponse (Maybe Text)
createLoggerDefinitionVersionResponse_creationTimestamp = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoggerDefinitionVersionResponse' {Maybe Text
creationTimestamp :: Maybe Text
$sel:creationTimestamp:CreateLoggerDefinitionVersionResponse' :: CreateLoggerDefinitionVersionResponse -> Maybe Text
creationTimestamp} -> Maybe Text
creationTimestamp) (\s :: CreateLoggerDefinitionVersionResponse
s@CreateLoggerDefinitionVersionResponse' {} Maybe Text
a -> CreateLoggerDefinitionVersionResponse
s {$sel:creationTimestamp:CreateLoggerDefinitionVersionResponse' :: Maybe Text
creationTimestamp = Maybe Text
a} :: CreateLoggerDefinitionVersionResponse)
createLoggerDefinitionVersionResponse_id :: Lens.Lens' CreateLoggerDefinitionVersionResponse (Prelude.Maybe Prelude.Text)
createLoggerDefinitionVersionResponse_id :: Lens' CreateLoggerDefinitionVersionResponse (Maybe Text)
createLoggerDefinitionVersionResponse_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoggerDefinitionVersionResponse' {Maybe Text
id :: Maybe Text
$sel:id:CreateLoggerDefinitionVersionResponse' :: CreateLoggerDefinitionVersionResponse -> Maybe Text
id} -> Maybe Text
id) (\s :: CreateLoggerDefinitionVersionResponse
s@CreateLoggerDefinitionVersionResponse' {} Maybe Text
a -> CreateLoggerDefinitionVersionResponse
s {$sel:id:CreateLoggerDefinitionVersionResponse' :: Maybe Text
id = Maybe Text
a} :: CreateLoggerDefinitionVersionResponse)
createLoggerDefinitionVersionResponse_version :: Lens.Lens' CreateLoggerDefinitionVersionResponse (Prelude.Maybe Prelude.Text)
createLoggerDefinitionVersionResponse_version :: Lens' CreateLoggerDefinitionVersionResponse (Maybe Text)
createLoggerDefinitionVersionResponse_version = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoggerDefinitionVersionResponse' {Maybe Text
version :: Maybe Text
$sel:version:CreateLoggerDefinitionVersionResponse' :: CreateLoggerDefinitionVersionResponse -> Maybe Text
version} -> Maybe Text
version) (\s :: CreateLoggerDefinitionVersionResponse
s@CreateLoggerDefinitionVersionResponse' {} Maybe Text
a -> CreateLoggerDefinitionVersionResponse
s {$sel:version:CreateLoggerDefinitionVersionResponse' :: Maybe Text
version = Maybe Text
a} :: CreateLoggerDefinitionVersionResponse)
createLoggerDefinitionVersionResponse_httpStatus :: Lens.Lens' CreateLoggerDefinitionVersionResponse Prelude.Int
createLoggerDefinitionVersionResponse_httpStatus :: Lens' CreateLoggerDefinitionVersionResponse Int
createLoggerDefinitionVersionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CreateLoggerDefinitionVersionResponse' {Int
httpStatus :: Int
$sel:httpStatus:CreateLoggerDefinitionVersionResponse' :: CreateLoggerDefinitionVersionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CreateLoggerDefinitionVersionResponse
s@CreateLoggerDefinitionVersionResponse' {} Int
a -> CreateLoggerDefinitionVersionResponse
s {$sel:httpStatus:CreateLoggerDefinitionVersionResponse' :: Int
httpStatus = Int
a} :: CreateLoggerDefinitionVersionResponse)
instance
Prelude.NFData
CreateLoggerDefinitionVersionResponse
where
rnf :: CreateLoggerDefinitionVersionResponse -> ()
rnf CreateLoggerDefinitionVersionResponse' {Int
Maybe Text
httpStatus :: Int
version :: Maybe Text
id :: Maybe Text
creationTimestamp :: Maybe Text
arn :: Maybe Text
$sel:httpStatus:CreateLoggerDefinitionVersionResponse' :: CreateLoggerDefinitionVersionResponse -> Int
$sel:version:CreateLoggerDefinitionVersionResponse' :: CreateLoggerDefinitionVersionResponse -> Maybe Text
$sel:id:CreateLoggerDefinitionVersionResponse' :: CreateLoggerDefinitionVersionResponse -> Maybe Text
$sel:creationTimestamp:CreateLoggerDefinitionVersionResponse' :: CreateLoggerDefinitionVersionResponse -> Maybe Text
$sel:arn:CreateLoggerDefinitionVersionResponse' :: CreateLoggerDefinitionVersionResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
arn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
creationTimestamp
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
version
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus