module Network.AWS.OpsWorks.DescribeRDSDBInstances
(
describeRDSDBInstances
, DescribeRDSDBInstances
, drdiRDSDBInstanceARNs
, drdiStackId
, describeRDSDBInstancesResponse
, DescribeRDSDBInstancesResponse
, drdirsRDSDBInstances
, drdirsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.OpsWorks.Types
import Network.AWS.OpsWorks.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeRDSDBInstances = DescribeRDSDBInstances'
{ _drdiRDSDBInstanceARNs :: !(Maybe [Text])
, _drdiStackId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeRDSDBInstances
:: Text
-> DescribeRDSDBInstances
describeRDSDBInstances pStackId_ =
DescribeRDSDBInstances'
{_drdiRDSDBInstanceARNs = Nothing, _drdiStackId = pStackId_}
drdiRDSDBInstanceARNs :: Lens' DescribeRDSDBInstances [Text]
drdiRDSDBInstanceARNs = lens _drdiRDSDBInstanceARNs (\ s a -> s{_drdiRDSDBInstanceARNs = a}) . _Default . _Coerce;
drdiStackId :: Lens' DescribeRDSDBInstances Text
drdiStackId = lens _drdiStackId (\ s a -> s{_drdiStackId = a});
instance AWSRequest DescribeRDSDBInstances where
type Rs DescribeRDSDBInstances =
DescribeRDSDBInstancesResponse
request = postJSON opsWorks
response
= receiveJSON
(\ s h x ->
DescribeRDSDBInstancesResponse' <$>
(x .?> "RdsDbInstances" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable DescribeRDSDBInstances where
instance NFData DescribeRDSDBInstances where
instance ToHeaders DescribeRDSDBInstances where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.DescribeRdsDbInstances" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeRDSDBInstances where
toJSON DescribeRDSDBInstances'{..}
= object
(catMaybes
[("RdsDbInstanceArns" .=) <$> _drdiRDSDBInstanceARNs,
Just ("StackId" .= _drdiStackId)])
instance ToPath DescribeRDSDBInstances where
toPath = const "/"
instance ToQuery DescribeRDSDBInstances where
toQuery = const mempty
data DescribeRDSDBInstancesResponse = DescribeRDSDBInstancesResponse'
{ _drdirsRDSDBInstances :: !(Maybe [RDSDBInstance])
, _drdirsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeRDSDBInstancesResponse
:: Int
-> DescribeRDSDBInstancesResponse
describeRDSDBInstancesResponse pResponseStatus_ =
DescribeRDSDBInstancesResponse'
{_drdirsRDSDBInstances = Nothing, _drdirsResponseStatus = pResponseStatus_}
drdirsRDSDBInstances :: Lens' DescribeRDSDBInstancesResponse [RDSDBInstance]
drdirsRDSDBInstances = lens _drdirsRDSDBInstances (\ s a -> s{_drdirsRDSDBInstances = a}) . _Default . _Coerce;
drdirsResponseStatus :: Lens' DescribeRDSDBInstancesResponse Int
drdirsResponseStatus = lens _drdirsResponseStatus (\ s a -> s{_drdirsResponseStatus = a});
instance NFData DescribeRDSDBInstancesResponse where