module Network.Google.Resource.DFAReporting.LandingPages.Delete
(
LandingPagesDeleteResource
, landingPagesDelete
, LandingPagesDelete
, lpdCampaignId
, lpdProFileId
, lpdId
) where
import Network.Google.DFAReporting.Types
import Network.Google.Prelude
type LandingPagesDeleteResource =
"dfareporting" :>
"v2.5" :>
"userprofiles" :>
Capture "profileId" (Textual Int64) :>
"campaigns" :>
Capture "campaignId" (Textual Int64) :>
"landingPages" :>
Capture "id" (Textual Int64) :>
QueryParam "alt" AltJSON :> Delete '[JSON] ()
data LandingPagesDelete = LandingPagesDelete'
{ _lpdCampaignId :: !(Textual Int64)
, _lpdProFileId :: !(Textual Int64)
, _lpdId :: !(Textual Int64)
} deriving (Eq,Show,Data,Typeable,Generic)
landingPagesDelete
:: Int64
-> Int64
-> Int64
-> LandingPagesDelete
landingPagesDelete pLpdCampaignId_ pLpdProFileId_ pLpdId_ =
LandingPagesDelete'
{ _lpdCampaignId = _Coerce # pLpdCampaignId_
, _lpdProFileId = _Coerce # pLpdProFileId_
, _lpdId = _Coerce # pLpdId_
}
lpdCampaignId :: Lens' LandingPagesDelete Int64
lpdCampaignId
= lens _lpdCampaignId
(\ s a -> s{_lpdCampaignId = a})
. _Coerce
lpdProFileId :: Lens' LandingPagesDelete Int64
lpdProFileId
= lens _lpdProFileId (\ s a -> s{_lpdProFileId = a})
. _Coerce
lpdId :: Lens' LandingPagesDelete Int64
lpdId
= lens _lpdId (\ s a -> s{_lpdId = a}) . _Coerce
instance GoogleRequest LandingPagesDelete where
type Rs LandingPagesDelete = ()
type Scopes LandingPagesDelete =
'["https://www.googleapis.com/auth/dfatrafficking"]
requestClient LandingPagesDelete'{..}
= go _lpdProFileId _lpdCampaignId _lpdId
(Just AltJSON)
dFAReportingService
where go
= buildClient
(Proxy :: Proxy LandingPagesDeleteResource)
mempty