module Network.AWS.RDS.PurchaseReservedDBInstancesOffering
(
PurchaseReservedDBInstancesOffering
, purchaseReservedDBInstancesOffering
, prdbioDBInstanceCount
, prdbioReservedDBInstanceId
, prdbioReservedDBInstancesOfferingId
, prdbioTags
, PurchaseReservedDBInstancesOfferingResponse
, purchaseReservedDBInstancesOfferingResponse
, prdbiorReservedDBInstance
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.RDS.Types
import qualified GHC.Exts
data PurchaseReservedDBInstancesOffering = PurchaseReservedDBInstancesOffering
{ _prdbioDBInstanceCount :: Maybe Int
, _prdbioReservedDBInstanceId :: Maybe Text
, _prdbioReservedDBInstancesOfferingId :: Text
, _prdbioTags :: List "Tag" Tag
} deriving (Eq, Show)
purchaseReservedDBInstancesOffering :: Text
-> PurchaseReservedDBInstancesOffering
purchaseReservedDBInstancesOffering p1 = PurchaseReservedDBInstancesOffering
{ _prdbioReservedDBInstancesOfferingId = p1
, _prdbioReservedDBInstanceId = Nothing
, _prdbioDBInstanceCount = Nothing
, _prdbioTags = mempty
}
prdbioDBInstanceCount :: Lens' PurchaseReservedDBInstancesOffering (Maybe Int)
prdbioDBInstanceCount =
lens _prdbioDBInstanceCount (\s a -> s { _prdbioDBInstanceCount = a })
prdbioReservedDBInstanceId :: Lens' PurchaseReservedDBInstancesOffering (Maybe Text)
prdbioReservedDBInstanceId =
lens _prdbioReservedDBInstanceId
(\s a -> s { _prdbioReservedDBInstanceId = a })
prdbioReservedDBInstancesOfferingId :: Lens' PurchaseReservedDBInstancesOffering Text
prdbioReservedDBInstancesOfferingId =
lens _prdbioReservedDBInstancesOfferingId
(\s a -> s { _prdbioReservedDBInstancesOfferingId = a })
prdbioTags :: Lens' PurchaseReservedDBInstancesOffering [Tag]
prdbioTags = lens _prdbioTags (\s a -> s { _prdbioTags = a }) . _List
newtype PurchaseReservedDBInstancesOfferingResponse = PurchaseReservedDBInstancesOfferingResponse
{ _prdbiorReservedDBInstance :: Maybe ReservedDBInstance
} deriving (Eq, Show)
purchaseReservedDBInstancesOfferingResponse :: PurchaseReservedDBInstancesOfferingResponse
purchaseReservedDBInstancesOfferingResponse = PurchaseReservedDBInstancesOfferingResponse
{ _prdbiorReservedDBInstance = Nothing
}
prdbiorReservedDBInstance :: Lens' PurchaseReservedDBInstancesOfferingResponse (Maybe ReservedDBInstance)
prdbiorReservedDBInstance =
lens _prdbiorReservedDBInstance
(\s a -> s { _prdbiorReservedDBInstance = a })
instance ToPath PurchaseReservedDBInstancesOffering where
toPath = const "/"
instance ToQuery PurchaseReservedDBInstancesOffering where
toQuery PurchaseReservedDBInstancesOffering{..} = mconcat
[ "DBInstanceCount" =? _prdbioDBInstanceCount
, "ReservedDBInstanceId" =? _prdbioReservedDBInstanceId
, "ReservedDBInstancesOfferingId" =? _prdbioReservedDBInstancesOfferingId
, "Tags" =? _prdbioTags
]
instance ToHeaders PurchaseReservedDBInstancesOffering
instance AWSRequest PurchaseReservedDBInstancesOffering where
type Sv PurchaseReservedDBInstancesOffering = RDS
type Rs PurchaseReservedDBInstancesOffering = PurchaseReservedDBInstancesOfferingResponse
request = post "PurchaseReservedDBInstancesOffering"
response = xmlResponse
instance FromXML PurchaseReservedDBInstancesOfferingResponse where
parseXML = withElement "PurchaseReservedDBInstancesOfferingResult" $ \x -> PurchaseReservedDBInstancesOfferingResponse
<$> x .@? "ReservedDBInstance"