{-# 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.Get
(
EventTagsGetResource
, eventTagsGet
, EventTagsGet
, etgProFileId
, etgId
) where
import Network.Google.DFAReporting.Types
import Network.Google.Prelude
type EventTagsGetResource =
"dfareporting" :>
"v3.2" :>
"userprofiles" :>
Capture "profileId" (Textual Int64) :>
"eventTags" :>
Capture "id" (Textual Int64) :>
QueryParam "alt" AltJSON :> Get '[JSON] EventTag
data EventTagsGet = EventTagsGet'
{ _etgProFileId :: !(Textual Int64)
, _etgId :: !(Textual Int64)
} deriving (Eq,Show,Data,Typeable,Generic)
eventTagsGet
:: Int64
-> Int64
-> EventTagsGet
eventTagsGet pEtgProFileId_ pEtgId_ =
EventTagsGet'
{ _etgProFileId = _Coerce # pEtgProFileId_
, _etgId = _Coerce # pEtgId_
}
etgProFileId :: Lens' EventTagsGet Int64
etgProFileId
= lens _etgProFileId (\ s a -> s{_etgProFileId = a})
. _Coerce
etgId :: Lens' EventTagsGet Int64
etgId
= lens _etgId (\ s a -> s{_etgId = a}) . _Coerce
instance GoogleRequest EventTagsGet where
type Rs EventTagsGet = EventTag
type Scopes EventTagsGet =
'["https://www.googleapis.com/auth/dfatrafficking"]
requestClient EventTagsGet'{..}
= go _etgProFileId _etgId (Just AltJSON)
dFAReportingService
where go
= buildClient (Proxy :: Proxy EventTagsGetResource)
mempty