{-# 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.DescribeAssessmentTemplates
(
describeAssessmentTemplates
, DescribeAssessmentTemplates
, datAssessmentTemplateARNs
, describeAssessmentTemplatesResponse
, DescribeAssessmentTemplatesResponse
, datrsResponseStatus
, datrsAssessmentTemplates
, datrsFailedItems
) 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 DescribeAssessmentTemplates = DescribeAssessmentTemplates'
{ _datAssessmentTemplateARNs :: List1 Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeAssessmentTemplates
:: NonEmpty Text
-> DescribeAssessmentTemplates
describeAssessmentTemplates pAssessmentTemplateARNs_ =
DescribeAssessmentTemplates'
{_datAssessmentTemplateARNs = _List1 # pAssessmentTemplateARNs_}
datAssessmentTemplateARNs :: Lens' DescribeAssessmentTemplates (NonEmpty Text)
datAssessmentTemplateARNs = lens _datAssessmentTemplateARNs (\ s a -> s{_datAssessmentTemplateARNs = a}) . _List1
instance AWSRequest DescribeAssessmentTemplates where
type Rs DescribeAssessmentTemplates =
DescribeAssessmentTemplatesResponse
request = postJSON inspector
response
= receiveJSON
(\ s h x ->
DescribeAssessmentTemplatesResponse' <$>
(pure (fromEnum s)) <*>
(x .?> "assessmentTemplates" .!@ mempty)
<*> (x .?> "failedItems" .!@ mempty))
instance Hashable DescribeAssessmentTemplates where
instance NFData DescribeAssessmentTemplates where
instance ToHeaders DescribeAssessmentTemplates where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("InspectorService.DescribeAssessmentTemplates" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeAssessmentTemplates where
toJSON DescribeAssessmentTemplates'{..}
= object
(catMaybes
[Just
("assessmentTemplateArns" .=
_datAssessmentTemplateARNs)])
instance ToPath DescribeAssessmentTemplates where
toPath = const "/"
instance ToQuery DescribeAssessmentTemplates where
toQuery = const mempty
data DescribeAssessmentTemplatesResponse = DescribeAssessmentTemplatesResponse'
{ _datrsResponseStatus :: !Int
, _datrsAssessmentTemplates :: ![AssessmentTemplate]
, _datrsFailedItems :: !(Map Text FailedItemDetails)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeAssessmentTemplatesResponse
:: Int
-> DescribeAssessmentTemplatesResponse
describeAssessmentTemplatesResponse pResponseStatus_ =
DescribeAssessmentTemplatesResponse'
{ _datrsResponseStatus = pResponseStatus_
, _datrsAssessmentTemplates = mempty
, _datrsFailedItems = mempty
}
datrsResponseStatus :: Lens' DescribeAssessmentTemplatesResponse Int
datrsResponseStatus = lens _datrsResponseStatus (\ s a -> s{_datrsResponseStatus = a})
datrsAssessmentTemplates :: Lens' DescribeAssessmentTemplatesResponse [AssessmentTemplate]
datrsAssessmentTemplates = lens _datrsAssessmentTemplates (\ s a -> s{_datrsAssessmentTemplates = a}) . _Coerce
datrsFailedItems :: Lens' DescribeAssessmentTemplatesResponse (HashMap Text FailedItemDetails)
datrsFailedItems = lens _datrsFailedItems (\ s a -> s{_datrsFailedItems = a}) . _Map
instance NFData DescribeAssessmentTemplatesResponse
where