{-# 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.ListLoggerDefinitionVersions
(
ListLoggerDefinitionVersions (..),
newListLoggerDefinitionVersions,
listLoggerDefinitionVersions_maxResults,
listLoggerDefinitionVersions_nextToken,
listLoggerDefinitionVersions_loggerDefinitionId,
ListLoggerDefinitionVersionsResponse (..),
newListLoggerDefinitionVersionsResponse,
listLoggerDefinitionVersionsResponse_nextToken,
listLoggerDefinitionVersionsResponse_versions,
listLoggerDefinitionVersionsResponse_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 ListLoggerDefinitionVersions = ListLoggerDefinitionVersions'
{
ListLoggerDefinitionVersions -> Maybe Text
maxResults :: Prelude.Maybe Prelude.Text,
ListLoggerDefinitionVersions -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListLoggerDefinitionVersions -> Text
loggerDefinitionId :: Prelude.Text
}
deriving (ListLoggerDefinitionVersions
-> ListLoggerDefinitionVersions -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListLoggerDefinitionVersions
-> ListLoggerDefinitionVersions -> Bool
$c/= :: ListLoggerDefinitionVersions
-> ListLoggerDefinitionVersions -> Bool
== :: ListLoggerDefinitionVersions
-> ListLoggerDefinitionVersions -> Bool
$c== :: ListLoggerDefinitionVersions
-> ListLoggerDefinitionVersions -> Bool
Prelude.Eq, ReadPrec [ListLoggerDefinitionVersions]
ReadPrec ListLoggerDefinitionVersions
Int -> ReadS ListLoggerDefinitionVersions
ReadS [ListLoggerDefinitionVersions]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListLoggerDefinitionVersions]
$creadListPrec :: ReadPrec [ListLoggerDefinitionVersions]
readPrec :: ReadPrec ListLoggerDefinitionVersions
$creadPrec :: ReadPrec ListLoggerDefinitionVersions
readList :: ReadS [ListLoggerDefinitionVersions]
$creadList :: ReadS [ListLoggerDefinitionVersions]
readsPrec :: Int -> ReadS ListLoggerDefinitionVersions
$creadsPrec :: Int -> ReadS ListLoggerDefinitionVersions
Prelude.Read, Int -> ListLoggerDefinitionVersions -> ShowS
[ListLoggerDefinitionVersions] -> ShowS
ListLoggerDefinitionVersions -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListLoggerDefinitionVersions] -> ShowS
$cshowList :: [ListLoggerDefinitionVersions] -> ShowS
show :: ListLoggerDefinitionVersions -> String
$cshow :: ListLoggerDefinitionVersions -> String
showsPrec :: Int -> ListLoggerDefinitionVersions -> ShowS
$cshowsPrec :: Int -> ListLoggerDefinitionVersions -> ShowS
Prelude.Show, forall x.
Rep ListLoggerDefinitionVersions x -> ListLoggerDefinitionVersions
forall x.
ListLoggerDefinitionVersions -> Rep ListLoggerDefinitionVersions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListLoggerDefinitionVersions x -> ListLoggerDefinitionVersions
$cfrom :: forall x.
ListLoggerDefinitionVersions -> Rep ListLoggerDefinitionVersions x
Prelude.Generic)
newListLoggerDefinitionVersions ::
Prelude.Text ->
ListLoggerDefinitionVersions
newListLoggerDefinitionVersions :: Text -> ListLoggerDefinitionVersions
newListLoggerDefinitionVersions Text
pLoggerDefinitionId_ =
ListLoggerDefinitionVersions'
{ $sel:maxResults:ListLoggerDefinitionVersions' :: Maybe Text
maxResults =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListLoggerDefinitionVersions' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:loggerDefinitionId:ListLoggerDefinitionVersions' :: Text
loggerDefinitionId = Text
pLoggerDefinitionId_
}
listLoggerDefinitionVersions_maxResults :: Lens.Lens' ListLoggerDefinitionVersions (Prelude.Maybe Prelude.Text)
listLoggerDefinitionVersions_maxResults :: Lens' ListLoggerDefinitionVersions (Maybe Text)
listLoggerDefinitionVersions_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLoggerDefinitionVersions' {Maybe Text
maxResults :: Maybe Text
$sel:maxResults:ListLoggerDefinitionVersions' :: ListLoggerDefinitionVersions -> Maybe Text
maxResults} -> Maybe Text
maxResults) (\s :: ListLoggerDefinitionVersions
s@ListLoggerDefinitionVersions' {} Maybe Text
a -> ListLoggerDefinitionVersions
s {$sel:maxResults:ListLoggerDefinitionVersions' :: Maybe Text
maxResults = Maybe Text
a} :: ListLoggerDefinitionVersions)
listLoggerDefinitionVersions_nextToken :: Lens.Lens' ListLoggerDefinitionVersions (Prelude.Maybe Prelude.Text)
listLoggerDefinitionVersions_nextToken :: Lens' ListLoggerDefinitionVersions (Maybe Text)
listLoggerDefinitionVersions_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLoggerDefinitionVersions' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListLoggerDefinitionVersions' :: ListLoggerDefinitionVersions -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListLoggerDefinitionVersions
s@ListLoggerDefinitionVersions' {} Maybe Text
a -> ListLoggerDefinitionVersions
s {$sel:nextToken:ListLoggerDefinitionVersions' :: Maybe Text
nextToken = Maybe Text
a} :: ListLoggerDefinitionVersions)
listLoggerDefinitionVersions_loggerDefinitionId :: Lens.Lens' ListLoggerDefinitionVersions Prelude.Text
listLoggerDefinitionVersions_loggerDefinitionId :: Lens' ListLoggerDefinitionVersions Text
listLoggerDefinitionVersions_loggerDefinitionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLoggerDefinitionVersions' {Text
loggerDefinitionId :: Text
$sel:loggerDefinitionId:ListLoggerDefinitionVersions' :: ListLoggerDefinitionVersions -> Text
loggerDefinitionId} -> Text
loggerDefinitionId) (\s :: ListLoggerDefinitionVersions
s@ListLoggerDefinitionVersions' {} Text
a -> ListLoggerDefinitionVersions
s {$sel:loggerDefinitionId:ListLoggerDefinitionVersions' :: Text
loggerDefinitionId = Text
a} :: ListLoggerDefinitionVersions)
instance Core.AWSPager ListLoggerDefinitionVersions where
page :: ListLoggerDefinitionVersions
-> AWSResponse ListLoggerDefinitionVersions
-> Maybe ListLoggerDefinitionVersions
page ListLoggerDefinitionVersions
rq AWSResponse ListLoggerDefinitionVersions
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListLoggerDefinitionVersions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListLoggerDefinitionVersionsResponse (Maybe Text)
listLoggerDefinitionVersionsResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListLoggerDefinitionVersions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
ListLoggerDefinitionVersionsResponse (Maybe [VersionInformation])
listLoggerDefinitionVersionsResponse_versions
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ ListLoggerDefinitionVersions
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListLoggerDefinitionVersions (Maybe Text)
listLoggerDefinitionVersions_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListLoggerDefinitionVersions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListLoggerDefinitionVersionsResponse (Maybe Text)
listLoggerDefinitionVersionsResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
instance Core.AWSRequest ListLoggerDefinitionVersions where
type
AWSResponse ListLoggerDefinitionVersions =
ListLoggerDefinitionVersionsResponse
request :: (Service -> Service)
-> ListLoggerDefinitionVersions
-> Request ListLoggerDefinitionVersions
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ListLoggerDefinitionVersions
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListLoggerDefinitionVersions)))
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 [VersionInformation]
-> Int
-> ListLoggerDefinitionVersionsResponse
ListLoggerDefinitionVersionsResponse'
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
"NextToken")
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
"Versions" 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.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
ListLoggerDefinitionVersions
where
hashWithSalt :: Int -> ListLoggerDefinitionVersions -> Int
hashWithSalt Int
_salt ListLoggerDefinitionVersions' {Maybe Text
Text
loggerDefinitionId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Text
$sel:loggerDefinitionId:ListLoggerDefinitionVersions' :: ListLoggerDefinitionVersions -> Text
$sel:nextToken:ListLoggerDefinitionVersions' :: ListLoggerDefinitionVersions -> Maybe Text
$sel:maxResults:ListLoggerDefinitionVersions' :: ListLoggerDefinitionVersions -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
loggerDefinitionId
instance Prelude.NFData ListLoggerDefinitionVersions where
rnf :: ListLoggerDefinitionVersions -> ()
rnf ListLoggerDefinitionVersions' {Maybe Text
Text
loggerDefinitionId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Text
$sel:loggerDefinitionId:ListLoggerDefinitionVersions' :: ListLoggerDefinitionVersions -> Text
$sel:nextToken:ListLoggerDefinitionVersions' :: ListLoggerDefinitionVersions -> Maybe Text
$sel:maxResults:ListLoggerDefinitionVersions' :: ListLoggerDefinitionVersions -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
loggerDefinitionId
instance Data.ToHeaders ListLoggerDefinitionVersions where
toHeaders :: ListLoggerDefinitionVersions -> 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.ToPath ListLoggerDefinitionVersions where
toPath :: ListLoggerDefinitionVersions -> ByteString
toPath ListLoggerDefinitionVersions' {Maybe Text
Text
loggerDefinitionId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Text
$sel:loggerDefinitionId:ListLoggerDefinitionVersions' :: ListLoggerDefinitionVersions -> Text
$sel:nextToken:ListLoggerDefinitionVersions' :: ListLoggerDefinitionVersions -> Maybe Text
$sel:maxResults:ListLoggerDefinitionVersions' :: ListLoggerDefinitionVersions -> 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 ListLoggerDefinitionVersions where
toQuery :: ListLoggerDefinitionVersions -> QueryString
toQuery ListLoggerDefinitionVersions' {Maybe Text
Text
loggerDefinitionId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Text
$sel:loggerDefinitionId:ListLoggerDefinitionVersions' :: ListLoggerDefinitionVersions -> Text
$sel:nextToken:ListLoggerDefinitionVersions' :: ListLoggerDefinitionVersions -> Maybe Text
$sel:maxResults:ListLoggerDefinitionVersions' :: ListLoggerDefinitionVersions -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"MaxResults" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
maxResults,
ByteString
"NextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken
]
data ListLoggerDefinitionVersionsResponse = ListLoggerDefinitionVersionsResponse'
{
ListLoggerDefinitionVersionsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListLoggerDefinitionVersionsResponse -> Maybe [VersionInformation]
versions :: Prelude.Maybe [VersionInformation],
ListLoggerDefinitionVersionsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListLoggerDefinitionVersionsResponse
-> ListLoggerDefinitionVersionsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListLoggerDefinitionVersionsResponse
-> ListLoggerDefinitionVersionsResponse -> Bool
$c/= :: ListLoggerDefinitionVersionsResponse
-> ListLoggerDefinitionVersionsResponse -> Bool
== :: ListLoggerDefinitionVersionsResponse
-> ListLoggerDefinitionVersionsResponse -> Bool
$c== :: ListLoggerDefinitionVersionsResponse
-> ListLoggerDefinitionVersionsResponse -> Bool
Prelude.Eq, ReadPrec [ListLoggerDefinitionVersionsResponse]
ReadPrec ListLoggerDefinitionVersionsResponse
Int -> ReadS ListLoggerDefinitionVersionsResponse
ReadS [ListLoggerDefinitionVersionsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListLoggerDefinitionVersionsResponse]
$creadListPrec :: ReadPrec [ListLoggerDefinitionVersionsResponse]
readPrec :: ReadPrec ListLoggerDefinitionVersionsResponse
$creadPrec :: ReadPrec ListLoggerDefinitionVersionsResponse
readList :: ReadS [ListLoggerDefinitionVersionsResponse]
$creadList :: ReadS [ListLoggerDefinitionVersionsResponse]
readsPrec :: Int -> ReadS ListLoggerDefinitionVersionsResponse
$creadsPrec :: Int -> ReadS ListLoggerDefinitionVersionsResponse
Prelude.Read, Int -> ListLoggerDefinitionVersionsResponse -> ShowS
[ListLoggerDefinitionVersionsResponse] -> ShowS
ListLoggerDefinitionVersionsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListLoggerDefinitionVersionsResponse] -> ShowS
$cshowList :: [ListLoggerDefinitionVersionsResponse] -> ShowS
show :: ListLoggerDefinitionVersionsResponse -> String
$cshow :: ListLoggerDefinitionVersionsResponse -> String
showsPrec :: Int -> ListLoggerDefinitionVersionsResponse -> ShowS
$cshowsPrec :: Int -> ListLoggerDefinitionVersionsResponse -> ShowS
Prelude.Show, forall x.
Rep ListLoggerDefinitionVersionsResponse x
-> ListLoggerDefinitionVersionsResponse
forall x.
ListLoggerDefinitionVersionsResponse
-> Rep ListLoggerDefinitionVersionsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListLoggerDefinitionVersionsResponse x
-> ListLoggerDefinitionVersionsResponse
$cfrom :: forall x.
ListLoggerDefinitionVersionsResponse
-> Rep ListLoggerDefinitionVersionsResponse x
Prelude.Generic)
newListLoggerDefinitionVersionsResponse ::
Prelude.Int ->
ListLoggerDefinitionVersionsResponse
newListLoggerDefinitionVersionsResponse :: Int -> ListLoggerDefinitionVersionsResponse
newListLoggerDefinitionVersionsResponse Int
pHttpStatus_ =
ListLoggerDefinitionVersionsResponse'
{ $sel:nextToken:ListLoggerDefinitionVersionsResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:versions:ListLoggerDefinitionVersionsResponse' :: Maybe [VersionInformation]
versions = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListLoggerDefinitionVersionsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listLoggerDefinitionVersionsResponse_nextToken :: Lens.Lens' ListLoggerDefinitionVersionsResponse (Prelude.Maybe Prelude.Text)
listLoggerDefinitionVersionsResponse_nextToken :: Lens' ListLoggerDefinitionVersionsResponse (Maybe Text)
listLoggerDefinitionVersionsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLoggerDefinitionVersionsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListLoggerDefinitionVersionsResponse' :: ListLoggerDefinitionVersionsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListLoggerDefinitionVersionsResponse
s@ListLoggerDefinitionVersionsResponse' {} Maybe Text
a -> ListLoggerDefinitionVersionsResponse
s {$sel:nextToken:ListLoggerDefinitionVersionsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListLoggerDefinitionVersionsResponse)
listLoggerDefinitionVersionsResponse_versions :: Lens.Lens' ListLoggerDefinitionVersionsResponse (Prelude.Maybe [VersionInformation])
listLoggerDefinitionVersionsResponse_versions :: Lens'
ListLoggerDefinitionVersionsResponse (Maybe [VersionInformation])
listLoggerDefinitionVersionsResponse_versions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLoggerDefinitionVersionsResponse' {Maybe [VersionInformation]
versions :: Maybe [VersionInformation]
$sel:versions:ListLoggerDefinitionVersionsResponse' :: ListLoggerDefinitionVersionsResponse -> Maybe [VersionInformation]
versions} -> Maybe [VersionInformation]
versions) (\s :: ListLoggerDefinitionVersionsResponse
s@ListLoggerDefinitionVersionsResponse' {} Maybe [VersionInformation]
a -> ListLoggerDefinitionVersionsResponse
s {$sel:versions:ListLoggerDefinitionVersionsResponse' :: Maybe [VersionInformation]
versions = Maybe [VersionInformation]
a} :: ListLoggerDefinitionVersionsResponse) 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
listLoggerDefinitionVersionsResponse_httpStatus :: Lens.Lens' ListLoggerDefinitionVersionsResponse Prelude.Int
listLoggerDefinitionVersionsResponse_httpStatus :: Lens' ListLoggerDefinitionVersionsResponse Int
listLoggerDefinitionVersionsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListLoggerDefinitionVersionsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListLoggerDefinitionVersionsResponse' :: ListLoggerDefinitionVersionsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListLoggerDefinitionVersionsResponse
s@ListLoggerDefinitionVersionsResponse' {} Int
a -> ListLoggerDefinitionVersionsResponse
s {$sel:httpStatus:ListLoggerDefinitionVersionsResponse' :: Int
httpStatus = Int
a} :: ListLoggerDefinitionVersionsResponse)
instance
Prelude.NFData
ListLoggerDefinitionVersionsResponse
where
rnf :: ListLoggerDefinitionVersionsResponse -> ()
rnf ListLoggerDefinitionVersionsResponse' {Int
Maybe [VersionInformation]
Maybe Text
httpStatus :: Int
versions :: Maybe [VersionInformation]
nextToken :: Maybe Text
$sel:httpStatus:ListLoggerDefinitionVersionsResponse' :: ListLoggerDefinitionVersionsResponse -> Int
$sel:versions:ListLoggerDefinitionVersionsResponse' :: ListLoggerDefinitionVersionsResponse -> Maybe [VersionInformation]
$sel:nextToken:ListLoggerDefinitionVersionsResponse' :: ListLoggerDefinitionVersionsResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [VersionInformation]
versions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus