{-# 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.WorkMail.ListGroupMembers
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Returns an overview of the members of a group. Users and groups can be
-- members of a group.
--
-- This operation returns paginated results.
module Amazonka.WorkMail.ListGroupMembers
  ( -- * Creating a Request
    ListGroupMembers (..),
    newListGroupMembers,

    -- * Request Lenses
    listGroupMembers_maxResults,
    listGroupMembers_nextToken,
    listGroupMembers_organizationId,
    listGroupMembers_groupId,

    -- * Destructuring the Response
    ListGroupMembersResponse (..),
    newListGroupMembersResponse,

    -- * Response Lenses
    listGroupMembersResponse_members,
    listGroupMembersResponse_nextToken,
    listGroupMembersResponse_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.WorkMail.Types

-- | /See:/ 'newListGroupMembers' smart constructor.
data ListGroupMembers = ListGroupMembers'
  { -- | The maximum number of results to return in a single call.
    ListGroupMembers -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
    -- | The token to use to retrieve the next page of results. The first call
    -- does not contain any tokens.
    ListGroupMembers -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
    -- | The identifier for the organization under which the group exists.
    ListGroupMembers -> Text
organizationId :: Prelude.Text,
    -- | The identifier for the group to which the members (users or groups) are
    -- associated.
    ListGroupMembers -> Text
groupId :: Prelude.Text
  }
  deriving (ListGroupMembers -> ListGroupMembers -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListGroupMembers -> ListGroupMembers -> Bool
$c/= :: ListGroupMembers -> ListGroupMembers -> Bool
== :: ListGroupMembers -> ListGroupMembers -> Bool
$c== :: ListGroupMembers -> ListGroupMembers -> Bool
Prelude.Eq, ReadPrec [ListGroupMembers]
ReadPrec ListGroupMembers
Int -> ReadS ListGroupMembers
ReadS [ListGroupMembers]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListGroupMembers]
$creadListPrec :: ReadPrec [ListGroupMembers]
readPrec :: ReadPrec ListGroupMembers
$creadPrec :: ReadPrec ListGroupMembers
readList :: ReadS [ListGroupMembers]
$creadList :: ReadS [ListGroupMembers]
readsPrec :: Int -> ReadS ListGroupMembers
$creadsPrec :: Int -> ReadS ListGroupMembers
Prelude.Read, Int -> ListGroupMembers -> ShowS
[ListGroupMembers] -> ShowS
ListGroupMembers -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListGroupMembers] -> ShowS
$cshowList :: [ListGroupMembers] -> ShowS
show :: ListGroupMembers -> String
$cshow :: ListGroupMembers -> String
showsPrec :: Int -> ListGroupMembers -> ShowS
$cshowsPrec :: Int -> ListGroupMembers -> ShowS
Prelude.Show, forall x. Rep ListGroupMembers x -> ListGroupMembers
forall x. ListGroupMembers -> Rep ListGroupMembers x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListGroupMembers x -> ListGroupMembers
$cfrom :: forall x. ListGroupMembers -> Rep ListGroupMembers x
Prelude.Generic)

-- |
-- Create a value of 'ListGroupMembers' 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', 'listGroupMembers_maxResults' - The maximum number of results to return in a single call.
--
-- 'nextToken', 'listGroupMembers_nextToken' - The token to use to retrieve the next page of results. The first call
-- does not contain any tokens.
--
-- 'organizationId', 'listGroupMembers_organizationId' - The identifier for the organization under which the group exists.
--
-- 'groupId', 'listGroupMembers_groupId' - The identifier for the group to which the members (users or groups) are
-- associated.
newListGroupMembers ::
  -- | 'organizationId'
  Prelude.Text ->
  -- | 'groupId'
  Prelude.Text ->
  ListGroupMembers
newListGroupMembers :: Text -> Text -> ListGroupMembers
newListGroupMembers Text
pOrganizationId_ Text
pGroupId_ =
  ListGroupMembers'
    { $sel:maxResults:ListGroupMembers' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
      $sel:nextToken:ListGroupMembers' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
      $sel:organizationId:ListGroupMembers' :: Text
organizationId = Text
pOrganizationId_,
      $sel:groupId:ListGroupMembers' :: Text
groupId = Text
pGroupId_
    }

-- | The maximum number of results to return in a single call.
listGroupMembers_maxResults :: Lens.Lens' ListGroupMembers (Prelude.Maybe Prelude.Natural)
listGroupMembers_maxResults :: Lens' ListGroupMembers (Maybe Natural)
listGroupMembers_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGroupMembers' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListGroupMembers' :: ListGroupMembers -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListGroupMembers
s@ListGroupMembers' {} Maybe Natural
a -> ListGroupMembers
s {$sel:maxResults:ListGroupMembers' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListGroupMembers)

-- | The token to use to retrieve the next page of results. The first call
-- does not contain any tokens.
listGroupMembers_nextToken :: Lens.Lens' ListGroupMembers (Prelude.Maybe Prelude.Text)
listGroupMembers_nextToken :: Lens' ListGroupMembers (Maybe Text)
listGroupMembers_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGroupMembers' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListGroupMembers' :: ListGroupMembers -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListGroupMembers
s@ListGroupMembers' {} Maybe Text
a -> ListGroupMembers
s {$sel:nextToken:ListGroupMembers' :: Maybe Text
nextToken = Maybe Text
a} :: ListGroupMembers)

-- | The identifier for the organization under which the group exists.
listGroupMembers_organizationId :: Lens.Lens' ListGroupMembers Prelude.Text
listGroupMembers_organizationId :: Lens' ListGroupMembers Text
listGroupMembers_organizationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGroupMembers' {Text
organizationId :: Text
$sel:organizationId:ListGroupMembers' :: ListGroupMembers -> Text
organizationId} -> Text
organizationId) (\s :: ListGroupMembers
s@ListGroupMembers' {} Text
a -> ListGroupMembers
s {$sel:organizationId:ListGroupMembers' :: Text
organizationId = Text
a} :: ListGroupMembers)

-- | The identifier for the group to which the members (users or groups) are
-- associated.
listGroupMembers_groupId :: Lens.Lens' ListGroupMembers Prelude.Text
listGroupMembers_groupId :: Lens' ListGroupMembers Text
listGroupMembers_groupId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGroupMembers' {Text
groupId :: Text
$sel:groupId:ListGroupMembers' :: ListGroupMembers -> Text
groupId} -> Text
groupId) (\s :: ListGroupMembers
s@ListGroupMembers' {} Text
a -> ListGroupMembers
s {$sel:groupId:ListGroupMembers' :: Text
groupId = Text
a} :: ListGroupMembers)

instance Core.AWSPager ListGroupMembers where
  page :: ListGroupMembers
-> AWSResponse ListGroupMembers -> Maybe ListGroupMembers
page ListGroupMembers
rq AWSResponse ListGroupMembers
rs
    | forall a. AWSTruncated a => a -> Bool
Core.stop
        ( AWSResponse ListGroupMembers
rs
            forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListGroupMembersResponse (Maybe Text)
listGroupMembersResponse_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 ListGroupMembers
rs
            forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListGroupMembersResponse (Maybe [Member])
listGroupMembersResponse_members
            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.$ ListGroupMembers
rq
          forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListGroupMembers (Maybe Text)
listGroupMembers_nextToken
          forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListGroupMembers
rs
          forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListGroupMembersResponse (Maybe Text)
listGroupMembersResponse_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 ListGroupMembers where
  type
    AWSResponse ListGroupMembers =
      ListGroupMembersResponse
  request :: (Service -> Service)
-> ListGroupMembers -> Request ListGroupMembers
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 ListGroupMembers
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ListGroupMembers)))
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 [Member] -> Maybe Text -> Int -> ListGroupMembersResponse
ListGroupMembersResponse'
            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
"Members" 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 ListGroupMembers where
  hashWithSalt :: Int -> ListGroupMembers -> Int
hashWithSalt Int
_salt ListGroupMembers' {Maybe Natural
Maybe Text
Text
groupId :: Text
organizationId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:groupId:ListGroupMembers' :: ListGroupMembers -> Text
$sel:organizationId:ListGroupMembers' :: ListGroupMembers -> Text
$sel:nextToken:ListGroupMembers' :: ListGroupMembers -> Maybe Text
$sel:maxResults:ListGroupMembers' :: ListGroupMembers -> 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
organizationId
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
groupId

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

instance Data.ToHeaders ListGroupMembers where
  toHeaders :: ListGroupMembers -> 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
"WorkMailService.ListGroupMembers" ::
                          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 ListGroupMembers where
  toJSON :: ListGroupMembers -> Value
toJSON ListGroupMembers' {Maybe Natural
Maybe Text
Text
groupId :: Text
organizationId :: Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
$sel:groupId:ListGroupMembers' :: ListGroupMembers -> Text
$sel:organizationId:ListGroupMembers' :: ListGroupMembers -> Text
$sel:nextToken:ListGroupMembers' :: ListGroupMembers -> Maybe Text
$sel:maxResults:ListGroupMembers' :: ListGroupMembers -> 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
"OrganizationId" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
organizationId),
            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 ListGroupMembers where
  toPath :: ListGroupMembers -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"

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

-- | /See:/ 'newListGroupMembersResponse' smart constructor.
data ListGroupMembersResponse = ListGroupMembersResponse'
  { -- | The members associated to the group.
    ListGroupMembersResponse -> Maybe [Member]
members :: Prelude.Maybe [Member],
    -- | The token to use to retrieve the next page of results. The first call
    -- does not contain any tokens.
    ListGroupMembersResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
    -- | The response's http status code.
    ListGroupMembersResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (ListGroupMembersResponse -> ListGroupMembersResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListGroupMembersResponse -> ListGroupMembersResponse -> Bool
$c/= :: ListGroupMembersResponse -> ListGroupMembersResponse -> Bool
== :: ListGroupMembersResponse -> ListGroupMembersResponse -> Bool
$c== :: ListGroupMembersResponse -> ListGroupMembersResponse -> Bool
Prelude.Eq, ReadPrec [ListGroupMembersResponse]
ReadPrec ListGroupMembersResponse
Int -> ReadS ListGroupMembersResponse
ReadS [ListGroupMembersResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListGroupMembersResponse]
$creadListPrec :: ReadPrec [ListGroupMembersResponse]
readPrec :: ReadPrec ListGroupMembersResponse
$creadPrec :: ReadPrec ListGroupMembersResponse
readList :: ReadS [ListGroupMembersResponse]
$creadList :: ReadS [ListGroupMembersResponse]
readsPrec :: Int -> ReadS ListGroupMembersResponse
$creadsPrec :: Int -> ReadS ListGroupMembersResponse
Prelude.Read, Int -> ListGroupMembersResponse -> ShowS
[ListGroupMembersResponse] -> ShowS
ListGroupMembersResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListGroupMembersResponse] -> ShowS
$cshowList :: [ListGroupMembersResponse] -> ShowS
show :: ListGroupMembersResponse -> String
$cshow :: ListGroupMembersResponse -> String
showsPrec :: Int -> ListGroupMembersResponse -> ShowS
$cshowsPrec :: Int -> ListGroupMembersResponse -> ShowS
Prelude.Show, forall x.
Rep ListGroupMembersResponse x -> ListGroupMembersResponse
forall x.
ListGroupMembersResponse -> Rep ListGroupMembersResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListGroupMembersResponse x -> ListGroupMembersResponse
$cfrom :: forall x.
ListGroupMembersResponse -> Rep ListGroupMembersResponse x
Prelude.Generic)

-- |
-- Create a value of 'ListGroupMembersResponse' 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:
--
-- 'members', 'listGroupMembersResponse_members' - The members associated to the group.
--
-- 'nextToken', 'listGroupMembersResponse_nextToken' - The token to use to retrieve the next page of results. The first call
-- does not contain any tokens.
--
-- 'httpStatus', 'listGroupMembersResponse_httpStatus' - The response's http status code.
newListGroupMembersResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  ListGroupMembersResponse
newListGroupMembersResponse :: Int -> ListGroupMembersResponse
newListGroupMembersResponse Int
pHttpStatus_ =
  ListGroupMembersResponse'
    { $sel:members:ListGroupMembersResponse' :: Maybe [Member]
members =
        forall a. Maybe a
Prelude.Nothing,
      $sel:nextToken:ListGroupMembersResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:ListGroupMembersResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | The members associated to the group.
listGroupMembersResponse_members :: Lens.Lens' ListGroupMembersResponse (Prelude.Maybe [Member])
listGroupMembersResponse_members :: Lens' ListGroupMembersResponse (Maybe [Member])
listGroupMembersResponse_members = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGroupMembersResponse' {Maybe [Member]
members :: Maybe [Member]
$sel:members:ListGroupMembersResponse' :: ListGroupMembersResponse -> Maybe [Member]
members} -> Maybe [Member]
members) (\s :: ListGroupMembersResponse
s@ListGroupMembersResponse' {} Maybe [Member]
a -> ListGroupMembersResponse
s {$sel:members:ListGroupMembersResponse' :: Maybe [Member]
members = Maybe [Member]
a} :: ListGroupMembersResponse) 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

-- | The token to use to retrieve the next page of results. The first call
-- does not contain any tokens.
listGroupMembersResponse_nextToken :: Lens.Lens' ListGroupMembersResponse (Prelude.Maybe Prelude.Text)
listGroupMembersResponse_nextToken :: Lens' ListGroupMembersResponse (Maybe Text)
listGroupMembersResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListGroupMembersResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListGroupMembersResponse' :: ListGroupMembersResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListGroupMembersResponse
s@ListGroupMembersResponse' {} Maybe Text
a -> ListGroupMembersResponse
s {$sel:nextToken:ListGroupMembersResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListGroupMembersResponse)

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

instance Prelude.NFData ListGroupMembersResponse where
  rnf :: ListGroupMembersResponse -> ()
rnf ListGroupMembersResponse' {Int
Maybe [Member]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
members :: Maybe [Member]
$sel:httpStatus:ListGroupMembersResponse' :: ListGroupMembersResponse -> Int
$sel:nextToken:ListGroupMembersResponse' :: ListGroupMembersResponse -> Maybe Text
$sel:members:ListGroupMembersResponse' :: ListGroupMembersResponse -> Maybe [Member]
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe [Member]
members
      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