module Network.Google.Resource.DFAReporting.CreativeFieldValues.List
(
CreativeFieldValuesListResource
, creativeFieldValuesList
, CreativeFieldValuesList
, cfvlCreativeFieldId
, cfvlSearchString
, cfvlIds
, cfvlProFileId
, cfvlSortOrder
, cfvlPageToken
, cfvlSortField
, cfvlMaxResults
) where
import Network.Google.DFAReporting.Types
import Network.Google.Prelude
type CreativeFieldValuesListResource =
"dfareporting" :>
"v2.5" :>
"userprofiles" :>
Capture "profileId" (Textual Int64) :>
"creativeFields" :>
Capture "creativeFieldId" (Textual Int64) :>
"creativeFieldValues" :>
QueryParam "searchString" Text :>
QueryParams "ids" (Textual Int64) :>
QueryParam "sortOrder"
CreativeFieldValuesListSortOrder
:>
QueryParam "pageToken" Text :>
QueryParam "sortField"
CreativeFieldValuesListSortField
:>
QueryParam "maxResults" (Textual Int32) :>
QueryParam "alt" AltJSON :>
Get '[JSON] CreativeFieldValuesListResponse
data CreativeFieldValuesList = CreativeFieldValuesList'
{ _cfvlCreativeFieldId :: !(Textual Int64)
, _cfvlSearchString :: !(Maybe Text)
, _cfvlIds :: !(Maybe [Textual Int64])
, _cfvlProFileId :: !(Textual Int64)
, _cfvlSortOrder :: !(Maybe CreativeFieldValuesListSortOrder)
, _cfvlPageToken :: !(Maybe Text)
, _cfvlSortField :: !(Maybe CreativeFieldValuesListSortField)
, _cfvlMaxResults :: !(Maybe (Textual Int32))
} deriving (Eq,Show,Data,Typeable,Generic)
creativeFieldValuesList
:: Int64
-> Int64
-> CreativeFieldValuesList
creativeFieldValuesList pCfvlCreativeFieldId_ pCfvlProFileId_ =
CreativeFieldValuesList'
{ _cfvlCreativeFieldId = _Coerce # pCfvlCreativeFieldId_
, _cfvlSearchString = Nothing
, _cfvlIds = Nothing
, _cfvlProFileId = _Coerce # pCfvlProFileId_
, _cfvlSortOrder = Nothing
, _cfvlPageToken = Nothing
, _cfvlSortField = Nothing
, _cfvlMaxResults = Nothing
}
cfvlCreativeFieldId :: Lens' CreativeFieldValuesList Int64
cfvlCreativeFieldId
= lens _cfvlCreativeFieldId
(\ s a -> s{_cfvlCreativeFieldId = a})
. _Coerce
cfvlSearchString :: Lens' CreativeFieldValuesList (Maybe Text)
cfvlSearchString
= lens _cfvlSearchString
(\ s a -> s{_cfvlSearchString = a})
cfvlIds :: Lens' CreativeFieldValuesList [Int64]
cfvlIds
= lens _cfvlIds (\ s a -> s{_cfvlIds = a}) . _Default
. _Coerce
cfvlProFileId :: Lens' CreativeFieldValuesList Int64
cfvlProFileId
= lens _cfvlProFileId
(\ s a -> s{_cfvlProFileId = a})
. _Coerce
cfvlSortOrder :: Lens' CreativeFieldValuesList (Maybe CreativeFieldValuesListSortOrder)
cfvlSortOrder
= lens _cfvlSortOrder
(\ s a -> s{_cfvlSortOrder = a})
cfvlPageToken :: Lens' CreativeFieldValuesList (Maybe Text)
cfvlPageToken
= lens _cfvlPageToken
(\ s a -> s{_cfvlPageToken = a})
cfvlSortField :: Lens' CreativeFieldValuesList (Maybe CreativeFieldValuesListSortField)
cfvlSortField
= lens _cfvlSortField
(\ s a -> s{_cfvlSortField = a})
cfvlMaxResults :: Lens' CreativeFieldValuesList (Maybe Int32)
cfvlMaxResults
= lens _cfvlMaxResults
(\ s a -> s{_cfvlMaxResults = a})
. mapping _Coerce
instance GoogleRequest CreativeFieldValuesList where
type Rs CreativeFieldValuesList =
CreativeFieldValuesListResponse
type Scopes CreativeFieldValuesList =
'["https://www.googleapis.com/auth/dfatrafficking"]
requestClient CreativeFieldValuesList'{..}
= go _cfvlProFileId _cfvlCreativeFieldId
_cfvlSearchString
(_cfvlIds ^. _Default)
_cfvlSortOrder
_cfvlPageToken
_cfvlSortField
_cfvlMaxResults
(Just AltJSON)
dFAReportingService
where go
= buildClient
(Proxy :: Proxy CreativeFieldValuesListResource)
mempty