{-# 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.DeclineInvitations
(
declineInvitations
, DeclineInvitations
, dAccountIds
, declineInvitationsResponse
, DeclineInvitationsResponse
, disrsUnprocessedAccounts
, disrsResponseStatus
) 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 DeclineInvitations = DeclineInvitations'
{ _dAccountIds :: Maybe [Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
declineInvitations
:: DeclineInvitations
declineInvitations = DeclineInvitations' {_dAccountIds = Nothing}
dAccountIds :: Lens' DeclineInvitations [Text]
dAccountIds = lens _dAccountIds (\ s a -> s{_dAccountIds = a}) . _Default . _Coerce
instance AWSRequest DeclineInvitations where
type Rs DeclineInvitations =
DeclineInvitationsResponse
request = postJSON guardDuty
response
= receiveJSON
(\ s h x ->
DeclineInvitationsResponse' <$>
(x .?> "unprocessedAccounts" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable DeclineInvitations where
instance NFData DeclineInvitations where
instance ToHeaders DeclineInvitations where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeclineInvitations where
toJSON DeclineInvitations'{..}
= object
(catMaybes [("accountIds" .=) <$> _dAccountIds])
instance ToPath DeclineInvitations where
toPath = const "/invitation/decline"
instance ToQuery DeclineInvitations where
toQuery = const mempty
data DeclineInvitationsResponse = DeclineInvitationsResponse'
{ _disrsUnprocessedAccounts :: !(Maybe [UnprocessedAccount])
, _disrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
declineInvitationsResponse
:: Int
-> DeclineInvitationsResponse
declineInvitationsResponse pResponseStatus_ =
DeclineInvitationsResponse'
{ _disrsUnprocessedAccounts = Nothing
, _disrsResponseStatus = pResponseStatus_
}
disrsUnprocessedAccounts :: Lens' DeclineInvitationsResponse [UnprocessedAccount]
disrsUnprocessedAccounts = lens _disrsUnprocessedAccounts (\ s a -> s{_disrsUnprocessedAccounts = a}) . _Default . _Coerce
disrsResponseStatus :: Lens' DeclineInvitationsResponse Int
disrsResponseStatus = lens _disrsResponseStatus (\ s a -> s{_disrsResponseStatus = a})
instance NFData DeclineInvitationsResponse where