{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.Content.Orders.Cancellineitem
(
OrdersCancellineitemResource
, ordersCancellineitem
, OrdersCancellineitem
, ordrMerchantId
, ordrPayload
, ordrOrderId
) where
import Network.Google.Prelude
import Network.Google.ShoppingContent.Types
type OrdersCancellineitemResource =
"content" :>
"v2.1" :>
Capture "merchantId" (Textual Word64) :>
"orders" :>
Capture "orderId" Text :>
"cancelLineItem" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] OrdersCancelLineItemRequest :>
Post '[JSON] OrdersCancelLineItemResponse
data OrdersCancellineitem =
OrdersCancellineitem'
{ _ordrMerchantId :: !(Textual Word64)
, _ordrPayload :: !OrdersCancelLineItemRequest
, _ordrOrderId :: !Text
}
deriving (Eq, Show, Data, Typeable, Generic)
ordersCancellineitem
:: Word64
-> OrdersCancelLineItemRequest
-> Text
-> OrdersCancellineitem
ordersCancellineitem pOrdrMerchantId_ pOrdrPayload_ pOrdrOrderId_ =
OrdersCancellineitem'
{ _ordrMerchantId = _Coerce # pOrdrMerchantId_
, _ordrPayload = pOrdrPayload_
, _ordrOrderId = pOrdrOrderId_
}
ordrMerchantId :: Lens' OrdersCancellineitem Word64
ordrMerchantId
= lens _ordrMerchantId
(\ s a -> s{_ordrMerchantId = a})
. _Coerce
ordrPayload :: Lens' OrdersCancellineitem OrdersCancelLineItemRequest
ordrPayload
= lens _ordrPayload (\ s a -> s{_ordrPayload = a})
ordrOrderId :: Lens' OrdersCancellineitem Text
ordrOrderId
= lens _ordrOrderId (\ s a -> s{_ordrOrderId = a})
instance GoogleRequest OrdersCancellineitem where
type Rs OrdersCancellineitem =
OrdersCancelLineItemResponse
type Scopes OrdersCancellineitem =
'["https://www.googleapis.com/auth/content"]
requestClient OrdersCancellineitem'{..}
= go _ordrMerchantId _ordrOrderId (Just AltJSON)
_ordrPayload
shoppingContentService
where go
= buildClient
(Proxy :: Proxy OrdersCancellineitemResource)
mempty