module Network.Google.Resource.Content.Orders.Returnlineitem
(
OrdersReturnlineitemResource
, ordersReturnlineitem
, OrdersReturnlineitem
, oMerchantId
, oPayload
, oOrderId
) where
import Network.Google.Prelude
import Network.Google.ShoppingContent.Types
type OrdersReturnlineitemResource =
"content" :>
"v2" :>
Capture "merchantId" (Textual Word64) :>
"orders" :>
Capture "orderId" Text :>
"returnLineItem" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] OrdersReturnLineItemRequest :>
Post '[JSON] OrdersReturnLineItemResponse
data OrdersReturnlineitem = OrdersReturnlineitem'
{ _oMerchantId :: !(Textual Word64)
, _oPayload :: !OrdersReturnLineItemRequest
, _oOrderId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
ordersReturnlineitem
:: Word64
-> OrdersReturnLineItemRequest
-> Text
-> OrdersReturnlineitem
ordersReturnlineitem pOMerchantId_ pOPayload_ pOOrderId_ =
OrdersReturnlineitem'
{ _oMerchantId = _Coerce # pOMerchantId_
, _oPayload = pOPayload_
, _oOrderId = pOOrderId_
}
oMerchantId :: Lens' OrdersReturnlineitem Word64
oMerchantId
= lens _oMerchantId (\ s a -> s{_oMerchantId = a}) .
_Coerce
oPayload :: Lens' OrdersReturnlineitem OrdersReturnLineItemRequest
oPayload = lens _oPayload (\ s a -> s{_oPayload = a})
oOrderId :: Lens' OrdersReturnlineitem Text
oOrderId = lens _oOrderId (\ s a -> s{_oOrderId = a})
instance GoogleRequest OrdersReturnlineitem where
type Rs OrdersReturnlineitem =
OrdersReturnLineItemResponse
type Scopes OrdersReturnlineitem =
'["https://www.googleapis.com/auth/content"]
requestClient OrdersReturnlineitem'{..}
= go _oMerchantId _oOrderId (Just AltJSON) _oPayload
shoppingContentService
where go
= buildClient
(Proxy :: Proxy OrdersReturnlineitemResource)
mempty