{-# 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.ProFileFilterLinks.List
(
ManagementProFileFilterLinksListResource
, managementProFileFilterLinksList
, ManagementProFileFilterLinksList
, mpffllWebPropertyId
, mpffllProFileId
, mpffllAccountId
, mpffllStartIndex
, mpffllMaxResults
) where
import Network.Google.Analytics.Types
import Network.Google.Prelude
type ManagementProFileFilterLinksListResource =
"analytics" :>
"v3" :>
"management" :>
"accounts" :>
Capture "accountId" Text :>
"webproperties" :>
Capture "webPropertyId" Text :>
"profiles" :>
Capture "profileId" Text :>
"profileFilterLinks" :>
QueryParam "start-index" (Textual Int32) :>
QueryParam "max-results" (Textual Int32) :>
QueryParam "alt" AltJSON :>
Get '[JSON] ProFileFilterLinks
data ManagementProFileFilterLinksList =
ManagementProFileFilterLinksList'
{ _mpffllWebPropertyId :: !Text
, _mpffllProFileId :: !Text
, _mpffllAccountId :: !Text
, _mpffllStartIndex :: !(Maybe (Textual Int32))
, _mpffllMaxResults :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
managementProFileFilterLinksList
:: Text
-> Text
-> Text
-> ManagementProFileFilterLinksList
managementProFileFilterLinksList pMpffllWebPropertyId_ pMpffllProFileId_ pMpffllAccountId_ =
ManagementProFileFilterLinksList'
{ _mpffllWebPropertyId = pMpffllWebPropertyId_
, _mpffllProFileId = pMpffllProFileId_
, _mpffllAccountId = pMpffllAccountId_
, _mpffllStartIndex = Nothing
, _mpffllMaxResults = Nothing
}
mpffllWebPropertyId :: Lens' ManagementProFileFilterLinksList Text
mpffllWebPropertyId
= lens _mpffllWebPropertyId
(\ s a -> s{_mpffllWebPropertyId = a})
mpffllProFileId :: Lens' ManagementProFileFilterLinksList Text
mpffllProFileId
= lens _mpffllProFileId
(\ s a -> s{_mpffllProFileId = a})
mpffllAccountId :: Lens' ManagementProFileFilterLinksList Text
mpffllAccountId
= lens _mpffllAccountId
(\ s a -> s{_mpffllAccountId = a})
mpffllStartIndex :: Lens' ManagementProFileFilterLinksList (Maybe Int32)
mpffllStartIndex
= lens _mpffllStartIndex
(\ s a -> s{_mpffllStartIndex = a})
. mapping _Coerce
mpffllMaxResults :: Lens' ManagementProFileFilterLinksList (Maybe Int32)
mpffllMaxResults
= lens _mpffllMaxResults
(\ s a -> s{_mpffllMaxResults = a})
. mapping _Coerce
instance GoogleRequest
ManagementProFileFilterLinksList
where
type Rs ManagementProFileFilterLinksList =
ProFileFilterLinks
type Scopes ManagementProFileFilterLinksList =
'["https://www.googleapis.com/auth/analytics.edit",
"https://www.googleapis.com/auth/analytics.readonly"]
requestClient ManagementProFileFilterLinksList'{..}
= go _mpffllAccountId _mpffllWebPropertyId
_mpffllProFileId
_mpffllStartIndex
_mpffllMaxResults
(Just AltJSON)
analyticsService
where go
= buildClient
(Proxy ::
Proxy ManagementProFileFilterLinksListResource)
mempty