module Network.Google.Resource.DFAReporting.SubAccounts.List
(
SubAccountsListResource
, subAccountsList
, SubAccountsList
, salSearchString
, salIds
, salProFileId
, salSortOrder
, salPageToken
, salSortField
, salMaxResults
) where
import Network.Google.DFAReporting.Types
import Network.Google.Prelude
type SubAccountsListResource =
"dfareporting" :>
"v2.7" :>
"userprofiles" :>
Capture "profileId" (Textual Int64) :>
"subaccounts" :>
QueryParam "searchString" Text :>
QueryParams "ids" (Textual Int64) :>
QueryParam "sortOrder" SubAccountsListSortOrder :>
QueryParam "pageToken" Text :>
QueryParam "sortField" SubAccountsListSortField :>
QueryParam "maxResults" (Textual Int32) :>
QueryParam "alt" AltJSON :>
Get '[JSON] SubAccountsListResponse
data SubAccountsList = SubAccountsList'
{ _salSearchString :: !(Maybe Text)
, _salIds :: !(Maybe [Textual Int64])
, _salProFileId :: !(Textual Int64)
, _salSortOrder :: !(Maybe SubAccountsListSortOrder)
, _salPageToken :: !(Maybe Text)
, _salSortField :: !(Maybe SubAccountsListSortField)
, _salMaxResults :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
subAccountsList
:: Int64
-> SubAccountsList
subAccountsList pSalProFileId_ =
SubAccountsList'
{ _salSearchString = Nothing
, _salIds = Nothing
, _salProFileId = _Coerce # pSalProFileId_
, _salSortOrder = Nothing
, _salPageToken = Nothing
, _salSortField = Nothing
, _salMaxResults = Nothing
}
salSearchString :: Lens' SubAccountsList (Maybe Text)
salSearchString
= lens _salSearchString
(\ s a -> s{_salSearchString = a})
salIds :: Lens' SubAccountsList [Int64]
salIds
= lens _salIds (\ s a -> s{_salIds = a}) . _Default .
_Coerce
salProFileId :: Lens' SubAccountsList Int64
salProFileId
= lens _salProFileId (\ s a -> s{_salProFileId = a})
. _Coerce
salSortOrder :: Lens' SubAccountsList (Maybe SubAccountsListSortOrder)
salSortOrder
= lens _salSortOrder (\ s a -> s{_salSortOrder = a})
salPageToken :: Lens' SubAccountsList (Maybe Text)
salPageToken
= lens _salPageToken (\ s a -> s{_salPageToken = a})
salSortField :: Lens' SubAccountsList (Maybe SubAccountsListSortField)
salSortField
= lens _salSortField (\ s a -> s{_salSortField = a})
salMaxResults :: Lens' SubAccountsList (Maybe Int32)
salMaxResults
= lens _salMaxResults
(\ s a -> s{_salMaxResults = a})
. mapping _Coerce
instance GoogleRequest SubAccountsList where
type Rs SubAccountsList = SubAccountsListResponse
type Scopes SubAccountsList =
'["https://www.googleapis.com/auth/dfatrafficking"]
requestClient SubAccountsList'{..}
= go _salProFileId _salSearchString
(_salIds ^. _Default)
_salSortOrder
_salPageToken
_salSortField
_salMaxResults
(Just AltJSON)
dFAReportingService
where go
= buildClient
(Proxy :: Proxy SubAccountsListResource)
mempty