module Network.AWS.OpsWorks.DescribeRdsDbInstances
(
DescribeRdsDbInstances
, describeRdsDbInstances
, drdiRdsDbInstanceArns
, drdiStackId
, DescribeRdsDbInstancesResponse
, describeRdsDbInstancesResponse
, drdirRdsDbInstances
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.OpsWorks.Types
import qualified GHC.Exts
data DescribeRdsDbInstances = DescribeRdsDbInstances
{ _drdiRdsDbInstanceArns :: List "RdsDbInstanceArns" Text
, _drdiStackId :: Text
} deriving (Eq, Ord, Show)
describeRdsDbInstances :: Text
-> DescribeRdsDbInstances
describeRdsDbInstances p1 = DescribeRdsDbInstances
{ _drdiStackId = p1
, _drdiRdsDbInstanceArns = mempty
}
drdiRdsDbInstanceArns :: Lens' DescribeRdsDbInstances [Text]
drdiRdsDbInstanceArns =
lens _drdiRdsDbInstanceArns (\s a -> s { _drdiRdsDbInstanceArns = a })
. _List
drdiStackId :: Lens' DescribeRdsDbInstances Text
drdiStackId = lens _drdiStackId (\s a -> s { _drdiStackId = a })
newtype DescribeRdsDbInstancesResponse = DescribeRdsDbInstancesResponse
{ _drdirRdsDbInstances :: List "RdsDbInstances" RdsDbInstance
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeRdsDbInstancesResponse where
type Item DescribeRdsDbInstancesResponse = RdsDbInstance
fromList = DescribeRdsDbInstancesResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _drdirRdsDbInstances
describeRdsDbInstancesResponse :: DescribeRdsDbInstancesResponse
describeRdsDbInstancesResponse = DescribeRdsDbInstancesResponse
{ _drdirRdsDbInstances = mempty
}
drdirRdsDbInstances :: Lens' DescribeRdsDbInstancesResponse [RdsDbInstance]
drdirRdsDbInstances =
lens _drdirRdsDbInstances (\s a -> s { _drdirRdsDbInstances = a })
. _List
instance ToPath DescribeRdsDbInstances where
toPath = const "/"
instance ToQuery DescribeRdsDbInstances where
toQuery = const mempty
instance ToHeaders DescribeRdsDbInstances
instance ToJSON DescribeRdsDbInstances where
toJSON DescribeRdsDbInstances{..} = object
[ "StackId" .= _drdiStackId
, "RdsDbInstanceArns" .= _drdiRdsDbInstanceArns
]
instance AWSRequest DescribeRdsDbInstances where
type Sv DescribeRdsDbInstances = OpsWorks
type Rs DescribeRdsDbInstances = DescribeRdsDbInstancesResponse
request = post "DescribeRdsDbInstances"
response = jsonResponse
instance FromJSON DescribeRdsDbInstancesResponse where
parseJSON = withObject "DescribeRdsDbInstancesResponse" $ \o -> DescribeRdsDbInstancesResponse
<$> o .:? "RdsDbInstances" .!= mempty