module Network.AWS.Config.DescribeConfigurationRecorderStatus
(
describeConfigurationRecorderStatus
, DescribeConfigurationRecorderStatus
, dcrsConfigurationRecorderNames
, describeConfigurationRecorderStatusResponse
, DescribeConfigurationRecorderStatusResponse
, dcrsrsConfigurationRecordersStatus
, dcrsrsStatus
) 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 DescribeConfigurationRecorderStatus = DescribeConfigurationRecorderStatus'
{ _dcrsConfigurationRecorderNames :: Maybe [Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeConfigurationRecorderStatus
:: DescribeConfigurationRecorderStatus
describeConfigurationRecorderStatus =
DescribeConfigurationRecorderStatus'
{ _dcrsConfigurationRecorderNames = Nothing
}
dcrsConfigurationRecorderNames :: Lens' DescribeConfigurationRecorderStatus [Text]
dcrsConfigurationRecorderNames = lens _dcrsConfigurationRecorderNames (\ s a -> s{_dcrsConfigurationRecorderNames = a}) . _Default . _Coerce;
instance AWSRequest
DescribeConfigurationRecorderStatus where
type Sv DescribeConfigurationRecorderStatus = Config
type Rs DescribeConfigurationRecorderStatus =
DescribeConfigurationRecorderStatusResponse
request = postJSON
response
= receiveJSON
(\ s h x ->
DescribeConfigurationRecorderStatusResponse' <$>
(x .?> "ConfigurationRecordersStatus" .!@ mempty) <*>
(pure (fromEnum s)))
instance ToHeaders
DescribeConfigurationRecorderStatus where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("StarlingDoveService.DescribeConfigurationRecorderStatus"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeConfigurationRecorderStatus
where
toJSON DescribeConfigurationRecorderStatus'{..}
= object
["ConfigurationRecorderNames" .=
_dcrsConfigurationRecorderNames]
instance ToPath DescribeConfigurationRecorderStatus
where
toPath = const "/"
instance ToQuery DescribeConfigurationRecorderStatus
where
toQuery = const mempty
data DescribeConfigurationRecorderStatusResponse = DescribeConfigurationRecorderStatusResponse'
{ _dcrsrsConfigurationRecordersStatus :: !(Maybe [ConfigurationRecorderStatus])
, _dcrsrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeConfigurationRecorderStatusResponse
:: Int
-> DescribeConfigurationRecorderStatusResponse
describeConfigurationRecorderStatusResponse pStatus_ =
DescribeConfigurationRecorderStatusResponse'
{ _dcrsrsConfigurationRecordersStatus = Nothing
, _dcrsrsStatus = pStatus_
}
dcrsrsConfigurationRecordersStatus :: Lens' DescribeConfigurationRecorderStatusResponse [ConfigurationRecorderStatus]
dcrsrsConfigurationRecordersStatus = lens _dcrsrsConfigurationRecordersStatus (\ s a -> s{_dcrsrsConfigurationRecordersStatus = a}) . _Default . _Coerce;
dcrsrsStatus :: Lens' DescribeConfigurationRecorderStatusResponse Int
dcrsrsStatus = lens _dcrsrsStatus (\ s a -> s{_dcrsrsStatus = a});