{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.Analytics.Management.WebPropertyAdWordsLinks.Delete
(
ManagementWebPropertyAdWordsLinksDeleteResource
, managementWebPropertyAdWordsLinksDelete
, ManagementWebPropertyAdWordsLinksDelete
, mwpawldWebPropertyId
, mwpawldAccountId
, mwpawldWebPropertyAdWordsLinkId
) where
import Network.Google.Analytics.Types
import Network.Google.Prelude
type ManagementWebPropertyAdWordsLinksDeleteResource
=
"analytics" :>
"v3" :>
"management" :>
"accounts" :>
Capture "accountId" Text :>
"webproperties" :>
Capture "webPropertyId" Text :>
"entityAdWordsLinks" :>
Capture "webPropertyAdWordsLinkId" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] ()
data ManagementWebPropertyAdWordsLinksDelete = ManagementWebPropertyAdWordsLinksDelete'
{ _mwpawldWebPropertyId :: !Text
, _mwpawldAccountId :: !Text
, _mwpawldWebPropertyAdWordsLinkId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
managementWebPropertyAdWordsLinksDelete
:: Text
-> Text
-> Text
-> ManagementWebPropertyAdWordsLinksDelete
managementWebPropertyAdWordsLinksDelete pMwpawldWebPropertyId_ pMwpawldAccountId_ pMwpawldWebPropertyAdWordsLinkId_ =
ManagementWebPropertyAdWordsLinksDelete'
{ _mwpawldWebPropertyId = pMwpawldWebPropertyId_
, _mwpawldAccountId = pMwpawldAccountId_
, _mwpawldWebPropertyAdWordsLinkId = pMwpawldWebPropertyAdWordsLinkId_
}
mwpawldWebPropertyId :: Lens' ManagementWebPropertyAdWordsLinksDelete Text
mwpawldWebPropertyId
= lens _mwpawldWebPropertyId
(\ s a -> s{_mwpawldWebPropertyId = a})
mwpawldAccountId :: Lens' ManagementWebPropertyAdWordsLinksDelete Text
mwpawldAccountId
= lens _mwpawldAccountId
(\ s a -> s{_mwpawldAccountId = a})
mwpawldWebPropertyAdWordsLinkId :: Lens' ManagementWebPropertyAdWordsLinksDelete Text
mwpawldWebPropertyAdWordsLinkId
= lens _mwpawldWebPropertyAdWordsLinkId
(\ s a -> s{_mwpawldWebPropertyAdWordsLinkId = a})
instance GoogleRequest
ManagementWebPropertyAdWordsLinksDelete where
type Rs ManagementWebPropertyAdWordsLinksDelete = ()
type Scopes ManagementWebPropertyAdWordsLinksDelete =
'["https://www.googleapis.com/auth/analytics.edit"]
requestClient
ManagementWebPropertyAdWordsLinksDelete'{..}
= go _mwpawldAccountId _mwpawldWebPropertyId
_mwpawldWebPropertyAdWordsLinkId
(Just AltJSON)
analyticsService
where go
= buildClient
(Proxy ::
Proxy
ManagementWebPropertyAdWordsLinksDeleteResource)
mempty