module Network.Google.Resource.Content.Accounttax.Patch
(
AccounttaxPatchResource
, accounttaxPatch
, AccounttaxPatch
, appMerchantId
, appPayload
, appAccountId
, appDryRun
) where
import Network.Google.Prelude
import Network.Google.ShoppingContent.Types
type AccounttaxPatchResource =
"content" :>
"v2" :>
Capture "merchantId" (Textual Word64) :>
"accounttax" :>
Capture "accountId" (Textual Word64) :>
QueryParam "dryRun" Bool :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] AccountTax :>
Patch '[JSON] AccountTax
data AccounttaxPatch = AccounttaxPatch'
{ _appMerchantId :: !(Textual Word64)
, _appPayload :: !AccountTax
, _appAccountId :: !(Textual Word64)
, _appDryRun :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
accounttaxPatch
:: Word64
-> AccountTax
-> Word64
-> AccounttaxPatch
accounttaxPatch pAppMerchantId_ pAppPayload_ pAppAccountId_ =
AccounttaxPatch'
{ _appMerchantId = _Coerce # pAppMerchantId_
, _appPayload = pAppPayload_
, _appAccountId = _Coerce # pAppAccountId_
, _appDryRun = Nothing
}
appMerchantId :: Lens' AccounttaxPatch Word64
appMerchantId
= lens _appMerchantId
(\ s a -> s{_appMerchantId = a})
. _Coerce
appPayload :: Lens' AccounttaxPatch AccountTax
appPayload
= lens _appPayload (\ s a -> s{_appPayload = a})
appAccountId :: Lens' AccounttaxPatch Word64
appAccountId
= lens _appAccountId (\ s a -> s{_appAccountId = a})
. _Coerce
appDryRun :: Lens' AccounttaxPatch (Maybe Bool)
appDryRun
= lens _appDryRun (\ s a -> s{_appDryRun = a})
instance GoogleRequest AccounttaxPatch where
type Rs AccounttaxPatch = AccountTax
type Scopes AccounttaxPatch =
'["https://www.googleapis.com/auth/content"]
requestClient AccounttaxPatch'{..}
= go _appMerchantId _appAccountId _appDryRun
(Just AltJSON)
_appPayload
shoppingContentService
where go
= buildClient
(Proxy :: Proxy AccounttaxPatchResource)
mempty