{-# 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.DeleteInvitations
(
deleteInvitations
, DeleteInvitations
, diAccountIds
, deleteInvitationsResponse
, DeleteInvitationsResponse
, dirsUnprocessedAccounts
, dirsResponseStatus
) where
import Network.AWS.GuardDuty.Types
import Network.AWS.GuardDuty.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteInvitations = DeleteInvitations'
{ _diAccountIds :: Maybe [Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteInvitations
:: DeleteInvitations
deleteInvitations = DeleteInvitations' {_diAccountIds = Nothing}
diAccountIds :: Lens' DeleteInvitations [Text]
diAccountIds = lens _diAccountIds (\ s a -> s{_diAccountIds = a}) . _Default . _Coerce
instance AWSRequest DeleteInvitations where
type Rs DeleteInvitations = DeleteInvitationsResponse
request = postJSON guardDuty
response
= receiveJSON
(\ s h x ->
DeleteInvitationsResponse' <$>
(x .?> "unprocessedAccounts" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable DeleteInvitations where
instance NFData DeleteInvitations where
instance ToHeaders DeleteInvitations where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteInvitations where
toJSON DeleteInvitations'{..}
= object
(catMaybes [("accountIds" .=) <$> _diAccountIds])
instance ToPath DeleteInvitations where
toPath = const "/invitation/delete"
instance ToQuery DeleteInvitations where
toQuery = const mempty
data DeleteInvitationsResponse = DeleteInvitationsResponse'
{ _dirsUnprocessedAccounts :: !(Maybe [UnprocessedAccount])
, _dirsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteInvitationsResponse
:: Int
-> DeleteInvitationsResponse
deleteInvitationsResponse pResponseStatus_ =
DeleteInvitationsResponse'
{_dirsUnprocessedAccounts = Nothing, _dirsResponseStatus = pResponseStatus_}
dirsUnprocessedAccounts :: Lens' DeleteInvitationsResponse [UnprocessedAccount]
dirsUnprocessedAccounts = lens _dirsUnprocessedAccounts (\ s a -> s{_dirsUnprocessedAccounts = a}) . _Default . _Coerce
dirsResponseStatus :: Lens' DeleteInvitationsResponse Int
dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a})
instance NFData DeleteInvitationsResponse where