{-# 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.AddAttributesToFindings
(
addAttributesToFindings
, AddAttributesToFindings
, aatfFindingARNs
, aatfAttributes
, addAttributesToFindingsResponse
, AddAttributesToFindingsResponse
, aatfrsResponseStatus
, aatfrsFailedItems
) 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 AddAttributesToFindings = AddAttributesToFindings'
{ _aatfFindingARNs :: !(List1 Text)
, _aatfAttributes :: ![Attribute]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
addAttributesToFindings
:: NonEmpty Text
-> AddAttributesToFindings
addAttributesToFindings pFindingARNs_ =
AddAttributesToFindings'
{ _aatfFindingARNs = _List1 # pFindingARNs_
, _aatfAttributes = mempty
}
aatfFindingARNs :: Lens' AddAttributesToFindings (NonEmpty Text)
aatfFindingARNs = lens _aatfFindingARNs (\ s a -> s{_aatfFindingARNs = a}) . _List1;
aatfAttributes :: Lens' AddAttributesToFindings [Attribute]
aatfAttributes = lens _aatfAttributes (\ s a -> s{_aatfAttributes = a}) . _Coerce;
instance AWSRequest AddAttributesToFindings where
type Rs AddAttributesToFindings =
AddAttributesToFindingsResponse
request = postJSON inspector
response
= receiveJSON
(\ s h x ->
AddAttributesToFindingsResponse' <$>
(pure (fromEnum s)) <*>
(x .?> "failedItems" .!@ mempty))
instance Hashable AddAttributesToFindings
instance NFData AddAttributesToFindings
instance ToHeaders AddAttributesToFindings where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("InspectorService.AddAttributesToFindings" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON AddAttributesToFindings where
toJSON AddAttributesToFindings'{..}
= object
(catMaybes
[Just ("findingArns" .= _aatfFindingARNs),
Just ("attributes" .= _aatfAttributes)])
instance ToPath AddAttributesToFindings where
toPath = const "/"
instance ToQuery AddAttributesToFindings where
toQuery = const mempty
data AddAttributesToFindingsResponse = AddAttributesToFindingsResponse'
{ _aatfrsResponseStatus :: !Int
, _aatfrsFailedItems :: !(Map Text FailedItemDetails)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
addAttributesToFindingsResponse
:: Int
-> AddAttributesToFindingsResponse
addAttributesToFindingsResponse pResponseStatus_ =
AddAttributesToFindingsResponse'
{ _aatfrsResponseStatus = pResponseStatus_
, _aatfrsFailedItems = mempty
}
aatfrsResponseStatus :: Lens' AddAttributesToFindingsResponse Int
aatfrsResponseStatus = lens _aatfrsResponseStatus (\ s a -> s{_aatfrsResponseStatus = a});
aatfrsFailedItems :: Lens' AddAttributesToFindingsResponse (HashMap Text FailedItemDetails)
aatfrsFailedItems = lens _aatfrsFailedItems (\ s a -> s{_aatfrsFailedItems = a}) . _Map;
instance NFData AddAttributesToFindingsResponse