{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.EC2.PurchaseReservedInstancesOffering
(
purchaseReservedInstancesOffering
, PurchaseReservedInstancesOffering
, prioLimitPrice
, prioDryRun
, prioReservedInstancesOfferingId
, prioInstanceCount
, purchaseReservedInstancesOfferingResponse
, PurchaseReservedInstancesOfferingResponse
, priorsReservedInstancesId
, priorsResponseStatus
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data PurchaseReservedInstancesOffering = PurchaseReservedInstancesOffering'
{ _prioLimitPrice :: !(Maybe ReservedInstanceLimitPrice)
, _prioDryRun :: !(Maybe Bool)
, _prioReservedInstancesOfferingId :: !Text
, _prioInstanceCount :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
purchaseReservedInstancesOffering
:: Text
-> Int
-> PurchaseReservedInstancesOffering
purchaseReservedInstancesOffering pReservedInstancesOfferingId_ pInstanceCount_ =
PurchaseReservedInstancesOffering'
{ _prioLimitPrice = Nothing
, _prioDryRun = Nothing
, _prioReservedInstancesOfferingId = pReservedInstancesOfferingId_
, _prioInstanceCount = pInstanceCount_
}
prioLimitPrice :: Lens' PurchaseReservedInstancesOffering (Maybe ReservedInstanceLimitPrice)
prioLimitPrice = lens _prioLimitPrice (\ s a -> s{_prioLimitPrice = a});
prioDryRun :: Lens' PurchaseReservedInstancesOffering (Maybe Bool)
prioDryRun = lens _prioDryRun (\ s a -> s{_prioDryRun = a});
prioReservedInstancesOfferingId :: Lens' PurchaseReservedInstancesOffering Text
prioReservedInstancesOfferingId = lens _prioReservedInstancesOfferingId (\ s a -> s{_prioReservedInstancesOfferingId = a});
prioInstanceCount :: Lens' PurchaseReservedInstancesOffering Int
prioInstanceCount = lens _prioInstanceCount (\ s a -> s{_prioInstanceCount = a});
instance AWSRequest PurchaseReservedInstancesOffering
where
type Rs PurchaseReservedInstancesOffering =
PurchaseReservedInstancesOfferingResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
PurchaseReservedInstancesOfferingResponse' <$>
(x .@? "reservedInstancesId") <*>
(pure (fromEnum s)))
instance Hashable PurchaseReservedInstancesOffering
instance NFData PurchaseReservedInstancesOffering
instance ToHeaders PurchaseReservedInstancesOffering
where
toHeaders = const mempty
instance ToPath PurchaseReservedInstancesOffering
where
toPath = const "/"
instance ToQuery PurchaseReservedInstancesOffering
where
toQuery PurchaseReservedInstancesOffering'{..}
= mconcat
["Action" =:
("PurchaseReservedInstancesOffering" :: ByteString),
"Version" =: ("2016-04-01" :: ByteString),
"LimitPrice" =: _prioLimitPrice,
"DryRun" =: _prioDryRun,
"ReservedInstancesOfferingId" =:
_prioReservedInstancesOfferingId,
"InstanceCount" =: _prioInstanceCount]
data PurchaseReservedInstancesOfferingResponse = PurchaseReservedInstancesOfferingResponse'
{ _priorsReservedInstancesId :: !(Maybe Text)
, _priorsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
purchaseReservedInstancesOfferingResponse
:: Int
-> PurchaseReservedInstancesOfferingResponse
purchaseReservedInstancesOfferingResponse pResponseStatus_ =
PurchaseReservedInstancesOfferingResponse'
{ _priorsReservedInstancesId = Nothing
, _priorsResponseStatus = pResponseStatus_
}
priorsReservedInstancesId :: Lens' PurchaseReservedInstancesOfferingResponse (Maybe Text)
priorsReservedInstancesId = lens _priorsReservedInstancesId (\ s a -> s{_priorsReservedInstancesId = a});
priorsResponseStatus :: Lens' PurchaseReservedInstancesOfferingResponse Int
priorsResponseStatus = lens _priorsResponseStatus (\ s a -> s{_priorsResponseStatus = a});
instance NFData
PurchaseReservedInstancesOfferingResponse