{-# 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.DescribeAssessmentRuns
(
describeAssessmentRuns
, DescribeAssessmentRuns
, darAssessmentRunARNs
, describeAssessmentRunsResponse
, DescribeAssessmentRunsResponse
, darrsResponseStatus
, darrsAssessmentRuns
, darrsFailedItems
) 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
newtype DescribeAssessmentRuns = DescribeAssessmentRuns'
{ _darAssessmentRunARNs :: List1 Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeAssessmentRuns
:: NonEmpty Text
-> DescribeAssessmentRuns
describeAssessmentRuns pAssessmentRunARNs_ =
DescribeAssessmentRuns' {_darAssessmentRunARNs = _List1 # pAssessmentRunARNs_}
darAssessmentRunARNs :: Lens' DescribeAssessmentRuns (NonEmpty Text)
darAssessmentRunARNs = lens _darAssessmentRunARNs (\ s a -> s{_darAssessmentRunARNs = a}) . _List1
instance AWSRequest DescribeAssessmentRuns where
type Rs DescribeAssessmentRuns =
DescribeAssessmentRunsResponse
request = postJSON inspector
response
= receiveJSON
(\ s h x ->
DescribeAssessmentRunsResponse' <$>
(pure (fromEnum s)) <*>
(x .?> "assessmentRuns" .!@ mempty)
<*> (x .?> "failedItems" .!@ mempty))
instance Hashable DescribeAssessmentRuns where
instance NFData DescribeAssessmentRuns where
instance ToHeaders DescribeAssessmentRuns where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("InspectorService.DescribeAssessmentRuns" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeAssessmentRuns where
toJSON DescribeAssessmentRuns'{..}
= object
(catMaybes
[Just
("assessmentRunArns" .= _darAssessmentRunARNs)])
instance ToPath DescribeAssessmentRuns where
toPath = const "/"
instance ToQuery DescribeAssessmentRuns where
toQuery = const mempty
data DescribeAssessmentRunsResponse = DescribeAssessmentRunsResponse'
{ _darrsResponseStatus :: !Int
, _darrsAssessmentRuns :: ![AssessmentRun]
, _darrsFailedItems :: !(Map Text FailedItemDetails)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeAssessmentRunsResponse
:: Int
-> DescribeAssessmentRunsResponse
describeAssessmentRunsResponse pResponseStatus_ =
DescribeAssessmentRunsResponse'
{ _darrsResponseStatus = pResponseStatus_
, _darrsAssessmentRuns = mempty
, _darrsFailedItems = mempty
}
darrsResponseStatus :: Lens' DescribeAssessmentRunsResponse Int
darrsResponseStatus = lens _darrsResponseStatus (\ s a -> s{_darrsResponseStatus = a})
darrsAssessmentRuns :: Lens' DescribeAssessmentRunsResponse [AssessmentRun]
darrsAssessmentRuns = lens _darrsAssessmentRuns (\ s a -> s{_darrsAssessmentRuns = a}) . _Coerce
darrsFailedItems :: Lens' DescribeAssessmentRunsResponse (HashMap Text FailedItemDetails)
darrsFailedItems = lens _darrsFailedItems (\ s a -> s{_darrsFailedItems = a}) . _Map
instance NFData DescribeAssessmentRunsResponse where