{-# 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
, prioInstanceCount
, prioReservedInstancesOfferingId
, 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)
, _prioInstanceCount :: !Int
, _prioReservedInstancesOfferingId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
purchaseReservedInstancesOffering
:: Int
-> Text
-> PurchaseReservedInstancesOffering
purchaseReservedInstancesOffering pInstanceCount_ pReservedInstancesOfferingId_ =
PurchaseReservedInstancesOffering'
{ _prioLimitPrice = Nothing
, _prioDryRun = Nothing
, _prioInstanceCount = pInstanceCount_
, _prioReservedInstancesOfferingId = pReservedInstancesOfferingId_
}
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})
prioInstanceCount :: Lens' PurchaseReservedInstancesOffering Int
prioInstanceCount = lens _prioInstanceCount (\ s a -> s{_prioInstanceCount = a})
prioReservedInstancesOfferingId :: Lens' PurchaseReservedInstancesOffering Text
prioReservedInstancesOfferingId = lens _prioReservedInstancesOfferingId (\ s a -> s{_prioReservedInstancesOfferingId = 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
where
instance NFData PurchaseReservedInstancesOffering
where
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-11-15" :: ByteString),
"LimitPrice" =: _prioLimitPrice,
"DryRun" =: _prioDryRun,
"InstanceCount" =: _prioInstanceCount,
"ReservedInstancesOfferingId" =:
_prioReservedInstancesOfferingId]
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
where