module Network.AWS.Inspector.PreviewAgentsForResourceGroup
(
previewAgentsForResourceGroup
, PreviewAgentsForResourceGroup
, pafrgResourceGroupARN
, pafrgNextToken
, pafrgMaxResults
, previewAgentsForResourceGroupResponse
, PreviewAgentsForResourceGroupResponse
, pafrgrsAgentPreviewList
, pafrgrsNextToken
, pafrgrsResponseStatus
) where
import Network.AWS.Inspector.Types
import Network.AWS.Inspector.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data PreviewAgentsForResourceGroup = PreviewAgentsForResourceGroup'
{ _pafrgResourceGroupARN :: !(Maybe Text)
, _pafrgNextToken :: !(Maybe Text)
, _pafrgMaxResults :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
previewAgentsForResourceGroup
:: PreviewAgentsForResourceGroup
previewAgentsForResourceGroup =
PreviewAgentsForResourceGroup'
{ _pafrgResourceGroupARN = Nothing
, _pafrgNextToken = Nothing
, _pafrgMaxResults = Nothing
}
pafrgResourceGroupARN :: Lens' PreviewAgentsForResourceGroup (Maybe Text)
pafrgResourceGroupARN = lens _pafrgResourceGroupARN (\ s a -> s{_pafrgResourceGroupARN = a});
pafrgNextToken :: Lens' PreviewAgentsForResourceGroup (Maybe Text)
pafrgNextToken = lens _pafrgNextToken (\ s a -> s{_pafrgNextToken = a});
pafrgMaxResults :: Lens' PreviewAgentsForResourceGroup (Maybe Int)
pafrgMaxResults = lens _pafrgMaxResults (\ s a -> s{_pafrgMaxResults = a});
instance AWSRequest PreviewAgentsForResourceGroup
where
type Rs PreviewAgentsForResourceGroup =
PreviewAgentsForResourceGroupResponse
request = postJSON inspector
response
= receiveJSON
(\ s h x ->
PreviewAgentsForResourceGroupResponse' <$>
(x .?> "agentPreviewList" .!@ mempty) <*>
(x .?> "nextToken")
<*> (pure (fromEnum s)))
instance ToHeaders PreviewAgentsForResourceGroup
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("InspectorService.PreviewAgentsForResourceGroup" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON PreviewAgentsForResourceGroup where
toJSON PreviewAgentsForResourceGroup'{..}
= object
(catMaybes
[("resourceGroupArn" .=) <$> _pafrgResourceGroupARN,
("nextToken" .=) <$> _pafrgNextToken,
("maxResults" .=) <$> _pafrgMaxResults])
instance ToPath PreviewAgentsForResourceGroup where
toPath = const "/"
instance ToQuery PreviewAgentsForResourceGroup where
toQuery = const mempty
data PreviewAgentsForResourceGroupResponse = PreviewAgentsForResourceGroupResponse'
{ _pafrgrsAgentPreviewList :: !(Maybe [AgentPreview])
, _pafrgrsNextToken :: !(Maybe Text)
, _pafrgrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
previewAgentsForResourceGroupResponse
:: Int
-> PreviewAgentsForResourceGroupResponse
previewAgentsForResourceGroupResponse pResponseStatus_ =
PreviewAgentsForResourceGroupResponse'
{ _pafrgrsAgentPreviewList = Nothing
, _pafrgrsNextToken = Nothing
, _pafrgrsResponseStatus = pResponseStatus_
}
pafrgrsAgentPreviewList :: Lens' PreviewAgentsForResourceGroupResponse [AgentPreview]
pafrgrsAgentPreviewList = lens _pafrgrsAgentPreviewList (\ s a -> s{_pafrgrsAgentPreviewList = a}) . _Default . _Coerce;
pafrgrsNextToken :: Lens' PreviewAgentsForResourceGroupResponse (Maybe Text)
pafrgrsNextToken = lens _pafrgrsNextToken (\ s a -> s{_pafrgrsNextToken = a});
pafrgrsResponseStatus :: Lens' PreviewAgentsForResourceGroupResponse Int
pafrgrsResponseStatus = lens _pafrgrsResponseStatus (\ s a -> s{_pafrgrsResponseStatus = a});