{-# 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.Inspector.PreviewAgents
(
previewAgents
, PreviewAgents
, paNextToken
, paMaxResults
, paPreviewAgentsARN
, previewAgentsResponse
, PreviewAgentsResponse
, parsNextToken
, parsResponseStatus
, parsAgentPreviews
) where
import Network.AWS.Inspector.Types
import Network.AWS.Inspector.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data PreviewAgents = PreviewAgents'
{ _paNextToken :: !(Maybe Text)
, _paMaxResults :: !(Maybe Int)
, _paPreviewAgentsARN :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
previewAgents
:: Text
-> PreviewAgents
previewAgents pPreviewAgentsARN_ =
PreviewAgents'
{ _paNextToken = Nothing
, _paMaxResults = Nothing
, _paPreviewAgentsARN = pPreviewAgentsARN_
}
paNextToken :: Lens' PreviewAgents (Maybe Text)
paNextToken = lens _paNextToken (\ s a -> s{_paNextToken = a});
paMaxResults :: Lens' PreviewAgents (Maybe Int)
paMaxResults = lens _paMaxResults (\ s a -> s{_paMaxResults = a});
paPreviewAgentsARN :: Lens' PreviewAgents Text
paPreviewAgentsARN = lens _paPreviewAgentsARN (\ s a -> s{_paPreviewAgentsARN = a});
instance AWSRequest PreviewAgents where
type Rs PreviewAgents = PreviewAgentsResponse
request = postJSON inspector
response
= receiveJSON
(\ s h x ->
PreviewAgentsResponse' <$>
(x .?> "nextToken") <*> (pure (fromEnum s)) <*>
(x .?> "agentPreviews" .!@ mempty))
instance Hashable PreviewAgents
instance NFData PreviewAgents
instance ToHeaders PreviewAgents where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("InspectorService.PreviewAgents" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON PreviewAgents where
toJSON PreviewAgents'{..}
= object
(catMaybes
[("nextToken" .=) <$> _paNextToken,
("maxResults" .=) <$> _paMaxResults,
Just ("previewAgentsArn" .= _paPreviewAgentsARN)])
instance ToPath PreviewAgents where
toPath = const "/"
instance ToQuery PreviewAgents where
toQuery = const mempty
data PreviewAgentsResponse = PreviewAgentsResponse'
{ _parsNextToken :: !(Maybe Text)
, _parsResponseStatus :: !Int
, _parsAgentPreviews :: ![AgentPreview]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
previewAgentsResponse
:: Int
-> PreviewAgentsResponse
previewAgentsResponse pResponseStatus_ =
PreviewAgentsResponse'
{ _parsNextToken = Nothing
, _parsResponseStatus = pResponseStatus_
, _parsAgentPreviews = mempty
}
parsNextToken :: Lens' PreviewAgentsResponse (Maybe Text)
parsNextToken = lens _parsNextToken (\ s a -> s{_parsNextToken = a});
parsResponseStatus :: Lens' PreviewAgentsResponse Int
parsResponseStatus = lens _parsResponseStatus (\ s a -> s{_parsResponseStatus = a});
parsAgentPreviews :: Lens' PreviewAgentsResponse [AgentPreview]
parsAgentPreviews = lens _parsAgentPreviews (\ s a -> s{_parsAgentPreviews = a}) . _Coerce;
instance NFData PreviewAgentsResponse