module Network.Google.Resource.Content.Orders.Cancel
(
OrdersCancelResource
, ordersCancel
, OrdersCancel
, occMerchantId
, occPayload
, occOrderId
) where
import Network.Google.Prelude
import Network.Google.ShoppingContent.Types
type OrdersCancelResource =
"content" :>
"v2" :>
Capture "merchantId" (Textual Word64) :>
"orders" :>
Capture "orderId" Text :>
"cancel" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] OrdersCancelRequest :>
Post '[JSON] OrdersCancelResponse
data OrdersCancel = OrdersCancel'
{ _occMerchantId :: !(Textual Word64)
, _occPayload :: !OrdersCancelRequest
, _occOrderId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
ordersCancel
:: Word64
-> OrdersCancelRequest
-> Text
-> OrdersCancel
ordersCancel pOccMerchantId_ pOccPayload_ pOccOrderId_ =
OrdersCancel'
{ _occMerchantId = _Coerce # pOccMerchantId_
, _occPayload = pOccPayload_
, _occOrderId = pOccOrderId_
}
occMerchantId :: Lens' OrdersCancel Word64
occMerchantId
= lens _occMerchantId
(\ s a -> s{_occMerchantId = a})
. _Coerce
occPayload :: Lens' OrdersCancel OrdersCancelRequest
occPayload
= lens _occPayload (\ s a -> s{_occPayload = a})
occOrderId :: Lens' OrdersCancel Text
occOrderId
= lens _occOrderId (\ s a -> s{_occOrderId = a})
instance GoogleRequest OrdersCancel where
type Rs OrdersCancel = OrdersCancelResponse
type Scopes OrdersCancel =
'["https://www.googleapis.com/auth/content"]
requestClient OrdersCancel'{..}
= go _occMerchantId _occOrderId (Just AltJSON)
_occPayload
shoppingContentService
where go
= buildClient (Proxy :: Proxy OrdersCancelResource)
mempty