{-# 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.CreateMembers
(
createMembers
, CreateMembers
, cmAccountDetails
, cmDetectorId
, createMembersResponse
, CreateMembersResponse
, cmrsUnprocessedAccounts
, cmrsResponseStatus
) 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 CreateMembers = CreateMembers'
{ _cmAccountDetails :: !(Maybe [AccountDetail])
, _cmDetectorId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createMembers
:: Text
-> CreateMembers
createMembers pDetectorId_ =
CreateMembers' {_cmAccountDetails = Nothing, _cmDetectorId = pDetectorId_}
cmAccountDetails :: Lens' CreateMembers [AccountDetail]
cmAccountDetails = lens _cmAccountDetails (\ s a -> s{_cmAccountDetails = a}) . _Default . _Coerce
cmDetectorId :: Lens' CreateMembers Text
cmDetectorId = lens _cmDetectorId (\ s a -> s{_cmDetectorId = a})
instance AWSRequest CreateMembers where
type Rs CreateMembers = CreateMembersResponse
request = postJSON guardDuty
response
= receiveJSON
(\ s h x ->
CreateMembersResponse' <$>
(x .?> "unprocessedAccounts" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable CreateMembers where
instance NFData CreateMembers where
instance ToHeaders CreateMembers where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateMembers where
toJSON CreateMembers'{..}
= object
(catMaybes
[("accountDetails" .=) <$> _cmAccountDetails])
instance ToPath CreateMembers where
toPath CreateMembers'{..}
= mconcat
["/detector/", toBS _cmDetectorId, "/member"]
instance ToQuery CreateMembers where
toQuery = const mempty
data CreateMembersResponse = CreateMembersResponse'
{ _cmrsUnprocessedAccounts :: !(Maybe [UnprocessedAccount])
, _cmrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createMembersResponse
:: Int
-> CreateMembersResponse
createMembersResponse pResponseStatus_ =
CreateMembersResponse'
{_cmrsUnprocessedAccounts = Nothing, _cmrsResponseStatus = pResponseStatus_}
cmrsUnprocessedAccounts :: Lens' CreateMembersResponse [UnprocessedAccount]
cmrsUnprocessedAccounts = lens _cmrsUnprocessedAccounts (\ s a -> s{_cmrsUnprocessedAccounts = a}) . _Default . _Coerce
cmrsResponseStatus :: Lens' CreateMembersResponse Int
cmrsResponseStatus = lens _cmrsResponseStatus (\ s a -> s{_cmrsResponseStatus = a})
instance NFData CreateMembersResponse where