{-# 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.DescribeAssessmentTargets
(
describeAssessmentTargets
, DescribeAssessmentTargets
, datAssessmentTargetARNs
, describeAssessmentTargetsResponse
, DescribeAssessmentTargetsResponse
, drsResponseStatus
, drsAssessmentTargets
, drsFailedItems
) 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 DescribeAssessmentTargets = DescribeAssessmentTargets'
{ _datAssessmentTargetARNs :: List1 Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeAssessmentTargets
:: NonEmpty Text
-> DescribeAssessmentTargets
describeAssessmentTargets pAssessmentTargetARNs_ =
DescribeAssessmentTargets'
{ _datAssessmentTargetARNs = _List1 # pAssessmentTargetARNs_
}
datAssessmentTargetARNs :: Lens' DescribeAssessmentTargets (NonEmpty Text)
datAssessmentTargetARNs = lens _datAssessmentTargetARNs (\ s a -> s{_datAssessmentTargetARNs = a}) . _List1;
instance AWSRequest DescribeAssessmentTargets where
type Rs DescribeAssessmentTargets =
DescribeAssessmentTargetsResponse
request = postJSON inspector
response
= receiveJSON
(\ s h x ->
DescribeAssessmentTargetsResponse' <$>
(pure (fromEnum s)) <*>
(x .?> "assessmentTargets" .!@ mempty)
<*> (x .?> "failedItems" .!@ mempty))
instance Hashable DescribeAssessmentTargets
instance NFData DescribeAssessmentTargets
instance ToHeaders DescribeAssessmentTargets where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("InspectorService.DescribeAssessmentTargets" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeAssessmentTargets where
toJSON DescribeAssessmentTargets'{..}
= object
(catMaybes
[Just
("assessmentTargetArns" .=
_datAssessmentTargetARNs)])
instance ToPath DescribeAssessmentTargets where
toPath = const "/"
instance ToQuery DescribeAssessmentTargets where
toQuery = const mempty
data DescribeAssessmentTargetsResponse = DescribeAssessmentTargetsResponse'
{ _drsResponseStatus :: !Int
, _drsAssessmentTargets :: ![AssessmentTarget]
, _drsFailedItems :: !(Map Text FailedItemDetails)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeAssessmentTargetsResponse
:: Int
-> DescribeAssessmentTargetsResponse
describeAssessmentTargetsResponse pResponseStatus_ =
DescribeAssessmentTargetsResponse'
{ _drsResponseStatus = pResponseStatus_
, _drsAssessmentTargets = mempty
, _drsFailedItems = mempty
}
drsResponseStatus :: Lens' DescribeAssessmentTargetsResponse Int
drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});
drsAssessmentTargets :: Lens' DescribeAssessmentTargetsResponse [AssessmentTarget]
drsAssessmentTargets = lens _drsAssessmentTargets (\ s a -> s{_drsAssessmentTargets = a}) . _Coerce;
drsFailedItems :: Lens' DescribeAssessmentTargetsResponse (HashMap Text FailedItemDetails)
drsFailedItems = lens _drsFailedItems (\ s a -> s{_drsFailedItems = a}) . _Map;
instance NFData DescribeAssessmentTargetsResponse