{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.IdentityStore.ListGroupMemberships
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- For the specified group in the specified identity store, returns the
-- list of all @GroupMembership@ objects and returns results in paginated
-- form.
--
-- This operation returns paginated results.
module Amazonka.IdentityStore.ListGroupMemberships
  ( -- * Creating a Request
    ListGroupMemberships (..),
    newListGroupMemberships,

    -- * Request Lenses
    listGroupMemberships_maxResults,
    listGroupMemberships_nextToken,
    listGroupMemberships_identityStoreId,
    listGroupMemberships_groupId,

    -- * Destructuring the Response
    ListGroupMembershipsResponse (..),
    newListGroupMembershipsResponse,

    -- * Response Lenses
    listGroupMembershipsResponse_nextToken,
    listGroupMembershipsResponse_httpStatus,
    listGroupMembershipsResponse_groupMemberships,
  )
where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IdentityStore.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | /See:/ 'newListGroupMemberships' smart constructor.
data ListGroupMemberships = ListGroupMemberships'
  { -- | The maximum number of results to be returned per request. This parameter
    -- is used in all @List@ requests to specify how many results to return in
    -- one page.
    ListGroupMemberships -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
    -- | The pagination token used for the @ListUsers@, @ListGroups@ and
    -- @ListGroupMemberships@ API operations. This value is generated by the
    -- identity store service. It is returned in the API response if the total
    -- results are more than the size of one page. This token is also returned
    -- when it is used in the API request to search for the next page.
    ListGroupMemberships -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
    -- | The globally unique identifier for the identity store.
    ListGroupMemberships -> Text
identityStoreId :: Prelude.Text,
    -- | The identifier for a group in the identity store.
    ListGroupMemberships -> Text
groupId :: Prelude.Text
  }
  deriving (ListGroupMemberships -> ListGroupMemberships -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListGroupMemberships -> ListGroupMemberships -> Bool
$c/= :: ListGroupMemberships -> ListGroupMemberships -> Bool
== :: ListGroupMemberships -> ListGroupMemberships -> Bool
$c== :: ListGroupMemberships -> ListGroupMemberships -> Bool
Prelude.Eq, ReadPrec [ListGroupMemberships]
ReadPrec ListGroupMemberships
Int -> ReadS ListGroupMemberships
ReadS [ListGroupMemberships]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListGroupMemberships]
$creadListPrec :: ReadPrec [ListGroupMemberships]
readPrec :: ReadPrec ListGroupMemberships
$creadPrec :: ReadPrec ListGroupMemberships
readList :: ReadS [ListGroupMemberships]
$creadList :: ReadS [ListGroupMemberships]
readsPrec :: Int -> ReadS ListGroupMemberships
$creadsPrec :: Int -> ReadS ListGroupMemberships
Prelude.Read, Int -> ListGroupMemberships -> ShowS
[ListGroupMemberships] -> ShowS
ListGroupMemberships -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListGroupMemberships] -> ShowS
$cshowList :: [ListGroupMemberships] -> ShowS
show :: ListGroupMemberships -> String
$cshow :: ListGroupMemberships -> String
showsPrec :: Int -> ListGroupMemberships -> ShowS
$cshowsPrec :: Int -> ListGroupMemberships -> ShowS
Prelude.Show, forall x. Rep ListGroupMemberships x -> ListGroupMemberships
forall x. ListGroupMemberships -> Rep ListGroupMemberships x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListGroupMemberships x -> ListGroupMemberships
$cfrom :: forall x. ListGroupMemberships -> Rep ListGroupMemberships x
Prelude.Generic)

-- |
-- Create a value of 'ListGroupMemberships' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'maxResults', 'listGroupMemberships_maxResults' - The maximum number of results to be returned per request. This parameter
-- is used in all @List@ requests to specify how many results to return in
-- one page.
--
-- 'nextToken', 'listGroupMemberships_nextToken' - The pagination token used for the @ListUsers@, @ListGroups@ and
-- @ListGroupMemberships@ API operations. This value is generated by the
-- identity store service. It is returned in the API response if the total
-- results are more than the size of one page. This token is also returned
-- when it is used in the API request to search for the next page.
--
-- 'identityStoreId', 'listGroupMemberships_identityStoreId' - The globally unique identifier for the identity store.
--
-- 'groupId', 'listGroupMemberships_groupId' - The identifier for a group in the identity store.
newListGroupMemberships ::
  -- | 'identityStoreId'
  Prelude.Text ->
  -- | 'groupId'
  Prelude.Text ->
  ListGroupMemberships
newListGroupMemberships :: Text -> Text -> ListGroupMemberships
newListGroupMemberships Text
pIdentityStoreId_ Text
pGroupId_ =
  ListGroupMemberships'
    { $sel:maxResults:ListGroupMemberships' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
      $sel:nextToken:ListGroupMemberships' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
      $sel:identityStoreId:ListGroupMemberships' :: Text
identityStoreId = Text
pIdentityStoreId_,
      $sel:groupId:ListGroupMemberships' :: Text
groupId = Text
pGroupId_
    }

-- | The maximum number of results to be returned per request. This parameter
-- is used in all @List@ requests to specify how many results to return in
-- one page.
listGroupMemberships_maxResults :: Lens.Lens' ListGroupMemberships (Prelude.Maybe Prelude.Natural)
listGroupMemberships_maxResults :: Lens' ListGroupMemberships (Maybe Natural)
listGroupMemberships_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGroupMemberships' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListGroupMemberships' :: ListGroupMemberships -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListGroupMemberships
s@ListGroupMemberships' {} Maybe Natural
a -> ListGroupMemberships
s {$sel:maxResults:ListGroupMemberships' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListGroupMemberships)

-- | The pagination token used for the @ListUsers@, @ListGroups@ and
-- @ListGroupMemberships@ API operations. This value is generated by the
-- identity store service. It is returned in the API response if the total
-- results are more than the size of one page. This token is also returned
-- when it is used in the API request to search for the next page.
listGroupMemberships_nextToken :: Lens.Lens' ListGroupMemberships (Prelude.Maybe Prelude.Text)
listGroupMemberships_nextToken :: Lens' ListGroupMemberships (Maybe Text)
listGroupMemberships_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGroupMemberships' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListGroupMemberships' :: ListGroupMemberships -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListGroupMemberships
s@ListGroupMemberships' {} Maybe Text
a -> ListGroupMemberships
s {$sel:nextToken:ListGroupMemberships' :: Maybe Text
nextToken = Maybe Text
a} :: ListGroupMemberships)

-- | The globally unique identifier for the identity store.
listGroupMemberships_identityStoreId :: Lens.Lens' ListGroupMemberships Prelude.Text
listGroupMemberships_identityStoreId :: Lens' ListGroupMemberships Text
listGroupMemberships_identityStoreId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGroupMemberships' {Text
identityStoreId :: Text
$sel:identityStoreId:ListGroupMemberships' :: ListGroupMemberships -> Text
identityStoreId} -> Text
identityStoreId) (\s :: ListGroupMemberships
s@ListGroupMemberships' {} Text
a -> ListGroupMemberships
s {$sel:identityStoreId:ListGroupMemberships' :: Text
identityStoreId = Text
a} :: ListGroupMemberships)

-- | The identifier for a group in the identity store.
listGroupMemberships_groupId :: Lens.Lens' ListGroupMemberships Prelude.Text
listGroupMemberships_groupId :: Lens' ListGroupMemberships Text
listGroupMemberships_groupId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGroupMemberships' {Text
groupId :: Text
$sel:groupId:ListGroupMemberships' :: ListGroupMemberships -> Text
groupId} -> Text
groupId) (\s :: ListGroupMemberships
s@ListGroupMemberships' {} Text
a -> ListGroupMemberships
s {$sel:groupId:ListGroupMemberships' :: Text
groupId = Text
a} :: ListGroupMemberships)

instance Core.AWSPager ListGroupMemberships where
  page :: ListGroupMemberships
-> AWSResponse ListGroupMemberships -> Maybe ListGroupMemberships
page ListGroupMemberships
rq AWSResponse ListGroupMemberships
rs
    | forall a. AWSTruncated a => a -> Bool
Core.stop
        ( AWSResponse ListGroupMemberships
rs
            forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListGroupMembershipsResponse (Maybe Text)
listGroupMembershipsResponse_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 ListGroupMemberships
rs
            forall s a. s -> Getting a s a -> a
Lens.^. Lens' ListGroupMembershipsResponse [GroupMembership]
listGroupMembershipsResponse_groupMemberships
        ) =
        forall a. Maybe a
Prelude.Nothing
    | Bool
Prelude.otherwise =
        forall a. a -> Maybe a
Prelude.Just
          forall a b. (a -> b) -> a -> b
Prelude.$ ListGroupMemberships
rq
          forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListGroupMemberships (Maybe Text)
listGroupMemberships_nextToken
          forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListGroupMemberships
rs
          forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListGroupMembershipsResponse (Maybe Text)
listGroupMembershipsResponse_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 ListGroupMemberships where
  type
    AWSResponse ListGroupMemberships =
      ListGroupMembershipsResponse
  request :: (Service -> Service)
-> ListGroupMemberships -> Request ListGroupMemberships
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 ListGroupMemberships
-> ClientResponse ClientBody
-> m (Either
        Error (ClientResponse (AWSResponse ListGroupMemberships)))
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
-> Int -> [GroupMembership] -> ListGroupMembershipsResponse
ListGroupMembershipsResponse'
            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.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
            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
"GroupMemberships"
                            forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
                        )
      )

instance Prelude.Hashable ListGroupMemberships where
  hashWithSalt :: Int -> ListGroupMemberships -> Int
hashWithSalt Int
_salt ListGroupMemberships' {Maybe Natural
Maybe Text
Text
groupId :: Text
identityStoreId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:groupId:ListGroupMemberships' :: ListGroupMemberships -> Text
$sel:identityStoreId:ListGroupMemberships' :: ListGroupMemberships -> Text
$sel:nextToken:ListGroupMemberships' :: ListGroupMemberships -> Maybe Text
$sel:maxResults:ListGroupMemberships' :: ListGroupMemberships -> 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
identityStoreId
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
groupId

instance Prelude.NFData ListGroupMemberships where
  rnf :: ListGroupMemberships -> ()
rnf ListGroupMemberships' {Maybe Natural
Maybe Text
Text
groupId :: Text
identityStoreId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:groupId:ListGroupMemberships' :: ListGroupMemberships -> Text
$sel:identityStoreId:ListGroupMemberships' :: ListGroupMemberships -> Text
$sel:nextToken:ListGroupMemberships' :: ListGroupMemberships -> Maybe Text
$sel:maxResults:ListGroupMemberships' :: ListGroupMemberships -> 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
identityStoreId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
groupId

instance Data.ToHeaders ListGroupMemberships where
  toHeaders :: ListGroupMemberships -> 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
"AWSIdentityStore.ListGroupMemberships" ::
                          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 ListGroupMemberships where
  toJSON :: ListGroupMemberships -> Value
toJSON ListGroupMemberships' {Maybe Natural
Maybe Text
Text
groupId :: Text
identityStoreId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:groupId:ListGroupMemberships' :: ListGroupMemberships -> Text
$sel:identityStoreId:ListGroupMemberships' :: ListGroupMemberships -> Text
$sel:nextToken:ListGroupMemberships' :: ListGroupMemberships -> Maybe Text
$sel:maxResults:ListGroupMemberships' :: ListGroupMemberships -> 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
"IdentityStoreId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
identityStoreId),
            forall a. a -> Maybe a
Prelude.Just (Key
"GroupId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
groupId)
          ]
      )

instance Data.ToPath ListGroupMemberships where
  toPath :: ListGroupMemberships -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"

instance Data.ToQuery ListGroupMemberships where
  toQuery :: ListGroupMemberships -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty

-- | /See:/ 'newListGroupMembershipsResponse' smart constructor.
data ListGroupMembershipsResponse = ListGroupMembershipsResponse'
  { -- | The pagination token used for the @ListUsers@, @ListGroups@, and
    -- @ListGroupMemberships@ API operations. This value is generated by the
    -- identity store service. It is returned in the API response if the total
    -- results are more than the size of one page. This token is also returned
    -- when it is used in the API request to search for the next page.
    ListGroupMembershipsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
    -- | The response's http status code.
    ListGroupMembershipsResponse -> Int
httpStatus :: Prelude.Int,
    -- | A list of @GroupMembership@ objects in the group.
    ListGroupMembershipsResponse -> [GroupMembership]
groupMemberships :: [GroupMembership]
  }
  deriving (ListGroupMembershipsResponse
-> ListGroupMembershipsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListGroupMembershipsResponse
-> ListGroupMembershipsResponse -> Bool
$c/= :: ListGroupMembershipsResponse
-> ListGroupMembershipsResponse -> Bool
== :: ListGroupMembershipsResponse
-> ListGroupMembershipsResponse -> Bool
$c== :: ListGroupMembershipsResponse
-> ListGroupMembershipsResponse -> Bool
Prelude.Eq, ReadPrec [ListGroupMembershipsResponse]
ReadPrec ListGroupMembershipsResponse
Int -> ReadS ListGroupMembershipsResponse
ReadS [ListGroupMembershipsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListGroupMembershipsResponse]
$creadListPrec :: ReadPrec [ListGroupMembershipsResponse]
readPrec :: ReadPrec ListGroupMembershipsResponse
$creadPrec :: ReadPrec ListGroupMembershipsResponse
readList :: ReadS [ListGroupMembershipsResponse]
$creadList :: ReadS [ListGroupMembershipsResponse]
readsPrec :: Int -> ReadS ListGroupMembershipsResponse
$creadsPrec :: Int -> ReadS ListGroupMembershipsResponse
Prelude.Read, Int -> ListGroupMembershipsResponse -> ShowS
[ListGroupMembershipsResponse] -> ShowS
ListGroupMembershipsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListGroupMembershipsResponse] -> ShowS
$cshowList :: [ListGroupMembershipsResponse] -> ShowS
show :: ListGroupMembershipsResponse -> String
$cshow :: ListGroupMembershipsResponse -> String
showsPrec :: Int -> ListGroupMembershipsResponse -> ShowS
$cshowsPrec :: Int -> ListGroupMembershipsResponse -> ShowS
Prelude.Show, forall x.
Rep ListGroupMembershipsResponse x -> ListGroupMembershipsResponse
forall x.
ListGroupMembershipsResponse -> Rep ListGroupMembershipsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListGroupMembershipsResponse x -> ListGroupMembershipsResponse
$cfrom :: forall x.
ListGroupMembershipsResponse -> Rep ListGroupMembershipsResponse x
Prelude.Generic)

-- |
-- Create a value of 'ListGroupMembershipsResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'nextToken', 'listGroupMembershipsResponse_nextToken' - The pagination token used for the @ListUsers@, @ListGroups@, and
-- @ListGroupMemberships@ API operations. This value is generated by the
-- identity store service. It is returned in the API response if the total
-- results are more than the size of one page. This token is also returned
-- when it is used in the API request to search for the next page.
--
-- 'httpStatus', 'listGroupMembershipsResponse_httpStatus' - The response's http status code.
--
-- 'groupMemberships', 'listGroupMembershipsResponse_groupMemberships' - A list of @GroupMembership@ objects in the group.
newListGroupMembershipsResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  ListGroupMembershipsResponse
newListGroupMembershipsResponse :: Int -> ListGroupMembershipsResponse
newListGroupMembershipsResponse Int
pHttpStatus_ =
  ListGroupMembershipsResponse'
    { $sel:nextToken:ListGroupMembershipsResponse' :: Maybe Text
nextToken =
        forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:ListGroupMembershipsResponse' :: Int
httpStatus = Int
pHttpStatus_,
      $sel:groupMemberships:ListGroupMembershipsResponse' :: [GroupMembership]
groupMemberships = forall a. Monoid a => a
Prelude.mempty
    }

-- | The pagination token used for the @ListUsers@, @ListGroups@, and
-- @ListGroupMemberships@ API operations. This value is generated by the
-- identity store service. It is returned in the API response if the total
-- results are more than the size of one page. This token is also returned
-- when it is used in the API request to search for the next page.
listGroupMembershipsResponse_nextToken :: Lens.Lens' ListGroupMembershipsResponse (Prelude.Maybe Prelude.Text)
listGroupMembershipsResponse_nextToken :: Lens' ListGroupMembershipsResponse (Maybe Text)
listGroupMembershipsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGroupMembershipsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListGroupMembershipsResponse' :: ListGroupMembershipsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListGroupMembershipsResponse
s@ListGroupMembershipsResponse' {} Maybe Text
a -> ListGroupMembershipsResponse
s {$sel:nextToken:ListGroupMembershipsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListGroupMembershipsResponse)

-- | The response's http status code.
listGroupMembershipsResponse_httpStatus :: Lens.Lens' ListGroupMembershipsResponse Prelude.Int
listGroupMembershipsResponse_httpStatus :: Lens' ListGroupMembershipsResponse Int
listGroupMembershipsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGroupMembershipsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListGroupMembershipsResponse' :: ListGroupMembershipsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListGroupMembershipsResponse
s@ListGroupMembershipsResponse' {} Int
a -> ListGroupMembershipsResponse
s {$sel:httpStatus:ListGroupMembershipsResponse' :: Int
httpStatus = Int
a} :: ListGroupMembershipsResponse)

-- | A list of @GroupMembership@ objects in the group.
listGroupMembershipsResponse_groupMemberships :: Lens.Lens' ListGroupMembershipsResponse [GroupMembership]
listGroupMembershipsResponse_groupMemberships :: Lens' ListGroupMembershipsResponse [GroupMembership]
listGroupMembershipsResponse_groupMemberships = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGroupMembershipsResponse' {[GroupMembership]
groupMemberships :: [GroupMembership]
$sel:groupMemberships:ListGroupMembershipsResponse' :: ListGroupMembershipsResponse -> [GroupMembership]
groupMemberships} -> [GroupMembership]
groupMemberships) (\s :: ListGroupMembershipsResponse
s@ListGroupMembershipsResponse' {} [GroupMembership]
a -> ListGroupMembershipsResponse
s {$sel:groupMemberships:ListGroupMembershipsResponse' :: [GroupMembership]
groupMemberships = [GroupMembership]
a} :: ListGroupMembershipsResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

instance Prelude.NFData ListGroupMembershipsResponse where
  rnf :: ListGroupMembershipsResponse -> ()
rnf ListGroupMembershipsResponse' {Int
[GroupMembership]
Maybe Text
groupMemberships :: [GroupMembership]
httpStatus :: Int
nextToken :: Maybe Text
$sel:groupMemberships:ListGroupMembershipsResponse' :: ListGroupMembershipsResponse -> [GroupMembership]
$sel:httpStatus:ListGroupMembershipsResponse' :: ListGroupMembershipsResponse -> Int
$sel:nextToken:ListGroupMembershipsResponse' :: ListGroupMembershipsResponse -> 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 Int
httpStatus
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [GroupMembership]
groupMemberships