module Network.AWS.RDS.DescribeReservedDBInstances
(
DescribeReservedDBInstances
, describeReservedDBInstances
, drdbiDBInstanceClass
, drdbiDuration
, drdbiFilters
, drdbiMarker
, drdbiMaxRecords
, drdbiMultiAZ
, drdbiOfferingType
, drdbiProductDescription
, drdbiReservedDBInstanceId
, drdbiReservedDBInstancesOfferingId
, DescribeReservedDBInstancesResponse
, describeReservedDBInstancesResponse
, drdbirMarker
, drdbirReservedDBInstances
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.RDS.Types
import qualified GHC.Exts
data DescribeReservedDBInstances = DescribeReservedDBInstances
{ _drdbiDBInstanceClass :: Maybe Text
, _drdbiDuration :: Maybe Text
, _drdbiFilters :: List "Filter" Filter
, _drdbiMarker :: Maybe Text
, _drdbiMaxRecords :: Maybe Int
, _drdbiMultiAZ :: Maybe Bool
, _drdbiOfferingType :: Maybe Text
, _drdbiProductDescription :: Maybe Text
, _drdbiReservedDBInstanceId :: Maybe Text
, _drdbiReservedDBInstancesOfferingId :: Maybe Text
} deriving (Eq, Show)
describeReservedDBInstances :: DescribeReservedDBInstances
describeReservedDBInstances = DescribeReservedDBInstances
{ _drdbiReservedDBInstanceId = Nothing
, _drdbiReservedDBInstancesOfferingId = Nothing
, _drdbiDBInstanceClass = Nothing
, _drdbiDuration = Nothing
, _drdbiProductDescription = Nothing
, _drdbiOfferingType = Nothing
, _drdbiMultiAZ = Nothing
, _drdbiFilters = mempty
, _drdbiMaxRecords = Nothing
, _drdbiMarker = Nothing
}
drdbiDBInstanceClass :: Lens' DescribeReservedDBInstances (Maybe Text)
drdbiDBInstanceClass =
lens _drdbiDBInstanceClass (\s a -> s { _drdbiDBInstanceClass = a })
drdbiDuration :: Lens' DescribeReservedDBInstances (Maybe Text)
drdbiDuration = lens _drdbiDuration (\s a -> s { _drdbiDuration = a })
drdbiFilters :: Lens' DescribeReservedDBInstances [Filter]
drdbiFilters = lens _drdbiFilters (\s a -> s { _drdbiFilters = a }) . _List
drdbiMarker :: Lens' DescribeReservedDBInstances (Maybe Text)
drdbiMarker = lens _drdbiMarker (\s a -> s { _drdbiMarker = a })
drdbiMaxRecords :: Lens' DescribeReservedDBInstances (Maybe Int)
drdbiMaxRecords = lens _drdbiMaxRecords (\s a -> s { _drdbiMaxRecords = a })
drdbiMultiAZ :: Lens' DescribeReservedDBInstances (Maybe Bool)
drdbiMultiAZ = lens _drdbiMultiAZ (\s a -> s { _drdbiMultiAZ = a })
drdbiOfferingType :: Lens' DescribeReservedDBInstances (Maybe Text)
drdbiOfferingType =
lens _drdbiOfferingType (\s a -> s { _drdbiOfferingType = a })
drdbiProductDescription :: Lens' DescribeReservedDBInstances (Maybe Text)
drdbiProductDescription =
lens _drdbiProductDescription (\s a -> s { _drdbiProductDescription = a })
drdbiReservedDBInstanceId :: Lens' DescribeReservedDBInstances (Maybe Text)
drdbiReservedDBInstanceId =
lens _drdbiReservedDBInstanceId
(\s a -> s { _drdbiReservedDBInstanceId = a })
drdbiReservedDBInstancesOfferingId :: Lens' DescribeReservedDBInstances (Maybe Text)
drdbiReservedDBInstancesOfferingId =
lens _drdbiReservedDBInstancesOfferingId
(\s a -> s { _drdbiReservedDBInstancesOfferingId = a })
data DescribeReservedDBInstancesResponse = DescribeReservedDBInstancesResponse
{ _drdbirMarker :: Maybe Text
, _drdbirReservedDBInstances :: List "ReservedDBInstance" ReservedDBInstance
} deriving (Eq, Show)
describeReservedDBInstancesResponse :: DescribeReservedDBInstancesResponse
describeReservedDBInstancesResponse = DescribeReservedDBInstancesResponse
{ _drdbirMarker = Nothing
, _drdbirReservedDBInstances = mempty
}
drdbirMarker :: Lens' DescribeReservedDBInstancesResponse (Maybe Text)
drdbirMarker = lens _drdbirMarker (\s a -> s { _drdbirMarker = a })
drdbirReservedDBInstances :: Lens' DescribeReservedDBInstancesResponse [ReservedDBInstance]
drdbirReservedDBInstances =
lens _drdbirReservedDBInstances
(\s a -> s { _drdbirReservedDBInstances = a })
. _List
instance ToPath DescribeReservedDBInstances where
toPath = const "/"
instance ToQuery DescribeReservedDBInstances where
toQuery DescribeReservedDBInstances{..} = mconcat
[ "DBInstanceClass" =? _drdbiDBInstanceClass
, "Duration" =? _drdbiDuration
, "Filters" =? _drdbiFilters
, "Marker" =? _drdbiMarker
, "MaxRecords" =? _drdbiMaxRecords
, "MultiAZ" =? _drdbiMultiAZ
, "OfferingType" =? _drdbiOfferingType
, "ProductDescription" =? _drdbiProductDescription
, "ReservedDBInstanceId" =? _drdbiReservedDBInstanceId
, "ReservedDBInstancesOfferingId" =? _drdbiReservedDBInstancesOfferingId
]
instance ToHeaders DescribeReservedDBInstances
instance AWSRequest DescribeReservedDBInstances where
type Sv DescribeReservedDBInstances = RDS
type Rs DescribeReservedDBInstances = DescribeReservedDBInstancesResponse
request = post "DescribeReservedDBInstances"
response = xmlResponse
instance FromXML DescribeReservedDBInstancesResponse where
parseXML = withElement "DescribeReservedDBInstancesResult" $ \x -> DescribeReservedDBInstancesResponse
<$> x .@? "Marker"
<*> x .@ "ReservedDBInstances"
instance AWSPager DescribeReservedDBInstances where
page rq rs
| stop (rq ^. drdbiMarker) = Nothing
| otherwise = (\x -> rq & drdbiMarker ?~ x)
<$> (rs ^. drdbirMarker)