{-# 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.DFAReporting.EventTags.Delete
(
EventTagsDeleteResource
, eventTagsDelete
, EventTagsDelete
, etdProFileId
, etdId
) where
import Network.Google.DFAReporting.Types
import Network.Google.Prelude
type EventTagsDeleteResource =
"dfareporting" :>
"v3.2" :>
"userprofiles" :>
Capture "profileId" (Textual Int64) :>
"eventTags" :>
Capture "id" (Textual Int64) :>
QueryParam "alt" AltJSON :> Delete '[JSON] ()
data EventTagsDelete = EventTagsDelete'
{ _etdProFileId :: !(Textual Int64)
, _etdId :: !(Textual Int64)
} deriving (Eq,Show,Data,Typeable,Generic)
eventTagsDelete
:: Int64
-> Int64
-> EventTagsDelete
eventTagsDelete pEtdProFileId_ pEtdId_ =
EventTagsDelete'
{ _etdProFileId = _Coerce # pEtdProFileId_
, _etdId = _Coerce # pEtdId_
}
etdProFileId :: Lens' EventTagsDelete Int64
etdProFileId
= lens _etdProFileId (\ s a -> s{_etdProFileId = a})
. _Coerce
etdId :: Lens' EventTagsDelete Int64
etdId
= lens _etdId (\ s a -> s{_etdId = a}) . _Coerce
instance GoogleRequest EventTagsDelete where
type Rs EventTagsDelete = ()
type Scopes EventTagsDelete =
'["https://www.googleapis.com/auth/dfatrafficking"]
requestClient EventTagsDelete'{..}
= go _etdProFileId _etdId (Just AltJSON)
dFAReportingService
where go
= buildClient
(Proxy :: Proxy EventTagsDeleteResource)
mempty