{-# 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.ListDeviceDefinitionVersions
(
ListDeviceDefinitionVersions (..),
newListDeviceDefinitionVersions,
listDeviceDefinitionVersions_maxResults,
listDeviceDefinitionVersions_nextToken,
listDeviceDefinitionVersions_deviceDefinitionId,
ListDeviceDefinitionVersionsResponse (..),
newListDeviceDefinitionVersionsResponse,
listDeviceDefinitionVersionsResponse_nextToken,
listDeviceDefinitionVersionsResponse_versions,
listDeviceDefinitionVersionsResponse_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 ListDeviceDefinitionVersions = ListDeviceDefinitionVersions'
{
ListDeviceDefinitionVersions -> Maybe Text
maxResults :: Prelude.Maybe Prelude.Text,
ListDeviceDefinitionVersions -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListDeviceDefinitionVersions -> Text
deviceDefinitionId :: Prelude.Text
}
deriving (ListDeviceDefinitionVersions
-> ListDeviceDefinitionVersions -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListDeviceDefinitionVersions
-> ListDeviceDefinitionVersions -> Bool
$c/= :: ListDeviceDefinitionVersions
-> ListDeviceDefinitionVersions -> Bool
== :: ListDeviceDefinitionVersions
-> ListDeviceDefinitionVersions -> Bool
$c== :: ListDeviceDefinitionVersions
-> ListDeviceDefinitionVersions -> Bool
Prelude.Eq, ReadPrec [ListDeviceDefinitionVersions]
ReadPrec ListDeviceDefinitionVersions
Int -> ReadS ListDeviceDefinitionVersions
ReadS [ListDeviceDefinitionVersions]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListDeviceDefinitionVersions]
$creadListPrec :: ReadPrec [ListDeviceDefinitionVersions]
readPrec :: ReadPrec ListDeviceDefinitionVersions
$creadPrec :: ReadPrec ListDeviceDefinitionVersions
readList :: ReadS [ListDeviceDefinitionVersions]
$creadList :: ReadS [ListDeviceDefinitionVersions]
readsPrec :: Int -> ReadS ListDeviceDefinitionVersions
$creadsPrec :: Int -> ReadS ListDeviceDefinitionVersions
Prelude.Read, Int -> ListDeviceDefinitionVersions -> ShowS
[ListDeviceDefinitionVersions] -> ShowS
ListDeviceDefinitionVersions -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListDeviceDefinitionVersions] -> ShowS
$cshowList :: [ListDeviceDefinitionVersions] -> ShowS
show :: ListDeviceDefinitionVersions -> String
$cshow :: ListDeviceDefinitionVersions -> String
showsPrec :: Int -> ListDeviceDefinitionVersions -> ShowS
$cshowsPrec :: Int -> ListDeviceDefinitionVersions -> ShowS
Prelude.Show, forall x.
Rep ListDeviceDefinitionVersions x -> ListDeviceDefinitionVersions
forall x.
ListDeviceDefinitionVersions -> Rep ListDeviceDefinitionVersions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListDeviceDefinitionVersions x -> ListDeviceDefinitionVersions
$cfrom :: forall x.
ListDeviceDefinitionVersions -> Rep ListDeviceDefinitionVersions x
Prelude.Generic)
newListDeviceDefinitionVersions ::
Prelude.Text ->
ListDeviceDefinitionVersions
newListDeviceDefinitionVersions :: Text -> ListDeviceDefinitionVersions
newListDeviceDefinitionVersions Text
pDeviceDefinitionId_ =
ListDeviceDefinitionVersions'
{ $sel:maxResults:ListDeviceDefinitionVersions' :: Maybe Text
maxResults =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListDeviceDefinitionVersions' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:deviceDefinitionId:ListDeviceDefinitionVersions' :: Text
deviceDefinitionId = Text
pDeviceDefinitionId_
}
listDeviceDefinitionVersions_maxResults :: Lens.Lens' ListDeviceDefinitionVersions (Prelude.Maybe Prelude.Text)
listDeviceDefinitionVersions_maxResults :: Lens' ListDeviceDefinitionVersions (Maybe Text)
listDeviceDefinitionVersions_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDeviceDefinitionVersions' {Maybe Text
maxResults :: Maybe Text
$sel:maxResults:ListDeviceDefinitionVersions' :: ListDeviceDefinitionVersions -> Maybe Text
maxResults} -> Maybe Text
maxResults) (\s :: ListDeviceDefinitionVersions
s@ListDeviceDefinitionVersions' {} Maybe Text
a -> ListDeviceDefinitionVersions
s {$sel:maxResults:ListDeviceDefinitionVersions' :: Maybe Text
maxResults = Maybe Text
a} :: ListDeviceDefinitionVersions)
listDeviceDefinitionVersions_nextToken :: Lens.Lens' ListDeviceDefinitionVersions (Prelude.Maybe Prelude.Text)
listDeviceDefinitionVersions_nextToken :: Lens' ListDeviceDefinitionVersions (Maybe Text)
listDeviceDefinitionVersions_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDeviceDefinitionVersions' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListDeviceDefinitionVersions' :: ListDeviceDefinitionVersions -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListDeviceDefinitionVersions
s@ListDeviceDefinitionVersions' {} Maybe Text
a -> ListDeviceDefinitionVersions
s {$sel:nextToken:ListDeviceDefinitionVersions' :: Maybe Text
nextToken = Maybe Text
a} :: ListDeviceDefinitionVersions)
listDeviceDefinitionVersions_deviceDefinitionId :: Lens.Lens' ListDeviceDefinitionVersions Prelude.Text
listDeviceDefinitionVersions_deviceDefinitionId :: Lens' ListDeviceDefinitionVersions Text
listDeviceDefinitionVersions_deviceDefinitionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDeviceDefinitionVersions' {Text
deviceDefinitionId :: Text
$sel:deviceDefinitionId:ListDeviceDefinitionVersions' :: ListDeviceDefinitionVersions -> Text
deviceDefinitionId} -> Text
deviceDefinitionId) (\s :: ListDeviceDefinitionVersions
s@ListDeviceDefinitionVersions' {} Text
a -> ListDeviceDefinitionVersions
s {$sel:deviceDefinitionId:ListDeviceDefinitionVersions' :: Text
deviceDefinitionId = Text
a} :: ListDeviceDefinitionVersions)
instance Core.AWSPager ListDeviceDefinitionVersions where
page :: ListDeviceDefinitionVersions
-> AWSResponse ListDeviceDefinitionVersions
-> Maybe ListDeviceDefinitionVersions
page ListDeviceDefinitionVersions
rq AWSResponse ListDeviceDefinitionVersions
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListDeviceDefinitionVersions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListDeviceDefinitionVersionsResponse (Maybe Text)
listDeviceDefinitionVersionsResponse_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 ListDeviceDefinitionVersions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
ListDeviceDefinitionVersionsResponse (Maybe [VersionInformation])
listDeviceDefinitionVersionsResponse_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.$ ListDeviceDefinitionVersions
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListDeviceDefinitionVersions (Maybe Text)
listDeviceDefinitionVersions_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListDeviceDefinitionVersions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListDeviceDefinitionVersionsResponse (Maybe Text)
listDeviceDefinitionVersionsResponse_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 ListDeviceDefinitionVersions where
type
AWSResponse ListDeviceDefinitionVersions =
ListDeviceDefinitionVersionsResponse
request :: (Service -> Service)
-> ListDeviceDefinitionVersions
-> Request ListDeviceDefinitionVersions
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 ListDeviceDefinitionVersions
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListDeviceDefinitionVersions)))
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
-> ListDeviceDefinitionVersionsResponse
ListDeviceDefinitionVersionsResponse'
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
ListDeviceDefinitionVersions
where
hashWithSalt :: Int -> ListDeviceDefinitionVersions -> Int
hashWithSalt Int
_salt ListDeviceDefinitionVersions' {Maybe Text
Text
deviceDefinitionId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Text
$sel:deviceDefinitionId:ListDeviceDefinitionVersions' :: ListDeviceDefinitionVersions -> Text
$sel:nextToken:ListDeviceDefinitionVersions' :: ListDeviceDefinitionVersions -> Maybe Text
$sel:maxResults:ListDeviceDefinitionVersions' :: ListDeviceDefinitionVersions -> 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
deviceDefinitionId
instance Prelude.NFData ListDeviceDefinitionVersions where
rnf :: ListDeviceDefinitionVersions -> ()
rnf ListDeviceDefinitionVersions' {Maybe Text
Text
deviceDefinitionId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Text
$sel:deviceDefinitionId:ListDeviceDefinitionVersions' :: ListDeviceDefinitionVersions -> Text
$sel:nextToken:ListDeviceDefinitionVersions' :: ListDeviceDefinitionVersions -> Maybe Text
$sel:maxResults:ListDeviceDefinitionVersions' :: ListDeviceDefinitionVersions -> 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
deviceDefinitionId
instance Data.ToHeaders ListDeviceDefinitionVersions where
toHeaders :: ListDeviceDefinitionVersions -> 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 ListDeviceDefinitionVersions where
toPath :: ListDeviceDefinitionVersions -> ByteString
toPath ListDeviceDefinitionVersions' {Maybe Text
Text
deviceDefinitionId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Text
$sel:deviceDefinitionId:ListDeviceDefinitionVersions' :: ListDeviceDefinitionVersions -> Text
$sel:nextToken:ListDeviceDefinitionVersions' :: ListDeviceDefinitionVersions -> Maybe Text
$sel:maxResults:ListDeviceDefinitionVersions' :: ListDeviceDefinitionVersions -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/greengrass/definition/devices/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
deviceDefinitionId,
ByteString
"/versions"
]
instance Data.ToQuery ListDeviceDefinitionVersions where
toQuery :: ListDeviceDefinitionVersions -> QueryString
toQuery ListDeviceDefinitionVersions' {Maybe Text
Text
deviceDefinitionId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Text
$sel:deviceDefinitionId:ListDeviceDefinitionVersions' :: ListDeviceDefinitionVersions -> Text
$sel:nextToken:ListDeviceDefinitionVersions' :: ListDeviceDefinitionVersions -> Maybe Text
$sel:maxResults:ListDeviceDefinitionVersions' :: ListDeviceDefinitionVersions -> 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 ListDeviceDefinitionVersionsResponse = ListDeviceDefinitionVersionsResponse'
{
ListDeviceDefinitionVersionsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListDeviceDefinitionVersionsResponse -> Maybe [VersionInformation]
versions :: Prelude.Maybe [VersionInformation],
ListDeviceDefinitionVersionsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListDeviceDefinitionVersionsResponse
-> ListDeviceDefinitionVersionsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListDeviceDefinitionVersionsResponse
-> ListDeviceDefinitionVersionsResponse -> Bool
$c/= :: ListDeviceDefinitionVersionsResponse
-> ListDeviceDefinitionVersionsResponse -> Bool
== :: ListDeviceDefinitionVersionsResponse
-> ListDeviceDefinitionVersionsResponse -> Bool
$c== :: ListDeviceDefinitionVersionsResponse
-> ListDeviceDefinitionVersionsResponse -> Bool
Prelude.Eq, ReadPrec [ListDeviceDefinitionVersionsResponse]
ReadPrec ListDeviceDefinitionVersionsResponse
Int -> ReadS ListDeviceDefinitionVersionsResponse
ReadS [ListDeviceDefinitionVersionsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListDeviceDefinitionVersionsResponse]
$creadListPrec :: ReadPrec [ListDeviceDefinitionVersionsResponse]
readPrec :: ReadPrec ListDeviceDefinitionVersionsResponse
$creadPrec :: ReadPrec ListDeviceDefinitionVersionsResponse
readList :: ReadS [ListDeviceDefinitionVersionsResponse]
$creadList :: ReadS [ListDeviceDefinitionVersionsResponse]
readsPrec :: Int -> ReadS ListDeviceDefinitionVersionsResponse
$creadsPrec :: Int -> ReadS ListDeviceDefinitionVersionsResponse
Prelude.Read, Int -> ListDeviceDefinitionVersionsResponse -> ShowS
[ListDeviceDefinitionVersionsResponse] -> ShowS
ListDeviceDefinitionVersionsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListDeviceDefinitionVersionsResponse] -> ShowS
$cshowList :: [ListDeviceDefinitionVersionsResponse] -> ShowS
show :: ListDeviceDefinitionVersionsResponse -> String
$cshow :: ListDeviceDefinitionVersionsResponse -> String
showsPrec :: Int -> ListDeviceDefinitionVersionsResponse -> ShowS
$cshowsPrec :: Int -> ListDeviceDefinitionVersionsResponse -> ShowS
Prelude.Show, forall x.
Rep ListDeviceDefinitionVersionsResponse x
-> ListDeviceDefinitionVersionsResponse
forall x.
ListDeviceDefinitionVersionsResponse
-> Rep ListDeviceDefinitionVersionsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListDeviceDefinitionVersionsResponse x
-> ListDeviceDefinitionVersionsResponse
$cfrom :: forall x.
ListDeviceDefinitionVersionsResponse
-> Rep ListDeviceDefinitionVersionsResponse x
Prelude.Generic)
newListDeviceDefinitionVersionsResponse ::
Prelude.Int ->
ListDeviceDefinitionVersionsResponse
newListDeviceDefinitionVersionsResponse :: Int -> ListDeviceDefinitionVersionsResponse
newListDeviceDefinitionVersionsResponse Int
pHttpStatus_ =
ListDeviceDefinitionVersionsResponse'
{ $sel:nextToken:ListDeviceDefinitionVersionsResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:versions:ListDeviceDefinitionVersionsResponse' :: Maybe [VersionInformation]
versions = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListDeviceDefinitionVersionsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listDeviceDefinitionVersionsResponse_nextToken :: Lens.Lens' ListDeviceDefinitionVersionsResponse (Prelude.Maybe Prelude.Text)
listDeviceDefinitionVersionsResponse_nextToken :: Lens' ListDeviceDefinitionVersionsResponse (Maybe Text)
listDeviceDefinitionVersionsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDeviceDefinitionVersionsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListDeviceDefinitionVersionsResponse' :: ListDeviceDefinitionVersionsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListDeviceDefinitionVersionsResponse
s@ListDeviceDefinitionVersionsResponse' {} Maybe Text
a -> ListDeviceDefinitionVersionsResponse
s {$sel:nextToken:ListDeviceDefinitionVersionsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListDeviceDefinitionVersionsResponse)
listDeviceDefinitionVersionsResponse_versions :: Lens.Lens' ListDeviceDefinitionVersionsResponse (Prelude.Maybe [VersionInformation])
listDeviceDefinitionVersionsResponse_versions :: Lens'
ListDeviceDefinitionVersionsResponse (Maybe [VersionInformation])
listDeviceDefinitionVersionsResponse_versions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDeviceDefinitionVersionsResponse' {Maybe [VersionInformation]
versions :: Maybe [VersionInformation]
$sel:versions:ListDeviceDefinitionVersionsResponse' :: ListDeviceDefinitionVersionsResponse -> Maybe [VersionInformation]
versions} -> Maybe [VersionInformation]
versions) (\s :: ListDeviceDefinitionVersionsResponse
s@ListDeviceDefinitionVersionsResponse' {} Maybe [VersionInformation]
a -> ListDeviceDefinitionVersionsResponse
s {$sel:versions:ListDeviceDefinitionVersionsResponse' :: Maybe [VersionInformation]
versions = Maybe [VersionInformation]
a} :: ListDeviceDefinitionVersionsResponse) 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
listDeviceDefinitionVersionsResponse_httpStatus :: Lens.Lens' ListDeviceDefinitionVersionsResponse Prelude.Int
listDeviceDefinitionVersionsResponse_httpStatus :: Lens' ListDeviceDefinitionVersionsResponse Int
listDeviceDefinitionVersionsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListDeviceDefinitionVersionsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListDeviceDefinitionVersionsResponse' :: ListDeviceDefinitionVersionsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListDeviceDefinitionVersionsResponse
s@ListDeviceDefinitionVersionsResponse' {} Int
a -> ListDeviceDefinitionVersionsResponse
s {$sel:httpStatus:ListDeviceDefinitionVersionsResponse' :: Int
httpStatus = Int
a} :: ListDeviceDefinitionVersionsResponse)
instance
Prelude.NFData
ListDeviceDefinitionVersionsResponse
where
rnf :: ListDeviceDefinitionVersionsResponse -> ()
rnf ListDeviceDefinitionVersionsResponse' {Int
Maybe [VersionInformation]
Maybe Text
httpStatus :: Int
versions :: Maybe [VersionInformation]
nextToken :: Maybe Text
$sel:httpStatus:ListDeviceDefinitionVersionsResponse' :: ListDeviceDefinitionVersionsResponse -> Int
$sel:versions:ListDeviceDefinitionVersionsResponse' :: ListDeviceDefinitionVersionsResponse -> Maybe [VersionInformation]
$sel:nextToken:ListDeviceDefinitionVersionsResponse' :: ListDeviceDefinitionVersionsResponse -> 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