{-# 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.GetMembers
(
getMembers
, GetMembers
, gmAccountIds
, gmDetectorId
, getMembersResponse
, GetMembersResponse
, gmrsMembers
, gmrsUnprocessedAccounts
, gmrsResponseStatus
) 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
data GetMembers = GetMembers'
{ _gmAccountIds :: !(Maybe [Text])
, _gmDetectorId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getMembers
:: Text
-> GetMembers
getMembers pDetectorId_ =
GetMembers' {_gmAccountIds = Nothing, _gmDetectorId = pDetectorId_}
gmAccountIds :: Lens' GetMembers [Text]
gmAccountIds = lens _gmAccountIds (\ s a -> s{_gmAccountIds = a}) . _Default . _Coerce
gmDetectorId :: Lens' GetMembers Text
gmDetectorId = lens _gmDetectorId (\ s a -> s{_gmDetectorId = a})
instance AWSRequest GetMembers where
type Rs GetMembers = GetMembersResponse
request = postJSON guardDuty
response
= receiveJSON
(\ s h x ->
GetMembersResponse' <$>
(x .?> "members" .!@ mempty) <*>
(x .?> "unprocessedAccounts" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable GetMembers where
instance NFData GetMembers where
instance ToHeaders GetMembers where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetMembers where
toJSON GetMembers'{..}
= object
(catMaybes [("accountIds" .=) <$> _gmAccountIds])
instance ToPath GetMembers where
toPath GetMembers'{..}
= mconcat
["/detector/", toBS _gmDetectorId, "/member/get"]
instance ToQuery GetMembers where
toQuery = const mempty
data GetMembersResponse = GetMembersResponse'
{ _gmrsMembers :: !(Maybe [Member])
, _gmrsUnprocessedAccounts :: !(Maybe [UnprocessedAccount])
, _gmrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getMembersResponse
:: Int
-> GetMembersResponse
getMembersResponse pResponseStatus_ =
GetMembersResponse'
{ _gmrsMembers = Nothing
, _gmrsUnprocessedAccounts = Nothing
, _gmrsResponseStatus = pResponseStatus_
}
gmrsMembers :: Lens' GetMembersResponse [Member]
gmrsMembers = lens _gmrsMembers (\ s a -> s{_gmrsMembers = a}) . _Default . _Coerce
gmrsUnprocessedAccounts :: Lens' GetMembersResponse [UnprocessedAccount]
gmrsUnprocessedAccounts = lens _gmrsUnprocessedAccounts (\ s a -> s{_gmrsUnprocessedAccounts = a}) . _Default . _Coerce
gmrsResponseStatus :: Lens' GetMembersResponse Int
gmrsResponseStatus = lens _gmrsResponseStatus (\ s a -> s{_gmrsResponseStatus = a})
instance NFData GetMembersResponse where