{-# 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.SSOAdmin.ListAccountAssignments
(
ListAccountAssignments (..),
newListAccountAssignments,
listAccountAssignments_maxResults,
listAccountAssignments_nextToken,
listAccountAssignments_instanceArn,
listAccountAssignments_accountId,
listAccountAssignments_permissionSetArn,
ListAccountAssignmentsResponse (..),
newListAccountAssignmentsResponse,
listAccountAssignmentsResponse_accountAssignments,
listAccountAssignmentsResponse_nextToken,
listAccountAssignmentsResponse_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.SSOAdmin.Types
data ListAccountAssignments = ListAccountAssignments'
{
ListAccountAssignments -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListAccountAssignments -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListAccountAssignments -> Text
instanceArn :: Prelude.Text,
ListAccountAssignments -> Text
accountId :: Prelude.Text,
ListAccountAssignments -> Text
permissionSetArn :: Prelude.Text
}
deriving (ListAccountAssignments -> ListAccountAssignments -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListAccountAssignments -> ListAccountAssignments -> Bool
$c/= :: ListAccountAssignments -> ListAccountAssignments -> Bool
== :: ListAccountAssignments -> ListAccountAssignments -> Bool
$c== :: ListAccountAssignments -> ListAccountAssignments -> Bool
Prelude.Eq, ReadPrec [ListAccountAssignments]
ReadPrec ListAccountAssignments
Int -> ReadS ListAccountAssignments
ReadS [ListAccountAssignments]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListAccountAssignments]
$creadListPrec :: ReadPrec [ListAccountAssignments]
readPrec :: ReadPrec ListAccountAssignments
$creadPrec :: ReadPrec ListAccountAssignments
readList :: ReadS [ListAccountAssignments]
$creadList :: ReadS [ListAccountAssignments]
readsPrec :: Int -> ReadS ListAccountAssignments
$creadsPrec :: Int -> ReadS ListAccountAssignments
Prelude.Read, Int -> ListAccountAssignments -> ShowS
[ListAccountAssignments] -> ShowS
ListAccountAssignments -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListAccountAssignments] -> ShowS
$cshowList :: [ListAccountAssignments] -> ShowS
show :: ListAccountAssignments -> String
$cshow :: ListAccountAssignments -> String
showsPrec :: Int -> ListAccountAssignments -> ShowS
$cshowsPrec :: Int -> ListAccountAssignments -> ShowS
Prelude.Show, forall x. Rep ListAccountAssignments x -> ListAccountAssignments
forall x. ListAccountAssignments -> Rep ListAccountAssignments x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListAccountAssignments x -> ListAccountAssignments
$cfrom :: forall x. ListAccountAssignments -> Rep ListAccountAssignments x
Prelude.Generic)
newListAccountAssignments ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
ListAccountAssignments
newListAccountAssignments :: Text -> Text -> Text -> ListAccountAssignments
newListAccountAssignments
Text
pInstanceArn_
Text
pAccountId_
Text
pPermissionSetArn_ =
ListAccountAssignments'
{ $sel:maxResults:ListAccountAssignments' :: Maybe Natural
maxResults =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListAccountAssignments' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:instanceArn:ListAccountAssignments' :: Text
instanceArn = Text
pInstanceArn_,
$sel:accountId:ListAccountAssignments' :: Text
accountId = Text
pAccountId_,
$sel:permissionSetArn:ListAccountAssignments' :: Text
permissionSetArn = Text
pPermissionSetArn_
}
listAccountAssignments_maxResults :: Lens.Lens' ListAccountAssignments (Prelude.Maybe Prelude.Natural)
listAccountAssignments_maxResults :: Lens' ListAccountAssignments (Maybe Natural)
listAccountAssignments_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAccountAssignments' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListAccountAssignments' :: ListAccountAssignments -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListAccountAssignments
s@ListAccountAssignments' {} Maybe Natural
a -> ListAccountAssignments
s {$sel:maxResults:ListAccountAssignments' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListAccountAssignments)
listAccountAssignments_nextToken :: Lens.Lens' ListAccountAssignments (Prelude.Maybe Prelude.Text)
listAccountAssignments_nextToken :: Lens' ListAccountAssignments (Maybe Text)
listAccountAssignments_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAccountAssignments' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListAccountAssignments' :: ListAccountAssignments -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListAccountAssignments
s@ListAccountAssignments' {} Maybe Text
a -> ListAccountAssignments
s {$sel:nextToken:ListAccountAssignments' :: Maybe Text
nextToken = Maybe Text
a} :: ListAccountAssignments)
listAccountAssignments_instanceArn :: Lens.Lens' ListAccountAssignments Prelude.Text
listAccountAssignments_instanceArn :: Lens' ListAccountAssignments Text
listAccountAssignments_instanceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAccountAssignments' {Text
instanceArn :: Text
$sel:instanceArn:ListAccountAssignments' :: ListAccountAssignments -> Text
instanceArn} -> Text
instanceArn) (\s :: ListAccountAssignments
s@ListAccountAssignments' {} Text
a -> ListAccountAssignments
s {$sel:instanceArn:ListAccountAssignments' :: Text
instanceArn = Text
a} :: ListAccountAssignments)
listAccountAssignments_accountId :: Lens.Lens' ListAccountAssignments Prelude.Text
listAccountAssignments_accountId :: Lens' ListAccountAssignments Text
listAccountAssignments_accountId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAccountAssignments' {Text
accountId :: Text
$sel:accountId:ListAccountAssignments' :: ListAccountAssignments -> Text
accountId} -> Text
accountId) (\s :: ListAccountAssignments
s@ListAccountAssignments' {} Text
a -> ListAccountAssignments
s {$sel:accountId:ListAccountAssignments' :: Text
accountId = Text
a} :: ListAccountAssignments)
listAccountAssignments_permissionSetArn :: Lens.Lens' ListAccountAssignments Prelude.Text
listAccountAssignments_permissionSetArn :: Lens' ListAccountAssignments Text
listAccountAssignments_permissionSetArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAccountAssignments' {Text
permissionSetArn :: Text
$sel:permissionSetArn:ListAccountAssignments' :: ListAccountAssignments -> Text
permissionSetArn} -> Text
permissionSetArn) (\s :: ListAccountAssignments
s@ListAccountAssignments' {} Text
a -> ListAccountAssignments
s {$sel:permissionSetArn:ListAccountAssignments' :: Text
permissionSetArn = Text
a} :: ListAccountAssignments)
instance Core.AWSPager ListAccountAssignments where
page :: ListAccountAssignments
-> AWSResponse ListAccountAssignments
-> Maybe ListAccountAssignments
page ListAccountAssignments
rq AWSResponse ListAccountAssignments
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListAccountAssignments
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListAccountAssignmentsResponse (Maybe Text)
listAccountAssignmentsResponse_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 ListAccountAssignments
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListAccountAssignmentsResponse (Maybe [AccountAssignment])
listAccountAssignmentsResponse_accountAssignments
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.$ ListAccountAssignments
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListAccountAssignments (Maybe Text)
listAccountAssignments_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListAccountAssignments
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListAccountAssignmentsResponse (Maybe Text)
listAccountAssignmentsResponse_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 ListAccountAssignments where
type
AWSResponse ListAccountAssignments =
ListAccountAssignmentsResponse
request :: (Service -> Service)
-> ListAccountAssignments -> Request ListAccountAssignments
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 ListAccountAssignments
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListAccountAssignments)))
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 [AccountAssignment]
-> Maybe Text -> Int -> ListAccountAssignmentsResponse
ListAccountAssignmentsResponse'
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
"AccountAssignments"
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 ListAccountAssignments where
hashWithSalt :: Int -> ListAccountAssignments -> Int
hashWithSalt Int
_salt ListAccountAssignments' {Maybe Natural
Maybe Text
Text
permissionSetArn :: Text
accountId :: Text
instanceArn :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:permissionSetArn:ListAccountAssignments' :: ListAccountAssignments -> Text
$sel:accountId:ListAccountAssignments' :: ListAccountAssignments -> Text
$sel:instanceArn:ListAccountAssignments' :: ListAccountAssignments -> Text
$sel:nextToken:ListAccountAssignments' :: ListAccountAssignments -> Maybe Text
$sel:maxResults:ListAccountAssignments' :: ListAccountAssignments -> 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
instanceArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
accountId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
permissionSetArn
instance Prelude.NFData ListAccountAssignments where
rnf :: ListAccountAssignments -> ()
rnf ListAccountAssignments' {Maybe Natural
Maybe Text
Text
permissionSetArn :: Text
accountId :: Text
instanceArn :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:permissionSetArn:ListAccountAssignments' :: ListAccountAssignments -> Text
$sel:accountId:ListAccountAssignments' :: ListAccountAssignments -> Text
$sel:instanceArn:ListAccountAssignments' :: ListAccountAssignments -> Text
$sel:nextToken:ListAccountAssignments' :: ListAccountAssignments -> Maybe Text
$sel:maxResults:ListAccountAssignments' :: ListAccountAssignments -> 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
instanceArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
accountId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
permissionSetArn
instance Data.ToHeaders ListAccountAssignments where
toHeaders :: ListAccountAssignments -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"SWBExternalService.ListAccountAssignments" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON ListAccountAssignments where
toJSON :: ListAccountAssignments -> Value
toJSON ListAccountAssignments' {Maybe Natural
Maybe Text
Text
permissionSetArn :: Text
accountId :: Text
instanceArn :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:permissionSetArn:ListAccountAssignments' :: ListAccountAssignments -> Text
$sel:accountId:ListAccountAssignments' :: ListAccountAssignments -> Text
$sel:instanceArn:ListAccountAssignments' :: ListAccountAssignments -> Text
$sel:nextToken:ListAccountAssignments' :: ListAccountAssignments -> Maybe Text
$sel:maxResults:ListAccountAssignments' :: ListAccountAssignments -> Maybe Natural
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"MaxResults" 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 Natural
maxResults,
(Key
"NextToken" 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 Text
nextToken,
forall a. a -> Maybe a
Prelude.Just (Key
"InstanceArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
instanceArn),
forall a. a -> Maybe a
Prelude.Just (Key
"AccountId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
accountId),
forall a. a -> Maybe a
Prelude.Just
(Key
"PermissionSetArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
permissionSetArn)
]
)
instance Data.ToPath ListAccountAssignments where
toPath :: ListAccountAssignments -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ListAccountAssignments where
toQuery :: ListAccountAssignments -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data ListAccountAssignmentsResponse = ListAccountAssignmentsResponse'
{
ListAccountAssignmentsResponse -> Maybe [AccountAssignment]
accountAssignments :: Prelude.Maybe [AccountAssignment],
ListAccountAssignmentsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListAccountAssignmentsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListAccountAssignmentsResponse
-> ListAccountAssignmentsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListAccountAssignmentsResponse
-> ListAccountAssignmentsResponse -> Bool
$c/= :: ListAccountAssignmentsResponse
-> ListAccountAssignmentsResponse -> Bool
== :: ListAccountAssignmentsResponse
-> ListAccountAssignmentsResponse -> Bool
$c== :: ListAccountAssignmentsResponse
-> ListAccountAssignmentsResponse -> Bool
Prelude.Eq, ReadPrec [ListAccountAssignmentsResponse]
ReadPrec ListAccountAssignmentsResponse
Int -> ReadS ListAccountAssignmentsResponse
ReadS [ListAccountAssignmentsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListAccountAssignmentsResponse]
$creadListPrec :: ReadPrec [ListAccountAssignmentsResponse]
readPrec :: ReadPrec ListAccountAssignmentsResponse
$creadPrec :: ReadPrec ListAccountAssignmentsResponse
readList :: ReadS [ListAccountAssignmentsResponse]
$creadList :: ReadS [ListAccountAssignmentsResponse]
readsPrec :: Int -> ReadS ListAccountAssignmentsResponse
$creadsPrec :: Int -> ReadS ListAccountAssignmentsResponse
Prelude.Read, Int -> ListAccountAssignmentsResponse -> ShowS
[ListAccountAssignmentsResponse] -> ShowS
ListAccountAssignmentsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListAccountAssignmentsResponse] -> ShowS
$cshowList :: [ListAccountAssignmentsResponse] -> ShowS
show :: ListAccountAssignmentsResponse -> String
$cshow :: ListAccountAssignmentsResponse -> String
showsPrec :: Int -> ListAccountAssignmentsResponse -> ShowS
$cshowsPrec :: Int -> ListAccountAssignmentsResponse -> ShowS
Prelude.Show, forall x.
Rep ListAccountAssignmentsResponse x
-> ListAccountAssignmentsResponse
forall x.
ListAccountAssignmentsResponse
-> Rep ListAccountAssignmentsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListAccountAssignmentsResponse x
-> ListAccountAssignmentsResponse
$cfrom :: forall x.
ListAccountAssignmentsResponse
-> Rep ListAccountAssignmentsResponse x
Prelude.Generic)
newListAccountAssignmentsResponse ::
Prelude.Int ->
ListAccountAssignmentsResponse
newListAccountAssignmentsResponse :: Int -> ListAccountAssignmentsResponse
newListAccountAssignmentsResponse Int
pHttpStatus_ =
ListAccountAssignmentsResponse'
{ $sel:accountAssignments:ListAccountAssignmentsResponse' :: Maybe [AccountAssignment]
accountAssignments =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListAccountAssignmentsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListAccountAssignmentsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listAccountAssignmentsResponse_accountAssignments :: Lens.Lens' ListAccountAssignmentsResponse (Prelude.Maybe [AccountAssignment])
listAccountAssignmentsResponse_accountAssignments :: Lens' ListAccountAssignmentsResponse (Maybe [AccountAssignment])
listAccountAssignmentsResponse_accountAssignments = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAccountAssignmentsResponse' {Maybe [AccountAssignment]
accountAssignments :: Maybe [AccountAssignment]
$sel:accountAssignments:ListAccountAssignmentsResponse' :: ListAccountAssignmentsResponse -> Maybe [AccountAssignment]
accountAssignments} -> Maybe [AccountAssignment]
accountAssignments) (\s :: ListAccountAssignmentsResponse
s@ListAccountAssignmentsResponse' {} Maybe [AccountAssignment]
a -> ListAccountAssignmentsResponse
s {$sel:accountAssignments:ListAccountAssignmentsResponse' :: Maybe [AccountAssignment]
accountAssignments = Maybe [AccountAssignment]
a} :: ListAccountAssignmentsResponse) 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
listAccountAssignmentsResponse_nextToken :: Lens.Lens' ListAccountAssignmentsResponse (Prelude.Maybe Prelude.Text)
listAccountAssignmentsResponse_nextToken :: Lens' ListAccountAssignmentsResponse (Maybe Text)
listAccountAssignmentsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAccountAssignmentsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListAccountAssignmentsResponse' :: ListAccountAssignmentsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListAccountAssignmentsResponse
s@ListAccountAssignmentsResponse' {} Maybe Text
a -> ListAccountAssignmentsResponse
s {$sel:nextToken:ListAccountAssignmentsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListAccountAssignmentsResponse)
listAccountAssignmentsResponse_httpStatus :: Lens.Lens' ListAccountAssignmentsResponse Prelude.Int
listAccountAssignmentsResponse_httpStatus :: Lens' ListAccountAssignmentsResponse Int
listAccountAssignmentsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListAccountAssignmentsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListAccountAssignmentsResponse' :: ListAccountAssignmentsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListAccountAssignmentsResponse
s@ListAccountAssignmentsResponse' {} Int
a -> ListAccountAssignmentsResponse
s {$sel:httpStatus:ListAccountAssignmentsResponse' :: Int
httpStatus = Int
a} :: ListAccountAssignmentsResponse)
instance
Prelude.NFData
ListAccountAssignmentsResponse
where
rnf :: ListAccountAssignmentsResponse -> ()
rnf ListAccountAssignmentsResponse' {Int
Maybe [AccountAssignment]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
accountAssignments :: Maybe [AccountAssignment]
$sel:httpStatus:ListAccountAssignmentsResponse' :: ListAccountAssignmentsResponse -> Int
$sel:nextToken:ListAccountAssignmentsResponse' :: ListAccountAssignmentsResponse -> Maybe Text
$sel:accountAssignments:ListAccountAssignmentsResponse' :: ListAccountAssignmentsResponse -> Maybe [AccountAssignment]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [AccountAssignment]
accountAssignments
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