module Network.AWS.Inspector.DescribeResourceGroups
(
describeResourceGroups
, DescribeResourceGroups
, drgResourceGroupARNs
, describeResourceGroupsResponse
, DescribeResourceGroupsResponse
, drgrsResponseStatus
, drgrsResourceGroups
, drgrsFailedItems
) 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 DescribeResourceGroups = DescribeResourceGroups'
{ _drgResourceGroupARNs :: List1 Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeResourceGroups
:: NonEmpty Text
-> DescribeResourceGroups
describeResourceGroups pResourceGroupARNs_ =
DescribeResourceGroups' {_drgResourceGroupARNs = _List1 # pResourceGroupARNs_}
drgResourceGroupARNs :: Lens' DescribeResourceGroups (NonEmpty Text)
drgResourceGroupARNs = lens _drgResourceGroupARNs (\ s a -> s{_drgResourceGroupARNs = a}) . _List1;
instance AWSRequest DescribeResourceGroups where
type Rs DescribeResourceGroups =
DescribeResourceGroupsResponse
request = postJSON inspector
response
= receiveJSON
(\ s h x ->
DescribeResourceGroupsResponse' <$>
(pure (fromEnum s)) <*>
(x .?> "resourceGroups" .!@ mempty)
<*> (x .?> "failedItems" .!@ mempty))
instance Hashable DescribeResourceGroups where
instance NFData DescribeResourceGroups where
instance ToHeaders DescribeResourceGroups where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("InspectorService.DescribeResourceGroups" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeResourceGroups where
toJSON DescribeResourceGroups'{..}
= object
(catMaybes
[Just
("resourceGroupArns" .= _drgResourceGroupARNs)])
instance ToPath DescribeResourceGroups where
toPath = const "/"
instance ToQuery DescribeResourceGroups where
toQuery = const mempty
data DescribeResourceGroupsResponse = DescribeResourceGroupsResponse'
{ _drgrsResponseStatus :: !Int
, _drgrsResourceGroups :: ![ResourceGroup]
, _drgrsFailedItems :: !(Map Text FailedItemDetails)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeResourceGroupsResponse
:: Int
-> DescribeResourceGroupsResponse
describeResourceGroupsResponse pResponseStatus_ =
DescribeResourceGroupsResponse'
{ _drgrsResponseStatus = pResponseStatus_
, _drgrsResourceGroups = mempty
, _drgrsFailedItems = mempty
}
drgrsResponseStatus :: Lens' DescribeResourceGroupsResponse Int
drgrsResponseStatus = lens _drgrsResponseStatus (\ s a -> s{_drgrsResponseStatus = a});
drgrsResourceGroups :: Lens' DescribeResourceGroupsResponse [ResourceGroup]
drgrsResourceGroups = lens _drgrsResourceGroups (\ s a -> s{_drgrsResourceGroups = a}) . _Coerce;
drgrsFailedItems :: Lens' DescribeResourceGroupsResponse (HashMap Text FailedItemDetails)
drgrsFailedItems = lens _drgrsFailedItems (\ s a -> s{_drgrsFailedItems = a}) . _Map;
instance NFData DescribeResourceGroupsResponse where