module Network.AWS.Inspector.ListRuns
(
listRuns
, ListRuns
, lrAssessmentARNs
, lrNextToken
, lrFilter
, lrMaxResults
, listRunsResponse
, ListRunsResponse
, lrrsRunARNList
, lrrsNextToken
, lrrsResponseStatus
) 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 ListRuns = ListRuns'
{ _lrAssessmentARNs :: !(Maybe [Text])
, _lrNextToken :: !(Maybe Text)
, _lrFilter :: !(Maybe RunsFilter)
, _lrMaxResults :: !(Maybe Int)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listRuns
:: ListRuns
listRuns =
ListRuns'
{ _lrAssessmentARNs = Nothing
, _lrNextToken = Nothing
, _lrFilter = Nothing
, _lrMaxResults = Nothing
}
lrAssessmentARNs :: Lens' ListRuns [Text]
lrAssessmentARNs = lens _lrAssessmentARNs (\ s a -> s{_lrAssessmentARNs = a}) . _Default . _Coerce;
lrNextToken :: Lens' ListRuns (Maybe Text)
lrNextToken = lens _lrNextToken (\ s a -> s{_lrNextToken = a});
lrFilter :: Lens' ListRuns (Maybe RunsFilter)
lrFilter = lens _lrFilter (\ s a -> s{_lrFilter = a});
lrMaxResults :: Lens' ListRuns (Maybe Int)
lrMaxResults = lens _lrMaxResults (\ s a -> s{_lrMaxResults = a});
instance AWSRequest ListRuns where
type Rs ListRuns = ListRunsResponse
request = postJSON inspector
response
= receiveJSON
(\ s h x ->
ListRunsResponse' <$>
(x .?> "runArnList" .!@ mempty) <*>
(x .?> "nextToken")
<*> (pure (fromEnum s)))
instance Hashable ListRuns
instance ToHeaders ListRuns where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("InspectorService.ListRuns" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListRuns where
toJSON ListRuns'{..}
= object
(catMaybes
[("assessmentArns" .=) <$> _lrAssessmentARNs,
("nextToken" .=) <$> _lrNextToken,
("filter" .=) <$> _lrFilter,
("maxResults" .=) <$> _lrMaxResults])
instance ToPath ListRuns where
toPath = const "/"
instance ToQuery ListRuns where
toQuery = const mempty
data ListRunsResponse = ListRunsResponse'
{ _lrrsRunARNList :: !(Maybe [Text])
, _lrrsNextToken :: !(Maybe Text)
, _lrrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
listRunsResponse
:: Int
-> ListRunsResponse
listRunsResponse pResponseStatus_ =
ListRunsResponse'
{ _lrrsRunARNList = Nothing
, _lrrsNextToken = Nothing
, _lrrsResponseStatus = pResponseStatus_
}
lrrsRunARNList :: Lens' ListRunsResponse [Text]
lrrsRunARNList = lens _lrrsRunARNList (\ s a -> s{_lrrsRunARNList = a}) . _Default . _Coerce;
lrrsNextToken :: Lens' ListRunsResponse (Maybe Text)
lrrsNextToken = lens _lrrsNextToken (\ s a -> s{_lrrsNextToken = a});
lrrsResponseStatus :: Lens' ListRunsResponse Int
lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a});