module Network.Google.Resource.Content.Orders.CreatetestOrder
(
OrdersCreatetestOrderResource
, ordersCreatetestOrder
, OrdersCreatetestOrder
, ocoMerchantId
, ocoPayload
) where
import Network.Google.Prelude
import Network.Google.ShoppingContent.Types
type OrdersCreatetestOrderResource =
"content" :>
"v2" :>
Capture "merchantId" (Textual Word64) :>
"testorders" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] OrdersCreateTestOrderRequest :>
Post '[JSON] OrdersCreateTestOrderResponse
data OrdersCreatetestOrder = OrdersCreatetestOrder'
{ _ocoMerchantId :: !(Textual Word64)
, _ocoPayload :: !OrdersCreateTestOrderRequest
} deriving (Eq,Show,Data,Typeable,Generic)
ordersCreatetestOrder
:: Word64
-> OrdersCreateTestOrderRequest
-> OrdersCreatetestOrder
ordersCreatetestOrder pOcoMerchantId_ pOcoPayload_ =
OrdersCreatetestOrder'
{ _ocoMerchantId = _Coerce # pOcoMerchantId_
, _ocoPayload = pOcoPayload_
}
ocoMerchantId :: Lens' OrdersCreatetestOrder Word64
ocoMerchantId
= lens _ocoMerchantId
(\ s a -> s{_ocoMerchantId = a})
. _Coerce
ocoPayload :: Lens' OrdersCreatetestOrder OrdersCreateTestOrderRequest
ocoPayload
= lens _ocoPayload (\ s a -> s{_ocoPayload = a})
instance GoogleRequest OrdersCreatetestOrder where
type Rs OrdersCreatetestOrder =
OrdersCreateTestOrderResponse
type Scopes OrdersCreatetestOrder =
'["https://www.googleapis.com/auth/content"]
requestClient OrdersCreatetestOrder'{..}
= go _ocoMerchantId (Just AltJSON) _ocoPayload
shoppingContentService
where go
= buildClient
(Proxy :: Proxy OrdersCreatetestOrderResource)
mempty