{-# 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.Detective.ListInvitations
-- Copyright   : (c) 2013-2021 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Retrieves the list of open and accepted behavior graph invitations for
-- the member account. This operation can only be called by a member
-- account.
--
-- Open invitations are invitations that the member account has not
-- responded to.
--
-- The results do not include behavior graphs for which the member account
-- declined the invitation. The results also do not include behavior graphs
-- that the member account resigned from or was removed from.
module Amazonka.Detective.ListInvitations
  ( -- * Creating a Request
    ListInvitations (..),
    newListInvitations,

    -- * Request Lenses
    listInvitations_nextToken,
    listInvitations_maxResults,

    -- * Destructuring the Response
    ListInvitationsResponse (..),
    newListInvitationsResponse,

    -- * Response Lenses
    listInvitationsResponse_invitations,
    listInvitationsResponse_nextToken,
    listInvitationsResponse_httpStatus,
  )
where

import qualified Amazonka.Core as Core
import Amazonka.Detective.Types
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response

-- | /See:/ 'newListInvitations' smart constructor.
data ListInvitations = ListInvitations'
  { -- | For requests to retrieve the next page of results, the pagination token
    -- that was returned with the previous page of results. The initial request
    -- does not include a pagination token.
    ListInvitations -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
    -- | The maximum number of behavior graph invitations to return in the
    -- response. The total must be less than the overall limit on the number of
    -- results to return, which is currently 200.
    ListInvitations -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural
  }
  deriving (ListInvitations -> ListInvitations -> Bool
(ListInvitations -> ListInvitations -> Bool)
-> (ListInvitations -> ListInvitations -> Bool)
-> Eq ListInvitations
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListInvitations -> ListInvitations -> Bool
$c/= :: ListInvitations -> ListInvitations -> Bool
== :: ListInvitations -> ListInvitations -> Bool
$c== :: ListInvitations -> ListInvitations -> Bool
Prelude.Eq, ReadPrec [ListInvitations]
ReadPrec ListInvitations
Int -> ReadS ListInvitations
ReadS [ListInvitations]
(Int -> ReadS ListInvitations)
-> ReadS [ListInvitations]
-> ReadPrec ListInvitations
-> ReadPrec [ListInvitations]
-> Read ListInvitations
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListInvitations]
$creadListPrec :: ReadPrec [ListInvitations]
readPrec :: ReadPrec ListInvitations
$creadPrec :: ReadPrec ListInvitations
readList :: ReadS [ListInvitations]
$creadList :: ReadS [ListInvitations]
readsPrec :: Int -> ReadS ListInvitations
$creadsPrec :: Int -> ReadS ListInvitations
Prelude.Read, Int -> ListInvitations -> ShowS
[ListInvitations] -> ShowS
ListInvitations -> String
(Int -> ListInvitations -> ShowS)
-> (ListInvitations -> String)
-> ([ListInvitations] -> ShowS)
-> Show ListInvitations
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListInvitations] -> ShowS
$cshowList :: [ListInvitations] -> ShowS
show :: ListInvitations -> String
$cshow :: ListInvitations -> String
showsPrec :: Int -> ListInvitations -> ShowS
$cshowsPrec :: Int -> ListInvitations -> ShowS
Prelude.Show, (forall x. ListInvitations -> Rep ListInvitations x)
-> (forall x. Rep ListInvitations x -> ListInvitations)
-> Generic ListInvitations
forall x. Rep ListInvitations x -> ListInvitations
forall x. ListInvitations -> Rep ListInvitations x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListInvitations x -> ListInvitations
$cfrom :: forall x. ListInvitations -> Rep ListInvitations x
Prelude.Generic)

-- |
-- Create a value of 'ListInvitations' 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', 'listInvitations_nextToken' - For requests to retrieve the next page of results, the pagination token
-- that was returned with the previous page of results. The initial request
-- does not include a pagination token.
--
-- 'maxResults', 'listInvitations_maxResults' - The maximum number of behavior graph invitations to return in the
-- response. The total must be less than the overall limit on the number of
-- results to return, which is currently 200.
newListInvitations ::
  ListInvitations
newListInvitations :: ListInvitations
newListInvitations =
  ListInvitations' :: Maybe Text -> Maybe Natural -> ListInvitations
ListInvitations'
    { $sel:nextToken:ListInvitations' :: Maybe Text
nextToken = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:maxResults:ListInvitations' :: Maybe Natural
maxResults = Maybe Natural
forall a. Maybe a
Prelude.Nothing
    }

-- | For requests to retrieve the next page of results, the pagination token
-- that was returned with the previous page of results. The initial request
-- does not include a pagination token.
listInvitations_nextToken :: Lens.Lens' ListInvitations (Prelude.Maybe Prelude.Text)
listInvitations_nextToken :: (Maybe Text -> f (Maybe Text))
-> ListInvitations -> f ListInvitations
listInvitations_nextToken = (ListInvitations -> Maybe Text)
-> (ListInvitations -> Maybe Text -> ListInvitations)
-> Lens ListInvitations ListInvitations (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListInvitations' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListInvitations' :: ListInvitations -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListInvitations
s@ListInvitations' {} Maybe Text
a -> ListInvitations
s {$sel:nextToken:ListInvitations' :: Maybe Text
nextToken = Maybe Text
a} :: ListInvitations)

-- | The maximum number of behavior graph invitations to return in the
-- response. The total must be less than the overall limit on the number of
-- results to return, which is currently 200.
listInvitations_maxResults :: Lens.Lens' ListInvitations (Prelude.Maybe Prelude.Natural)
listInvitations_maxResults :: (Maybe Natural -> f (Maybe Natural))
-> ListInvitations -> f ListInvitations
listInvitations_maxResults = (ListInvitations -> Maybe Natural)
-> (ListInvitations -> Maybe Natural -> ListInvitations)
-> Lens
     ListInvitations ListInvitations (Maybe Natural) (Maybe Natural)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListInvitations' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListInvitations' :: ListInvitations -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListInvitations
s@ListInvitations' {} Maybe Natural
a -> ListInvitations
s {$sel:maxResults:ListInvitations' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListInvitations)

instance Core.AWSRequest ListInvitations where
  type
    AWSResponse ListInvitations =
      ListInvitationsResponse
  request :: ListInvitations -> Request ListInvitations
request = Service -> ListInvitations -> Request ListInvitations
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON Service
defaultService
  response :: Logger
-> Service
-> Proxy ListInvitations
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ListInvitations)))
response =
    (Int
 -> ResponseHeaders
 -> Object
 -> Either String (AWSResponse ListInvitations))
-> Logger
-> Service
-> Proxy ListInvitations
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse ListInvitations)))
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> Logger
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
      ( \Int
s ResponseHeaders
h Object
x ->
          Maybe [MemberDetail]
-> Maybe Text -> Int -> ListInvitationsResponse
ListInvitationsResponse'
            (Maybe [MemberDetail]
 -> Maybe Text -> Int -> ListInvitationsResponse)
-> Either String (Maybe [MemberDetail])
-> Either String (Maybe Text -> Int -> ListInvitationsResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Either String (Maybe (Maybe [MemberDetail]))
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"Invitations" Either String (Maybe (Maybe [MemberDetail]))
-> Maybe [MemberDetail] -> Either String (Maybe [MemberDetail])
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ Maybe [MemberDetail]
forall a. Monoid a => a
Prelude.mempty)
            Either String (Maybe Text -> Int -> ListInvitationsResponse)
-> Either String (Maybe Text)
-> Either String (Int -> ListInvitationsResponse)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Either String (Maybe Text)
forall a. FromJSON a => Object -> Text -> Either String (Maybe a)
Core..?> Text
"NextToken")
            Either String (Int -> ListInvitationsResponse)
-> Either String Int -> Either String ListInvitationsResponse
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Int -> Either String Int
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
      )

instance Prelude.Hashable ListInvitations

instance Prelude.NFData ListInvitations

instance Core.ToHeaders ListInvitations where
  toHeaders :: ListInvitations -> ResponseHeaders
toHeaders =
    ResponseHeaders -> ListInvitations -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const
      ( [ResponseHeaders] -> ResponseHeaders
forall a. Monoid a => [a] -> a
Prelude.mconcat
          [ HeaderName
"Content-Type"
              HeaderName -> ByteString -> ResponseHeaders
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Core.=# ( ByteString
"application/x-amz-json-1.1" ::
                          Prelude.ByteString
                      )
          ]
      )

instance Core.ToJSON ListInvitations where
  toJSON :: ListInvitations -> Value
toJSON ListInvitations' {Maybe Natural
Maybe Text
maxResults :: Maybe Natural
nextToken :: Maybe Text
$sel:maxResults:ListInvitations' :: ListInvitations -> Maybe Natural
$sel:nextToken:ListInvitations' :: ListInvitations -> Maybe Text
..} =
    [Pair] -> Value
Core.object
      ( [Maybe Pair] -> [Pair]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Text
"NextToken" Text -> Text -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Text -> Pair) -> Maybe Text -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
nextToken,
            (Text
"MaxResults" Text -> Natural -> Pair
forall kv v. (KeyValue kv, ToJSON v) => Text -> v -> kv
Core..=) (Natural -> Pair) -> Maybe Natural -> Maybe Pair
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
maxResults
          ]
      )

instance Core.ToPath ListInvitations where
  toPath :: ListInvitations -> ByteString
toPath = ByteString -> ListInvitations -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/invitations/list"

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

-- | /See:/ 'newListInvitationsResponse' smart constructor.
data ListInvitationsResponse = ListInvitationsResponse'
  { -- | The list of behavior graphs for which the member account has open or
    -- accepted invitations.
    ListInvitationsResponse -> Maybe [MemberDetail]
invitations :: Prelude.Maybe [MemberDetail],
    -- | If there are more behavior graphs remaining in the results, then this is
    -- the pagination token to use to request the next page of behavior graphs.
    ListInvitationsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
    -- | The response's http status code.
    ListInvitationsResponse -> Int
httpStatus :: Prelude.Int
  }
  deriving (ListInvitationsResponse -> ListInvitationsResponse -> Bool
(ListInvitationsResponse -> ListInvitationsResponse -> Bool)
-> (ListInvitationsResponse -> ListInvitationsResponse -> Bool)
-> Eq ListInvitationsResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListInvitationsResponse -> ListInvitationsResponse -> Bool
$c/= :: ListInvitationsResponse -> ListInvitationsResponse -> Bool
== :: ListInvitationsResponse -> ListInvitationsResponse -> Bool
$c== :: ListInvitationsResponse -> ListInvitationsResponse -> Bool
Prelude.Eq, ReadPrec [ListInvitationsResponse]
ReadPrec ListInvitationsResponse
Int -> ReadS ListInvitationsResponse
ReadS [ListInvitationsResponse]
(Int -> ReadS ListInvitationsResponse)
-> ReadS [ListInvitationsResponse]
-> ReadPrec ListInvitationsResponse
-> ReadPrec [ListInvitationsResponse]
-> Read ListInvitationsResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListInvitationsResponse]
$creadListPrec :: ReadPrec [ListInvitationsResponse]
readPrec :: ReadPrec ListInvitationsResponse
$creadPrec :: ReadPrec ListInvitationsResponse
readList :: ReadS [ListInvitationsResponse]
$creadList :: ReadS [ListInvitationsResponse]
readsPrec :: Int -> ReadS ListInvitationsResponse
$creadsPrec :: Int -> ReadS ListInvitationsResponse
Prelude.Read, Int -> ListInvitationsResponse -> ShowS
[ListInvitationsResponse] -> ShowS
ListInvitationsResponse -> String
(Int -> ListInvitationsResponse -> ShowS)
-> (ListInvitationsResponse -> String)
-> ([ListInvitationsResponse] -> ShowS)
-> Show ListInvitationsResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListInvitationsResponse] -> ShowS
$cshowList :: [ListInvitationsResponse] -> ShowS
show :: ListInvitationsResponse -> String
$cshow :: ListInvitationsResponse -> String
showsPrec :: Int -> ListInvitationsResponse -> ShowS
$cshowsPrec :: Int -> ListInvitationsResponse -> ShowS
Prelude.Show, (forall x.
 ListInvitationsResponse -> Rep ListInvitationsResponse x)
-> (forall x.
    Rep ListInvitationsResponse x -> ListInvitationsResponse)
-> Generic ListInvitationsResponse
forall x. Rep ListInvitationsResponse x -> ListInvitationsResponse
forall x. ListInvitationsResponse -> Rep ListInvitationsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListInvitationsResponse x -> ListInvitationsResponse
$cfrom :: forall x. ListInvitationsResponse -> Rep ListInvitationsResponse x
Prelude.Generic)

-- |
-- Create a value of 'ListInvitationsResponse' 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:
--
-- 'invitations', 'listInvitationsResponse_invitations' - The list of behavior graphs for which the member account has open or
-- accepted invitations.
--
-- 'nextToken', 'listInvitationsResponse_nextToken' - If there are more behavior graphs remaining in the results, then this is
-- the pagination token to use to request the next page of behavior graphs.
--
-- 'httpStatus', 'listInvitationsResponse_httpStatus' - The response's http status code.
newListInvitationsResponse ::
  -- | 'httpStatus'
  Prelude.Int ->
  ListInvitationsResponse
newListInvitationsResponse :: Int -> ListInvitationsResponse
newListInvitationsResponse Int
pHttpStatus_ =
  ListInvitationsResponse' :: Maybe [MemberDetail]
-> Maybe Text -> Int -> ListInvitationsResponse
ListInvitationsResponse'
    { $sel:invitations:ListInvitationsResponse' :: Maybe [MemberDetail]
invitations =
        Maybe [MemberDetail]
forall a. Maybe a
Prelude.Nothing,
      $sel:nextToken:ListInvitationsResponse' :: Maybe Text
nextToken = Maybe Text
forall a. Maybe a
Prelude.Nothing,
      $sel:httpStatus:ListInvitationsResponse' :: Int
httpStatus = Int
pHttpStatus_
    }

-- | The list of behavior graphs for which the member account has open or
-- accepted invitations.
listInvitationsResponse_invitations :: Lens.Lens' ListInvitationsResponse (Prelude.Maybe [MemberDetail])
listInvitationsResponse_invitations :: (Maybe [MemberDetail] -> f (Maybe [MemberDetail]))
-> ListInvitationsResponse -> f ListInvitationsResponse
listInvitationsResponse_invitations = (ListInvitationsResponse -> Maybe [MemberDetail])
-> (ListInvitationsResponse
    -> Maybe [MemberDetail] -> ListInvitationsResponse)
-> Lens
     ListInvitationsResponse
     ListInvitationsResponse
     (Maybe [MemberDetail])
     (Maybe [MemberDetail])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListInvitationsResponse' {Maybe [MemberDetail]
invitations :: Maybe [MemberDetail]
$sel:invitations:ListInvitationsResponse' :: ListInvitationsResponse -> Maybe [MemberDetail]
invitations} -> Maybe [MemberDetail]
invitations) (\s :: ListInvitationsResponse
s@ListInvitationsResponse' {} Maybe [MemberDetail]
a -> ListInvitationsResponse
s {$sel:invitations:ListInvitationsResponse' :: Maybe [MemberDetail]
invitations = Maybe [MemberDetail]
a} :: ListInvitationsResponse) ((Maybe [MemberDetail] -> f (Maybe [MemberDetail]))
 -> ListInvitationsResponse -> f ListInvitationsResponse)
-> ((Maybe [MemberDetail] -> f (Maybe [MemberDetail]))
    -> Maybe [MemberDetail] -> f (Maybe [MemberDetail]))
-> (Maybe [MemberDetail] -> f (Maybe [MemberDetail]))
-> ListInvitationsResponse
-> f ListInvitationsResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [MemberDetail] [MemberDetail] [MemberDetail] [MemberDetail]
-> Iso
     (Maybe [MemberDetail])
     (Maybe [MemberDetail])
     (Maybe [MemberDetail])
     (Maybe [MemberDetail])
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 AnIso [MemberDetail] [MemberDetail] [MemberDetail] [MemberDetail]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | If there are more behavior graphs remaining in the results, then this is
-- the pagination token to use to request the next page of behavior graphs.
listInvitationsResponse_nextToken :: Lens.Lens' ListInvitationsResponse (Prelude.Maybe Prelude.Text)
listInvitationsResponse_nextToken :: (Maybe Text -> f (Maybe Text))
-> ListInvitationsResponse -> f ListInvitationsResponse
listInvitationsResponse_nextToken = (ListInvitationsResponse -> Maybe Text)
-> (ListInvitationsResponse
    -> Maybe Text -> ListInvitationsResponse)
-> Lens
     ListInvitationsResponse
     ListInvitationsResponse
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListInvitationsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListInvitationsResponse' :: ListInvitationsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListInvitationsResponse
s@ListInvitationsResponse' {} Maybe Text
a -> ListInvitationsResponse
s {$sel:nextToken:ListInvitationsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListInvitationsResponse)

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

instance Prelude.NFData ListInvitationsResponse