{-# 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.GreengrassV2.ListInstalledComponents
(
ListInstalledComponents (..),
newListInstalledComponents,
listInstalledComponents_maxResults,
listInstalledComponents_nextToken,
listInstalledComponents_topologyFilter,
listInstalledComponents_coreDeviceThingName,
ListInstalledComponentsResponse (..),
newListInstalledComponentsResponse,
listInstalledComponentsResponse_installedComponents,
listInstalledComponentsResponse_nextToken,
listInstalledComponentsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.GreengrassV2.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ListInstalledComponents = ListInstalledComponents'
{
ListInstalledComponents -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListInstalledComponents -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListInstalledComponents -> Maybe InstalledComponentTopologyFilter
topologyFilter :: Prelude.Maybe InstalledComponentTopologyFilter,
ListInstalledComponents -> Text
coreDeviceThingName :: Prelude.Text
}
deriving (ListInstalledComponents -> ListInstalledComponents -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListInstalledComponents -> ListInstalledComponents -> Bool
$c/= :: ListInstalledComponents -> ListInstalledComponents -> Bool
== :: ListInstalledComponents -> ListInstalledComponents -> Bool
$c== :: ListInstalledComponents -> ListInstalledComponents -> Bool
Prelude.Eq, ReadPrec [ListInstalledComponents]
ReadPrec ListInstalledComponents
Int -> ReadS ListInstalledComponents
ReadS [ListInstalledComponents]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListInstalledComponents]
$creadListPrec :: ReadPrec [ListInstalledComponents]
readPrec :: ReadPrec ListInstalledComponents
$creadPrec :: ReadPrec ListInstalledComponents
readList :: ReadS [ListInstalledComponents]
$creadList :: ReadS [ListInstalledComponents]
readsPrec :: Int -> ReadS ListInstalledComponents
$creadsPrec :: Int -> ReadS ListInstalledComponents
Prelude.Read, Int -> ListInstalledComponents -> ShowS
[ListInstalledComponents] -> ShowS
ListInstalledComponents -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListInstalledComponents] -> ShowS
$cshowList :: [ListInstalledComponents] -> ShowS
show :: ListInstalledComponents -> String
$cshow :: ListInstalledComponents -> String
showsPrec :: Int -> ListInstalledComponents -> ShowS
$cshowsPrec :: Int -> ListInstalledComponents -> ShowS
Prelude.Show, forall x. Rep ListInstalledComponents x -> ListInstalledComponents
forall x. ListInstalledComponents -> Rep ListInstalledComponents x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListInstalledComponents x -> ListInstalledComponents
$cfrom :: forall x. ListInstalledComponents -> Rep ListInstalledComponents x
Prelude.Generic)
newListInstalledComponents ::
Prelude.Text ->
ListInstalledComponents
newListInstalledComponents :: Text -> ListInstalledComponents
newListInstalledComponents Text
pCoreDeviceThingName_ =
ListInstalledComponents'
{ $sel:maxResults:ListInstalledComponents' :: Maybe Natural
maxResults =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListInstalledComponents' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:topologyFilter:ListInstalledComponents' :: Maybe InstalledComponentTopologyFilter
topologyFilter = forall a. Maybe a
Prelude.Nothing,
$sel:coreDeviceThingName:ListInstalledComponents' :: Text
coreDeviceThingName = Text
pCoreDeviceThingName_
}
listInstalledComponents_maxResults :: Lens.Lens' ListInstalledComponents (Prelude.Maybe Prelude.Natural)
listInstalledComponents_maxResults :: Lens' ListInstalledComponents (Maybe Natural)
listInstalledComponents_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListInstalledComponents' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListInstalledComponents' :: ListInstalledComponents -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListInstalledComponents
s@ListInstalledComponents' {} Maybe Natural
a -> ListInstalledComponents
s {$sel:maxResults:ListInstalledComponents' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListInstalledComponents)
listInstalledComponents_nextToken :: Lens.Lens' ListInstalledComponents (Prelude.Maybe Prelude.Text)
listInstalledComponents_nextToken :: Lens' ListInstalledComponents (Maybe Text)
listInstalledComponents_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListInstalledComponents' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListInstalledComponents' :: ListInstalledComponents -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListInstalledComponents
s@ListInstalledComponents' {} Maybe Text
a -> ListInstalledComponents
s {$sel:nextToken:ListInstalledComponents' :: Maybe Text
nextToken = Maybe Text
a} :: ListInstalledComponents)
listInstalledComponents_topologyFilter :: Lens.Lens' ListInstalledComponents (Prelude.Maybe InstalledComponentTopologyFilter)
listInstalledComponents_topologyFilter :: Lens'
ListInstalledComponents (Maybe InstalledComponentTopologyFilter)
listInstalledComponents_topologyFilter = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListInstalledComponents' {Maybe InstalledComponentTopologyFilter
topologyFilter :: Maybe InstalledComponentTopologyFilter
$sel:topologyFilter:ListInstalledComponents' :: ListInstalledComponents -> Maybe InstalledComponentTopologyFilter
topologyFilter} -> Maybe InstalledComponentTopologyFilter
topologyFilter) (\s :: ListInstalledComponents
s@ListInstalledComponents' {} Maybe InstalledComponentTopologyFilter
a -> ListInstalledComponents
s {$sel:topologyFilter:ListInstalledComponents' :: Maybe InstalledComponentTopologyFilter
topologyFilter = Maybe InstalledComponentTopologyFilter
a} :: ListInstalledComponents)
listInstalledComponents_coreDeviceThingName :: Lens.Lens' ListInstalledComponents Prelude.Text
listInstalledComponents_coreDeviceThingName :: Lens' ListInstalledComponents Text
listInstalledComponents_coreDeviceThingName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListInstalledComponents' {Text
coreDeviceThingName :: Text
$sel:coreDeviceThingName:ListInstalledComponents' :: ListInstalledComponents -> Text
coreDeviceThingName} -> Text
coreDeviceThingName) (\s :: ListInstalledComponents
s@ListInstalledComponents' {} Text
a -> ListInstalledComponents
s {$sel:coreDeviceThingName:ListInstalledComponents' :: Text
coreDeviceThingName = Text
a} :: ListInstalledComponents)
instance Core.AWSPager ListInstalledComponents where
page :: ListInstalledComponents
-> AWSResponse ListInstalledComponents
-> Maybe ListInstalledComponents
page ListInstalledComponents
rq AWSResponse ListInstalledComponents
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListInstalledComponents
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListInstalledComponentsResponse (Maybe Text)
listInstalledComponentsResponse_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 ListInstalledComponents
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListInstalledComponentsResponse (Maybe [InstalledComponent])
listInstalledComponentsResponse_installedComponents
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.$ ListInstalledComponents
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListInstalledComponents (Maybe Text)
listInstalledComponents_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListInstalledComponents
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListInstalledComponentsResponse (Maybe Text)
listInstalledComponentsResponse_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 ListInstalledComponents where
type
AWSResponse ListInstalledComponents =
ListInstalledComponentsResponse
request :: (Service -> Service)
-> ListInstalledComponents -> Request ListInstalledComponents
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 ListInstalledComponents
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListInstalledComponents)))
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 [InstalledComponent]
-> Maybe Text -> Int -> ListInstalledComponentsResponse
ListInstalledComponentsResponse'
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
"installedComponents"
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
"nextToken")
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 ListInstalledComponents where
hashWithSalt :: Int -> ListInstalledComponents -> Int
hashWithSalt Int
_salt ListInstalledComponents' {Maybe Natural
Maybe Text
Maybe InstalledComponentTopologyFilter
Text
coreDeviceThingName :: Text
topologyFilter :: Maybe InstalledComponentTopologyFilter
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:coreDeviceThingName:ListInstalledComponents' :: ListInstalledComponents -> Text
$sel:topologyFilter:ListInstalledComponents' :: ListInstalledComponents -> Maybe InstalledComponentTopologyFilter
$sel:nextToken:ListInstalledComponents' :: ListInstalledComponents -> Maybe Text
$sel:maxResults:ListInstalledComponents' :: ListInstalledComponents -> Maybe Natural
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe InstalledComponentTopologyFilter
topologyFilter
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
coreDeviceThingName
instance Prelude.NFData ListInstalledComponents where
rnf :: ListInstalledComponents -> ()
rnf ListInstalledComponents' {Maybe Natural
Maybe Text
Maybe InstalledComponentTopologyFilter
Text
coreDeviceThingName :: Text
topologyFilter :: Maybe InstalledComponentTopologyFilter
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:coreDeviceThingName:ListInstalledComponents' :: ListInstalledComponents -> Text
$sel:topologyFilter:ListInstalledComponents' :: ListInstalledComponents -> Maybe InstalledComponentTopologyFilter
$sel:nextToken:ListInstalledComponents' :: ListInstalledComponents -> Maybe Text
$sel:maxResults:ListInstalledComponents' :: ListInstalledComponents -> Maybe Natural
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
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 Maybe InstalledComponentTopologyFilter
topologyFilter
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
coreDeviceThingName
instance Data.ToHeaders ListInstalledComponents where
toHeaders :: ListInstalledComponents -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ListInstalledComponents where
toPath :: ListInstalledComponents -> ByteString
toPath ListInstalledComponents' {Maybe Natural
Maybe Text
Maybe InstalledComponentTopologyFilter
Text
coreDeviceThingName :: Text
topologyFilter :: Maybe InstalledComponentTopologyFilter
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:coreDeviceThingName:ListInstalledComponents' :: ListInstalledComponents -> Text
$sel:topologyFilter:ListInstalledComponents' :: ListInstalledComponents -> Maybe InstalledComponentTopologyFilter
$sel:nextToken:ListInstalledComponents' :: ListInstalledComponents -> Maybe Text
$sel:maxResults:ListInstalledComponents' :: ListInstalledComponents -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/greengrass/v2/coreDevices/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
coreDeviceThingName,
ByteString
"/installedComponents"
]
instance Data.ToQuery ListInstalledComponents where
toQuery :: ListInstalledComponents -> QueryString
toQuery ListInstalledComponents' {Maybe Natural
Maybe Text
Maybe InstalledComponentTopologyFilter
Text
coreDeviceThingName :: Text
topologyFilter :: Maybe InstalledComponentTopologyFilter
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:coreDeviceThingName:ListInstalledComponents' :: ListInstalledComponents -> Text
$sel:topologyFilter:ListInstalledComponents' :: ListInstalledComponents -> Maybe InstalledComponentTopologyFilter
$sel:nextToken:ListInstalledComponents' :: ListInstalledComponents -> Maybe Text
$sel:maxResults:ListInstalledComponents' :: ListInstalledComponents -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"maxResults" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxResults,
ByteString
"nextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken,
ByteString
"topologyFilter" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe InstalledComponentTopologyFilter
topologyFilter
]
data ListInstalledComponentsResponse = ListInstalledComponentsResponse'
{
ListInstalledComponentsResponse -> Maybe [InstalledComponent]
installedComponents :: Prelude.Maybe [InstalledComponent],
ListInstalledComponentsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListInstalledComponentsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListInstalledComponentsResponse
-> ListInstalledComponentsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListInstalledComponentsResponse
-> ListInstalledComponentsResponse -> Bool
$c/= :: ListInstalledComponentsResponse
-> ListInstalledComponentsResponse -> Bool
== :: ListInstalledComponentsResponse
-> ListInstalledComponentsResponse -> Bool
$c== :: ListInstalledComponentsResponse
-> ListInstalledComponentsResponse -> Bool
Prelude.Eq, ReadPrec [ListInstalledComponentsResponse]
ReadPrec ListInstalledComponentsResponse
Int -> ReadS ListInstalledComponentsResponse
ReadS [ListInstalledComponentsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListInstalledComponentsResponse]
$creadListPrec :: ReadPrec [ListInstalledComponentsResponse]
readPrec :: ReadPrec ListInstalledComponentsResponse
$creadPrec :: ReadPrec ListInstalledComponentsResponse
readList :: ReadS [ListInstalledComponentsResponse]
$creadList :: ReadS [ListInstalledComponentsResponse]
readsPrec :: Int -> ReadS ListInstalledComponentsResponse
$creadsPrec :: Int -> ReadS ListInstalledComponentsResponse
Prelude.Read, Int -> ListInstalledComponentsResponse -> ShowS
[ListInstalledComponentsResponse] -> ShowS
ListInstalledComponentsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListInstalledComponentsResponse] -> ShowS
$cshowList :: [ListInstalledComponentsResponse] -> ShowS
show :: ListInstalledComponentsResponse -> String
$cshow :: ListInstalledComponentsResponse -> String
showsPrec :: Int -> ListInstalledComponentsResponse -> ShowS
$cshowsPrec :: Int -> ListInstalledComponentsResponse -> ShowS
Prelude.Show, forall x.
Rep ListInstalledComponentsResponse x
-> ListInstalledComponentsResponse
forall x.
ListInstalledComponentsResponse
-> Rep ListInstalledComponentsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListInstalledComponentsResponse x
-> ListInstalledComponentsResponse
$cfrom :: forall x.
ListInstalledComponentsResponse
-> Rep ListInstalledComponentsResponse x
Prelude.Generic)
newListInstalledComponentsResponse ::
Prelude.Int ->
ListInstalledComponentsResponse
newListInstalledComponentsResponse :: Int -> ListInstalledComponentsResponse
newListInstalledComponentsResponse Int
pHttpStatus_ =
ListInstalledComponentsResponse'
{ $sel:installedComponents:ListInstalledComponentsResponse' :: Maybe [InstalledComponent]
installedComponents =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListInstalledComponentsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListInstalledComponentsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listInstalledComponentsResponse_installedComponents :: Lens.Lens' ListInstalledComponentsResponse (Prelude.Maybe [InstalledComponent])
listInstalledComponentsResponse_installedComponents :: Lens' ListInstalledComponentsResponse (Maybe [InstalledComponent])
listInstalledComponentsResponse_installedComponents = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListInstalledComponentsResponse' {Maybe [InstalledComponent]
installedComponents :: Maybe [InstalledComponent]
$sel:installedComponents:ListInstalledComponentsResponse' :: ListInstalledComponentsResponse -> Maybe [InstalledComponent]
installedComponents} -> Maybe [InstalledComponent]
installedComponents) (\s :: ListInstalledComponentsResponse
s@ListInstalledComponentsResponse' {} Maybe [InstalledComponent]
a -> ListInstalledComponentsResponse
s {$sel:installedComponents:ListInstalledComponentsResponse' :: Maybe [InstalledComponent]
installedComponents = Maybe [InstalledComponent]
a} :: ListInstalledComponentsResponse) 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
listInstalledComponentsResponse_nextToken :: Lens.Lens' ListInstalledComponentsResponse (Prelude.Maybe Prelude.Text)
listInstalledComponentsResponse_nextToken :: Lens' ListInstalledComponentsResponse (Maybe Text)
listInstalledComponentsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListInstalledComponentsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListInstalledComponentsResponse' :: ListInstalledComponentsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListInstalledComponentsResponse
s@ListInstalledComponentsResponse' {} Maybe Text
a -> ListInstalledComponentsResponse
s {$sel:nextToken:ListInstalledComponentsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListInstalledComponentsResponse)
listInstalledComponentsResponse_httpStatus :: Lens.Lens' ListInstalledComponentsResponse Prelude.Int
listInstalledComponentsResponse_httpStatus :: Lens' ListInstalledComponentsResponse Int
listInstalledComponentsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListInstalledComponentsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListInstalledComponentsResponse' :: ListInstalledComponentsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListInstalledComponentsResponse
s@ListInstalledComponentsResponse' {} Int
a -> ListInstalledComponentsResponse
s {$sel:httpStatus:ListInstalledComponentsResponse' :: Int
httpStatus = Int
a} :: ListInstalledComponentsResponse)
instance
Prelude.NFData
ListInstalledComponentsResponse
where
rnf :: ListInstalledComponentsResponse -> ()
rnf ListInstalledComponentsResponse' {Int
Maybe [InstalledComponent]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
installedComponents :: Maybe [InstalledComponent]
$sel:httpStatus:ListInstalledComponentsResponse' :: ListInstalledComponentsResponse -> Int
$sel:nextToken:ListInstalledComponentsResponse' :: ListInstalledComponentsResponse -> Maybe Text
$sel:installedComponents:ListInstalledComponentsResponse' :: ListInstalledComponentsResponse -> Maybe [InstalledComponent]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [InstalledComponent]
installedComponents
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 Int
httpStatus