{-# 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.DeviceFarm.PurchaseOffering
(
purchaseOffering
, PurchaseOffering
, poQuantity
, poOfferingId
, poOfferingPromotionId
, 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)
, _poOfferingPromotionId :: !(Maybe Text)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
purchaseOffering
:: PurchaseOffering
purchaseOffering =
PurchaseOffering'
{ _poQuantity = Nothing
, _poOfferingId = Nothing
, _poOfferingPromotionId = 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})
poOfferingPromotionId :: Lens' PurchaseOffering (Maybe Text)
poOfferingPromotionId = lens _poOfferingPromotionId (\ s a -> s{_poOfferingPromotionId = 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 where
instance NFData PurchaseOffering where
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,
("offeringPromotionId" .=) <$>
_poOfferingPromotionId])
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 where