module Network.Google.Resource.Analytics.Management.Filters.List
(
ManagementFiltersListResource
, managementFiltersList
, ManagementFiltersList
, mflAccountId
, mflStartIndex
, mflMaxResults
) where
import Network.Google.Analytics.Types
import Network.Google.Prelude
type ManagementFiltersListResource =
"analytics" :>
"v3" :>
"management" :>
"accounts" :>
Capture "accountId" Text :>
"filters" :>
QueryParam "start-index" (Textual Int32) :>
QueryParam "max-results" (Textual Int32) :>
QueryParam "alt" AltJSON :> Get '[JSON] Filters
data ManagementFiltersList = ManagementFiltersList'
{ _mflAccountId :: !Text
, _mflStartIndex :: !(Maybe (Textual Int32))
, _mflMaxResults :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
managementFiltersList
:: Text
-> ManagementFiltersList
managementFiltersList pMflAccountId_ =
ManagementFiltersList'
{ _mflAccountId = pMflAccountId_
, _mflStartIndex = Nothing
, _mflMaxResults = Nothing
}
mflAccountId :: Lens' ManagementFiltersList Text
mflAccountId
= lens _mflAccountId (\ s a -> s{_mflAccountId = a})
mflStartIndex :: Lens' ManagementFiltersList (Maybe Int32)
mflStartIndex
= lens _mflStartIndex
(\ s a -> s{_mflStartIndex = a})
. mapping _Coerce
mflMaxResults :: Lens' ManagementFiltersList (Maybe Int32)
mflMaxResults
= lens _mflMaxResults
(\ s a -> s{_mflMaxResults = a})
. mapping _Coerce
instance GoogleRequest ManagementFiltersList where
type Rs ManagementFiltersList = Filters
type Scopes ManagementFiltersList =
'["https://www.googleapis.com/auth/analytics.edit",
"https://www.googleapis.com/auth/analytics.readonly"]
requestClient ManagementFiltersList'{..}
= go _mflAccountId _mflStartIndex _mflMaxResults
(Just AltJSON)
analyticsService
where go
= buildClient
(Proxy :: Proxy ManagementFiltersListResource)
mempty