{-# 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.RemarketingAudience.Get
(
ManagementRemarketingAudienceGetResource
, managementRemarketingAudienceGet
, ManagementRemarketingAudienceGet
, mragWebPropertyId
, mragAccountId
, mragRemarketingAudienceId
) where
import Network.Google.Analytics.Types
import Network.Google.Prelude
type ManagementRemarketingAudienceGetResource =
"analytics" :>
"v3" :>
"management" :>
"accounts" :>
Capture "accountId" Text :>
"webproperties" :>
Capture "webPropertyId" Text :>
"remarketingAudiences" :>
Capture "remarketingAudienceId" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] RemarketingAudience
data ManagementRemarketingAudienceGet = ManagementRemarketingAudienceGet'
{ _mragWebPropertyId :: !Text
, _mragAccountId :: !Text
, _mragRemarketingAudienceId :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
managementRemarketingAudienceGet
:: Text
-> Text
-> Text
-> ManagementRemarketingAudienceGet
managementRemarketingAudienceGet pMragWebPropertyId_ pMragAccountId_ pMragRemarketingAudienceId_ =
ManagementRemarketingAudienceGet'
{ _mragWebPropertyId = pMragWebPropertyId_
, _mragAccountId = pMragAccountId_
, _mragRemarketingAudienceId = pMragRemarketingAudienceId_
}
mragWebPropertyId :: Lens' ManagementRemarketingAudienceGet Text
mragWebPropertyId
= lens _mragWebPropertyId
(\ s a -> s{_mragWebPropertyId = a})
mragAccountId :: Lens' ManagementRemarketingAudienceGet Text
mragAccountId
= lens _mragAccountId
(\ s a -> s{_mragAccountId = a})
mragRemarketingAudienceId :: Lens' ManagementRemarketingAudienceGet Text
mragRemarketingAudienceId
= lens _mragRemarketingAudienceId
(\ s a -> s{_mragRemarketingAudienceId = a})
instance GoogleRequest
ManagementRemarketingAudienceGet where
type Rs ManagementRemarketingAudienceGet =
RemarketingAudience
type Scopes ManagementRemarketingAudienceGet =
'["https://www.googleapis.com/auth/analytics.edit",
"https://www.googleapis.com/auth/analytics.readonly"]
requestClient ManagementRemarketingAudienceGet'{..}
= go _mragAccountId _mragWebPropertyId
_mragRemarketingAudienceId
(Just AltJSON)
analyticsService
where go
= buildClient
(Proxy ::
Proxy ManagementRemarketingAudienceGetResource)
mempty