module Network.Google.Resource.DFAReporting.DynamicTargetingKeys.Delete
(
DynamicTargetingKeysDeleteResource
, dynamicTargetingKeysDelete
, DynamicTargetingKeysDelete
, dtkdObjectType
, dtkdObjectId
, dtkdProFileId
, dtkdName
) where
import Network.Google.DFAReporting.Types
import Network.Google.Prelude
type DynamicTargetingKeysDeleteResource =
"dfareporting" :>
"v2.5" :>
"userprofiles" :>
Capture "profileId" (Textual Int64) :>
"dynamicTargetingKeys" :>
Capture "objectId" (Textual Int64) :>
QueryParam "name" Text :>
QueryParam "objectType"
DynamicTargetingKeysDeleteObjectType
:> QueryParam "alt" AltJSON :> Delete '[JSON] ()
data DynamicTargetingKeysDelete = DynamicTargetingKeysDelete'
{ _dtkdObjectType :: !DynamicTargetingKeysDeleteObjectType
, _dtkdObjectId :: !(Textual Int64)
, _dtkdProFileId :: !(Textual Int64)
, _dtkdName :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
dynamicTargetingKeysDelete
:: DynamicTargetingKeysDeleteObjectType
-> Int64
-> Int64
-> Text
-> DynamicTargetingKeysDelete
dynamicTargetingKeysDelete pDtkdObjectType_ pDtkdObjectId_ pDtkdProFileId_ pDtkdName_ =
DynamicTargetingKeysDelete'
{ _dtkdObjectType = pDtkdObjectType_
, _dtkdObjectId = _Coerce # pDtkdObjectId_
, _dtkdProFileId = _Coerce # pDtkdProFileId_
, _dtkdName = pDtkdName_
}
dtkdObjectType :: Lens' DynamicTargetingKeysDelete DynamicTargetingKeysDeleteObjectType
dtkdObjectType
= lens _dtkdObjectType
(\ s a -> s{_dtkdObjectType = a})
dtkdObjectId :: Lens' DynamicTargetingKeysDelete Int64
dtkdObjectId
= lens _dtkdObjectId (\ s a -> s{_dtkdObjectId = a})
. _Coerce
dtkdProFileId :: Lens' DynamicTargetingKeysDelete Int64
dtkdProFileId
= lens _dtkdProFileId
(\ s a -> s{_dtkdProFileId = a})
. _Coerce
dtkdName :: Lens' DynamicTargetingKeysDelete Text
dtkdName = lens _dtkdName (\ s a -> s{_dtkdName = a})
instance GoogleRequest DynamicTargetingKeysDelete
where
type Rs DynamicTargetingKeysDelete = ()
type Scopes DynamicTargetingKeysDelete =
'["https://www.googleapis.com/auth/dfatrafficking"]
requestClient DynamicTargetingKeysDelete'{..}
= go _dtkdProFileId _dtkdObjectId (Just _dtkdName)
(Just _dtkdObjectType)
(Just AltJSON)
dFAReportingService
where go
= buildClient
(Proxy :: Proxy DynamicTargetingKeysDeleteResource)
mempty