module Network.Google.Resource.Content.Accountshipping.Update
(
AccountshippingUpdateResource
, accountshippingUpdate
, AccountshippingUpdate
, auMerchantId
, auPayload
, auAccountId
, auDryRun
) where
import Network.Google.Prelude
import Network.Google.ShoppingContent.Types
type AccountshippingUpdateResource =
"content" :>
"v2" :>
Capture "merchantId" (Textual Word64) :>
"accountshipping" :>
Capture "accountId" (Textual Word64) :>
QueryParam "dryRun" Bool :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] AccountShipping :>
Put '[JSON] AccountShipping
data AccountshippingUpdate = AccountshippingUpdate'
{ _auMerchantId :: !(Textual Word64)
, _auPayload :: !AccountShipping
, _auAccountId :: !(Textual Word64)
, _auDryRun :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
accountshippingUpdate
:: Word64
-> AccountShipping
-> Word64
-> AccountshippingUpdate
accountshippingUpdate pAuMerchantId_ pAuPayload_ pAuAccountId_ =
AccountshippingUpdate'
{ _auMerchantId = _Coerce # pAuMerchantId_
, _auPayload = pAuPayload_
, _auAccountId = _Coerce # pAuAccountId_
, _auDryRun = Nothing
}
auMerchantId :: Lens' AccountshippingUpdate Word64
auMerchantId
= lens _auMerchantId (\ s a -> s{_auMerchantId = a})
. _Coerce
auPayload :: Lens' AccountshippingUpdate AccountShipping
auPayload
= lens _auPayload (\ s a -> s{_auPayload = a})
auAccountId :: Lens' AccountshippingUpdate Word64
auAccountId
= lens _auAccountId (\ s a -> s{_auAccountId = a}) .
_Coerce
auDryRun :: Lens' AccountshippingUpdate (Maybe Bool)
auDryRun = lens _auDryRun (\ s a -> s{_auDryRun = a})
instance GoogleRequest AccountshippingUpdate where
type Rs AccountshippingUpdate = AccountShipping
type Scopes AccountshippingUpdate =
'["https://www.googleapis.com/auth/content"]
requestClient AccountshippingUpdate'{..}
= go _auMerchantId _auAccountId _auDryRun
(Just AltJSON)
_auPayload
shoppingContentService
where go
= buildClient
(Proxy :: Proxy AccountshippingUpdateResource)
mempty