module Network.AWS.Inspector.RemoveAttributesFromFindings
(
removeAttributesFromFindings
, RemoveAttributesFromFindings
, raffFindingARNs
, raffAttributeKeys
, removeAttributesFromFindingsResponse
, RemoveAttributesFromFindingsResponse
, raffrsResponseStatus
, raffrsFailedItems
) 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 RemoveAttributesFromFindings = RemoveAttributesFromFindings'
{ _raffFindingARNs :: !(List1 Text)
, _raffAttributeKeys :: ![Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
removeAttributesFromFindings
:: NonEmpty Text
-> RemoveAttributesFromFindings
removeAttributesFromFindings pFindingARNs_ =
RemoveAttributesFromFindings'
{ _raffFindingARNs = _List1 # pFindingARNs_
, _raffAttributeKeys = mempty
}
raffFindingARNs :: Lens' RemoveAttributesFromFindings (NonEmpty Text)
raffFindingARNs = lens _raffFindingARNs (\ s a -> s{_raffFindingARNs = a}) . _List1;
raffAttributeKeys :: Lens' RemoveAttributesFromFindings [Text]
raffAttributeKeys = lens _raffAttributeKeys (\ s a -> s{_raffAttributeKeys = a}) . _Coerce;
instance AWSRequest RemoveAttributesFromFindings
where
type Rs RemoveAttributesFromFindings =
RemoveAttributesFromFindingsResponse
request = postJSON inspector
response
= receiveJSON
(\ s h x ->
RemoveAttributesFromFindingsResponse' <$>
(pure (fromEnum s)) <*>
(x .?> "failedItems" .!@ mempty))
instance Hashable RemoveAttributesFromFindings
instance NFData RemoveAttributesFromFindings
instance ToHeaders RemoveAttributesFromFindings where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("InspectorService.RemoveAttributesFromFindings" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON RemoveAttributesFromFindings where
toJSON RemoveAttributesFromFindings'{..}
= object
(catMaybes
[Just ("findingArns" .= _raffFindingARNs),
Just ("attributeKeys" .= _raffAttributeKeys)])
instance ToPath RemoveAttributesFromFindings where
toPath = const "/"
instance ToQuery RemoveAttributesFromFindings where
toQuery = const mempty
data RemoveAttributesFromFindingsResponse = RemoveAttributesFromFindingsResponse'
{ _raffrsResponseStatus :: !Int
, _raffrsFailedItems :: !(Map Text FailedItemDetails)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
removeAttributesFromFindingsResponse
:: Int
-> RemoveAttributesFromFindingsResponse
removeAttributesFromFindingsResponse pResponseStatus_ =
RemoveAttributesFromFindingsResponse'
{ _raffrsResponseStatus = pResponseStatus_
, _raffrsFailedItems = mempty
}
raffrsResponseStatus :: Lens' RemoveAttributesFromFindingsResponse Int
raffrsResponseStatus = lens _raffrsResponseStatus (\ s a -> s{_raffrsResponseStatus = a});
raffrsFailedItems :: Lens' RemoveAttributesFromFindingsResponse (HashMap Text FailedItemDetails)
raffrsFailedItems = lens _raffrsFailedItems (\ s a -> s{_raffrsFailedItems = a}) . _Map;
instance NFData RemoveAttributesFromFindingsResponse