module Network.AWS.DeviceFarm.PurchaseOffering
(
purchaseOffering
, PurchaseOffering
, poQuantity
, poOfferingId
, purchaseOfferingResponse
, PurchaseOfferingResponse
, porsOfferingTransaction
, porsResponseStatus
) where
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data PurchaseOffering = PurchaseOffering'
{ _poQuantity :: !(Maybe Int)
, _poOfferingId :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
purchaseOffering
:: PurchaseOffering
purchaseOffering =
PurchaseOffering'
{ _poQuantity = Nothing
, _poOfferingId = Nothing
}
poQuantity :: Lens' PurchaseOffering (Maybe Int)
poQuantity = lens _poQuantity (\ s a -> s{_poQuantity = a});
poOfferingId :: Lens' PurchaseOffering (Maybe Text)
poOfferingId = lens _poOfferingId (\ s a -> s{_poOfferingId = a});
instance AWSRequest PurchaseOffering where
type Rs PurchaseOffering = PurchaseOfferingResponse
request = postJSON deviceFarm
response
= receiveJSON
(\ s h x ->
PurchaseOfferingResponse' <$>
(x .?> "offeringTransaction") <*>
(pure (fromEnum s)))
instance Hashable PurchaseOffering
instance NFData PurchaseOffering
instance ToHeaders PurchaseOffering where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("DeviceFarm_20150623.PurchaseOffering" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON PurchaseOffering where
toJSON PurchaseOffering'{..}
= object
(catMaybes
[("quantity" .=) <$> _poQuantity,
("offeringId" .=) <$> _poOfferingId])
instance ToPath PurchaseOffering where
toPath = const "/"
instance ToQuery PurchaseOffering where
toQuery = const mempty
data PurchaseOfferingResponse = PurchaseOfferingResponse'
{ _porsOfferingTransaction :: !(Maybe OfferingTransaction)
, _porsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
purchaseOfferingResponse
:: Int
-> PurchaseOfferingResponse
purchaseOfferingResponse pResponseStatus_ =
PurchaseOfferingResponse'
{ _porsOfferingTransaction = Nothing
, _porsResponseStatus = pResponseStatus_
}
porsOfferingTransaction :: Lens' PurchaseOfferingResponse (Maybe OfferingTransaction)
porsOfferingTransaction = lens _porsOfferingTransaction (\ s a -> s{_porsOfferingTransaction = a});
porsResponseStatus :: Lens' PurchaseOfferingResponse Int
porsResponseStatus = lens _porsResponseStatus (\ s a -> s{_porsResponseStatus = a});
instance NFData PurchaseOfferingResponse