{-# 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.ChangeLogs.List
(
ChangeLogsListResource
, changeLogsList
, ChangeLogsList
, cllUserProFileIds
, cllObjectType
, cllSearchString
, cllIds
, cllProFileId
, cllAction
, cllMinChangeTime
, cllMaxChangeTime
, cllPageToken
, cllObjectIds
, cllMaxResults
) where
import Network.Google.DFAReporting.Types
import Network.Google.Prelude
type ChangeLogsListResource =
"dfareporting" :>
"v3.2" :>
"userprofiles" :>
Capture "profileId" (Textual Int64) :>
"changeLogs" :>
QueryParams "userProfileIds" (Textual Int64) :>
QueryParam "objectType" ChangeLogsListObjectType :>
QueryParam "searchString" Text :>
QueryParams "ids" (Textual Int64) :>
QueryParam "action" ChangeLogsListAction :>
QueryParam "minChangeTime" Text :>
QueryParam "maxChangeTime" Text :>
QueryParam "pageToken" Text :>
QueryParams "objectIds" (Textual Int64) :>
QueryParam "maxResults" (Textual Int32) :>
QueryParam "alt" AltJSON :>
Get '[JSON] ChangeLogsListResponse
data ChangeLogsList = ChangeLogsList'
{ _cllUserProFileIds :: !(Maybe [Textual Int64])
, _cllObjectType :: !(Maybe ChangeLogsListObjectType)
, _cllSearchString :: !(Maybe Text)
, _cllIds :: !(Maybe [Textual Int64])
, _cllProFileId :: !(Textual Int64)
, _cllAction :: !(Maybe ChangeLogsListAction)
, _cllMinChangeTime :: !(Maybe Text)
, _cllMaxChangeTime :: !(Maybe Text)
, _cllPageToken :: !(Maybe Text)
, _cllObjectIds :: !(Maybe [Textual Int64])
, _cllMaxResults :: !(Textual Int32)
} deriving (Eq,Show,Data,Typeable,Generic)
changeLogsList
:: Int64
-> ChangeLogsList
changeLogsList pCllProFileId_ =
ChangeLogsList'
{ _cllUserProFileIds = Nothing
, _cllObjectType = Nothing
, _cllSearchString = Nothing
, _cllIds = Nothing
, _cllProFileId = _Coerce # pCllProFileId_
, _cllAction = Nothing
, _cllMinChangeTime = Nothing
, _cllMaxChangeTime = Nothing
, _cllPageToken = Nothing
, _cllObjectIds = Nothing
, _cllMaxResults = 1000
}
cllUserProFileIds :: Lens' ChangeLogsList [Int64]
cllUserProFileIds
= lens _cllUserProFileIds
(\ s a -> s{_cllUserProFileIds = a})
. _Default
. _Coerce
cllObjectType :: Lens' ChangeLogsList (Maybe ChangeLogsListObjectType)
cllObjectType
= lens _cllObjectType
(\ s a -> s{_cllObjectType = a})
cllSearchString :: Lens' ChangeLogsList (Maybe Text)
cllSearchString
= lens _cllSearchString
(\ s a -> s{_cllSearchString = a})
cllIds :: Lens' ChangeLogsList [Int64]
cllIds
= lens _cllIds (\ s a -> s{_cllIds = a}) . _Default .
_Coerce
cllProFileId :: Lens' ChangeLogsList Int64
cllProFileId
= lens _cllProFileId (\ s a -> s{_cllProFileId = a})
. _Coerce
cllAction :: Lens' ChangeLogsList (Maybe ChangeLogsListAction)
cllAction
= lens _cllAction (\ s a -> s{_cllAction = a})
cllMinChangeTime :: Lens' ChangeLogsList (Maybe Text)
cllMinChangeTime
= lens _cllMinChangeTime
(\ s a -> s{_cllMinChangeTime = a})
cllMaxChangeTime :: Lens' ChangeLogsList (Maybe Text)
cllMaxChangeTime
= lens _cllMaxChangeTime
(\ s a -> s{_cllMaxChangeTime = a})
cllPageToken :: Lens' ChangeLogsList (Maybe Text)
cllPageToken
= lens _cllPageToken (\ s a -> s{_cllPageToken = a})
cllObjectIds :: Lens' ChangeLogsList [Int64]
cllObjectIds
= lens _cllObjectIds (\ s a -> s{_cllObjectIds = a})
. _Default
. _Coerce
cllMaxResults :: Lens' ChangeLogsList Int32
cllMaxResults
= lens _cllMaxResults
(\ s a -> s{_cllMaxResults = a})
. _Coerce
instance GoogleRequest ChangeLogsList where
type Rs ChangeLogsList = ChangeLogsListResponse
type Scopes ChangeLogsList =
'["https://www.googleapis.com/auth/dfatrafficking"]
requestClient ChangeLogsList'{..}
= go _cllProFileId (_cllUserProFileIds ^. _Default)
_cllObjectType
_cllSearchString
(_cllIds ^. _Default)
_cllAction
_cllMinChangeTime
_cllMaxChangeTime
_cllPageToken
(_cllObjectIds ^. _Default)
(Just _cllMaxResults)
(Just AltJSON)
dFAReportingService
where go
= buildClient (Proxy :: Proxy ChangeLogsListResource)
mempty