module Network.AWS.Config.GetComplianceSummaryByConfigRule
(
getComplianceSummaryByConfigRule
, GetComplianceSummaryByConfigRule
, getComplianceSummaryByConfigRuleResponse
, GetComplianceSummaryByConfigRuleResponse
, gcsbcrrsComplianceSummary
, gcsbcrrsResponseStatus
) where
import Network.AWS.Config.Types
import Network.AWS.Config.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetComplianceSummaryByConfigRule =
GetComplianceSummaryByConfigRule'
deriving (Eq,Read,Show,Data,Typeable,Generic)
getComplianceSummaryByConfigRule
:: GetComplianceSummaryByConfigRule
getComplianceSummaryByConfigRule = GetComplianceSummaryByConfigRule'
instance AWSRequest GetComplianceSummaryByConfigRule
where
type Rs GetComplianceSummaryByConfigRule =
GetComplianceSummaryByConfigRuleResponse
request = postJSON config
response
= receiveJSON
(\ s h x ->
GetComplianceSummaryByConfigRuleResponse' <$>
(x .?> "ComplianceSummary") <*> (pure (fromEnum s)))
instance ToHeaders GetComplianceSummaryByConfigRule
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("StarlingDoveService.GetComplianceSummaryByConfigRule"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetComplianceSummaryByConfigRule
where
toJSON = const (Object mempty)
instance ToPath GetComplianceSummaryByConfigRule
where
toPath = const "/"
instance ToQuery GetComplianceSummaryByConfigRule
where
toQuery = const mempty
data GetComplianceSummaryByConfigRuleResponse = GetComplianceSummaryByConfigRuleResponse'
{ _gcsbcrrsComplianceSummary :: !(Maybe ComplianceSummary)
, _gcsbcrrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getComplianceSummaryByConfigRuleResponse
:: Int
-> GetComplianceSummaryByConfigRuleResponse
getComplianceSummaryByConfigRuleResponse pResponseStatus_ =
GetComplianceSummaryByConfigRuleResponse'
{ _gcsbcrrsComplianceSummary = Nothing
, _gcsbcrrsResponseStatus = pResponseStatus_
}
gcsbcrrsComplianceSummary :: Lens' GetComplianceSummaryByConfigRuleResponse (Maybe ComplianceSummary)
gcsbcrrsComplianceSummary = lens _gcsbcrrsComplianceSummary (\ s a -> s{_gcsbcrrsComplianceSummary = a});
gcsbcrrsResponseStatus :: Lens' GetComplianceSummaryByConfigRuleResponse Int
gcsbcrrsResponseStatus = lens _gcsbcrrsResponseStatus (\ s a -> s{_gcsbcrrsResponseStatus = a});