module Network.AWS.Config.DescribeConfigRuleEvaluationStatus
(
describeConfigRuleEvaluationStatus
, DescribeConfigRuleEvaluationStatus
, dcresConfigRuleNames
, describeConfigRuleEvaluationStatusResponse
, DescribeConfigRuleEvaluationStatusResponse
, dcresrsConfigRulesEvaluationStatus
, dcresrsResponseStatus
) where
import Network.AWS.Config.Types
import Network.AWS.Config.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeConfigRuleEvaluationStatus = DescribeConfigRuleEvaluationStatus'
{ _dcresConfigRuleNames :: Maybe [Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeConfigRuleEvaluationStatus
:: DescribeConfigRuleEvaluationStatus
describeConfigRuleEvaluationStatus =
DescribeConfigRuleEvaluationStatus'
{ _dcresConfigRuleNames = Nothing
}
dcresConfigRuleNames :: Lens' DescribeConfigRuleEvaluationStatus [Text]
dcresConfigRuleNames = lens _dcresConfigRuleNames (\ s a -> s{_dcresConfigRuleNames = a}) . _Default . _Coerce;
instance AWSRequest
DescribeConfigRuleEvaluationStatus where
type Rs DescribeConfigRuleEvaluationStatus =
DescribeConfigRuleEvaluationStatusResponse
request = postJSON config
response
= receiveJSON
(\ s h x ->
DescribeConfigRuleEvaluationStatusResponse' <$>
(x .?> "ConfigRulesEvaluationStatus" .!@ mempty) <*>
(pure (fromEnum s)))
instance ToHeaders DescribeConfigRuleEvaluationStatus
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("StarlingDoveService.DescribeConfigRuleEvaluationStatus"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeConfigRuleEvaluationStatus
where
toJSON DescribeConfigRuleEvaluationStatus'{..}
= object
(catMaybes
[("ConfigRuleNames" .=) <$> _dcresConfigRuleNames])
instance ToPath DescribeConfigRuleEvaluationStatus
where
toPath = const "/"
instance ToQuery DescribeConfigRuleEvaluationStatus
where
toQuery = const mempty
data DescribeConfigRuleEvaluationStatusResponse = DescribeConfigRuleEvaluationStatusResponse'
{ _dcresrsConfigRulesEvaluationStatus :: !(Maybe [ConfigRuleEvaluationStatus])
, _dcresrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeConfigRuleEvaluationStatusResponse
:: Int
-> DescribeConfigRuleEvaluationStatusResponse
describeConfigRuleEvaluationStatusResponse pResponseStatus_ =
DescribeConfigRuleEvaluationStatusResponse'
{ _dcresrsConfigRulesEvaluationStatus = Nothing
, _dcresrsResponseStatus = pResponseStatus_
}
dcresrsConfigRulesEvaluationStatus :: Lens' DescribeConfigRuleEvaluationStatusResponse [ConfigRuleEvaluationStatus]
dcresrsConfigRulesEvaluationStatus = lens _dcresrsConfigRulesEvaluationStatus (\ s a -> s{_dcresrsConfigRulesEvaluationStatus = a}) . _Default . _Coerce;
dcresrsResponseStatus :: Lens' DescribeConfigRuleEvaluationStatusResponse Int
dcresrsResponseStatus = lens _dcresrsResponseStatus (\ s a -> s{_dcresrsResponseStatus = a});