module Network.Google.Resource.Content.Orders.Cancellineitem
(
OrdersCancellineitemResource
, ordersCancellineitem
, OrdersCancellineitem
, ordMerchantId
, ordPayload
, ordOrderId
) where
import Network.Google.Prelude
import Network.Google.ShoppingContent.Types
type OrdersCancellineitemResource =
"content" :>
"v2" :>
Capture "merchantId" (Textual Word64) :>
"orders" :>
Capture "orderId" Text :>
"cancelLineItem" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] OrdersCancelLineItemRequest :>
Post '[JSON] OrdersCancelLineItemResponse
data OrdersCancellineitem = OrdersCancellineitem'
{ _ordMerchantId :: !(Textual Word64)
, _ordPayload :: !OrdersCancelLineItemRequest
, _ordOrderId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
ordersCancellineitem
:: Word64
-> OrdersCancelLineItemRequest
-> Text
-> OrdersCancellineitem
ordersCancellineitem pOrdMerchantId_ pOrdPayload_ pOrdOrderId_ =
OrdersCancellineitem'
{ _ordMerchantId = _Coerce # pOrdMerchantId_
, _ordPayload = pOrdPayload_
, _ordOrderId = pOrdOrderId_
}
ordMerchantId :: Lens' OrdersCancellineitem Word64
ordMerchantId
= lens _ordMerchantId
(\ s a -> s{_ordMerchantId = a})
. _Coerce
ordPayload :: Lens' OrdersCancellineitem OrdersCancelLineItemRequest
ordPayload
= lens _ordPayload (\ s a -> s{_ordPayload = a})
ordOrderId :: Lens' OrdersCancellineitem Text
ordOrderId
= lens _ordOrderId (\ s a -> s{_ordOrderId = a})
instance GoogleRequest OrdersCancellineitem where
type Rs OrdersCancellineitem =
OrdersCancelLineItemResponse
type Scopes OrdersCancellineitem =
'["https://www.googleapis.com/auth/content"]
requestClient OrdersCancellineitem'{..}
= go _ordMerchantId _ordOrderId (Just AltJSON)
_ordPayload
shoppingContentService
where go
= buildClient
(Proxy :: Proxy OrdersCancellineitemResource)
mempty