{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.GuardDuty.ListInvitations
(
listInvitations
, ListInvitations
, liNextToken
, liMaxResults
, listInvitationsResponse
, ListInvitationsResponse
, lirsInvitations
, lirsNextToken
, lirsResponseStatus
) where
import Network.AWS.GuardDuty.Types
import Network.AWS.GuardDuty.Types.Product
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListInvitations = ListInvitations'
{ _liNextToken :: !(Maybe Text)
, _liMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listInvitations
:: ListInvitations
listInvitations =
ListInvitations' {_liNextToken = Nothing, _liMaxResults = Nothing}
liNextToken :: Lens' ListInvitations (Maybe Text)
liNextToken = lens _liNextToken (\ s a -> s{_liNextToken = a})
liMaxResults :: Lens' ListInvitations (Maybe Natural)
liMaxResults = lens _liMaxResults (\ s a -> s{_liMaxResults = a}) . mapping _Nat
instance AWSPager ListInvitations where
page rq rs
| stop (rs ^. lirsNextToken) = Nothing
| stop (rs ^. lirsInvitations) = Nothing
| otherwise =
Just $ rq & liNextToken .~ rs ^. lirsNextToken
instance AWSRequest ListInvitations where
type Rs ListInvitations = ListInvitationsResponse
request = get guardDuty
response
= receiveJSON
(\ s h x ->
ListInvitationsResponse' <$>
(x .?> "invitations" .!@ mempty) <*>
(x .?> "nextToken")
<*> (pure (fromEnum s)))
instance Hashable ListInvitations where
instance NFData ListInvitations where
instance ToHeaders ListInvitations where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath ListInvitations where
toPath = const "/invitation"
instance ToQuery ListInvitations where
toQuery ListInvitations'{..}
= mconcat
["nextToken" =: _liNextToken,
"maxResults" =: _liMaxResults]
data ListInvitationsResponse = ListInvitationsResponse'
{ _lirsInvitations :: !(Maybe [Invitation])
, _lirsNextToken :: !(Maybe Text)
, _lirsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listInvitationsResponse
:: Int
-> ListInvitationsResponse
listInvitationsResponse pResponseStatus_ =
ListInvitationsResponse'
{ _lirsInvitations = Nothing
, _lirsNextToken = Nothing
, _lirsResponseStatus = pResponseStatus_
}
lirsInvitations :: Lens' ListInvitationsResponse [Invitation]
lirsInvitations = lens _lirsInvitations (\ s a -> s{_lirsInvitations = a}) . _Default . _Coerce
lirsNextToken :: Lens' ListInvitationsResponse (Maybe Text)
lirsNextToken = lens _lirsNextToken (\ s a -> s{_lirsNextToken = a})
lirsResponseStatus :: Lens' ListInvitationsResponse Int
lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a})
instance NFData ListInvitationsResponse where