{-# 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.ServiceCatalogAppRegistry.ListAssociatedAttributeGroups
(
ListAssociatedAttributeGroups (..),
newListAssociatedAttributeGroups,
listAssociatedAttributeGroups_maxResults,
listAssociatedAttributeGroups_nextToken,
listAssociatedAttributeGroups_application,
ListAssociatedAttributeGroupsResponse (..),
newListAssociatedAttributeGroupsResponse,
listAssociatedAttributeGroupsResponse_attributeGroups,
listAssociatedAttributeGroupsResponse_nextToken,
listAssociatedAttributeGroupsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.ServiceCatalogAppRegistry.Types
data ListAssociatedAttributeGroups = ListAssociatedAttributeGroups'
{
ListAssociatedAttributeGroups -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListAssociatedAttributeGroups -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListAssociatedAttributeGroups -> Text
application :: Prelude.Text
}
deriving (ListAssociatedAttributeGroups
-> ListAssociatedAttributeGroups -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListAssociatedAttributeGroups
-> ListAssociatedAttributeGroups -> Bool
$c/= :: ListAssociatedAttributeGroups
-> ListAssociatedAttributeGroups -> Bool
== :: ListAssociatedAttributeGroups
-> ListAssociatedAttributeGroups -> Bool
$c== :: ListAssociatedAttributeGroups
-> ListAssociatedAttributeGroups -> Bool
Prelude.Eq, ReadPrec [ListAssociatedAttributeGroups]
ReadPrec ListAssociatedAttributeGroups
Int -> ReadS ListAssociatedAttributeGroups
ReadS [ListAssociatedAttributeGroups]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListAssociatedAttributeGroups]
$creadListPrec :: ReadPrec [ListAssociatedAttributeGroups]
readPrec :: ReadPrec ListAssociatedAttributeGroups
$creadPrec :: ReadPrec ListAssociatedAttributeGroups
readList :: ReadS [ListAssociatedAttributeGroups]
$creadList :: ReadS [ListAssociatedAttributeGroups]
readsPrec :: Int -> ReadS ListAssociatedAttributeGroups
$creadsPrec :: Int -> ReadS ListAssociatedAttributeGroups
Prelude.Read, Int -> ListAssociatedAttributeGroups -> ShowS
[ListAssociatedAttributeGroups] -> ShowS
ListAssociatedAttributeGroups -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListAssociatedAttributeGroups] -> ShowS
$cshowList :: [ListAssociatedAttributeGroups] -> ShowS
show :: ListAssociatedAttributeGroups -> String
$cshow :: ListAssociatedAttributeGroups -> String
showsPrec :: Int -> ListAssociatedAttributeGroups -> ShowS
$cshowsPrec :: Int -> ListAssociatedAttributeGroups -> ShowS
Prelude.Show, forall x.
Rep ListAssociatedAttributeGroups x
-> ListAssociatedAttributeGroups
forall x.
ListAssociatedAttributeGroups
-> Rep ListAssociatedAttributeGroups x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListAssociatedAttributeGroups x
-> ListAssociatedAttributeGroups
$cfrom :: forall x.
ListAssociatedAttributeGroups
-> Rep ListAssociatedAttributeGroups x
Prelude.Generic)
newListAssociatedAttributeGroups ::
Prelude.Text ->
ListAssociatedAttributeGroups
newListAssociatedAttributeGroups :: Text -> ListAssociatedAttributeGroups
newListAssociatedAttributeGroups Text
pApplication_ =
ListAssociatedAttributeGroups'
{ $sel:maxResults:ListAssociatedAttributeGroups' :: Maybe Natural
maxResults =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListAssociatedAttributeGroups' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:application:ListAssociatedAttributeGroups' :: Text
application = Text
pApplication_
}
listAssociatedAttributeGroups_maxResults :: Lens.Lens' ListAssociatedAttributeGroups (Prelude.Maybe Prelude.Natural)
listAssociatedAttributeGroups_maxResults :: Lens' ListAssociatedAttributeGroups (Maybe Natural)
listAssociatedAttributeGroups_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAssociatedAttributeGroups' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListAssociatedAttributeGroups' :: ListAssociatedAttributeGroups -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListAssociatedAttributeGroups
s@ListAssociatedAttributeGroups' {} Maybe Natural
a -> ListAssociatedAttributeGroups
s {$sel:maxResults:ListAssociatedAttributeGroups' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListAssociatedAttributeGroups)
listAssociatedAttributeGroups_nextToken :: Lens.Lens' ListAssociatedAttributeGroups (Prelude.Maybe Prelude.Text)
listAssociatedAttributeGroups_nextToken :: Lens' ListAssociatedAttributeGroups (Maybe Text)
listAssociatedAttributeGroups_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAssociatedAttributeGroups' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListAssociatedAttributeGroups' :: ListAssociatedAttributeGroups -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListAssociatedAttributeGroups
s@ListAssociatedAttributeGroups' {} Maybe Text
a -> ListAssociatedAttributeGroups
s {$sel:nextToken:ListAssociatedAttributeGroups' :: Maybe Text
nextToken = Maybe Text
a} :: ListAssociatedAttributeGroups)
listAssociatedAttributeGroups_application :: Lens.Lens' ListAssociatedAttributeGroups Prelude.Text
listAssociatedAttributeGroups_application :: Lens' ListAssociatedAttributeGroups Text
listAssociatedAttributeGroups_application = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAssociatedAttributeGroups' {Text
application :: Text
$sel:application:ListAssociatedAttributeGroups' :: ListAssociatedAttributeGroups -> Text
application} -> Text
application) (\s :: ListAssociatedAttributeGroups
s@ListAssociatedAttributeGroups' {} Text
a -> ListAssociatedAttributeGroups
s {$sel:application:ListAssociatedAttributeGroups' :: Text
application = Text
a} :: ListAssociatedAttributeGroups)
instance Core.AWSPager ListAssociatedAttributeGroups where
page :: ListAssociatedAttributeGroups
-> AWSResponse ListAssociatedAttributeGroups
-> Maybe ListAssociatedAttributeGroups
page ListAssociatedAttributeGroups
rq AWSResponse ListAssociatedAttributeGroups
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListAssociatedAttributeGroups
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListAssociatedAttributeGroupsResponse (Maybe Text)
listAssociatedAttributeGroupsResponse_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 ListAssociatedAttributeGroups
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListAssociatedAttributeGroupsResponse (Maybe [Text])
listAssociatedAttributeGroupsResponse_attributeGroups
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.$ ListAssociatedAttributeGroups
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListAssociatedAttributeGroups (Maybe Text)
listAssociatedAttributeGroups_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListAssociatedAttributeGroups
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListAssociatedAttributeGroupsResponse (Maybe Text)
listAssociatedAttributeGroupsResponse_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
ListAssociatedAttributeGroups
where
type
AWSResponse ListAssociatedAttributeGroups =
ListAssociatedAttributeGroupsResponse
request :: (Service -> Service)
-> ListAssociatedAttributeGroups
-> Request ListAssociatedAttributeGroups
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 ListAssociatedAttributeGroups
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListAssociatedAttributeGroups)))
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 -> Int -> ListAssociatedAttributeGroupsResponse
ListAssociatedAttributeGroupsResponse'
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
"attributeGroups"
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
ListAssociatedAttributeGroups
where
hashWithSalt :: Int -> ListAssociatedAttributeGroups -> Int
hashWithSalt Int
_salt ListAssociatedAttributeGroups' {Maybe Natural
Maybe Text
Text
application :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:application:ListAssociatedAttributeGroups' :: ListAssociatedAttributeGroups -> Text
$sel:nextToken:ListAssociatedAttributeGroups' :: ListAssociatedAttributeGroups -> Maybe Text
$sel:maxResults:ListAssociatedAttributeGroups' :: ListAssociatedAttributeGroups -> 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` Text
application
instance Prelude.NFData ListAssociatedAttributeGroups where
rnf :: ListAssociatedAttributeGroups -> ()
rnf ListAssociatedAttributeGroups' {Maybe Natural
Maybe Text
Text
application :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:application:ListAssociatedAttributeGroups' :: ListAssociatedAttributeGroups -> Text
$sel:nextToken:ListAssociatedAttributeGroups' :: ListAssociatedAttributeGroups -> Maybe Text
$sel:maxResults:ListAssociatedAttributeGroups' :: ListAssociatedAttributeGroups -> 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 Text
application
instance Data.ToHeaders ListAssociatedAttributeGroups where
toHeaders :: ListAssociatedAttributeGroups -> 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 ListAssociatedAttributeGroups where
toPath :: ListAssociatedAttributeGroups -> ByteString
toPath ListAssociatedAttributeGroups' {Maybe Natural
Maybe Text
Text
application :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:application:ListAssociatedAttributeGroups' :: ListAssociatedAttributeGroups -> Text
$sel:nextToken:ListAssociatedAttributeGroups' :: ListAssociatedAttributeGroups -> Maybe Text
$sel:maxResults:ListAssociatedAttributeGroups' :: ListAssociatedAttributeGroups -> Maybe Natural
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/applications/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
application,
ByteString
"/attribute-groups"
]
instance Data.ToQuery ListAssociatedAttributeGroups where
toQuery :: ListAssociatedAttributeGroups -> QueryString
toQuery ListAssociatedAttributeGroups' {Maybe Natural
Maybe Text
Text
application :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:application:ListAssociatedAttributeGroups' :: ListAssociatedAttributeGroups -> Text
$sel:nextToken:ListAssociatedAttributeGroups' :: ListAssociatedAttributeGroups -> Maybe Text
$sel:maxResults:ListAssociatedAttributeGroups' :: ListAssociatedAttributeGroups -> 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
]
data ListAssociatedAttributeGroupsResponse = ListAssociatedAttributeGroupsResponse'
{
ListAssociatedAttributeGroupsResponse -> Maybe [Text]
attributeGroups :: Prelude.Maybe [Prelude.Text],
ListAssociatedAttributeGroupsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListAssociatedAttributeGroupsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListAssociatedAttributeGroupsResponse
-> ListAssociatedAttributeGroupsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListAssociatedAttributeGroupsResponse
-> ListAssociatedAttributeGroupsResponse -> Bool
$c/= :: ListAssociatedAttributeGroupsResponse
-> ListAssociatedAttributeGroupsResponse -> Bool
== :: ListAssociatedAttributeGroupsResponse
-> ListAssociatedAttributeGroupsResponse -> Bool
$c== :: ListAssociatedAttributeGroupsResponse
-> ListAssociatedAttributeGroupsResponse -> Bool
Prelude.Eq, ReadPrec [ListAssociatedAttributeGroupsResponse]
ReadPrec ListAssociatedAttributeGroupsResponse
Int -> ReadS ListAssociatedAttributeGroupsResponse
ReadS [ListAssociatedAttributeGroupsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListAssociatedAttributeGroupsResponse]
$creadListPrec :: ReadPrec [ListAssociatedAttributeGroupsResponse]
readPrec :: ReadPrec ListAssociatedAttributeGroupsResponse
$creadPrec :: ReadPrec ListAssociatedAttributeGroupsResponse
readList :: ReadS [ListAssociatedAttributeGroupsResponse]
$creadList :: ReadS [ListAssociatedAttributeGroupsResponse]
readsPrec :: Int -> ReadS ListAssociatedAttributeGroupsResponse
$creadsPrec :: Int -> ReadS ListAssociatedAttributeGroupsResponse
Prelude.Read, Int -> ListAssociatedAttributeGroupsResponse -> ShowS
[ListAssociatedAttributeGroupsResponse] -> ShowS
ListAssociatedAttributeGroupsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListAssociatedAttributeGroupsResponse] -> ShowS
$cshowList :: [ListAssociatedAttributeGroupsResponse] -> ShowS
show :: ListAssociatedAttributeGroupsResponse -> String
$cshow :: ListAssociatedAttributeGroupsResponse -> String
showsPrec :: Int -> ListAssociatedAttributeGroupsResponse -> ShowS
$cshowsPrec :: Int -> ListAssociatedAttributeGroupsResponse -> ShowS
Prelude.Show, forall x.
Rep ListAssociatedAttributeGroupsResponse x
-> ListAssociatedAttributeGroupsResponse
forall x.
ListAssociatedAttributeGroupsResponse
-> Rep ListAssociatedAttributeGroupsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListAssociatedAttributeGroupsResponse x
-> ListAssociatedAttributeGroupsResponse
$cfrom :: forall x.
ListAssociatedAttributeGroupsResponse
-> Rep ListAssociatedAttributeGroupsResponse x
Prelude.Generic)
newListAssociatedAttributeGroupsResponse ::
Prelude.Int ->
ListAssociatedAttributeGroupsResponse
newListAssociatedAttributeGroupsResponse :: Int -> ListAssociatedAttributeGroupsResponse
newListAssociatedAttributeGroupsResponse Int
pHttpStatus_ =
ListAssociatedAttributeGroupsResponse'
{ $sel:attributeGroups:ListAssociatedAttributeGroupsResponse' :: Maybe [Text]
attributeGroups =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListAssociatedAttributeGroupsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListAssociatedAttributeGroupsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listAssociatedAttributeGroupsResponse_attributeGroups :: Lens.Lens' ListAssociatedAttributeGroupsResponse (Prelude.Maybe [Prelude.Text])
listAssociatedAttributeGroupsResponse_attributeGroups :: Lens' ListAssociatedAttributeGroupsResponse (Maybe [Text])
listAssociatedAttributeGroupsResponse_attributeGroups = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAssociatedAttributeGroupsResponse' {Maybe [Text]
attributeGroups :: Maybe [Text]
$sel:attributeGroups:ListAssociatedAttributeGroupsResponse' :: ListAssociatedAttributeGroupsResponse -> Maybe [Text]
attributeGroups} -> Maybe [Text]
attributeGroups) (\s :: ListAssociatedAttributeGroupsResponse
s@ListAssociatedAttributeGroupsResponse' {} Maybe [Text]
a -> ListAssociatedAttributeGroupsResponse
s {$sel:attributeGroups:ListAssociatedAttributeGroupsResponse' :: Maybe [Text]
attributeGroups = Maybe [Text]
a} :: ListAssociatedAttributeGroupsResponse) 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
listAssociatedAttributeGroupsResponse_nextToken :: Lens.Lens' ListAssociatedAttributeGroupsResponse (Prelude.Maybe Prelude.Text)
listAssociatedAttributeGroupsResponse_nextToken :: Lens' ListAssociatedAttributeGroupsResponse (Maybe Text)
listAssociatedAttributeGroupsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAssociatedAttributeGroupsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListAssociatedAttributeGroupsResponse' :: ListAssociatedAttributeGroupsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListAssociatedAttributeGroupsResponse
s@ListAssociatedAttributeGroupsResponse' {} Maybe Text
a -> ListAssociatedAttributeGroupsResponse
s {$sel:nextToken:ListAssociatedAttributeGroupsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListAssociatedAttributeGroupsResponse)
listAssociatedAttributeGroupsResponse_httpStatus :: Lens.Lens' ListAssociatedAttributeGroupsResponse Prelude.Int
listAssociatedAttributeGroupsResponse_httpStatus :: Lens' ListAssociatedAttributeGroupsResponse Int
listAssociatedAttributeGroupsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAssociatedAttributeGroupsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListAssociatedAttributeGroupsResponse' :: ListAssociatedAttributeGroupsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListAssociatedAttributeGroupsResponse
s@ListAssociatedAttributeGroupsResponse' {} Int
a -> ListAssociatedAttributeGroupsResponse
s {$sel:httpStatus:ListAssociatedAttributeGroupsResponse' :: Int
httpStatus = Int
a} :: ListAssociatedAttributeGroupsResponse)
instance
Prelude.NFData
ListAssociatedAttributeGroupsResponse
where
rnf :: ListAssociatedAttributeGroupsResponse -> ()
rnf ListAssociatedAttributeGroupsResponse' {Int
Maybe [Text]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
attributeGroups :: Maybe [Text]
$sel:httpStatus:ListAssociatedAttributeGroupsResponse' :: ListAssociatedAttributeGroupsResponse -> Int
$sel:nextToken:ListAssociatedAttributeGroupsResponse' :: ListAssociatedAttributeGroupsResponse -> Maybe Text
$sel:attributeGroups:ListAssociatedAttributeGroupsResponse' :: ListAssociatedAttributeGroupsResponse -> Maybe [Text]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
attributeGroups
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