module Network.AWS.ElastiCache.PurchaseReservedCacheNodesOffering
(
PurchaseReservedCacheNodesOffering
, purchaseReservedCacheNodesOffering
, prcnoCacheNodeCount
, prcnoReservedCacheNodeId
, prcnoReservedCacheNodesOfferingId
, PurchaseReservedCacheNodesOfferingResponse
, purchaseReservedCacheNodesOfferingResponse
, prcnorReservedCacheNode
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.ElastiCache.Types
import qualified GHC.Exts
data PurchaseReservedCacheNodesOffering = PurchaseReservedCacheNodesOffering
{ _prcnoCacheNodeCount :: Maybe Int
, _prcnoReservedCacheNodeId :: Maybe Text
, _prcnoReservedCacheNodesOfferingId :: Text
} deriving (Eq, Ord, Show)
purchaseReservedCacheNodesOffering :: Text
-> PurchaseReservedCacheNodesOffering
purchaseReservedCacheNodesOffering p1 = PurchaseReservedCacheNodesOffering
{ _prcnoReservedCacheNodesOfferingId = p1
, _prcnoReservedCacheNodeId = Nothing
, _prcnoCacheNodeCount = Nothing
}
prcnoCacheNodeCount :: Lens' PurchaseReservedCacheNodesOffering (Maybe Int)
prcnoCacheNodeCount =
lens _prcnoCacheNodeCount (\s a -> s { _prcnoCacheNodeCount = a })
prcnoReservedCacheNodeId :: Lens' PurchaseReservedCacheNodesOffering (Maybe Text)
prcnoReservedCacheNodeId =
lens _prcnoReservedCacheNodeId
(\s a -> s { _prcnoReservedCacheNodeId = a })
prcnoReservedCacheNodesOfferingId :: Lens' PurchaseReservedCacheNodesOffering Text
prcnoReservedCacheNodesOfferingId =
lens _prcnoReservedCacheNodesOfferingId
(\s a -> s { _prcnoReservedCacheNodesOfferingId = a })
newtype PurchaseReservedCacheNodesOfferingResponse = PurchaseReservedCacheNodesOfferingResponse
{ _prcnorReservedCacheNode :: Maybe ReservedCacheNode
} deriving (Eq, Show)
purchaseReservedCacheNodesOfferingResponse :: PurchaseReservedCacheNodesOfferingResponse
purchaseReservedCacheNodesOfferingResponse = PurchaseReservedCacheNodesOfferingResponse
{ _prcnorReservedCacheNode = Nothing
}
prcnorReservedCacheNode :: Lens' PurchaseReservedCacheNodesOfferingResponse (Maybe ReservedCacheNode)
prcnorReservedCacheNode =
lens _prcnorReservedCacheNode (\s a -> s { _prcnorReservedCacheNode = a })
instance ToPath PurchaseReservedCacheNodesOffering where
toPath = const "/"
instance ToQuery PurchaseReservedCacheNodesOffering where
toQuery PurchaseReservedCacheNodesOffering{..} = mconcat
[ "CacheNodeCount" =? _prcnoCacheNodeCount
, "ReservedCacheNodeId" =? _prcnoReservedCacheNodeId
, "ReservedCacheNodesOfferingId" =? _prcnoReservedCacheNodesOfferingId
]
instance ToHeaders PurchaseReservedCacheNodesOffering
instance AWSRequest PurchaseReservedCacheNodesOffering where
type Sv PurchaseReservedCacheNodesOffering = ElastiCache
type Rs PurchaseReservedCacheNodesOffering = PurchaseReservedCacheNodesOfferingResponse
request = post "PurchaseReservedCacheNodesOffering"
response = xmlResponse
instance FromXML PurchaseReservedCacheNodesOfferingResponse where
parseXML = withElement "PurchaseReservedCacheNodesOfferingResult" $ \x -> PurchaseReservedCacheNodesOfferingResponse
<$> x .@? "ReservedCacheNode"