module Network.Google.Resource.Content.Datafeeds.Delete
(
DatafeedsDeleteResource
, datafeedsDelete
, DatafeedsDelete
, ddMerchantId
, ddDatafeedId
, ddDryRun
) where
import Network.Google.Prelude
import Network.Google.ShoppingContent.Types
type DatafeedsDeleteResource =
"content" :>
"v2" :>
Capture "merchantId" (Textual Word64) :>
"datafeeds" :>
Capture "datafeedId" (Textual Word64) :>
QueryParam "dryRun" Bool :>
QueryParam "alt" AltJSON :> Delete '[JSON] ()
data DatafeedsDelete = DatafeedsDelete'
{ _ddMerchantId :: !(Textual Word64)
, _ddDatafeedId :: !(Textual Word64)
, _ddDryRun :: !(Maybe Bool)
} deriving (Eq,Show,Data,Typeable,Generic)
datafeedsDelete
:: Word64
-> Word64
-> DatafeedsDelete
datafeedsDelete pDdMerchantId_ pDdDatafeedId_ =
DatafeedsDelete'
{ _ddMerchantId = _Coerce # pDdMerchantId_
, _ddDatafeedId = _Coerce # pDdDatafeedId_
, _ddDryRun = Nothing
}
ddMerchantId :: Lens' DatafeedsDelete Word64
ddMerchantId
= lens _ddMerchantId (\ s a -> s{_ddMerchantId = a})
. _Coerce
ddDatafeedId :: Lens' DatafeedsDelete Word64
ddDatafeedId
= lens _ddDatafeedId (\ s a -> s{_ddDatafeedId = a})
. _Coerce
ddDryRun :: Lens' DatafeedsDelete (Maybe Bool)
ddDryRun = lens _ddDryRun (\ s a -> s{_ddDryRun = a})
instance GoogleRequest DatafeedsDelete where
type Rs DatafeedsDelete = ()
type Scopes DatafeedsDelete =
'["https://www.googleapis.com/auth/content"]
requestClient DatafeedsDelete'{..}
= go _ddMerchantId _ddDatafeedId _ddDryRun
(Just AltJSON)
shoppingContentService
where go
= buildClient
(Proxy :: Proxy DatafeedsDeleteResource)
mempty