module Network.Google.Resource.Content.Datafeeds.Custombatch
(
DatafeedsCustombatchResource
, datafeedsCustombatch
, DatafeedsCustombatch
, dPayload
, dDryRun
) where
import Network.Google.Prelude
import Network.Google.ShoppingContent.Types
type DatafeedsCustombatchResource =
"content" :>
"v2" :>
"datafeeds" :>
"batch" :>
QueryParam "dryRun" Bool :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] DatafeedsCustomBatchRequest :>
Post '[JSON] DatafeedsCustomBatchResponse
data DatafeedsCustombatch = DatafeedsCustombatch'
{ _dPayload :: !DatafeedsCustomBatchRequest
, _dDryRun :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
datafeedsCustombatch
:: DatafeedsCustomBatchRequest
-> DatafeedsCustombatch
datafeedsCustombatch pDPayload_ =
DatafeedsCustombatch'
{ _dPayload = pDPayload_
, _dDryRun = Nothing
}
dPayload :: Lens' DatafeedsCustombatch DatafeedsCustomBatchRequest
dPayload = lens _dPayload (\ s a -> s{_dPayload = a})
dDryRun :: Lens' DatafeedsCustombatch (Maybe Bool)
dDryRun = lens _dDryRun (\ s a -> s{_dDryRun = a})
instance GoogleRequest DatafeedsCustombatch where
type Rs DatafeedsCustombatch =
DatafeedsCustomBatchResponse
type Scopes DatafeedsCustombatch =
'["https://www.googleapis.com/auth/content"]
requestClient DatafeedsCustombatch'{..}
= go _dDryRun (Just AltJSON) _dPayload
shoppingContentService
where go
= buildClient
(Proxy :: Proxy DatafeedsCustombatchResource)
mempty