module Network.Google.Resource.Content.Accountstatuses.Custombatch
(
AccountstatusesCustombatchResource
, accountstatusesCustombatch
, AccountstatusesCustombatch
, accPayload
) where
import Network.Google.Prelude
import Network.Google.ShoppingContent.Types
type AccountstatusesCustombatchResource =
"content" :>
"v2" :>
"accountstatuses" :>
"batch" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] AccountstatusesCustomBatchRequest :>
Post '[JSON] AccountstatusesCustomBatchResponse
newtype AccountstatusesCustombatch = AccountstatusesCustombatch'
{ _accPayload :: AccountstatusesCustomBatchRequest
} deriving (Eq,Show,Data,Typeable,Generic)
accountstatusesCustombatch
:: AccountstatusesCustomBatchRequest
-> AccountstatusesCustombatch
accountstatusesCustombatch pAccPayload_ =
AccountstatusesCustombatch'
{ _accPayload = pAccPayload_
}
accPayload :: Lens' AccountstatusesCustombatch AccountstatusesCustomBatchRequest
accPayload
= lens _accPayload (\ s a -> s{_accPayload = a})
instance GoogleRequest AccountstatusesCustombatch
where
type Rs AccountstatusesCustombatch =
AccountstatusesCustomBatchResponse
type Scopes AccountstatusesCustombatch =
'["https://www.googleapis.com/auth/content"]
requestClient AccountstatusesCustombatch'{..}
= go (Just AltJSON) _accPayload
shoppingContentService
where go
= buildClient
(Proxy :: Proxy AccountstatusesCustombatchResource)
mempty