diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.1.0` +`0.1.1` ## Description diff --git a/gen/Network/Google/DFAReporting.hs b/gen/Network/Google/DFAReporting.hs --- a/gen/Network/Google/DFAReporting.hs +++ b/gen/Network/Google/DFAReporting.hs @@ -15,7 +15,7 @@ -- -- Manages your DoubleClick Campaign Manager ad campaigns and reports. -- --- /See:/ +-- /See:/ module Network.Google.DFAReporting ( -- * Service Configuration @@ -379,6 +379,9 @@ -- ** dfareporting.landingPages.update , module Network.Google.Resource.DFAReporting.LandingPages.Update + -- ** dfareporting.languages.list + , module Network.Google.Resource.DFAReporting.Languages.List + -- ** dfareporting.metros.list , module Network.Google.Resource.DFAReporting.Metros.List @@ -583,6 +586,21 @@ -- ** dfareporting.targetableRemarketingLists.list , module Network.Google.Resource.DFAReporting.TargetableRemarketingLists.List + -- ** dfareporting.targetingTemplates.get + , module Network.Google.Resource.DFAReporting.TargetingTemplates.Get + + -- ** dfareporting.targetingTemplates.insert + , module Network.Google.Resource.DFAReporting.TargetingTemplates.Insert + + -- ** dfareporting.targetingTemplates.list + , module Network.Google.Resource.DFAReporting.TargetingTemplates.List + + -- ** dfareporting.targetingTemplates.patch + , module Network.Google.Resource.DFAReporting.TargetingTemplates.Patch + + -- ** dfareporting.targetingTemplates.update + , module Network.Google.Resource.DFAReporting.TargetingTemplates.Update + -- ** dfareporting.userProfiles.get , module Network.Google.Resource.DFAReporting.UserProFiles.Get @@ -641,6 +659,9 @@ , flKind , flItems + -- ** TargetingTemplatesListSortOrder + , TargetingTemplatesListSortOrder (..) + -- ** OptimizationActivity , OptimizationActivity , optimizationActivity @@ -1106,6 +1127,7 @@ -- ** Ad , Ad , ad + , aTargetingTemplateId , aCreativeGroupAssignments , aGeoTargeting , aCreativeRotation @@ -1138,6 +1160,7 @@ , aSubAccountId , aType , aRemarketingListExpression + , aLanguageTargeting , aDynamicClickTracker , aCompatibility , aArchived @@ -1171,6 +1194,7 @@ , pId , pAudienceAgeGroup , pSubAccountId + , pTargetCpmActiveViewNanos , pAudienceGender , pClientName , pTargetCpaNanos @@ -1291,6 +1315,9 @@ -- ** AdvertisersListSortOrder , AdvertisersListSortOrder (..) + -- ** TargetingTemplatesListSortField + , TargetingTemplatesListSortField (..) + -- ** CreativeFieldsListSortField , CreativeFieldsListSortField (..) @@ -1364,6 +1391,12 @@ , crmeKind , crmeFilteredEventIds + -- ** LanguagesListResponse + , LanguagesListResponse + , languagesListResponse + , llrKind + , llrLanguages + -- ** UserRolesListSortOrder , UserRolesListSortOrder (..) @@ -1523,6 +1556,7 @@ , creVersion , creLatestTraffickedCreativeId , creThirdPartyRichMediaImpressionsURL + , creDynamicAssetSelection , creLastModifiedInfo , creId , creAuthoringSource @@ -1531,6 +1565,7 @@ , creSubAccountId , creType , creTimerCustomEvents + , creCreativeAssetSelection , creStudioCreativeId , creCompatibility , creBackupImageFeatures @@ -1601,6 +1636,13 @@ -- ** PlacementPaymentSource , PlacementPaymentSource (..) + -- ** Rule + , Rule + , rule + , rulTargetingTemplateId + , rulName + , rulAssetId + -- ** ReportsFilesListSortOrder , ReportsFilesListSortOrder (..) @@ -1620,7 +1662,6 @@ , camLookbackConfiguration , camStartDate , camAccountId - , camComscoreVceEnabled , camName , camAdvertiserGroupId , camBillingInvoiceCode @@ -1757,8 +1798,8 @@ , aaActive , aaAvailablePermissionIds , aaTeaserSizeLimit - , aaComscoreVceEnabled , aaActiveViewOptOut + , aaShareReportsWithTwitter , aaName , aaAccountProFile , aaId @@ -2339,6 +2380,14 @@ , chaSubAccountId , chaChangeTime + -- ** Language + , Language + , language + , lLanguageCode + , lKind + , lName + , lId + -- ** CreativesListSortField , CreativesListSortField (..) @@ -2617,6 +2666,7 @@ -- ** Conversion , Conversion , conversion + , conoEncryptedUserIdCandidates , conoTimestampMicros , conoLimitAdTracking , conoEncryptedUserId @@ -2643,9 +2693,9 @@ -- ** RichMediaExitOverride , RichMediaExitOverride , richMediaExitOverride - , rmeoUseCustomExitURL + , rmeoEnabled + , rmeoClickThroughURL , rmeoExitId - , rmeoCustomExitURL -- ** AdvertisersListStatus , AdvertisersListStatus (..) @@ -2670,6 +2720,13 @@ , cflrKind , cflrCreativeFields + -- ** TargetingTemplatesListResponse + , TargetingTemplatesListResponse + , targetingTemplatesListResponse + , ttlrNextPageToken + , ttlrKind + , ttlrTargetingTemplates + -- ** PlacementsGenerateTagsResponse , PlacementsGenerateTagsResponse , placementsGenerateTagsResponse @@ -2696,8 +2753,10 @@ , caaSSLCompliant , caaFileSize , caaAssetIdentifier + , caaCompanionCreativeIds , caaDurationType , caaProgressiveServingURL + , caaIdDimensionValue , caaActive , caaRole , caaMimeType @@ -2728,6 +2787,17 @@ -- ** CreativeFieldValuesListSortField , CreativeFieldValuesListSortField (..) + -- ** LanguageTargeting + , LanguageTargeting + , languageTargeting + , ltLanguages + + -- ** CreativeAssetSelection + , CreativeAssetSelection + , creativeAssetSelection + , casRules + , casDefaultAssetId + -- ** PlacementsListResponse , PlacementsListResponse , placementsListResponse @@ -2973,8 +3043,10 @@ , creativeAssetMetadata , camaKind , camaAssetIdentifier + , camaIdDimensionValue , camaClickTags , camaWarnedValidationRules + , camaId , camaDetectedFeatures -- ** OmnitureSettings @@ -3195,6 +3267,23 @@ -- ** ContentCategoriesListSortOrder , ContentCategoriesListSortOrder (..) + -- ** TargetingTemplate + , TargetingTemplate + , targetingTemplate + , ttGeoTargeting + , ttTechnologyTargeting + , ttDayPartTargeting + , ttKind + , ttAdvertiserId + , ttAdvertiserIdDimensionValue + , ttAccountId + , ttName + , ttKeyValueTargetingExpression + , ttId + , ttSubAccountId + , ttLanguageTargeting + , ttListTargetingExpression + -- ** CreativeField , CreativeField , creativeField @@ -3339,6 +3428,7 @@ import Network.Google.Resource.DFAReporting.LandingPages.List import Network.Google.Resource.DFAReporting.LandingPages.Patch import Network.Google.Resource.DFAReporting.LandingPages.Update +import Network.Google.Resource.DFAReporting.Languages.List import Network.Google.Resource.DFAReporting.Metros.List import Network.Google.Resource.DFAReporting.MobileCarriers.Get import Network.Google.Resource.DFAReporting.MobileCarriers.List @@ -3407,6 +3497,11 @@ import Network.Google.Resource.DFAReporting.SubAccounts.Update import Network.Google.Resource.DFAReporting.TargetableRemarketingLists.Get import Network.Google.Resource.DFAReporting.TargetableRemarketingLists.List +import Network.Google.Resource.DFAReporting.TargetingTemplates.Get +import Network.Google.Resource.DFAReporting.TargetingTemplates.Insert +import Network.Google.Resource.DFAReporting.TargetingTemplates.List +import Network.Google.Resource.DFAReporting.TargetingTemplates.Patch +import Network.Google.Resource.DFAReporting.TargetingTemplates.Update import Network.Google.Resource.DFAReporting.UserProFiles.Get import Network.Google.Resource.DFAReporting.UserProFiles.List import Network.Google.Resource.DFAReporting.UserRolePermissionGroups.Get @@ -3530,6 +3625,7 @@ :<|> ChangeLogsListResource :<|> ChangeLogsGetResource :<|> CitiesListResource + :<|> LanguagesListResource :<|> TargetableRemarketingListsListResource :<|> TargetableRemarketingListsGetResource :<|> PlatformTypesListResource @@ -3556,6 +3652,11 @@ :<|> CreativeFieldsGetResource :<|> CreativeFieldsDeleteResource :<|> CreativeFieldsUpdateResource + :<|> TargetingTemplatesInsertResource + :<|> TargetingTemplatesListResource + :<|> TargetingTemplatesPatchResource + :<|> TargetingTemplatesGetResource + :<|> TargetingTemplatesUpdateResource :<|> EventTagsInsertResource :<|> EventTagsListResource :<|> EventTagsPatchResource diff --git a/gen/Network/Google/DFAReporting/Types.hs b/gen/Network/Google/DFAReporting/Types.hs --- a/gen/Network/Google/DFAReporting/Types.hs +++ b/gen/Network/Google/DFAReporting/Types.hs @@ -44,6 +44,9 @@ , flKind , flItems + -- * TargetingTemplatesListSortOrder + , TargetingTemplatesListSortOrder (..) + -- * OptimizationActivity , OptimizationActivity , optimizationActivity @@ -509,6 +512,7 @@ -- * Ad , Ad , ad + , aTargetingTemplateId , aCreativeGroupAssignments , aGeoTargeting , aCreativeRotation @@ -541,6 +545,7 @@ , aSubAccountId , aType , aRemarketingListExpression + , aLanguageTargeting , aDynamicClickTracker , aCompatibility , aArchived @@ -574,6 +579,7 @@ , pId , pAudienceAgeGroup , pSubAccountId + , pTargetCpmActiveViewNanos , pAudienceGender , pClientName , pTargetCpaNanos @@ -694,6 +700,9 @@ -- * AdvertisersListSortOrder , AdvertisersListSortOrder (..) + -- * TargetingTemplatesListSortField + , TargetingTemplatesListSortField (..) + -- * CreativeFieldsListSortField , CreativeFieldsListSortField (..) @@ -767,6 +776,12 @@ , crmeKind , crmeFilteredEventIds + -- * LanguagesListResponse + , LanguagesListResponse + , languagesListResponse + , llrKind + , llrLanguages + -- * UserRolesListSortOrder , UserRolesListSortOrder (..) @@ -926,6 +941,7 @@ , creVersion , creLatestTraffickedCreativeId , creThirdPartyRichMediaImpressionsURL + , creDynamicAssetSelection , creLastModifiedInfo , creId , creAuthoringSource @@ -934,6 +950,7 @@ , creSubAccountId , creType , creTimerCustomEvents + , creCreativeAssetSelection , creStudioCreativeId , creCompatibility , creBackupImageFeatures @@ -1004,6 +1021,13 @@ -- * PlacementPaymentSource , PlacementPaymentSource (..) + -- * Rule + , Rule + , rule + , rulTargetingTemplateId + , rulName + , rulAssetId + -- * ReportsFilesListSortOrder , ReportsFilesListSortOrder (..) @@ -1023,7 +1047,6 @@ , camLookbackConfiguration , camStartDate , camAccountId - , camComscoreVceEnabled , camName , camAdvertiserGroupId , camBillingInvoiceCode @@ -1160,8 +1183,8 @@ , aaActive , aaAvailablePermissionIds , aaTeaserSizeLimit - , aaComscoreVceEnabled , aaActiveViewOptOut + , aaShareReportsWithTwitter , aaName , aaAccountProFile , aaId @@ -1742,6 +1765,14 @@ , chaSubAccountId , chaChangeTime + -- * Language + , Language + , language + , lLanguageCode + , lKind + , lName + , lId + -- * CreativesListSortField , CreativesListSortField (..) @@ -2020,6 +2051,7 @@ -- * Conversion , Conversion , conversion + , conoEncryptedUserIdCandidates , conoTimestampMicros , conoLimitAdTracking , conoEncryptedUserId @@ -2046,9 +2078,9 @@ -- * RichMediaExitOverride , RichMediaExitOverride , richMediaExitOverride - , rmeoUseCustomExitURL + , rmeoEnabled + , rmeoClickThroughURL , rmeoExitId - , rmeoCustomExitURL -- * AdvertisersListStatus , AdvertisersListStatus (..) @@ -2073,6 +2105,13 @@ , cflrKind , cflrCreativeFields + -- * TargetingTemplatesListResponse + , TargetingTemplatesListResponse + , targetingTemplatesListResponse + , ttlrNextPageToken + , ttlrKind + , ttlrTargetingTemplates + -- * PlacementsGenerateTagsResponse , PlacementsGenerateTagsResponse , placementsGenerateTagsResponse @@ -2099,8 +2138,10 @@ , caaSSLCompliant , caaFileSize , caaAssetIdentifier + , caaCompanionCreativeIds , caaDurationType , caaProgressiveServingURL + , caaIdDimensionValue , caaActive , caaRole , caaMimeType @@ -2131,6 +2172,17 @@ -- * CreativeFieldValuesListSortField , CreativeFieldValuesListSortField (..) + -- * LanguageTargeting + , LanguageTargeting + , languageTargeting + , ltLanguages + + -- * CreativeAssetSelection + , CreativeAssetSelection + , creativeAssetSelection + , casRules + , casDefaultAssetId + -- * PlacementsListResponse , PlacementsListResponse , placementsListResponse @@ -2376,8 +2428,10 @@ , creativeAssetMetadata , camaKind , camaAssetIdentifier + , camaIdDimensionValue , camaClickTags , camaWarnedValidationRules + , camaId , camaDetectedFeatures -- * OmnitureSettings @@ -2598,6 +2652,23 @@ -- * ContentCategoriesListSortOrder , ContentCategoriesListSortOrder (..) + -- * TargetingTemplate + , TargetingTemplate + , targetingTemplate + , ttGeoTargeting + , ttTechnologyTargeting + , ttDayPartTargeting + , ttKind + , ttAdvertiserId + , ttAdvertiserIdDimensionValue + , ttAccountId + , ttName + , ttKeyValueTargetingExpression + , ttId + , ttSubAccountId + , ttLanguageTargeting + , ttListTargetingExpression + -- * CreativeField , CreativeField , creativeField @@ -2628,10 +2699,10 @@ import Network.Google.DFAReporting.Types.Sum import Network.Google.Prelude --- | Default request referring to version 'v2.5' of the DCM/DFA Reporting And Trafficking API. This contains the host and root path used as a starting point for constructing service requests. +-- | Default request referring to version 'v2.6' of the DCM/DFA Reporting And Trafficking API. This contains the host and root path used as a starting point for constructing service requests. dFAReportingService :: ServiceConfig dFAReportingService - = defaultService (ServiceId "dfareporting:v2.5") + = defaultService (ServiceId "dfareporting:v2.6") "www.googleapis.com" -- | View and manage DoubleClick for Advertisers reports diff --git a/gen/Network/Google/DFAReporting/Types/Product.hs b/gen/Network/Google/DFAReporting/Types/Product.hs --- a/gen/Network/Google/DFAReporting/Types/Product.hs +++ b/gen/Network/Google/DFAReporting/Types/Product.hs @@ -386,14 +386,15 @@ ctValue :: Lens' ClickTag (Maybe Text) ctValue = lens _ctValue (\ s a -> s{_ctValue = a}) --- | Parameter name for the specified click tag. For ENHANCED_IMAGE creative --- assets, this field must match the value of the creative asset\'s --- creativeAssetId.name field. +-- | Parameter name for the specified click tag. For DISPLAY_IMAGE_GALLERY +-- creative assets, this field must match the value of the creative +-- asset\'s creativeAssetId.name field. ctName :: Lens' ClickTag (Maybe Text) ctName = lens _ctName (\ s a -> s{_ctName = a}) -- | Advertiser event name associated with the click tag. This field is used --- by ENHANCED_BANNER, ENHANCED_IMAGE, and HTML5_BANNER creatives. +-- by DISPLAY_IMAGE_GALLERY and HTML5_BANNER creatives. Applicable to +-- DISPLAY when the primary asset type is not HTML_IMAGE. ctEventName :: Lens' ClickTag (Maybe Text) ctEventName = lens _ctEventName (\ s a -> s{_ctEventName = a}) @@ -1273,7 +1274,7 @@ -- | Browsers that this ad targets. For each browser either set -- browserVersionId or dartId along with the version numbers. If both are --- specified, only browserVersionId will be used.The other fields are +-- specified, only browserVersionId will be used. The other fields are -- populated automatically when the ad is inserted or updated. ttBrowsers :: Lens' TechnologyTargeting [Browser] ttBrowsers @@ -1282,7 +1283,7 @@ . _Coerce -- | Connection types that this ad targets. For each connection type only id --- is required.The other fields are populated automatically when the ad is +-- is required. The other fields are populated automatically when the ad is -- inserted or updated. ttConnectionTypes :: Lens' TechnologyTargeting [ConnectionType] ttConnectionTypes @@ -3917,7 +3918,8 @@ -- -- /See:/ 'ad' smart constructor. data Ad = Ad' - { _aCreativeGroupAssignments :: !(Maybe [CreativeGroupAssignment]) + { _aTargetingTemplateId :: !(Maybe (Textual Int64)) + , _aCreativeGroupAssignments :: !(Maybe [CreativeGroupAssignment]) , _aGeoTargeting :: !(Maybe GeoTargeting) , _aCreativeRotation :: !(Maybe CreativeRotation) , _aTechnologyTargeting :: !(Maybe TechnologyTargeting) @@ -3949,6 +3951,7 @@ , _aSubAccountId :: !(Maybe (Textual Int64)) , _aType :: !(Maybe AdType) , _aRemarketingListExpression :: !(Maybe ListTargetingExpression) + , _aLanguageTargeting :: !(Maybe LanguageTargeting) , _aDynamicClickTracker :: !(Maybe Bool) , _aCompatibility :: !(Maybe AdCompatibility) , _aArchived :: !(Maybe Bool) @@ -3960,6 +3963,8 @@ -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'aTargetingTemplateId' +-- -- * 'aCreativeGroupAssignments' -- -- * 'aGeoTargeting' @@ -4024,6 +4029,8 @@ -- -- * 'aRemarketingListExpression' -- +-- * 'aLanguageTargeting' +-- -- * 'aDynamicClickTracker' -- -- * 'aCompatibility' @@ -4037,7 +4044,8 @@ :: Ad ad = Ad' - { _aCreativeGroupAssignments = Nothing + { _aTargetingTemplateId = Nothing + , _aCreativeGroupAssignments = Nothing , _aGeoTargeting = Nothing , _aCreativeRotation = Nothing , _aTechnologyTargeting = Nothing @@ -4069,6 +4077,7 @@ , _aSubAccountId = Nothing , _aType = Nothing , _aRemarketingListExpression = Nothing + , _aLanguageTargeting = Nothing , _aDynamicClickTracker = Nothing , _aCompatibility = Nothing , _aArchived = Nothing @@ -4076,6 +4085,17 @@ , _aPlacementAssignments = Nothing } +-- | Targeting template ID, used to apply preconfigured targeting information +-- to this ad. This cannot be set while any of dayPartTargeting, +-- geoTargeting, keyValueTargetingExpression, languageTargeting, +-- remarketingListExpression, or technologyTargeting are set. Applicable +-- when type is AD_SERVING_STANDARD_AD. +aTargetingTemplateId :: Lens' Ad (Maybe Int64) +aTargetingTemplateId + = lens _aTargetingTemplateId + (\ s a -> s{_aTargetingTemplateId = a}) + . mapping _Coerce + -- | Creative group assignments for this ad. Applicable when type is -- AD_SERVING_CLICK_TRACKER. Only one assignment per creative group number -- is allowed for a maximum of two assignments. @@ -4086,7 +4106,8 @@ . _Default . _Coerce --- | Geographical targeting information for this ad.Applicable when type is +-- | Geographical targeting information for this ad. This field must be left +-- blank if the ad is using a targeting template. Applicable when type is -- AD_SERVING_STANDARD_AD. aGeoTargeting :: Lens' Ad (Maybe GeoTargeting) aGeoTargeting @@ -4102,7 +4123,8 @@ = lens _aCreativeRotation (\ s a -> s{_aCreativeRotation = a}) --- | Technology platform targeting information for this ad. Applicable when +-- | Technology platform targeting information for this ad. This field must +-- be left blank if the ad is using a targeting template. Applicable when -- type is AD_SERVING_STANDARD_AD. aTechnologyTargeting :: Lens' Ad (Maybe TechnologyTargeting) aTechnologyTargeting @@ -4117,7 +4139,8 @@ (\ s a -> s{_aAudienceSegmentId = a}) . mapping _Coerce --- | Time and day targeting information for this ad. Applicable when type is +-- | Time and day targeting information for this ad. This field must be left +-- blank if the ad is using a targeting template. Applicable when type is -- AD_SERVING_STANDARD_AD. aDayPartTargeting :: Lens' Ad (Maybe DayPartTargeting) aDayPartTargeting @@ -4228,7 +4251,8 @@ aName :: Lens' Ad (Maybe Text) aName = lens _aName (\ s a -> s{_aName = a}) --- | Key-value targeting information for this ad. Applicable when type is +-- | Key-value targeting information for this ad. This field must be left +-- blank if the ad is using a targeting template. Applicable when type is -- AD_SERVING_STANDARD_AD. aKeyValueTargetingExpression :: Lens' Ad (Maybe KeyValueTargetingExpression) aKeyValueTargetingExpression @@ -4242,7 +4266,7 @@ = lens _aEndTime (\ s a -> s{_aEndTime = a}) . mapping _DateTime --- | Information about the creation of this ad.This is a read-only field. +-- | Information about the creation of this ad. This is a read-only field. aCreateInfo :: Lens' Ad (Maybe LastModifiedInfo) aCreateInfo = lens _aCreateInfo (\ s a -> s{_aCreateInfo = a}) @@ -4284,13 +4308,22 @@ aType :: Lens' Ad (Maybe AdType) aType = lens _aType (\ s a -> s{_aType = a}) --- | Applicable when type is AD_SERVING_STANDARD_AD. Remarketing list --- targeting expression for this ad. +-- | Remarketing list targeting expression for this ad. This field must be +-- left blank if the ad is using a targeting template. Applicable when type +-- is AD_SERVING_STANDARD_AD. aRemarketingListExpression :: Lens' Ad (Maybe ListTargetingExpression) aRemarketingListExpression = lens _aRemarketingListExpression (\ s a -> s{_aRemarketingListExpression = a}) +-- | Language targeting information for this ad. This field must be left +-- blank if the ad is using a targeting template. Applicable when type is +-- AD_SERVING_STANDARD_AD. +aLanguageTargeting :: Lens' Ad (Maybe LanguageTargeting) +aLanguageTargeting + = lens _aLanguageTargeting + (\ s a -> s{_aLanguageTargeting = a}) + -- | Whether this ad is a dynamic click tracker. Applicable when type is -- AD_SERVING_CLICK_TRACKER. This is a required field on insert, and is -- read-only after insert. @@ -4337,8 +4370,9 @@ = withObject "Ad" (\ o -> Ad' <$> - (o .:? "creativeGroupAssignments" .!= mempty) <*> - (o .:? "geoTargeting") + (o .:? "targetingTemplateId") <*> + (o .:? "creativeGroupAssignments" .!= mempty) + <*> (o .:? "geoTargeting") <*> (o .:? "creativeRotation") <*> (o .:? "technologyTargeting") <*> (o .:? "audienceSegmentId") @@ -4369,6 +4403,7 @@ <*> (o .:? "subaccountId") <*> (o .:? "type") <*> (o .:? "remarketingListExpression") + <*> (o .:? "languageTargeting") <*> (o .:? "dynamicClickTracker") <*> (o .:? "compatibility") <*> (o .:? "archived") @@ -4379,7 +4414,9 @@ toJSON Ad'{..} = object (catMaybes - [("creativeGroupAssignments" .=) <$> + [("targetingTemplateId" .=) <$> + _aTargetingTemplateId, + ("creativeGroupAssignments" .=) <$> _aCreativeGroupAssignments, ("geoTargeting" .=) <$> _aGeoTargeting, ("creativeRotation" .=) <$> _aCreativeRotation, @@ -4417,6 +4454,7 @@ ("type" .=) <$> _aType, ("remarketingListExpression" .=) <$> _aRemarketingListExpression, + ("languageTargeting" .=) <$> _aLanguageTargeting, ("dynamicClickTracker" .=) <$> _aDynamicClickTracker, ("compatibility" .=) <$> _aCompatibility, ("archived" .=) <$> _aArchived, @@ -4429,27 +4467,28 @@ -- -- /See:/ 'project' smart constructor. data Project = Project' - { _pTargetClicks :: !(Maybe (Textual Int64)) - , _pClientBillingCode :: !(Maybe Text) - , _pTargetCpmNanos :: !(Maybe (Textual Int64)) - , _pTargetConversions :: !(Maybe (Textual Int64)) - , _pBudget :: !(Maybe (Textual Int64)) - , _pKind :: !Text - , _pAdvertiserId :: !(Maybe (Textual Int64)) - , _pEndDate :: !(Maybe Date') - , _pOverview :: !(Maybe Text) - , _pTargetImpressions :: !(Maybe (Textual Int64)) - , _pStartDate :: !(Maybe Date') - , _pTargetCpcNanos :: !(Maybe (Textual Int64)) - , _pAccountId :: !(Maybe (Textual Int64)) - , _pName :: !(Maybe Text) - , _pLastModifiedInfo :: !(Maybe LastModifiedInfo) - , _pId :: !(Maybe (Textual Int64)) - , _pAudienceAgeGroup :: !(Maybe ProjectAudienceAgeGroup) - , _pSubAccountId :: !(Maybe (Textual Int64)) - , _pAudienceGender :: !(Maybe ProjectAudienceGender) - , _pClientName :: !(Maybe Text) - , _pTargetCpaNanos :: !(Maybe (Textual Int64)) + { _pTargetClicks :: !(Maybe (Textual Int64)) + , _pClientBillingCode :: !(Maybe Text) + , _pTargetCpmNanos :: !(Maybe (Textual Int64)) + , _pTargetConversions :: !(Maybe (Textual Int64)) + , _pBudget :: !(Maybe (Textual Int64)) + , _pKind :: !Text + , _pAdvertiserId :: !(Maybe (Textual Int64)) + , _pEndDate :: !(Maybe Date') + , _pOverview :: !(Maybe Text) + , _pTargetImpressions :: !(Maybe (Textual Int64)) + , _pStartDate :: !(Maybe Date') + , _pTargetCpcNanos :: !(Maybe (Textual Int64)) + , _pAccountId :: !(Maybe (Textual Int64)) + , _pName :: !(Maybe Text) + , _pLastModifiedInfo :: !(Maybe LastModifiedInfo) + , _pId :: !(Maybe (Textual Int64)) + , _pAudienceAgeGroup :: !(Maybe ProjectAudienceAgeGroup) + , _pSubAccountId :: !(Maybe (Textual Int64)) + , _pTargetCpmActiveViewNanos :: !(Maybe (Textual Int64)) + , _pAudienceGender :: !(Maybe ProjectAudienceGender) + , _pClientName :: !(Maybe Text) + , _pTargetCpaNanos :: !(Maybe (Textual Int64)) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'Project' with the minimum fields required to make a request. @@ -4492,6 +4531,8 @@ -- -- * 'pSubAccountId' -- +-- * 'pTargetCpmActiveViewNanos' +-- -- * 'pAudienceGender' -- -- * 'pClientName' @@ -4519,6 +4560,7 @@ , _pId = Nothing , _pAudienceAgeGroup = Nothing , _pSubAccountId = Nothing + , _pTargetCpmActiveViewNanos = Nothing , _pAudienceGender = Nothing , _pClientName = Nothing , _pTargetCpaNanos = Nothing @@ -4637,6 +4679,13 @@ (\ s a -> s{_pSubAccountId = a}) . mapping _Coerce +-- | vCPM from Active View that the advertiser is targeting. +pTargetCpmActiveViewNanos :: Lens' Project (Maybe Int64) +pTargetCpmActiveViewNanos + = lens _pTargetCpmActiveViewNanos + (\ s a -> s{_pTargetCpmActiveViewNanos = a}) + . mapping _Coerce + -- | Audience gender of this project. pAudienceGender :: Lens' Project (Maybe ProjectAudienceGender) pAudienceGender @@ -4678,6 +4727,7 @@ <*> (o .:? "id") <*> (o .:? "audienceAgeGroup") <*> (o .:? "subaccountId") + <*> (o .:? "targetCpmActiveViewNanos") <*> (o .:? "audienceGender") <*> (o .:? "clientName") <*> (o .:? "targetCpaNanos")) @@ -4703,6 +4753,8 @@ ("id" .=) <$> _pId, ("audienceAgeGroup" .=) <$> _pAudienceAgeGroup, ("subaccountId" .=) <$> _pSubAccountId, + ("targetCpmActiveViewNanos" .=) <$> + _pTargetCpmActiveViewNanos, ("audienceGender" .=) <$> _pAudienceGender, ("clientName" .=) <$> _pClientName, ("targetCpaNanos" .=) <$> _pTargetCpaNanos]) @@ -6134,6 +6186,57 @@ [Just ("kind" .= _crmeKind), ("filteredEventIds" .=) <$> _crmeFilteredEventIds]) +-- | Language List Response +-- +-- /See:/ 'languagesListResponse' smart constructor. +data LanguagesListResponse = LanguagesListResponse' + { _llrKind :: !Text + , _llrLanguages :: !(Maybe [Language]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'LanguagesListResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'llrKind' +-- +-- * 'llrLanguages' +languagesListResponse + :: LanguagesListResponse +languagesListResponse = + LanguagesListResponse' + { _llrKind = "dfareporting#languagesListResponse" + , _llrLanguages = Nothing + } + +-- | Identifies what kind of resource this is. Value: the fixed string +-- \"dfareporting#languagesListResponse\". +llrKind :: Lens' LanguagesListResponse Text +llrKind = lens _llrKind (\ s a -> s{_llrKind = a}) + +-- | Language collection. +llrLanguages :: Lens' LanguagesListResponse [Language] +llrLanguages + = lens _llrLanguages (\ s a -> s{_llrLanguages = a}) + . _Default + . _Coerce + +instance FromJSON LanguagesListResponse where + parseJSON + = withObject "LanguagesListResponse" + (\ o -> + LanguagesListResponse' <$> + (o .:? "kind" .!= + "dfareporting#languagesListResponse") + <*> (o .:? "languages" .!= mempty)) + +instance ToJSON LanguagesListResponse where + toJSON LanguagesListResponse'{..} + = object + (catMaybes + [Just ("kind" .= _llrKind), + ("languages" .=) <$> _llrLanguages]) + -- | Targetable remarketing list response -- -- /See:/ 'targetableRemarketingListsListResponse' smart constructor. @@ -6947,6 +7050,7 @@ , _creVersion :: !(Maybe (Textual Int32)) , _creLatestTraffickedCreativeId :: !(Maybe (Textual Int64)) , _creThirdPartyRichMediaImpressionsURL :: !(Maybe Text) + , _creDynamicAssetSelection :: !(Maybe Bool) , _creLastModifiedInfo :: !(Maybe LastModifiedInfo) , _creId :: !(Maybe (Textual Int64)) , _creAuthoringSource :: !(Maybe CreativeAuthoringSource) @@ -6955,6 +7059,7 @@ , _creSubAccountId :: !(Maybe (Textual Int64)) , _creType :: !(Maybe CreativeType) , _creTimerCustomEvents :: !(Maybe [CreativeCustomEvent]) + , _creCreativeAssetSelection :: !(Maybe CreativeAssetSelection) , _creStudioCreativeId :: !(Maybe (Textual Int64)) , _creCompatibility :: !(Maybe [CreativeCompatibilityItem]) , _creBackupImageFeatures :: !(Maybe [CreativeBackupImageFeaturesItem]) @@ -7050,6 +7155,8 @@ -- -- * 'creThirdPartyRichMediaImpressionsURL' -- +-- * 'creDynamicAssetSelection' +-- -- * 'creLastModifiedInfo' -- -- * 'creId' @@ -7066,6 +7173,8 @@ -- -- * 'creTimerCustomEvents' -- +-- * 'creCreativeAssetSelection' +-- -- * 'creStudioCreativeId' -- -- * 'creCompatibility' @@ -7130,6 +7239,7 @@ , _creVersion = Nothing , _creLatestTraffickedCreativeId = Nothing , _creThirdPartyRichMediaImpressionsURL = Nothing + , _creDynamicAssetSelection = Nothing , _creLastModifiedInfo = Nothing , _creId = Nothing , _creAuthoringSource = Nothing @@ -7138,6 +7248,7 @@ , _creSubAccountId = Nothing , _creType = Nothing , _creTimerCustomEvents = Nothing + , _creCreativeAssetSelection = Nothing , _creStudioCreativeId = Nothing , _creCompatibility = Nothing , _creBackupImageFeatures = Nothing @@ -7487,6 +7598,16 @@ (\ s a -> s{_creThirdPartyRichMediaImpressionsURL = a}) +-- | Set this to true to enable the use of rules to target individual assets +-- in this creative. When set to true creativeAssetSelection must be set. +-- This also controls asset-level companions. When this is true, companion +-- creatives should be assigned to creative assets. Learn more. Applicable +-- to INSTREAM_VIDEO creatives. +creDynamicAssetSelection :: Lens' Creative (Maybe Bool) +creDynamicAssetSelection + = lens _creDynamicAssetSelection + (\ s a -> s{_creDynamicAssetSelection = a}) + -- | Creative last modification information. This is a read-only field. -- Applicable to all creative types. creLastModifiedInfo :: Lens' Creative (Maybe LastModifiedInfo) @@ -7537,8 +7658,10 @@ (\ s a -> s{_creSubAccountId = a}) . mapping _Coerce --- | Type of this creative.This is a required field. Applicable to all --- creative types. +-- | Type of this creative. This is a required field. Applicable to all +-- creative types. Note: FLASH_INPAGE, HTML5_BANNER, and IMAGE are only +-- used for existing creatives. New creatives should use DISPLAY as a +-- replacement for these types. creType :: Lens' Creative (Maybe CreativeType) creType = lens _creType (\ s a -> s{_creType = a}) @@ -7554,6 +7677,12 @@ . _Default . _Coerce +-- | Required if dynamicAssetSelection is true. +creCreativeAssetSelection :: Lens' Creative (Maybe CreativeAssetSelection) +creCreativeAssetSelection + = lens _creCreativeAssetSelection + (\ s a -> s{_creCreativeAssetSelection = a}) + -- | Studio creative ID associated with rich media and VPAID creatives. This -- is a read-only field. Applicable to the following creative types: all -- RICH_MEDIA, and all VPAID. @@ -7611,8 +7740,8 @@ -- | List of companion creatives assigned to an in-Stream videocreative. -- Acceptable values include IDs of existing flash and image creatives. --- Applicable to the following creative types: all INSTREAM_VIDEO and all --- VPAID. +-- Applicable to the following creative types: all VPAID and all +-- INSTREAM_VIDEO with dynamicAssetSelection set to false. creCompanionCreatives :: Lens' Creative [Int64] creCompanionCreatives = lens _creCompanionCreatives @@ -7650,7 +7779,7 @@ = lens _creRedirectURL (\ s a -> s{_creRedirectURL = a}) --- | Whether images are automatically advanced for enhanced image creatives. +-- | Whether images are automatically advanced for image gallery creatives. -- Applicable to the following creative types: DISPLAY_IMAGE_GALLERY. creAutoAdvanceImages :: Lens' Creative (Maybe Bool) creAutoAdvanceImages @@ -7710,6 +7839,7 @@ <*> (o .:? "version") <*> (o .:? "latestTraffickedCreativeId") <*> (o .:? "thirdPartyRichMediaImpressionsUrl") + <*> (o .:? "dynamicAssetSelection") <*> (o .:? "lastModifiedInfo") <*> (o .:? "id") <*> (o .:? "authoringSource") @@ -7718,6 +7848,7 @@ <*> (o .:? "subaccountId") <*> (o .:? "type") <*> (o .:? "timerCustomEvents" .!= mempty) + <*> (o .:? "creativeAssetSelection") <*> (o .:? "studioCreativeId") <*> (o .:? "compatibility" .!= mempty) <*> (o .:? "backupImageFeatures" .!= mempty) @@ -7784,6 +7915,8 @@ _creLatestTraffickedCreativeId, ("thirdPartyRichMediaImpressionsUrl" .=) <$> _creThirdPartyRichMediaImpressionsURL, + ("dynamicAssetSelection" .=) <$> + _creDynamicAssetSelection, ("lastModifiedInfo" .=) <$> _creLastModifiedInfo, ("id" .=) <$> _creId, ("authoringSource" .=) <$> _creAuthoringSource, @@ -7792,6 +7925,8 @@ ("subaccountId" .=) <$> _creSubAccountId, ("type" .=) <$> _creType, ("timerCustomEvents" .=) <$> _creTimerCustomEvents, + ("creativeAssetSelection" .=) <$> + _creCreativeAssetSelection, ("studioCreativeId" .=) <$> _creStudioCreativeId, ("compatibility" .=) <$> _creCompatibility, ("backupImageFeatures" .=) <$> @@ -8290,6 +8425,71 @@ ("criteria" .=) <$> _rCriteria, ("fileName" .=) <$> _rFileName]) +-- | A rule associates an asset with a targeting template for asset-level +-- targeting. Applicable to INSTREAM_VIDEO creatives. +-- +-- /See:/ 'rule' smart constructor. +data Rule = Rule' + { _rulTargetingTemplateId :: !(Maybe (Textual Int64)) + , _rulName :: !(Maybe Text) + , _rulAssetId :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Rule' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rulTargetingTemplateId' +-- +-- * 'rulName' +-- +-- * 'rulAssetId' +rule + :: Rule +rule = + Rule' + { _rulTargetingTemplateId = Nothing + , _rulName = Nothing + , _rulAssetId = Nothing + } + +-- | A targeting template ID. The targeting from the targeting template will +-- be used to determine whether this asset should be served. This is a +-- required field. +rulTargetingTemplateId :: Lens' Rule (Maybe Int64) +rulTargetingTemplateId + = lens _rulTargetingTemplateId + (\ s a -> s{_rulTargetingTemplateId = a}) + . mapping _Coerce + +-- | A user-friendly name for this rule. This is a required field. +rulName :: Lens' Rule (Maybe Text) +rulName = lens _rulName (\ s a -> s{_rulName = a}) + +-- | A creativeAssets[].id. This should refer to one of the parent assets in +-- this creative. This is a required field. +rulAssetId :: Lens' Rule (Maybe Int64) +rulAssetId + = lens _rulAssetId (\ s a -> s{_rulAssetId = a}) . + mapping _Coerce + +instance FromJSON Rule where + parseJSON + = withObject "Rule" + (\ o -> + Rule' <$> + (o .:? "targetingTemplateId") <*> (o .:? "name") <*> + (o .:? "assetId")) + +instance ToJSON Rule where + toJSON Rule'{..} + = object + (catMaybes + [("targetingTemplateId" .=) <$> + _rulTargetingTemplateId, + ("name" .=) <$> _rulName, + ("assetId" .=) <$> _rulAssetId]) + -- | Contains properties of a DCM campaign. -- -- /See:/ 'campaign' smart constructor. @@ -8307,7 +8507,6 @@ , _camLookbackConfiguration :: !(Maybe LookbackConfiguration) , _camStartDate :: !(Maybe Date') , _camAccountId :: !(Maybe (Textual Int64)) - , _camComscoreVceEnabled :: !(Maybe Bool) , _camName :: !(Maybe Text) , _camAdvertiserGroupId :: !(Maybe (Textual Int64)) , _camBillingInvoiceCode :: !(Maybe Text) @@ -8354,8 +8553,6 @@ -- -- * 'camAccountId' -- --- * 'camComscoreVceEnabled' --- -- * 'camName' -- -- * 'camAdvertiserGroupId' @@ -8400,7 +8597,6 @@ , _camLookbackConfiguration = Nothing , _camStartDate = Nothing , _camAccountId = Nothing - , _camComscoreVceEnabled = Nothing , _camName = Nothing , _camAdvertiserGroupId = Nothing , _camBillingInvoiceCode = Nothing @@ -8512,12 +8708,6 @@ = lens _camAccountId (\ s a -> s{_camAccountId = a}) . mapping _Coerce --- | Whether comScore vCE reports are enabled for this campaign. -camComscoreVceEnabled :: Lens' Campaign (Maybe Bool) -camComscoreVceEnabled - = lens _camComscoreVceEnabled - (\ s a -> s{_camComscoreVceEnabled = a}) - -- | Name of this campaign. This is a required field and must be less than -- 256 characters long and unique among campaigns of the same advertiser. camName :: Lens' Campaign (Maybe Text) @@ -8635,7 +8825,6 @@ <*> (o .:? "lookbackConfiguration") <*> (o .:? "startDate") <*> (o .:? "accountId") - <*> (o .:? "comscoreVceEnabled") <*> (o .:? "name") <*> (o .:? "advertiserGroupId") <*> (o .:? "billingInvoiceCode") @@ -8674,7 +8863,6 @@ _camLookbackConfiguration, ("startDate" .=) <$> _camStartDate, ("accountId" .=) <$> _camAccountId, - ("comscoreVceEnabled" .=) <$> _camComscoreVceEnabled, ("name" .=) <$> _camName, ("advertiserGroupId" .=) <$> _camAdvertiserGroupId, ("billingInvoiceCode" .=) <$> _camBillingInvoiceCode, @@ -9128,25 +9316,25 @@ -- -- /See:/ 'account' smart constructor. data Account = Account' - { _aaAccountPermissionIds :: !(Maybe [Textual Int64]) - , _aaMaximumImageSize :: !(Maybe (Textual Int64)) - , _aaCurrencyId :: !(Maybe (Textual Int64)) - , _aaReportsConfiguration :: !(Maybe ReportsConfiguration) - , _aaNielsenOCREnabled :: !(Maybe Bool) - , _aaKind :: !Text - , _aaLocale :: !(Maybe Text) - , _aaActive :: !(Maybe Bool) - , _aaAvailablePermissionIds :: !(Maybe [Textual Int64]) - , _aaTeaserSizeLimit :: !(Maybe (Textual Int64)) - , _aaComscoreVceEnabled :: !(Maybe Bool) - , _aaActiveViewOptOut :: !(Maybe Bool) - , _aaName :: !(Maybe Text) - , _aaAccountProFile :: !(Maybe AccountAccountProFile) - , _aaId :: !(Maybe (Textual Int64)) - , _aaCountryId :: !(Maybe (Textual Int64)) - , _aaActiveAdsLimitTier :: !(Maybe AccountActiveAdsLimitTier) - , _aaDefaultCreativeSizeId :: !(Maybe (Textual Int64)) - , _aaDescription :: !(Maybe Text) + { _aaAccountPermissionIds :: !(Maybe [Textual Int64]) + , _aaMaximumImageSize :: !(Maybe (Textual Int64)) + , _aaCurrencyId :: !(Maybe (Textual Int64)) + , _aaReportsConfiguration :: !(Maybe ReportsConfiguration) + , _aaNielsenOCREnabled :: !(Maybe Bool) + , _aaKind :: !Text + , _aaLocale :: !(Maybe Text) + , _aaActive :: !(Maybe Bool) + , _aaAvailablePermissionIds :: !(Maybe [Textual Int64]) + , _aaTeaserSizeLimit :: !(Maybe (Textual Int64)) + , _aaActiveViewOptOut :: !(Maybe Bool) + , _aaShareReportsWithTwitter :: !(Maybe Bool) + , _aaName :: !(Maybe Text) + , _aaAccountProFile :: !(Maybe AccountAccountProFile) + , _aaId :: !(Maybe (Textual Int64)) + , _aaCountryId :: !(Maybe (Textual Int64)) + , _aaActiveAdsLimitTier :: !(Maybe AccountActiveAdsLimitTier) + , _aaDefaultCreativeSizeId :: !(Maybe (Textual Int64)) + , _aaDescription :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'Account' with the minimum fields required to make a request. @@ -9173,10 +9361,10 @@ -- -- * 'aaTeaserSizeLimit' -- --- * 'aaComscoreVceEnabled' --- -- * 'aaActiveViewOptOut' -- +-- * 'aaShareReportsWithTwitter' +-- -- * 'aaName' -- -- * 'aaAccountProFile' @@ -9204,8 +9392,8 @@ , _aaActive = Nothing , _aaAvailablePermissionIds = Nothing , _aaTeaserSizeLimit = Nothing - , _aaComscoreVceEnabled = Nothing , _aaActiveViewOptOut = Nothing + , _aaShareReportsWithTwitter = Nothing , _aaName = Nothing , _aaAccountProFile = Nothing , _aaId = Nothing @@ -9295,13 +9483,6 @@ (\ s a -> s{_aaTeaserSizeLimit = a}) . mapping _Coerce --- | Whether campaigns created in this account will be enabled for comScore --- vCE by default. -aaComscoreVceEnabled :: Lens' Account (Maybe Bool) -aaComscoreVceEnabled - = lens _aaComscoreVceEnabled - (\ s a -> s{_aaComscoreVceEnabled = a}) - -- | Whether to serve creatives with Active View tags. If disabled, -- viewability data will not be available for any impressions. aaActiveViewOptOut :: Lens' Account (Maybe Bool) @@ -9309,6 +9490,12 @@ = lens _aaActiveViewOptOut (\ s a -> s{_aaActiveViewOptOut = a}) +-- | Share Path to Conversion reports with Twitter. +aaShareReportsWithTwitter :: Lens' Account (Maybe Bool) +aaShareReportsWithTwitter + = lens _aaShareReportsWithTwitter + (\ s a -> s{_aaShareReportsWithTwitter = a}) + -- | Name of this account. This is a required field, and must be less than -- 128 characters long and be globally unique. aaName :: Lens' Account (Maybe Text) @@ -9367,8 +9554,8 @@ <*> (o .:? "active") <*> (o .:? "availablePermissionIds" .!= mempty) <*> (o .:? "teaserSizeLimit") - <*> (o .:? "comscoreVceEnabled") <*> (o .:? "activeViewOptOut") + <*> (o .:? "shareReportsWithTwitter") <*> (o .:? "name") <*> (o .:? "accountProfile") <*> (o .:? "id") @@ -9394,8 +9581,9 @@ ("availablePermissionIds" .=) <$> _aaAvailablePermissionIds, ("teaserSizeLimit" .=) <$> _aaTeaserSizeLimit, - ("comscoreVceEnabled" .=) <$> _aaComscoreVceEnabled, ("activeViewOptOut" .=) <$> _aaActiveViewOptOut, + ("shareReportsWithTwitter" .=) <$> + _aaShareReportsWithTwitter, ("name" .=) <$> _aaName, ("accountProfile" .=) <$> _aaAccountProFile, ("id" .=) <$> _aaId, @@ -9445,8 +9633,9 @@ . _Default . _Coerce --- | Describes how encryptedUserId is encrypted. This is a required field if --- encryptedUserId is used. +-- | Describes how encryptedUserId or encryptedUserIdCandidates[] is +-- encrypted. This is a required field if encryptedUserId or +-- encryptedUserIdCandidates[] is used. cbirEncryptionInfo :: Lens' ConversionsBatchInsertRequest (Maybe EncryptionInfo) cbirEncryptionInfo = lens _cbirEncryptionInfo @@ -11165,8 +11354,8 @@ [Just ("kind" .= _ccaKind), ("creativeId" .=) <$> _ccaCreativeId]) --- | The original conversion that was inserted and whether there were any --- errors. +-- | The original conversion that was inserted or updated and whether there +-- were any errors. -- -- /See:/ 'conversionStatus' smart constructor. data ConversionStatus = ConversionStatus' @@ -11198,7 +11387,7 @@ csKind :: Lens' ConversionStatus Text csKind = lens _csKind (\ s a -> s{_csKind = a}) --- | The original conversion that was inserted. +-- | The original conversion that was inserted or updated. csConversion :: Lens' ConversionStatus (Maybe Conversion) csConversion = lens _csConversion (\ s a -> s{_csConversion = a}) @@ -13632,6 +13821,78 @@ ("subaccountId" .=) <$> _chaSubAccountId, ("changeTime" .=) <$> _chaChangeTime]) +-- | Contains information about a language that can be targeted by ads. +-- +-- /See:/ 'language' smart constructor. +data Language = Language' + { _lLanguageCode :: !(Maybe Text) + , _lKind :: !Text + , _lName :: !(Maybe Text) + , _lId :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'Language' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'lLanguageCode' +-- +-- * 'lKind' +-- +-- * 'lName' +-- +-- * 'lId' +language + :: Language +language = + Language' + { _lLanguageCode = Nothing + , _lKind = "dfareporting#language" + , _lName = Nothing + , _lId = Nothing + } + +-- | Format of language code is an ISO 639 two-letter language code +-- optionally followed by an underscore followed by an ISO 3166 code. +-- Examples are \"en\" for English or \"zh_CN\" for Simplified Chinese. +lLanguageCode :: Lens' Language (Maybe Text) +lLanguageCode + = lens _lLanguageCode + (\ s a -> s{_lLanguageCode = a}) + +-- | Identifies what kind of resource this is. Value: the fixed string +-- \"dfareporting#language\". +lKind :: Lens' Language Text +lKind = lens _lKind (\ s a -> s{_lKind = a}) + +-- | Name of this language. +lName :: Lens' Language (Maybe Text) +lName = lens _lName (\ s a -> s{_lName = a}) + +-- | Language ID of this language. This is the ID used for targeting and +-- generating reports. +lId :: Lens' Language (Maybe Int64) +lId + = lens _lId (\ s a -> s{_lId = a}) . mapping _Coerce + +instance FromJSON Language where + parseJSON + = withObject "Language" + (\ o -> + Language' <$> + (o .:? "languageCode") <*> + (o .:? "kind" .!= "dfareporting#language") + <*> (o .:? "name") + <*> (o .:? "id")) + +instance ToJSON Language where + toJSON Language'{..} + = object + (catMaybes + [("languageCode" .=) <$> _lLanguageCode, + Just ("kind" .= _lKind), ("name" .=) <$> _lName, + ("id" .=) <$> _lId]) + -- | Contains properties of a placement strategy. -- -- /See:/ 'placementStrategy' smart constructor. @@ -14796,7 +15057,8 @@ Just ("kind" .= _dslrKind), ("directorySites" .=) <$> _dslrDirectorySites]) --- | The error code and description for a conversion that failed to insert. +-- | The error code and description for a conversion that failed to insert or +-- update. -- -- /See:/ 'conversionError' smart constructor. data ConversionError = ConversionError' @@ -15848,7 +16110,8 @@ -- -- /See:/ 'conversion' smart constructor. data Conversion = Conversion' - { _conoTimestampMicros :: !(Maybe (Textual Int64)) + { _conoEncryptedUserIdCandidates :: !(Maybe [Text]) + , _conoTimestampMicros :: !(Maybe (Textual Int64)) , _conoLimitAdTracking :: !(Maybe Bool) , _conoEncryptedUserId :: !(Maybe Text) , _conoMobileDeviceId :: !(Maybe Text) @@ -15866,6 +16129,8 @@ -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'conoEncryptedUserIdCandidates' +-- -- * 'conoTimestampMicros' -- -- * 'conoLimitAdTracking' @@ -15893,7 +16158,8 @@ :: Conversion conversion = Conversion' - { _conoTimestampMicros = Nothing + { _conoEncryptedUserIdCandidates = Nothing + , _conoTimestampMicros = Nothing , _conoLimitAdTracking = Nothing , _conoEncryptedUserId = Nothing , _conoMobileDeviceId = Nothing @@ -15907,6 +16173,21 @@ , _conoOrdinal = Nothing } +-- | A list of the alphanumeric encrypted user IDs. Any user ID with exposure +-- prior to the conversion timestamp will be used in the inserted +-- conversion. If no such user ID is found then the conversion will be +-- rejected with NO_COOKIE_MATCH_FOUND error. When set, encryptionInfo +-- should also be specified. This field should only be used when calling +-- conversions.batchinsert. This field is mutually exclusive with +-- encryptedUserId and mobileDeviceId. This or encryptedUserId or +-- mobileDeviceId is a required field. +conoEncryptedUserIdCandidates :: Lens' Conversion [Text] +conoEncryptedUserIdCandidates + = lens _conoEncryptedUserIdCandidates + (\ s a -> s{_conoEncryptedUserIdCandidates = a}) + . _Default + . _Coerce + -- | The timestamp of conversion, in Unix epoch micros. This is a required -- field. conoTimestampMicros :: Lens' Conversion (Maybe Int64) @@ -15922,15 +16203,17 @@ (\ s a -> s{_conoLimitAdTracking = a}) -- | The alphanumeric encrypted user ID. When set, encryptionInfo should also --- be specified. This field is mutually exclusive with mobileDeviceId. This --- or mobileDeviceId is a required field. +-- be specified. This field is mutually exclusive with +-- encryptedUserIdCandidates[] and mobileDeviceId. This or +-- encryptedUserIdCandidates[] or mobileDeviceId is a required field. conoEncryptedUserId :: Lens' Conversion (Maybe Text) conoEncryptedUserId = lens _conoEncryptedUserId (\ s a -> s{_conoEncryptedUserId = a}) -- | The mobile device ID. This field is mutually exclusive with --- encryptedUserId. This or encryptedUserId is a required field. +-- encryptedUserId and encryptedUserIdCandidates[]. This or encryptedUserId +-- or encryptedUserIdCandidates[] is a required field. conoMobileDeviceId :: Lens' Conversion (Maybe Text) conoMobileDeviceId = lens _conoMobileDeviceId @@ -15993,8 +16276,9 @@ = withObject "Conversion" (\ o -> Conversion' <$> - (o .:? "timestampMicros") <*> - (o .:? "limitAdTracking") + (o .:? "encryptedUserIdCandidates" .!= mempty) <*> + (o .:? "timestampMicros") + <*> (o .:? "limitAdTracking") <*> (o .:? "encryptedUserId") <*> (o .:? "mobileDeviceId") <*> (o .:? "floodlightConfigurationId") @@ -16010,7 +16294,9 @@ toJSON Conversion'{..} = object (catMaybes - [("timestampMicros" .=) <$> _conoTimestampMicros, + [("encryptedUserIdCandidates" .=) <$> + _conoEncryptedUserIdCandidates, + ("timestampMicros" .=) <$> _conoTimestampMicros, ("limitAdTracking" .=) <$> _conoLimitAdTracking, ("encryptedUserId" .=) <$> _conoEncryptedUserId, ("mobileDeviceId" .=) <$> _conoMobileDeviceId, @@ -16097,63 +16383,63 @@ -- -- /See:/ 'richMediaExitOverride' smart constructor. data RichMediaExitOverride = RichMediaExitOverride' - { _rmeoUseCustomExitURL :: !(Maybe Bool) - , _rmeoExitId :: !(Maybe (Textual Int64)) - , _rmeoCustomExitURL :: !(Maybe Text) + { _rmeoEnabled :: !(Maybe Bool) + , _rmeoClickThroughURL :: !(Maybe ClickThroughURL) + , _rmeoExitId :: !(Maybe (Textual Int64)) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'RichMediaExitOverride' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'rmeoUseCustomExitURL' +-- * 'rmeoEnabled' -- --- * 'rmeoExitId' +-- * 'rmeoClickThroughURL' -- --- * 'rmeoCustomExitURL' +-- * 'rmeoExitId' richMediaExitOverride :: RichMediaExitOverride richMediaExitOverride = RichMediaExitOverride' - { _rmeoUseCustomExitURL = Nothing + { _rmeoEnabled = Nothing + , _rmeoClickThroughURL = Nothing , _rmeoExitId = Nothing - , _rmeoCustomExitURL = Nothing } --- | Whether to use the custom exit URL. -rmeoUseCustomExitURL :: Lens' RichMediaExitOverride (Maybe Bool) -rmeoUseCustomExitURL - = lens _rmeoUseCustomExitURL - (\ s a -> s{_rmeoUseCustomExitURL = a}) +-- | Whether to use the clickThroughUrl. If false, the creative-level exit +-- will be used. +rmeoEnabled :: Lens' RichMediaExitOverride (Maybe Bool) +rmeoEnabled + = lens _rmeoEnabled (\ s a -> s{_rmeoEnabled = a}) +-- | Click-through URL of this rich media exit override. Applicable if the +-- enabled field is set to true. +rmeoClickThroughURL :: Lens' RichMediaExitOverride (Maybe ClickThroughURL) +rmeoClickThroughURL + = lens _rmeoClickThroughURL + (\ s a -> s{_rmeoClickThroughURL = a}) + -- | ID for the override to refer to a specific exit in the creative. rmeoExitId :: Lens' RichMediaExitOverride (Maybe Int64) rmeoExitId = lens _rmeoExitId (\ s a -> s{_rmeoExitId = a}) . mapping _Coerce --- | Click-through URL to override the default exit URL. Applicable if the --- useCustomExitUrl field is set to true. -rmeoCustomExitURL :: Lens' RichMediaExitOverride (Maybe Text) -rmeoCustomExitURL - = lens _rmeoCustomExitURL - (\ s a -> s{_rmeoCustomExitURL = a}) - instance FromJSON RichMediaExitOverride where parseJSON = withObject "RichMediaExitOverride" (\ o -> RichMediaExitOverride' <$> - (o .:? "useCustomExitUrl") <*> (o .:? "exitId") <*> - (o .:? "customExitUrl")) + (o .:? "enabled") <*> (o .:? "clickThroughUrl") <*> + (o .:? "exitId")) instance ToJSON RichMediaExitOverride where toJSON RichMediaExitOverride'{..} = object (catMaybes - [("useCustomExitUrl" .=) <$> _rmeoUseCustomExitURL, - ("exitId" .=) <$> _rmeoExitId, - ("customExitUrl" .=) <$> _rmeoCustomExitURL]) + [("enabled" .=) <$> _rmeoEnabled, + ("clickThroughUrl" .=) <$> _rmeoClickThroughURL, + ("exitId" .=) <$> _rmeoExitId]) -- | Represents a sorted dimension. -- @@ -16276,6 +16562,72 @@ Just ("kind" .= _cflrKind), ("creativeFields" .=) <$> _cflrCreativeFields]) +-- | Targeting Template List Response +-- +-- /See:/ 'targetingTemplatesListResponse' smart constructor. +data TargetingTemplatesListResponse = TargetingTemplatesListResponse' + { _ttlrNextPageToken :: !(Maybe Text) + , _ttlrKind :: !Text + , _ttlrTargetingTemplates :: !(Maybe [TargetingTemplate]) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TargetingTemplatesListResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ttlrNextPageToken' +-- +-- * 'ttlrKind' +-- +-- * 'ttlrTargetingTemplates' +targetingTemplatesListResponse + :: TargetingTemplatesListResponse +targetingTemplatesListResponse = + TargetingTemplatesListResponse' + { _ttlrNextPageToken = Nothing + , _ttlrKind = "dfareporting#targetingTemplatesListResponse" + , _ttlrTargetingTemplates = Nothing + } + +-- | Pagination token to be used for the next list operation. +ttlrNextPageToken :: Lens' TargetingTemplatesListResponse (Maybe Text) +ttlrNextPageToken + = lens _ttlrNextPageToken + (\ s a -> s{_ttlrNextPageToken = a}) + +-- | Identifies what kind of resource this is. Value: the fixed string +-- \"dfareporting#targetingTemplatesListResponse\". +ttlrKind :: Lens' TargetingTemplatesListResponse Text +ttlrKind = lens _ttlrKind (\ s a -> s{_ttlrKind = a}) + +-- | Targeting template collection. +ttlrTargetingTemplates :: Lens' TargetingTemplatesListResponse [TargetingTemplate] +ttlrTargetingTemplates + = lens _ttlrTargetingTemplates + (\ s a -> s{_ttlrTargetingTemplates = a}) + . _Default + . _Coerce + +instance FromJSON TargetingTemplatesListResponse + where + parseJSON + = withObject "TargetingTemplatesListResponse" + (\ o -> + TargetingTemplatesListResponse' <$> + (o .:? "nextPageToken") <*> + (o .:? "kind" .!= + "dfareporting#targetingTemplatesListResponse") + <*> (o .:? "targetingTemplates" .!= mempty)) + +instance ToJSON TargetingTemplatesListResponse where + toJSON TargetingTemplatesListResponse'{..} + = object + (catMaybes + [("nextPageToken" .=) <$> _ttlrNextPageToken, + Just ("kind" .= _ttlrKind), + ("targetingTemplates" .=) <$> + _ttlrTargetingTemplates]) + -- | Placement GenerateTags Response -- -- /See:/ 'placementsGenerateTagsResponse' smart constructor. @@ -16350,8 +16702,10 @@ , _caaSSLCompliant :: !(Maybe Bool) , _caaFileSize :: !(Maybe (Textual Int64)) , _caaAssetIdentifier :: !(Maybe CreativeAssetId) + , _caaCompanionCreativeIds :: !(Maybe [Textual Int64]) , _caaDurationType :: !(Maybe CreativeAssetDurationType) , _caaProgressiveServingURL :: !(Maybe Text) + , _caaIdDimensionValue :: !(Maybe DimensionValue) , _caaActive :: !(Maybe Bool) , _caaRole :: !(Maybe CreativeAssetRole) , _caaMimeType :: !(Maybe Text) @@ -16415,10 +16769,14 @@ -- -- * 'caaAssetIdentifier' -- +-- * 'caaCompanionCreativeIds' +-- -- * 'caaDurationType' -- -- * 'caaProgressiveServingURL' -- +-- * 'caaIdDimensionValue' +-- -- * 'caaActive' -- -- * 'caaRole' @@ -16485,8 +16843,10 @@ , _caaSSLCompliant = Nothing , _caaFileSize = Nothing , _caaAssetIdentifier = Nothing + , _caaCompanionCreativeIds = Nothing , _caaDurationType = Nothing , _caaProgressiveServingURL = Nothing + , _caaIdDimensionValue = Nothing , _caaActive = Nothing , _caaRole = Nothing , _caaMimeType = Nothing @@ -16651,6 +17011,17 @@ = lens _caaAssetIdentifier (\ s a -> s{_caaAssetIdentifier = a}) +-- | List of companion creatives assigned to an in-stream video creative +-- asset. Acceptable values include IDs of existing flash and image +-- creatives. Applicable to INSTREAM_VIDEO creative type with +-- dynamicAssetSelection set to true. +caaCompanionCreativeIds :: Lens' CreativeAsset [Int64] +caaCompanionCreativeIds + = lens _caaCompanionCreativeIds + (\ s a -> s{_caaCompanionCreativeIds = a}) + . _Default + . _Coerce + -- | Duration type for which an asset will be displayed. Applicable to the -- following creative types: all RICH_MEDIA. caaDurationType :: Lens' CreativeAsset (Maybe CreativeAssetDurationType) @@ -16665,6 +17036,13 @@ = lens _caaProgressiveServingURL (\ s a -> s{_caaProgressiveServingURL = a}) +-- | Dimension value for the ID of the asset. This is a read-only, +-- auto-generated field. +caaIdDimensionValue :: Lens' CreativeAsset (Maybe DimensionValue) +caaIdDimensionValue + = lens _caaIdDimensionValue + (\ s a -> s{_caaIdDimensionValue = a}) + -- | Whether the video asset is active. This is a read-only field for -- VPAID_NON_LINEAR_VIDEO assets. Applicable to the following creative -- types: INSTREAM_VIDEO and all VPAID. @@ -16877,8 +17255,10 @@ <*> (o .:? "sslCompliant") <*> (o .:? "fileSize") <*> (o .:? "assetIdentifier") + <*> (o .:? "companionCreativeIds" .!= mempty) <*> (o .:? "durationType") <*> (o .:? "progressiveServingUrl") + <*> (o .:? "idDimensionValue") <*> (o .:? "active") <*> (o .:? "role") <*> (o .:? "mimeType") @@ -16925,9 +17305,12 @@ ("sslCompliant" .=) <$> _caaSSLCompliant, ("fileSize" .=) <$> _caaFileSize, ("assetIdentifier" .=) <$> _caaAssetIdentifier, + ("companionCreativeIds" .=) <$> + _caaCompanionCreativeIds, ("durationType" .=) <$> _caaDurationType, ("progressiveServingUrl" .=) <$> _caaProgressiveServingURL, + ("idDimensionValue" .=) <$> _caaIdDimensionValue, ("active" .=) <$> _caaActive, ("role" .=) <$> _caaRole, ("mimeType" .=) <$> _caaMimeType, @@ -16953,6 +17336,103 @@ ("horizontallyLocked" .=) <$> _caaHorizontallyLocked]) +-- | Language Targeting. +-- +-- /See:/ 'languageTargeting' smart constructor. +newtype LanguageTargeting = LanguageTargeting' + { _ltLanguages :: Maybe [Language] + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'LanguageTargeting' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltLanguages' +languageTargeting + :: LanguageTargeting +languageTargeting = + LanguageTargeting' + { _ltLanguages = Nothing + } + +-- | Languages that this ad targets. For each language only languageId is +-- required. The other fields are populated automatically when the ad is +-- inserted or updated. +ltLanguages :: Lens' LanguageTargeting [Language] +ltLanguages + = lens _ltLanguages (\ s a -> s{_ltLanguages = a}) . + _Default + . _Coerce + +instance FromJSON LanguageTargeting where + parseJSON + = withObject "LanguageTargeting" + (\ o -> + LanguageTargeting' <$> + (o .:? "languages" .!= mempty)) + +instance ToJSON LanguageTargeting where + toJSON LanguageTargeting'{..} + = object + (catMaybes [("languages" .=) <$> _ltLanguages]) + +-- | Encapsulates the list of rules for asset selection and a default asset +-- in case none of the rules match. Applicable to INSTREAM_VIDEO creatives. +-- +-- /See:/ 'creativeAssetSelection' smart constructor. +data CreativeAssetSelection = CreativeAssetSelection' + { _casRules :: !(Maybe [Rule]) + , _casDefaultAssetId :: !(Maybe (Textual Int64)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'CreativeAssetSelection' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'casRules' +-- +-- * 'casDefaultAssetId' +creativeAssetSelection + :: CreativeAssetSelection +creativeAssetSelection = + CreativeAssetSelection' + { _casRules = Nothing + , _casDefaultAssetId = Nothing + } + +-- | Rules determine which asset will be served to a viewer. Rules will be +-- evaluated in the order in which they are stored in this list. This list +-- must contain at least one rule. Applicable to INSTREAM_VIDEO creatives. +casRules :: Lens' CreativeAssetSelection [Rule] +casRules + = lens _casRules (\ s a -> s{_casRules = a}) . + _Default + . _Coerce + +-- | A creativeAssets[].id. This should refer to one of the parent assets in +-- this creative, and will be served if none of the rules match. This is a +-- required field. +casDefaultAssetId :: Lens' CreativeAssetSelection (Maybe Int64) +casDefaultAssetId + = lens _casDefaultAssetId + (\ s a -> s{_casDefaultAssetId = a}) + . mapping _Coerce + +instance FromJSON CreativeAssetSelection where + parseJSON + = withObject "CreativeAssetSelection" + (\ o -> + CreativeAssetSelection' <$> + (o .:? "rules" .!= mempty) <*> + (o .:? "defaultAssetId")) + +instance ToJSON CreativeAssetSelection where + toJSON CreativeAssetSelection'{..} + = object + (catMaybes + [("rules" .=) <$> _casRules, + ("defaultAssetId" .=) <$> _casDefaultAssetId]) + -- | Placement List Response -- -- /See:/ 'placementsListResponse' smart constructor. @@ -18307,8 +18787,9 @@ caiName :: Lens' CreativeAssetId (Maybe Text) caiName = lens _caiName (\ s a -> s{_caiName = a}) --- | Type of asset to upload. This is a required field. IMAGE is solely used --- for IMAGE creatives. Other image assets should use HTML_IMAGE. +-- | Type of asset to upload. This is a required field. FLASH and IMAGE are +-- no longer supported for new uploads. All image assets should use +-- HTML_IMAGE. caiType :: Lens' CreativeAssetId (Maybe CreativeAssetIdType) caiType = lens _caiType (\ s a -> s{_caiType = a}) @@ -18746,8 +19227,10 @@ data CreativeAssetMetadata = CreativeAssetMetadata' { _camaKind :: !Text , _camaAssetIdentifier :: !(Maybe CreativeAssetId) + , _camaIdDimensionValue :: !(Maybe DimensionValue) , _camaClickTags :: !(Maybe [ClickTag]) , _camaWarnedValidationRules :: !(Maybe [CreativeAssetMetadataWarnedValidationRulesItem]) + , _camaId :: !(Maybe (Textual Int64)) , _camaDetectedFeatures :: !(Maybe [CreativeAssetMetadataDetectedFeaturesItem]) } deriving (Eq,Show,Data,Typeable,Generic) @@ -18759,10 +19242,14 @@ -- -- * 'camaAssetIdentifier' -- +-- * 'camaIdDimensionValue' +-- -- * 'camaClickTags' -- -- * 'camaWarnedValidationRules' -- +-- * 'camaId' +-- -- * 'camaDetectedFeatures' creativeAssetMetadata :: CreativeAssetMetadata @@ -18770,8 +19257,10 @@ CreativeAssetMetadata' { _camaKind = "dfareporting#creativeAssetMetadata" , _camaAssetIdentifier = Nothing + , _camaIdDimensionValue = Nothing , _camaClickTags = Nothing , _camaWarnedValidationRules = Nothing + , _camaId = Nothing , _camaDetectedFeatures = Nothing } @@ -18786,6 +19275,13 @@ = lens _camaAssetIdentifier (\ s a -> s{_camaAssetIdentifier = a}) +-- | Dimension value for the numeric ID of the asset. This is a read-only, +-- auto-generated field. +camaIdDimensionValue :: Lens' CreativeAssetMetadata (Maybe DimensionValue) +camaIdDimensionValue + = lens _camaIdDimensionValue + (\ s a -> s{_camaIdDimensionValue = a}) + -- | List of detected click tags for assets. This is a read-only -- auto-generated field. camaClickTags :: Lens' CreativeAssetMetadata [ClickTag] @@ -18815,6 +19311,12 @@ . _Default . _Coerce +-- | Numeric ID of the asset. This is a read-only, auto-generated field. +camaId :: Lens' CreativeAssetMetadata (Maybe Int64) +camaId + = lens _camaId (\ s a -> s{_camaId = a}) . + mapping _Coerce + -- | List of feature dependencies for the creative asset that are detected by -- DCM. Feature dependencies are features that a browser must be able to -- support in order to render your HTML5 creative correctly. This is a @@ -18834,8 +19336,10 @@ (o .:? "kind" .!= "dfareporting#creativeAssetMetadata") <*> (o .:? "assetIdentifier") + <*> (o .:? "idDimensionValue") <*> (o .:? "clickTags" .!= mempty) <*> (o .:? "warnedValidationRules" .!= mempty) + <*> (o .:? "id") <*> (o .:? "detectedFeatures" .!= mempty)) instance ToJSON CreativeAssetMetadata where @@ -18844,9 +19348,11 @@ (catMaybes [Just ("kind" .= _camaKind), ("assetIdentifier" .=) <$> _camaAssetIdentifier, + ("idDimensionValue" .=) <$> _camaIdDimensionValue, ("clickTags" .=) <$> _camaClickTags, ("warnedValidationRules" .=) <$> _camaWarnedValidationRules, + ("id" .=) <$> _camaId, ("detectedFeatures" .=) <$> _camaDetectedFeatures]) -- | Omniture Integration Settings. @@ -21034,6 +21540,200 @@ [("nextPageToken" .=) <$> _sitNextPageToken, Just ("kind" .= _sitKind), ("sites" .=) <$> _sitSites]) + +-- | Contains properties of a targeting template. A targeting template +-- encapsulates targeting information which can be reused across multiple +-- ads. +-- +-- /See:/ 'targetingTemplate' smart constructor. +data TargetingTemplate = TargetingTemplate' + { _ttGeoTargeting :: !(Maybe GeoTargeting) + , _ttTechnologyTargeting :: !(Maybe TechnologyTargeting) + , _ttDayPartTargeting :: !(Maybe DayPartTargeting) + , _ttKind :: !Text + , _ttAdvertiserId :: !(Maybe (Textual Int64)) + , _ttAdvertiserIdDimensionValue :: !(Maybe DimensionValue) + , _ttAccountId :: !(Maybe (Textual Int64)) + , _ttName :: !(Maybe Text) + , _ttKeyValueTargetingExpression :: !(Maybe KeyValueTargetingExpression) + , _ttId :: !(Maybe (Textual Int64)) + , _ttSubAccountId :: !(Maybe (Textual Int64)) + , _ttLanguageTargeting :: !(Maybe LanguageTargeting) + , _ttListTargetingExpression :: !(Maybe ListTargetingExpression) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TargetingTemplate' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ttGeoTargeting' +-- +-- * 'ttTechnologyTargeting' +-- +-- * 'ttDayPartTargeting' +-- +-- * 'ttKind' +-- +-- * 'ttAdvertiserId' +-- +-- * 'ttAdvertiserIdDimensionValue' +-- +-- * 'ttAccountId' +-- +-- * 'ttName' +-- +-- * 'ttKeyValueTargetingExpression' +-- +-- * 'ttId' +-- +-- * 'ttSubAccountId' +-- +-- * 'ttLanguageTargeting' +-- +-- * 'ttListTargetingExpression' +targetingTemplate + :: TargetingTemplate +targetingTemplate = + TargetingTemplate' + { _ttGeoTargeting = Nothing + , _ttTechnologyTargeting = Nothing + , _ttDayPartTargeting = Nothing + , _ttKind = "dfareporting#targetingTemplate" + , _ttAdvertiserId = Nothing + , _ttAdvertiserIdDimensionValue = Nothing + , _ttAccountId = Nothing + , _ttName = Nothing + , _ttKeyValueTargetingExpression = Nothing + , _ttId = Nothing + , _ttSubAccountId = Nothing + , _ttLanguageTargeting = Nothing + , _ttListTargetingExpression = Nothing + } + +-- | Geographical targeting criteria. +ttGeoTargeting :: Lens' TargetingTemplate (Maybe GeoTargeting) +ttGeoTargeting + = lens _ttGeoTargeting + (\ s a -> s{_ttGeoTargeting = a}) + +-- | Technology platform targeting criteria. +ttTechnologyTargeting :: Lens' TargetingTemplate (Maybe TechnologyTargeting) +ttTechnologyTargeting + = lens _ttTechnologyTargeting + (\ s a -> s{_ttTechnologyTargeting = a}) + +-- | Time and day targeting criteria. +ttDayPartTargeting :: Lens' TargetingTemplate (Maybe DayPartTargeting) +ttDayPartTargeting + = lens _ttDayPartTargeting + (\ s a -> s{_ttDayPartTargeting = a}) + +-- | Identifies what kind of resource this is. Value: the fixed string +-- \"dfareporting#targetingTemplate\". +ttKind :: Lens' TargetingTemplate Text +ttKind = lens _ttKind (\ s a -> s{_ttKind = a}) + +-- | Advertiser ID of this targeting template. This is a required field on +-- insert and is read-only after insert. +ttAdvertiserId :: Lens' TargetingTemplate (Maybe Int64) +ttAdvertiserId + = lens _ttAdvertiserId + (\ s a -> s{_ttAdvertiserId = a}) + . mapping _Coerce + +-- | Dimension value for the ID of the advertiser. This is a read-only, +-- auto-generated field. +ttAdvertiserIdDimensionValue :: Lens' TargetingTemplate (Maybe DimensionValue) +ttAdvertiserIdDimensionValue + = lens _ttAdvertiserIdDimensionValue + (\ s a -> s{_ttAdvertiserIdDimensionValue = a}) + +-- | Account ID of this targeting template. This field, if left unset, will +-- be auto-generated on insert and is read-only after insert. +ttAccountId :: Lens' TargetingTemplate (Maybe Int64) +ttAccountId + = lens _ttAccountId (\ s a -> s{_ttAccountId = a}) . + mapping _Coerce + +-- | Name of this targeting template. This field is required. It must be less +-- than 256 characters long and unique within an advertiser. +ttName :: Lens' TargetingTemplate (Maybe Text) +ttName = lens _ttName (\ s a -> s{_ttName = a}) + +-- | Key-value targeting criteria. +ttKeyValueTargetingExpression :: Lens' TargetingTemplate (Maybe KeyValueTargetingExpression) +ttKeyValueTargetingExpression + = lens _ttKeyValueTargetingExpression + (\ s a -> s{_ttKeyValueTargetingExpression = a}) + +-- | ID of this targeting template. This is a read-only, auto-generated +-- field. +ttId :: Lens' TargetingTemplate (Maybe Int64) +ttId + = lens _ttId (\ s a -> s{_ttId = a}) . + mapping _Coerce + +-- | Subaccount ID of this targeting template. This field, if left unset, +-- will be auto-generated on insert and is read-only after insert. +ttSubAccountId :: Lens' TargetingTemplate (Maybe Int64) +ttSubAccountId + = lens _ttSubAccountId + (\ s a -> s{_ttSubAccountId = a}) + . mapping _Coerce + +-- | Language targeting criteria. +ttLanguageTargeting :: Lens' TargetingTemplate (Maybe LanguageTargeting) +ttLanguageTargeting + = lens _ttLanguageTargeting + (\ s a -> s{_ttLanguageTargeting = a}) + +-- | Remarketing list targeting criteria. +ttListTargetingExpression :: Lens' TargetingTemplate (Maybe ListTargetingExpression) +ttListTargetingExpression + = lens _ttListTargetingExpression + (\ s a -> s{_ttListTargetingExpression = a}) + +instance FromJSON TargetingTemplate where + parseJSON + = withObject "TargetingTemplate" + (\ o -> + TargetingTemplate' <$> + (o .:? "geoTargeting") <*> + (o .:? "technologyTargeting") + <*> (o .:? "dayPartTargeting") + <*> + (o .:? "kind" .!= "dfareporting#targetingTemplate") + <*> (o .:? "advertiserId") + <*> (o .:? "advertiserIdDimensionValue") + <*> (o .:? "accountId") + <*> (o .:? "name") + <*> (o .:? "keyValueTargetingExpression") + <*> (o .:? "id") + <*> (o .:? "subaccountId") + <*> (o .:? "languageTargeting") + <*> (o .:? "listTargetingExpression")) + +instance ToJSON TargetingTemplate where + toJSON TargetingTemplate'{..} + = object + (catMaybes + [("geoTargeting" .=) <$> _ttGeoTargeting, + ("technologyTargeting" .=) <$> + _ttTechnologyTargeting, + ("dayPartTargeting" .=) <$> _ttDayPartTargeting, + Just ("kind" .= _ttKind), + ("advertiserId" .=) <$> _ttAdvertiserId, + ("advertiserIdDimensionValue" .=) <$> + _ttAdvertiserIdDimensionValue, + ("accountId" .=) <$> _ttAccountId, + ("name" .=) <$> _ttName, + ("keyValueTargetingExpression" .=) <$> + _ttKeyValueTargetingExpression, + ("id" .=) <$> _ttId, + ("subaccountId" .=) <$> _ttSubAccountId, + ("languageTargeting" .=) <$> _ttLanguageTargeting, + ("listTargetingExpression" .=) <$> + _ttListTargetingExpression]) -- | Contains properties of a creative field. -- diff --git a/gen/Network/Google/DFAReporting/Types/Sum.hs b/gen/Network/Google/DFAReporting/Types/Sum.hs --- a/gen/Network/Google/DFAReporting/Types/Sum.hs +++ b/gen/Network/Google/DFAReporting/Types/Sum.hs @@ -178,7598 +178,8647 @@ instance ToJSON CreativeFieldsListSortOrder where toJSON = toJSONText --- | Field by which to sort the list. -data UserRolesListSortField - = URLSFID - -- ^ @ID@ - | URLSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable UserRolesListSortField - -instance FromHttpApiData UserRolesListSortField where - parseQueryParam = \case - "ID" -> Right URLSFID - "NAME" -> Right URLSFName - x -> Left ("Unable to parse UserRolesListSortField from: " <> x) - -instance ToHttpApiData UserRolesListSortField where - toQueryParam = \case - URLSFID -> "ID" - URLSFName -> "NAME" - -instance FromJSON UserRolesListSortField where - parseJSON = parseJSONText "UserRolesListSortField" - -instance ToJSON UserRolesListSortField where - toJSON = toJSONText - --- | Tag format type for the floodlight activity. If left blank, the tag --- format will default to HTML. -data FloodlightActivityTagFormat - = HTML - -- ^ @HTML@ - | Xhtml - -- ^ @XHTML@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable FloodlightActivityTagFormat - -instance FromHttpApiData FloodlightActivityTagFormat where - parseQueryParam = \case - "HTML" -> Right HTML - "XHTML" -> Right Xhtml - x -> Left ("Unable to parse FloodlightActivityTagFormat from: " <> x) - -instance ToHttpApiData FloodlightActivityTagFormat where - toQueryParam = \case - HTML -> "HTML" - Xhtml -> "XHTML" - -instance FromJSON FloodlightActivityTagFormat where - parseJSON = parseJSONText "FloodlightActivityTagFormat" - -instance ToJSON FloodlightActivityTagFormat where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data OrderDocumentsListSortOrder - = ODLSOAscending - -- ^ @ASCENDING@ - | ODLSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable OrderDocumentsListSortOrder - -instance FromHttpApiData OrderDocumentsListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right ODLSOAscending - "DESCENDING" -> Right ODLSODescending - x -> Left ("Unable to parse OrderDocumentsListSortOrder from: " <> x) - -instance ToHttpApiData OrderDocumentsListSortOrder where - toQueryParam = \case - ODLSOAscending -> "ASCENDING" - ODLSODescending -> "DESCENDING" - -instance FromJSON OrderDocumentsListSortOrder where - parseJSON = parseJSONText "OrderDocumentsListSortOrder" - -instance ToJSON OrderDocumentsListSortOrder where - toJSON = toJSONText - --- | Role of the asset in relation to creative. Applicable to all but the --- following creative types: all REDIRECT and TRACKING_TEXT. This is a --- required field. PRIMARY applies to DISPLAY, FLASH_INPAGE, HTML5_BANNER, --- IMAGE, DISPLAY_IMAGE_GALLERY, all RICH_MEDIA (which may contain multiple --- primary assets), and all VPAID creatives. BACKUP_IMAGE applies to --- FLASH_INPAGE, HTML5_BANNER, all RICH_MEDIA, and all VPAID creatives. --- Applicable to DISPLAY when the primary asset type is not HTML_IMAGE. --- ADDITIONAL_IMAGE and ADDITIONAL_FLASH apply to FLASH_INPAGE creatives. --- OTHER refers to assets from sources other than DCM, such as Studio --- uploaded assets, applicable to all RICH_MEDIA and all VPAID creatives. --- PARENT_VIDEO refers to videos uploaded by the user in DCM and is --- applicable to INSTREAM_VIDEO and VPAID_LINEAR_VIDEO creatives. --- TRANSCODED_VIDEO refers to videos transcoded by DCM from PARENT_VIDEO --- assets and is applicable to INSTREAM_VIDEO and VPAID_LINEAR_VIDEO --- creatives. ALTERNATE_VIDEO refers to the DCM representation of child --- asset videos from Studio, and is applicable to VPAID_LINEAR_VIDEO --- creatives. These cannot be added or removed within DCM. For --- VPAID_LINEAR_VIDEO creatives, PARENT_VIDEO, TRANSCODED_VIDEO and --- ALTERNATE_VIDEO assets that are marked active serve as backup in case --- the VPAID creative cannot be served. Only PARENT_VIDEO assets can be --- added or removed for an INSTREAM_VIDEO or VPAID_LINEAR_VIDEO creative. -data CreativeAssetRole - = AdditionalFlash - -- ^ @ADDITIONAL_FLASH@ - | AdditionalImage - -- ^ @ADDITIONAL_IMAGE@ - | AlternateVideo - -- ^ @ALTERNATE_VIDEO@ - | BackupImage - -- ^ @BACKUP_IMAGE@ - | Other - -- ^ @OTHER@ - | ParentVideo - -- ^ @PARENT_VIDEO@ - | Primary - -- ^ @PRIMARY@ - | TranscodedVideo - -- ^ @TRANSCODED_VIDEO@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeAssetRole - -instance FromHttpApiData CreativeAssetRole where - parseQueryParam = \case - "ADDITIONAL_FLASH" -> Right AdditionalFlash - "ADDITIONAL_IMAGE" -> Right AdditionalImage - "ALTERNATE_VIDEO" -> Right AlternateVideo - "BACKUP_IMAGE" -> Right BackupImage - "OTHER" -> Right Other - "PARENT_VIDEO" -> Right ParentVideo - "PRIMARY" -> Right Primary - "TRANSCODED_VIDEO" -> Right TranscodedVideo - x -> Left ("Unable to parse CreativeAssetRole from: " <> x) - -instance ToHttpApiData CreativeAssetRole where - toQueryParam = \case - AdditionalFlash -> "ADDITIONAL_FLASH" - AdditionalImage -> "ADDITIONAL_IMAGE" - AlternateVideo -> "ALTERNATE_VIDEO" - BackupImage -> "BACKUP_IMAGE" - Other -> "OTHER" - ParentVideo -> "PARENT_VIDEO" - Primary -> "PRIMARY" - TranscodedVideo -> "TRANSCODED_VIDEO" - -instance FromJSON CreativeAssetRole where - parseJSON = parseJSONText "CreativeAssetRole" - -instance ToJSON CreativeAssetRole where - toJSON = toJSONText - --- | Select only dynamic targeting keys with this object type. -data DynamicTargetingKeysListObjectType - = ObjectAd - -- ^ @OBJECT_AD@ - | ObjectAdvertiser - -- ^ @OBJECT_ADVERTISER@ - | ObjectCreative - -- ^ @OBJECT_CREATIVE@ - | ObjectPlacement - -- ^ @OBJECT_PLACEMENT@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable DynamicTargetingKeysListObjectType - -instance FromHttpApiData DynamicTargetingKeysListObjectType where - parseQueryParam = \case - "OBJECT_AD" -> Right ObjectAd - "OBJECT_ADVERTISER" -> Right ObjectAdvertiser - "OBJECT_CREATIVE" -> Right ObjectCreative - "OBJECT_PLACEMENT" -> Right ObjectPlacement - x -> Left ("Unable to parse DynamicTargetingKeysListObjectType from: " <> x) - -instance ToHttpApiData DynamicTargetingKeysListObjectType where - toQueryParam = \case - ObjectAd -> "OBJECT_AD" - ObjectAdvertiser -> "OBJECT_ADVERTISER" - ObjectCreative -> "OBJECT_CREATIVE" - ObjectPlacement -> "OBJECT_PLACEMENT" - -instance FromJSON DynamicTargetingKeysListObjectType where - parseJSON = parseJSONText "DynamicTargetingKeysListObjectType" - -instance ToJSON DynamicTargetingKeysListObjectType where - toJSON = toJSONText - --- | The delivery type for the recipient. -data RecipientDeliveryType - = Attachment - -- ^ @ATTACHMENT@ - | Link - -- ^ @LINK@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable RecipientDeliveryType - -instance FromHttpApiData RecipientDeliveryType where - parseQueryParam = \case - "ATTACHMENT" -> Right Attachment - "LINK" -> Right Link - x -> Left ("Unable to parse RecipientDeliveryType from: " <> x) - -instance ToHttpApiData RecipientDeliveryType where - toQueryParam = \case - Attachment -> "ATTACHMENT" - Link -> "LINK" - -instance FromJSON RecipientDeliveryType where - parseJSON = parseJSONText "RecipientDeliveryType" - -instance ToJSON RecipientDeliveryType where - toJSON = toJSONText - --- | Third-party URL type for in-stream video creatives. -data ThirdPartyTrackingURLThirdPartyURLType - = ClickTracking - -- ^ @CLICK_TRACKING@ - | Impression - -- ^ @IMPRESSION@ - | RichMediaBackupImpression - -- ^ @RICH_MEDIA_BACKUP_IMPRESSION@ - | RichMediaImpression - -- ^ @RICH_MEDIA_IMPRESSION@ - | RichMediaRmImpression - -- ^ @RICH_MEDIA_RM_IMPRESSION@ - | Survey - -- ^ @SURVEY@ - | VideoComplete - -- ^ @VIDEO_COMPLETE@ - | VideoCustom - -- ^ @VIDEO_CUSTOM@ - | VideoFirstQuartile - -- ^ @VIDEO_FIRST_QUARTILE@ - | VideoFullscreen - -- ^ @VIDEO_FULLSCREEN@ - | VideoMidpoint - -- ^ @VIDEO_MIDPOINT@ - | VideoMute - -- ^ @VIDEO_MUTE@ - | VideoPause - -- ^ @VIDEO_PAUSE@ - | VideoProgress - -- ^ @VIDEO_PROGRESS@ - | VideoRewind - -- ^ @VIDEO_REWIND@ - | VideoSkip - -- ^ @VIDEO_SKIP@ - | VideoStart - -- ^ @VIDEO_START@ - | VideoStop - -- ^ @VIDEO_STOP@ - | VideoThirdQuartile - -- ^ @VIDEO_THIRD_QUARTILE@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ThirdPartyTrackingURLThirdPartyURLType - -instance FromHttpApiData ThirdPartyTrackingURLThirdPartyURLType where - parseQueryParam = \case - "CLICK_TRACKING" -> Right ClickTracking - "IMPRESSION" -> Right Impression - "RICH_MEDIA_BACKUP_IMPRESSION" -> Right RichMediaBackupImpression - "RICH_MEDIA_IMPRESSION" -> Right RichMediaImpression - "RICH_MEDIA_RM_IMPRESSION" -> Right RichMediaRmImpression - "SURVEY" -> Right Survey - "VIDEO_COMPLETE" -> Right VideoComplete - "VIDEO_CUSTOM" -> Right VideoCustom - "VIDEO_FIRST_QUARTILE" -> Right VideoFirstQuartile - "VIDEO_FULLSCREEN" -> Right VideoFullscreen - "VIDEO_MIDPOINT" -> Right VideoMidpoint - "VIDEO_MUTE" -> Right VideoMute - "VIDEO_PAUSE" -> Right VideoPause - "VIDEO_PROGRESS" -> Right VideoProgress - "VIDEO_REWIND" -> Right VideoRewind - "VIDEO_SKIP" -> Right VideoSkip - "VIDEO_START" -> Right VideoStart - "VIDEO_STOP" -> Right VideoStop - "VIDEO_THIRD_QUARTILE" -> Right VideoThirdQuartile - x -> Left ("Unable to parse ThirdPartyTrackingURLThirdPartyURLType from: " <> x) - -instance ToHttpApiData ThirdPartyTrackingURLThirdPartyURLType where - toQueryParam = \case - ClickTracking -> "CLICK_TRACKING" - Impression -> "IMPRESSION" - RichMediaBackupImpression -> "RICH_MEDIA_BACKUP_IMPRESSION" - RichMediaImpression -> "RICH_MEDIA_IMPRESSION" - RichMediaRmImpression -> "RICH_MEDIA_RM_IMPRESSION" - Survey -> "SURVEY" - VideoComplete -> "VIDEO_COMPLETE" - VideoCustom -> "VIDEO_CUSTOM" - VideoFirstQuartile -> "VIDEO_FIRST_QUARTILE" - VideoFullscreen -> "VIDEO_FULLSCREEN" - VideoMidpoint -> "VIDEO_MIDPOINT" - VideoMute -> "VIDEO_MUTE" - VideoPause -> "VIDEO_PAUSE" - VideoProgress -> "VIDEO_PROGRESS" - VideoRewind -> "VIDEO_REWIND" - VideoSkip -> "VIDEO_SKIP" - VideoStart -> "VIDEO_START" - VideoStop -> "VIDEO_STOP" - VideoThirdQuartile -> "VIDEO_THIRD_QUARTILE" - -instance FromJSON ThirdPartyTrackingURLThirdPartyURLType where - parseJSON = parseJSONText "ThirdPartyTrackingURLThirdPartyURLType" - -instance ToJSON ThirdPartyTrackingURLThirdPartyURLType where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data TargetableRemarketingListsListSortOrder - = TRLLSOAscending - -- ^ @ASCENDING@ - | TRLLSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable TargetableRemarketingListsListSortOrder - -instance FromHttpApiData TargetableRemarketingListsListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right TRLLSOAscending - "DESCENDING" -> Right TRLLSODescending - x -> Left ("Unable to parse TargetableRemarketingListsListSortOrder from: " <> x) - -instance ToHttpApiData TargetableRemarketingListsListSortOrder where - toQueryParam = \case - TRLLSOAscending -> "ASCENDING" - TRLLSODescending -> "DESCENDING" - -instance FromJSON TargetableRemarketingListsListSortOrder where - parseJSON = parseJSONText "TargetableRemarketingListsListSortOrder" - -instance ToJSON TargetableRemarketingListsListSortOrder where - toJSON = toJSONText - --- | Offset left unit for an asset. This is a read-only field. Applicable to --- the following creative types: all RICH_MEDIA. -data CreativeAssetPositionLeftUnit - = OffSetUnitPercent - -- ^ @OFFSET_UNIT_PERCENT@ - | OffSetUnitPixel - -- ^ @OFFSET_UNIT_PIXEL@ - | OffSetUnitPixelFromCenter - -- ^ @OFFSET_UNIT_PIXEL_FROM_CENTER@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeAssetPositionLeftUnit - -instance FromHttpApiData CreativeAssetPositionLeftUnit where - parseQueryParam = \case - "OFFSET_UNIT_PERCENT" -> Right OffSetUnitPercent - "OFFSET_UNIT_PIXEL" -> Right OffSetUnitPixel - "OFFSET_UNIT_PIXEL_FROM_CENTER" -> Right OffSetUnitPixelFromCenter - x -> Left ("Unable to parse CreativeAssetPositionLeftUnit from: " <> x) - -instance ToHttpApiData CreativeAssetPositionLeftUnit where - toQueryParam = \case - OffSetUnitPercent -> "OFFSET_UNIT_PERCENT" - OffSetUnitPixel -> "OFFSET_UNIT_PIXEL" - OffSetUnitPixelFromCenter -> "OFFSET_UNIT_PIXEL_FROM_CENTER" - -instance FromJSON CreativeAssetPositionLeftUnit where - parseJSON = parseJSONText "CreativeAssetPositionLeftUnit" - -instance ToJSON CreativeAssetPositionLeftUnit where - toJSON = toJSONText - --- | Placement cap cost option. -data PricingScheduleCapCostOption - = CapCostCumulative - -- ^ @CAP_COST_CUMULATIVE@ - | CapCostMonthly - -- ^ @CAP_COST_MONTHLY@ - | CapCostNone - -- ^ @CAP_COST_NONE@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PricingScheduleCapCostOption - -instance FromHttpApiData PricingScheduleCapCostOption where - parseQueryParam = \case - "CAP_COST_CUMULATIVE" -> Right CapCostCumulative - "CAP_COST_MONTHLY" -> Right CapCostMonthly - "CAP_COST_NONE" -> Right CapCostNone - x -> Left ("Unable to parse PricingScheduleCapCostOption from: " <> x) - -instance ToHttpApiData PricingScheduleCapCostOption where - toQueryParam = \case - CapCostCumulative -> "CAP_COST_CUMULATIVE" - CapCostMonthly -> "CAP_COST_MONTHLY" - CapCostNone -> "CAP_COST_NONE" - -instance FromJSON PricingScheduleCapCostOption where - parseJSON = parseJSONText "PricingScheduleCapCostOption" - -instance ToJSON PricingScheduleCapCostOption where - toJSON = toJSONText - --- | Levels of availability for a user role permission. -data UserRolePermissionAvailability - = AccountAlways - -- ^ @ACCOUNT_ALWAYS@ - | AccountByDefault - -- ^ @ACCOUNT_BY_DEFAULT@ - | NotAvailableByDefault - -- ^ @NOT_AVAILABLE_BY_DEFAULT@ - | SubAccountAndAccountAlways - -- ^ @SUBACCOUNT_AND_ACCOUNT_ALWAYS@ - | SubAccountAndAccountByDefault - -- ^ @SUBACCOUNT_AND_ACCOUNT_BY_DEFAULT@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable UserRolePermissionAvailability - -instance FromHttpApiData UserRolePermissionAvailability where - parseQueryParam = \case - "ACCOUNT_ALWAYS" -> Right AccountAlways - "ACCOUNT_BY_DEFAULT" -> Right AccountByDefault - "NOT_AVAILABLE_BY_DEFAULT" -> Right NotAvailableByDefault - "SUBACCOUNT_AND_ACCOUNT_ALWAYS" -> Right SubAccountAndAccountAlways - "SUBACCOUNT_AND_ACCOUNT_BY_DEFAULT" -> Right SubAccountAndAccountByDefault - x -> Left ("Unable to parse UserRolePermissionAvailability from: " <> x) - -instance ToHttpApiData UserRolePermissionAvailability where - toQueryParam = \case - AccountAlways -> "ACCOUNT_ALWAYS" - AccountByDefault -> "ACCOUNT_BY_DEFAULT" - NotAvailableByDefault -> "NOT_AVAILABLE_BY_DEFAULT" - SubAccountAndAccountAlways -> "SUBACCOUNT_AND_ACCOUNT_ALWAYS" - SubAccountAndAccountByDefault -> "SUBACCOUNT_AND_ACCOUNT_BY_DEFAULT" - -instance FromJSON UserRolePermissionAvailability where - parseJSON = parseJSONText "UserRolePermissionAvailability" - -instance ToJSON UserRolePermissionAvailability where - toJSON = toJSONText - --- | Visibility of this directory site contact assignment. When set to PUBLIC --- this contact assignment is visible to all account and agency users; when --- set to PRIVATE it is visible only to the site. -data DirectorySiteContactAssignmentVisibility - = Private - -- ^ @PRIVATE@ - | Public - -- ^ @PUBLIC@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable DirectorySiteContactAssignmentVisibility - -instance FromHttpApiData DirectorySiteContactAssignmentVisibility where - parseQueryParam = \case - "PRIVATE" -> Right Private - "PUBLIC" -> Right Public - x -> Left ("Unable to parse DirectorySiteContactAssignmentVisibility from: " <> x) - -instance ToHttpApiData DirectorySiteContactAssignmentVisibility where - toQueryParam = \case - Private -> "PRIVATE" - Public -> "PUBLIC" - -instance FromJSON DirectorySiteContactAssignmentVisibility where - parseJSON = parseJSONText "DirectorySiteContactAssignmentVisibility" - -instance ToJSON DirectorySiteContactAssignmentVisibility where - toJSON = toJSONText - --- | Placement compatibility. DISPLAY and DISPLAY_INTERSTITIAL refer to --- rendering on desktop, on mobile devices or in mobile apps for regular or --- interstitial ads respectively. APP and APP_INTERSTITIAL are no longer --- allowed for new placement insertions. Instead, use DISPLAY or --- DISPLAY_INTERSTITIAL. IN_STREAM_VIDEO refers to rendering in in-stream --- video ads developed with the VAST standard. This field is required on --- insertion. -data PlacementCompatibility - = App - -- ^ @APP@ - | AppInterstitial - -- ^ @APP_INTERSTITIAL@ - | Display - -- ^ @DISPLAY@ - | DisplayInterstitial - -- ^ @DISPLAY_INTERSTITIAL@ - | InStreamVideo - -- ^ @IN_STREAM_VIDEO@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PlacementCompatibility - -instance FromHttpApiData PlacementCompatibility where - parseQueryParam = \case - "APP" -> Right App - "APP_INTERSTITIAL" -> Right AppInterstitial - "DISPLAY" -> Right Display - "DISPLAY_INTERSTITIAL" -> Right DisplayInterstitial - "IN_STREAM_VIDEO" -> Right InStreamVideo - x -> Left ("Unable to parse PlacementCompatibility from: " <> x) - -instance ToHttpApiData PlacementCompatibility where - toQueryParam = \case - App -> "APP" - AppInterstitial -> "APP_INTERSTITIAL" - Display -> "DISPLAY" - DisplayInterstitial -> "DISPLAY_INTERSTITIAL" - InStreamVideo -> "IN_STREAM_VIDEO" - -instance FromJSON PlacementCompatibility where - parseJSON = parseJSONText "PlacementCompatibility" - -instance ToJSON PlacementCompatibility where - toJSON = toJSONText - --- | Comparison operator of this term. This field is only relevant when type --- is left unset or set to CUSTOM_VARIABLE_TERM or REFERRER_TERM. -data ListPopulationTermOperator - = NumEquals - -- ^ @NUM_EQUALS@ - | NumGreaterThan - -- ^ @NUM_GREATER_THAN@ - | NumGreaterThanEqual - -- ^ @NUM_GREATER_THAN_EQUAL@ - | NumLessThan - -- ^ @NUM_LESS_THAN@ - | NumLessThanEqual - -- ^ @NUM_LESS_THAN_EQUAL@ - | StringContains - -- ^ @STRING_CONTAINS@ - | StringEquals - -- ^ @STRING_EQUALS@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ListPopulationTermOperator - -instance FromHttpApiData ListPopulationTermOperator where - parseQueryParam = \case - "NUM_EQUALS" -> Right NumEquals - "NUM_GREATER_THAN" -> Right NumGreaterThan - "NUM_GREATER_THAN_EQUAL" -> Right NumGreaterThanEqual - "NUM_LESS_THAN" -> Right NumLessThan - "NUM_LESS_THAN_EQUAL" -> Right NumLessThanEqual - "STRING_CONTAINS" -> Right StringContains - "STRING_EQUALS" -> Right StringEquals - x -> Left ("Unable to parse ListPopulationTermOperator from: " <> x) - -instance ToHttpApiData ListPopulationTermOperator where - toQueryParam = \case - NumEquals -> "NUM_EQUALS" - NumGreaterThan -> "NUM_GREATER_THAN" - NumGreaterThanEqual -> "NUM_GREATER_THAN_EQUAL" - NumLessThan -> "NUM_LESS_THAN" - NumLessThanEqual -> "NUM_LESS_THAN_EQUAL" - StringContains -> "STRING_CONTAINS" - StringEquals -> "STRING_EQUALS" - -instance FromJSON ListPopulationTermOperator where - parseJSON = parseJSONText "ListPopulationTermOperator" - -instance ToJSON ListPopulationTermOperator where - toJSON = toJSONText - --- | Select only placements with this payment source. -data PlacementsListPaymentSource - = PlacementAgencyPaid - -- ^ @PLACEMENT_AGENCY_PAID@ - | PlacementPublisherPaid - -- ^ @PLACEMENT_PUBLISHER_PAID@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PlacementsListPaymentSource - -instance FromHttpApiData PlacementsListPaymentSource where - parseQueryParam = \case - "PLACEMENT_AGENCY_PAID" -> Right PlacementAgencyPaid - "PLACEMENT_PUBLISHER_PAID" -> Right PlacementPublisherPaid - x -> Left ("Unable to parse PlacementsListPaymentSource from: " <> x) - -instance ToHttpApiData PlacementsListPaymentSource where - toQueryParam = \case - PlacementAgencyPaid -> "PLACEMENT_AGENCY_PAID" - PlacementPublisherPaid -> "PLACEMENT_PUBLISHER_PAID" - -instance FromJSON PlacementsListPaymentSource where - parseJSON = parseJSONText "PlacementsListPaymentSource" - -instance ToJSON PlacementsListPaymentSource where - toJSON = toJSONText - --- | The field by which to sort the list. -data ReportsListSortField - = RLSFID - -- ^ @ID@ - -- Sort by report ID. - | RLSFLastModifiedTime - -- ^ @LAST_MODIFIED_TIME@ - -- Sort by \'lastModifiedTime\' field. - | RLSFName - -- ^ @NAME@ - -- Sort by name of reports. - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ReportsListSortField - -instance FromHttpApiData ReportsListSortField where - parseQueryParam = \case - "ID" -> Right RLSFID - "LAST_MODIFIED_TIME" -> Right RLSFLastModifiedTime - "NAME" -> Right RLSFName - x -> Left ("Unable to parse ReportsListSortField from: " <> x) - -instance ToHttpApiData ReportsListSortField where - toQueryParam = \case - RLSFID -> "ID" - RLSFLastModifiedTime -> "LAST_MODIFIED_TIME" - RLSFName -> "NAME" - -instance FromJSON ReportsListSortField where - parseJSON = parseJSONText "ReportsListSortField" - -instance ToJSON ReportsListSortField where - toJSON = toJSONText - --- | Ad slot compatibility. DISPLAY and DISPLAY_INTERSTITIAL refer to --- rendering either on desktop, mobile devices or in mobile apps for --- regular or interstitial ads respectively. APP and APP_INTERSTITIAL are --- for rendering in mobile apps. IN_STREAM_VIDEO refers to rendering in --- in-stream video ads developed with the VAST standard. -data AdSlotCompatibility - = ASCApp - -- ^ @APP@ - | ASCAppInterstitial - -- ^ @APP_INTERSTITIAL@ - | ASCDisplay - -- ^ @DISPLAY@ - | ASCDisplayInterstitial - -- ^ @DISPLAY_INTERSTITIAL@ - | ASCInStreamVideo - -- ^ @IN_STREAM_VIDEO@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AdSlotCompatibility - -instance FromHttpApiData AdSlotCompatibility where - parseQueryParam = \case - "APP" -> Right ASCApp - "APP_INTERSTITIAL" -> Right ASCAppInterstitial - "DISPLAY" -> Right ASCDisplay - "DISPLAY_INTERSTITIAL" -> Right ASCDisplayInterstitial - "IN_STREAM_VIDEO" -> Right ASCInStreamVideo - x -> Left ("Unable to parse AdSlotCompatibility from: " <> x) - -instance ToHttpApiData AdSlotCompatibility where - toQueryParam = \case - ASCApp -> "APP" - ASCAppInterstitial -> "APP_INTERSTITIAL" - ASCDisplay -> "DISPLAY" - ASCDisplayInterstitial -> "DISPLAY_INTERSTITIAL" - ASCInStreamVideo -> "IN_STREAM_VIDEO" - -instance FromJSON AdSlotCompatibility where - parseJSON = parseJSONText "AdSlotCompatibility" - -instance ToJSON AdSlotCompatibility where - toJSON = toJSONText - --- | Field by which to sort the list. -data CampaignsListSortField - = CLSFID - -- ^ @ID@ - | CLSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CampaignsListSortField - -instance FromHttpApiData CampaignsListSortField where - parseQueryParam = \case - "ID" -> Right CLSFID - "NAME" -> Right CLSFName - x -> Left ("Unable to parse CampaignsListSortField from: " <> x) - -instance ToHttpApiData CampaignsListSortField where - toQueryParam = \case - CLSFID -> "ID" - CLSFName -> "NAME" - -instance FromJSON CampaignsListSortField where - parseJSON = parseJSONText "CampaignsListSortField" - -instance ToJSON CampaignsListSortField where - toJSON = toJSONText - --- | Trafficker type of this user profile. -data AccountUserProFileTraffickerType - = ExternalTrafficker - -- ^ @EXTERNAL_TRAFFICKER@ - | InternalNonTrafficker - -- ^ @INTERNAL_NON_TRAFFICKER@ - | InternalTrafficker - -- ^ @INTERNAL_TRAFFICKER@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AccountUserProFileTraffickerType - -instance FromHttpApiData AccountUserProFileTraffickerType where - parseQueryParam = \case - "EXTERNAL_TRAFFICKER" -> Right ExternalTrafficker - "INTERNAL_NON_TRAFFICKER" -> Right InternalNonTrafficker - "INTERNAL_TRAFFICKER" -> Right InternalTrafficker - x -> Left ("Unable to parse AccountUserProFileTraffickerType from: " <> x) - -instance ToHttpApiData AccountUserProFileTraffickerType where - toQueryParam = \case - ExternalTrafficker -> "EXTERNAL_TRAFFICKER" - InternalNonTrafficker -> "INTERNAL_NON_TRAFFICKER" - InternalTrafficker -> "INTERNAL_TRAFFICKER" - -instance FromJSON AccountUserProFileTraffickerType where - parseJSON = parseJSONText "AccountUserProFileTraffickerType" - -instance ToJSON AccountUserProFileTraffickerType where - toJSON = toJSONText - -data CreativeAssetMetadataDetectedFeaturesItem - = ApplicationCache - -- ^ @APPLICATION_CACHE@ - | Audio - -- ^ @AUDIO@ - | Canvas - -- ^ @CANVAS@ - | CanvasText - -- ^ @CANVAS_TEXT@ - | CssAnimations - -- ^ @CSS_ANIMATIONS@ - | CssBackgRoundSize - -- ^ @CSS_BACKGROUND_SIZE@ - | CssBOrderImage - -- ^ @CSS_BORDER_IMAGE@ - | CssBOrderRadius - -- ^ @CSS_BORDER_RADIUS@ - | CssBoxShadow - -- ^ @CSS_BOX_SHADOW@ - | CssColumns - -- ^ @CSS_COLUMNS@ - | CssFlexBox - -- ^ @CSS_FLEX_BOX@ - | CssFontFace - -- ^ @CSS_FONT_FACE@ - | CssGeneratedContent - -- ^ @CSS_GENERATED_CONTENT@ - | CssGradients - -- ^ @CSS_GRADIENTS@ - | CssHsla - -- ^ @CSS_HSLA@ - | CssMultipleBgs - -- ^ @CSS_MULTIPLE_BGS@ - | CssOpacity - -- ^ @CSS_OPACITY@ - | CssReflections - -- ^ @CSS_REFLECTIONS@ - | CssRgba - -- ^ @CSS_RGBA@ - | CssTextShadow - -- ^ @CSS_TEXT_SHADOW@ - | CssTransforms - -- ^ @CSS_TRANSFORMS@ - | CssTRANSFORMS3D - -- ^ @CSS_TRANSFORMS3D@ - | CssTransitions - -- ^ @CSS_TRANSITIONS@ - | DragAndDrop - -- ^ @DRAG_AND_DROP@ - | GeoLocation - -- ^ @GEO_LOCATION@ - | HashChange - -- ^ @HASH_CHANGE@ - | History - -- ^ @HISTORY@ - | IndexedDB - -- ^ @INDEXED_DB@ - | InlineSvg - -- ^ @INLINE_SVG@ - | InputAttrAutocomplete - -- ^ @INPUT_ATTR_AUTOCOMPLETE@ - | InputAttrAutofocus - -- ^ @INPUT_ATTR_AUTOFOCUS@ - | InputAttrList - -- ^ @INPUT_ATTR_LIST@ - | InputAttrMax - -- ^ @INPUT_ATTR_MAX@ - | InputAttrMin - -- ^ @INPUT_ATTR_MIN@ - | InputAttrMultiple - -- ^ @INPUT_ATTR_MULTIPLE@ - | InputAttrPattern - -- ^ @INPUT_ATTR_PATTERN@ - | InputAttrPlaceholder - -- ^ @INPUT_ATTR_PLACEHOLDER@ - | InputAttrRequired - -- ^ @INPUT_ATTR_REQUIRED@ - | InputAttrStep - -- ^ @INPUT_ATTR_STEP@ - | InputTypeColor - -- ^ @INPUT_TYPE_COLOR@ - | InputTypeDate - -- ^ @INPUT_TYPE_DATE@ - | InputTypeDatetime - -- ^ @INPUT_TYPE_DATETIME@ - | InputTypeDatetimeLocal - -- ^ @INPUT_TYPE_DATETIME_LOCAL@ - | InputTypeEmail - -- ^ @INPUT_TYPE_EMAIL@ - | InputTypeMonth - -- ^ @INPUT_TYPE_MONTH@ - | InputTypeNumber - -- ^ @INPUT_TYPE_NUMBER@ - | InputTypeRange - -- ^ @INPUT_TYPE_RANGE@ - | InputTypeSearch - -- ^ @INPUT_TYPE_SEARCH@ - | InputTypeTel - -- ^ @INPUT_TYPE_TEL@ - | InputTypeTime - -- ^ @INPUT_TYPE_TIME@ - | InputTypeURL - -- ^ @INPUT_TYPE_URL@ - | InputTypeWeek - -- ^ @INPUT_TYPE_WEEK@ - | LocalStorage - -- ^ @LOCAL_STORAGE@ - | PostMessage - -- ^ @POST_MESSAGE@ - | SessionStorage - -- ^ @SESSION_STORAGE@ - | Smil - -- ^ @SMIL@ - | SvgClipPaths - -- ^ @SVG_CLIP_PATHS@ - | SvgFeImage - -- ^ @SVG_FE_IMAGE@ - | SvgFilters - -- ^ @SVG_FILTERS@ - | SvgHref - -- ^ @SVG_HREF@ - | Touch - -- ^ @TOUCH@ - | Video - -- ^ @VIDEO@ - | Webgl - -- ^ @WEBGL@ - | WebSockets - -- ^ @WEB_SOCKETS@ - | WebSQLDatabase - -- ^ @WEB_SQL_DATABASE@ - | WebWorkers - -- ^ @WEB_WORKERS@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeAssetMetadataDetectedFeaturesItem - -instance FromHttpApiData CreativeAssetMetadataDetectedFeaturesItem where - parseQueryParam = \case - "APPLICATION_CACHE" -> Right ApplicationCache - "AUDIO" -> Right Audio - "CANVAS" -> Right Canvas - "CANVAS_TEXT" -> Right CanvasText - "CSS_ANIMATIONS" -> Right CssAnimations - "CSS_BACKGROUND_SIZE" -> Right CssBackgRoundSize - "CSS_BORDER_IMAGE" -> Right CssBOrderImage - "CSS_BORDER_RADIUS" -> Right CssBOrderRadius - "CSS_BOX_SHADOW" -> Right CssBoxShadow - "CSS_COLUMNS" -> Right CssColumns - "CSS_FLEX_BOX" -> Right CssFlexBox - "CSS_FONT_FACE" -> Right CssFontFace - "CSS_GENERATED_CONTENT" -> Right CssGeneratedContent - "CSS_GRADIENTS" -> Right CssGradients - "CSS_HSLA" -> Right CssHsla - "CSS_MULTIPLE_BGS" -> Right CssMultipleBgs - "CSS_OPACITY" -> Right CssOpacity - "CSS_REFLECTIONS" -> Right CssReflections - "CSS_RGBA" -> Right CssRgba - "CSS_TEXT_SHADOW" -> Right CssTextShadow - "CSS_TRANSFORMS" -> Right CssTransforms - "CSS_TRANSFORMS3D" -> Right CssTRANSFORMS3D - "CSS_TRANSITIONS" -> Right CssTransitions - "DRAG_AND_DROP" -> Right DragAndDrop - "GEO_LOCATION" -> Right GeoLocation - "HASH_CHANGE" -> Right HashChange - "HISTORY" -> Right History - "INDEXED_DB" -> Right IndexedDB - "INLINE_SVG" -> Right InlineSvg - "INPUT_ATTR_AUTOCOMPLETE" -> Right InputAttrAutocomplete - "INPUT_ATTR_AUTOFOCUS" -> Right InputAttrAutofocus - "INPUT_ATTR_LIST" -> Right InputAttrList - "INPUT_ATTR_MAX" -> Right InputAttrMax - "INPUT_ATTR_MIN" -> Right InputAttrMin - "INPUT_ATTR_MULTIPLE" -> Right InputAttrMultiple - "INPUT_ATTR_PATTERN" -> Right InputAttrPattern - "INPUT_ATTR_PLACEHOLDER" -> Right InputAttrPlaceholder - "INPUT_ATTR_REQUIRED" -> Right InputAttrRequired - "INPUT_ATTR_STEP" -> Right InputAttrStep - "INPUT_TYPE_COLOR" -> Right InputTypeColor - "INPUT_TYPE_DATE" -> Right InputTypeDate - "INPUT_TYPE_DATETIME" -> Right InputTypeDatetime - "INPUT_TYPE_DATETIME_LOCAL" -> Right InputTypeDatetimeLocal - "INPUT_TYPE_EMAIL" -> Right InputTypeEmail - "INPUT_TYPE_MONTH" -> Right InputTypeMonth - "INPUT_TYPE_NUMBER" -> Right InputTypeNumber - "INPUT_TYPE_RANGE" -> Right InputTypeRange - "INPUT_TYPE_SEARCH" -> Right InputTypeSearch - "INPUT_TYPE_TEL" -> Right InputTypeTel - "INPUT_TYPE_TIME" -> Right InputTypeTime - "INPUT_TYPE_URL" -> Right InputTypeURL - "INPUT_TYPE_WEEK" -> Right InputTypeWeek - "LOCAL_STORAGE" -> Right LocalStorage - "POST_MESSAGE" -> Right PostMessage - "SESSION_STORAGE" -> Right SessionStorage - "SMIL" -> Right Smil - "SVG_CLIP_PATHS" -> Right SvgClipPaths - "SVG_FE_IMAGE" -> Right SvgFeImage - "SVG_FILTERS" -> Right SvgFilters - "SVG_HREF" -> Right SvgHref - "TOUCH" -> Right Touch - "VIDEO" -> Right Video - "WEBGL" -> Right Webgl - "WEB_SOCKETS" -> Right WebSockets - "WEB_SQL_DATABASE" -> Right WebSQLDatabase - "WEB_WORKERS" -> Right WebWorkers - x -> Left ("Unable to parse CreativeAssetMetadataDetectedFeaturesItem from: " <> x) - -instance ToHttpApiData CreativeAssetMetadataDetectedFeaturesItem where - toQueryParam = \case - ApplicationCache -> "APPLICATION_CACHE" - Audio -> "AUDIO" - Canvas -> "CANVAS" - CanvasText -> "CANVAS_TEXT" - CssAnimations -> "CSS_ANIMATIONS" - CssBackgRoundSize -> "CSS_BACKGROUND_SIZE" - CssBOrderImage -> "CSS_BORDER_IMAGE" - CssBOrderRadius -> "CSS_BORDER_RADIUS" - CssBoxShadow -> "CSS_BOX_SHADOW" - CssColumns -> "CSS_COLUMNS" - CssFlexBox -> "CSS_FLEX_BOX" - CssFontFace -> "CSS_FONT_FACE" - CssGeneratedContent -> "CSS_GENERATED_CONTENT" - CssGradients -> "CSS_GRADIENTS" - CssHsla -> "CSS_HSLA" - CssMultipleBgs -> "CSS_MULTIPLE_BGS" - CssOpacity -> "CSS_OPACITY" - CssReflections -> "CSS_REFLECTIONS" - CssRgba -> "CSS_RGBA" - CssTextShadow -> "CSS_TEXT_SHADOW" - CssTransforms -> "CSS_TRANSFORMS" - CssTRANSFORMS3D -> "CSS_TRANSFORMS3D" - CssTransitions -> "CSS_TRANSITIONS" - DragAndDrop -> "DRAG_AND_DROP" - GeoLocation -> "GEO_LOCATION" - HashChange -> "HASH_CHANGE" - History -> "HISTORY" - IndexedDB -> "INDEXED_DB" - InlineSvg -> "INLINE_SVG" - InputAttrAutocomplete -> "INPUT_ATTR_AUTOCOMPLETE" - InputAttrAutofocus -> "INPUT_ATTR_AUTOFOCUS" - InputAttrList -> "INPUT_ATTR_LIST" - InputAttrMax -> "INPUT_ATTR_MAX" - InputAttrMin -> "INPUT_ATTR_MIN" - InputAttrMultiple -> "INPUT_ATTR_MULTIPLE" - InputAttrPattern -> "INPUT_ATTR_PATTERN" - InputAttrPlaceholder -> "INPUT_ATTR_PLACEHOLDER" - InputAttrRequired -> "INPUT_ATTR_REQUIRED" - InputAttrStep -> "INPUT_ATTR_STEP" - InputTypeColor -> "INPUT_TYPE_COLOR" - InputTypeDate -> "INPUT_TYPE_DATE" - InputTypeDatetime -> "INPUT_TYPE_DATETIME" - InputTypeDatetimeLocal -> "INPUT_TYPE_DATETIME_LOCAL" - InputTypeEmail -> "INPUT_TYPE_EMAIL" - InputTypeMonth -> "INPUT_TYPE_MONTH" - InputTypeNumber -> "INPUT_TYPE_NUMBER" - InputTypeRange -> "INPUT_TYPE_RANGE" - InputTypeSearch -> "INPUT_TYPE_SEARCH" - InputTypeTel -> "INPUT_TYPE_TEL" - InputTypeTime -> "INPUT_TYPE_TIME" - InputTypeURL -> "INPUT_TYPE_URL" - InputTypeWeek -> "INPUT_TYPE_WEEK" - LocalStorage -> "LOCAL_STORAGE" - PostMessage -> "POST_MESSAGE" - SessionStorage -> "SESSION_STORAGE" - Smil -> "SMIL" - SvgClipPaths -> "SVG_CLIP_PATHS" - SvgFeImage -> "SVG_FE_IMAGE" - SvgFilters -> "SVG_FILTERS" - SvgHref -> "SVG_HREF" - Touch -> "TOUCH" - Video -> "VIDEO" - Webgl -> "WEBGL" - WebSockets -> "WEB_SOCKETS" - WebSQLDatabase -> "WEB_SQL_DATABASE" - WebWorkers -> "WEB_WORKERS" - -instance FromJSON CreativeAssetMetadataDetectedFeaturesItem where - parseJSON = parseJSONText "CreativeAssetMetadataDetectedFeaturesItem" - -instance ToJSON CreativeAssetMetadataDetectedFeaturesItem where - toJSON = toJSONText - --- | Select default ads with the specified compatibility. Applicable when --- type is AD_SERVING_DEFAULT_AD. DISPLAY and DISPLAY_INTERSTITIAL refer to --- rendering either on desktop or on mobile devices for regular or --- interstitial ads, respectively. APP and APP_INTERSTITIAL are for --- rendering in mobile apps. IN_STREAM_VIDEO refers to rendering an --- in-stream video ads developed with the VAST standard. -data AdsListCompatibility - = ALCApp - -- ^ @APP@ - | ALCAppInterstitial - -- ^ @APP_INTERSTITIAL@ - | ALCDisplay - -- ^ @DISPLAY@ - | ALCDisplayInterstitial - -- ^ @DISPLAY_INTERSTITIAL@ - | ALCInStreamVideo - -- ^ @IN_STREAM_VIDEO@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AdsListCompatibility - -instance FromHttpApiData AdsListCompatibility where - parseQueryParam = \case - "APP" -> Right ALCApp - "APP_INTERSTITIAL" -> Right ALCAppInterstitial - "DISPLAY" -> Right ALCDisplay - "DISPLAY_INTERSTITIAL" -> Right ALCDisplayInterstitial - "IN_STREAM_VIDEO" -> Right ALCInStreamVideo - x -> Left ("Unable to parse AdsListCompatibility from: " <> x) - -instance ToHttpApiData AdsListCompatibility where - toQueryParam = \case - ALCApp -> "APP" - ALCAppInterstitial -> "APP_INTERSTITIAL" - ALCDisplay -> "DISPLAY" - ALCDisplayInterstitial -> "DISPLAY_INTERSTITIAL" - ALCInStreamVideo -> "IN_STREAM_VIDEO" - -instance FromJSON AdsListCompatibility where - parseJSON = parseJSONText "AdsListCompatibility" - -instance ToJSON AdsListCompatibility where - toJSON = toJSONText - --- | Status of this event tag. Must be ENABLED for this event tag to fire. --- This is a required field. -data EventTagStatus - = Disabled - -- ^ @DISABLED@ - | Enabled - -- ^ @ENABLED@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable EventTagStatus - -instance FromHttpApiData EventTagStatus where - parseQueryParam = \case - "DISABLED" -> Right Disabled - "ENABLED" -> Right Enabled - x -> Left ("Unable to parse EventTagStatus from: " <> x) - -instance ToHttpApiData EventTagStatus where - toQueryParam = \case - Disabled -> "DISABLED" - Enabled -> "ENABLED" - -instance FromJSON EventTagStatus where - parseJSON = parseJSONText "EventTagStatus" - -instance ToJSON EventTagStatus where - toJSON = toJSONText - --- | Field by which to sort the list. -data SitesListSortField - = SLSFID - -- ^ @ID@ - | SLSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable SitesListSortField - -instance FromHttpApiData SitesListSortField where - parseQueryParam = \case - "ID" -> Right SLSFID - "NAME" -> Right SLSFName - x -> Left ("Unable to parse SitesListSortField from: " <> x) - -instance ToHttpApiData SitesListSortField where - toQueryParam = \case - SLSFID -> "ID" - SLSFName -> "NAME" - -instance FromJSON SitesListSortField where - parseJSON = parseJSONText "SitesListSortField" - -instance ToJSON SitesListSortField where - toJSON = toJSONText - --- | Select only event tags with the specified event tag types. Event tag --- types can be used to specify whether to use a third-party pixel, a --- third-party JavaScript URL, or a third-party click-through URL for --- either impression or click tracking. -data EventTagsListEventTagTypes - = ClickThroughEventTag - -- ^ @CLICK_THROUGH_EVENT_TAG@ - | ImpressionImageEventTag - -- ^ @IMPRESSION_IMAGE_EVENT_TAG@ - | ImpressionJavascriptEventTag - -- ^ @IMPRESSION_JAVASCRIPT_EVENT_TAG@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable EventTagsListEventTagTypes - -instance FromHttpApiData EventTagsListEventTagTypes where - parseQueryParam = \case - "CLICK_THROUGH_EVENT_TAG" -> Right ClickThroughEventTag - "IMPRESSION_IMAGE_EVENT_TAG" -> Right ImpressionImageEventTag - "IMPRESSION_JAVASCRIPT_EVENT_TAG" -> Right ImpressionJavascriptEventTag - x -> Left ("Unable to parse EventTagsListEventTagTypes from: " <> x) - -instance ToHttpApiData EventTagsListEventTagTypes where - toQueryParam = \case - ClickThroughEventTag -> "CLICK_THROUGH_EVENT_TAG" - ImpressionImageEventTag -> "IMPRESSION_IMAGE_EVENT_TAG" - ImpressionJavascriptEventTag -> "IMPRESSION_JAVASCRIPT_EVENT_TAG" - -instance FromJSON EventTagsListEventTagTypes where - parseJSON = parseJSONText "EventTagsListEventTagTypes" - -instance ToJSON EventTagsListEventTagTypes where - toJSON = toJSONText - --- | The status of the report file. -data FileStatus - = Cancelled - -- ^ @CANCELLED@ - | Failed - -- ^ @FAILED@ - | Processing - -- ^ @PROCESSING@ - | ReportAvailable - -- ^ @REPORT_AVAILABLE@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable FileStatus - -instance FromHttpApiData FileStatus where - parseQueryParam = \case - "CANCELLED" -> Right Cancelled - "FAILED" -> Right Failed - "PROCESSING" -> Right Processing - "REPORT_AVAILABLE" -> Right ReportAvailable - x -> Left ("Unable to parse FileStatus from: " <> x) - -instance ToHttpApiData FileStatus where - toQueryParam = \case - Cancelled -> "CANCELLED" - Failed -> "FAILED" - Processing -> "PROCESSING" - ReportAvailable -> "REPORT_AVAILABLE" - -instance FromJSON FileStatus where - parseJSON = parseJSONText "FileStatus" - -instance ToJSON FileStatus where - toJSON = toJSONText - --- | Artwork type used by the creative.This is a read-only field. -data CreativeCustomEventArtworkType - = ArtworkTypeFlash - -- ^ @ARTWORK_TYPE_FLASH@ - | ArtworkTypeHTML5 - -- ^ @ARTWORK_TYPE_HTML5@ - | ArtworkTypeImage - -- ^ @ARTWORK_TYPE_IMAGE@ - | ArtworkTypeMixed - -- ^ @ARTWORK_TYPE_MIXED@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeCustomEventArtworkType - -instance FromHttpApiData CreativeCustomEventArtworkType where - parseQueryParam = \case - "ARTWORK_TYPE_FLASH" -> Right ArtworkTypeFlash - "ARTWORK_TYPE_HTML5" -> Right ArtworkTypeHTML5 - "ARTWORK_TYPE_IMAGE" -> Right ArtworkTypeImage - "ARTWORK_TYPE_MIXED" -> Right ArtworkTypeMixed - x -> Left ("Unable to parse CreativeCustomEventArtworkType from: " <> x) - -instance ToHttpApiData CreativeCustomEventArtworkType where - toQueryParam = \case - ArtworkTypeFlash -> "ARTWORK_TYPE_FLASH" - ArtworkTypeHTML5 -> "ARTWORK_TYPE_HTML5" - ArtworkTypeImage -> "ARTWORK_TYPE_IMAGE" - ArtworkTypeMixed -> "ARTWORK_TYPE_MIXED" - -instance FromJSON CreativeCustomEventArtworkType where - parseJSON = parseJSONText "CreativeCustomEventArtworkType" - -instance ToJSON CreativeCustomEventArtworkType where - toJSON = toJSONText - --- | Types of attribution options for natural search conversions. -data FloodlightConfigurationNATuralSearchConversionAttributionOption - = ExcludeNATuralSearchConversionAttribution - -- ^ @EXCLUDE_NATURAL_SEARCH_CONVERSION_ATTRIBUTION@ - | IncludeNATuralSearchConversionAttribution - -- ^ @INCLUDE_NATURAL_SEARCH_CONVERSION_ATTRIBUTION@ - | IncludeNATuralSearchTieredConversionAttribution - -- ^ @INCLUDE_NATURAL_SEARCH_TIERED_CONVERSION_ATTRIBUTION@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable FloodlightConfigurationNATuralSearchConversionAttributionOption - -instance FromHttpApiData FloodlightConfigurationNATuralSearchConversionAttributionOption where - parseQueryParam = \case - "EXCLUDE_NATURAL_SEARCH_CONVERSION_ATTRIBUTION" -> Right ExcludeNATuralSearchConversionAttribution - "INCLUDE_NATURAL_SEARCH_CONVERSION_ATTRIBUTION" -> Right IncludeNATuralSearchConversionAttribution - "INCLUDE_NATURAL_SEARCH_TIERED_CONVERSION_ATTRIBUTION" -> Right IncludeNATuralSearchTieredConversionAttribution - x -> Left ("Unable to parse FloodlightConfigurationNATuralSearchConversionAttributionOption from: " <> x) - -instance ToHttpApiData FloodlightConfigurationNATuralSearchConversionAttributionOption where - toQueryParam = \case - ExcludeNATuralSearchConversionAttribution -> "EXCLUDE_NATURAL_SEARCH_CONVERSION_ATTRIBUTION" - IncludeNATuralSearchConversionAttribution -> "INCLUDE_NATURAL_SEARCH_CONVERSION_ATTRIBUTION" - IncludeNATuralSearchTieredConversionAttribution -> "INCLUDE_NATURAL_SEARCH_TIERED_CONVERSION_ATTRIBUTION" - -instance FromJSON FloodlightConfigurationNATuralSearchConversionAttributionOption where - parseJSON = parseJSONText "FloodlightConfigurationNATuralSearchConversionAttributionOption" - -instance ToJSON FloodlightConfigurationNATuralSearchConversionAttributionOption where - toJSON = toJSONText - --- | Artwork type of rich media creative. This is a read-only field. --- Applicable to the following creative types: all RICH_MEDIA. -data CreativeAssetArtworkType - = CAATArtworkTypeFlash - -- ^ @ARTWORK_TYPE_FLASH@ - | CAATArtworkTypeHTML5 - -- ^ @ARTWORK_TYPE_HTML5@ - | CAATArtworkTypeImage - -- ^ @ARTWORK_TYPE_IMAGE@ - | CAATArtworkTypeMixed - -- ^ @ARTWORK_TYPE_MIXED@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeAssetArtworkType - -instance FromHttpApiData CreativeAssetArtworkType where - parseQueryParam = \case - "ARTWORK_TYPE_FLASH" -> Right CAATArtworkTypeFlash - "ARTWORK_TYPE_HTML5" -> Right CAATArtworkTypeHTML5 - "ARTWORK_TYPE_IMAGE" -> Right CAATArtworkTypeImage - "ARTWORK_TYPE_MIXED" -> Right CAATArtworkTypeMixed - x -> Left ("Unable to parse CreativeAssetArtworkType from: " <> x) - -instance ToHttpApiData CreativeAssetArtworkType where - toQueryParam = \case - CAATArtworkTypeFlash -> "ARTWORK_TYPE_FLASH" - CAATArtworkTypeHTML5 -> "ARTWORK_TYPE_HTML5" - CAATArtworkTypeImage -> "ARTWORK_TYPE_IMAGE" - CAATArtworkTypeMixed -> "ARTWORK_TYPE_MIXED" - -instance FromJSON CreativeAssetArtworkType where - parseJSON = parseJSONText "CreativeAssetArtworkType" - -instance ToJSON CreativeAssetArtworkType where - toJSON = toJSONText - --- | The type of custom floodlight variable to supply a value for. These map --- to the \"u[1-20]=\" in the tags. -data CustomFloodlightVariableType - = U1 - -- ^ @U1@ - | U10 - -- ^ @U10@ - | U11 - -- ^ @U11@ - | U12 - -- ^ @U12@ - | U13 - -- ^ @U13@ - | U14 - -- ^ @U14@ - | U15 - -- ^ @U15@ - | U16 - -- ^ @U16@ - | U17 - -- ^ @U17@ - | U18 - -- ^ @U18@ - | U19 - -- ^ @U19@ - | U2 - -- ^ @U2@ - | U20 - -- ^ @U20@ - | U3 - -- ^ @U3@ - | U4 - -- ^ @U4@ - | U5 - -- ^ @U5@ - | U6 - -- ^ @U6@ - | U7 - -- ^ @U7@ - | U8 - -- ^ @U8@ - | U9 - -- ^ @U9@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CustomFloodlightVariableType - -instance FromHttpApiData CustomFloodlightVariableType where - parseQueryParam = \case - "U1" -> Right U1 - "U10" -> Right U10 - "U11" -> Right U11 - "U12" -> Right U12 - "U13" -> Right U13 - "U14" -> Right U14 - "U15" -> Right U15 - "U16" -> Right U16 - "U17" -> Right U17 - "U18" -> Right U18 - "U19" -> Right U19 - "U2" -> Right U2 - "U20" -> Right U20 - "U3" -> Right U3 - "U4" -> Right U4 - "U5" -> Right U5 - "U6" -> Right U6 - "U7" -> Right U7 - "U8" -> Right U8 - "U9" -> Right U9 - x -> Left ("Unable to parse CustomFloodlightVariableType from: " <> x) - -instance ToHttpApiData CustomFloodlightVariableType where - toQueryParam = \case - U1 -> "U1" - U10 -> "U10" - U11 -> "U11" - U12 -> "U12" - U13 -> "U13" - U14 -> "U14" - U15 -> "U15" - U16 -> "U16" - U17 -> "U17" - U18 -> "U18" - U19 -> "U19" - U2 -> "U2" - U20 -> "U20" - U3 -> "U3" - U4 -> "U4" - U5 -> "U5" - U6 -> "U6" - U7 -> "U7" - U8 -> "U8" - U9 -> "U9" - -instance FromJSON CustomFloodlightVariableType where - parseJSON = parseJSONText "CustomFloodlightVariableType" - -instance ToJSON CustomFloodlightVariableType where - toJSON = toJSONText - --- | The error code. -data ConversionErrorCode - = Internal - -- ^ @INTERNAL@ - | InvalidArgument - -- ^ @INVALID_ARGUMENT@ - | NotFound - -- ^ @NOT_FOUND@ - | PermissionDenied - -- ^ @PERMISSION_DENIED@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ConversionErrorCode - -instance FromHttpApiData ConversionErrorCode where - parseQueryParam = \case - "INTERNAL" -> Right Internal - "INVALID_ARGUMENT" -> Right InvalidArgument - "NOT_FOUND" -> Right NotFound - "PERMISSION_DENIED" -> Right PermissionDenied - x -> Left ("Unable to parse ConversionErrorCode from: " <> x) - -instance ToHttpApiData ConversionErrorCode where - toQueryParam = \case - Internal -> "INTERNAL" - InvalidArgument -> "INVALID_ARGUMENT" - NotFound -> "NOT_FOUND" - PermissionDenied -> "PERMISSION_DENIED" - -instance FromJSON ConversionErrorCode where - parseJSON = parseJSONText "ConversionErrorCode" - -instance ToJSON ConversionErrorCode where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data FloodlightActivitiesListSortOrder - = FALSOAscending - -- ^ @ASCENDING@ - | FALSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable FloodlightActivitiesListSortOrder - -instance FromHttpApiData FloodlightActivitiesListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right FALSOAscending - "DESCENDING" -> Right FALSODescending - x -> Left ("Unable to parse FloodlightActivitiesListSortOrder from: " <> x) - -instance ToHttpApiData FloodlightActivitiesListSortOrder where - toQueryParam = \case - FALSOAscending -> "ASCENDING" - FALSODescending -> "DESCENDING" - -instance FromJSON FloodlightActivitiesListSortOrder where - parseJSON = parseJSONText "FloodlightActivitiesListSortOrder" - -instance ToJSON FloodlightActivitiesListSortOrder where - toJSON = toJSONText - --- | The output format of the report. Only available once the file is --- available. -data FileFormat - = CSV - -- ^ @CSV@ - | Excel - -- ^ @EXCEL@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable FileFormat - -instance FromHttpApiData FileFormat where - parseQueryParam = \case - "CSV" -> Right CSV - "EXCEL" -> Right Excel - x -> Left ("Unable to parse FileFormat from: " <> x) - -instance ToHttpApiData FileFormat where - toQueryParam = \case - CSV -> "CSV" - Excel -> "EXCEL" - -instance FromJSON FileFormat where - parseJSON = parseJSONText "FileFormat" - -instance ToJSON FileFormat where - toJSON = toJSONText - --- | The encryption entity type. This should match the encryption --- configuration for ad serving or Data Transfer. -data EncryptionInfoEncryptionEntityType - = AdwordsCustomer - -- ^ @ADWORDS_CUSTOMER@ - | DBmAdvertiser - -- ^ @DBM_ADVERTISER@ - | DBmPartner - -- ^ @DBM_PARTNER@ - | DcmAccount - -- ^ @DCM_ACCOUNT@ - | DcmAdvertiser - -- ^ @DCM_ADVERTISER@ - | EncryptionEntityTypeUnknown - -- ^ @ENCRYPTION_ENTITY_TYPE_UNKNOWN@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable EncryptionInfoEncryptionEntityType - -instance FromHttpApiData EncryptionInfoEncryptionEntityType where - parseQueryParam = \case - "ADWORDS_CUSTOMER" -> Right AdwordsCustomer - "DBM_ADVERTISER" -> Right DBmAdvertiser - "DBM_PARTNER" -> Right DBmPartner - "DCM_ACCOUNT" -> Right DcmAccount - "DCM_ADVERTISER" -> Right DcmAdvertiser - "ENCRYPTION_ENTITY_TYPE_UNKNOWN" -> Right EncryptionEntityTypeUnknown - x -> Left ("Unable to parse EncryptionInfoEncryptionEntityType from: " <> x) - -instance ToHttpApiData EncryptionInfoEncryptionEntityType where - toQueryParam = \case - AdwordsCustomer -> "ADWORDS_CUSTOMER" - DBmAdvertiser -> "DBM_ADVERTISER" - DBmPartner -> "DBM_PARTNER" - DcmAccount -> "DCM_ACCOUNT" - DcmAdvertiser -> "DCM_ADVERTISER" - EncryptionEntityTypeUnknown -> "ENCRYPTION_ENTITY_TYPE_UNKNOWN" - -instance FromJSON EncryptionInfoEncryptionEntityType where - parseJSON = parseJSONText "EncryptionInfoEncryptionEntityType" - -instance ToJSON EncryptionInfoEncryptionEntityType where - toJSON = toJSONText - --- | Placement pricing type. This field is required on insertion. -data PricingSchedulePricingType - = PricingTypeCpa - -- ^ @PRICING_TYPE_CPA@ - | PricingTypeCpc - -- ^ @PRICING_TYPE_CPC@ - | PricingTypeCpm - -- ^ @PRICING_TYPE_CPM@ - | PricingTypeFlatRateClicks - -- ^ @PRICING_TYPE_FLAT_RATE_CLICKS@ - | PricingTypeFlatRateImpressions - -- ^ @PRICING_TYPE_FLAT_RATE_IMPRESSIONS@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PricingSchedulePricingType - -instance FromHttpApiData PricingSchedulePricingType where - parseQueryParam = \case - "PRICING_TYPE_CPA" -> Right PricingTypeCpa - "PRICING_TYPE_CPC" -> Right PricingTypeCpc - "PRICING_TYPE_CPM" -> Right PricingTypeCpm - "PRICING_TYPE_FLAT_RATE_CLICKS" -> Right PricingTypeFlatRateClicks - "PRICING_TYPE_FLAT_RATE_IMPRESSIONS" -> Right PricingTypeFlatRateImpressions - x -> Left ("Unable to parse PricingSchedulePricingType from: " <> x) - -instance ToHttpApiData PricingSchedulePricingType where - toQueryParam = \case - PricingTypeCpa -> "PRICING_TYPE_CPA" - PricingTypeCpc -> "PRICING_TYPE_CPC" - PricingTypeCpm -> "PRICING_TYPE_CPM" - PricingTypeFlatRateClicks -> "PRICING_TYPE_FLAT_RATE_CLICKS" - PricingTypeFlatRateImpressions -> "PRICING_TYPE_FLAT_RATE_IMPRESSIONS" - -instance FromJSON PricingSchedulePricingType where - parseJSON = parseJSONText "PricingSchedulePricingType" - -instance ToJSON PricingSchedulePricingType where - toJSON = toJSONText - --- | Target type used by the event. -data CreativeCustomEventTargetType - = TargetBlank - -- ^ @TARGET_BLANK@ - | TargetParent - -- ^ @TARGET_PARENT@ - | TargetPopup - -- ^ @TARGET_POPUP@ - | TargetSelf - -- ^ @TARGET_SELF@ - | TargetTop - -- ^ @TARGET_TOP@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeCustomEventTargetType - -instance FromHttpApiData CreativeCustomEventTargetType where - parseQueryParam = \case - "TARGET_BLANK" -> Right TargetBlank - "TARGET_PARENT" -> Right TargetParent - "TARGET_POPUP" -> Right TargetPopup - "TARGET_SELF" -> Right TargetSelf - "TARGET_TOP" -> Right TargetTop - x -> Left ("Unable to parse CreativeCustomEventTargetType from: " <> x) - -instance ToHttpApiData CreativeCustomEventTargetType where - toQueryParam = \case - TargetBlank -> "TARGET_BLANK" - TargetParent -> "TARGET_PARENT" - TargetPopup -> "TARGET_POPUP" - TargetSelf -> "TARGET_SELF" - TargetTop -> "TARGET_TOP" - -instance FromJSON CreativeCustomEventTargetType where - parseJSON = parseJSONText "CreativeCustomEventTargetType" - -instance ToJSON CreativeCustomEventTargetType where - toJSON = toJSONText - --- | The scope that defines which results are returned, default is \'MINE\'. -data ReportsListScope - = All - -- ^ @ALL@ - -- All reports in account. - | Mine - -- ^ @MINE@ - -- My reports. - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ReportsListScope - -instance FromHttpApiData ReportsListScope where - parseQueryParam = \case - "ALL" -> Right All - "MINE" -> Right Mine - x -> Left ("Unable to parse ReportsListScope from: " <> x) - -instance ToHttpApiData ReportsListScope where - toQueryParam = \case - All -> "ALL" - Mine -> "MINE" - -instance FromJSON ReportsListScope where - parseJSON = parseJSONText "ReportsListScope" - -instance ToJSON ReportsListScope where - toJSON = toJSONText - --- | Duration type for which an asset will be displayed. Applicable to the --- following creative types: all RICH_MEDIA. -data CreativeAssetDurationType - = AssetDurationTypeAuto - -- ^ @ASSET_DURATION_TYPE_AUTO@ - | AssetDurationTypeCustom - -- ^ @ASSET_DURATION_TYPE_CUSTOM@ - | AssetDurationTypeNone - -- ^ @ASSET_DURATION_TYPE_NONE@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeAssetDurationType - -instance FromHttpApiData CreativeAssetDurationType where - parseQueryParam = \case - "ASSET_DURATION_TYPE_AUTO" -> Right AssetDurationTypeAuto - "ASSET_DURATION_TYPE_CUSTOM" -> Right AssetDurationTypeCustom - "ASSET_DURATION_TYPE_NONE" -> Right AssetDurationTypeNone - x -> Left ("Unable to parse CreativeAssetDurationType from: " <> x) - -instance ToHttpApiData CreativeAssetDurationType where - toQueryParam = \case - AssetDurationTypeAuto -> "ASSET_DURATION_TYPE_AUTO" - AssetDurationTypeCustom -> "ASSET_DURATION_TYPE_CUSTOM" - AssetDurationTypeNone -> "ASSET_DURATION_TYPE_NONE" - -instance FromJSON CreativeAssetDurationType where - parseJSON = parseJSONText "CreativeAssetDurationType" - -instance ToJSON CreativeAssetDurationType where - toJSON = toJSONText - --- | Product from which this targetable remarketing list was originated. -data TargetableRemarketingListListSource - = RemarketingListSourceAdx - -- ^ @REMARKETING_LIST_SOURCE_ADX@ - | RemarketingListSourceDBm - -- ^ @REMARKETING_LIST_SOURCE_DBM@ - | RemarketingListSourceDfa - -- ^ @REMARKETING_LIST_SOURCE_DFA@ - | RemarketingListSourceDfp - -- ^ @REMARKETING_LIST_SOURCE_DFP@ - | RemarketingListSourceDmp - -- ^ @REMARKETING_LIST_SOURCE_DMP@ - | RemarketingListSourceGa - -- ^ @REMARKETING_LIST_SOURCE_GA@ - | RemarketingListSourceGplus - -- ^ @REMARKETING_LIST_SOURCE_GPLUS@ - | RemarketingListSourceOther - -- ^ @REMARKETING_LIST_SOURCE_OTHER@ - | RemarketingListSourcePlayStore - -- ^ @REMARKETING_LIST_SOURCE_PLAY_STORE@ - | RemarketingListSourceXfp - -- ^ @REMARKETING_LIST_SOURCE_XFP@ - | RemarketingListSourceYouTube - -- ^ @REMARKETING_LIST_SOURCE_YOUTUBE@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable TargetableRemarketingListListSource - -instance FromHttpApiData TargetableRemarketingListListSource where - parseQueryParam = \case - "REMARKETING_LIST_SOURCE_ADX" -> Right RemarketingListSourceAdx - "REMARKETING_LIST_SOURCE_DBM" -> Right RemarketingListSourceDBm - "REMARKETING_LIST_SOURCE_DFA" -> Right RemarketingListSourceDfa - "REMARKETING_LIST_SOURCE_DFP" -> Right RemarketingListSourceDfp - "REMARKETING_LIST_SOURCE_DMP" -> Right RemarketingListSourceDmp - "REMARKETING_LIST_SOURCE_GA" -> Right RemarketingListSourceGa - "REMARKETING_LIST_SOURCE_GPLUS" -> Right RemarketingListSourceGplus - "REMARKETING_LIST_SOURCE_OTHER" -> Right RemarketingListSourceOther - "REMARKETING_LIST_SOURCE_PLAY_STORE" -> Right RemarketingListSourcePlayStore - "REMARKETING_LIST_SOURCE_XFP" -> Right RemarketingListSourceXfp - "REMARKETING_LIST_SOURCE_YOUTUBE" -> Right RemarketingListSourceYouTube - x -> Left ("Unable to parse TargetableRemarketingListListSource from: " <> x) - -instance ToHttpApiData TargetableRemarketingListListSource where - toQueryParam = \case - RemarketingListSourceAdx -> "REMARKETING_LIST_SOURCE_ADX" - RemarketingListSourceDBm -> "REMARKETING_LIST_SOURCE_DBM" - RemarketingListSourceDfa -> "REMARKETING_LIST_SOURCE_DFA" - RemarketingListSourceDfp -> "REMARKETING_LIST_SOURCE_DFP" - RemarketingListSourceDmp -> "REMARKETING_LIST_SOURCE_DMP" - RemarketingListSourceGa -> "REMARKETING_LIST_SOURCE_GA" - RemarketingListSourceGplus -> "REMARKETING_LIST_SOURCE_GPLUS" - RemarketingListSourceOther -> "REMARKETING_LIST_SOURCE_OTHER" - RemarketingListSourcePlayStore -> "REMARKETING_LIST_SOURCE_PLAY_STORE" - RemarketingListSourceXfp -> "REMARKETING_LIST_SOURCE_XFP" - RemarketingListSourceYouTube -> "REMARKETING_LIST_SOURCE_YOUTUBE" - -instance FromJSON TargetableRemarketingListListSource where - parseJSON = parseJSONText "TargetableRemarketingListListSource" - -instance ToJSON TargetableRemarketingListListSource where - toJSON = toJSONText - --- | Field by which to sort the list. -data CreativeGroupsListSortField - = CGLSFID - -- ^ @ID@ - | CGLSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeGroupsListSortField - -instance FromHttpApiData CreativeGroupsListSortField where - parseQueryParam = \case - "ID" -> Right CGLSFID - "NAME" -> Right CGLSFName - x -> Left ("Unable to parse CreativeGroupsListSortField from: " <> x) - -instance ToHttpApiData CreativeGroupsListSortField where - toQueryParam = \case - CGLSFID -> "ID" - CGLSFName -> "NAME" - -instance FromJSON CreativeGroupsListSortField where - parseJSON = parseJSONText "CreativeGroupsListSortField" - -instance ToJSON CreativeGroupsListSortField where - toJSON = toJSONText - --- | Field by which to sort the list. -data PlacementsListSortField - = PLSFID - -- ^ @ID@ - | PLSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PlacementsListSortField - -instance FromHttpApiData PlacementsListSortField where - parseQueryParam = \case - "ID" -> Right PLSFID - "NAME" -> Right PLSFName - x -> Left ("Unable to parse PlacementsListSortField from: " <> x) - -instance ToHttpApiData PlacementsListSortField where - toQueryParam = \case - PLSFID -> "ID" - PLSFName -> "NAME" - -instance FromJSON PlacementsListSortField where - parseJSON = parseJSONText "PlacementsListSortField" - -instance ToJSON PlacementsListSortField where - toJSON = toJSONText - -data CreativeBackupImageFeaturesItem - = CBIFIApplicationCache - -- ^ @APPLICATION_CACHE@ - | CBIFIAudio - -- ^ @AUDIO@ - | CBIFICanvas - -- ^ @CANVAS@ - | CBIFICanvasText - -- ^ @CANVAS_TEXT@ - | CBIFICssAnimations - -- ^ @CSS_ANIMATIONS@ - | CBIFICssBackgRoundSize - -- ^ @CSS_BACKGROUND_SIZE@ - | CBIFICssBOrderImage - -- ^ @CSS_BORDER_IMAGE@ - | CBIFICssBOrderRadius - -- ^ @CSS_BORDER_RADIUS@ - | CBIFICssBoxShadow - -- ^ @CSS_BOX_SHADOW@ - | CBIFICssColumns - -- ^ @CSS_COLUMNS@ - | CBIFICssFlexBox - -- ^ @CSS_FLEX_BOX@ - | CBIFICssFontFace - -- ^ @CSS_FONT_FACE@ - | CBIFICssGeneratedContent - -- ^ @CSS_GENERATED_CONTENT@ - | CBIFICssGradients - -- ^ @CSS_GRADIENTS@ - | CBIFICssHsla - -- ^ @CSS_HSLA@ - | CBIFICssMultipleBgs - -- ^ @CSS_MULTIPLE_BGS@ - | CBIFICssOpacity - -- ^ @CSS_OPACITY@ - | CBIFICssReflections - -- ^ @CSS_REFLECTIONS@ - | CBIFICssRgba - -- ^ @CSS_RGBA@ - | CBIFICssTextShadow - -- ^ @CSS_TEXT_SHADOW@ - | CBIFICssTransforms - -- ^ @CSS_TRANSFORMS@ - | CBIFICssTRANSFORMS3D - -- ^ @CSS_TRANSFORMS3D@ - | CBIFICssTransitions - -- ^ @CSS_TRANSITIONS@ - | CBIFIDragAndDrop - -- ^ @DRAG_AND_DROP@ - | CBIFIGeoLocation - -- ^ @GEO_LOCATION@ - | CBIFIHashChange - -- ^ @HASH_CHANGE@ - | CBIFIHistory - -- ^ @HISTORY@ - | CBIFIIndexedDB - -- ^ @INDEXED_DB@ - | CBIFIInlineSvg - -- ^ @INLINE_SVG@ - | CBIFIInputAttrAutocomplete - -- ^ @INPUT_ATTR_AUTOCOMPLETE@ - | CBIFIInputAttrAutofocus - -- ^ @INPUT_ATTR_AUTOFOCUS@ - | CBIFIInputAttrList - -- ^ @INPUT_ATTR_LIST@ - | CBIFIInputAttrMax - -- ^ @INPUT_ATTR_MAX@ - | CBIFIInputAttrMin - -- ^ @INPUT_ATTR_MIN@ - | CBIFIInputAttrMultiple - -- ^ @INPUT_ATTR_MULTIPLE@ - | CBIFIInputAttrPattern - -- ^ @INPUT_ATTR_PATTERN@ - | CBIFIInputAttrPlaceholder - -- ^ @INPUT_ATTR_PLACEHOLDER@ - | CBIFIInputAttrRequired - -- ^ @INPUT_ATTR_REQUIRED@ - | CBIFIInputAttrStep - -- ^ @INPUT_ATTR_STEP@ - | CBIFIInputTypeColor - -- ^ @INPUT_TYPE_COLOR@ - | CBIFIInputTypeDate - -- ^ @INPUT_TYPE_DATE@ - | CBIFIInputTypeDatetime - -- ^ @INPUT_TYPE_DATETIME@ - | CBIFIInputTypeDatetimeLocal - -- ^ @INPUT_TYPE_DATETIME_LOCAL@ - | CBIFIInputTypeEmail - -- ^ @INPUT_TYPE_EMAIL@ - | CBIFIInputTypeMonth - -- ^ @INPUT_TYPE_MONTH@ - | CBIFIInputTypeNumber - -- ^ @INPUT_TYPE_NUMBER@ - | CBIFIInputTypeRange - -- ^ @INPUT_TYPE_RANGE@ - | CBIFIInputTypeSearch - -- ^ @INPUT_TYPE_SEARCH@ - | CBIFIInputTypeTel - -- ^ @INPUT_TYPE_TEL@ - | CBIFIInputTypeTime - -- ^ @INPUT_TYPE_TIME@ - | CBIFIInputTypeURL - -- ^ @INPUT_TYPE_URL@ - | CBIFIInputTypeWeek - -- ^ @INPUT_TYPE_WEEK@ - | CBIFILocalStorage - -- ^ @LOCAL_STORAGE@ - | CBIFIPostMessage - -- ^ @POST_MESSAGE@ - | CBIFISessionStorage - -- ^ @SESSION_STORAGE@ - | CBIFISmil - -- ^ @SMIL@ - | CBIFISvgClipPaths - -- ^ @SVG_CLIP_PATHS@ - | CBIFISvgFeImage - -- ^ @SVG_FE_IMAGE@ - | CBIFISvgFilters - -- ^ @SVG_FILTERS@ - | CBIFISvgHref - -- ^ @SVG_HREF@ - | CBIFITouch - -- ^ @TOUCH@ - | CBIFIVideo - -- ^ @VIDEO@ - | CBIFIWebgl - -- ^ @WEBGL@ - | CBIFIWebSockets - -- ^ @WEB_SOCKETS@ - | CBIFIWebSQLDatabase - -- ^ @WEB_SQL_DATABASE@ - | CBIFIWebWorkers - -- ^ @WEB_WORKERS@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeBackupImageFeaturesItem - -instance FromHttpApiData CreativeBackupImageFeaturesItem where - parseQueryParam = \case - "APPLICATION_CACHE" -> Right CBIFIApplicationCache - "AUDIO" -> Right CBIFIAudio - "CANVAS" -> Right CBIFICanvas - "CANVAS_TEXT" -> Right CBIFICanvasText - "CSS_ANIMATIONS" -> Right CBIFICssAnimations - "CSS_BACKGROUND_SIZE" -> Right CBIFICssBackgRoundSize - "CSS_BORDER_IMAGE" -> Right CBIFICssBOrderImage - "CSS_BORDER_RADIUS" -> Right CBIFICssBOrderRadius - "CSS_BOX_SHADOW" -> Right CBIFICssBoxShadow - "CSS_COLUMNS" -> Right CBIFICssColumns - "CSS_FLEX_BOX" -> Right CBIFICssFlexBox - "CSS_FONT_FACE" -> Right CBIFICssFontFace - "CSS_GENERATED_CONTENT" -> Right CBIFICssGeneratedContent - "CSS_GRADIENTS" -> Right CBIFICssGradients - "CSS_HSLA" -> Right CBIFICssHsla - "CSS_MULTIPLE_BGS" -> Right CBIFICssMultipleBgs - "CSS_OPACITY" -> Right CBIFICssOpacity - "CSS_REFLECTIONS" -> Right CBIFICssReflections - "CSS_RGBA" -> Right CBIFICssRgba - "CSS_TEXT_SHADOW" -> Right CBIFICssTextShadow - "CSS_TRANSFORMS" -> Right CBIFICssTransforms - "CSS_TRANSFORMS3D" -> Right CBIFICssTRANSFORMS3D - "CSS_TRANSITIONS" -> Right CBIFICssTransitions - "DRAG_AND_DROP" -> Right CBIFIDragAndDrop - "GEO_LOCATION" -> Right CBIFIGeoLocation - "HASH_CHANGE" -> Right CBIFIHashChange - "HISTORY" -> Right CBIFIHistory - "INDEXED_DB" -> Right CBIFIIndexedDB - "INLINE_SVG" -> Right CBIFIInlineSvg - "INPUT_ATTR_AUTOCOMPLETE" -> Right CBIFIInputAttrAutocomplete - "INPUT_ATTR_AUTOFOCUS" -> Right CBIFIInputAttrAutofocus - "INPUT_ATTR_LIST" -> Right CBIFIInputAttrList - "INPUT_ATTR_MAX" -> Right CBIFIInputAttrMax - "INPUT_ATTR_MIN" -> Right CBIFIInputAttrMin - "INPUT_ATTR_MULTIPLE" -> Right CBIFIInputAttrMultiple - "INPUT_ATTR_PATTERN" -> Right CBIFIInputAttrPattern - "INPUT_ATTR_PLACEHOLDER" -> Right CBIFIInputAttrPlaceholder - "INPUT_ATTR_REQUIRED" -> Right CBIFIInputAttrRequired - "INPUT_ATTR_STEP" -> Right CBIFIInputAttrStep - "INPUT_TYPE_COLOR" -> Right CBIFIInputTypeColor - "INPUT_TYPE_DATE" -> Right CBIFIInputTypeDate - "INPUT_TYPE_DATETIME" -> Right CBIFIInputTypeDatetime - "INPUT_TYPE_DATETIME_LOCAL" -> Right CBIFIInputTypeDatetimeLocal - "INPUT_TYPE_EMAIL" -> Right CBIFIInputTypeEmail - "INPUT_TYPE_MONTH" -> Right CBIFIInputTypeMonth - "INPUT_TYPE_NUMBER" -> Right CBIFIInputTypeNumber - "INPUT_TYPE_RANGE" -> Right CBIFIInputTypeRange - "INPUT_TYPE_SEARCH" -> Right CBIFIInputTypeSearch - "INPUT_TYPE_TEL" -> Right CBIFIInputTypeTel - "INPUT_TYPE_TIME" -> Right CBIFIInputTypeTime - "INPUT_TYPE_URL" -> Right CBIFIInputTypeURL - "INPUT_TYPE_WEEK" -> Right CBIFIInputTypeWeek - "LOCAL_STORAGE" -> Right CBIFILocalStorage - "POST_MESSAGE" -> Right CBIFIPostMessage - "SESSION_STORAGE" -> Right CBIFISessionStorage - "SMIL" -> Right CBIFISmil - "SVG_CLIP_PATHS" -> Right CBIFISvgClipPaths - "SVG_FE_IMAGE" -> Right CBIFISvgFeImage - "SVG_FILTERS" -> Right CBIFISvgFilters - "SVG_HREF" -> Right CBIFISvgHref - "TOUCH" -> Right CBIFITouch - "VIDEO" -> Right CBIFIVideo - "WEBGL" -> Right CBIFIWebgl - "WEB_SOCKETS" -> Right CBIFIWebSockets - "WEB_SQL_DATABASE" -> Right CBIFIWebSQLDatabase - "WEB_WORKERS" -> Right CBIFIWebWorkers - x -> Left ("Unable to parse CreativeBackupImageFeaturesItem from: " <> x) - -instance ToHttpApiData CreativeBackupImageFeaturesItem where - toQueryParam = \case - CBIFIApplicationCache -> "APPLICATION_CACHE" - CBIFIAudio -> "AUDIO" - CBIFICanvas -> "CANVAS" - CBIFICanvasText -> "CANVAS_TEXT" - CBIFICssAnimations -> "CSS_ANIMATIONS" - CBIFICssBackgRoundSize -> "CSS_BACKGROUND_SIZE" - CBIFICssBOrderImage -> "CSS_BORDER_IMAGE" - CBIFICssBOrderRadius -> "CSS_BORDER_RADIUS" - CBIFICssBoxShadow -> "CSS_BOX_SHADOW" - CBIFICssColumns -> "CSS_COLUMNS" - CBIFICssFlexBox -> "CSS_FLEX_BOX" - CBIFICssFontFace -> "CSS_FONT_FACE" - CBIFICssGeneratedContent -> "CSS_GENERATED_CONTENT" - CBIFICssGradients -> "CSS_GRADIENTS" - CBIFICssHsla -> "CSS_HSLA" - CBIFICssMultipleBgs -> "CSS_MULTIPLE_BGS" - CBIFICssOpacity -> "CSS_OPACITY" - CBIFICssReflections -> "CSS_REFLECTIONS" - CBIFICssRgba -> "CSS_RGBA" - CBIFICssTextShadow -> "CSS_TEXT_SHADOW" - CBIFICssTransforms -> "CSS_TRANSFORMS" - CBIFICssTRANSFORMS3D -> "CSS_TRANSFORMS3D" - CBIFICssTransitions -> "CSS_TRANSITIONS" - CBIFIDragAndDrop -> "DRAG_AND_DROP" - CBIFIGeoLocation -> "GEO_LOCATION" - CBIFIHashChange -> "HASH_CHANGE" - CBIFIHistory -> "HISTORY" - CBIFIIndexedDB -> "INDEXED_DB" - CBIFIInlineSvg -> "INLINE_SVG" - CBIFIInputAttrAutocomplete -> "INPUT_ATTR_AUTOCOMPLETE" - CBIFIInputAttrAutofocus -> "INPUT_ATTR_AUTOFOCUS" - CBIFIInputAttrList -> "INPUT_ATTR_LIST" - CBIFIInputAttrMax -> "INPUT_ATTR_MAX" - CBIFIInputAttrMin -> "INPUT_ATTR_MIN" - CBIFIInputAttrMultiple -> "INPUT_ATTR_MULTIPLE" - CBIFIInputAttrPattern -> "INPUT_ATTR_PATTERN" - CBIFIInputAttrPlaceholder -> "INPUT_ATTR_PLACEHOLDER" - CBIFIInputAttrRequired -> "INPUT_ATTR_REQUIRED" - CBIFIInputAttrStep -> "INPUT_ATTR_STEP" - CBIFIInputTypeColor -> "INPUT_TYPE_COLOR" - CBIFIInputTypeDate -> "INPUT_TYPE_DATE" - CBIFIInputTypeDatetime -> "INPUT_TYPE_DATETIME" - CBIFIInputTypeDatetimeLocal -> "INPUT_TYPE_DATETIME_LOCAL" - CBIFIInputTypeEmail -> "INPUT_TYPE_EMAIL" - CBIFIInputTypeMonth -> "INPUT_TYPE_MONTH" - CBIFIInputTypeNumber -> "INPUT_TYPE_NUMBER" - CBIFIInputTypeRange -> "INPUT_TYPE_RANGE" - CBIFIInputTypeSearch -> "INPUT_TYPE_SEARCH" - CBIFIInputTypeTel -> "INPUT_TYPE_TEL" - CBIFIInputTypeTime -> "INPUT_TYPE_TIME" - CBIFIInputTypeURL -> "INPUT_TYPE_URL" - CBIFIInputTypeWeek -> "INPUT_TYPE_WEEK" - CBIFILocalStorage -> "LOCAL_STORAGE" - CBIFIPostMessage -> "POST_MESSAGE" - CBIFISessionStorage -> "SESSION_STORAGE" - CBIFISmil -> "SMIL" - CBIFISvgClipPaths -> "SVG_CLIP_PATHS" - CBIFISvgFeImage -> "SVG_FE_IMAGE" - CBIFISvgFilters -> "SVG_FILTERS" - CBIFISvgHref -> "SVG_HREF" - CBIFITouch -> "TOUCH" - CBIFIVideo -> "VIDEO" - CBIFIWebgl -> "WEBGL" - CBIFIWebSockets -> "WEB_SOCKETS" - CBIFIWebSQLDatabase -> "WEB_SQL_DATABASE" - CBIFIWebWorkers -> "WEB_WORKERS" - -instance FromJSON CreativeBackupImageFeaturesItem where - parseJSON = parseJSONText "CreativeBackupImageFeaturesItem" - -instance ToJSON CreativeBackupImageFeaturesItem where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data AdvertisersListSortOrder - = ALSOAscending - -- ^ @ASCENDING@ - | ALSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AdvertisersListSortOrder - -instance FromHttpApiData AdvertisersListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right ALSOAscending - "DESCENDING" -> Right ALSODescending - x -> Left ("Unable to parse AdvertisersListSortOrder from: " <> x) - -instance ToHttpApiData AdvertisersListSortOrder where - toQueryParam = \case - ALSOAscending -> "ASCENDING" - ALSODescending -> "DESCENDING" - -instance FromJSON AdvertisersListSortOrder where - parseJSON = parseJSONText "AdvertisersListSortOrder" - -instance ToJSON AdvertisersListSortOrder where - toJSON = toJSONText - --- | Field by which to sort the list. -data CreativeFieldsListSortField - = CFLSFID - -- ^ @ID@ - | CFLSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeFieldsListSortField - -instance FromHttpApiData CreativeFieldsListSortField where - parseQueryParam = \case - "ID" -> Right CFLSFID - "NAME" -> Right CFLSFName - x -> Left ("Unable to parse CreativeFieldsListSortField from: " <> x) - -instance ToHttpApiData CreativeFieldsListSortField where - toQueryParam = \case - CFLSFID -> "ID" - CFLSFName -> "NAME" - -instance FromJSON CreativeFieldsListSortField where - parseJSON = parseJSONText "CreativeFieldsListSortField" - -instance ToJSON CreativeFieldsListSortField where - toJSON = toJSONText - --- | Variable name in the tag. This is a required field. -data UserDefinedVariableConfigurationVariableType - = UDVCVTU1 - -- ^ @U1@ - | UDVCVTU10 - -- ^ @U10@ - | UDVCVTU11 - -- ^ @U11@ - | UDVCVTU12 - -- ^ @U12@ - | UDVCVTU13 - -- ^ @U13@ - | UDVCVTU14 - -- ^ @U14@ - | UDVCVTU15 - -- ^ @U15@ - | UDVCVTU16 - -- ^ @U16@ - | UDVCVTU17 - -- ^ @U17@ - | UDVCVTU18 - -- ^ @U18@ - | UDVCVTU19 - -- ^ @U19@ - | UDVCVTU2 - -- ^ @U2@ - | UDVCVTU20 - -- ^ @U20@ - | UDVCVTU3 - -- ^ @U3@ - | UDVCVTU4 - -- ^ @U4@ - | UDVCVTU5 - -- ^ @U5@ - | UDVCVTU6 - -- ^ @U6@ - | UDVCVTU7 - -- ^ @U7@ - | UDVCVTU8 - -- ^ @U8@ - | UDVCVTU9 - -- ^ @U9@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable UserDefinedVariableConfigurationVariableType - -instance FromHttpApiData UserDefinedVariableConfigurationVariableType where - parseQueryParam = \case - "U1" -> Right UDVCVTU1 - "U10" -> Right UDVCVTU10 - "U11" -> Right UDVCVTU11 - "U12" -> Right UDVCVTU12 - "U13" -> Right UDVCVTU13 - "U14" -> Right UDVCVTU14 - "U15" -> Right UDVCVTU15 - "U16" -> Right UDVCVTU16 - "U17" -> Right UDVCVTU17 - "U18" -> Right UDVCVTU18 - "U19" -> Right UDVCVTU19 - "U2" -> Right UDVCVTU2 - "U20" -> Right UDVCVTU20 - "U3" -> Right UDVCVTU3 - "U4" -> Right UDVCVTU4 - "U5" -> Right UDVCVTU5 - "U6" -> Right UDVCVTU6 - "U7" -> Right UDVCVTU7 - "U8" -> Right UDVCVTU8 - "U9" -> Right UDVCVTU9 - x -> Left ("Unable to parse UserDefinedVariableConfigurationVariableType from: " <> x) - -instance ToHttpApiData UserDefinedVariableConfigurationVariableType where - toQueryParam = \case - UDVCVTU1 -> "U1" - UDVCVTU10 -> "U10" - UDVCVTU11 -> "U11" - UDVCVTU12 -> "U12" - UDVCVTU13 -> "U13" - UDVCVTU14 -> "U14" - UDVCVTU15 -> "U15" - UDVCVTU16 -> "U16" - UDVCVTU17 -> "U17" - UDVCVTU18 -> "U18" - UDVCVTU19 -> "U19" - UDVCVTU2 -> "U2" - UDVCVTU20 -> "U20" - UDVCVTU3 -> "U3" - UDVCVTU4 -> "U4" - UDVCVTU5 -> "U5" - UDVCVTU6 -> "U6" - UDVCVTU7 -> "U7" - UDVCVTU8 -> "U8" - UDVCVTU9 -> "U9" - -instance FromJSON UserDefinedVariableConfigurationVariableType where - parseJSON = parseJSONText "UserDefinedVariableConfigurationVariableType" - -instance ToJSON UserDefinedVariableConfigurationVariableType where - toJSON = toJSONText - --- | Position in the browser where the window will open. -data FsCommandPositionOption - = Centered - -- ^ @CENTERED@ - | DistanceFromTopLeftCorner - -- ^ @DISTANCE_FROM_TOP_LEFT_CORNER@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable FsCommandPositionOption - -instance FromHttpApiData FsCommandPositionOption where - parseQueryParam = \case - "CENTERED" -> Right Centered - "DISTANCE_FROM_TOP_LEFT_CORNER" -> Right DistanceFromTopLeftCorner - x -> Left ("Unable to parse FsCommandPositionOption from: " <> x) - -instance ToHttpApiData FsCommandPositionOption where - toQueryParam = \case - Centered -> "CENTERED" - DistanceFromTopLeftCorner -> "DISTANCE_FROM_TOP_LEFT_CORNER" - -instance FromJSON FsCommandPositionOption where - parseJSON = parseJSONText "FsCommandPositionOption" - -instance ToJSON FsCommandPositionOption where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data UserRolesListSortOrder - = URLSOAscending - -- ^ @ASCENDING@ - | URLSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable UserRolesListSortOrder - -instance FromHttpApiData UserRolesListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right URLSOAscending - "DESCENDING" -> Right URLSODescending - x -> Left ("Unable to parse UserRolesListSortOrder from: " <> x) - -instance ToHttpApiData UserRolesListSortOrder where - toQueryParam = \case - URLSOAscending -> "ASCENDING" - URLSODescending -> "DESCENDING" - -instance FromJSON UserRolesListSortOrder where - parseJSON = parseJSONText "UserRolesListSortOrder" - -instance ToJSON UserRolesListSortOrder where - toJSON = toJSONText - --- | Select only placements that are associated with these compatibilities. --- DISPLAY and DISPLAY_INTERSTITIAL refer to rendering either on desktop or --- on mobile devices for regular or interstitial ads respectively. APP and --- APP_INTERSTITIAL are for rendering in mobile apps. IN_STREAM_VIDEO --- refers to rendering in in-stream video ads developed with the VAST --- standard. -data PlacementsListCompatibilities - = PLCApp - -- ^ @APP@ - | PLCAppInterstitial - -- ^ @APP_INTERSTITIAL@ - | PLCDisplay - -- ^ @DISPLAY@ - | PLCDisplayInterstitial - -- ^ @DISPLAY_INTERSTITIAL@ - | PLCInStreamVideo - -- ^ @IN_STREAM_VIDEO@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PlacementsListCompatibilities - -instance FromHttpApiData PlacementsListCompatibilities where - parseQueryParam = \case - "APP" -> Right PLCApp - "APP_INTERSTITIAL" -> Right PLCAppInterstitial - "DISPLAY" -> Right PLCDisplay - "DISPLAY_INTERSTITIAL" -> Right PLCDisplayInterstitial - "IN_STREAM_VIDEO" -> Right PLCInStreamVideo - x -> Left ("Unable to parse PlacementsListCompatibilities from: " <> x) - -instance ToHttpApiData PlacementsListCompatibilities where - toQueryParam = \case - PLCApp -> "APP" - PLCAppInterstitial -> "APP_INTERSTITIAL" - PLCDisplay -> "DISPLAY" - PLCDisplayInterstitial -> "DISPLAY_INTERSTITIAL" - PLCInStreamVideo -> "IN_STREAM_VIDEO" - -instance FromJSON PlacementsListCompatibilities where - parseJSON = parseJSONText "PlacementsListCompatibilities" - -instance ToJSON PlacementsListCompatibilities where - toJSON = toJSONText - --- | Field by which to sort the list. -data OrderDocumentsListSortField - = ODLSFID - -- ^ @ID@ - | ODLSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable OrderDocumentsListSortField - -instance FromHttpApiData OrderDocumentsListSortField where - parseQueryParam = \case - "ID" -> Right ODLSFID - "NAME" -> Right ODLSFName - x -> Left ("Unable to parse OrderDocumentsListSortField from: " <> x) - -instance ToHttpApiData OrderDocumentsListSortField where - toQueryParam = \case - ODLSFID -> "ID" - ODLSFName -> "NAME" - -instance FromJSON OrderDocumentsListSortField where - parseJSON = parseJSONText "OrderDocumentsListSortField" - -instance ToJSON OrderDocumentsListSortField where - toJSON = toJSONText - -data CreativeCompatibilityItem - = CCIApp - -- ^ @APP@ - | CCIAppInterstitial - -- ^ @APP_INTERSTITIAL@ - | CCIDisplay - -- ^ @DISPLAY@ - | CCIDisplayInterstitial - -- ^ @DISPLAY_INTERSTITIAL@ - | CCIInStreamVideo - -- ^ @IN_STREAM_VIDEO@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeCompatibilityItem - -instance FromHttpApiData CreativeCompatibilityItem where - parseQueryParam = \case - "APP" -> Right CCIApp - "APP_INTERSTITIAL" -> Right CCIAppInterstitial - "DISPLAY" -> Right CCIDisplay - "DISPLAY_INTERSTITIAL" -> Right CCIDisplayInterstitial - "IN_STREAM_VIDEO" -> Right CCIInStreamVideo - x -> Left ("Unable to parse CreativeCompatibilityItem from: " <> x) - -instance ToHttpApiData CreativeCompatibilityItem where - toQueryParam = \case - CCIApp -> "APP" - CCIAppInterstitial -> "APP_INTERSTITIAL" - CCIDisplay -> "DISPLAY" - CCIDisplayInterstitial -> "DISPLAY_INTERSTITIAL" - CCIInStreamVideo -> "IN_STREAM_VIDEO" - -instance FromJSON CreativeCompatibilityItem where - parseJSON = parseJSONText "CreativeCompatibilityItem" - -instance ToJSON CreativeCompatibilityItem where - toJSON = toJSONText - --- | The type of delivery for the owner to receive, if enabled. -data ReportDeliveryEmailOwnerDeliveryType - = RDEODTAttachment - -- ^ @ATTACHMENT@ - | RDEODTLink - -- ^ @LINK@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ReportDeliveryEmailOwnerDeliveryType - -instance FromHttpApiData ReportDeliveryEmailOwnerDeliveryType where - parseQueryParam = \case - "ATTACHMENT" -> Right RDEODTAttachment - "LINK" -> Right RDEODTLink - x -> Left ("Unable to parse ReportDeliveryEmailOwnerDeliveryType from: " <> x) - -instance ToHttpApiData ReportDeliveryEmailOwnerDeliveryType where - toQueryParam = \case - RDEODTAttachment -> "ATTACHMENT" - RDEODTLink -> "LINK" - -instance FromJSON ReportDeliveryEmailOwnerDeliveryType where - parseJSON = parseJSONText "ReportDeliveryEmailOwnerDeliveryType" - -instance ToJSON ReportDeliveryEmailOwnerDeliveryType where - toJSON = toJSONText - --- | Site contact type. -data SiteContactContactType - = SalesPerson - -- ^ @SALES_PERSON@ - | Trafficker - -- ^ @TRAFFICKER@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable SiteContactContactType - -instance FromHttpApiData SiteContactContactType where - parseQueryParam = \case - "SALES_PERSON" -> Right SalesPerson - "TRAFFICKER" -> Right Trafficker - x -> Left ("Unable to parse SiteContactContactType from: " <> x) - -instance ToHttpApiData SiteContactContactType where - toQueryParam = \case - SalesPerson -> "SALES_PERSON" - Trafficker -> "TRAFFICKER" - -instance FromJSON SiteContactContactType where - parseJSON = parseJSONText "SiteContactContactType" - -instance ToJSON SiteContactContactType where - toJSON = toJSONText - --- | Order of sorted results, default is \'DESCENDING\'. -data ReportsListSortOrder - = RLSOAscending - -- ^ @ASCENDING@ - -- Ascending order. - | RLSODescending - -- ^ @DESCENDING@ - -- Descending order. - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ReportsListSortOrder - -instance FromHttpApiData ReportsListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right RLSOAscending - "DESCENDING" -> Right RLSODescending - x -> Left ("Unable to parse ReportsListSortOrder from: " <> x) - -instance ToHttpApiData ReportsListSortOrder where - toQueryParam = \case - RLSOAscending -> "ASCENDING" - RLSODescending -> "DESCENDING" - -instance FromJSON ReportsListSortOrder where - parseJSON = parseJSONText "ReportsListSortOrder" - -instance ToJSON ReportsListSortOrder where - toJSON = toJSONText - --- | Field by which to sort the list. -data TargetableRemarketingListsListSortField - = TRLLSFID - -- ^ @ID@ - | TRLLSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable TargetableRemarketingListsListSortField - -instance FromHttpApiData TargetableRemarketingListsListSortField where - parseQueryParam = \case - "ID" -> Right TRLLSFID - "NAME" -> Right TRLLSFName - x -> Left ("Unable to parse TargetableRemarketingListsListSortField from: " <> x) - -instance ToHttpApiData TargetableRemarketingListsListSortField where - toQueryParam = \case - TRLLSFID -> "ID" - TRLLSFName -> "NAME" - -instance FromJSON TargetableRemarketingListsListSortField where - parseJSON = parseJSONText "TargetableRemarketingListsListSortField" - -instance ToJSON TargetableRemarketingListsListSortField where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data CampaignsListSortOrder - = CLSOAscending - -- ^ @ASCENDING@ - | CLSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CampaignsListSortOrder - -instance FromHttpApiData CampaignsListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right CLSOAscending - "DESCENDING" -> Right CLSODescending - x -> Left ("Unable to parse CampaignsListSortOrder from: " <> x) - -instance ToHttpApiData CampaignsListSortOrder where - toQueryParam = \case - CLSOAscending -> "ASCENDING" - CLSODescending -> "DESCENDING" - -instance FromJSON CampaignsListSortOrder where - parseJSON = parseJSONText "CampaignsListSortOrder" - -instance ToJSON CampaignsListSortOrder where - toJSON = toJSONText - --- | Select only floodlight activity groups with the specified floodlight --- activity group type. -data FloodlightActivityGroupsListType - = Counter - -- ^ @COUNTER@ - | Sale - -- ^ @SALE@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable FloodlightActivityGroupsListType - -instance FromHttpApiData FloodlightActivityGroupsListType where - parseQueryParam = \case - "COUNTER" -> Right Counter - "SALE" -> Right Sale - x -> Left ("Unable to parse FloodlightActivityGroupsListType from: " <> x) - -instance ToHttpApiData FloodlightActivityGroupsListType where - toQueryParam = \case - Counter -> "COUNTER" - Sale -> "SALE" - -instance FromJSON FloodlightActivityGroupsListType where - parseJSON = parseJSONText "FloodlightActivityGroupsListType" - -instance ToJSON FloodlightActivityGroupsListType where - toJSON = toJSONText - --- | Day that will be counted as the first day of the week in reports. This --- is a required field. -data FloodlightConfigurationFirstDayOfWeek - = Monday - -- ^ @MONDAY@ - | Sunday - -- ^ @SUNDAY@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable FloodlightConfigurationFirstDayOfWeek - -instance FromHttpApiData FloodlightConfigurationFirstDayOfWeek where - parseQueryParam = \case - "MONDAY" -> Right Monday - "SUNDAY" -> Right Sunday - x -> Left ("Unable to parse FloodlightConfigurationFirstDayOfWeek from: " <> x) - -instance ToHttpApiData FloodlightConfigurationFirstDayOfWeek where - toQueryParam = \case - Monday -> "MONDAY" - Sunday -> "SUNDAY" - -instance FromJSON FloodlightConfigurationFirstDayOfWeek where - parseJSON = parseJSONText "FloodlightConfigurationFirstDayOfWeek" - -instance ToJSON FloodlightConfigurationFirstDayOfWeek where - toJSON = toJSONText - --- | Serving priority of an ad, with respect to other ads. The lower the --- priority number, the greater the priority with which it is served. -data DeliverySchedulePriority - = AdPriority01 - -- ^ @AD_PRIORITY_01@ - | AdPriority02 - -- ^ @AD_PRIORITY_02@ - | AdPriority03 - -- ^ @AD_PRIORITY_03@ - | AdPriority04 - -- ^ @AD_PRIORITY_04@ - | AdPriority05 - -- ^ @AD_PRIORITY_05@ - | AdPriority06 - -- ^ @AD_PRIORITY_06@ - | AdPriority07 - -- ^ @AD_PRIORITY_07@ - | AdPriority08 - -- ^ @AD_PRIORITY_08@ - | AdPriority09 - -- ^ @AD_PRIORITY_09@ - | AdPriority10 - -- ^ @AD_PRIORITY_10@ - | AdPriority11 - -- ^ @AD_PRIORITY_11@ - | AdPriority12 - -- ^ @AD_PRIORITY_12@ - | AdPriority13 - -- ^ @AD_PRIORITY_13@ - | AdPriority14 - -- ^ @AD_PRIORITY_14@ - | AdPriority15 - -- ^ @AD_PRIORITY_15@ - | AdPriority16 - -- ^ @AD_PRIORITY_16@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable DeliverySchedulePriority - -instance FromHttpApiData DeliverySchedulePriority where - parseQueryParam = \case - "AD_PRIORITY_01" -> Right AdPriority01 - "AD_PRIORITY_02" -> Right AdPriority02 - "AD_PRIORITY_03" -> Right AdPriority03 - "AD_PRIORITY_04" -> Right AdPriority04 - "AD_PRIORITY_05" -> Right AdPriority05 - "AD_PRIORITY_06" -> Right AdPriority06 - "AD_PRIORITY_07" -> Right AdPriority07 - "AD_PRIORITY_08" -> Right AdPriority08 - "AD_PRIORITY_09" -> Right AdPriority09 - "AD_PRIORITY_10" -> Right AdPriority10 - "AD_PRIORITY_11" -> Right AdPriority11 - "AD_PRIORITY_12" -> Right AdPriority12 - "AD_PRIORITY_13" -> Right AdPriority13 - "AD_PRIORITY_14" -> Right AdPriority14 - "AD_PRIORITY_15" -> Right AdPriority15 - "AD_PRIORITY_16" -> Right AdPriority16 - x -> Left ("Unable to parse DeliverySchedulePriority from: " <> x) - -instance ToHttpApiData DeliverySchedulePriority where - toQueryParam = \case - AdPriority01 -> "AD_PRIORITY_01" - AdPriority02 -> "AD_PRIORITY_02" - AdPriority03 -> "AD_PRIORITY_03" - AdPriority04 -> "AD_PRIORITY_04" - AdPriority05 -> "AD_PRIORITY_05" - AdPriority06 -> "AD_PRIORITY_06" - AdPriority07 -> "AD_PRIORITY_07" - AdPriority08 -> "AD_PRIORITY_08" - AdPriority09 -> "AD_PRIORITY_09" - AdPriority10 -> "AD_PRIORITY_10" - AdPriority11 -> "AD_PRIORITY_11" - AdPriority12 -> "AD_PRIORITY_12" - AdPriority13 -> "AD_PRIORITY_13" - AdPriority14 -> "AD_PRIORITY_14" - AdPriority15 -> "AD_PRIORITY_15" - AdPriority16 -> "AD_PRIORITY_16" - -instance FromJSON DeliverySchedulePriority where - parseJSON = parseJSONText "DeliverySchedulePriority" - -instance ToJSON DeliverySchedulePriority where - toJSON = toJSONText - --- | Select only floodlight activities with the specified floodlight activity --- group type. -data FloodlightActivitiesListFloodlightActivityGroupType - = FALFAGTCounter - -- ^ @COUNTER@ - | FALFAGTSale - -- ^ @SALE@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable FloodlightActivitiesListFloodlightActivityGroupType - -instance FromHttpApiData FloodlightActivitiesListFloodlightActivityGroupType where - parseQueryParam = \case - "COUNTER" -> Right FALFAGTCounter - "SALE" -> Right FALFAGTSale - x -> Left ("Unable to parse FloodlightActivitiesListFloodlightActivityGroupType from: " <> x) - -instance ToHttpApiData FloodlightActivitiesListFloodlightActivityGroupType where - toQueryParam = \case - FALFAGTCounter -> "COUNTER" - FALFAGTSale -> "SALE" - -instance FromJSON FloodlightActivitiesListFloodlightActivityGroupType where - parseJSON = parseJSONText "FloodlightActivitiesListFloodlightActivityGroupType" - -instance ToJSON FloodlightActivitiesListFloodlightActivityGroupType where - toJSON = toJSONText - --- | Source application where creative was authored. Presently, only DBM --- authored creatives will have this field set. Applicable to all creative --- types. -data CreativeAuthoringSource - = CreativeAuthoringSourceDBm - -- ^ @CREATIVE_AUTHORING_SOURCE_DBM@ - | CreativeAuthoringSourceDcm - -- ^ @CREATIVE_AUTHORING_SOURCE_DCM@ - | CreativeAuthoringSourceStudio - -- ^ @CREATIVE_AUTHORING_SOURCE_STUDIO@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeAuthoringSource - -instance FromHttpApiData CreativeAuthoringSource where - parseQueryParam = \case - "CREATIVE_AUTHORING_SOURCE_DBM" -> Right CreativeAuthoringSourceDBm - "CREATIVE_AUTHORING_SOURCE_DCM" -> Right CreativeAuthoringSourceDcm - "CREATIVE_AUTHORING_SOURCE_STUDIO" -> Right CreativeAuthoringSourceStudio - x -> Left ("Unable to parse CreativeAuthoringSource from: " <> x) - -instance ToHttpApiData CreativeAuthoringSource where - toQueryParam = \case - CreativeAuthoringSourceDBm -> "CREATIVE_AUTHORING_SOURCE_DBM" - CreativeAuthoringSourceDcm -> "CREATIVE_AUTHORING_SOURCE_DCM" - CreativeAuthoringSourceStudio -> "CREATIVE_AUTHORING_SOURCE_STUDIO" - -instance FromJSON CreativeAuthoringSource where - parseJSON = parseJSONText "CreativeAuthoringSource" - -instance ToJSON CreativeAuthoringSource where - toJSON = toJSONText - -data FloodlightConfigurationStandardVariableTypesItem - = Num - -- ^ @NUM@ - | Ord - -- ^ @ORD@ - | Tran - -- ^ @TRAN@ - | U - -- ^ @U@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable FloodlightConfigurationStandardVariableTypesItem - -instance FromHttpApiData FloodlightConfigurationStandardVariableTypesItem where - parseQueryParam = \case - "NUM" -> Right Num - "ORD" -> Right Ord - "TRAN" -> Right Tran - "U" -> Right U - x -> Left ("Unable to parse FloodlightConfigurationStandardVariableTypesItem from: " <> x) - -instance ToHttpApiData FloodlightConfigurationStandardVariableTypesItem where - toQueryParam = \case - Num -> "NUM" - Ord -> "ORD" - Tran -> "TRAN" - U -> "U" - -instance FromJSON FloodlightConfigurationStandardVariableTypesItem where - parseJSON = parseJSONText "FloodlightConfigurationStandardVariableTypesItem" - -instance ToJSON FloodlightConfigurationStandardVariableTypesItem where - toJSON = toJSONText - --- | Payment source for this placement. This is a required field that is --- read-only after insertion. -data PlacementPaymentSource - = PPSPlacementAgencyPaid - -- ^ @PLACEMENT_AGENCY_PAID@ - | PPSPlacementPublisherPaid - -- ^ @PLACEMENT_PUBLISHER_PAID@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PlacementPaymentSource - -instance FromHttpApiData PlacementPaymentSource where - parseQueryParam = \case - "PLACEMENT_AGENCY_PAID" -> Right PPSPlacementAgencyPaid - "PLACEMENT_PUBLISHER_PAID" -> Right PPSPlacementPublisherPaid - x -> Left ("Unable to parse PlacementPaymentSource from: " <> x) - -instance ToHttpApiData PlacementPaymentSource where - toQueryParam = \case - PPSPlacementAgencyPaid -> "PLACEMENT_AGENCY_PAID" - PPSPlacementPublisherPaid -> "PLACEMENT_PUBLISHER_PAID" - -instance FromJSON PlacementPaymentSource where - parseJSON = parseJSONText "PlacementPaymentSource" - -instance ToJSON PlacementPaymentSource where - toJSON = toJSONText - --- | Order of sorted results, default is \'DESCENDING\'. -data ReportsFilesListSortOrder - = RFLSOAscending - -- ^ @ASCENDING@ - -- Ascending order. - | RFLSODescending - -- ^ @DESCENDING@ - -- Descending order. - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ReportsFilesListSortOrder - -instance FromHttpApiData ReportsFilesListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right RFLSOAscending - "DESCENDING" -> Right RFLSODescending - x -> Left ("Unable to parse ReportsFilesListSortOrder from: " <> x) - -instance ToHttpApiData ReportsFilesListSortOrder where - toQueryParam = \case - RFLSOAscending -> "ASCENDING" - RFLSODescending -> "DESCENDING" - -instance FromJSON ReportsFilesListSortOrder where - parseJSON = parseJSONText "ReportsFilesListSortOrder" - -instance ToJSON ReportsFilesListSortOrder where - toJSON = toJSONText - --- | Field by which to sort the list. -data InventoryItemsListSortField - = IILSFID - -- ^ @ID@ - | IILSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable InventoryItemsListSortField - -instance FromHttpApiData InventoryItemsListSortField where - parseQueryParam = \case - "ID" -> Right IILSFID - "NAME" -> Right IILSFName - x -> Left ("Unable to parse InventoryItemsListSortField from: " <> x) - -instance ToHttpApiData InventoryItemsListSortField where - toQueryParam = \case - IILSFID -> "ID" - IILSFName -> "NAME" - -instance FromJSON InventoryItemsListSortField where - parseJSON = parseJSONText "InventoryItemsListSortField" - -instance ToJSON InventoryItemsListSortField where - toJSON = toJSONText - --- | Event tag type. Can be used to specify whether to use a third-party --- pixel, a third-party JavaScript URL, or a third-party click-through URL --- for either impression or click tracking. This is a required field. -data EventTagType - = ETTClickThroughEventTag - -- ^ @CLICK_THROUGH_EVENT_TAG@ - | ETTImpressionImageEventTag - -- ^ @IMPRESSION_IMAGE_EVENT_TAG@ - | ETTImpressionJavascriptEventTag - -- ^ @IMPRESSION_JAVASCRIPT_EVENT_TAG@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable EventTagType - -instance FromHttpApiData EventTagType where - parseQueryParam = \case - "CLICK_THROUGH_EVENT_TAG" -> Right ETTClickThroughEventTag - "IMPRESSION_IMAGE_EVENT_TAG" -> Right ETTImpressionImageEventTag - "IMPRESSION_JAVASCRIPT_EVENT_TAG" -> Right ETTImpressionJavascriptEventTag - x -> Left ("Unable to parse EventTagType from: " <> x) - -instance ToHttpApiData EventTagType where - toQueryParam = \case - ETTClickThroughEventTag -> "CLICK_THROUGH_EVENT_TAG" - ETTImpressionImageEventTag -> "IMPRESSION_IMAGE_EVENT_TAG" - ETTImpressionJavascriptEventTag -> "IMPRESSION_JAVASCRIPT_EVENT_TAG" - -instance FromJSON EventTagType where - parseJSON = parseJSONText "EventTagType" - -instance ToJSON EventTagType where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data CreativesListSortOrder - = CAscending - -- ^ @ASCENDING@ - | CDescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativesListSortOrder - -instance FromHttpApiData CreativesListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right CAscending - "DESCENDING" -> Right CDescending - x -> Left ("Unable to parse CreativesListSortOrder from: " <> x) - -instance ToHttpApiData CreativesListSortOrder where - toQueryParam = \case - CAscending -> "ASCENDING" - CDescending -> "DESCENDING" - -instance FromJSON CreativesListSortOrder where - parseJSON = parseJSONText "CreativesListSortOrder" - -instance ToJSON CreativesListSortOrder where - toJSON = toJSONText - --- | Select only inventory items with this type. -data InventoryItemsListType - = PlanningPlacementTypeCredit - -- ^ @PLANNING_PLACEMENT_TYPE_CREDIT@ - | PlanningPlacementTypeRegular - -- ^ @PLANNING_PLACEMENT_TYPE_REGULAR@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable InventoryItemsListType - -instance FromHttpApiData InventoryItemsListType where - parseQueryParam = \case - "PLANNING_PLACEMENT_TYPE_CREDIT" -> Right PlanningPlacementTypeCredit - "PLANNING_PLACEMENT_TYPE_REGULAR" -> Right PlanningPlacementTypeRegular - x -> Left ("Unable to parse InventoryItemsListType from: " <> x) - -instance ToHttpApiData InventoryItemsListType where - toQueryParam = \case - PlanningPlacementTypeCredit -> "PLANNING_PLACEMENT_TYPE_CREDIT" - PlanningPlacementTypeRegular -> "PLANNING_PLACEMENT_TYPE_REGULAR" - -instance FromJSON InventoryItemsListType where - parseJSON = parseJSONText "InventoryItemsListType" - -instance ToJSON InventoryItemsListType where - toJSON = toJSONText - --- | Popup window position either centered or at specific coordinate. -data PopupWindowPropertiesPositionType - = Center - -- ^ @CENTER@ - | Coordinates - -- ^ @COORDINATES@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PopupWindowPropertiesPositionType - -instance FromHttpApiData PopupWindowPropertiesPositionType where - parseQueryParam = \case - "CENTER" -> Right Center - "COORDINATES" -> Right Coordinates - x -> Left ("Unable to parse PopupWindowPropertiesPositionType from: " <> x) - -instance ToHttpApiData PopupWindowPropertiesPositionType where - toQueryParam = \case - Center -> "CENTER" - Coordinates -> "COORDINATES" - -instance FromJSON PopupWindowPropertiesPositionType where - parseJSON = parseJSONText "PopupWindowPropertiesPositionType" - -instance ToJSON PopupWindowPropertiesPositionType where - toJSON = toJSONText - --- | Directory site contact role. -data DirectorySiteContactRole - = Admin - -- ^ @ADMIN@ - | Edit - -- ^ @EDIT@ - | View - -- ^ @VIEW@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable DirectorySiteContactRole - -instance FromHttpApiData DirectorySiteContactRole where - parseQueryParam = \case - "ADMIN" -> Right Admin - "EDIT" -> Right Edit - "VIEW" -> Right View - x -> Left ("Unable to parse DirectorySiteContactRole from: " <> x) - -instance ToHttpApiData DirectorySiteContactRole where - toQueryParam = \case - Admin -> "ADMIN" - Edit -> "EDIT" - View -> "VIEW" - -instance FromJSON DirectorySiteContactRole where - parseJSON = parseJSONText "DirectorySiteContactRole" - -instance ToJSON DirectorySiteContactRole where - toJSON = toJSONText - --- | Option specifying how keywords are embedded in ad tags. This setting can --- be used to specify whether keyword placeholders are inserted in --- placement tags for this site. Publishers can then add keywords to those --- placeholders. -data TagSettingKeywordOption - = GenerateSeparateTagForEachKeyword - -- ^ @GENERATE_SEPARATE_TAG_FOR_EACH_KEYWORD@ - | Ignore - -- ^ @IGNORE@ - | PlaceholderWithListOfKeywords - -- ^ @PLACEHOLDER_WITH_LIST_OF_KEYWORDS@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable TagSettingKeywordOption - -instance FromHttpApiData TagSettingKeywordOption where - parseQueryParam = \case - "GENERATE_SEPARATE_TAG_FOR_EACH_KEYWORD" -> Right GenerateSeparateTagForEachKeyword - "IGNORE" -> Right Ignore - "PLACEHOLDER_WITH_LIST_OF_KEYWORDS" -> Right PlaceholderWithListOfKeywords - x -> Left ("Unable to parse TagSettingKeywordOption from: " <> x) - -instance ToHttpApiData TagSettingKeywordOption where - toQueryParam = \case - GenerateSeparateTagForEachKeyword -> "GENERATE_SEPARATE_TAG_FOR_EACH_KEYWORD" - Ignore -> "IGNORE" - PlaceholderWithListOfKeywords -> "PLACEHOLDER_WITH_LIST_OF_KEYWORDS" - -instance FromJSON TagSettingKeywordOption where - parseJSON = parseJSONText "TagSettingKeywordOption" - -instance ToJSON TagSettingKeywordOption where - toJSON = toJSONText - --- | Authoring tool for HTML5 banner creatives. This is a read-only field. --- Applicable to the following creative types: HTML5_BANNER. -data CreativeAuthoringTool - = Ninja - -- ^ @NINJA@ - | Swiffy - -- ^ @SWIFFY@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeAuthoringTool - -instance FromHttpApiData CreativeAuthoringTool where - parseQueryParam = \case - "NINJA" -> Right Ninja - "SWIFFY" -> Right Swiffy - x -> Left ("Unable to parse CreativeAuthoringTool from: " <> x) - -instance ToHttpApiData CreativeAuthoringTool where - toQueryParam = \case - Ninja -> "NINJA" - Swiffy -> "SWIFFY" - -instance FromJSON CreativeAuthoringTool where - parseJSON = parseJSONText "CreativeAuthoringTool" - -instance ToJSON CreativeAuthoringTool where - toJSON = toJSONText - --- | Type of this contact. -data OrderContactContactType - = PlanningOrderContactBuyerBillingContact - -- ^ @PLANNING_ORDER_CONTACT_BUYER_BILLING_CONTACT@ - | PlanningOrderContactBuyerContact - -- ^ @PLANNING_ORDER_CONTACT_BUYER_CONTACT@ - | PlanningOrderContactSellerContact - -- ^ @PLANNING_ORDER_CONTACT_SELLER_CONTACT@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable OrderContactContactType - -instance FromHttpApiData OrderContactContactType where - parseQueryParam = \case - "PLANNING_ORDER_CONTACT_BUYER_BILLING_CONTACT" -> Right PlanningOrderContactBuyerBillingContact - "PLANNING_ORDER_CONTACT_BUYER_CONTACT" -> Right PlanningOrderContactBuyerContact - "PLANNING_ORDER_CONTACT_SELLER_CONTACT" -> Right PlanningOrderContactSellerContact - x -> Left ("Unable to parse OrderContactContactType from: " <> x) - -instance ToHttpApiData OrderContactContactType where - toQueryParam = \case - PlanningOrderContactBuyerBillingContact -> "PLANNING_ORDER_CONTACT_BUYER_BILLING_CONTACT" - PlanningOrderContactBuyerContact -> "PLANNING_ORDER_CONTACT_BUYER_CONTACT" - PlanningOrderContactSellerContact -> "PLANNING_ORDER_CONTACT_SELLER_CONTACT" - -instance FromJSON OrderContactContactType where - parseJSON = parseJSONText "OrderContactContactType" - -instance ToJSON OrderContactContactType where - toJSON = toJSONText - --- | Type of asset to upload. This is a required field. IMAGE is solely used --- for IMAGE creatives. Other image assets should use HTML_IMAGE. -data CreativeAssetIdType - = CAITFlash - -- ^ @FLASH@ - | CAITHTML - -- ^ @HTML@ - | CAITHTMLImage - -- ^ @HTML_IMAGE@ - | CAITImage - -- ^ @IMAGE@ - | CAITVideo - -- ^ @VIDEO@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeAssetIdType - -instance FromHttpApiData CreativeAssetIdType where - parseQueryParam = \case - "FLASH" -> Right CAITFlash - "HTML" -> Right CAITHTML - "HTML_IMAGE" -> Right CAITHTMLImage - "IMAGE" -> Right CAITImage - "VIDEO" -> Right CAITVideo - x -> Left ("Unable to parse CreativeAssetIdType from: " <> x) - -instance ToHttpApiData CreativeAssetIdType where - toQueryParam = \case - CAITFlash -> "FLASH" - CAITHTML -> "HTML" - CAITHTMLImage -> "HTML_IMAGE" - CAITImage -> "IMAGE" - CAITVideo -> "VIDEO" - -instance FromJSON CreativeAssetIdType where - parseJSON = parseJSONText "CreativeAssetIdType" - -instance ToJSON CreativeAssetIdType where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data AccountUserProFilesListSortOrder - = AUPFLSOAscending - -- ^ @ASCENDING@ - | AUPFLSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AccountUserProFilesListSortOrder - -instance FromHttpApiData AccountUserProFilesListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right AUPFLSOAscending - "DESCENDING" -> Right AUPFLSODescending - x -> Left ("Unable to parse AccountUserProFilesListSortOrder from: " <> x) - -instance ToHttpApiData AccountUserProFilesListSortOrder where - toQueryParam = \case - AUPFLSOAscending -> "ASCENDING" - AUPFLSODescending -> "DESCENDING" - -instance FromJSON AccountUserProFilesListSortOrder where - parseJSON = parseJSONText "AccountUserProFilesListSortOrder" - -instance ToJSON AccountUserProFilesListSortOrder where - toJSON = toJSONText - --- | Product from which this remarketing list was originated. -data RemarketingListListSource - = RLLSRemarketingListSourceAdx - -- ^ @REMARKETING_LIST_SOURCE_ADX@ - | RLLSRemarketingListSourceDBm - -- ^ @REMARKETING_LIST_SOURCE_DBM@ - | RLLSRemarketingListSourceDfa - -- ^ @REMARKETING_LIST_SOURCE_DFA@ - | RLLSRemarketingListSourceDfp - -- ^ @REMARKETING_LIST_SOURCE_DFP@ - | RLLSRemarketingListSourceDmp - -- ^ @REMARKETING_LIST_SOURCE_DMP@ - | RLLSRemarketingListSourceGa - -- ^ @REMARKETING_LIST_SOURCE_GA@ - | RLLSRemarketingListSourceGplus - -- ^ @REMARKETING_LIST_SOURCE_GPLUS@ - | RLLSRemarketingListSourceOther - -- ^ @REMARKETING_LIST_SOURCE_OTHER@ - | RLLSRemarketingListSourcePlayStore - -- ^ @REMARKETING_LIST_SOURCE_PLAY_STORE@ - | RLLSRemarketingListSourceXfp - -- ^ @REMARKETING_LIST_SOURCE_XFP@ - | RLLSRemarketingListSourceYouTube - -- ^ @REMARKETING_LIST_SOURCE_YOUTUBE@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable RemarketingListListSource - -instance FromHttpApiData RemarketingListListSource where - parseQueryParam = \case - "REMARKETING_LIST_SOURCE_ADX" -> Right RLLSRemarketingListSourceAdx - "REMARKETING_LIST_SOURCE_DBM" -> Right RLLSRemarketingListSourceDBm - "REMARKETING_LIST_SOURCE_DFA" -> Right RLLSRemarketingListSourceDfa - "REMARKETING_LIST_SOURCE_DFP" -> Right RLLSRemarketingListSourceDfp - "REMARKETING_LIST_SOURCE_DMP" -> Right RLLSRemarketingListSourceDmp - "REMARKETING_LIST_SOURCE_GA" -> Right RLLSRemarketingListSourceGa - "REMARKETING_LIST_SOURCE_GPLUS" -> Right RLLSRemarketingListSourceGplus - "REMARKETING_LIST_SOURCE_OTHER" -> Right RLLSRemarketingListSourceOther - "REMARKETING_LIST_SOURCE_PLAY_STORE" -> Right RLLSRemarketingListSourcePlayStore - "REMARKETING_LIST_SOURCE_XFP" -> Right RLLSRemarketingListSourceXfp - "REMARKETING_LIST_SOURCE_YOUTUBE" -> Right RLLSRemarketingListSourceYouTube - x -> Left ("Unable to parse RemarketingListListSource from: " <> x) - -instance ToHttpApiData RemarketingListListSource where - toQueryParam = \case - RLLSRemarketingListSourceAdx -> "REMARKETING_LIST_SOURCE_ADX" - RLLSRemarketingListSourceDBm -> "REMARKETING_LIST_SOURCE_DBM" - RLLSRemarketingListSourceDfa -> "REMARKETING_LIST_SOURCE_DFA" - RLLSRemarketingListSourceDfp -> "REMARKETING_LIST_SOURCE_DFP" - RLLSRemarketingListSourceDmp -> "REMARKETING_LIST_SOURCE_DMP" - RLLSRemarketingListSourceGa -> "REMARKETING_LIST_SOURCE_GA" - RLLSRemarketingListSourceGplus -> "REMARKETING_LIST_SOURCE_GPLUS" - RLLSRemarketingListSourceOther -> "REMARKETING_LIST_SOURCE_OTHER" - RLLSRemarketingListSourcePlayStore -> "REMARKETING_LIST_SOURCE_PLAY_STORE" - RLLSRemarketingListSourceXfp -> "REMARKETING_LIST_SOURCE_XFP" - RLLSRemarketingListSourceYouTube -> "REMARKETING_LIST_SOURCE_YOUTUBE" - -instance FromJSON RemarketingListListSource where - parseJSON = parseJSONText "RemarketingListListSource" - -instance ToJSON RemarketingListListSource where - toJSON = toJSONText - --- | User type of the user profile. This is a read-only field that can be --- left blank. -data AccountUserProFileUserAccessType - = InternalAdministrator - -- ^ @INTERNAL_ADMINISTRATOR@ - | NormalUser - -- ^ @NORMAL_USER@ - | ReadOnlySuperUser - -- ^ @READ_ONLY_SUPER_USER@ - | SuperUser - -- ^ @SUPER_USER@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AccountUserProFileUserAccessType - -instance FromHttpApiData AccountUserProFileUserAccessType where - parseQueryParam = \case - "INTERNAL_ADMINISTRATOR" -> Right InternalAdministrator - "NORMAL_USER" -> Right NormalUser - "READ_ONLY_SUPER_USER" -> Right ReadOnlySuperUser - "SUPER_USER" -> Right SuperUser - x -> Left ("Unable to parse AccountUserProFileUserAccessType from: " <> x) - -instance ToHttpApiData AccountUserProFileUserAccessType where - toQueryParam = \case - InternalAdministrator -> "INTERNAL_ADMINISTRATOR" - NormalUser -> "NORMAL_USER" - ReadOnlySuperUser -> "READ_ONLY_SUPER_USER" - SuperUser -> "SUPER_USER" - -instance FromJSON AccountUserProFileUserAccessType where - parseJSON = parseJSONText "AccountUserProFileUserAccessType" - -instance ToJSON AccountUserProFileUserAccessType where - toJSON = toJSONText - --- | Initial wait time type before making the asset visible. Applicable to --- the following creative types: all RICH_MEDIA. -data CreativeAssetStartTimeType - = AssetStartTimeTypeCustom - -- ^ @ASSET_START_TIME_TYPE_CUSTOM@ - | AssetStartTimeTypeNone - -- ^ @ASSET_START_TIME_TYPE_NONE@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeAssetStartTimeType - -instance FromHttpApiData CreativeAssetStartTimeType where - parseQueryParam = \case - "ASSET_START_TIME_TYPE_CUSTOM" -> Right AssetStartTimeTypeCustom - "ASSET_START_TIME_TYPE_NONE" -> Right AssetStartTimeTypeNone - x -> Left ("Unable to parse CreativeAssetStartTimeType from: " <> x) - -instance ToHttpApiData CreativeAssetStartTimeType where - toQueryParam = \case - AssetStartTimeTypeCustom -> "ASSET_START_TIME_TYPE_CUSTOM" - AssetStartTimeTypeNone -> "ASSET_START_TIME_TYPE_NONE" - -instance FromJSON CreativeAssetStartTimeType where - parseJSON = parseJSONText "CreativeAssetStartTimeType" - -instance ToJSON CreativeAssetStartTimeType where - toJSON = toJSONText - --- | Audience gender of this project. -data ProjectAudienceGender - = PlanningAudienceGenderFemale - -- ^ @PLANNING_AUDIENCE_GENDER_FEMALE@ - | PlanningAudienceGenderMale - -- ^ @PLANNING_AUDIENCE_GENDER_MALE@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ProjectAudienceGender - -instance FromHttpApiData ProjectAudienceGender where - parseQueryParam = \case - "PLANNING_AUDIENCE_GENDER_FEMALE" -> Right PlanningAudienceGenderFemale - "PLANNING_AUDIENCE_GENDER_MALE" -> Right PlanningAudienceGenderMale - x -> Left ("Unable to parse ProjectAudienceGender from: " <> x) - -instance ToHttpApiData ProjectAudienceGender where - toQueryParam = \case - PlanningAudienceGenderFemale -> "PLANNING_AUDIENCE_GENDER_FEMALE" - PlanningAudienceGenderMale -> "PLANNING_AUDIENCE_GENDER_MALE" - -instance FromJSON ProjectAudienceGender where - parseJSON = parseJSONText "ProjectAudienceGender" - -instance ToJSON ProjectAudienceGender where - toJSON = toJSONText - --- | Field by which to sort the list. -data PlacementStrategiesListSortField - = PSLSFID - -- ^ @ID@ - | PSLSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PlacementStrategiesListSortField - -instance FromHttpApiData PlacementStrategiesListSortField where - parseQueryParam = \case - "ID" -> Right PSLSFID - "NAME" -> Right PSLSFName - x -> Left ("Unable to parse PlacementStrategiesListSortField from: " <> x) - -instance ToHttpApiData PlacementStrategiesListSortField where - toQueryParam = \case - PSLSFID -> "ID" - PSLSFName -> "NAME" - -instance FromJSON PlacementStrategiesListSortField where - parseJSON = parseJSONText "PlacementStrategiesListSortField" - -instance ToJSON PlacementStrategiesListSortField where - toJSON = toJSONText - --- | Data type for the variable. This is a required field. -data UserDefinedVariableConfigurationDataType - = Number - -- ^ @NUMBER@ - | String - -- ^ @STRING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable UserDefinedVariableConfigurationDataType - -instance FromHttpApiData UserDefinedVariableConfigurationDataType where - parseQueryParam = \case - "NUMBER" -> Right Number - "STRING" -> Right String - x -> Left ("Unable to parse UserDefinedVariableConfigurationDataType from: " <> x) - -instance ToHttpApiData UserDefinedVariableConfigurationDataType where - toQueryParam = \case - Number -> "NUMBER" - String -> "STRING" - -instance FromJSON UserDefinedVariableConfigurationDataType where - parseJSON = parseJSONText "UserDefinedVariableConfigurationDataType" - -instance ToJSON UserDefinedVariableConfigurationDataType where - toJSON = toJSONText - --- | Code type used for cache busting in the generated tag. -data FloodlightActivityCacheBustingType - = ActiveServerPage - -- ^ @ACTIVE_SERVER_PAGE@ - | ColdFusion - -- ^ @COLD_FUSION@ - | Javascript - -- ^ @JAVASCRIPT@ - | Jsp - -- ^ @JSP@ - | Php - -- ^ @PHP@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable FloodlightActivityCacheBustingType - -instance FromHttpApiData FloodlightActivityCacheBustingType where - parseQueryParam = \case - "ACTIVE_SERVER_PAGE" -> Right ActiveServerPage - "COLD_FUSION" -> Right ColdFusion - "JAVASCRIPT" -> Right Javascript - "JSP" -> Right Jsp - "PHP" -> Right Php - x -> Left ("Unable to parse FloodlightActivityCacheBustingType from: " <> x) - -instance ToHttpApiData FloodlightActivityCacheBustingType where - toQueryParam = \case - ActiveServerPage -> "ACTIVE_SERVER_PAGE" - ColdFusion -> "COLD_FUSION" - Javascript -> "JAVASCRIPT" - Jsp -> "JSP" - Php -> "PHP" - -instance FromJSON FloodlightActivityCacheBustingType where - parseJSON = parseJSONText "FloodlightActivityCacheBustingType" - -instance ToJSON FloodlightActivityCacheBustingType where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data CreativeGroupsListSortOrder - = CGLSOAscending - -- ^ @ASCENDING@ - | CGLSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeGroupsListSortOrder - -instance FromHttpApiData CreativeGroupsListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right CGLSOAscending - "DESCENDING" -> Right CGLSODescending - x -> Left ("Unable to parse CreativeGroupsListSortOrder from: " <> x) - -instance ToHttpApiData CreativeGroupsListSortOrder where - toQueryParam = \case - CGLSOAscending -> "ASCENDING" - CGLSODescending -> "DESCENDING" - -instance FromJSON CreativeGroupsListSortOrder where - parseJSON = parseJSONText "CreativeGroupsListSortOrder" - -instance ToJSON CreativeGroupsListSortOrder where - toJSON = toJSONText - --- | Type of this order document -data OrderDocumentType - = PlanningOrderTypeChangeOrder - -- ^ @PLANNING_ORDER_TYPE_CHANGE_ORDER@ - | PlanningOrderTypeInsertionOrder - -- ^ @PLANNING_ORDER_TYPE_INSERTION_ORDER@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable OrderDocumentType - -instance FromHttpApiData OrderDocumentType where - parseQueryParam = \case - "PLANNING_ORDER_TYPE_CHANGE_ORDER" -> Right PlanningOrderTypeChangeOrder - "PLANNING_ORDER_TYPE_INSERTION_ORDER" -> Right PlanningOrderTypeInsertionOrder - x -> Left ("Unable to parse OrderDocumentType from: " <> x) - -instance ToHttpApiData OrderDocumentType where - toQueryParam = \case - PlanningOrderTypeChangeOrder -> "PLANNING_ORDER_TYPE_CHANGE_ORDER" - PlanningOrderTypeInsertionOrder -> "PLANNING_ORDER_TYPE_INSERTION_ORDER" - -instance FromJSON OrderDocumentType where - parseJSON = parseJSONText "OrderDocumentType" - -instance ToJSON OrderDocumentType where - toJSON = toJSONText - --- | TagData tag format of this tag. -data TagDataFormat - = PlacementTagClickCommands - -- ^ @PLACEMENT_TAG_CLICK_COMMANDS@ - | PlacementTagIframeIlayer - -- ^ @PLACEMENT_TAG_IFRAME_ILAYER@ - | PlacementTagIframeJavascript - -- ^ @PLACEMENT_TAG_IFRAME_JAVASCRIPT@ - | PlacementTagIframeJavascriptLegacy - -- ^ @PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY@ - | PlacementTagInstreamVideoPrefetch - -- ^ @PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH@ - | PlacementTagInstreamVideoPrefetchVast3 - -- ^ @PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3@ - | PlacementTagInternalRedirect - -- ^ @PLACEMENT_TAG_INTERNAL_REDIRECT@ - | PlacementTagInterstitialIframeJavascript - -- ^ @PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT@ - | PlacementTagInterstitialIframeJavascriptLegacy - -- ^ @PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY@ - | PlacementTagInterstitialInternalRedirect - -- ^ @PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT@ - | PlacementTagInterstitialJavascript - -- ^ @PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT@ - | PlacementTagInterstitialJavascriptLegacy - -- ^ @PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY@ - | PlacementTagJavascript - -- ^ @PLACEMENT_TAG_JAVASCRIPT@ - | PlacementTagJavascriptLegacy - -- ^ @PLACEMENT_TAG_JAVASCRIPT_LEGACY@ - | PlacementTagStandard - -- ^ @PLACEMENT_TAG_STANDARD@ - | PlacementTagTracking - -- ^ @PLACEMENT_TAG_TRACKING@ - | PlacementTagTrackingIframe - -- ^ @PLACEMENT_TAG_TRACKING_IFRAME@ - | PlacementTagTrackingJavascript - -- ^ @PLACEMENT_TAG_TRACKING_JAVASCRIPT@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable TagDataFormat - -instance FromHttpApiData TagDataFormat where - parseQueryParam = \case - "PLACEMENT_TAG_CLICK_COMMANDS" -> Right PlacementTagClickCommands - "PLACEMENT_TAG_IFRAME_ILAYER" -> Right PlacementTagIframeIlayer - "PLACEMENT_TAG_IFRAME_JAVASCRIPT" -> Right PlacementTagIframeJavascript - "PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY" -> Right PlacementTagIframeJavascriptLegacy - "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH" -> Right PlacementTagInstreamVideoPrefetch - "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3" -> Right PlacementTagInstreamVideoPrefetchVast3 - "PLACEMENT_TAG_INTERNAL_REDIRECT" -> Right PlacementTagInternalRedirect - "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT" -> Right PlacementTagInterstitialIframeJavascript - "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY" -> Right PlacementTagInterstitialIframeJavascriptLegacy - "PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT" -> Right PlacementTagInterstitialInternalRedirect - "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT" -> Right PlacementTagInterstitialJavascript - "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY" -> Right PlacementTagInterstitialJavascriptLegacy - "PLACEMENT_TAG_JAVASCRIPT" -> Right PlacementTagJavascript - "PLACEMENT_TAG_JAVASCRIPT_LEGACY" -> Right PlacementTagJavascriptLegacy - "PLACEMENT_TAG_STANDARD" -> Right PlacementTagStandard - "PLACEMENT_TAG_TRACKING" -> Right PlacementTagTracking - "PLACEMENT_TAG_TRACKING_IFRAME" -> Right PlacementTagTrackingIframe - "PLACEMENT_TAG_TRACKING_JAVASCRIPT" -> Right PlacementTagTrackingJavascript - x -> Left ("Unable to parse TagDataFormat from: " <> x) - -instance ToHttpApiData TagDataFormat where - toQueryParam = \case - PlacementTagClickCommands -> "PLACEMENT_TAG_CLICK_COMMANDS" - PlacementTagIframeIlayer -> "PLACEMENT_TAG_IFRAME_ILAYER" - PlacementTagIframeJavascript -> "PLACEMENT_TAG_IFRAME_JAVASCRIPT" - PlacementTagIframeJavascriptLegacy -> "PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY" - PlacementTagInstreamVideoPrefetch -> "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH" - PlacementTagInstreamVideoPrefetchVast3 -> "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3" - PlacementTagInternalRedirect -> "PLACEMENT_TAG_INTERNAL_REDIRECT" - PlacementTagInterstitialIframeJavascript -> "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT" - PlacementTagInterstitialIframeJavascriptLegacy -> "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY" - PlacementTagInterstitialInternalRedirect -> "PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT" - PlacementTagInterstitialJavascript -> "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT" - PlacementTagInterstitialJavascriptLegacy -> "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY" - PlacementTagJavascript -> "PLACEMENT_TAG_JAVASCRIPT" - PlacementTagJavascriptLegacy -> "PLACEMENT_TAG_JAVASCRIPT_LEGACY" - PlacementTagStandard -> "PLACEMENT_TAG_STANDARD" - PlacementTagTracking -> "PLACEMENT_TAG_TRACKING" - PlacementTagTrackingIframe -> "PLACEMENT_TAG_TRACKING_IFRAME" - PlacementTagTrackingJavascript -> "PLACEMENT_TAG_TRACKING_JAVASCRIPT" - -instance FromJSON TagDataFormat where - parseJSON = parseJSONText "TagDataFormat" - -instance ToJSON TagDataFormat where - toJSON = toJSONText - --- | Maximum number of active ads allowed for the account. -data AccountActiveAdSummaryActiveAdsLimitTier - = ActiveAdsTier100K - -- ^ @ACTIVE_ADS_TIER_100K@ - | ActiveAdsTier200K - -- ^ @ACTIVE_ADS_TIER_200K@ - | ActiveAdsTier300K - -- ^ @ACTIVE_ADS_TIER_300K@ - | ActiveAdsTier40K - -- ^ @ACTIVE_ADS_TIER_40K@ - | ActiveAdsTier75K - -- ^ @ACTIVE_ADS_TIER_75K@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AccountActiveAdSummaryActiveAdsLimitTier - -instance FromHttpApiData AccountActiveAdSummaryActiveAdsLimitTier where - parseQueryParam = \case - "ACTIVE_ADS_TIER_100K" -> Right ActiveAdsTier100K - "ACTIVE_ADS_TIER_200K" -> Right ActiveAdsTier200K - "ACTIVE_ADS_TIER_300K" -> Right ActiveAdsTier300K - "ACTIVE_ADS_TIER_40K" -> Right ActiveAdsTier40K - "ACTIVE_ADS_TIER_75K" -> Right ActiveAdsTier75K - x -> Left ("Unable to parse AccountActiveAdSummaryActiveAdsLimitTier from: " <> x) - -instance ToHttpApiData AccountActiveAdSummaryActiveAdsLimitTier where - toQueryParam = \case - ActiveAdsTier100K -> "ACTIVE_ADS_TIER_100K" - ActiveAdsTier200K -> "ACTIVE_ADS_TIER_200K" - ActiveAdsTier300K -> "ACTIVE_ADS_TIER_300K" - ActiveAdsTier40K -> "ACTIVE_ADS_TIER_40K" - ActiveAdsTier75K -> "ACTIVE_ADS_TIER_75K" - -instance FromJSON AccountActiveAdSummaryActiveAdsLimitTier where - parseJSON = parseJSONText "AccountActiveAdSummaryActiveAdsLimitTier" - -instance ToJSON AccountActiveAdSummaryActiveAdsLimitTier where - toJSON = toJSONText - --- | Rich media child asset type. This is a read-only field. Applicable to --- the following creative types: all VPAID. -data CreativeAssetChildAssetType - = ChildAssetTypeData - -- ^ @CHILD_ASSET_TYPE_DATA@ - | ChildAssetTypeFlash - -- ^ @CHILD_ASSET_TYPE_FLASH@ - | ChildAssetTypeImage - -- ^ @CHILD_ASSET_TYPE_IMAGE@ - | ChildAssetTypeVideo - -- ^ @CHILD_ASSET_TYPE_VIDEO@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeAssetChildAssetType - -instance FromHttpApiData CreativeAssetChildAssetType where - parseQueryParam = \case - "CHILD_ASSET_TYPE_DATA" -> Right ChildAssetTypeData - "CHILD_ASSET_TYPE_FLASH" -> Right ChildAssetTypeFlash - "CHILD_ASSET_TYPE_IMAGE" -> Right ChildAssetTypeImage - "CHILD_ASSET_TYPE_VIDEO" -> Right ChildAssetTypeVideo - x -> Left ("Unable to parse CreativeAssetChildAssetType from: " <> x) - -instance ToHttpApiData CreativeAssetChildAssetType where - toQueryParam = \case - ChildAssetTypeData -> "CHILD_ASSET_TYPE_DATA" - ChildAssetTypeFlash -> "CHILD_ASSET_TYPE_FLASH" - ChildAssetTypeImage -> "CHILD_ASSET_TYPE_IMAGE" - ChildAssetTypeVideo -> "CHILD_ASSET_TYPE_VIDEO" - -instance FromJSON CreativeAssetChildAssetType where - parseJSON = parseJSONText "CreativeAssetChildAssetType" - -instance ToJSON CreativeAssetChildAssetType where - toJSON = toJSONText - --- | Select only placement groups belonging with this group type. A package --- is a simple group of placements that acts as a single pricing point for --- a group of tags. A roadblock is a group of placements that not only acts --- as a single pricing point but also assumes that all the tags in it will --- be served at the same time. A roadblock requires one of its assigned --- placements to be marked as primary for reporting. -data PlacementGroupsListPlacementGroupType - = PlacementPackage - -- ^ @PLACEMENT_PACKAGE@ - | PlacementRoadblock - -- ^ @PLACEMENT_ROADBLOCK@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PlacementGroupsListPlacementGroupType - -instance FromHttpApiData PlacementGroupsListPlacementGroupType where - parseQueryParam = \case - "PLACEMENT_PACKAGE" -> Right PlacementPackage - "PLACEMENT_ROADBLOCK" -> Right PlacementRoadblock - x -> Left ("Unable to parse PlacementGroupsListPlacementGroupType from: " <> x) - -instance ToHttpApiData PlacementGroupsListPlacementGroupType where - toQueryParam = \case - PlacementPackage -> "PLACEMENT_PACKAGE" - PlacementRoadblock -> "PLACEMENT_ROADBLOCK" - -instance FromJSON PlacementGroupsListPlacementGroupType where - parseJSON = parseJSONText "PlacementGroupsListPlacementGroupType" - -instance ToJSON PlacementGroupsListPlacementGroupType where - toJSON = toJSONText - --- | Status of the filter. NONE means the user has access to none of the --- objects. ALL means the user has access to all objects. ASSIGNED means --- the user has access to the objects with IDs in the objectIds list. -data ObjectFilterStatus - = OFSAll - -- ^ @ALL@ - | OFSAssigned - -- ^ @ASSIGNED@ - | OFSNone - -- ^ @NONE@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ObjectFilterStatus - -instance FromHttpApiData ObjectFilterStatus where - parseQueryParam = \case - "ALL" -> Right OFSAll - "ASSIGNED" -> Right OFSAssigned - "NONE" -> Right OFSNone - x -> Left ("Unable to parse ObjectFilterStatus from: " <> x) - -instance ToHttpApiData ObjectFilterStatus where - toQueryParam = \case - OFSAll -> "ALL" - OFSAssigned -> "ASSIGNED" - OFSNone -> "NONE" - -instance FromJSON ObjectFilterStatus where - parseJSON = parseJSONText "ObjectFilterStatus" - -instance ToJSON ObjectFilterStatus where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data CampaignCreativeAssociationsListSortOrder - = CCALSOAscending - -- ^ @ASCENDING@ - | CCALSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CampaignCreativeAssociationsListSortOrder - -instance FromHttpApiData CampaignCreativeAssociationsListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right CCALSOAscending - "DESCENDING" -> Right CCALSODescending - x -> Left ("Unable to parse CampaignCreativeAssociationsListSortOrder from: " <> x) - -instance ToHttpApiData CampaignCreativeAssociationsListSortOrder where - toQueryParam = \case - CCALSOAscending -> "ASCENDING" - CCALSODescending -> "DESCENDING" - -instance FromJSON CampaignCreativeAssociationsListSortOrder where - parseJSON = parseJSONText "CampaignCreativeAssociationsListSortOrder" - -instance ToJSON CampaignCreativeAssociationsListSortOrder where - toJSON = toJSONText - --- | Field by which to sort the list. -data FloodlightActivitiesListSortField - = FALSFID - -- ^ @ID@ - | FALSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable FloodlightActivitiesListSortField - -instance FromHttpApiData FloodlightActivitiesListSortField where - parseQueryParam = \case - "ID" -> Right FALSFID - "NAME" -> Right FALSFName - x -> Left ("Unable to parse FloodlightActivitiesListSortField from: " <> x) - -instance ToHttpApiData FloodlightActivitiesListSortField where - toQueryParam = \case - FALSFID -> "ID" - FALSFName -> "NAME" - -instance FromJSON FloodlightActivitiesListSortField where - parseJSON = parseJSONText "FloodlightActivitiesListSortField" - -instance ToJSON FloodlightActivitiesListSortField where - toJSON = toJSONText - --- | Select only creatives with these creative types. -data CreativesListTypes - = CLTBrandSafeDefaultInstreamVideo - -- ^ @BRAND_SAFE_DEFAULT_INSTREAM_VIDEO@ - | CLTCustomDisplay - -- ^ @CUSTOM_DISPLAY@ - | CLTCustomDisplayInterstitial - -- ^ @CUSTOM_DISPLAY_INTERSTITIAL@ - | CLTDisplay - -- ^ @DISPLAY@ - | CLTDisplayImageGallery - -- ^ @DISPLAY_IMAGE_GALLERY@ - | CLTDisplayRedirect - -- ^ @DISPLAY_REDIRECT@ - | CLTFlashInpage - -- ^ @FLASH_INPAGE@ - | CLTHTML5Banner - -- ^ @HTML5_BANNER@ - | CLTImage - -- ^ @IMAGE@ - | CLTInstreamVideo - -- ^ @INSTREAM_VIDEO@ - | CLTInstreamVideoRedirect - -- ^ @INSTREAM_VIDEO_REDIRECT@ - | CLTInternalRedirect - -- ^ @INTERNAL_REDIRECT@ - | CLTInterstitialInternalRedirect - -- ^ @INTERSTITIAL_INTERNAL_REDIRECT@ - | CLTRichMediaDisplayBanner - -- ^ @RICH_MEDIA_DISPLAY_BANNER@ - | CLTRichMediaDisplayExpanding - -- ^ @RICH_MEDIA_DISPLAY_EXPANDING@ - | CLTRichMediaDisplayInterstitial - -- ^ @RICH_MEDIA_DISPLAY_INTERSTITIAL@ - | CLTRichMediaDisplayMultiFloatingInterstitial - -- ^ @RICH_MEDIA_DISPLAY_MULTI_FLOATING_INTERSTITIAL@ - | CLTRichMediaImExpand - -- ^ @RICH_MEDIA_IM_EXPAND@ - | CLTRichMediaInpageFloating - -- ^ @RICH_MEDIA_INPAGE_FLOATING@ - | CLTRichMediaMobileInApp - -- ^ @RICH_MEDIA_MOBILE_IN_APP@ - | CLTRichMediaPeelDown - -- ^ @RICH_MEDIA_PEEL_DOWN@ - | CLTTrackingText - -- ^ @TRACKING_TEXT@ - | CLTVpaidLinearVideo - -- ^ @VPAID_LINEAR_VIDEO@ - | CLTVpaidNonLinearVideo - -- ^ @VPAID_NON_LINEAR_VIDEO@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativesListTypes - -instance FromHttpApiData CreativesListTypes where - parseQueryParam = \case - "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO" -> Right CLTBrandSafeDefaultInstreamVideo - "CUSTOM_DISPLAY" -> Right CLTCustomDisplay - "CUSTOM_DISPLAY_INTERSTITIAL" -> Right CLTCustomDisplayInterstitial - "DISPLAY" -> Right CLTDisplay - "DISPLAY_IMAGE_GALLERY" -> Right CLTDisplayImageGallery - "DISPLAY_REDIRECT" -> Right CLTDisplayRedirect - "FLASH_INPAGE" -> Right CLTFlashInpage - "HTML5_BANNER" -> Right CLTHTML5Banner - "IMAGE" -> Right CLTImage - "INSTREAM_VIDEO" -> Right CLTInstreamVideo - "INSTREAM_VIDEO_REDIRECT" -> Right CLTInstreamVideoRedirect - "INTERNAL_REDIRECT" -> Right CLTInternalRedirect - "INTERSTITIAL_INTERNAL_REDIRECT" -> Right CLTInterstitialInternalRedirect - "RICH_MEDIA_DISPLAY_BANNER" -> Right CLTRichMediaDisplayBanner - "RICH_MEDIA_DISPLAY_EXPANDING" -> Right CLTRichMediaDisplayExpanding - "RICH_MEDIA_DISPLAY_INTERSTITIAL" -> Right CLTRichMediaDisplayInterstitial - "RICH_MEDIA_DISPLAY_MULTI_FLOATING_INTERSTITIAL" -> Right CLTRichMediaDisplayMultiFloatingInterstitial - "RICH_MEDIA_IM_EXPAND" -> Right CLTRichMediaImExpand - "RICH_MEDIA_INPAGE_FLOATING" -> Right CLTRichMediaInpageFloating - "RICH_MEDIA_MOBILE_IN_APP" -> Right CLTRichMediaMobileInApp - "RICH_MEDIA_PEEL_DOWN" -> Right CLTRichMediaPeelDown - "TRACKING_TEXT" -> Right CLTTrackingText - "VPAID_LINEAR_VIDEO" -> Right CLTVpaidLinearVideo - "VPAID_NON_LINEAR_VIDEO" -> Right CLTVpaidNonLinearVideo - x -> Left ("Unable to parse CreativesListTypes from: " <> x) - -instance ToHttpApiData CreativesListTypes where - toQueryParam = \case - CLTBrandSafeDefaultInstreamVideo -> "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO" - CLTCustomDisplay -> "CUSTOM_DISPLAY" - CLTCustomDisplayInterstitial -> "CUSTOM_DISPLAY_INTERSTITIAL" - CLTDisplay -> "DISPLAY" - CLTDisplayImageGallery -> "DISPLAY_IMAGE_GALLERY" - CLTDisplayRedirect -> "DISPLAY_REDIRECT" - CLTFlashInpage -> "FLASH_INPAGE" - CLTHTML5Banner -> "HTML5_BANNER" - CLTImage -> "IMAGE" - CLTInstreamVideo -> "INSTREAM_VIDEO" - CLTInstreamVideoRedirect -> "INSTREAM_VIDEO_REDIRECT" - CLTInternalRedirect -> "INTERNAL_REDIRECT" - CLTInterstitialInternalRedirect -> "INTERSTITIAL_INTERNAL_REDIRECT" - CLTRichMediaDisplayBanner -> "RICH_MEDIA_DISPLAY_BANNER" - CLTRichMediaDisplayExpanding -> "RICH_MEDIA_DISPLAY_EXPANDING" - CLTRichMediaDisplayInterstitial -> "RICH_MEDIA_DISPLAY_INTERSTITIAL" - CLTRichMediaDisplayMultiFloatingInterstitial -> "RICH_MEDIA_DISPLAY_MULTI_FLOATING_INTERSTITIAL" - CLTRichMediaImExpand -> "RICH_MEDIA_IM_EXPAND" - CLTRichMediaInpageFloating -> "RICH_MEDIA_INPAGE_FLOATING" - CLTRichMediaMobileInApp -> "RICH_MEDIA_MOBILE_IN_APP" - CLTRichMediaPeelDown -> "RICH_MEDIA_PEEL_DOWN" - CLTTrackingText -> "TRACKING_TEXT" - CLTVpaidLinearVideo -> "VPAID_LINEAR_VIDEO" - CLTVpaidNonLinearVideo -> "VPAID_NON_LINEAR_VIDEO" - -instance FromJSON CreativesListTypes where - parseJSON = parseJSONText "CreativesListTypes" - -instance ToJSON CreativesListTypes where - toJSON = toJSONText - -data DirectorySiteInpageTagFormatsItem - = IframeJavascriptInpage - -- ^ @IFRAME_JAVASCRIPT_INPAGE@ - | InternalRedirectInpage - -- ^ @INTERNAL_REDIRECT_INPAGE@ - | JavascriptInpage - -- ^ @JAVASCRIPT_INPAGE@ - | Standard - -- ^ @STANDARD@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable DirectorySiteInpageTagFormatsItem - -instance FromHttpApiData DirectorySiteInpageTagFormatsItem where - parseQueryParam = \case - "IFRAME_JAVASCRIPT_INPAGE" -> Right IframeJavascriptInpage - "INTERNAL_REDIRECT_INPAGE" -> Right InternalRedirectInpage - "JAVASCRIPT_INPAGE" -> Right JavascriptInpage - "STANDARD" -> Right Standard - x -> Left ("Unable to parse DirectorySiteInpageTagFormatsItem from: " <> x) - -instance ToHttpApiData DirectorySiteInpageTagFormatsItem where - toQueryParam = \case - IframeJavascriptInpage -> "IFRAME_JAVASCRIPT_INPAGE" - InternalRedirectInpage -> "INTERNAL_REDIRECT_INPAGE" - JavascriptInpage -> "JAVASCRIPT_INPAGE" - Standard -> "STANDARD" - -instance FromJSON DirectorySiteInpageTagFormatsItem where - parseJSON = parseJSONText "DirectorySiteInpageTagFormatsItem" - -instance ToJSON DirectorySiteInpageTagFormatsItem where - toJSON = toJSONText - --- | Window mode options for flash assets. Applicable to the following --- creative types: FLASH_INPAGE, RICH_MEDIA_DISPLAY_EXPANDING, --- RICH_MEDIA_IM_EXPAND, RICH_MEDIA_DISPLAY_BANNER, and --- RICH_MEDIA_INPAGE_FLOATING. -data CreativeAssetWindowMode - = Opaque - -- ^ @OPAQUE@ - | Transparent - -- ^ @TRANSPARENT@ - | Window - -- ^ @WINDOW@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeAssetWindowMode - -instance FromHttpApiData CreativeAssetWindowMode where - parseQueryParam = \case - "OPAQUE" -> Right Opaque - "TRANSPARENT" -> Right Transparent - "WINDOW" -> Right Window - x -> Left ("Unable to parse CreativeAssetWindowMode from: " <> x) - -instance ToHttpApiData CreativeAssetWindowMode where - toQueryParam = \case - Opaque -> "OPAQUE" - Transparent -> "TRANSPARENT" - Window -> "WINDOW" - -instance FromJSON CreativeAssetWindowMode where - parseJSON = parseJSONText "CreativeAssetWindowMode" - -instance ToJSON CreativeAssetWindowMode where - toJSON = toJSONText - --- | Possible alignments for an asset. This is a read-only field. Applicable --- to the following creative types: --- RICH_MEDIA_DISPLAY_MULTI_FLOATING_INTERSTITIAL. -data CreativeAssetAlignment - = AlignmentBottom - -- ^ @ALIGNMENT_BOTTOM@ - | AlignmentLeft - -- ^ @ALIGNMENT_LEFT@ - | AlignmentRight - -- ^ @ALIGNMENT_RIGHT@ - | AlignmentTop - -- ^ @ALIGNMENT_TOP@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeAssetAlignment - -instance FromHttpApiData CreativeAssetAlignment where - parseQueryParam = \case - "ALIGNMENT_BOTTOM" -> Right AlignmentBottom - "ALIGNMENT_LEFT" -> Right AlignmentLeft - "ALIGNMENT_RIGHT" -> Right AlignmentRight - "ALIGNMENT_TOP" -> Right AlignmentTop - x -> Left ("Unable to parse CreativeAssetAlignment from: " <> x) - -instance ToHttpApiData CreativeAssetAlignment where - toQueryParam = \case - AlignmentBottom -> "ALIGNMENT_BOTTOM" - AlignmentLeft -> "ALIGNMENT_LEFT" - AlignmentRight -> "ALIGNMENT_RIGHT" - AlignmentTop -> "ALIGNMENT_TOP" - -instance FromJSON CreativeAssetAlignment where - parseJSON = parseJSONText "CreativeAssetAlignment" - -instance ToJSON CreativeAssetAlignment where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data RemarketingListsListSortOrder - = RLLSOAscending - -- ^ @ASCENDING@ - | RLLSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable RemarketingListsListSortOrder - -instance FromHttpApiData RemarketingListsListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right RLLSOAscending - "DESCENDING" -> Right RLLSODescending - x -> Left ("Unable to parse RemarketingListsListSortOrder from: " <> x) - -instance ToHttpApiData RemarketingListsListSortOrder where - toQueryParam = \case - RLLSOAscending -> "ASCENDING" - RLLSODescending -> "DESCENDING" - -instance FromJSON RemarketingListsListSortOrder where - parseJSON = parseJSONText "RemarketingListsListSortOrder" - -instance ToJSON RemarketingListsListSortOrder where - toJSON = toJSONText - --- | Select only placement groups with these pricing types. -data PlacementGroupsListPricingTypes - = PGLPTPricingTypeCpa - -- ^ @PRICING_TYPE_CPA@ - | PGLPTPricingTypeCpc - -- ^ @PRICING_TYPE_CPC@ - | PGLPTPricingTypeCpm - -- ^ @PRICING_TYPE_CPM@ - | PGLPTPricingTypeFlatRateClicks - -- ^ @PRICING_TYPE_FLAT_RATE_CLICKS@ - | PGLPTPricingTypeFlatRateImpressions - -- ^ @PRICING_TYPE_FLAT_RATE_IMPRESSIONS@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PlacementGroupsListPricingTypes - -instance FromHttpApiData PlacementGroupsListPricingTypes where - parseQueryParam = \case - "PRICING_TYPE_CPA" -> Right PGLPTPricingTypeCpa - "PRICING_TYPE_CPC" -> Right PGLPTPricingTypeCpc - "PRICING_TYPE_CPM" -> Right PGLPTPricingTypeCpm - "PRICING_TYPE_FLAT_RATE_CLICKS" -> Right PGLPTPricingTypeFlatRateClicks - "PRICING_TYPE_FLAT_RATE_IMPRESSIONS" -> Right PGLPTPricingTypeFlatRateImpressions - x -> Left ("Unable to parse PlacementGroupsListPricingTypes from: " <> x) - -instance ToHttpApiData PlacementGroupsListPricingTypes where - toQueryParam = \case - PGLPTPricingTypeCpa -> "PRICING_TYPE_CPA" - PGLPTPricingTypeCpc -> "PRICING_TYPE_CPC" - PGLPTPricingTypeCpm -> "PRICING_TYPE_CPM" - PGLPTPricingTypeFlatRateClicks -> "PRICING_TYPE_FLAT_RATE_CLICKS" - PGLPTPricingTypeFlatRateImpressions -> "PRICING_TYPE_FLAT_RATE_IMPRESSIONS" - -instance FromJSON PlacementGroupsListPricingTypes where - parseJSON = parseJSONText "PlacementGroupsListPricingTypes" - -instance ToJSON PlacementGroupsListPricingTypes where - toJSON = toJSONText - --- | Type of the object of this dynamic targeting key. This is a required --- field. -data DynamicTargetingKeysDeleteObjectType - = DTKDOTObjectAd - -- ^ @OBJECT_AD@ - | DTKDOTObjectAdvertiser - -- ^ @OBJECT_ADVERTISER@ - | DTKDOTObjectCreative - -- ^ @OBJECT_CREATIVE@ - | DTKDOTObjectPlacement - -- ^ @OBJECT_PLACEMENT@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable DynamicTargetingKeysDeleteObjectType - -instance FromHttpApiData DynamicTargetingKeysDeleteObjectType where - parseQueryParam = \case - "OBJECT_AD" -> Right DTKDOTObjectAd - "OBJECT_ADVERTISER" -> Right DTKDOTObjectAdvertiser - "OBJECT_CREATIVE" -> Right DTKDOTObjectCreative - "OBJECT_PLACEMENT" -> Right DTKDOTObjectPlacement - x -> Left ("Unable to parse DynamicTargetingKeysDeleteObjectType from: " <> x) - -instance ToHttpApiData DynamicTargetingKeysDeleteObjectType where - toQueryParam = \case - DTKDOTObjectAd -> "OBJECT_AD" - DTKDOTObjectAdvertiser -> "OBJECT_ADVERTISER" - DTKDOTObjectCreative -> "OBJECT_CREATIVE" - DTKDOTObjectPlacement -> "OBJECT_PLACEMENT" - -instance FromJSON DynamicTargetingKeysDeleteObjectType where - parseJSON = parseJSONText "DynamicTargetingKeysDeleteObjectType" - -instance ToJSON DynamicTargetingKeysDeleteObjectType where - toJSON = toJSONText - --- | Maximum number of active ads allowed for this account. -data AccountActiveAdsLimitTier - = AAALTActiveAdsTier100K - -- ^ @ACTIVE_ADS_TIER_100K@ - | AAALTActiveAdsTier200K - -- ^ @ACTIVE_ADS_TIER_200K@ - | AAALTActiveAdsTier300K - -- ^ @ACTIVE_ADS_TIER_300K@ - | AAALTActiveAdsTier40K - -- ^ @ACTIVE_ADS_TIER_40K@ - | AAALTActiveAdsTier75K - -- ^ @ACTIVE_ADS_TIER_75K@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AccountActiveAdsLimitTier - -instance FromHttpApiData AccountActiveAdsLimitTier where - parseQueryParam = \case - "ACTIVE_ADS_TIER_100K" -> Right AAALTActiveAdsTier100K - "ACTIVE_ADS_TIER_200K" -> Right AAALTActiveAdsTier200K - "ACTIVE_ADS_TIER_300K" -> Right AAALTActiveAdsTier300K - "ACTIVE_ADS_TIER_40K" -> Right AAALTActiveAdsTier40K - "ACTIVE_ADS_TIER_75K" -> Right AAALTActiveAdsTier75K - x -> Left ("Unable to parse AccountActiveAdsLimitTier from: " <> x) - -instance ToHttpApiData AccountActiveAdsLimitTier where - toQueryParam = \case - AAALTActiveAdsTier100K -> "ACTIVE_ADS_TIER_100K" - AAALTActiveAdsTier200K -> "ACTIVE_ADS_TIER_200K" - AAALTActiveAdsTier300K -> "ACTIVE_ADS_TIER_300K" - AAALTActiveAdsTier40K -> "ACTIVE_ADS_TIER_40K" - AAALTActiveAdsTier75K -> "ACTIVE_ADS_TIER_75K" - -instance FromJSON AccountActiveAdsLimitTier where - parseJSON = parseJSONText "AccountActiveAdsLimitTier" - -instance ToJSON AccountActiveAdsLimitTier where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data AccountsListSortOrder - = AAscending - -- ^ @ASCENDING@ - | ADescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AccountsListSortOrder - -instance FromHttpApiData AccountsListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right AAscending - "DESCENDING" -> Right ADescending - x -> Left ("Unable to parse AccountsListSortOrder from: " <> x) - -instance ToHttpApiData AccountsListSortOrder where - toQueryParam = \case - AAscending -> "ASCENDING" - ADescending -> "DESCENDING" - -instance FromJSON AccountsListSortOrder where - parseJSON = parseJSONText "AccountsListSortOrder" - -instance ToJSON AccountsListSortOrder where - toJSON = toJSONText - --- | Field by which to sort the list. -data SubAccountsListSortField - = SALSFID - -- ^ @ID@ - | SALSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable SubAccountsListSortField - -instance FromHttpApiData SubAccountsListSortField where - parseQueryParam = \case - "ID" -> Right SALSFID - "NAME" -> Right SALSFName - x -> Left ("Unable to parse SubAccountsListSortField from: " <> x) - -instance ToHttpApiData SubAccountsListSortField where - toQueryParam = \case - SALSFID -> "ID" - SALSFName -> "NAME" - -instance FromJSON SubAccountsListSortField where - parseJSON = parseJSONText "SubAccountsListSortField" - -instance ToJSON SubAccountsListSortField where - toJSON = toJSONText - --- | Field by which to sort the list. -data AdsListSortField - = ALSFID - -- ^ @ID@ - | ALSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AdsListSortField - -instance FromHttpApiData AdsListSortField where - parseQueryParam = \case - "ID" -> Right ALSFID - "NAME" -> Right ALSFName - x -> Left ("Unable to parse AdsListSortField from: " <> x) - -instance ToHttpApiData AdsListSortField where - toQueryParam = \case - ALSFID -> "ID" - ALSFName -> "NAME" - -instance FromJSON AdsListSortField where - parseJSON = parseJSONText "AdsListSortField" - -instance ToJSON AdsListSortField where - toJSON = toJSONText - --- | Field by which to sort the list. -data ProjectsListSortField - = PID - -- ^ @ID@ - | PName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ProjectsListSortField - -instance FromHttpApiData ProjectsListSortField where - parseQueryParam = \case - "ID" -> Right PID - "NAME" -> Right PName - x -> Left ("Unable to parse ProjectsListSortField from: " <> x) - -instance ToHttpApiData ProjectsListSortField where - toQueryParam = \case - PID -> "ID" - PName -> "NAME" - -instance FromJSON ProjectsListSortField where - parseJSON = parseJSONText "ProjectsListSortField" - -instance ToJSON ProjectsListSortField where - toJSON = toJSONText - --- | Select only ads with these types. -data AdsListType - = AdServingClickTracker - -- ^ @AD_SERVING_CLICK_TRACKER@ - | AdServingDefaultAd - -- ^ @AD_SERVING_DEFAULT_AD@ - | AdServingStandardAd - -- ^ @AD_SERVING_STANDARD_AD@ - | AdServingTracking - -- ^ @AD_SERVING_TRACKING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AdsListType - -instance FromHttpApiData AdsListType where - parseQueryParam = \case - "AD_SERVING_CLICK_TRACKER" -> Right AdServingClickTracker - "AD_SERVING_DEFAULT_AD" -> Right AdServingDefaultAd - "AD_SERVING_STANDARD_AD" -> Right AdServingStandardAd - "AD_SERVING_TRACKING" -> Right AdServingTracking - x -> Left ("Unable to parse AdsListType from: " <> x) - -instance ToHttpApiData AdsListType where - toQueryParam = \case - AdServingClickTracker -> "AD_SERVING_CLICK_TRACKER" - AdServingDefaultAd -> "AD_SERVING_DEFAULT_AD" - AdServingStandardAd -> "AD_SERVING_STANDARD_AD" - AdServingTracking -> "AD_SERVING_TRACKING" - -instance FromJSON AdsListType where - parseJSON = parseJSONText "AdsListType" - -instance ToJSON AdsListType where - toJSON = toJSONText - --- | Optimization model for this configuration. -data CreativeOptimizationConfigurationOptimizationModel - = Click - -- ^ @CLICK@ - | PostClick - -- ^ @POST_CLICK@ - | PostClickAndImpression - -- ^ @POST_CLICK_AND_IMPRESSION@ - | PostImpression - -- ^ @POST_IMPRESSION@ - | VideoCompletion - -- ^ @VIDEO_COMPLETION@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeOptimizationConfigurationOptimizationModel - -instance FromHttpApiData CreativeOptimizationConfigurationOptimizationModel where - parseQueryParam = \case - "CLICK" -> Right Click - "POST_CLICK" -> Right PostClick - "POST_CLICK_AND_IMPRESSION" -> Right PostClickAndImpression - "POST_IMPRESSION" -> Right PostImpression - "VIDEO_COMPLETION" -> Right VideoCompletion - x -> Left ("Unable to parse CreativeOptimizationConfigurationOptimizationModel from: " <> x) - -instance ToHttpApiData CreativeOptimizationConfigurationOptimizationModel where - toQueryParam = \case - Click -> "CLICK" - PostClick -> "POST_CLICK" - PostClickAndImpression -> "POST_CLICK_AND_IMPRESSION" - PostImpression -> "POST_IMPRESSION" - VideoCompletion -> "VIDEO_COMPLETION" - -instance FromJSON CreativeOptimizationConfigurationOptimizationModel where - parseJSON = parseJSONText "CreativeOptimizationConfigurationOptimizationModel" - -instance ToJSON CreativeOptimizationConfigurationOptimizationModel where - toJSON = toJSONText - --- | Administrative level required to enable this account permission. -data AccountPermissionLevel - = Administrator - -- ^ @ADMINISTRATOR@ - | User - -- ^ @USER@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AccountPermissionLevel - -instance FromHttpApiData AccountPermissionLevel where - parseQueryParam = \case - "ADMINISTRATOR" -> Right Administrator - "USER" -> Right User - x -> Left ("Unable to parse AccountPermissionLevel from: " <> x) - -instance ToHttpApiData AccountPermissionLevel where - toQueryParam = \case - Administrator -> "ADMINISTRATOR" - User -> "USER" - -instance FromJSON AccountPermissionLevel where - parseJSON = parseJSONText "AccountPermissionLevel" - -instance ToJSON AccountPermissionLevel where - toJSON = toJSONText - --- | List population term type determines the applicable fields in this --- object. If left unset or set to CUSTOM_VARIABLE_TERM, then variableName, --- variableFriendlyName, operator, value, and negation are applicable. If --- set to LIST_MEMBERSHIP_TERM then remarketingListId and contains are --- applicable. If set to REFERRER_TERM then operator, value, and negation --- are applicable. -data ListPopulationTermType - = CustomVariableTerm - -- ^ @CUSTOM_VARIABLE_TERM@ - | ListMembershipTerm - -- ^ @LIST_MEMBERSHIP_TERM@ - | ReferrerTerm - -- ^ @REFERRER_TERM@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ListPopulationTermType - -instance FromHttpApiData ListPopulationTermType where - parseQueryParam = \case - "CUSTOM_VARIABLE_TERM" -> Right CustomVariableTerm - "LIST_MEMBERSHIP_TERM" -> Right ListMembershipTerm - "REFERRER_TERM" -> Right ReferrerTerm - x -> Left ("Unable to parse ListPopulationTermType from: " <> x) - -instance ToHttpApiData ListPopulationTermType where - toQueryParam = \case - CustomVariableTerm -> "CUSTOM_VARIABLE_TERM" - ListMembershipTerm -> "LIST_MEMBERSHIP_TERM" - ReferrerTerm -> "REFERRER_TERM" - -instance FromJSON ListPopulationTermType where - parseJSON = parseJSONText "ListPopulationTermType" - -instance ToJSON ListPopulationTermType where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data AdvertiserGroupsListSortOrder - = AGLSOAscending - -- ^ @ASCENDING@ - | AGLSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AdvertiserGroupsListSortOrder - -instance FromHttpApiData AdvertiserGroupsListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right AGLSOAscending - "DESCENDING" -> Right AGLSODescending - x -> Left ("Unable to parse AdvertiserGroupsListSortOrder from: " <> x) - -instance ToHttpApiData AdvertiserGroupsListSortOrder where - toQueryParam = \case - AGLSOAscending -> "ASCENDING" - AGLSODescending -> "DESCENDING" - -instance FromJSON AdvertiserGroupsListSortOrder where - parseJSON = parseJSONText "AdvertiserGroupsListSortOrder" - -instance ToJSON AdvertiserGroupsListSortOrder where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data CreativeFieldValuesListSortOrder - = CFVLSOAscending - -- ^ @ASCENDING@ - | CFVLSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeFieldValuesListSortOrder - -instance FromHttpApiData CreativeFieldValuesListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right CFVLSOAscending - "DESCENDING" -> Right CFVLSODescending - x -> Left ("Unable to parse CreativeFieldValuesListSortOrder from: " <> x) - -instance ToHttpApiData CreativeFieldValuesListSortOrder where - toQueryParam = \case - CFVLSOAscending -> "ASCENDING" - CFVLSODescending -> "DESCENDING" - -instance FromJSON CreativeFieldValuesListSortOrder where - parseJSON = parseJSONText "CreativeFieldValuesListSortOrder" - -instance ToJSON CreativeFieldValuesListSortOrder where - toJSON = toJSONText - --- | An optional sort order for the dimension column. -data SortedDimensionSortOrder - = SDSOAscending - -- ^ @ASCENDING@ - | SDSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable SortedDimensionSortOrder - -instance FromHttpApiData SortedDimensionSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right SDSOAscending - "DESCENDING" -> Right SDSODescending - x -> Left ("Unable to parse SortedDimensionSortOrder from: " <> x) - -instance ToHttpApiData SortedDimensionSortOrder where - toQueryParam = \case - SDSOAscending -> "ASCENDING" - SDSODescending -> "DESCENDING" - -instance FromJSON SortedDimensionSortOrder where - parseJSON = parseJSONText "SortedDimensionSortOrder" - -instance ToJSON SortedDimensionSortOrder where - toJSON = toJSONText - --- | The field by which to sort the list. -data FilesListSortField - = FLSFID - -- ^ @ID@ - -- Sort by file ID. - | FLSFLastModifiedTime - -- ^ @LAST_MODIFIED_TIME@ - -- Sort by \'lastmodifiedAt\' field. - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable FilesListSortField - -instance FromHttpApiData FilesListSortField where - parseQueryParam = \case - "ID" -> Right FLSFID - "LAST_MODIFIED_TIME" -> Right FLSFLastModifiedTime - x -> Left ("Unable to parse FilesListSortField from: " <> x) - -instance ToHttpApiData FilesListSortField where - toQueryParam = \case - FLSFID -> "ID" - FLSFLastModifiedTime -> "LAST_MODIFIED_TIME" - -instance FromJSON FilesListSortField where - parseJSON = parseJSONText "FilesListSortField" - -instance ToJSON FilesListSortField where - toJSON = toJSONText - -data DirectorySiteInterstitialTagFormatsItem - = IframeJavascriptInterstitial - -- ^ @IFRAME_JAVASCRIPT_INTERSTITIAL@ - | InternalRedirectInterstitial - -- ^ @INTERNAL_REDIRECT_INTERSTITIAL@ - | JavascriptInterstitial - -- ^ @JAVASCRIPT_INTERSTITIAL@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable DirectorySiteInterstitialTagFormatsItem - -instance FromHttpApiData DirectorySiteInterstitialTagFormatsItem where - parseQueryParam = \case - "IFRAME_JAVASCRIPT_INTERSTITIAL" -> Right IframeJavascriptInterstitial - "INTERNAL_REDIRECT_INTERSTITIAL" -> Right InternalRedirectInterstitial - "JAVASCRIPT_INTERSTITIAL" -> Right JavascriptInterstitial - x -> Left ("Unable to parse DirectorySiteInterstitialTagFormatsItem from: " <> x) - -instance ToHttpApiData DirectorySiteInterstitialTagFormatsItem where - toQueryParam = \case - IframeJavascriptInterstitial -> "IFRAME_JAVASCRIPT_INTERSTITIAL" - InternalRedirectInterstitial -> "INTERNAL_REDIRECT_INTERSTITIAL" - JavascriptInterstitial -> "JAVASCRIPT_INTERSTITIAL" - -instance FromJSON DirectorySiteInterstitialTagFormatsItem where - parseJSON = parseJSONText "DirectorySiteInterstitialTagFormatsItem" - -instance ToJSON DirectorySiteInterstitialTagFormatsItem where - toJSON = toJSONText - --- | Field by which to sort the list. -data EventTagsListSortField - = ETLSFID - -- ^ @ID@ - | ETLSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable EventTagsListSortField - -instance FromHttpApiData EventTagsListSortField where - parseQueryParam = \case - "ID" -> Right ETLSFID - "NAME" -> Right ETLSFName - x -> Left ("Unable to parse EventTagsListSortField from: " <> x) - -instance ToHttpApiData EventTagsListSortField where - toQueryParam = \case - ETLSFID -> "ID" - ETLSFName -> "NAME" - -instance FromJSON EventTagsListSortField where - parseJSON = parseJSONText "EventTagsListSortField" - -instance ToJSON EventTagsListSortField where - toJSON = toJSONText - --- | Type of inventory item. -data InventoryItemType - = IITPlanningPlacementTypeCredit - -- ^ @PLANNING_PLACEMENT_TYPE_CREDIT@ - | IITPlanningPlacementTypeRegular - -- ^ @PLANNING_PLACEMENT_TYPE_REGULAR@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable InventoryItemType - -instance FromHttpApiData InventoryItemType where - parseQueryParam = \case - "PLANNING_PLACEMENT_TYPE_CREDIT" -> Right IITPlanningPlacementTypeCredit - "PLANNING_PLACEMENT_TYPE_REGULAR" -> Right IITPlanningPlacementTypeRegular - x -> Left ("Unable to parse InventoryItemType from: " <> x) - -instance ToHttpApiData InventoryItemType where - toQueryParam = \case - IITPlanningPlacementTypeCredit -> "PLANNING_PLACEMENT_TYPE_CREDIT" - IITPlanningPlacementTypeRegular -> "PLANNING_PLACEMENT_TYPE_REGULAR" - -instance FromJSON InventoryItemType where - parseJSON = parseJSONText "InventoryItemType" - -instance ToJSON InventoryItemType where - toJSON = toJSONText - --- | Offset top unit for an asset. This is a read-only field if the asset --- displayType is ASSET_DISPLAY_TYPE_OVERLAY. Applicable to the following --- creative types: all RICH_MEDIA. -data CreativeAssetPositionTopUnit - = CAPTUOffSetUnitPercent - -- ^ @OFFSET_UNIT_PERCENT@ - | CAPTUOffSetUnitPixel - -- ^ @OFFSET_UNIT_PIXEL@ - | CAPTUOffSetUnitPixelFromCenter - -- ^ @OFFSET_UNIT_PIXEL_FROM_CENTER@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeAssetPositionTopUnit - -instance FromHttpApiData CreativeAssetPositionTopUnit where - parseQueryParam = \case - "OFFSET_UNIT_PERCENT" -> Right CAPTUOffSetUnitPercent - "OFFSET_UNIT_PIXEL" -> Right CAPTUOffSetUnitPixel - "OFFSET_UNIT_PIXEL_FROM_CENTER" -> Right CAPTUOffSetUnitPixelFromCenter - x -> Left ("Unable to parse CreativeAssetPositionTopUnit from: " <> x) - -instance ToHttpApiData CreativeAssetPositionTopUnit where - toQueryParam = \case - CAPTUOffSetUnitPercent -> "OFFSET_UNIT_PERCENT" - CAPTUOffSetUnitPixel -> "OFFSET_UNIT_PIXEL" - CAPTUOffSetUnitPixelFromCenter -> "OFFSET_UNIT_PIXEL_FROM_CENTER" - -instance FromJSON CreativeAssetPositionTopUnit where - parseJSON = parseJSONText "CreativeAssetPositionTopUnit" - -instance ToJSON CreativeAssetPositionTopUnit where - toJSON = toJSONText - --- | Type of the associated floodlight activity group. This is a read-only --- field. -data FloodlightActivityFloodlightActivityGroupType - = FAFAGTCounter - -- ^ @COUNTER@ - | FAFAGTSale - -- ^ @SALE@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable FloodlightActivityFloodlightActivityGroupType - -instance FromHttpApiData FloodlightActivityFloodlightActivityGroupType where - parseQueryParam = \case - "COUNTER" -> Right FAFAGTCounter - "SALE" -> Right FAFAGTSale - x -> Left ("Unable to parse FloodlightActivityFloodlightActivityGroupType from: " <> x) - -instance ToHttpApiData FloodlightActivityFloodlightActivityGroupType where - toQueryParam = \case - FAFAGTCounter -> "COUNTER" - FAFAGTSale -> "SALE" - -instance FromJSON FloodlightActivityFloodlightActivityGroupType where - parseJSON = parseJSONText "FloodlightActivityFloodlightActivityGroupType" - -instance ToJSON FloodlightActivityFloodlightActivityGroupType where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data DirectorySiteContactsListSortOrder - = DSCLSOAscending - -- ^ @ASCENDING@ - | DSCLSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable DirectorySiteContactsListSortOrder - -instance FromHttpApiData DirectorySiteContactsListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right DSCLSOAscending - "DESCENDING" -> Right DSCLSODescending - x -> Left ("Unable to parse DirectorySiteContactsListSortOrder from: " <> x) - -instance ToHttpApiData DirectorySiteContactsListSortOrder where - toQueryParam = \case - DSCLSOAscending -> "ASCENDING" - DSCLSODescending -> "DESCENDING" - -instance FromJSON DirectorySiteContactsListSortOrder where - parseJSON = parseJSONText "DirectorySiteContactsListSortOrder" - -instance ToJSON DirectorySiteContactsListSortOrder where - toJSON = toJSONText - --- | Group type of this inventory item if it represents a placement group. Is --- null otherwise. There are two type of placement groups: --- PLANNING_PLACEMENT_GROUP_TYPE_PACKAGE is a simple group of inventory --- items that acts as a single pricing point for a group of tags. --- PLANNING_PLACEMENT_GROUP_TYPE_ROADBLOCK is a group of inventory items --- that not only acts as a single pricing point, but also assumes that all --- the tags in it will be served at the same time. A roadblock requires one --- of its assigned inventory items to be marked as primary. -data PricingGroupType - = PlanningPlacementGroupTypePackage - -- ^ @PLANNING_PLACEMENT_GROUP_TYPE_PACKAGE@ - | PlanningPlacementGroupTypeRoadblock - -- ^ @PLANNING_PLACEMENT_GROUP_TYPE_ROADBLOCK@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PricingGroupType - -instance FromHttpApiData PricingGroupType where - parseQueryParam = \case - "PLANNING_PLACEMENT_GROUP_TYPE_PACKAGE" -> Right PlanningPlacementGroupTypePackage - "PLANNING_PLACEMENT_GROUP_TYPE_ROADBLOCK" -> Right PlanningPlacementGroupTypeRoadblock - x -> Left ("Unable to parse PricingGroupType from: " <> x) - -instance ToHttpApiData PricingGroupType where - toQueryParam = \case - PlanningPlacementGroupTypePackage -> "PLANNING_PLACEMENT_GROUP_TYPE_PACKAGE" - PlanningPlacementGroupTypeRoadblock -> "PLANNING_PLACEMENT_GROUP_TYPE_ROADBLOCK" - -instance FromJSON PricingGroupType where - parseJSON = parseJSONText "PricingGroupType" - -instance ToJSON PricingGroupType where - toJSON = toJSONText - --- | Select only ads with the specified creativeType. -data AdsListCreativeType - = ALCTBrandSafeDefaultInstreamVideo - -- ^ @BRAND_SAFE_DEFAULT_INSTREAM_VIDEO@ - | ALCTCustomDisplay - -- ^ @CUSTOM_DISPLAY@ - | ALCTCustomDisplayInterstitial - -- ^ @CUSTOM_DISPLAY_INTERSTITIAL@ - | ALCTDisplay - -- ^ @DISPLAY@ - | ALCTDisplayImageGallery - -- ^ @DISPLAY_IMAGE_GALLERY@ - | ALCTDisplayRedirect - -- ^ @DISPLAY_REDIRECT@ - | ALCTFlashInpage - -- ^ @FLASH_INPAGE@ - | ALCTHTML5Banner - -- ^ @HTML5_BANNER@ - | ALCTImage - -- ^ @IMAGE@ - | ALCTInstreamVideo - -- ^ @INSTREAM_VIDEO@ - | ALCTInstreamVideoRedirect - -- ^ @INSTREAM_VIDEO_REDIRECT@ - | ALCTInternalRedirect - -- ^ @INTERNAL_REDIRECT@ - | ALCTInterstitialInternalRedirect - -- ^ @INTERSTITIAL_INTERNAL_REDIRECT@ - | ALCTRichMediaDisplayBanner - -- ^ @RICH_MEDIA_DISPLAY_BANNER@ - | ALCTRichMediaDisplayExpanding - -- ^ @RICH_MEDIA_DISPLAY_EXPANDING@ - | ALCTRichMediaDisplayInterstitial - -- ^ @RICH_MEDIA_DISPLAY_INTERSTITIAL@ - | ALCTRichMediaDisplayMultiFloatingInterstitial - -- ^ @RICH_MEDIA_DISPLAY_MULTI_FLOATING_INTERSTITIAL@ - | ALCTRichMediaImExpand - -- ^ @RICH_MEDIA_IM_EXPAND@ - | ALCTRichMediaInpageFloating - -- ^ @RICH_MEDIA_INPAGE_FLOATING@ - | ALCTRichMediaMobileInApp - -- ^ @RICH_MEDIA_MOBILE_IN_APP@ - | ALCTRichMediaPeelDown - -- ^ @RICH_MEDIA_PEEL_DOWN@ - | ALCTTrackingText - -- ^ @TRACKING_TEXT@ - | ALCTVpaidLinearVideo - -- ^ @VPAID_LINEAR_VIDEO@ - | ALCTVpaidNonLinearVideo - -- ^ @VPAID_NON_LINEAR_VIDEO@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AdsListCreativeType - -instance FromHttpApiData AdsListCreativeType where - parseQueryParam = \case - "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO" -> Right ALCTBrandSafeDefaultInstreamVideo - "CUSTOM_DISPLAY" -> Right ALCTCustomDisplay - "CUSTOM_DISPLAY_INTERSTITIAL" -> Right ALCTCustomDisplayInterstitial - "DISPLAY" -> Right ALCTDisplay - "DISPLAY_IMAGE_GALLERY" -> Right ALCTDisplayImageGallery - "DISPLAY_REDIRECT" -> Right ALCTDisplayRedirect - "FLASH_INPAGE" -> Right ALCTFlashInpage - "HTML5_BANNER" -> Right ALCTHTML5Banner - "IMAGE" -> Right ALCTImage - "INSTREAM_VIDEO" -> Right ALCTInstreamVideo - "INSTREAM_VIDEO_REDIRECT" -> Right ALCTInstreamVideoRedirect - "INTERNAL_REDIRECT" -> Right ALCTInternalRedirect - "INTERSTITIAL_INTERNAL_REDIRECT" -> Right ALCTInterstitialInternalRedirect - "RICH_MEDIA_DISPLAY_BANNER" -> Right ALCTRichMediaDisplayBanner - "RICH_MEDIA_DISPLAY_EXPANDING" -> Right ALCTRichMediaDisplayExpanding - "RICH_MEDIA_DISPLAY_INTERSTITIAL" -> Right ALCTRichMediaDisplayInterstitial - "RICH_MEDIA_DISPLAY_MULTI_FLOATING_INTERSTITIAL" -> Right ALCTRichMediaDisplayMultiFloatingInterstitial - "RICH_MEDIA_IM_EXPAND" -> Right ALCTRichMediaImExpand - "RICH_MEDIA_INPAGE_FLOATING" -> Right ALCTRichMediaInpageFloating - "RICH_MEDIA_MOBILE_IN_APP" -> Right ALCTRichMediaMobileInApp - "RICH_MEDIA_PEEL_DOWN" -> Right ALCTRichMediaPeelDown - "TRACKING_TEXT" -> Right ALCTTrackingText - "VPAID_LINEAR_VIDEO" -> Right ALCTVpaidLinearVideo - "VPAID_NON_LINEAR_VIDEO" -> Right ALCTVpaidNonLinearVideo - x -> Left ("Unable to parse AdsListCreativeType from: " <> x) - -instance ToHttpApiData AdsListCreativeType where - toQueryParam = \case - ALCTBrandSafeDefaultInstreamVideo -> "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO" - ALCTCustomDisplay -> "CUSTOM_DISPLAY" - ALCTCustomDisplayInterstitial -> "CUSTOM_DISPLAY_INTERSTITIAL" - ALCTDisplay -> "DISPLAY" - ALCTDisplayImageGallery -> "DISPLAY_IMAGE_GALLERY" - ALCTDisplayRedirect -> "DISPLAY_REDIRECT" - ALCTFlashInpage -> "FLASH_INPAGE" - ALCTHTML5Banner -> "HTML5_BANNER" - ALCTImage -> "IMAGE" - ALCTInstreamVideo -> "INSTREAM_VIDEO" - ALCTInstreamVideoRedirect -> "INSTREAM_VIDEO_REDIRECT" - ALCTInternalRedirect -> "INTERNAL_REDIRECT" - ALCTInterstitialInternalRedirect -> "INTERSTITIAL_INTERNAL_REDIRECT" - ALCTRichMediaDisplayBanner -> "RICH_MEDIA_DISPLAY_BANNER" - ALCTRichMediaDisplayExpanding -> "RICH_MEDIA_DISPLAY_EXPANDING" - ALCTRichMediaDisplayInterstitial -> "RICH_MEDIA_DISPLAY_INTERSTITIAL" - ALCTRichMediaDisplayMultiFloatingInterstitial -> "RICH_MEDIA_DISPLAY_MULTI_FLOATING_INTERSTITIAL" - ALCTRichMediaImExpand -> "RICH_MEDIA_IM_EXPAND" - ALCTRichMediaInpageFloating -> "RICH_MEDIA_INPAGE_FLOATING" - ALCTRichMediaMobileInApp -> "RICH_MEDIA_MOBILE_IN_APP" - ALCTRichMediaPeelDown -> "RICH_MEDIA_PEEL_DOWN" - ALCTTrackingText -> "TRACKING_TEXT" - ALCTVpaidLinearVideo -> "VPAID_LINEAR_VIDEO" - ALCTVpaidNonLinearVideo -> "VPAID_NON_LINEAR_VIDEO" - -instance FromJSON AdsListCreativeType where - parseJSON = parseJSONText "AdsListCreativeType" - -instance ToJSON AdsListCreativeType where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data FloodlightActivityGroupsListSortOrder - = FAGLSOAscending - -- ^ @ASCENDING@ - | FAGLSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable FloodlightActivityGroupsListSortOrder - -instance FromHttpApiData FloodlightActivityGroupsListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right FAGLSOAscending - "DESCENDING" -> Right FAGLSODescending - x -> Left ("Unable to parse FloodlightActivityGroupsListSortOrder from: " <> x) - -instance ToHttpApiData FloodlightActivityGroupsListSortOrder where - toQueryParam = \case - FAGLSOAscending -> "ASCENDING" - FAGLSODescending -> "DESCENDING" - -instance FromJSON FloodlightActivityGroupsListSortOrder where - parseJSON = parseJSONText "FloodlightActivityGroupsListSortOrder" - -instance ToJSON FloodlightActivityGroupsListSortOrder where - toJSON = toJSONText - --- | Type of creative rotation. Can be used to specify whether to use --- sequential or random rotation. -data CreativeRotationType - = CreativeRotationTypeRandom - -- ^ @CREATIVE_ROTATION_TYPE_RANDOM@ - | CreativeRotationTypeSequential - -- ^ @CREATIVE_ROTATION_TYPE_SEQUENTIAL@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeRotationType - -instance FromHttpApiData CreativeRotationType where - parseQueryParam = \case - "CREATIVE_ROTATION_TYPE_RANDOM" -> Right CreativeRotationTypeRandom - "CREATIVE_ROTATION_TYPE_SEQUENTIAL" -> Right CreativeRotationTypeSequential - x -> Left ("Unable to parse CreativeRotationType from: " <> x) - -instance ToHttpApiData CreativeRotationType where - toQueryParam = \case - CreativeRotationTypeRandom -> "CREATIVE_ROTATION_TYPE_RANDOM" - CreativeRotationTypeSequential -> "CREATIVE_ROTATION_TYPE_SEQUENTIAL" - -instance FromJSON CreativeRotationType where - parseJSON = parseJSONText "CreativeRotationType" - -instance ToJSON CreativeRotationType where - toJSON = toJSONText - --- | Field by which to sort the list. -data OrdersListSortField - = OLSFID - -- ^ @ID@ - | OLSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable OrdersListSortField - -instance FromHttpApiData OrdersListSortField where - parseQueryParam = \case - "ID" -> Right OLSFID - "NAME" -> Right OLSFName - x -> Left ("Unable to parse OrdersListSortField from: " <> x) - -instance ToHttpApiData OrdersListSortField where - toQueryParam = \case - OLSFID -> "ID" - OLSFName -> "NAME" - -instance FromJSON OrdersListSortField where - parseJSON = parseJSONText "OrdersListSortField" - -instance ToJSON OrdersListSortField where - toJSON = toJSONText - --- | Field by which to sort the list. -data PlacementGroupsListSortField - = PGLSFID - -- ^ @ID@ - | PGLSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PlacementGroupsListSortField - -instance FromHttpApiData PlacementGroupsListSortField where - parseQueryParam = \case - "ID" -> Right PGLSFID - "NAME" -> Right PGLSFName - x -> Left ("Unable to parse PlacementGroupsListSortField from: " <> x) - -instance ToHttpApiData PlacementGroupsListSortField where - toQueryParam = \case - PGLSFID -> "ID" - PGLSFName -> "NAME" - -instance FromJSON PlacementGroupsListSortField where - parseJSON = parseJSONText "PlacementGroupsListSortField" - -instance ToJSON PlacementGroupsListSortField where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data DirectorySitesListSortOrder - = DSLSOAscending - -- ^ @ASCENDING@ - | DSLSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable DirectorySitesListSortOrder - -instance FromHttpApiData DirectorySitesListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right DSLSOAscending - "DESCENDING" -> Right DSLSODescending - x -> Left ("Unable to parse DirectorySitesListSortOrder from: " <> x) - -instance ToHttpApiData DirectorySitesListSortOrder where - toQueryParam = \case - DSLSOAscending -> "ASCENDING" - DSLSODescending -> "DESCENDING" - -instance FromJSON DirectorySitesListSortOrder where - parseJSON = parseJSONText "DirectorySitesListSortOrder" - -instance ToJSON DirectorySitesListSortOrder where - toJSON = toJSONText - -data CreativeAssetDetectedFeaturesItem - = CADFIApplicationCache - -- ^ @APPLICATION_CACHE@ - | CADFIAudio - -- ^ @AUDIO@ - | CADFICanvas - -- ^ @CANVAS@ - | CADFICanvasText - -- ^ @CANVAS_TEXT@ - | CADFICssAnimations - -- ^ @CSS_ANIMATIONS@ - | CADFICssBackgRoundSize - -- ^ @CSS_BACKGROUND_SIZE@ - | CADFICssBOrderImage - -- ^ @CSS_BORDER_IMAGE@ - | CADFICssBOrderRadius - -- ^ @CSS_BORDER_RADIUS@ - | CADFICssBoxShadow - -- ^ @CSS_BOX_SHADOW@ - | CADFICssColumns - -- ^ @CSS_COLUMNS@ - | CADFICssFlexBox - -- ^ @CSS_FLEX_BOX@ - | CADFICssFontFace - -- ^ @CSS_FONT_FACE@ - | CADFICssGeneratedContent - -- ^ @CSS_GENERATED_CONTENT@ - | CADFICssGradients - -- ^ @CSS_GRADIENTS@ - | CADFICssHsla - -- ^ @CSS_HSLA@ - | CADFICssMultipleBgs - -- ^ @CSS_MULTIPLE_BGS@ - | CADFICssOpacity - -- ^ @CSS_OPACITY@ - | CADFICssReflections - -- ^ @CSS_REFLECTIONS@ - | CADFICssRgba - -- ^ @CSS_RGBA@ - | CADFICssTextShadow - -- ^ @CSS_TEXT_SHADOW@ - | CADFICssTransforms - -- ^ @CSS_TRANSFORMS@ - | CADFICssTRANSFORMS3D - -- ^ @CSS_TRANSFORMS3D@ - | CADFICssTransitions - -- ^ @CSS_TRANSITIONS@ - | CADFIDragAndDrop - -- ^ @DRAG_AND_DROP@ - | CADFIGeoLocation - -- ^ @GEO_LOCATION@ - | CADFIHashChange - -- ^ @HASH_CHANGE@ - | CADFIHistory - -- ^ @HISTORY@ - | CADFIIndexedDB - -- ^ @INDEXED_DB@ - | CADFIInlineSvg - -- ^ @INLINE_SVG@ - | CADFIInputAttrAutocomplete - -- ^ @INPUT_ATTR_AUTOCOMPLETE@ - | CADFIInputAttrAutofocus - -- ^ @INPUT_ATTR_AUTOFOCUS@ - | CADFIInputAttrList - -- ^ @INPUT_ATTR_LIST@ - | CADFIInputAttrMax - -- ^ @INPUT_ATTR_MAX@ - | CADFIInputAttrMin - -- ^ @INPUT_ATTR_MIN@ - | CADFIInputAttrMultiple - -- ^ @INPUT_ATTR_MULTIPLE@ - | CADFIInputAttrPattern - -- ^ @INPUT_ATTR_PATTERN@ - | CADFIInputAttrPlaceholder - -- ^ @INPUT_ATTR_PLACEHOLDER@ - | CADFIInputAttrRequired - -- ^ @INPUT_ATTR_REQUIRED@ - | CADFIInputAttrStep - -- ^ @INPUT_ATTR_STEP@ - | CADFIInputTypeColor - -- ^ @INPUT_TYPE_COLOR@ - | CADFIInputTypeDate - -- ^ @INPUT_TYPE_DATE@ - | CADFIInputTypeDatetime - -- ^ @INPUT_TYPE_DATETIME@ - | CADFIInputTypeDatetimeLocal - -- ^ @INPUT_TYPE_DATETIME_LOCAL@ - | CADFIInputTypeEmail - -- ^ @INPUT_TYPE_EMAIL@ - | CADFIInputTypeMonth - -- ^ @INPUT_TYPE_MONTH@ - | CADFIInputTypeNumber - -- ^ @INPUT_TYPE_NUMBER@ - | CADFIInputTypeRange - -- ^ @INPUT_TYPE_RANGE@ - | CADFIInputTypeSearch - -- ^ @INPUT_TYPE_SEARCH@ - | CADFIInputTypeTel - -- ^ @INPUT_TYPE_TEL@ - | CADFIInputTypeTime - -- ^ @INPUT_TYPE_TIME@ - | CADFIInputTypeURL - -- ^ @INPUT_TYPE_URL@ - | CADFIInputTypeWeek - -- ^ @INPUT_TYPE_WEEK@ - | CADFILocalStorage - -- ^ @LOCAL_STORAGE@ - | CADFIPostMessage - -- ^ @POST_MESSAGE@ - | CADFISessionStorage - -- ^ @SESSION_STORAGE@ - | CADFISmil - -- ^ @SMIL@ - | CADFISvgClipPaths - -- ^ @SVG_CLIP_PATHS@ - | CADFISvgFeImage - -- ^ @SVG_FE_IMAGE@ - | CADFISvgFilters - -- ^ @SVG_FILTERS@ - | CADFISvgHref - -- ^ @SVG_HREF@ - | CADFITouch - -- ^ @TOUCH@ - | CADFIVideo - -- ^ @VIDEO@ - | CADFIWebgl - -- ^ @WEBGL@ - | CADFIWebSockets - -- ^ @WEB_SOCKETS@ - | CADFIWebSQLDatabase - -- ^ @WEB_SQL_DATABASE@ - | CADFIWebWorkers - -- ^ @WEB_WORKERS@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeAssetDetectedFeaturesItem - -instance FromHttpApiData CreativeAssetDetectedFeaturesItem where - parseQueryParam = \case - "APPLICATION_CACHE" -> Right CADFIApplicationCache - "AUDIO" -> Right CADFIAudio - "CANVAS" -> Right CADFICanvas - "CANVAS_TEXT" -> Right CADFICanvasText - "CSS_ANIMATIONS" -> Right CADFICssAnimations - "CSS_BACKGROUND_SIZE" -> Right CADFICssBackgRoundSize - "CSS_BORDER_IMAGE" -> Right CADFICssBOrderImage - "CSS_BORDER_RADIUS" -> Right CADFICssBOrderRadius - "CSS_BOX_SHADOW" -> Right CADFICssBoxShadow - "CSS_COLUMNS" -> Right CADFICssColumns - "CSS_FLEX_BOX" -> Right CADFICssFlexBox - "CSS_FONT_FACE" -> Right CADFICssFontFace - "CSS_GENERATED_CONTENT" -> Right CADFICssGeneratedContent - "CSS_GRADIENTS" -> Right CADFICssGradients - "CSS_HSLA" -> Right CADFICssHsla - "CSS_MULTIPLE_BGS" -> Right CADFICssMultipleBgs - "CSS_OPACITY" -> Right CADFICssOpacity - "CSS_REFLECTIONS" -> Right CADFICssReflections - "CSS_RGBA" -> Right CADFICssRgba - "CSS_TEXT_SHADOW" -> Right CADFICssTextShadow - "CSS_TRANSFORMS" -> Right CADFICssTransforms - "CSS_TRANSFORMS3D" -> Right CADFICssTRANSFORMS3D - "CSS_TRANSITIONS" -> Right CADFICssTransitions - "DRAG_AND_DROP" -> Right CADFIDragAndDrop - "GEO_LOCATION" -> Right CADFIGeoLocation - "HASH_CHANGE" -> Right CADFIHashChange - "HISTORY" -> Right CADFIHistory - "INDEXED_DB" -> Right CADFIIndexedDB - "INLINE_SVG" -> Right CADFIInlineSvg - "INPUT_ATTR_AUTOCOMPLETE" -> Right CADFIInputAttrAutocomplete - "INPUT_ATTR_AUTOFOCUS" -> Right CADFIInputAttrAutofocus - "INPUT_ATTR_LIST" -> Right CADFIInputAttrList - "INPUT_ATTR_MAX" -> Right CADFIInputAttrMax - "INPUT_ATTR_MIN" -> Right CADFIInputAttrMin - "INPUT_ATTR_MULTIPLE" -> Right CADFIInputAttrMultiple - "INPUT_ATTR_PATTERN" -> Right CADFIInputAttrPattern - "INPUT_ATTR_PLACEHOLDER" -> Right CADFIInputAttrPlaceholder - "INPUT_ATTR_REQUIRED" -> Right CADFIInputAttrRequired - "INPUT_ATTR_STEP" -> Right CADFIInputAttrStep - "INPUT_TYPE_COLOR" -> Right CADFIInputTypeColor - "INPUT_TYPE_DATE" -> Right CADFIInputTypeDate - "INPUT_TYPE_DATETIME" -> Right CADFIInputTypeDatetime - "INPUT_TYPE_DATETIME_LOCAL" -> Right CADFIInputTypeDatetimeLocal - "INPUT_TYPE_EMAIL" -> Right CADFIInputTypeEmail - "INPUT_TYPE_MONTH" -> Right CADFIInputTypeMonth - "INPUT_TYPE_NUMBER" -> Right CADFIInputTypeNumber - "INPUT_TYPE_RANGE" -> Right CADFIInputTypeRange - "INPUT_TYPE_SEARCH" -> Right CADFIInputTypeSearch - "INPUT_TYPE_TEL" -> Right CADFIInputTypeTel - "INPUT_TYPE_TIME" -> Right CADFIInputTypeTime - "INPUT_TYPE_URL" -> Right CADFIInputTypeURL - "INPUT_TYPE_WEEK" -> Right CADFIInputTypeWeek - "LOCAL_STORAGE" -> Right CADFILocalStorage - "POST_MESSAGE" -> Right CADFIPostMessage - "SESSION_STORAGE" -> Right CADFISessionStorage - "SMIL" -> Right CADFISmil - "SVG_CLIP_PATHS" -> Right CADFISvgClipPaths - "SVG_FE_IMAGE" -> Right CADFISvgFeImage - "SVG_FILTERS" -> Right CADFISvgFilters - "SVG_HREF" -> Right CADFISvgHref - "TOUCH" -> Right CADFITouch - "VIDEO" -> Right CADFIVideo - "WEBGL" -> Right CADFIWebgl - "WEB_SOCKETS" -> Right CADFIWebSockets - "WEB_SQL_DATABASE" -> Right CADFIWebSQLDatabase - "WEB_WORKERS" -> Right CADFIWebWorkers - x -> Left ("Unable to parse CreativeAssetDetectedFeaturesItem from: " <> x) - -instance ToHttpApiData CreativeAssetDetectedFeaturesItem where - toQueryParam = \case - CADFIApplicationCache -> "APPLICATION_CACHE" - CADFIAudio -> "AUDIO" - CADFICanvas -> "CANVAS" - CADFICanvasText -> "CANVAS_TEXT" - CADFICssAnimations -> "CSS_ANIMATIONS" - CADFICssBackgRoundSize -> "CSS_BACKGROUND_SIZE" - CADFICssBOrderImage -> "CSS_BORDER_IMAGE" - CADFICssBOrderRadius -> "CSS_BORDER_RADIUS" - CADFICssBoxShadow -> "CSS_BOX_SHADOW" - CADFICssColumns -> "CSS_COLUMNS" - CADFICssFlexBox -> "CSS_FLEX_BOX" - CADFICssFontFace -> "CSS_FONT_FACE" - CADFICssGeneratedContent -> "CSS_GENERATED_CONTENT" - CADFICssGradients -> "CSS_GRADIENTS" - CADFICssHsla -> "CSS_HSLA" - CADFICssMultipleBgs -> "CSS_MULTIPLE_BGS" - CADFICssOpacity -> "CSS_OPACITY" - CADFICssReflections -> "CSS_REFLECTIONS" - CADFICssRgba -> "CSS_RGBA" - CADFICssTextShadow -> "CSS_TEXT_SHADOW" - CADFICssTransforms -> "CSS_TRANSFORMS" - CADFICssTRANSFORMS3D -> "CSS_TRANSFORMS3D" - CADFICssTransitions -> "CSS_TRANSITIONS" - CADFIDragAndDrop -> "DRAG_AND_DROP" - CADFIGeoLocation -> "GEO_LOCATION" - CADFIHashChange -> "HASH_CHANGE" - CADFIHistory -> "HISTORY" - CADFIIndexedDB -> "INDEXED_DB" - CADFIInlineSvg -> "INLINE_SVG" - CADFIInputAttrAutocomplete -> "INPUT_ATTR_AUTOCOMPLETE" - CADFIInputAttrAutofocus -> "INPUT_ATTR_AUTOFOCUS" - CADFIInputAttrList -> "INPUT_ATTR_LIST" - CADFIInputAttrMax -> "INPUT_ATTR_MAX" - CADFIInputAttrMin -> "INPUT_ATTR_MIN" - CADFIInputAttrMultiple -> "INPUT_ATTR_MULTIPLE" - CADFIInputAttrPattern -> "INPUT_ATTR_PATTERN" - CADFIInputAttrPlaceholder -> "INPUT_ATTR_PLACEHOLDER" - CADFIInputAttrRequired -> "INPUT_ATTR_REQUIRED" - CADFIInputAttrStep -> "INPUT_ATTR_STEP" - CADFIInputTypeColor -> "INPUT_TYPE_COLOR" - CADFIInputTypeDate -> "INPUT_TYPE_DATE" - CADFIInputTypeDatetime -> "INPUT_TYPE_DATETIME" - CADFIInputTypeDatetimeLocal -> "INPUT_TYPE_DATETIME_LOCAL" - CADFIInputTypeEmail -> "INPUT_TYPE_EMAIL" - CADFIInputTypeMonth -> "INPUT_TYPE_MONTH" - CADFIInputTypeNumber -> "INPUT_TYPE_NUMBER" - CADFIInputTypeRange -> "INPUT_TYPE_RANGE" - CADFIInputTypeSearch -> "INPUT_TYPE_SEARCH" - CADFIInputTypeTel -> "INPUT_TYPE_TEL" - CADFIInputTypeTime -> "INPUT_TYPE_TIME" - CADFIInputTypeURL -> "INPUT_TYPE_URL" - CADFIInputTypeWeek -> "INPUT_TYPE_WEEK" - CADFILocalStorage -> "LOCAL_STORAGE" - CADFIPostMessage -> "POST_MESSAGE" - CADFISessionStorage -> "SESSION_STORAGE" - CADFISmil -> "SMIL" - CADFISvgClipPaths -> "SVG_CLIP_PATHS" - CADFISvgFeImage -> "SVG_FE_IMAGE" - CADFISvgFilters -> "SVG_FILTERS" - CADFISvgHref -> "SVG_HREF" - CADFITouch -> "TOUCH" - CADFIVideo -> "VIDEO" - CADFIWebgl -> "WEBGL" - CADFIWebSockets -> "WEB_SOCKETS" - CADFIWebSQLDatabase -> "WEB_SQL_DATABASE" - CADFIWebWorkers -> "WEB_WORKERS" - -instance FromJSON CreativeAssetDetectedFeaturesItem where - parseJSON = parseJSONText "CreativeAssetDetectedFeaturesItem" - -instance ToJSON CreativeAssetDetectedFeaturesItem where - toJSON = toJSONText - --- | Type of the floodlight activity group. This is a required field that is --- read-only after insertion. -data FloodlightActivityGroupType - = FAGTCounter - -- ^ @COUNTER@ - | FAGTSale - -- ^ @SALE@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable FloodlightActivityGroupType - -instance FromHttpApiData FloodlightActivityGroupType where - parseQueryParam = \case - "COUNTER" -> Right FAGTCounter - "SALE" -> Right FAGTSale - x -> Left ("Unable to parse FloodlightActivityGroupType from: " <> x) - -instance ToHttpApiData FloodlightActivityGroupType where - toQueryParam = \case - FAGTCounter -> "COUNTER" - FAGTSale -> "SALE" - -instance FromJSON FloodlightActivityGroupType where - parseJSON = parseJSONText "FloodlightActivityGroupType" - -instance ToJSON FloodlightActivityGroupType where - toJSON = toJSONText - --- | Directory site contact type. -data DirectorySiteContactType - = DSCTBilling - -- ^ @BILLING@ - | DSCTOther - -- ^ @OTHER@ - | DSCTSales - -- ^ @SALES@ - | DSCTTechnical - -- ^ @TECHNICAL@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable DirectorySiteContactType - -instance FromHttpApiData DirectorySiteContactType where - parseQueryParam = \case - "BILLING" -> Right DSCTBilling - "OTHER" -> Right DSCTOther - "SALES" -> Right DSCTSales - "TECHNICAL" -> Right DSCTTechnical - x -> Left ("Unable to parse DirectorySiteContactType from: " <> x) - -instance ToHttpApiData DirectorySiteContactType where - toQueryParam = \case - DSCTBilling -> "BILLING" - DSCTOther -> "OTHER" - DSCTSales -> "SALES" - DSCTTechnical -> "TECHNICAL" - -instance FromJSON DirectorySiteContactType where - parseJSON = parseJSONText "DirectorySiteContactType" - -instance ToJSON DirectorySiteContactType where - toJSON = toJSONText - --- | Tag formats to generate for these placements. -data PlacementsGeneratetagsTagFormats - = PGTFPlacementTagClickCommands - -- ^ @PLACEMENT_TAG_CLICK_COMMANDS@ - | PGTFPlacementTagIframeIlayer - -- ^ @PLACEMENT_TAG_IFRAME_ILAYER@ - | PGTFPlacementTagIframeJavascript - -- ^ @PLACEMENT_TAG_IFRAME_JAVASCRIPT@ - | PGTFPlacementTagIframeJavascriptLegacy - -- ^ @PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY@ - | PGTFPlacementTagInstreamVideoPrefetch - -- ^ @PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH@ - | PGTFPlacementTagInstreamVideoPrefetchVast3 - -- ^ @PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3@ - | PGTFPlacementTagInternalRedirect - -- ^ @PLACEMENT_TAG_INTERNAL_REDIRECT@ - | PGTFPlacementTagInterstitialIframeJavascript - -- ^ @PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT@ - | PGTFPlacementTagInterstitialIframeJavascriptLegacy - -- ^ @PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY@ - | PGTFPlacementTagInterstitialInternalRedirect - -- ^ @PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT@ - | PGTFPlacementTagInterstitialJavascript - -- ^ @PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT@ - | PGTFPlacementTagInterstitialJavascriptLegacy - -- ^ @PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY@ - | PGTFPlacementTagJavascript - -- ^ @PLACEMENT_TAG_JAVASCRIPT@ - | PGTFPlacementTagJavascriptLegacy - -- ^ @PLACEMENT_TAG_JAVASCRIPT_LEGACY@ - | PGTFPlacementTagStandard - -- ^ @PLACEMENT_TAG_STANDARD@ - | PGTFPlacementTagTracking - -- ^ @PLACEMENT_TAG_TRACKING@ - | PGTFPlacementTagTrackingIframe - -- ^ @PLACEMENT_TAG_TRACKING_IFRAME@ - | PGTFPlacementTagTrackingJavascript - -- ^ @PLACEMENT_TAG_TRACKING_JAVASCRIPT@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PlacementsGeneratetagsTagFormats - -instance FromHttpApiData PlacementsGeneratetagsTagFormats where - parseQueryParam = \case - "PLACEMENT_TAG_CLICK_COMMANDS" -> Right PGTFPlacementTagClickCommands - "PLACEMENT_TAG_IFRAME_ILAYER" -> Right PGTFPlacementTagIframeIlayer - "PLACEMENT_TAG_IFRAME_JAVASCRIPT" -> Right PGTFPlacementTagIframeJavascript - "PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY" -> Right PGTFPlacementTagIframeJavascriptLegacy - "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH" -> Right PGTFPlacementTagInstreamVideoPrefetch - "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3" -> Right PGTFPlacementTagInstreamVideoPrefetchVast3 - "PLACEMENT_TAG_INTERNAL_REDIRECT" -> Right PGTFPlacementTagInternalRedirect - "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT" -> Right PGTFPlacementTagInterstitialIframeJavascript - "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY" -> Right PGTFPlacementTagInterstitialIframeJavascriptLegacy - "PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT" -> Right PGTFPlacementTagInterstitialInternalRedirect - "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT" -> Right PGTFPlacementTagInterstitialJavascript - "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY" -> Right PGTFPlacementTagInterstitialJavascriptLegacy - "PLACEMENT_TAG_JAVASCRIPT" -> Right PGTFPlacementTagJavascript - "PLACEMENT_TAG_JAVASCRIPT_LEGACY" -> Right PGTFPlacementTagJavascriptLegacy - "PLACEMENT_TAG_STANDARD" -> Right PGTFPlacementTagStandard - "PLACEMENT_TAG_TRACKING" -> Right PGTFPlacementTagTracking - "PLACEMENT_TAG_TRACKING_IFRAME" -> Right PGTFPlacementTagTrackingIframe - "PLACEMENT_TAG_TRACKING_JAVASCRIPT" -> Right PGTFPlacementTagTrackingJavascript - x -> Left ("Unable to parse PlacementsGeneratetagsTagFormats from: " <> x) - -instance ToHttpApiData PlacementsGeneratetagsTagFormats where - toQueryParam = \case - PGTFPlacementTagClickCommands -> "PLACEMENT_TAG_CLICK_COMMANDS" - PGTFPlacementTagIframeIlayer -> "PLACEMENT_TAG_IFRAME_ILAYER" - PGTFPlacementTagIframeJavascript -> "PLACEMENT_TAG_IFRAME_JAVASCRIPT" - PGTFPlacementTagIframeJavascriptLegacy -> "PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY" - PGTFPlacementTagInstreamVideoPrefetch -> "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH" - PGTFPlacementTagInstreamVideoPrefetchVast3 -> "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3" - PGTFPlacementTagInternalRedirect -> "PLACEMENT_TAG_INTERNAL_REDIRECT" - PGTFPlacementTagInterstitialIframeJavascript -> "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT" - PGTFPlacementTagInterstitialIframeJavascriptLegacy -> "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY" - PGTFPlacementTagInterstitialInternalRedirect -> "PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT" - PGTFPlacementTagInterstitialJavascript -> "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT" - PGTFPlacementTagInterstitialJavascriptLegacy -> "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY" - PGTFPlacementTagJavascript -> "PLACEMENT_TAG_JAVASCRIPT" - PGTFPlacementTagJavascriptLegacy -> "PLACEMENT_TAG_JAVASCRIPT_LEGACY" - PGTFPlacementTagStandard -> "PLACEMENT_TAG_STANDARD" - PGTFPlacementTagTracking -> "PLACEMENT_TAG_TRACKING" - PGTFPlacementTagTrackingIframe -> "PLACEMENT_TAG_TRACKING_IFRAME" - PGTFPlacementTagTrackingJavascript -> "PLACEMENT_TAG_TRACKING_JAVASCRIPT" - -instance FromJSON PlacementsGeneratetagsTagFormats where - parseJSON = parseJSONText "PlacementsGeneratetagsTagFormats" - -instance ToJSON PlacementsGeneratetagsTagFormats where - toJSON = toJSONText - --- | Field by which to sort the list. -data AccountUserProFilesListSortField - = AUPFLSFID - -- ^ @ID@ - | AUPFLSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AccountUserProFilesListSortField - -instance FromHttpApiData AccountUserProFilesListSortField where - parseQueryParam = \case - "ID" -> Right AUPFLSFID - "NAME" -> Right AUPFLSFName - x -> Left ("Unable to parse AccountUserProFilesListSortField from: " <> x) - -instance ToHttpApiData AccountUserProFilesListSortField where - toQueryParam = \case - AUPFLSFID -> "ID" - AUPFLSFName -> "NAME" - -instance FromJSON AccountUserProFilesListSortField where - parseJSON = parseJSONText "AccountUserProFilesListSortField" - -instance ToJSON AccountUserProFilesListSortField where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data InventoryItemsListSortOrder - = IILSOAscending - -- ^ @ASCENDING@ - | IILSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable InventoryItemsListSortOrder - -instance FromHttpApiData InventoryItemsListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right IILSOAscending - "DESCENDING" -> Right IILSODescending - x -> Left ("Unable to parse InventoryItemsListSortOrder from: " <> x) - -instance ToHttpApiData InventoryItemsListSortOrder where - toQueryParam = \case - IILSOAscending -> "ASCENDING" - IILSODescending -> "DESCENDING" - -instance FromJSON InventoryItemsListSortOrder where - parseJSON = parseJSONText "InventoryItemsListSortOrder" - -instance ToJSON InventoryItemsListSortOrder where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data PlacementStrategiesListSortOrder - = PSLSOAscending - -- ^ @ASCENDING@ - | PSLSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PlacementStrategiesListSortOrder - -instance FromHttpApiData PlacementStrategiesListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right PSLSOAscending - "DESCENDING" -> Right PSLSODescending - x -> Left ("Unable to parse PlacementStrategiesListSortOrder from: " <> x) - -instance ToHttpApiData PlacementStrategiesListSortOrder where - toQueryParam = \case - PSLSOAscending -> "ASCENDING" - PSLSODescending -> "DESCENDING" - -instance FromJSON PlacementStrategiesListSortOrder where - parseJSON = parseJSONText "PlacementStrategiesListSortOrder" - -instance ToJSON PlacementStrategiesListSortOrder where - toJSON = toJSONText - --- | The field by which to sort the list. -data ReportsFilesListSortField - = RFLSFID - -- ^ @ID@ - -- Sort by file ID. - | RFLSFLastModifiedTime - -- ^ @LAST_MODIFIED_TIME@ - -- Sort by \'lastmodifiedAt\' field. - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ReportsFilesListSortField - -instance FromHttpApiData ReportsFilesListSortField where - parseQueryParam = \case - "ID" -> Right RFLSFID - "LAST_MODIFIED_TIME" -> Right RFLSFLastModifiedTime - x -> Left ("Unable to parse ReportsFilesListSortField from: " <> x) - -instance ToHttpApiData ReportsFilesListSortField where - toQueryParam = \case - RFLSFID -> "ID" - RFLSFLastModifiedTime -> "LAST_MODIFIED_TIME" - -instance FromJSON ReportsFilesListSortField where - parseJSON = parseJSONText "ReportsFilesListSortField" - -instance ToJSON ReportsFilesListSortField where - toJSON = toJSONText - --- | Field by which to sort the list. -data CreativesListSortField - = CID - -- ^ @ID@ - | CName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativesListSortField - -instance FromHttpApiData CreativesListSortField where - parseQueryParam = \case - "ID" -> Right CID - "NAME" -> Right CName - x -> Left ("Unable to parse CreativesListSortField from: " <> x) - -instance ToHttpApiData CreativesListSortField where - toQueryParam = \case - CID -> "ID" - CName -> "NAME" - -instance FromJSON CreativesListSortField where - parseJSON = parseJSONText "CreativesListSortField" - -instance ToJSON CreativesListSortField where - toJSON = toJSONText - -data DayPartTargetingDaysOfWeekItem - = DPTDOWIFriday - -- ^ @FRIDAY@ - | DPTDOWIMonday - -- ^ @MONDAY@ - | DPTDOWISaturday - -- ^ @SATURDAY@ - | DPTDOWISunday - -- ^ @SUNDAY@ - | DPTDOWIThursday - -- ^ @THURSDAY@ - | DPTDOWITuesday - -- ^ @TUESDAY@ - | DPTDOWIWednesday - -- ^ @WEDNESDAY@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable DayPartTargetingDaysOfWeekItem - -instance FromHttpApiData DayPartTargetingDaysOfWeekItem where - parseQueryParam = \case - "FRIDAY" -> Right DPTDOWIFriday - "MONDAY" -> Right DPTDOWIMonday - "SATURDAY" -> Right DPTDOWISaturday - "SUNDAY" -> Right DPTDOWISunday - "THURSDAY" -> Right DPTDOWIThursday - "TUESDAY" -> Right DPTDOWITuesday - "WEDNESDAY" -> Right DPTDOWIWednesday - x -> Left ("Unable to parse DayPartTargetingDaysOfWeekItem from: " <> x) - -instance ToHttpApiData DayPartTargetingDaysOfWeekItem where - toQueryParam = \case - DPTDOWIFriday -> "FRIDAY" - DPTDOWIMonday -> "MONDAY" - DPTDOWISaturday -> "SATURDAY" - DPTDOWISunday -> "SUNDAY" - DPTDOWIThursday -> "THURSDAY" - DPTDOWITuesday -> "TUESDAY" - DPTDOWIWednesday -> "WEDNESDAY" - -instance FromJSON DayPartTargetingDaysOfWeekItem where - parseJSON = parseJSONText "DayPartTargetingDaysOfWeekItem" - -instance ToJSON DayPartTargetingDaysOfWeekItem where - toJSON = toJSONText - --- | Strategy for calculating weights. Used with --- CREATIVE_ROTATION_TYPE_RANDOM. -data CreativeRotationWeightCalculationStrategy - = WeightStrategyCustom - -- ^ @WEIGHT_STRATEGY_CUSTOM@ - | WeightStrategyEqual - -- ^ @WEIGHT_STRATEGY_EQUAL@ - | WeightStrategyHighestCtr - -- ^ @WEIGHT_STRATEGY_HIGHEST_CTR@ - | WeightStrategyOptimized - -- ^ @WEIGHT_STRATEGY_OPTIMIZED@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeRotationWeightCalculationStrategy - -instance FromHttpApiData CreativeRotationWeightCalculationStrategy where - parseQueryParam = \case - "WEIGHT_STRATEGY_CUSTOM" -> Right WeightStrategyCustom - "WEIGHT_STRATEGY_EQUAL" -> Right WeightStrategyEqual - "WEIGHT_STRATEGY_HIGHEST_CTR" -> Right WeightStrategyHighestCtr - "WEIGHT_STRATEGY_OPTIMIZED" -> Right WeightStrategyOptimized - x -> Left ("Unable to parse CreativeRotationWeightCalculationStrategy from: " <> x) - -instance ToHttpApiData CreativeRotationWeightCalculationStrategy where - toQueryParam = \case - WeightStrategyCustom -> "WEIGHT_STRATEGY_CUSTOM" - WeightStrategyEqual -> "WEIGHT_STRATEGY_EQUAL" - WeightStrategyHighestCtr -> "WEIGHT_STRATEGY_HIGHEST_CTR" - WeightStrategyOptimized -> "WEIGHT_STRATEGY_OPTIMIZED" - -instance FromJSON CreativeRotationWeightCalculationStrategy where - parseJSON = parseJSONText "CreativeRotationWeightCalculationStrategy" - -instance ToJSON CreativeRotationWeightCalculationStrategy where - toJSON = toJSONText - --- | The scope that defines which results are returned, default is \'MINE\'. -data FilesListScope - = FLSAll - -- ^ @ALL@ - -- All files in account. - | FLSMine - -- ^ @MINE@ - -- My files. - | FLSSharedWithMe - -- ^ @SHARED_WITH_ME@ - -- Files shared with me. - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable FilesListScope - -instance FromHttpApiData FilesListScope where - parseQueryParam = \case - "ALL" -> Right FLSAll - "MINE" -> Right FLSMine - "SHARED_WITH_ME" -> Right FLSSharedWithMe - x -> Left ("Unable to parse FilesListScope from: " <> x) - -instance ToHttpApiData FilesListScope where - toQueryParam = \case - FLSAll -> "ALL" - FLSMine -> "MINE" - FLSSharedWithMe -> "SHARED_WITH_ME" - -instance FromJSON FilesListScope where - parseJSON = parseJSONText "FilesListScope" - -instance ToJSON FilesListScope where - toJSON = toJSONText - --- | Field by which to sort the list. -data ContentCategoriesListSortField - = CCLSFID - -- ^ @ID@ - | CCLSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ContentCategoriesListSortField - -instance FromHttpApiData ContentCategoriesListSortField where - parseQueryParam = \case - "ID" -> Right CCLSFID - "NAME" -> Right CCLSFName - x -> Left ("Unable to parse ContentCategoriesListSortField from: " <> x) - -instance ToHttpApiData ContentCategoriesListSortField where - toQueryParam = \case - CCLSFID -> "ID" - CCLSFName -> "NAME" - -instance FromJSON ContentCategoriesListSortField where - parseJSON = parseJSONText "ContentCategoriesListSortField" - -instance ToJSON ContentCategoriesListSortField where - toJSON = toJSONText - --- | Audience age group of this project. -data ProjectAudienceAgeGroup - = PlanningAudienceAge1824 - -- ^ @PLANNING_AUDIENCE_AGE_18_24@ - | PlanningAudienceAge2534 - -- ^ @PLANNING_AUDIENCE_AGE_25_34@ - | PlanningAudienceAge3544 - -- ^ @PLANNING_AUDIENCE_AGE_35_44@ - | PlanningAudienceAge4554 - -- ^ @PLANNING_AUDIENCE_AGE_45_54@ - | PlanningAudienceAge5564 - -- ^ @PLANNING_AUDIENCE_AGE_55_64@ - | PlanningAudienceAge65OrMore - -- ^ @PLANNING_AUDIENCE_AGE_65_OR_MORE@ - | PlanningAudienceAgeUnknown - -- ^ @PLANNING_AUDIENCE_AGE_UNKNOWN@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ProjectAudienceAgeGroup - -instance FromHttpApiData ProjectAudienceAgeGroup where - parseQueryParam = \case - "PLANNING_AUDIENCE_AGE_18_24" -> Right PlanningAudienceAge1824 - "PLANNING_AUDIENCE_AGE_25_34" -> Right PlanningAudienceAge2534 - "PLANNING_AUDIENCE_AGE_35_44" -> Right PlanningAudienceAge3544 - "PLANNING_AUDIENCE_AGE_45_54" -> Right PlanningAudienceAge4554 - "PLANNING_AUDIENCE_AGE_55_64" -> Right PlanningAudienceAge5564 - "PLANNING_AUDIENCE_AGE_65_OR_MORE" -> Right PlanningAudienceAge65OrMore - "PLANNING_AUDIENCE_AGE_UNKNOWN" -> Right PlanningAudienceAgeUnknown - x -> Left ("Unable to parse ProjectAudienceAgeGroup from: " <> x) - -instance ToHttpApiData ProjectAudienceAgeGroup where - toQueryParam = \case - PlanningAudienceAge1824 -> "PLANNING_AUDIENCE_AGE_18_24" - PlanningAudienceAge2534 -> "PLANNING_AUDIENCE_AGE_25_34" - PlanningAudienceAge3544 -> "PLANNING_AUDIENCE_AGE_35_44" - PlanningAudienceAge4554 -> "PLANNING_AUDIENCE_AGE_45_54" - PlanningAudienceAge5564 -> "PLANNING_AUDIENCE_AGE_55_64" - PlanningAudienceAge65OrMore -> "PLANNING_AUDIENCE_AGE_65_OR_MORE" - PlanningAudienceAgeUnknown -> "PLANNING_AUDIENCE_AGE_UNKNOWN" - -instance FromJSON ProjectAudienceAgeGroup where - parseJSON = parseJSONText "ProjectAudienceAgeGroup" - -instance ToJSON ProjectAudienceAgeGroup where - toJSON = toJSONText - --- | Type of ad. This is a required field on insertion. Note that default ads --- (AD_SERVING_DEFAULT_AD) cannot be created directly (see Creative --- resource). -data AdType - = ATAdServingClickTracker - -- ^ @AD_SERVING_CLICK_TRACKER@ - | ATAdServingDefaultAd - -- ^ @AD_SERVING_DEFAULT_AD@ - | ATAdServingStandardAd - -- ^ @AD_SERVING_STANDARD_AD@ - | ATAdServingTracking - -- ^ @AD_SERVING_TRACKING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AdType - -instance FromHttpApiData AdType where - parseQueryParam = \case - "AD_SERVING_CLICK_TRACKER" -> Right ATAdServingClickTracker - "AD_SERVING_DEFAULT_AD" -> Right ATAdServingDefaultAd - "AD_SERVING_STANDARD_AD" -> Right ATAdServingStandardAd - "AD_SERVING_TRACKING" -> Right ATAdServingTracking - x -> Left ("Unable to parse AdType from: " <> x) - -instance ToHttpApiData AdType where - toQueryParam = \case - ATAdServingClickTracker -> "AD_SERVING_CLICK_TRACKER" - ATAdServingDefaultAd -> "AD_SERVING_DEFAULT_AD" - ATAdServingStandardAd -> "AD_SERVING_STANDARD_AD" - ATAdServingTracking -> "AD_SERVING_TRACKING" - -instance FromJSON AdType where - parseJSON = parseJSONText "AdType" - -instance ToJSON AdType where - toJSON = toJSONText - --- | Select only change logs with the specified action. -data ChangeLogsListAction - = ActionAdd - -- ^ @ACTION_ADD@ - | ActionAssign - -- ^ @ACTION_ASSIGN@ - | ActionAssociate - -- ^ @ACTION_ASSOCIATE@ - | ActionCreate - -- ^ @ACTION_CREATE@ - | ActionDelete - -- ^ @ACTION_DELETE@ - | ActionDisable - -- ^ @ACTION_DISABLE@ - | ActionEmailTags - -- ^ @ACTION_EMAIL_TAGS@ - | ActionEnable - -- ^ @ACTION_ENABLE@ - | ActionLink - -- ^ @ACTION_LINK@ - | ActionMarkAsDefault - -- ^ @ACTION_MARK_AS_DEFAULT@ - | ActionPush - -- ^ @ACTION_PUSH@ - | ActionRemove - -- ^ @ACTION_REMOVE@ - | ActionSend - -- ^ @ACTION_SEND@ - | ActionShare - -- ^ @ACTION_SHARE@ - | ActionUnassign - -- ^ @ACTION_UNASSIGN@ - | ActionUnlink - -- ^ @ACTION_UNLINK@ - | ActionUpdate - -- ^ @ACTION_UPDATE@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ChangeLogsListAction - -instance FromHttpApiData ChangeLogsListAction where - parseQueryParam = \case - "ACTION_ADD" -> Right ActionAdd - "ACTION_ASSIGN" -> Right ActionAssign - "ACTION_ASSOCIATE" -> Right ActionAssociate - "ACTION_CREATE" -> Right ActionCreate - "ACTION_DELETE" -> Right ActionDelete - "ACTION_DISABLE" -> Right ActionDisable - "ACTION_EMAIL_TAGS" -> Right ActionEmailTags - "ACTION_ENABLE" -> Right ActionEnable - "ACTION_LINK" -> Right ActionLink - "ACTION_MARK_AS_DEFAULT" -> Right ActionMarkAsDefault - "ACTION_PUSH" -> Right ActionPush - "ACTION_REMOVE" -> Right ActionRemove - "ACTION_SEND" -> Right ActionSend - "ACTION_SHARE" -> Right ActionShare - "ACTION_UNASSIGN" -> Right ActionUnassign - "ACTION_UNLINK" -> Right ActionUnlink - "ACTION_UPDATE" -> Right ActionUpdate - x -> Left ("Unable to parse ChangeLogsListAction from: " <> x) - -instance ToHttpApiData ChangeLogsListAction where - toQueryParam = \case - ActionAdd -> "ACTION_ADD" - ActionAssign -> "ACTION_ASSIGN" - ActionAssociate -> "ACTION_ASSOCIATE" - ActionCreate -> "ACTION_CREATE" - ActionDelete -> "ACTION_DELETE" - ActionDisable -> "ACTION_DISABLE" - ActionEmailTags -> "ACTION_EMAIL_TAGS" - ActionEnable -> "ACTION_ENABLE" - ActionLink -> "ACTION_LINK" - ActionMarkAsDefault -> "ACTION_MARK_AS_DEFAULT" - ActionPush -> "ACTION_PUSH" - ActionRemove -> "ACTION_REMOVE" - ActionSend -> "ACTION_SEND" - ActionShare -> "ACTION_SHARE" - ActionUnassign -> "ACTION_UNASSIGN" - ActionUnlink -> "ACTION_UNLINK" - ActionUpdate -> "ACTION_UPDATE" - -instance FromJSON ChangeLogsListAction where - parseJSON = parseJSONText "ChangeLogsListAction" - -instance ToJSON ChangeLogsListAction where - toJSON = toJSONText - --- | Type of artwork used for the creative. This is a read-only field. --- Applicable to the following creative types: all RICH_MEDIA, and all --- VPAID. -data CreativeArtworkType - = CATArtworkTypeFlash - -- ^ @ARTWORK_TYPE_FLASH@ - | CATArtworkTypeHTML5 - -- ^ @ARTWORK_TYPE_HTML5@ - | CATArtworkTypeImage - -- ^ @ARTWORK_TYPE_IMAGE@ - | CATArtworkTypeMixed - -- ^ @ARTWORK_TYPE_MIXED@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeArtworkType - -instance FromHttpApiData CreativeArtworkType where - parseQueryParam = \case - "ARTWORK_TYPE_FLASH" -> Right CATArtworkTypeFlash - "ARTWORK_TYPE_HTML5" -> Right CATArtworkTypeHTML5 - "ARTWORK_TYPE_IMAGE" -> Right CATArtworkTypeImage - "ARTWORK_TYPE_MIXED" -> Right CATArtworkTypeMixed - x -> Left ("Unable to parse CreativeArtworkType from: " <> x) - -instance ToHttpApiData CreativeArtworkType where - toQueryParam = \case - CATArtworkTypeFlash -> "ARTWORK_TYPE_FLASH" - CATArtworkTypeHTML5 -> "ARTWORK_TYPE_HTML5" - CATArtworkTypeImage -> "ARTWORK_TYPE_IMAGE" - CATArtworkTypeMixed -> "ARTWORK_TYPE_MIXED" - -instance FromJSON CreativeArtworkType where - parseJSON = parseJSONText "CreativeArtworkType" - -instance ToJSON CreativeArtworkType where - toJSON = toJSONText - --- | Third-party placement status. -data PlacementStatus - = AcknowledgeAcceptance - -- ^ @ACKNOWLEDGE_ACCEPTANCE@ - | AcknowledgeRejection - -- ^ @ACKNOWLEDGE_REJECTION@ - | Draft - -- ^ @DRAFT@ - | PaymentAccepted - -- ^ @PAYMENT_ACCEPTED@ - | PaymentRejected - -- ^ @PAYMENT_REJECTED@ - | PendingReview - -- ^ @PENDING_REVIEW@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PlacementStatus - -instance FromHttpApiData PlacementStatus where - parseQueryParam = \case - "ACKNOWLEDGE_ACCEPTANCE" -> Right AcknowledgeAcceptance - "ACKNOWLEDGE_REJECTION" -> Right AcknowledgeRejection - "DRAFT" -> Right Draft - "PAYMENT_ACCEPTED" -> Right PaymentAccepted - "PAYMENT_REJECTED" -> Right PaymentRejected - "PENDING_REVIEW" -> Right PendingReview - x -> Left ("Unable to parse PlacementStatus from: " <> x) - -instance ToHttpApiData PlacementStatus where - toQueryParam = \case - AcknowledgeAcceptance -> "ACKNOWLEDGE_ACCEPTANCE" - AcknowledgeRejection -> "ACKNOWLEDGE_REJECTION" - Draft -> "DRAFT" - PaymentAccepted -> "PAYMENT_ACCEPTED" - PaymentRejected -> "PAYMENT_REJECTED" - PendingReview -> "PENDING_REVIEW" - -instance FromJSON PlacementStatus where - parseJSON = parseJSONText "PlacementStatus" - -instance ToJSON PlacementStatus where - toJSON = toJSONText - --- | Enum to define for \"MONTHLY\" scheduled reports whether reports should --- be repeated on the same day of the month as \"startDate\" or the same --- day of the week of the month. Example: If \'startDate\' is Monday, April --- 2nd 2012 (2012-04-02), \"DAY_OF_MONTH\" would run subsequent reports on --- the 2nd of every Month, and \"WEEK_OF_MONTH\" would run subsequent --- reports on the first Monday of the month. -data ReportScheduleRunsOnDayOfMonth - = DayOfMonth - -- ^ @DAY_OF_MONTH@ - | WeekOfMonth - -- ^ @WEEK_OF_MONTH@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ReportScheduleRunsOnDayOfMonth - -instance FromHttpApiData ReportScheduleRunsOnDayOfMonth where - parseQueryParam = \case - "DAY_OF_MONTH" -> Right DayOfMonth - "WEEK_OF_MONTH" -> Right WeekOfMonth - x -> Left ("Unable to parse ReportScheduleRunsOnDayOfMonth from: " <> x) - -instance ToHttpApiData ReportScheduleRunsOnDayOfMonth where - toQueryParam = \case - DayOfMonth -> "DAY_OF_MONTH" - WeekOfMonth -> "WEEK_OF_MONTH" - -instance FromJSON ReportScheduleRunsOnDayOfMonth where - parseJSON = parseJSONText "ReportScheduleRunsOnDayOfMonth" - -instance ToJSON ReportScheduleRunsOnDayOfMonth where - toJSON = toJSONText - -data FloodlightActivityUserDefinedVariableTypesItem - = FAUDVTIU1 - -- ^ @U1@ - | FAUDVTIU10 - -- ^ @U10@ - | FAUDVTIU11 - -- ^ @U11@ - | FAUDVTIU12 - -- ^ @U12@ - | FAUDVTIU13 - -- ^ @U13@ - | FAUDVTIU14 - -- ^ @U14@ - | FAUDVTIU15 - -- ^ @U15@ - | FAUDVTIU16 - -- ^ @U16@ - | FAUDVTIU17 - -- ^ @U17@ - | FAUDVTIU18 - -- ^ @U18@ - | FAUDVTIU19 - -- ^ @U19@ - | FAUDVTIU2 - -- ^ @U2@ - | FAUDVTIU20 - -- ^ @U20@ - | FAUDVTIU3 - -- ^ @U3@ - | FAUDVTIU4 - -- ^ @U4@ - | FAUDVTIU5 - -- ^ @U5@ - | FAUDVTIU6 - -- ^ @U6@ - | FAUDVTIU7 - -- ^ @U7@ - | FAUDVTIU8 - -- ^ @U8@ - | FAUDVTIU9 - -- ^ @U9@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable FloodlightActivityUserDefinedVariableTypesItem - -instance FromHttpApiData FloodlightActivityUserDefinedVariableTypesItem where - parseQueryParam = \case - "U1" -> Right FAUDVTIU1 - "U10" -> Right FAUDVTIU10 - "U11" -> Right FAUDVTIU11 - "U12" -> Right FAUDVTIU12 - "U13" -> Right FAUDVTIU13 - "U14" -> Right FAUDVTIU14 - "U15" -> Right FAUDVTIU15 - "U16" -> Right FAUDVTIU16 - "U17" -> Right FAUDVTIU17 - "U18" -> Right FAUDVTIU18 - "U19" -> Right FAUDVTIU19 - "U2" -> Right FAUDVTIU2 - "U20" -> Right FAUDVTIU20 - "U3" -> Right FAUDVTIU3 - "U4" -> Right FAUDVTIU4 - "U5" -> Right FAUDVTIU5 - "U6" -> Right FAUDVTIU6 - "U7" -> Right FAUDVTIU7 - "U8" -> Right FAUDVTIU8 - "U9" -> Right FAUDVTIU9 - x -> Left ("Unable to parse FloodlightActivityUserDefinedVariableTypesItem from: " <> x) - -instance ToHttpApiData FloodlightActivityUserDefinedVariableTypesItem where - toQueryParam = \case - FAUDVTIU1 -> "U1" - FAUDVTIU10 -> "U10" - FAUDVTIU11 -> "U11" - FAUDVTIU12 -> "U12" - FAUDVTIU13 -> "U13" - FAUDVTIU14 -> "U14" - FAUDVTIU15 -> "U15" - FAUDVTIU16 -> "U16" - FAUDVTIU17 -> "U17" - FAUDVTIU18 -> "U18" - FAUDVTIU19 -> "U19" - FAUDVTIU2 -> "U2" - FAUDVTIU20 -> "U20" - FAUDVTIU3 -> "U3" - FAUDVTIU4 -> "U4" - FAUDVTIU5 -> "U5" - FAUDVTIU6 -> "U6" - FAUDVTIU7 -> "U7" - FAUDVTIU8 -> "U8" - FAUDVTIU9 -> "U9" - -instance FromJSON FloodlightActivityUserDefinedVariableTypesItem where - parseJSON = parseJSONText "FloodlightActivityUserDefinedVariableTypesItem" - -instance ToJSON FloodlightActivityUserDefinedVariableTypesItem where - toJSON = toJSONText - --- | Site filter type for this event tag. If no type is specified then the --- event tag will be applied to all sites. -data EventTagSiteFilterType - = BlackList - -- ^ @BLACKLIST@ - | WhiteList - -- ^ @WHITELIST@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable EventTagSiteFilterType - -instance FromHttpApiData EventTagSiteFilterType where - parseQueryParam = \case - "BLACKLIST" -> Right BlackList - "WHITELIST" -> Right WhiteList - x -> Left ("Unable to parse EventTagSiteFilterType from: " <> x) - -instance ToHttpApiData EventTagSiteFilterType where - toQueryParam = \case - BlackList -> "BLACKLIST" - WhiteList -> "WHITELIST" - -instance FromJSON EventTagSiteFilterType where - parseJSON = parseJSONText "EventTagSiteFilterType" - -instance ToJSON EventTagSiteFilterType where - toJSON = toJSONText - --- | The output format of the report. If not specified, default format is --- \"CSV\". Note that the actual format in the completed report file might --- differ if for instance the report\'s size exceeds the format\'s --- capabilities. \"CSV\" will then be the fallback format. -data ReportFormat - = RFCSV - -- ^ @CSV@ - | RFExcel - -- ^ @EXCEL@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ReportFormat - -instance FromHttpApiData ReportFormat where - parseQueryParam = \case - "CSV" -> Right RFCSV - "EXCEL" -> Right RFExcel - x -> Left ("Unable to parse ReportFormat from: " <> x) - -instance ToHttpApiData ReportFormat where - toQueryParam = \case - RFCSV -> "CSV" - RFExcel -> "EXCEL" - -instance FromJSON ReportFormat where - parseJSON = parseJSONText "ReportFormat" - -instance ToJSON ReportFormat where - toJSON = toJSONText - --- | Type of this placement group. A package is a simple group of placements --- that acts as a single pricing point for a group of tags. A roadblock is --- a group of placements that not only acts as a single pricing point, but --- also assumes that all the tags in it will be served at the same time. A --- roadblock requires one of its assigned placements to be marked as --- primary for reporting. This field is required on insertion. -data PlacementGroupPlacementGroupType - = PGPGTPlacementPackage - -- ^ @PLACEMENT_PACKAGE@ - | PGPGTPlacementRoadblock - -- ^ @PLACEMENT_ROADBLOCK@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PlacementGroupPlacementGroupType - -instance FromHttpApiData PlacementGroupPlacementGroupType where - parseQueryParam = \case - "PLACEMENT_PACKAGE" -> Right PGPGTPlacementPackage - "PLACEMENT_ROADBLOCK" -> Right PGPGTPlacementRoadblock - x -> Left ("Unable to parse PlacementGroupPlacementGroupType from: " <> x) - -instance ToHttpApiData PlacementGroupPlacementGroupType where - toQueryParam = \case - PGPGTPlacementPackage -> "PLACEMENT_PACKAGE" - PGPGTPlacementRoadblock -> "PLACEMENT_ROADBLOCK" - -instance FromJSON PlacementGroupPlacementGroupType where - parseJSON = parseJSONText "PlacementGroupPlacementGroupType" - -instance ToJSON PlacementGroupPlacementGroupType where - toJSON = toJSONText - --- | Pricing type of this inventory item. -data PricingPricingType - = PlanningPlacementPricingTypeClicks - -- ^ @PLANNING_PLACEMENT_PRICING_TYPE_CLICKS@ - | PlanningPlacementPricingTypeCpa - -- ^ @PLANNING_PLACEMENT_PRICING_TYPE_CPA@ - | PlanningPlacementPricingTypeCpc - -- ^ @PLANNING_PLACEMENT_PRICING_TYPE_CPC@ - | PlanningPlacementPricingTypeCpm - -- ^ @PLANNING_PLACEMENT_PRICING_TYPE_CPM@ - | PlanningPlacementPricingTypeFlatRateClicks - -- ^ @PLANNING_PLACEMENT_PRICING_TYPE_FLAT_RATE_CLICKS@ - | PlanningPlacementPricingTypeFlatRateImpressions - -- ^ @PLANNING_PLACEMENT_PRICING_TYPE_FLAT_RATE_IMPRESSIONS@ - | PlanningPlacementPricingTypeImpressions - -- ^ @PLANNING_PLACEMENT_PRICING_TYPE_IMPRESSIONS@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PricingPricingType - -instance FromHttpApiData PricingPricingType where - parseQueryParam = \case - "PLANNING_PLACEMENT_PRICING_TYPE_CLICKS" -> Right PlanningPlacementPricingTypeClicks - "PLANNING_PLACEMENT_PRICING_TYPE_CPA" -> Right PlanningPlacementPricingTypeCpa - "PLANNING_PLACEMENT_PRICING_TYPE_CPC" -> Right PlanningPlacementPricingTypeCpc - "PLANNING_PLACEMENT_PRICING_TYPE_CPM" -> Right PlanningPlacementPricingTypeCpm - "PLANNING_PLACEMENT_PRICING_TYPE_FLAT_RATE_CLICKS" -> Right PlanningPlacementPricingTypeFlatRateClicks - "PLANNING_PLACEMENT_PRICING_TYPE_FLAT_RATE_IMPRESSIONS" -> Right PlanningPlacementPricingTypeFlatRateImpressions - "PLANNING_PLACEMENT_PRICING_TYPE_IMPRESSIONS" -> Right PlanningPlacementPricingTypeImpressions - x -> Left ("Unable to parse PricingPricingType from: " <> x) - -instance ToHttpApiData PricingPricingType where - toQueryParam = \case - PlanningPlacementPricingTypeClicks -> "PLANNING_PLACEMENT_PRICING_TYPE_CLICKS" - PlanningPlacementPricingTypeCpa -> "PLANNING_PLACEMENT_PRICING_TYPE_CPA" - PlanningPlacementPricingTypeCpc -> "PLANNING_PLACEMENT_PRICING_TYPE_CPC" - PlanningPlacementPricingTypeCpm -> "PLANNING_PLACEMENT_PRICING_TYPE_CPM" - PlanningPlacementPricingTypeFlatRateClicks -> "PLANNING_PLACEMENT_PRICING_TYPE_FLAT_RATE_CLICKS" - PlanningPlacementPricingTypeFlatRateImpressions -> "PLANNING_PLACEMENT_PRICING_TYPE_FLAT_RATE_IMPRESSIONS" - PlanningPlacementPricingTypeImpressions -> "PLANNING_PLACEMENT_PRICING_TYPE_IMPRESSIONS" - -instance FromJSON PricingPricingType where - parseJSON = parseJSONText "PricingPricingType" - -instance ToJSON PricingPricingType where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data SubAccountsListSortOrder - = SALSOAscending - -- ^ @ASCENDING@ - | SALSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable SubAccountsListSortOrder - -instance FromHttpApiData SubAccountsListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right SALSOAscending - "DESCENDING" -> Right SALSODescending - x -> Left ("Unable to parse SubAccountsListSortOrder from: " <> x) - -instance ToHttpApiData SubAccountsListSortOrder where - toQueryParam = \case - SALSOAscending -> "ASCENDING" - SALSODescending -> "DESCENDING" - -instance FromJSON SubAccountsListSortOrder where - parseJSON = parseJSONText "SubAccountsListSortOrder" - -instance ToJSON SubAccountsListSortOrder where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data AdsListSortOrder - = ADSAscending - -- ^ @ASCENDING@ - | ADSDescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AdsListSortOrder - -instance FromHttpApiData AdsListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right ADSAscending - "DESCENDING" -> Right ADSDescending - x -> Left ("Unable to parse AdsListSortOrder from: " <> x) - -instance ToHttpApiData AdsListSortOrder where - toQueryParam = \case - ADSAscending -> "ASCENDING" - ADSDescending -> "DESCENDING" - -instance FromJSON AdsListSortOrder where - parseJSON = parseJSONText "AdsListSortOrder" - -instance ToJSON AdsListSortOrder where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data ProjectsListSortOrder - = PLSOAscending - -- ^ @ASCENDING@ - | PLSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ProjectsListSortOrder - -instance FromHttpApiData ProjectsListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right PLSOAscending - "DESCENDING" -> Right PLSODescending - x -> Left ("Unable to parse ProjectsListSortOrder from: " <> x) - -instance ToHttpApiData ProjectsListSortOrder where - toQueryParam = \case - PLSOAscending -> "ASCENDING" - PLSODescending -> "DESCENDING" - -instance FromJSON ProjectsListSortOrder where - parseJSON = parseJSONText "ProjectsListSortOrder" - -instance ToJSON ProjectsListSortOrder where - toJSON = toJSONText - --- | Field by which to sort the list. -data RemarketingListsListSortField - = RLLSFID - -- ^ @ID@ - | RLLSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable RemarketingListsListSortField - -instance FromHttpApiData RemarketingListsListSortField where - parseQueryParam = \case - "ID" -> Right RLLSFID - "NAME" -> Right RLLSFName - x -> Left ("Unable to parse RemarketingListsListSortField from: " <> x) - -instance ToHttpApiData RemarketingListsListSortField where - toQueryParam = \case - RLLSFID -> "ID" - RLLSFName -> "NAME" - -instance FromJSON RemarketingListsListSortField where - parseJSON = parseJSONText "RemarketingListsListSortField" - -instance ToJSON RemarketingListsListSortField where - toJSON = toJSONText - -data ReportScheduleRepeatsOnWeekDaysItem - = RSROWDIFriday - -- ^ @FRIDAY@ - | RSROWDIMonday - -- ^ @MONDAY@ - | RSROWDISaturday - -- ^ @SATURDAY@ - | RSROWDISunday - -- ^ @SUNDAY@ - | RSROWDIThursday - -- ^ @THURSDAY@ - | RSROWDITuesday - -- ^ @TUESDAY@ - | RSROWDIWednesday - -- ^ @WEDNESDAY@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ReportScheduleRepeatsOnWeekDaysItem - -instance FromHttpApiData ReportScheduleRepeatsOnWeekDaysItem where - parseQueryParam = \case - "FRIDAY" -> Right RSROWDIFriday - "MONDAY" -> Right RSROWDIMonday - "SATURDAY" -> Right RSROWDISaturday - "SUNDAY" -> Right RSROWDISunday - "THURSDAY" -> Right RSROWDIThursday - "TUESDAY" -> Right RSROWDITuesday - "WEDNESDAY" -> Right RSROWDIWednesday - x -> Left ("Unable to parse ReportScheduleRepeatsOnWeekDaysItem from: " <> x) - -instance ToHttpApiData ReportScheduleRepeatsOnWeekDaysItem where - toQueryParam = \case - RSROWDIFriday -> "FRIDAY" - RSROWDIMonday -> "MONDAY" - RSROWDISaturday -> "SATURDAY" - RSROWDISunday -> "SUNDAY" - RSROWDIThursday -> "THURSDAY" - RSROWDITuesday -> "TUESDAY" - RSROWDIWednesday -> "WEDNESDAY" - -instance FromJSON ReportScheduleRepeatsOnWeekDaysItem where - parseJSON = parseJSONText "ReportScheduleRepeatsOnWeekDaysItem" - -instance ToJSON ReportScheduleRepeatsOnWeekDaysItem where - toJSON = toJSONText - --- | Creative group number of the creative group assignment. -data CreativeGroupAssignmentCreativeGroupNumber - = CreativeGroupOne - -- ^ @CREATIVE_GROUP_ONE@ - | CreativeGroupTwo - -- ^ @CREATIVE_GROUP_TWO@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeGroupAssignmentCreativeGroupNumber - -instance FromHttpApiData CreativeGroupAssignmentCreativeGroupNumber where - parseQueryParam = \case - "CREATIVE_GROUP_ONE" -> Right CreativeGroupOne - "CREATIVE_GROUP_TWO" -> Right CreativeGroupTwo - x -> Left ("Unable to parse CreativeGroupAssignmentCreativeGroupNumber from: " <> x) - -instance ToHttpApiData CreativeGroupAssignmentCreativeGroupNumber where - toQueryParam = \case - CreativeGroupOne -> "CREATIVE_GROUP_ONE" - CreativeGroupTwo -> "CREATIVE_GROUP_TWO" - -instance FromJSON CreativeGroupAssignmentCreativeGroupNumber where - parseJSON = parseJSONText "CreativeGroupAssignmentCreativeGroupNumber" - -instance ToJSON CreativeGroupAssignmentCreativeGroupNumber where - toJSON = toJSONText - --- | Field by which to sort the list. -data AccountsListSortField - = AID - -- ^ @ID@ - | AName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AccountsListSortField - -instance FromHttpApiData AccountsListSortField where - parseQueryParam = \case - "ID" -> Right AID - "NAME" -> Right AName - x -> Left ("Unable to parse AccountsListSortField from: " <> x) - -instance ToHttpApiData AccountsListSortField where - toQueryParam = \case - AID -> "ID" - AName -> "NAME" - -instance FromJSON AccountsListSortField where - parseJSON = parseJSONText "AccountsListSortField" - -instance ToJSON AccountsListSortField where - toJSON = toJSONText - --- | Select only advertisers with the specified status. -data AdvertisersListStatus - = Approved - -- ^ @APPROVED@ - | OnHold - -- ^ @ON_HOLD@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AdvertisersListStatus - -instance FromHttpApiData AdvertisersListStatus where - parseQueryParam = \case - "APPROVED" -> Right Approved - "ON_HOLD" -> Right OnHold - x -> Left ("Unable to parse AdvertisersListStatus from: " <> x) - -instance ToHttpApiData AdvertisersListStatus where - toQueryParam = \case - Approved -> "APPROVED" - OnHold -> "ON_HOLD" - -instance FromJSON AdvertisersListStatus where - parseJSON = parseJSONText "AdvertisersListStatus" - -instance ToJSON AdvertisersListStatus where - toJSON = toJSONText - --- | Determines how the \'value\' field is matched when filtering. If not --- specified, defaults to EXACT. If set to WILDCARD_EXPRESSION, \'*\' is --- allowed as a placeholder for variable length character sequences, and it --- can be escaped with a backslash. Note, only paid search dimensions --- (\'dfa:paidSearch*\') allow a matchType other than EXACT. -data DimensionValueMatchType - = BeginsWith - -- ^ @BEGINS_WITH@ - | Contains - -- ^ @CONTAINS@ - | Exact - -- ^ @EXACT@ - | WildcardExpression - -- ^ @WILDCARD_EXPRESSION@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable DimensionValueMatchType - -instance FromHttpApiData DimensionValueMatchType where - parseQueryParam = \case - "BEGINS_WITH" -> Right BeginsWith - "CONTAINS" -> Right Contains - "EXACT" -> Right Exact - "WILDCARD_EXPRESSION" -> Right WildcardExpression - x -> Left ("Unable to parse DimensionValueMatchType from: " <> x) - -instance ToHttpApiData DimensionValueMatchType where - toQueryParam = \case - BeginsWith -> "BEGINS_WITH" - Contains -> "CONTAINS" - Exact -> "EXACT" - WildcardExpression -> "WILDCARD_EXPRESSION" - -instance FromJSON DimensionValueMatchType where - parseJSON = parseJSONText "DimensionValueMatchType" - -instance ToJSON DimensionValueMatchType where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data PlacementGroupsListSortOrder - = PGLSOAscending - -- ^ @ASCENDING@ - | PGLSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PlacementGroupsListSortOrder - -instance FromHttpApiData PlacementGroupsListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right PGLSOAscending - "DESCENDING" -> Right PGLSODescending - x -> Left ("Unable to parse PlacementGroupsListSortOrder from: " <> x) - -instance ToHttpApiData PlacementGroupsListSortOrder where - toQueryParam = \case - PGLSOAscending -> "ASCENDING" - PGLSODescending -> "DESCENDING" - -instance FromJSON PlacementGroupsListSortOrder where - parseJSON = parseJSONText "PlacementGroupsListSortOrder" - -instance ToJSON PlacementGroupsListSortOrder where - toJSON = toJSONText - --- | Compatibility of this ad. Applicable when type is AD_SERVING_DEFAULT_AD. --- DISPLAY and DISPLAY_INTERSTITIAL refer to either rendering on desktop or --- on mobile devices or in mobile apps for regular or interstitial ads, --- respectively. APP and APP_INTERSTITIAL are only used for existing --- default ads. New mobile placements must be assigned DISPLAY or --- DISPLAY_INTERSTITIAL and default ads created for those placements will --- be limited to those compatibility types. IN_STREAM_VIDEO refers to --- rendering in-stream video ads developed with the VAST standard. -data AdCompatibility - = ACApp - -- ^ @APP@ - | ACAppInterstitial - -- ^ @APP_INTERSTITIAL@ - | ACDisplay - -- ^ @DISPLAY@ - | ACDisplayInterstitial - -- ^ @DISPLAY_INTERSTITIAL@ - | ACInStreamVideo - -- ^ @IN_STREAM_VIDEO@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AdCompatibility - -instance FromHttpApiData AdCompatibility where - parseQueryParam = \case - "APP" -> Right ACApp - "APP_INTERSTITIAL" -> Right ACAppInterstitial - "DISPLAY" -> Right ACDisplay - "DISPLAY_INTERSTITIAL" -> Right ACDisplayInterstitial - "IN_STREAM_VIDEO" -> Right ACInStreamVideo - x -> Left ("Unable to parse AdCompatibility from: " <> x) - -instance ToHttpApiData AdCompatibility where - toQueryParam = \case - ACApp -> "APP" - ACAppInterstitial -> "APP_INTERSTITIAL" - ACDisplay -> "DISPLAY" - ACDisplayInterstitial -> "DISPLAY_INTERSTITIAL" - ACInStreamVideo -> "IN_STREAM_VIDEO" - -instance FromJSON AdCompatibility where - parseJSON = parseJSONText "AdCompatibility" - -instance ToJSON AdCompatibility where - toJSON = toJSONText - --- | Field by which to sort the list. -data CreativeFieldValuesListSortField - = CFVLSFID - -- ^ @ID@ - | CFVLSFValue - -- ^ @VALUE@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeFieldValuesListSortField - -instance FromHttpApiData CreativeFieldValuesListSortField where - parseQueryParam = \case - "ID" -> Right CFVLSFID - "VALUE" -> Right CFVLSFValue - x -> Left ("Unable to parse CreativeFieldValuesListSortField from: " <> x) - -instance ToHttpApiData CreativeFieldValuesListSortField where - toQueryParam = \case - CFVLSFID -> "ID" - CFVLSFValue -> "VALUE" - -instance FromJSON CreativeFieldValuesListSortField where - parseJSON = parseJSONText "CreativeFieldValuesListSortField" - -instance ToJSON CreativeFieldValuesListSortField where - toJSON = toJSONText - --- | Field by which to sort the list. -data FloodlightActivityGroupsListSortField - = FAGLSFID - -- ^ @ID@ - | FAGLSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable FloodlightActivityGroupsListSortField - -instance FromHttpApiData FloodlightActivityGroupsListSortField where - parseQueryParam = \case - "ID" -> Right FAGLSFID - "NAME" -> Right FAGLSFName - x -> Left ("Unable to parse FloodlightActivityGroupsListSortField from: " <> x) - -instance ToHttpApiData FloodlightActivityGroupsListSortField where - toQueryParam = \case - FAGLSFID -> "ID" - FAGLSFName -> "NAME" - -instance FromJSON FloodlightActivityGroupsListSortField where - parseJSON = parseJSONText "FloodlightActivityGroupsListSortField" - -instance ToJSON FloodlightActivityGroupsListSortField where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data OrdersListSortOrder - = OLSOAscending - -- ^ @ASCENDING@ - | OLSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable OrdersListSortOrder - -instance FromHttpApiData OrdersListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right OLSOAscending - "DESCENDING" -> Right OLSODescending - x -> Left ("Unable to parse OrdersListSortOrder from: " <> x) - -instance ToHttpApiData OrdersListSortOrder where - toQueryParam = \case - OLSOAscending -> "ASCENDING" - OLSODescending -> "DESCENDING" - -instance FromJSON OrdersListSortOrder where - parseJSON = parseJSONText "OrdersListSortOrder" - -instance ToJSON OrdersListSortOrder where - toJSON = toJSONText - --- | Profile for this account. This is a read-only field that can be left --- blank. -data AccountAccountProFile - = AccountProFileBasic - -- ^ @ACCOUNT_PROFILE_BASIC@ - | AccountProFileStandard - -- ^ @ACCOUNT_PROFILE_STANDARD@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AccountAccountProFile - -instance FromHttpApiData AccountAccountProFile where - parseQueryParam = \case - "ACCOUNT_PROFILE_BASIC" -> Right AccountProFileBasic - "ACCOUNT_PROFILE_STANDARD" -> Right AccountProFileStandard - x -> Left ("Unable to parse AccountAccountProFile from: " <> x) - -instance ToHttpApiData AccountAccountProFile where - toQueryParam = \case - AccountProFileBasic -> "ACCOUNT_PROFILE_BASIC" - AccountProFileStandard -> "ACCOUNT_PROFILE_STANDARD" - -instance FromJSON AccountAccountProFile where - parseJSON = parseJSONText "AccountAccountProFile" - -instance ToJSON AccountAccountProFile where - toJSON = toJSONText - --- | Type of this creative.This is a required field. Applicable to all --- creative types. -data CreativeType - = CTBrandSafeDefaultInstreamVideo - -- ^ @BRAND_SAFE_DEFAULT_INSTREAM_VIDEO@ - | CTCustomDisplay - -- ^ @CUSTOM_DISPLAY@ - | CTCustomDisplayInterstitial - -- ^ @CUSTOM_DISPLAY_INTERSTITIAL@ - | CTDisplay - -- ^ @DISPLAY@ - | CTDisplayImageGallery - -- ^ @DISPLAY_IMAGE_GALLERY@ - | CTDisplayRedirect - -- ^ @DISPLAY_REDIRECT@ - | CTFlashInpage - -- ^ @FLASH_INPAGE@ - | CTHTML5Banner - -- ^ @HTML5_BANNER@ - | CTImage - -- ^ @IMAGE@ - | CTInstreamVideo - -- ^ @INSTREAM_VIDEO@ - | CTInstreamVideoRedirect - -- ^ @INSTREAM_VIDEO_REDIRECT@ - | CTInternalRedirect - -- ^ @INTERNAL_REDIRECT@ - | CTInterstitialInternalRedirect - -- ^ @INTERSTITIAL_INTERNAL_REDIRECT@ - | CTRichMediaDisplayBanner - -- ^ @RICH_MEDIA_DISPLAY_BANNER@ - | CTRichMediaDisplayExpanding - -- ^ @RICH_MEDIA_DISPLAY_EXPANDING@ - | CTRichMediaDisplayInterstitial - -- ^ @RICH_MEDIA_DISPLAY_INTERSTITIAL@ - | CTRichMediaDisplayMultiFloatingInterstitial - -- ^ @RICH_MEDIA_DISPLAY_MULTI_FLOATING_INTERSTITIAL@ - | CTRichMediaImExpand - -- ^ @RICH_MEDIA_IM_EXPAND@ - | CTRichMediaInpageFloating - -- ^ @RICH_MEDIA_INPAGE_FLOATING@ - | CTRichMediaMobileInApp - -- ^ @RICH_MEDIA_MOBILE_IN_APP@ - | CTRichMediaPeelDown - -- ^ @RICH_MEDIA_PEEL_DOWN@ - | CTTrackingText - -- ^ @TRACKING_TEXT@ - | CTVpaidLinearVideo - -- ^ @VPAID_LINEAR_VIDEO@ - | CTVpaidNonLinearVideo - -- ^ @VPAID_NON_LINEAR_VIDEO@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeType - -instance FromHttpApiData CreativeType where - parseQueryParam = \case - "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO" -> Right CTBrandSafeDefaultInstreamVideo - "CUSTOM_DISPLAY" -> Right CTCustomDisplay - "CUSTOM_DISPLAY_INTERSTITIAL" -> Right CTCustomDisplayInterstitial - "DISPLAY" -> Right CTDisplay - "DISPLAY_IMAGE_GALLERY" -> Right CTDisplayImageGallery - "DISPLAY_REDIRECT" -> Right CTDisplayRedirect - "FLASH_INPAGE" -> Right CTFlashInpage - "HTML5_BANNER" -> Right CTHTML5Banner - "IMAGE" -> Right CTImage - "INSTREAM_VIDEO" -> Right CTInstreamVideo - "INSTREAM_VIDEO_REDIRECT" -> Right CTInstreamVideoRedirect - "INTERNAL_REDIRECT" -> Right CTInternalRedirect - "INTERSTITIAL_INTERNAL_REDIRECT" -> Right CTInterstitialInternalRedirect - "RICH_MEDIA_DISPLAY_BANNER" -> Right CTRichMediaDisplayBanner - "RICH_MEDIA_DISPLAY_EXPANDING" -> Right CTRichMediaDisplayExpanding - "RICH_MEDIA_DISPLAY_INTERSTITIAL" -> Right CTRichMediaDisplayInterstitial - "RICH_MEDIA_DISPLAY_MULTI_FLOATING_INTERSTITIAL" -> Right CTRichMediaDisplayMultiFloatingInterstitial - "RICH_MEDIA_IM_EXPAND" -> Right CTRichMediaImExpand - "RICH_MEDIA_INPAGE_FLOATING" -> Right CTRichMediaInpageFloating - "RICH_MEDIA_MOBILE_IN_APP" -> Right CTRichMediaMobileInApp - "RICH_MEDIA_PEEL_DOWN" -> Right CTRichMediaPeelDown - "TRACKING_TEXT" -> Right CTTrackingText - "VPAID_LINEAR_VIDEO" -> Right CTVpaidLinearVideo - "VPAID_NON_LINEAR_VIDEO" -> Right CTVpaidNonLinearVideo - x -> Left ("Unable to parse CreativeType from: " <> x) - -instance ToHttpApiData CreativeType where - toQueryParam = \case - CTBrandSafeDefaultInstreamVideo -> "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO" - CTCustomDisplay -> "CUSTOM_DISPLAY" - CTCustomDisplayInterstitial -> "CUSTOM_DISPLAY_INTERSTITIAL" - CTDisplay -> "DISPLAY" - CTDisplayImageGallery -> "DISPLAY_IMAGE_GALLERY" - CTDisplayRedirect -> "DISPLAY_REDIRECT" - CTFlashInpage -> "FLASH_INPAGE" - CTHTML5Banner -> "HTML5_BANNER" - CTImage -> "IMAGE" - CTInstreamVideo -> "INSTREAM_VIDEO" - CTInstreamVideoRedirect -> "INSTREAM_VIDEO_REDIRECT" - CTInternalRedirect -> "INTERNAL_REDIRECT" - CTInterstitialInternalRedirect -> "INTERSTITIAL_INTERNAL_REDIRECT" - CTRichMediaDisplayBanner -> "RICH_MEDIA_DISPLAY_BANNER" - CTRichMediaDisplayExpanding -> "RICH_MEDIA_DISPLAY_EXPANDING" - CTRichMediaDisplayInterstitial -> "RICH_MEDIA_DISPLAY_INTERSTITIAL" - CTRichMediaDisplayMultiFloatingInterstitial -> "RICH_MEDIA_DISPLAY_MULTI_FLOATING_INTERSTITIAL" - CTRichMediaImExpand -> "RICH_MEDIA_IM_EXPAND" - CTRichMediaInpageFloating -> "RICH_MEDIA_INPAGE_FLOATING" - CTRichMediaMobileInApp -> "RICH_MEDIA_MOBILE_IN_APP" - CTRichMediaPeelDown -> "RICH_MEDIA_PEEL_DOWN" - CTTrackingText -> "TRACKING_TEXT" - CTVpaidLinearVideo -> "VPAID_LINEAR_VIDEO" - CTVpaidNonLinearVideo -> "VPAID_NON_LINEAR_VIDEO" - -instance FromJSON CreativeType where - parseJSON = parseJSONText "CreativeType" - -instance ToJSON CreativeType where - toJSON = toJSONText - --- | Order of sorted results, default is \'DESCENDING\'. -data FilesListSortOrder - = FLSOAscending - -- ^ @ASCENDING@ - -- Ascending order. - | FLSODescending - -- ^ @DESCENDING@ - -- Descending order. - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable FilesListSortOrder - -instance FromHttpApiData FilesListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right FLSOAscending - "DESCENDING" -> Right FLSODescending - x -> Left ("Unable to parse FilesListSortOrder from: " <> x) - -instance ToHttpApiData FilesListSortOrder where - toQueryParam = \case - FLSOAscending -> "ASCENDING" - FLSODescending -> "DESCENDING" - -instance FromJSON FilesListSortOrder where - parseJSON = parseJSONText "FilesListSortOrder" - -instance ToJSON FilesListSortOrder where - toJSON = toJSONText - --- | Field by which to sort the list. -data AdvertiserGroupsListSortField - = AGLSFID - -- ^ @ID@ - | AGLSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AdvertiserGroupsListSortField - -instance FromHttpApiData AdvertiserGroupsListSortField where - parseQueryParam = \case - "ID" -> Right AGLSFID - "NAME" -> Right AGLSFName - x -> Left ("Unable to parse AdvertiserGroupsListSortField from: " <> x) - -instance ToHttpApiData AdvertiserGroupsListSortField where - toQueryParam = \case - AGLSFID -> "ID" - AGLSFName -> "NAME" - -instance FromJSON AdvertiserGroupsListSortField where - parseJSON = parseJSONText "AdvertiserGroupsListSortField" - -instance ToJSON AdvertiserGroupsListSortField where - toJSON = toJSONText - --- | Type of browser window for which the backup image of the flash creative --- can be displayed. -data TargetWindowTargetWindowOption - = CurrentWindow - -- ^ @CURRENT_WINDOW@ - | Custom - -- ^ @CUSTOM@ - | NewWindow - -- ^ @NEW_WINDOW@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable TargetWindowTargetWindowOption - -instance FromHttpApiData TargetWindowTargetWindowOption where - parseQueryParam = \case - "CURRENT_WINDOW" -> Right CurrentWindow - "CUSTOM" -> Right Custom - "NEW_WINDOW" -> Right NewWindow - x -> Left ("Unable to parse TargetWindowTargetWindowOption from: " <> x) - -instance ToHttpApiData TargetWindowTargetWindowOption where - toQueryParam = \case - CurrentWindow -> "CURRENT_WINDOW" - Custom -> "CUSTOM" - NewWindow -> "NEW_WINDOW" - -instance FromJSON TargetWindowTargetWindowOption where - parseJSON = parseJSONText "TargetWindowTargetWindowOption" - -instance ToJSON TargetWindowTargetWindowOption where - toJSON = toJSONText - --- | Field by which to sort the list. -data DirectorySiteContactsListSortField - = DSCLSFID - -- ^ @ID@ - | DSCLSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable DirectorySiteContactsListSortField - -instance FromHttpApiData DirectorySiteContactsListSortField where - parseQueryParam = \case - "ID" -> Right DSCLSFID - "NAME" -> Right DSCLSFName - x -> Left ("Unable to parse DirectorySiteContactsListSortField from: " <> x) - -instance ToHttpApiData DirectorySiteContactsListSortField where - toQueryParam = \case - DSCLSFID -> "ID" - DSCLSFName -> "NAME" - -instance FromJSON DirectorySiteContactsListSortField where - parseJSON = parseJSONText "DirectorySiteContactsListSortField" - -instance ToJSON DirectorySiteContactsListSortField where - toJSON = toJSONText - --- | Select only placements with these pricing types. -data PlacementsListPricingTypes - = PLPTPricingTypeCpa - -- ^ @PRICING_TYPE_CPA@ - | PLPTPricingTypeCpc - -- ^ @PRICING_TYPE_CPC@ - | PLPTPricingTypeCpm - -- ^ @PRICING_TYPE_CPM@ - | PLPTPricingTypeFlatRateClicks - -- ^ @PRICING_TYPE_FLAT_RATE_CLICKS@ - | PLPTPricingTypeFlatRateImpressions - -- ^ @PRICING_TYPE_FLAT_RATE_IMPRESSIONS@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PlacementsListPricingTypes - -instance FromHttpApiData PlacementsListPricingTypes where - parseQueryParam = \case - "PRICING_TYPE_CPA" -> Right PLPTPricingTypeCpa - "PRICING_TYPE_CPC" -> Right PLPTPricingTypeCpc - "PRICING_TYPE_CPM" -> Right PLPTPricingTypeCpm - "PRICING_TYPE_FLAT_RATE_CLICKS" -> Right PLPTPricingTypeFlatRateClicks - "PRICING_TYPE_FLAT_RATE_IMPRESSIONS" -> Right PLPTPricingTypeFlatRateImpressions - x -> Left ("Unable to parse PlacementsListPricingTypes from: " <> x) - -instance ToHttpApiData PlacementsListPricingTypes where - toQueryParam = \case - PLPTPricingTypeCpa -> "PRICING_TYPE_CPA" - PLPTPricingTypeCpc -> "PRICING_TYPE_CPC" - PLPTPricingTypeCpm -> "PRICING_TYPE_CPM" - PLPTPricingTypeFlatRateClicks -> "PRICING_TYPE_FLAT_RATE_CLICKS" - PLPTPricingTypeFlatRateImpressions -> "PRICING_TYPE_FLAT_RATE_IMPRESSIONS" - -instance FromJSON PlacementsListPricingTypes where - parseJSON = parseJSONText "PlacementsListPricingTypes" - -instance ToJSON PlacementsListPricingTypes where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data EventTagsListSortOrder - = ETLSOAscending - -- ^ @ASCENDING@ - | ETLSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable EventTagsListSortOrder - -instance FromHttpApiData EventTagsListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right ETLSOAscending - "DESCENDING" -> Right ETLSODescending - x -> Left ("Unable to parse EventTagsListSortOrder from: " <> x) - -instance ToHttpApiData EventTagsListSortOrder where - toQueryParam = \case - ETLSOAscending -> "ASCENDING" - ETLSODescending -> "DESCENDING" - -instance FromJSON EventTagsListSortOrder where - parseJSON = parseJSONText "EventTagsListSortOrder" - -instance ToJSON EventTagsListSortOrder where - toJSON = toJSONText - --- | Describes whether the encrypted cookie was received from ad serving (the --- %m macro) or from Data Transfer. -data EncryptionInfoEncryptionSource - = AdServing - -- ^ @AD_SERVING@ - | DataTransfer - -- ^ @DATA_TRANSFER@ - | EncryptionScopeUnknown - -- ^ @ENCRYPTION_SCOPE_UNKNOWN@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable EncryptionInfoEncryptionSource - -instance FromHttpApiData EncryptionInfoEncryptionSource where - parseQueryParam = \case - "AD_SERVING" -> Right AdServing - "DATA_TRANSFER" -> Right DataTransfer - "ENCRYPTION_SCOPE_UNKNOWN" -> Right EncryptionScopeUnknown - x -> Left ("Unable to parse EncryptionInfoEncryptionSource from: " <> x) - -instance ToHttpApiData EncryptionInfoEncryptionSource where - toQueryParam = \case - AdServing -> "AD_SERVING" - DataTransfer -> "DATA_TRANSFER" - EncryptionScopeUnknown -> "ENCRYPTION_SCOPE_UNKNOWN" - -instance FromJSON EncryptionInfoEncryptionSource where - parseJSON = parseJSONText "EncryptionInfoEncryptionSource" - -instance ToJSON EncryptionInfoEncryptionSource where - toJSON = toJSONText - --- | Field by which to sort the list. -data DirectorySitesListSortField - = DSLSFID - -- ^ @ID@ - | DSLSFName - -- ^ @NAME@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable DirectorySitesListSortField - -instance FromHttpApiData DirectorySitesListSortField where - parseQueryParam = \case - "ID" -> Right DSLSFID - "NAME" -> Right DSLSFName - x -> Left ("Unable to parse DirectorySitesListSortField from: " <> x) - -instance ToHttpApiData DirectorySitesListSortField where - toQueryParam = \case - DSLSFID -> "ID" - DSLSFName -> "NAME" - -instance FromJSON DirectorySitesListSortField where - parseJSON = parseJSONText "DirectorySitesListSortField" - -instance ToJSON DirectorySitesListSortField where - toJSON = toJSONText - --- | The dimension option. -data ReportCrossDimensionReachCriteriaDimension - = RCDRCDAdvertiser - -- ^ @ADVERTISER@ - | RCDRCDCampaign - -- ^ @CAMPAIGN@ - | RCDRCDSiteByAdvertiser - -- ^ @SITE_BY_ADVERTISER@ - | RCDRCDSiteByCampaign - -- ^ @SITE_BY_CAMPAIGN@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ReportCrossDimensionReachCriteriaDimension - -instance FromHttpApiData ReportCrossDimensionReachCriteriaDimension where - parseQueryParam = \case - "ADVERTISER" -> Right RCDRCDAdvertiser - "CAMPAIGN" -> Right RCDRCDCampaign - "SITE_BY_ADVERTISER" -> Right RCDRCDSiteByAdvertiser - "SITE_BY_CAMPAIGN" -> Right RCDRCDSiteByCampaign - x -> Left ("Unable to parse ReportCrossDimensionReachCriteriaDimension from: " <> x) - -instance ToHttpApiData ReportCrossDimensionReachCriteriaDimension where - toQueryParam = \case - RCDRCDAdvertiser -> "ADVERTISER" - RCDRCDCampaign -> "CAMPAIGN" - RCDRCDSiteByAdvertiser -> "SITE_BY_ADVERTISER" - RCDRCDSiteByCampaign -> "SITE_BY_CAMPAIGN" - -instance FromJSON ReportCrossDimensionReachCriteriaDimension where - parseJSON = parseJSONText "ReportCrossDimensionReachCriteriaDimension" - -instance ToJSON ReportCrossDimensionReachCriteriaDimension where - toJSON = toJSONText - --- | Order of sorted results, default is ASCENDING. -data SitesListSortOrder - = SLSOAscending - -- ^ @ASCENDING@ - | SLSODescending - -- ^ @DESCENDING@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable SitesListSortOrder - -instance FromHttpApiData SitesListSortOrder where - parseQueryParam = \case - "ASCENDING" -> Right SLSOAscending - "DESCENDING" -> Right SLSODescending - x -> Left ("Unable to parse SitesListSortOrder from: " <> x) - -instance ToHttpApiData SitesListSortOrder where - toQueryParam = \case - SLSOAscending -> "ASCENDING" - SLSODescending -> "DESCENDING" - -instance FromJSON SitesListSortOrder where - parseJSON = parseJSONText "SitesListSortOrder" - -instance ToJSON SitesListSortOrder where - toJSON = toJSONText - -data PlacementTagFormatsItem - = PTFIPlacementTagClickCommands - -- ^ @PLACEMENT_TAG_CLICK_COMMANDS@ - | PTFIPlacementTagIframeIlayer - -- ^ @PLACEMENT_TAG_IFRAME_ILAYER@ - | PTFIPlacementTagIframeJavascript - -- ^ @PLACEMENT_TAG_IFRAME_JAVASCRIPT@ - | PTFIPlacementTagIframeJavascriptLegacy - -- ^ @PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY@ - | PTFIPlacementTagInstreamVideoPrefetch - -- ^ @PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH@ - | PTFIPlacementTagInstreamVideoPrefetchVast3 - -- ^ @PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3@ - | PTFIPlacementTagInternalRedirect - -- ^ @PLACEMENT_TAG_INTERNAL_REDIRECT@ - | PTFIPlacementTagInterstitialIframeJavascript - -- ^ @PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT@ - | PTFIPlacementTagInterstitialIframeJavascriptLegacy - -- ^ @PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY@ - | PTFIPlacementTagInterstitialInternalRedirect - -- ^ @PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT@ - | PTFIPlacementTagInterstitialJavascript - -- ^ @PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT@ - | PTFIPlacementTagInterstitialJavascriptLegacy - -- ^ @PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY@ - | PTFIPlacementTagJavascript - -- ^ @PLACEMENT_TAG_JAVASCRIPT@ - | PTFIPlacementTagJavascriptLegacy - -- ^ @PLACEMENT_TAG_JAVASCRIPT_LEGACY@ - | PTFIPlacementTagStandard - -- ^ @PLACEMENT_TAG_STANDARD@ - | PTFIPlacementTagTracking - -- ^ @PLACEMENT_TAG_TRACKING@ - | PTFIPlacementTagTrackingIframe - -- ^ @PLACEMENT_TAG_TRACKING_IFRAME@ - | PTFIPlacementTagTrackingJavascript - -- ^ @PLACEMENT_TAG_TRACKING_JAVASCRIPT@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PlacementTagFormatsItem - -instance FromHttpApiData PlacementTagFormatsItem where - parseQueryParam = \case - "PLACEMENT_TAG_CLICK_COMMANDS" -> Right PTFIPlacementTagClickCommands - "PLACEMENT_TAG_IFRAME_ILAYER" -> Right PTFIPlacementTagIframeIlayer - "PLACEMENT_TAG_IFRAME_JAVASCRIPT" -> Right PTFIPlacementTagIframeJavascript - "PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY" -> Right PTFIPlacementTagIframeJavascriptLegacy - "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH" -> Right PTFIPlacementTagInstreamVideoPrefetch - "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3" -> Right PTFIPlacementTagInstreamVideoPrefetchVast3 - "PLACEMENT_TAG_INTERNAL_REDIRECT" -> Right PTFIPlacementTagInternalRedirect - "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT" -> Right PTFIPlacementTagInterstitialIframeJavascript - "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY" -> Right PTFIPlacementTagInterstitialIframeJavascriptLegacy - "PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT" -> Right PTFIPlacementTagInterstitialInternalRedirect - "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT" -> Right PTFIPlacementTagInterstitialJavascript - "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY" -> Right PTFIPlacementTagInterstitialJavascriptLegacy - "PLACEMENT_TAG_JAVASCRIPT" -> Right PTFIPlacementTagJavascript - "PLACEMENT_TAG_JAVASCRIPT_LEGACY" -> Right PTFIPlacementTagJavascriptLegacy - "PLACEMENT_TAG_STANDARD" -> Right PTFIPlacementTagStandard - "PLACEMENT_TAG_TRACKING" -> Right PTFIPlacementTagTracking - "PLACEMENT_TAG_TRACKING_IFRAME" -> Right PTFIPlacementTagTrackingIframe - "PLACEMENT_TAG_TRACKING_JAVASCRIPT" -> Right PTFIPlacementTagTrackingJavascript - x -> Left ("Unable to parse PlacementTagFormatsItem from: " <> x) - -instance ToHttpApiData PlacementTagFormatsItem where - toQueryParam = \case - PTFIPlacementTagClickCommands -> "PLACEMENT_TAG_CLICK_COMMANDS" - PTFIPlacementTagIframeIlayer -> "PLACEMENT_TAG_IFRAME_ILAYER" - PTFIPlacementTagIframeJavascript -> "PLACEMENT_TAG_IFRAME_JAVASCRIPT" - PTFIPlacementTagIframeJavascriptLegacy -> "PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY" - PTFIPlacementTagInstreamVideoPrefetch -> "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH" - PTFIPlacementTagInstreamVideoPrefetchVast3 -> "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3" - PTFIPlacementTagInternalRedirect -> "PLACEMENT_TAG_INTERNAL_REDIRECT" - PTFIPlacementTagInterstitialIframeJavascript -> "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT" - PTFIPlacementTagInterstitialIframeJavascriptLegacy -> "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY" - PTFIPlacementTagInterstitialInternalRedirect -> "PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT" - PTFIPlacementTagInterstitialJavascript -> "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT" - PTFIPlacementTagInterstitialJavascriptLegacy -> "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY" - PTFIPlacementTagJavascript -> "PLACEMENT_TAG_JAVASCRIPT" - PTFIPlacementTagJavascriptLegacy -> "PLACEMENT_TAG_JAVASCRIPT_LEGACY" - PTFIPlacementTagStandard -> "PLACEMENT_TAG_STANDARD" - PTFIPlacementTagTracking -> "PLACEMENT_TAG_TRACKING" - PTFIPlacementTagTrackingIframe -> "PLACEMENT_TAG_TRACKING_IFRAME" - PTFIPlacementTagTrackingJavascript -> "PLACEMENT_TAG_TRACKING_JAVASCRIPT" - -instance FromJSON PlacementTagFormatsItem where - parseJSON = parseJSONText "PlacementTagFormatsItem" - -instance ToJSON PlacementTagFormatsItem where - toJSON = toJSONText - --- | Type of the object of this dynamic targeting key. This is a required --- field. -data DynamicTargetingKeyObjectType - = DTKOTObjectAd - -- ^ @OBJECT_AD@ - | DTKOTObjectAdvertiser - -- ^ @OBJECT_ADVERTISER@ - | DTKOTObjectCreative - -- ^ @OBJECT_CREATIVE@ - | DTKOTObjectPlacement - -- ^ @OBJECT_PLACEMENT@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable DynamicTargetingKeyObjectType - -instance FromHttpApiData DynamicTargetingKeyObjectType where - parseQueryParam = \case - "OBJECT_AD" -> Right DTKOTObjectAd - "OBJECT_ADVERTISER" -> Right DTKOTObjectAdvertiser - "OBJECT_CREATIVE" -> Right DTKOTObjectCreative - "OBJECT_PLACEMENT" -> Right DTKOTObjectPlacement - x -> Left ("Unable to parse DynamicTargetingKeyObjectType from: " <> x) - -instance ToHttpApiData DynamicTargetingKeyObjectType where - toQueryParam = \case - DTKOTObjectAd -> "OBJECT_AD" - DTKOTObjectAdvertiser -> "OBJECT_ADVERTISER" - DTKOTObjectCreative -> "OBJECT_CREATIVE" - DTKOTObjectPlacement -> "OBJECT_PLACEMENT" - -instance FromJSON DynamicTargetingKeyObjectType where - parseJSON = parseJSONText "DynamicTargetingKeyObjectType" - -instance ToJSON DynamicTargetingKeyObjectType where - toJSON = toJSONText - --- | The type of the report. -data ReportType - = RTCrossDimensionReach - -- ^ @CROSS_DIMENSION_REACH@ - | RTFloodlight - -- ^ @FLOODLIGHT@ - | RTPathToConversion - -- ^ @PATH_TO_CONVERSION@ - | RTReach - -- ^ @REACH@ - | RTStandard - -- ^ @STANDARD@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ReportType - -instance FromHttpApiData ReportType where - parseQueryParam = \case - "CROSS_DIMENSION_REACH" -> Right RTCrossDimensionReach - "FLOODLIGHT" -> Right RTFloodlight - "PATH_TO_CONVERSION" -> Right RTPathToConversion - "REACH" -> Right RTReach - "STANDARD" -> Right RTStandard - x -> Left ("Unable to parse ReportType from: " <> x) - -instance ToHttpApiData ReportType where - toQueryParam = \case - RTCrossDimensionReach -> "CROSS_DIMENSION_REACH" - RTFloodlight -> "FLOODLIGHT" - RTPathToConversion -> "PATH_TO_CONVERSION" - RTReach -> "REACH" - RTStandard -> "STANDARD" - -instance FromJSON ReportType where - parseJSON = parseJSONText "ReportType" - -instance ToJSON ReportType where - toJSON = toJSONText - -data CreativeAssetMetadataWarnedValidationRulesItem - = ADMobReferenced - -- ^ @ADMOB_REFERENCED@ - | AssetFormatUnsupportedDcm - -- ^ @ASSET_FORMAT_UNSUPPORTED_DCM@ - | AssetInvalid - -- ^ @ASSET_INVALID@ - | ClickTagHardCoded - -- ^ @CLICK_TAG_HARD_CODED@ - | ClickTagInvalid - -- ^ @CLICK_TAG_INVALID@ - | ClickTagInGwd - -- ^ @CLICK_TAG_IN_GWD@ - | ClickTagMissing - -- ^ @CLICK_TAG_MISSING@ - | ClickTagMoreThanOne - -- ^ @CLICK_TAG_MORE_THAN_ONE@ - | ClickTagNonTopLevel - -- ^ @CLICK_TAG_NON_TOP_LEVEL@ - | ComponentUnsupportedDcm - -- ^ @COMPONENT_UNSUPPORTED_DCM@ - | EnablerUnsupportedMethodDcm - -- ^ @ENABLER_UNSUPPORTED_METHOD_DCM@ - | ExternalFileReferenced - -- ^ @EXTERNAL_FILE_REFERENCED@ - | FileDetailEmpty - -- ^ @FILE_DETAIL_EMPTY@ - | FileTypeInvalid - -- ^ @FILE_TYPE_INVALID@ - | GwdPropertiesInvalid - -- ^ @GWD_PROPERTIES_INVALID@ - | HTML5FeatureUnsupported - -- ^ @HTML5_FEATURE_UNSUPPORTED@ - | LinkedFileNotFound - -- ^ @LINKED_FILE_NOT_FOUND@ - | MaxFlashVersion11 - -- ^ @MAX_FLASH_VERSION_11@ - | MraidReferenced - -- ^ @MRAID_REFERENCED@ - | NotSSLCompliant - -- ^ @NOT_SSL_COMPLIANT@ - | OrphanedAsset - -- ^ @ORPHANED_ASSET@ - | PrimaryHTMLMissing - -- ^ @PRIMARY_HTML_MISSING@ - | SvgInvalid - -- ^ @SVG_INVALID@ - | ZipInvalid - -- ^ @ZIP_INVALID@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeAssetMetadataWarnedValidationRulesItem - -instance FromHttpApiData CreativeAssetMetadataWarnedValidationRulesItem where - parseQueryParam = \case - "ADMOB_REFERENCED" -> Right ADMobReferenced - "ASSET_FORMAT_UNSUPPORTED_DCM" -> Right AssetFormatUnsupportedDcm - "ASSET_INVALID" -> Right AssetInvalid - "CLICK_TAG_HARD_CODED" -> Right ClickTagHardCoded - "CLICK_TAG_INVALID" -> Right ClickTagInvalid - "CLICK_TAG_IN_GWD" -> Right ClickTagInGwd - "CLICK_TAG_MISSING" -> Right ClickTagMissing - "CLICK_TAG_MORE_THAN_ONE" -> Right ClickTagMoreThanOne - "CLICK_TAG_NON_TOP_LEVEL" -> Right ClickTagNonTopLevel - "COMPONENT_UNSUPPORTED_DCM" -> Right ComponentUnsupportedDcm - "ENABLER_UNSUPPORTED_METHOD_DCM" -> Right EnablerUnsupportedMethodDcm - "EXTERNAL_FILE_REFERENCED" -> Right ExternalFileReferenced - "FILE_DETAIL_EMPTY" -> Right FileDetailEmpty - "FILE_TYPE_INVALID" -> Right FileTypeInvalid - "GWD_PROPERTIES_INVALID" -> Right GwdPropertiesInvalid - "HTML5_FEATURE_UNSUPPORTED" -> Right HTML5FeatureUnsupported - "LINKED_FILE_NOT_FOUND" -> Right LinkedFileNotFound - "MAX_FLASH_VERSION_11" -> Right MaxFlashVersion11 - "MRAID_REFERENCED" -> Right MraidReferenced - "NOT_SSL_COMPLIANT" -> Right NotSSLCompliant - "ORPHANED_ASSET" -> Right OrphanedAsset - "PRIMARY_HTML_MISSING" -> Right PrimaryHTMLMissing - "SVG_INVALID" -> Right SvgInvalid - "ZIP_INVALID" -> Right ZipInvalid - x -> Left ("Unable to parse CreativeAssetMetadataWarnedValidationRulesItem from: " <> x) - -instance ToHttpApiData CreativeAssetMetadataWarnedValidationRulesItem where - toQueryParam = \case - ADMobReferenced -> "ADMOB_REFERENCED" - AssetFormatUnsupportedDcm -> "ASSET_FORMAT_UNSUPPORTED_DCM" - AssetInvalid -> "ASSET_INVALID" - ClickTagHardCoded -> "CLICK_TAG_HARD_CODED" - ClickTagInvalid -> "CLICK_TAG_INVALID" - ClickTagInGwd -> "CLICK_TAG_IN_GWD" - ClickTagMissing -> "CLICK_TAG_MISSING" - ClickTagMoreThanOne -> "CLICK_TAG_MORE_THAN_ONE" - ClickTagNonTopLevel -> "CLICK_TAG_NON_TOP_LEVEL" - ComponentUnsupportedDcm -> "COMPONENT_UNSUPPORTED_DCM" - EnablerUnsupportedMethodDcm -> "ENABLER_UNSUPPORTED_METHOD_DCM" - ExternalFileReferenced -> "EXTERNAL_FILE_REFERENCED" - FileDetailEmpty -> "FILE_DETAIL_EMPTY" - FileTypeInvalid -> "FILE_TYPE_INVALID" - GwdPropertiesInvalid -> "GWD_PROPERTIES_INVALID" - HTML5FeatureUnsupported -> "HTML5_FEATURE_UNSUPPORTED" - LinkedFileNotFound -> "LINKED_FILE_NOT_FOUND" - MaxFlashVersion11 -> "MAX_FLASH_VERSION_11" - MraidReferenced -> "MRAID_REFERENCED" - NotSSLCompliant -> "NOT_SSL_COMPLIANT" - OrphanedAsset -> "ORPHANED_ASSET" - PrimaryHTMLMissing -> "PRIMARY_HTML_MISSING" - SvgInvalid -> "SVG_INVALID" - ZipInvalid -> "ZIP_INVALID" - -instance FromJSON CreativeAssetMetadataWarnedValidationRulesItem where - parseJSON = parseJSONText "CreativeAssetMetadataWarnedValidationRulesItem" - -instance ToJSON CreativeAssetMetadataWarnedValidationRulesItem where - toJSON = toJSONText - --- | Payment source type of this ad slot. -data AdSlotPaymentSourceType - = PlanningPaymentSourceTypeAgencyPaid - -- ^ @PLANNING_PAYMENT_SOURCE_TYPE_AGENCY_PAID@ - | PlanningPaymentSourceTypePublisherPaid - -- ^ @PLANNING_PAYMENT_SOURCE_TYPE_PUBLISHER_PAID@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AdSlotPaymentSourceType - -instance FromHttpApiData AdSlotPaymentSourceType where - parseQueryParam = \case - "PLANNING_PAYMENT_SOURCE_TYPE_AGENCY_PAID" -> Right PlanningPaymentSourceTypeAgencyPaid - "PLANNING_PAYMENT_SOURCE_TYPE_PUBLISHER_PAID" -> Right PlanningPaymentSourceTypePublisherPaid - x -> Left ("Unable to parse AdSlotPaymentSourceType from: " <> x) - -instance ToHttpApiData AdSlotPaymentSourceType where - toQueryParam = \case - PlanningPaymentSourceTypeAgencyPaid -> "PLANNING_PAYMENT_SOURCE_TYPE_AGENCY_PAID" - PlanningPaymentSourceTypePublisherPaid -> "PLANNING_PAYMENT_SOURCE_TYPE_PUBLISHER_PAID" - -instance FromJSON AdSlotPaymentSourceType where - parseJSON = parseJSONText "AdSlotPaymentSourceType" - -instance ToJSON AdSlotPaymentSourceType where - toJSON = toJSONText - -data AccountPermissionAccountProFilesItem - = APAPFIAccountProFileBasic - -- ^ @ACCOUNT_PROFILE_BASIC@ - | APAPFIAccountProFileStandard - -- ^ @ACCOUNT_PROFILE_STANDARD@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable AccountPermissionAccountProFilesItem - -instance FromHttpApiData AccountPermissionAccountProFilesItem where - parseQueryParam = \case - "ACCOUNT_PROFILE_BASIC" -> Right APAPFIAccountProFileBasic - "ACCOUNT_PROFILE_STANDARD" -> Right APAPFIAccountProFileStandard - x -> Left ("Unable to parse AccountPermissionAccountProFilesItem from: " <> x) - -instance ToHttpApiData AccountPermissionAccountProFilesItem where - toQueryParam = \case - APAPFIAccountProFileBasic -> "ACCOUNT_PROFILE_BASIC" - APAPFIAccountProFileStandard -> "ACCOUNT_PROFILE_STANDARD" - -instance FromJSON AccountPermissionAccountProFilesItem where - parseJSON = parseJSONText "AccountPermissionAccountProFilesItem" - -instance ToJSON AccountPermissionAccountProFilesItem where - toJSON = toJSONText - --- | Type of the event. This is a read-only field. -data CreativeCustomEventAdvertiserCustomEventType - = AdvertiserEventCounter - -- ^ @ADVERTISER_EVENT_COUNTER@ - | AdvertiserEventExit - -- ^ @ADVERTISER_EVENT_EXIT@ - | AdvertiserEventTimer - -- ^ @ADVERTISER_EVENT_TIMER@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeCustomEventAdvertiserCustomEventType - -instance FromHttpApiData CreativeCustomEventAdvertiserCustomEventType where - parseQueryParam = \case - "ADVERTISER_EVENT_COUNTER" -> Right AdvertiserEventCounter - "ADVERTISER_EVENT_EXIT" -> Right AdvertiserEventExit - "ADVERTISER_EVENT_TIMER" -> Right AdvertiserEventTimer - x -> Left ("Unable to parse CreativeCustomEventAdvertiserCustomEventType from: " <> x) - -instance ToHttpApiData CreativeCustomEventAdvertiserCustomEventType where - toQueryParam = \case - AdvertiserEventCounter -> "ADVERTISER_EVENT_COUNTER" - AdvertiserEventExit -> "ADVERTISER_EVENT_EXIT" - AdvertiserEventTimer -> "ADVERTISER_EVENT_TIMER" - -instance FromJSON CreativeCustomEventAdvertiserCustomEventType where - parseJSON = parseJSONText "CreativeCustomEventAdvertiserCustomEventType" - -instance ToJSON CreativeCustomEventAdvertiserCustomEventType where - toJSON = toJSONText - --- | Select only change logs with the specified object type. -data ChangeLogsListObjectType - = CLLOTObjectAccount - -- ^ @OBJECT_ACCOUNT@ - | CLLOTObjectAccountBillingFeature - -- ^ @OBJECT_ACCOUNT_BILLING_FEATURE@ - | CLLOTObjectAd - -- ^ @OBJECT_AD@ - | CLLOTObjectAdvertiser - -- ^ @OBJECT_ADVERTISER@ - | CLLOTObjectAdvertiserGroup - -- ^ @OBJECT_ADVERTISER_GROUP@ - | CLLOTObjectBillingAccountGroup - -- ^ @OBJECT_BILLING_ACCOUNT_GROUP@ - | CLLOTObjectBillingFeature - -- ^ @OBJECT_BILLING_FEATURE@ - | CLLOTObjectBillingMinimumFee - -- ^ @OBJECT_BILLING_MINIMUM_FEE@ - | CLLOTObjectBillingProFile - -- ^ @OBJECT_BILLING_PROFILE@ - | CLLOTObjectCampaign - -- ^ @OBJECT_CAMPAIGN@ - | CLLOTObjectContentCategory - -- ^ @OBJECT_CONTENT_CATEGORY@ - | CLLOTObjectCreative - -- ^ @OBJECT_CREATIVE@ - | CLLOTObjectCreativeAsset - -- ^ @OBJECT_CREATIVE_ASSET@ - | CLLOTObjectCreativeBundle - -- ^ @OBJECT_CREATIVE_BUNDLE@ - | CLLOTObjectCreativeField - -- ^ @OBJECT_CREATIVE_FIELD@ - | CLLOTObjectCreativeGroup - -- ^ @OBJECT_CREATIVE_GROUP@ - | CLLOTObjectDfaSite - -- ^ @OBJECT_DFA_SITE@ - | CLLOTObjectEventTag - -- ^ @OBJECT_EVENT_TAG@ - | CLLOTObjectFloodlightActivityGroup - -- ^ @OBJECT_FLOODLIGHT_ACTIVITY_GROUP@ - | CLLOTObjectFloodlightActvity - -- ^ @OBJECT_FLOODLIGHT_ACTVITY@ - | CLLOTObjectFloodlightConfiguration - -- ^ @OBJECT_FLOODLIGHT_CONFIGURATION@ - | CLLOTObjectInstreamCreative - -- ^ @OBJECT_INSTREAM_CREATIVE@ - | CLLOTObjectLandingPage - -- ^ @OBJECT_LANDING_PAGE@ - | CLLOTObjectMediaOrder - -- ^ @OBJECT_MEDIA_ORDER@ - | CLLOTObjectPlacement - -- ^ @OBJECT_PLACEMENT@ - | CLLOTObjectPlacementStrategy - -- ^ @OBJECT_PLACEMENT_STRATEGY@ - | CLLOTObjectPlaystoreLink - -- ^ @OBJECT_PLAYSTORE_LINK@ - | CLLOTObjectProvidedListClient - -- ^ @OBJECT_PROVIDED_LIST_CLIENT@ - | CLLOTObjectRateCard - -- ^ @OBJECT_RATE_CARD@ - | CLLOTObjectRemarketingList - -- ^ @OBJECT_REMARKETING_LIST@ - | CLLOTObjectRichmediaCreative - -- ^ @OBJECT_RICHMEDIA_CREATIVE@ - | CLLOTObjectSdSite - -- ^ @OBJECT_SD_SITE@ - | CLLOTObjectSize - -- ^ @OBJECT_SIZE@ - | CLLOTObjectSubAccount - -- ^ @OBJECT_SUBACCOUNT@ - | CLLOTObjectUserProFile - -- ^ @OBJECT_USER_PROFILE@ - | CLLOTObjectUserProFileFilter - -- ^ @OBJECT_USER_PROFILE_FILTER@ - | CLLOTObjectUserRole - -- ^ @OBJECT_USER_ROLE@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable ChangeLogsListObjectType - -instance FromHttpApiData ChangeLogsListObjectType where - parseQueryParam = \case - "OBJECT_ACCOUNT" -> Right CLLOTObjectAccount - "OBJECT_ACCOUNT_BILLING_FEATURE" -> Right CLLOTObjectAccountBillingFeature - "OBJECT_AD" -> Right CLLOTObjectAd - "OBJECT_ADVERTISER" -> Right CLLOTObjectAdvertiser - "OBJECT_ADVERTISER_GROUP" -> Right CLLOTObjectAdvertiserGroup - "OBJECT_BILLING_ACCOUNT_GROUP" -> Right CLLOTObjectBillingAccountGroup - "OBJECT_BILLING_FEATURE" -> Right CLLOTObjectBillingFeature - "OBJECT_BILLING_MINIMUM_FEE" -> Right CLLOTObjectBillingMinimumFee - "OBJECT_BILLING_PROFILE" -> Right CLLOTObjectBillingProFile - "OBJECT_CAMPAIGN" -> Right CLLOTObjectCampaign - "OBJECT_CONTENT_CATEGORY" -> Right CLLOTObjectContentCategory - "OBJECT_CREATIVE" -> Right CLLOTObjectCreative - "OBJECT_CREATIVE_ASSET" -> Right CLLOTObjectCreativeAsset - "OBJECT_CREATIVE_BUNDLE" -> Right CLLOTObjectCreativeBundle - "OBJECT_CREATIVE_FIELD" -> Right CLLOTObjectCreativeField - "OBJECT_CREATIVE_GROUP" -> Right CLLOTObjectCreativeGroup - "OBJECT_DFA_SITE" -> Right CLLOTObjectDfaSite - "OBJECT_EVENT_TAG" -> Right CLLOTObjectEventTag - "OBJECT_FLOODLIGHT_ACTIVITY_GROUP" -> Right CLLOTObjectFloodlightActivityGroup - "OBJECT_FLOODLIGHT_ACTVITY" -> Right CLLOTObjectFloodlightActvity - "OBJECT_FLOODLIGHT_CONFIGURATION" -> Right CLLOTObjectFloodlightConfiguration - "OBJECT_INSTREAM_CREATIVE" -> Right CLLOTObjectInstreamCreative - "OBJECT_LANDING_PAGE" -> Right CLLOTObjectLandingPage - "OBJECT_MEDIA_ORDER" -> Right CLLOTObjectMediaOrder - "OBJECT_PLACEMENT" -> Right CLLOTObjectPlacement - "OBJECT_PLACEMENT_STRATEGY" -> Right CLLOTObjectPlacementStrategy - "OBJECT_PLAYSTORE_LINK" -> Right CLLOTObjectPlaystoreLink - "OBJECT_PROVIDED_LIST_CLIENT" -> Right CLLOTObjectProvidedListClient - "OBJECT_RATE_CARD" -> Right CLLOTObjectRateCard - "OBJECT_REMARKETING_LIST" -> Right CLLOTObjectRemarketingList - "OBJECT_RICHMEDIA_CREATIVE" -> Right CLLOTObjectRichmediaCreative - "OBJECT_SD_SITE" -> Right CLLOTObjectSdSite - "OBJECT_SIZE" -> Right CLLOTObjectSize - "OBJECT_SUBACCOUNT" -> Right CLLOTObjectSubAccount - "OBJECT_USER_PROFILE" -> Right CLLOTObjectUserProFile - "OBJECT_USER_PROFILE_FILTER" -> Right CLLOTObjectUserProFileFilter - "OBJECT_USER_ROLE" -> Right CLLOTObjectUserRole - x -> Left ("Unable to parse ChangeLogsListObjectType from: " <> x) - -instance ToHttpApiData ChangeLogsListObjectType where - toQueryParam = \case - CLLOTObjectAccount -> "OBJECT_ACCOUNT" - CLLOTObjectAccountBillingFeature -> "OBJECT_ACCOUNT_BILLING_FEATURE" - CLLOTObjectAd -> "OBJECT_AD" - CLLOTObjectAdvertiser -> "OBJECT_ADVERTISER" - CLLOTObjectAdvertiserGroup -> "OBJECT_ADVERTISER_GROUP" - CLLOTObjectBillingAccountGroup -> "OBJECT_BILLING_ACCOUNT_GROUP" - CLLOTObjectBillingFeature -> "OBJECT_BILLING_FEATURE" - CLLOTObjectBillingMinimumFee -> "OBJECT_BILLING_MINIMUM_FEE" - CLLOTObjectBillingProFile -> "OBJECT_BILLING_PROFILE" - CLLOTObjectCampaign -> "OBJECT_CAMPAIGN" - CLLOTObjectContentCategory -> "OBJECT_CONTENT_CATEGORY" - CLLOTObjectCreative -> "OBJECT_CREATIVE" - CLLOTObjectCreativeAsset -> "OBJECT_CREATIVE_ASSET" - CLLOTObjectCreativeBundle -> "OBJECT_CREATIVE_BUNDLE" - CLLOTObjectCreativeField -> "OBJECT_CREATIVE_FIELD" - CLLOTObjectCreativeGroup -> "OBJECT_CREATIVE_GROUP" - CLLOTObjectDfaSite -> "OBJECT_DFA_SITE" - CLLOTObjectEventTag -> "OBJECT_EVENT_TAG" - CLLOTObjectFloodlightActivityGroup -> "OBJECT_FLOODLIGHT_ACTIVITY_GROUP" - CLLOTObjectFloodlightActvity -> "OBJECT_FLOODLIGHT_ACTVITY" - CLLOTObjectFloodlightConfiguration -> "OBJECT_FLOODLIGHT_CONFIGURATION" - CLLOTObjectInstreamCreative -> "OBJECT_INSTREAM_CREATIVE" - CLLOTObjectLandingPage -> "OBJECT_LANDING_PAGE" - CLLOTObjectMediaOrder -> "OBJECT_MEDIA_ORDER" - CLLOTObjectPlacement -> "OBJECT_PLACEMENT" - CLLOTObjectPlacementStrategy -> "OBJECT_PLACEMENT_STRATEGY" - CLLOTObjectPlaystoreLink -> "OBJECT_PLAYSTORE_LINK" - CLLOTObjectProvidedListClient -> "OBJECT_PROVIDED_LIST_CLIENT" - CLLOTObjectRateCard -> "OBJECT_RATE_CARD" - CLLOTObjectRemarketingList -> "OBJECT_REMARKETING_LIST" - CLLOTObjectRichmediaCreative -> "OBJECT_RICHMEDIA_CREATIVE" - CLLOTObjectSdSite -> "OBJECT_SD_SITE" - CLLOTObjectSize -> "OBJECT_SIZE" - CLLOTObjectSubAccount -> "OBJECT_SUBACCOUNT" - CLLOTObjectUserProFile -> "OBJECT_USER_PROFILE" - CLLOTObjectUserProFileFilter -> "OBJECT_USER_PROFILE_FILTER" - CLLOTObjectUserRole -> "OBJECT_USER_ROLE" - -instance FromJSON ChangeLogsListObjectType where - parseJSON = parseJSONText "ChangeLogsListObjectType" - -instance ToJSON ChangeLogsListObjectType where - toJSON = toJSONText - --- | Cap cost type of this inventory item. -data PricingCapCostType - = PlanningPlacementCapCostTypeCumulative - -- ^ @PLANNING_PLACEMENT_CAP_COST_TYPE_CUMULATIVE@ - | PlanningPlacementCapCostTypeMonthly - -- ^ @PLANNING_PLACEMENT_CAP_COST_TYPE_MONTHLY@ - | PlanningPlacementCapCostTypeNone - -- ^ @PLANNING_PLACEMENT_CAP_COST_TYPE_NONE@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable PricingCapCostType - -instance FromHttpApiData PricingCapCostType where - parseQueryParam = \case - "PLANNING_PLACEMENT_CAP_COST_TYPE_CUMULATIVE" -> Right PlanningPlacementCapCostTypeCumulative - "PLANNING_PLACEMENT_CAP_COST_TYPE_MONTHLY" -> Right PlanningPlacementCapCostTypeMonthly - "PLANNING_PLACEMENT_CAP_COST_TYPE_NONE" -> Right PlanningPlacementCapCostTypeNone - x -> Left ("Unable to parse PricingCapCostType from: " <> x) - -instance ToHttpApiData PricingCapCostType where - toQueryParam = \case - PlanningPlacementCapCostTypeCumulative -> "PLANNING_PLACEMENT_CAP_COST_TYPE_CUMULATIVE" - PlanningPlacementCapCostTypeMonthly -> "PLANNING_PLACEMENT_CAP_COST_TYPE_MONTHLY" - PlanningPlacementCapCostTypeNone -> "PLANNING_PLACEMENT_CAP_COST_TYPE_NONE" - -instance FromJSON PricingCapCostType where - parseJSON = parseJSONText "PricingCapCostType" - -instance ToJSON PricingCapCostType where - toJSON = toJSONText - --- | Type of rich media asset. This is a read-only field. Applicable to the --- following creative types: all RICH_MEDIA. -data CreativeAssetDisplayType - = AssetDisplayTypeExpanding - -- ^ @ASSET_DISPLAY_TYPE_EXPANDING@ - | AssetDisplayTypeFlashInFlash - -- ^ @ASSET_DISPLAY_TYPE_FLASH_IN_FLASH@ - | AssetDisplayTypeFlashInFlashExpanding - -- ^ @ASSET_DISPLAY_TYPE_FLASH_IN_FLASH_EXPANDING@ - | AssetDisplayTypeFloating - -- ^ @ASSET_DISPLAY_TYPE_FLOATING@ - | AssetDisplayTypeInpage - -- ^ @ASSET_DISPLAY_TYPE_INPAGE@ - | AssetDisplayTypeOverlay - -- ^ @ASSET_DISPLAY_TYPE_OVERLAY@ - | AssetDisplayTypePeelDown - -- ^ @ASSET_DISPLAY_TYPE_PEEL_DOWN@ - | AssetDisplayTypeVpaidLinear - -- ^ @ASSET_DISPLAY_TYPE_VPAID_LINEAR@ - | AssetDisplayTypeVpaidNonLinear - -- ^ @ASSET_DISPLAY_TYPE_VPAID_NON_LINEAR@ - deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) - -instance Hashable CreativeAssetDisplayType - -instance FromHttpApiData CreativeAssetDisplayType where - parseQueryParam = \case - "ASSET_DISPLAY_TYPE_EXPANDING" -> Right AssetDisplayTypeExpanding - "ASSET_DISPLAY_TYPE_FLASH_IN_FLASH" -> Right AssetDisplayTypeFlashInFlash - "ASSET_DISPLAY_TYPE_FLASH_IN_FLASH_EXPANDING" -> Right AssetDisplayTypeFlashInFlashExpanding - "ASSET_DISPLAY_TYPE_FLOATING" -> Right AssetDisplayTypeFloating - "ASSET_DISPLAY_TYPE_INPAGE" -> Right AssetDisplayTypeInpage - "ASSET_DISPLAY_TYPE_OVERLAY" -> Right AssetDisplayTypeOverlay - "ASSET_DISPLAY_TYPE_PEEL_DOWN" -> Right AssetDisplayTypePeelDown - "ASSET_DISPLAY_TYPE_VPAID_LINEAR" -> Right AssetDisplayTypeVpaidLinear - "ASSET_DISPLAY_TYPE_VPAID_NON_LINEAR" -> Right AssetDisplayTypeVpaidNonLinear - x -> Left ("Unable to parse CreativeAssetDisplayType from: " <> x) - -instance ToHttpApiData CreativeAssetDisplayType where - toQueryParam = \case +-- | Order of sorted results, default is ASCENDING. +data TargetingTemplatesListSortOrder + = TTLSOAscending + -- ^ @ASCENDING@ + | TTLSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable TargetingTemplatesListSortOrder + +instance FromHttpApiData TargetingTemplatesListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right TTLSOAscending + "DESCENDING" -> Right TTLSODescending + x -> Left ("Unable to parse TargetingTemplatesListSortOrder from: " <> x) + +instance ToHttpApiData TargetingTemplatesListSortOrder where + toQueryParam = \case + TTLSOAscending -> "ASCENDING" + TTLSODescending -> "DESCENDING" + +instance FromJSON TargetingTemplatesListSortOrder where + parseJSON = parseJSONText "TargetingTemplatesListSortOrder" + +instance ToJSON TargetingTemplatesListSortOrder where + toJSON = toJSONText + +-- | Field by which to sort the list. +data UserRolesListSortField + = URLSFID + -- ^ @ID@ + | URLSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable UserRolesListSortField + +instance FromHttpApiData UserRolesListSortField where + parseQueryParam = \case + "ID" -> Right URLSFID + "NAME" -> Right URLSFName + x -> Left ("Unable to parse UserRolesListSortField from: " <> x) + +instance ToHttpApiData UserRolesListSortField where + toQueryParam = \case + URLSFID -> "ID" + URLSFName -> "NAME" + +instance FromJSON UserRolesListSortField where + parseJSON = parseJSONText "UserRolesListSortField" + +instance ToJSON UserRolesListSortField where + toJSON = toJSONText + +-- | Tag format type for the floodlight activity. If left blank, the tag +-- format will default to HTML. +data FloodlightActivityTagFormat + = HTML + -- ^ @HTML@ + | Xhtml + -- ^ @XHTML@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FloodlightActivityTagFormat + +instance FromHttpApiData FloodlightActivityTagFormat where + parseQueryParam = \case + "HTML" -> Right HTML + "XHTML" -> Right Xhtml + x -> Left ("Unable to parse FloodlightActivityTagFormat from: " <> x) + +instance ToHttpApiData FloodlightActivityTagFormat where + toQueryParam = \case + HTML -> "HTML" + Xhtml -> "XHTML" + +instance FromJSON FloodlightActivityTagFormat where + parseJSON = parseJSONText "FloodlightActivityTagFormat" + +instance ToJSON FloodlightActivityTagFormat where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data OrderDocumentsListSortOrder + = ODLSOAscending + -- ^ @ASCENDING@ + | ODLSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable OrderDocumentsListSortOrder + +instance FromHttpApiData OrderDocumentsListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right ODLSOAscending + "DESCENDING" -> Right ODLSODescending + x -> Left ("Unable to parse OrderDocumentsListSortOrder from: " <> x) + +instance ToHttpApiData OrderDocumentsListSortOrder where + toQueryParam = \case + ODLSOAscending -> "ASCENDING" + ODLSODescending -> "DESCENDING" + +instance FromJSON OrderDocumentsListSortOrder where + parseJSON = parseJSONText "OrderDocumentsListSortOrder" + +instance ToJSON OrderDocumentsListSortOrder where + toJSON = toJSONText + +-- | Role of the asset in relation to creative. Applicable to all but the +-- following creative types: all REDIRECT and TRACKING_TEXT. This is a +-- required field. PRIMARY applies to DISPLAY, FLASH_INPAGE, HTML5_BANNER, +-- IMAGE, DISPLAY_IMAGE_GALLERY, all RICH_MEDIA (which may contain multiple +-- primary assets), and all VPAID creatives. BACKUP_IMAGE applies to +-- FLASH_INPAGE, HTML5_BANNER, all RICH_MEDIA, and all VPAID creatives. +-- Applicable to DISPLAY when the primary asset type is not HTML_IMAGE. +-- ADDITIONAL_IMAGE and ADDITIONAL_FLASH apply to FLASH_INPAGE creatives. +-- OTHER refers to assets from sources other than DCM, such as Studio +-- uploaded assets, applicable to all RICH_MEDIA and all VPAID creatives. +-- PARENT_VIDEO refers to videos uploaded by the user in DCM and is +-- applicable to INSTREAM_VIDEO and VPAID_LINEAR_VIDEO creatives. +-- TRANSCODED_VIDEO refers to videos transcoded by DCM from PARENT_VIDEO +-- assets and is applicable to INSTREAM_VIDEO and VPAID_LINEAR_VIDEO +-- creatives. ALTERNATE_VIDEO refers to the DCM representation of child +-- asset videos from Studio, and is applicable to VPAID_LINEAR_VIDEO +-- creatives. These cannot be added or removed within DCM. For +-- VPAID_LINEAR_VIDEO creatives, PARENT_VIDEO, TRANSCODED_VIDEO and +-- ALTERNATE_VIDEO assets that are marked active serve as backup in case +-- the VPAID creative cannot be served. Only PARENT_VIDEO assets can be +-- added or removed for an INSTREAM_VIDEO or VPAID_LINEAR_VIDEO creative. +data CreativeAssetRole + = AdditionalFlash + -- ^ @ADDITIONAL_FLASH@ + | AdditionalImage + -- ^ @ADDITIONAL_IMAGE@ + | AlternateVideo + -- ^ @ALTERNATE_VIDEO@ + | BackupImage + -- ^ @BACKUP_IMAGE@ + | Other + -- ^ @OTHER@ + | ParentVideo + -- ^ @PARENT_VIDEO@ + | Primary + -- ^ @PRIMARY@ + | TranscodedVideo + -- ^ @TRANSCODED_VIDEO@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeAssetRole + +instance FromHttpApiData CreativeAssetRole where + parseQueryParam = \case + "ADDITIONAL_FLASH" -> Right AdditionalFlash + "ADDITIONAL_IMAGE" -> Right AdditionalImage + "ALTERNATE_VIDEO" -> Right AlternateVideo + "BACKUP_IMAGE" -> Right BackupImage + "OTHER" -> Right Other + "PARENT_VIDEO" -> Right ParentVideo + "PRIMARY" -> Right Primary + "TRANSCODED_VIDEO" -> Right TranscodedVideo + x -> Left ("Unable to parse CreativeAssetRole from: " <> x) + +instance ToHttpApiData CreativeAssetRole where + toQueryParam = \case + AdditionalFlash -> "ADDITIONAL_FLASH" + AdditionalImage -> "ADDITIONAL_IMAGE" + AlternateVideo -> "ALTERNATE_VIDEO" + BackupImage -> "BACKUP_IMAGE" + Other -> "OTHER" + ParentVideo -> "PARENT_VIDEO" + Primary -> "PRIMARY" + TranscodedVideo -> "TRANSCODED_VIDEO" + +instance FromJSON CreativeAssetRole where + parseJSON = parseJSONText "CreativeAssetRole" + +instance ToJSON CreativeAssetRole where + toJSON = toJSONText + +-- | Select only dynamic targeting keys with this object type. +data DynamicTargetingKeysListObjectType + = ObjectAd + -- ^ @OBJECT_AD@ + | ObjectAdvertiser + -- ^ @OBJECT_ADVERTISER@ + | ObjectCreative + -- ^ @OBJECT_CREATIVE@ + | ObjectPlacement + -- ^ @OBJECT_PLACEMENT@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable DynamicTargetingKeysListObjectType + +instance FromHttpApiData DynamicTargetingKeysListObjectType where + parseQueryParam = \case + "OBJECT_AD" -> Right ObjectAd + "OBJECT_ADVERTISER" -> Right ObjectAdvertiser + "OBJECT_CREATIVE" -> Right ObjectCreative + "OBJECT_PLACEMENT" -> Right ObjectPlacement + x -> Left ("Unable to parse DynamicTargetingKeysListObjectType from: " <> x) + +instance ToHttpApiData DynamicTargetingKeysListObjectType where + toQueryParam = \case + ObjectAd -> "OBJECT_AD" + ObjectAdvertiser -> "OBJECT_ADVERTISER" + ObjectCreative -> "OBJECT_CREATIVE" + ObjectPlacement -> "OBJECT_PLACEMENT" + +instance FromJSON DynamicTargetingKeysListObjectType where + parseJSON = parseJSONText "DynamicTargetingKeysListObjectType" + +instance ToJSON DynamicTargetingKeysListObjectType where + toJSON = toJSONText + +-- | The delivery type for the recipient. +data RecipientDeliveryType + = Attachment + -- ^ @ATTACHMENT@ + | Link + -- ^ @LINK@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable RecipientDeliveryType + +instance FromHttpApiData RecipientDeliveryType where + parseQueryParam = \case + "ATTACHMENT" -> Right Attachment + "LINK" -> Right Link + x -> Left ("Unable to parse RecipientDeliveryType from: " <> x) + +instance ToHttpApiData RecipientDeliveryType where + toQueryParam = \case + Attachment -> "ATTACHMENT" + Link -> "LINK" + +instance FromJSON RecipientDeliveryType where + parseJSON = parseJSONText "RecipientDeliveryType" + +instance ToJSON RecipientDeliveryType where + toJSON = toJSONText + +-- | Third-party URL type for in-stream video creatives. +data ThirdPartyTrackingURLThirdPartyURLType + = ClickTracking + -- ^ @CLICK_TRACKING@ + | Impression + -- ^ @IMPRESSION@ + | RichMediaBackupImpression + -- ^ @RICH_MEDIA_BACKUP_IMPRESSION@ + | RichMediaImpression + -- ^ @RICH_MEDIA_IMPRESSION@ + | RichMediaRmImpression + -- ^ @RICH_MEDIA_RM_IMPRESSION@ + | Survey + -- ^ @SURVEY@ + | VideoComplete + -- ^ @VIDEO_COMPLETE@ + | VideoCustom + -- ^ @VIDEO_CUSTOM@ + | VideoFirstQuartile + -- ^ @VIDEO_FIRST_QUARTILE@ + | VideoFullscreen + -- ^ @VIDEO_FULLSCREEN@ + | VideoMidpoint + -- ^ @VIDEO_MIDPOINT@ + | VideoMute + -- ^ @VIDEO_MUTE@ + | VideoPause + -- ^ @VIDEO_PAUSE@ + | VideoProgress + -- ^ @VIDEO_PROGRESS@ + | VideoRewind + -- ^ @VIDEO_REWIND@ + | VideoSkip + -- ^ @VIDEO_SKIP@ + | VideoStart + -- ^ @VIDEO_START@ + | VideoStop + -- ^ @VIDEO_STOP@ + | VideoThirdQuartile + -- ^ @VIDEO_THIRD_QUARTILE@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ThirdPartyTrackingURLThirdPartyURLType + +instance FromHttpApiData ThirdPartyTrackingURLThirdPartyURLType where + parseQueryParam = \case + "CLICK_TRACKING" -> Right ClickTracking + "IMPRESSION" -> Right Impression + "RICH_MEDIA_BACKUP_IMPRESSION" -> Right RichMediaBackupImpression + "RICH_MEDIA_IMPRESSION" -> Right RichMediaImpression + "RICH_MEDIA_RM_IMPRESSION" -> Right RichMediaRmImpression + "SURVEY" -> Right Survey + "VIDEO_COMPLETE" -> Right VideoComplete + "VIDEO_CUSTOM" -> Right VideoCustom + "VIDEO_FIRST_QUARTILE" -> Right VideoFirstQuartile + "VIDEO_FULLSCREEN" -> Right VideoFullscreen + "VIDEO_MIDPOINT" -> Right VideoMidpoint + "VIDEO_MUTE" -> Right VideoMute + "VIDEO_PAUSE" -> Right VideoPause + "VIDEO_PROGRESS" -> Right VideoProgress + "VIDEO_REWIND" -> Right VideoRewind + "VIDEO_SKIP" -> Right VideoSkip + "VIDEO_START" -> Right VideoStart + "VIDEO_STOP" -> Right VideoStop + "VIDEO_THIRD_QUARTILE" -> Right VideoThirdQuartile + x -> Left ("Unable to parse ThirdPartyTrackingURLThirdPartyURLType from: " <> x) + +instance ToHttpApiData ThirdPartyTrackingURLThirdPartyURLType where + toQueryParam = \case + ClickTracking -> "CLICK_TRACKING" + Impression -> "IMPRESSION" + RichMediaBackupImpression -> "RICH_MEDIA_BACKUP_IMPRESSION" + RichMediaImpression -> "RICH_MEDIA_IMPRESSION" + RichMediaRmImpression -> "RICH_MEDIA_RM_IMPRESSION" + Survey -> "SURVEY" + VideoComplete -> "VIDEO_COMPLETE" + VideoCustom -> "VIDEO_CUSTOM" + VideoFirstQuartile -> "VIDEO_FIRST_QUARTILE" + VideoFullscreen -> "VIDEO_FULLSCREEN" + VideoMidpoint -> "VIDEO_MIDPOINT" + VideoMute -> "VIDEO_MUTE" + VideoPause -> "VIDEO_PAUSE" + VideoProgress -> "VIDEO_PROGRESS" + VideoRewind -> "VIDEO_REWIND" + VideoSkip -> "VIDEO_SKIP" + VideoStart -> "VIDEO_START" + VideoStop -> "VIDEO_STOP" + VideoThirdQuartile -> "VIDEO_THIRD_QUARTILE" + +instance FromJSON ThirdPartyTrackingURLThirdPartyURLType where + parseJSON = parseJSONText "ThirdPartyTrackingURLThirdPartyURLType" + +instance ToJSON ThirdPartyTrackingURLThirdPartyURLType where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data TargetableRemarketingListsListSortOrder + = TRLLSOAscending + -- ^ @ASCENDING@ + | TRLLSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable TargetableRemarketingListsListSortOrder + +instance FromHttpApiData TargetableRemarketingListsListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right TRLLSOAscending + "DESCENDING" -> Right TRLLSODescending + x -> Left ("Unable to parse TargetableRemarketingListsListSortOrder from: " <> x) + +instance ToHttpApiData TargetableRemarketingListsListSortOrder where + toQueryParam = \case + TRLLSOAscending -> "ASCENDING" + TRLLSODescending -> "DESCENDING" + +instance FromJSON TargetableRemarketingListsListSortOrder where + parseJSON = parseJSONText "TargetableRemarketingListsListSortOrder" + +instance ToJSON TargetableRemarketingListsListSortOrder where + toJSON = toJSONText + +-- | Offset left unit for an asset. This is a read-only field. Applicable to +-- the following creative types: all RICH_MEDIA. +data CreativeAssetPositionLeftUnit + = OffSetUnitPercent + -- ^ @OFFSET_UNIT_PERCENT@ + | OffSetUnitPixel + -- ^ @OFFSET_UNIT_PIXEL@ + | OffSetUnitPixelFromCenter + -- ^ @OFFSET_UNIT_PIXEL_FROM_CENTER@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeAssetPositionLeftUnit + +instance FromHttpApiData CreativeAssetPositionLeftUnit where + parseQueryParam = \case + "OFFSET_UNIT_PERCENT" -> Right OffSetUnitPercent + "OFFSET_UNIT_PIXEL" -> Right OffSetUnitPixel + "OFFSET_UNIT_PIXEL_FROM_CENTER" -> Right OffSetUnitPixelFromCenter + x -> Left ("Unable to parse CreativeAssetPositionLeftUnit from: " <> x) + +instance ToHttpApiData CreativeAssetPositionLeftUnit where + toQueryParam = \case + OffSetUnitPercent -> "OFFSET_UNIT_PERCENT" + OffSetUnitPixel -> "OFFSET_UNIT_PIXEL" + OffSetUnitPixelFromCenter -> "OFFSET_UNIT_PIXEL_FROM_CENTER" + +instance FromJSON CreativeAssetPositionLeftUnit where + parseJSON = parseJSONText "CreativeAssetPositionLeftUnit" + +instance ToJSON CreativeAssetPositionLeftUnit where + toJSON = toJSONText + +-- | Placement cap cost option. +data PricingScheduleCapCostOption + = CapCostCumulative + -- ^ @CAP_COST_CUMULATIVE@ + | CapCostMonthly + -- ^ @CAP_COST_MONTHLY@ + | CapCostNone + -- ^ @CAP_COST_NONE@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PricingScheduleCapCostOption + +instance FromHttpApiData PricingScheduleCapCostOption where + parseQueryParam = \case + "CAP_COST_CUMULATIVE" -> Right CapCostCumulative + "CAP_COST_MONTHLY" -> Right CapCostMonthly + "CAP_COST_NONE" -> Right CapCostNone + x -> Left ("Unable to parse PricingScheduleCapCostOption from: " <> x) + +instance ToHttpApiData PricingScheduleCapCostOption where + toQueryParam = \case + CapCostCumulative -> "CAP_COST_CUMULATIVE" + CapCostMonthly -> "CAP_COST_MONTHLY" + CapCostNone -> "CAP_COST_NONE" + +instance FromJSON PricingScheduleCapCostOption where + parseJSON = parseJSONText "PricingScheduleCapCostOption" + +instance ToJSON PricingScheduleCapCostOption where + toJSON = toJSONText + +-- | Levels of availability for a user role permission. +data UserRolePermissionAvailability + = AccountAlways + -- ^ @ACCOUNT_ALWAYS@ + | AccountByDefault + -- ^ @ACCOUNT_BY_DEFAULT@ + | NotAvailableByDefault + -- ^ @NOT_AVAILABLE_BY_DEFAULT@ + | SubAccountAndAccountAlways + -- ^ @SUBACCOUNT_AND_ACCOUNT_ALWAYS@ + | SubAccountAndAccountByDefault + -- ^ @SUBACCOUNT_AND_ACCOUNT_BY_DEFAULT@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable UserRolePermissionAvailability + +instance FromHttpApiData UserRolePermissionAvailability where + parseQueryParam = \case + "ACCOUNT_ALWAYS" -> Right AccountAlways + "ACCOUNT_BY_DEFAULT" -> Right AccountByDefault + "NOT_AVAILABLE_BY_DEFAULT" -> Right NotAvailableByDefault + "SUBACCOUNT_AND_ACCOUNT_ALWAYS" -> Right SubAccountAndAccountAlways + "SUBACCOUNT_AND_ACCOUNT_BY_DEFAULT" -> Right SubAccountAndAccountByDefault + x -> Left ("Unable to parse UserRolePermissionAvailability from: " <> x) + +instance ToHttpApiData UserRolePermissionAvailability where + toQueryParam = \case + AccountAlways -> "ACCOUNT_ALWAYS" + AccountByDefault -> "ACCOUNT_BY_DEFAULT" + NotAvailableByDefault -> "NOT_AVAILABLE_BY_DEFAULT" + SubAccountAndAccountAlways -> "SUBACCOUNT_AND_ACCOUNT_ALWAYS" + SubAccountAndAccountByDefault -> "SUBACCOUNT_AND_ACCOUNT_BY_DEFAULT" + +instance FromJSON UserRolePermissionAvailability where + parseJSON = parseJSONText "UserRolePermissionAvailability" + +instance ToJSON UserRolePermissionAvailability where + toJSON = toJSONText + +-- | Visibility of this directory site contact assignment. When set to PUBLIC +-- this contact assignment is visible to all account and agency users; when +-- set to PRIVATE it is visible only to the site. +data DirectorySiteContactAssignmentVisibility + = Private + -- ^ @PRIVATE@ + | Public + -- ^ @PUBLIC@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable DirectorySiteContactAssignmentVisibility + +instance FromHttpApiData DirectorySiteContactAssignmentVisibility where + parseQueryParam = \case + "PRIVATE" -> Right Private + "PUBLIC" -> Right Public + x -> Left ("Unable to parse DirectorySiteContactAssignmentVisibility from: " <> x) + +instance ToHttpApiData DirectorySiteContactAssignmentVisibility where + toQueryParam = \case + Private -> "PRIVATE" + Public -> "PUBLIC" + +instance FromJSON DirectorySiteContactAssignmentVisibility where + parseJSON = parseJSONText "DirectorySiteContactAssignmentVisibility" + +instance ToJSON DirectorySiteContactAssignmentVisibility where + toJSON = toJSONText + +-- | Placement compatibility. DISPLAY and DISPLAY_INTERSTITIAL refer to +-- rendering on desktop, on mobile devices or in mobile apps for regular or +-- interstitial ads respectively. APP and APP_INTERSTITIAL are no longer +-- allowed for new placement insertions. Instead, use DISPLAY or +-- DISPLAY_INTERSTITIAL. IN_STREAM_VIDEO refers to rendering in in-stream +-- video ads developed with the VAST standard. This field is required on +-- insertion. +data PlacementCompatibility + = App + -- ^ @APP@ + | AppInterstitial + -- ^ @APP_INTERSTITIAL@ + | Display + -- ^ @DISPLAY@ + | DisplayInterstitial + -- ^ @DISPLAY_INTERSTITIAL@ + | InStreamVideo + -- ^ @IN_STREAM_VIDEO@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PlacementCompatibility + +instance FromHttpApiData PlacementCompatibility where + parseQueryParam = \case + "APP" -> Right App + "APP_INTERSTITIAL" -> Right AppInterstitial + "DISPLAY" -> Right Display + "DISPLAY_INTERSTITIAL" -> Right DisplayInterstitial + "IN_STREAM_VIDEO" -> Right InStreamVideo + x -> Left ("Unable to parse PlacementCompatibility from: " <> x) + +instance ToHttpApiData PlacementCompatibility where + toQueryParam = \case + App -> "APP" + AppInterstitial -> "APP_INTERSTITIAL" + Display -> "DISPLAY" + DisplayInterstitial -> "DISPLAY_INTERSTITIAL" + InStreamVideo -> "IN_STREAM_VIDEO" + +instance FromJSON PlacementCompatibility where + parseJSON = parseJSONText "PlacementCompatibility" + +instance ToJSON PlacementCompatibility where + toJSON = toJSONText + +-- | Comparison operator of this term. This field is only relevant when type +-- is left unset or set to CUSTOM_VARIABLE_TERM or REFERRER_TERM. +data ListPopulationTermOperator + = NumEquals + -- ^ @NUM_EQUALS@ + | NumGreaterThan + -- ^ @NUM_GREATER_THAN@ + | NumGreaterThanEqual + -- ^ @NUM_GREATER_THAN_EQUAL@ + | NumLessThan + -- ^ @NUM_LESS_THAN@ + | NumLessThanEqual + -- ^ @NUM_LESS_THAN_EQUAL@ + | StringContains + -- ^ @STRING_CONTAINS@ + | StringEquals + -- ^ @STRING_EQUALS@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ListPopulationTermOperator + +instance FromHttpApiData ListPopulationTermOperator where + parseQueryParam = \case + "NUM_EQUALS" -> Right NumEquals + "NUM_GREATER_THAN" -> Right NumGreaterThan + "NUM_GREATER_THAN_EQUAL" -> Right NumGreaterThanEqual + "NUM_LESS_THAN" -> Right NumLessThan + "NUM_LESS_THAN_EQUAL" -> Right NumLessThanEqual + "STRING_CONTAINS" -> Right StringContains + "STRING_EQUALS" -> Right StringEquals + x -> Left ("Unable to parse ListPopulationTermOperator from: " <> x) + +instance ToHttpApiData ListPopulationTermOperator where + toQueryParam = \case + NumEquals -> "NUM_EQUALS" + NumGreaterThan -> "NUM_GREATER_THAN" + NumGreaterThanEqual -> "NUM_GREATER_THAN_EQUAL" + NumLessThan -> "NUM_LESS_THAN" + NumLessThanEqual -> "NUM_LESS_THAN_EQUAL" + StringContains -> "STRING_CONTAINS" + StringEquals -> "STRING_EQUALS" + +instance FromJSON ListPopulationTermOperator where + parseJSON = parseJSONText "ListPopulationTermOperator" + +instance ToJSON ListPopulationTermOperator where + toJSON = toJSONText + +-- | Select only placements with this payment source. +data PlacementsListPaymentSource + = PlacementAgencyPaid + -- ^ @PLACEMENT_AGENCY_PAID@ + | PlacementPublisherPaid + -- ^ @PLACEMENT_PUBLISHER_PAID@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PlacementsListPaymentSource + +instance FromHttpApiData PlacementsListPaymentSource where + parseQueryParam = \case + "PLACEMENT_AGENCY_PAID" -> Right PlacementAgencyPaid + "PLACEMENT_PUBLISHER_PAID" -> Right PlacementPublisherPaid + x -> Left ("Unable to parse PlacementsListPaymentSource from: " <> x) + +instance ToHttpApiData PlacementsListPaymentSource where + toQueryParam = \case + PlacementAgencyPaid -> "PLACEMENT_AGENCY_PAID" + PlacementPublisherPaid -> "PLACEMENT_PUBLISHER_PAID" + +instance FromJSON PlacementsListPaymentSource where + parseJSON = parseJSONText "PlacementsListPaymentSource" + +instance ToJSON PlacementsListPaymentSource where + toJSON = toJSONText + +-- | The field by which to sort the list. +data ReportsListSortField + = RLSFID + -- ^ @ID@ + -- Sort by report ID. + | RLSFLastModifiedTime + -- ^ @LAST_MODIFIED_TIME@ + -- Sort by \'lastModifiedTime\' field. + | RLSFName + -- ^ @NAME@ + -- Sort by name of reports. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ReportsListSortField + +instance FromHttpApiData ReportsListSortField where + parseQueryParam = \case + "ID" -> Right RLSFID + "LAST_MODIFIED_TIME" -> Right RLSFLastModifiedTime + "NAME" -> Right RLSFName + x -> Left ("Unable to parse ReportsListSortField from: " <> x) + +instance ToHttpApiData ReportsListSortField where + toQueryParam = \case + RLSFID -> "ID" + RLSFLastModifiedTime -> "LAST_MODIFIED_TIME" + RLSFName -> "NAME" + +instance FromJSON ReportsListSortField where + parseJSON = parseJSONText "ReportsListSortField" + +instance ToJSON ReportsListSortField where + toJSON = toJSONText + +-- | Ad slot compatibility. DISPLAY and DISPLAY_INTERSTITIAL refer to +-- rendering either on desktop, mobile devices or in mobile apps for +-- regular or interstitial ads respectively. APP and APP_INTERSTITIAL are +-- for rendering in mobile apps. IN_STREAM_VIDEO refers to rendering in +-- in-stream video ads developed with the VAST standard. +data AdSlotCompatibility + = ASCApp + -- ^ @APP@ + | ASCAppInterstitial + -- ^ @APP_INTERSTITIAL@ + | ASCDisplay + -- ^ @DISPLAY@ + | ASCDisplayInterstitial + -- ^ @DISPLAY_INTERSTITIAL@ + | ASCInStreamVideo + -- ^ @IN_STREAM_VIDEO@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AdSlotCompatibility + +instance FromHttpApiData AdSlotCompatibility where + parseQueryParam = \case + "APP" -> Right ASCApp + "APP_INTERSTITIAL" -> Right ASCAppInterstitial + "DISPLAY" -> Right ASCDisplay + "DISPLAY_INTERSTITIAL" -> Right ASCDisplayInterstitial + "IN_STREAM_VIDEO" -> Right ASCInStreamVideo + x -> Left ("Unable to parse AdSlotCompatibility from: " <> x) + +instance ToHttpApiData AdSlotCompatibility where + toQueryParam = \case + ASCApp -> "APP" + ASCAppInterstitial -> "APP_INTERSTITIAL" + ASCDisplay -> "DISPLAY" + ASCDisplayInterstitial -> "DISPLAY_INTERSTITIAL" + ASCInStreamVideo -> "IN_STREAM_VIDEO" + +instance FromJSON AdSlotCompatibility where + parseJSON = parseJSONText "AdSlotCompatibility" + +instance ToJSON AdSlotCompatibility where + toJSON = toJSONText + +-- | Field by which to sort the list. +data CampaignsListSortField + = CLSFID + -- ^ @ID@ + | CLSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CampaignsListSortField + +instance FromHttpApiData CampaignsListSortField where + parseQueryParam = \case + "ID" -> Right CLSFID + "NAME" -> Right CLSFName + x -> Left ("Unable to parse CampaignsListSortField from: " <> x) + +instance ToHttpApiData CampaignsListSortField where + toQueryParam = \case + CLSFID -> "ID" + CLSFName -> "NAME" + +instance FromJSON CampaignsListSortField where + parseJSON = parseJSONText "CampaignsListSortField" + +instance ToJSON CampaignsListSortField where + toJSON = toJSONText + +-- | Trafficker type of this user profile. +data AccountUserProFileTraffickerType + = ExternalTrafficker + -- ^ @EXTERNAL_TRAFFICKER@ + | InternalNonTrafficker + -- ^ @INTERNAL_NON_TRAFFICKER@ + | InternalTrafficker + -- ^ @INTERNAL_TRAFFICKER@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AccountUserProFileTraffickerType + +instance FromHttpApiData AccountUserProFileTraffickerType where + parseQueryParam = \case + "EXTERNAL_TRAFFICKER" -> Right ExternalTrafficker + "INTERNAL_NON_TRAFFICKER" -> Right InternalNonTrafficker + "INTERNAL_TRAFFICKER" -> Right InternalTrafficker + x -> Left ("Unable to parse AccountUserProFileTraffickerType from: " <> x) + +instance ToHttpApiData AccountUserProFileTraffickerType where + toQueryParam = \case + ExternalTrafficker -> "EXTERNAL_TRAFFICKER" + InternalNonTrafficker -> "INTERNAL_NON_TRAFFICKER" + InternalTrafficker -> "INTERNAL_TRAFFICKER" + +instance FromJSON AccountUserProFileTraffickerType where + parseJSON = parseJSONText "AccountUserProFileTraffickerType" + +instance ToJSON AccountUserProFileTraffickerType where + toJSON = toJSONText + +data CreativeAssetMetadataDetectedFeaturesItem + = ApplicationCache + -- ^ @APPLICATION_CACHE@ + | Audio + -- ^ @AUDIO@ + | Canvas + -- ^ @CANVAS@ + | CanvasText + -- ^ @CANVAS_TEXT@ + | CssAnimations + -- ^ @CSS_ANIMATIONS@ + | CssBackgRoundSize + -- ^ @CSS_BACKGROUND_SIZE@ + | CssBOrderImage + -- ^ @CSS_BORDER_IMAGE@ + | CssBOrderRadius + -- ^ @CSS_BORDER_RADIUS@ + | CssBoxShadow + -- ^ @CSS_BOX_SHADOW@ + | CssColumns + -- ^ @CSS_COLUMNS@ + | CssFlexBox + -- ^ @CSS_FLEX_BOX@ + | CssFontFace + -- ^ @CSS_FONT_FACE@ + | CssGeneratedContent + -- ^ @CSS_GENERATED_CONTENT@ + | CssGradients + -- ^ @CSS_GRADIENTS@ + | CssHsla + -- ^ @CSS_HSLA@ + | CssMultipleBgs + -- ^ @CSS_MULTIPLE_BGS@ + | CssOpacity + -- ^ @CSS_OPACITY@ + | CssReflections + -- ^ @CSS_REFLECTIONS@ + | CssRgba + -- ^ @CSS_RGBA@ + | CssTextShadow + -- ^ @CSS_TEXT_SHADOW@ + | CssTransforms + -- ^ @CSS_TRANSFORMS@ + | CssTRANSFORMS3D + -- ^ @CSS_TRANSFORMS3D@ + | CssTransitions + -- ^ @CSS_TRANSITIONS@ + | DragAndDrop + -- ^ @DRAG_AND_DROP@ + | GeoLocation + -- ^ @GEO_LOCATION@ + | HashChange + -- ^ @HASH_CHANGE@ + | History + -- ^ @HISTORY@ + | IndexedDB + -- ^ @INDEXED_DB@ + | InlineSvg + -- ^ @INLINE_SVG@ + | InputAttrAutocomplete + -- ^ @INPUT_ATTR_AUTOCOMPLETE@ + | InputAttrAutofocus + -- ^ @INPUT_ATTR_AUTOFOCUS@ + | InputAttrList + -- ^ @INPUT_ATTR_LIST@ + | InputAttrMax + -- ^ @INPUT_ATTR_MAX@ + | InputAttrMin + -- ^ @INPUT_ATTR_MIN@ + | InputAttrMultiple + -- ^ @INPUT_ATTR_MULTIPLE@ + | InputAttrPattern + -- ^ @INPUT_ATTR_PATTERN@ + | InputAttrPlaceholder + -- ^ @INPUT_ATTR_PLACEHOLDER@ + | InputAttrRequired + -- ^ @INPUT_ATTR_REQUIRED@ + | InputAttrStep + -- ^ @INPUT_ATTR_STEP@ + | InputTypeColor + -- ^ @INPUT_TYPE_COLOR@ + | InputTypeDate + -- ^ @INPUT_TYPE_DATE@ + | InputTypeDatetime + -- ^ @INPUT_TYPE_DATETIME@ + | InputTypeDatetimeLocal + -- ^ @INPUT_TYPE_DATETIME_LOCAL@ + | InputTypeEmail + -- ^ @INPUT_TYPE_EMAIL@ + | InputTypeMonth + -- ^ @INPUT_TYPE_MONTH@ + | InputTypeNumber + -- ^ @INPUT_TYPE_NUMBER@ + | InputTypeRange + -- ^ @INPUT_TYPE_RANGE@ + | InputTypeSearch + -- ^ @INPUT_TYPE_SEARCH@ + | InputTypeTel + -- ^ @INPUT_TYPE_TEL@ + | InputTypeTime + -- ^ @INPUT_TYPE_TIME@ + | InputTypeURL + -- ^ @INPUT_TYPE_URL@ + | InputTypeWeek + -- ^ @INPUT_TYPE_WEEK@ + | LocalStorage + -- ^ @LOCAL_STORAGE@ + | PostMessage + -- ^ @POST_MESSAGE@ + | SessionStorage + -- ^ @SESSION_STORAGE@ + | Smil + -- ^ @SMIL@ + | SvgClipPaths + -- ^ @SVG_CLIP_PATHS@ + | SvgFeImage + -- ^ @SVG_FE_IMAGE@ + | SvgFilters + -- ^ @SVG_FILTERS@ + | SvgHref + -- ^ @SVG_HREF@ + | Touch + -- ^ @TOUCH@ + | Video + -- ^ @VIDEO@ + | Webgl + -- ^ @WEBGL@ + | WebSockets + -- ^ @WEB_SOCKETS@ + | WebSQLDatabase + -- ^ @WEB_SQL_DATABASE@ + | WebWorkers + -- ^ @WEB_WORKERS@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeAssetMetadataDetectedFeaturesItem + +instance FromHttpApiData CreativeAssetMetadataDetectedFeaturesItem where + parseQueryParam = \case + "APPLICATION_CACHE" -> Right ApplicationCache + "AUDIO" -> Right Audio + "CANVAS" -> Right Canvas + "CANVAS_TEXT" -> Right CanvasText + "CSS_ANIMATIONS" -> Right CssAnimations + "CSS_BACKGROUND_SIZE" -> Right CssBackgRoundSize + "CSS_BORDER_IMAGE" -> Right CssBOrderImage + "CSS_BORDER_RADIUS" -> Right CssBOrderRadius + "CSS_BOX_SHADOW" -> Right CssBoxShadow + "CSS_COLUMNS" -> Right CssColumns + "CSS_FLEX_BOX" -> Right CssFlexBox + "CSS_FONT_FACE" -> Right CssFontFace + "CSS_GENERATED_CONTENT" -> Right CssGeneratedContent + "CSS_GRADIENTS" -> Right CssGradients + "CSS_HSLA" -> Right CssHsla + "CSS_MULTIPLE_BGS" -> Right CssMultipleBgs + "CSS_OPACITY" -> Right CssOpacity + "CSS_REFLECTIONS" -> Right CssReflections + "CSS_RGBA" -> Right CssRgba + "CSS_TEXT_SHADOW" -> Right CssTextShadow + "CSS_TRANSFORMS" -> Right CssTransforms + "CSS_TRANSFORMS3D" -> Right CssTRANSFORMS3D + "CSS_TRANSITIONS" -> Right CssTransitions + "DRAG_AND_DROP" -> Right DragAndDrop + "GEO_LOCATION" -> Right GeoLocation + "HASH_CHANGE" -> Right HashChange + "HISTORY" -> Right History + "INDEXED_DB" -> Right IndexedDB + "INLINE_SVG" -> Right InlineSvg + "INPUT_ATTR_AUTOCOMPLETE" -> Right InputAttrAutocomplete + "INPUT_ATTR_AUTOFOCUS" -> Right InputAttrAutofocus + "INPUT_ATTR_LIST" -> Right InputAttrList + "INPUT_ATTR_MAX" -> Right InputAttrMax + "INPUT_ATTR_MIN" -> Right InputAttrMin + "INPUT_ATTR_MULTIPLE" -> Right InputAttrMultiple + "INPUT_ATTR_PATTERN" -> Right InputAttrPattern + "INPUT_ATTR_PLACEHOLDER" -> Right InputAttrPlaceholder + "INPUT_ATTR_REQUIRED" -> Right InputAttrRequired + "INPUT_ATTR_STEP" -> Right InputAttrStep + "INPUT_TYPE_COLOR" -> Right InputTypeColor + "INPUT_TYPE_DATE" -> Right InputTypeDate + "INPUT_TYPE_DATETIME" -> Right InputTypeDatetime + "INPUT_TYPE_DATETIME_LOCAL" -> Right InputTypeDatetimeLocal + "INPUT_TYPE_EMAIL" -> Right InputTypeEmail + "INPUT_TYPE_MONTH" -> Right InputTypeMonth + "INPUT_TYPE_NUMBER" -> Right InputTypeNumber + "INPUT_TYPE_RANGE" -> Right InputTypeRange + "INPUT_TYPE_SEARCH" -> Right InputTypeSearch + "INPUT_TYPE_TEL" -> Right InputTypeTel + "INPUT_TYPE_TIME" -> Right InputTypeTime + "INPUT_TYPE_URL" -> Right InputTypeURL + "INPUT_TYPE_WEEK" -> Right InputTypeWeek + "LOCAL_STORAGE" -> Right LocalStorage + "POST_MESSAGE" -> Right PostMessage + "SESSION_STORAGE" -> Right SessionStorage + "SMIL" -> Right Smil + "SVG_CLIP_PATHS" -> Right SvgClipPaths + "SVG_FE_IMAGE" -> Right SvgFeImage + "SVG_FILTERS" -> Right SvgFilters + "SVG_HREF" -> Right SvgHref + "TOUCH" -> Right Touch + "VIDEO" -> Right Video + "WEBGL" -> Right Webgl + "WEB_SOCKETS" -> Right WebSockets + "WEB_SQL_DATABASE" -> Right WebSQLDatabase + "WEB_WORKERS" -> Right WebWorkers + x -> Left ("Unable to parse CreativeAssetMetadataDetectedFeaturesItem from: " <> x) + +instance ToHttpApiData CreativeAssetMetadataDetectedFeaturesItem where + toQueryParam = \case + ApplicationCache -> "APPLICATION_CACHE" + Audio -> "AUDIO" + Canvas -> "CANVAS" + CanvasText -> "CANVAS_TEXT" + CssAnimations -> "CSS_ANIMATIONS" + CssBackgRoundSize -> "CSS_BACKGROUND_SIZE" + CssBOrderImage -> "CSS_BORDER_IMAGE" + CssBOrderRadius -> "CSS_BORDER_RADIUS" + CssBoxShadow -> "CSS_BOX_SHADOW" + CssColumns -> "CSS_COLUMNS" + CssFlexBox -> "CSS_FLEX_BOX" + CssFontFace -> "CSS_FONT_FACE" + CssGeneratedContent -> "CSS_GENERATED_CONTENT" + CssGradients -> "CSS_GRADIENTS" + CssHsla -> "CSS_HSLA" + CssMultipleBgs -> "CSS_MULTIPLE_BGS" + CssOpacity -> "CSS_OPACITY" + CssReflections -> "CSS_REFLECTIONS" + CssRgba -> "CSS_RGBA" + CssTextShadow -> "CSS_TEXT_SHADOW" + CssTransforms -> "CSS_TRANSFORMS" + CssTRANSFORMS3D -> "CSS_TRANSFORMS3D" + CssTransitions -> "CSS_TRANSITIONS" + DragAndDrop -> "DRAG_AND_DROP" + GeoLocation -> "GEO_LOCATION" + HashChange -> "HASH_CHANGE" + History -> "HISTORY" + IndexedDB -> "INDEXED_DB" + InlineSvg -> "INLINE_SVG" + InputAttrAutocomplete -> "INPUT_ATTR_AUTOCOMPLETE" + InputAttrAutofocus -> "INPUT_ATTR_AUTOFOCUS" + InputAttrList -> "INPUT_ATTR_LIST" + InputAttrMax -> "INPUT_ATTR_MAX" + InputAttrMin -> "INPUT_ATTR_MIN" + InputAttrMultiple -> "INPUT_ATTR_MULTIPLE" + InputAttrPattern -> "INPUT_ATTR_PATTERN" + InputAttrPlaceholder -> "INPUT_ATTR_PLACEHOLDER" + InputAttrRequired -> "INPUT_ATTR_REQUIRED" + InputAttrStep -> "INPUT_ATTR_STEP" + InputTypeColor -> "INPUT_TYPE_COLOR" + InputTypeDate -> "INPUT_TYPE_DATE" + InputTypeDatetime -> "INPUT_TYPE_DATETIME" + InputTypeDatetimeLocal -> "INPUT_TYPE_DATETIME_LOCAL" + InputTypeEmail -> "INPUT_TYPE_EMAIL" + InputTypeMonth -> "INPUT_TYPE_MONTH" + InputTypeNumber -> "INPUT_TYPE_NUMBER" + InputTypeRange -> "INPUT_TYPE_RANGE" + InputTypeSearch -> "INPUT_TYPE_SEARCH" + InputTypeTel -> "INPUT_TYPE_TEL" + InputTypeTime -> "INPUT_TYPE_TIME" + InputTypeURL -> "INPUT_TYPE_URL" + InputTypeWeek -> "INPUT_TYPE_WEEK" + LocalStorage -> "LOCAL_STORAGE" + PostMessage -> "POST_MESSAGE" + SessionStorage -> "SESSION_STORAGE" + Smil -> "SMIL" + SvgClipPaths -> "SVG_CLIP_PATHS" + SvgFeImage -> "SVG_FE_IMAGE" + SvgFilters -> "SVG_FILTERS" + SvgHref -> "SVG_HREF" + Touch -> "TOUCH" + Video -> "VIDEO" + Webgl -> "WEBGL" + WebSockets -> "WEB_SOCKETS" + WebSQLDatabase -> "WEB_SQL_DATABASE" + WebWorkers -> "WEB_WORKERS" + +instance FromJSON CreativeAssetMetadataDetectedFeaturesItem where + parseJSON = parseJSONText "CreativeAssetMetadataDetectedFeaturesItem" + +instance ToJSON CreativeAssetMetadataDetectedFeaturesItem where + toJSON = toJSONText + +-- | Select default ads with the specified compatibility. Applicable when +-- type is AD_SERVING_DEFAULT_AD. DISPLAY and DISPLAY_INTERSTITIAL refer to +-- rendering either on desktop or on mobile devices for regular or +-- interstitial ads, respectively. APP and APP_INTERSTITIAL are for +-- rendering in mobile apps. IN_STREAM_VIDEO refers to rendering an +-- in-stream video ads developed with the VAST standard. +data AdsListCompatibility + = ALCApp + -- ^ @APP@ + | ALCAppInterstitial + -- ^ @APP_INTERSTITIAL@ + | ALCDisplay + -- ^ @DISPLAY@ + | ALCDisplayInterstitial + -- ^ @DISPLAY_INTERSTITIAL@ + | ALCInStreamVideo + -- ^ @IN_STREAM_VIDEO@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AdsListCompatibility + +instance FromHttpApiData AdsListCompatibility where + parseQueryParam = \case + "APP" -> Right ALCApp + "APP_INTERSTITIAL" -> Right ALCAppInterstitial + "DISPLAY" -> Right ALCDisplay + "DISPLAY_INTERSTITIAL" -> Right ALCDisplayInterstitial + "IN_STREAM_VIDEO" -> Right ALCInStreamVideo + x -> Left ("Unable to parse AdsListCompatibility from: " <> x) + +instance ToHttpApiData AdsListCompatibility where + toQueryParam = \case + ALCApp -> "APP" + ALCAppInterstitial -> "APP_INTERSTITIAL" + ALCDisplay -> "DISPLAY" + ALCDisplayInterstitial -> "DISPLAY_INTERSTITIAL" + ALCInStreamVideo -> "IN_STREAM_VIDEO" + +instance FromJSON AdsListCompatibility where + parseJSON = parseJSONText "AdsListCompatibility" + +instance ToJSON AdsListCompatibility where + toJSON = toJSONText + +-- | Status of this event tag. Must be ENABLED for this event tag to fire. +-- This is a required field. +data EventTagStatus + = Disabled + -- ^ @DISABLED@ + | Enabled + -- ^ @ENABLED@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable EventTagStatus + +instance FromHttpApiData EventTagStatus where + parseQueryParam = \case + "DISABLED" -> Right Disabled + "ENABLED" -> Right Enabled + x -> Left ("Unable to parse EventTagStatus from: " <> x) + +instance ToHttpApiData EventTagStatus where + toQueryParam = \case + Disabled -> "DISABLED" + Enabled -> "ENABLED" + +instance FromJSON EventTagStatus where + parseJSON = parseJSONText "EventTagStatus" + +instance ToJSON EventTagStatus where + toJSON = toJSONText + +-- | Field by which to sort the list. +data SitesListSortField + = SLSFID + -- ^ @ID@ + | SLSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable SitesListSortField + +instance FromHttpApiData SitesListSortField where + parseQueryParam = \case + "ID" -> Right SLSFID + "NAME" -> Right SLSFName + x -> Left ("Unable to parse SitesListSortField from: " <> x) + +instance ToHttpApiData SitesListSortField where + toQueryParam = \case + SLSFID -> "ID" + SLSFName -> "NAME" + +instance FromJSON SitesListSortField where + parseJSON = parseJSONText "SitesListSortField" + +instance ToJSON SitesListSortField where + toJSON = toJSONText + +-- | Select only event tags with the specified event tag types. Event tag +-- types can be used to specify whether to use a third-party pixel, a +-- third-party JavaScript URL, or a third-party click-through URL for +-- either impression or click tracking. +data EventTagsListEventTagTypes + = ClickThroughEventTag + -- ^ @CLICK_THROUGH_EVENT_TAG@ + | ImpressionImageEventTag + -- ^ @IMPRESSION_IMAGE_EVENT_TAG@ + | ImpressionJavascriptEventTag + -- ^ @IMPRESSION_JAVASCRIPT_EVENT_TAG@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable EventTagsListEventTagTypes + +instance FromHttpApiData EventTagsListEventTagTypes where + parseQueryParam = \case + "CLICK_THROUGH_EVENT_TAG" -> Right ClickThroughEventTag + "IMPRESSION_IMAGE_EVENT_TAG" -> Right ImpressionImageEventTag + "IMPRESSION_JAVASCRIPT_EVENT_TAG" -> Right ImpressionJavascriptEventTag + x -> Left ("Unable to parse EventTagsListEventTagTypes from: " <> x) + +instance ToHttpApiData EventTagsListEventTagTypes where + toQueryParam = \case + ClickThroughEventTag -> "CLICK_THROUGH_EVENT_TAG" + ImpressionImageEventTag -> "IMPRESSION_IMAGE_EVENT_TAG" + ImpressionJavascriptEventTag -> "IMPRESSION_JAVASCRIPT_EVENT_TAG" + +instance FromJSON EventTagsListEventTagTypes where + parseJSON = parseJSONText "EventTagsListEventTagTypes" + +instance ToJSON EventTagsListEventTagTypes where + toJSON = toJSONText + +-- | The status of the report file. +data FileStatus + = Cancelled + -- ^ @CANCELLED@ + | Failed + -- ^ @FAILED@ + | Processing + -- ^ @PROCESSING@ + | ReportAvailable + -- ^ @REPORT_AVAILABLE@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FileStatus + +instance FromHttpApiData FileStatus where + parseQueryParam = \case + "CANCELLED" -> Right Cancelled + "FAILED" -> Right Failed + "PROCESSING" -> Right Processing + "REPORT_AVAILABLE" -> Right ReportAvailable + x -> Left ("Unable to parse FileStatus from: " <> x) + +instance ToHttpApiData FileStatus where + toQueryParam = \case + Cancelled -> "CANCELLED" + Failed -> "FAILED" + Processing -> "PROCESSING" + ReportAvailable -> "REPORT_AVAILABLE" + +instance FromJSON FileStatus where + parseJSON = parseJSONText "FileStatus" + +instance ToJSON FileStatus where + toJSON = toJSONText + +-- | Artwork type used by the creative.This is a read-only field. +data CreativeCustomEventArtworkType + = ArtworkTypeFlash + -- ^ @ARTWORK_TYPE_FLASH@ + | ArtworkTypeHTML5 + -- ^ @ARTWORK_TYPE_HTML5@ + | ArtworkTypeImage + -- ^ @ARTWORK_TYPE_IMAGE@ + | ArtworkTypeMixed + -- ^ @ARTWORK_TYPE_MIXED@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeCustomEventArtworkType + +instance FromHttpApiData CreativeCustomEventArtworkType where + parseQueryParam = \case + "ARTWORK_TYPE_FLASH" -> Right ArtworkTypeFlash + "ARTWORK_TYPE_HTML5" -> Right ArtworkTypeHTML5 + "ARTWORK_TYPE_IMAGE" -> Right ArtworkTypeImage + "ARTWORK_TYPE_MIXED" -> Right ArtworkTypeMixed + x -> Left ("Unable to parse CreativeCustomEventArtworkType from: " <> x) + +instance ToHttpApiData CreativeCustomEventArtworkType where + toQueryParam = \case + ArtworkTypeFlash -> "ARTWORK_TYPE_FLASH" + ArtworkTypeHTML5 -> "ARTWORK_TYPE_HTML5" + ArtworkTypeImage -> "ARTWORK_TYPE_IMAGE" + ArtworkTypeMixed -> "ARTWORK_TYPE_MIXED" + +instance FromJSON CreativeCustomEventArtworkType where + parseJSON = parseJSONText "CreativeCustomEventArtworkType" + +instance ToJSON CreativeCustomEventArtworkType where + toJSON = toJSONText + +-- | Types of attribution options for natural search conversions. +data FloodlightConfigurationNATuralSearchConversionAttributionOption + = ExcludeNATuralSearchConversionAttribution + -- ^ @EXCLUDE_NATURAL_SEARCH_CONVERSION_ATTRIBUTION@ + | IncludeNATuralSearchConversionAttribution + -- ^ @INCLUDE_NATURAL_SEARCH_CONVERSION_ATTRIBUTION@ + | IncludeNATuralSearchTieredConversionAttribution + -- ^ @INCLUDE_NATURAL_SEARCH_TIERED_CONVERSION_ATTRIBUTION@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FloodlightConfigurationNATuralSearchConversionAttributionOption + +instance FromHttpApiData FloodlightConfigurationNATuralSearchConversionAttributionOption where + parseQueryParam = \case + "EXCLUDE_NATURAL_SEARCH_CONVERSION_ATTRIBUTION" -> Right ExcludeNATuralSearchConversionAttribution + "INCLUDE_NATURAL_SEARCH_CONVERSION_ATTRIBUTION" -> Right IncludeNATuralSearchConversionAttribution + "INCLUDE_NATURAL_SEARCH_TIERED_CONVERSION_ATTRIBUTION" -> Right IncludeNATuralSearchTieredConversionAttribution + x -> Left ("Unable to parse FloodlightConfigurationNATuralSearchConversionAttributionOption from: " <> x) + +instance ToHttpApiData FloodlightConfigurationNATuralSearchConversionAttributionOption where + toQueryParam = \case + ExcludeNATuralSearchConversionAttribution -> "EXCLUDE_NATURAL_SEARCH_CONVERSION_ATTRIBUTION" + IncludeNATuralSearchConversionAttribution -> "INCLUDE_NATURAL_SEARCH_CONVERSION_ATTRIBUTION" + IncludeNATuralSearchTieredConversionAttribution -> "INCLUDE_NATURAL_SEARCH_TIERED_CONVERSION_ATTRIBUTION" + +instance FromJSON FloodlightConfigurationNATuralSearchConversionAttributionOption where + parseJSON = parseJSONText "FloodlightConfigurationNATuralSearchConversionAttributionOption" + +instance ToJSON FloodlightConfigurationNATuralSearchConversionAttributionOption where + toJSON = toJSONText + +-- | Artwork type of rich media creative. This is a read-only field. +-- Applicable to the following creative types: all RICH_MEDIA. +data CreativeAssetArtworkType + = CAATArtworkTypeFlash + -- ^ @ARTWORK_TYPE_FLASH@ + | CAATArtworkTypeHTML5 + -- ^ @ARTWORK_TYPE_HTML5@ + | CAATArtworkTypeImage + -- ^ @ARTWORK_TYPE_IMAGE@ + | CAATArtworkTypeMixed + -- ^ @ARTWORK_TYPE_MIXED@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeAssetArtworkType + +instance FromHttpApiData CreativeAssetArtworkType where + parseQueryParam = \case + "ARTWORK_TYPE_FLASH" -> Right CAATArtworkTypeFlash + "ARTWORK_TYPE_HTML5" -> Right CAATArtworkTypeHTML5 + "ARTWORK_TYPE_IMAGE" -> Right CAATArtworkTypeImage + "ARTWORK_TYPE_MIXED" -> Right CAATArtworkTypeMixed + x -> Left ("Unable to parse CreativeAssetArtworkType from: " <> x) + +instance ToHttpApiData CreativeAssetArtworkType where + toQueryParam = \case + CAATArtworkTypeFlash -> "ARTWORK_TYPE_FLASH" + CAATArtworkTypeHTML5 -> "ARTWORK_TYPE_HTML5" + CAATArtworkTypeImage -> "ARTWORK_TYPE_IMAGE" + CAATArtworkTypeMixed -> "ARTWORK_TYPE_MIXED" + +instance FromJSON CreativeAssetArtworkType where + parseJSON = parseJSONText "CreativeAssetArtworkType" + +instance ToJSON CreativeAssetArtworkType where + toJSON = toJSONText + +-- | The type of custom floodlight variable to supply a value for. These map +-- to the \"u[1-20]=\" in the tags. +data CustomFloodlightVariableType + = U1 + -- ^ @U1@ + | U10 + -- ^ @U10@ + | U100 + -- ^ @U100@ + | U11 + -- ^ @U11@ + | U12 + -- ^ @U12@ + | U13 + -- ^ @U13@ + | U14 + -- ^ @U14@ + | U15 + -- ^ @U15@ + | U16 + -- ^ @U16@ + | U17 + -- ^ @U17@ + | U18 + -- ^ @U18@ + | U19 + -- ^ @U19@ + | U2 + -- ^ @U2@ + | U20 + -- ^ @U20@ + | U21 + -- ^ @U21@ + | U22 + -- ^ @U22@ + | U23 + -- ^ @U23@ + | U24 + -- ^ @U24@ + | U25 + -- ^ @U25@ + | U26 + -- ^ @U26@ + | U27 + -- ^ @U27@ + | U28 + -- ^ @U28@ + | U29 + -- ^ @U29@ + | U3 + -- ^ @U3@ + | U30 + -- ^ @U30@ + | U31 + -- ^ @U31@ + | U32 + -- ^ @U32@ + | U33 + -- ^ @U33@ + | U34 + -- ^ @U34@ + | U35 + -- ^ @U35@ + | U36 + -- ^ @U36@ + | U37 + -- ^ @U37@ + | U38 + -- ^ @U38@ + | U39 + -- ^ @U39@ + | U4 + -- ^ @U4@ + | U40 + -- ^ @U40@ + | U41 + -- ^ @U41@ + | U42 + -- ^ @U42@ + | U43 + -- ^ @U43@ + | U44 + -- ^ @U44@ + | U45 + -- ^ @U45@ + | U46 + -- ^ @U46@ + | U47 + -- ^ @U47@ + | U48 + -- ^ @U48@ + | U49 + -- ^ @U49@ + | U5 + -- ^ @U5@ + | U50 + -- ^ @U50@ + | U51 + -- ^ @U51@ + | U52 + -- ^ @U52@ + | U53 + -- ^ @U53@ + | U54 + -- ^ @U54@ + | U55 + -- ^ @U55@ + | U56 + -- ^ @U56@ + | U57 + -- ^ @U57@ + | U58 + -- ^ @U58@ + | U59 + -- ^ @U59@ + | U6 + -- ^ @U6@ + | U60 + -- ^ @U60@ + | U61 + -- ^ @U61@ + | U62 + -- ^ @U62@ + | U63 + -- ^ @U63@ + | U64 + -- ^ @U64@ + | U65 + -- ^ @U65@ + | U66 + -- ^ @U66@ + | U67 + -- ^ @U67@ + | U68 + -- ^ @U68@ + | U69 + -- ^ @U69@ + | U7 + -- ^ @U7@ + | U70 + -- ^ @U70@ + | U71 + -- ^ @U71@ + | U72 + -- ^ @U72@ + | U73 + -- ^ @U73@ + | U74 + -- ^ @U74@ + | U75 + -- ^ @U75@ + | U76 + -- ^ @U76@ + | U77 + -- ^ @U77@ + | U78 + -- ^ @U78@ + | U79 + -- ^ @U79@ + | U8 + -- ^ @U8@ + | U80 + -- ^ @U80@ + | U81 + -- ^ @U81@ + | U82 + -- ^ @U82@ + | U83 + -- ^ @U83@ + | U84 + -- ^ @U84@ + | U85 + -- ^ @U85@ + | U86 + -- ^ @U86@ + | U87 + -- ^ @U87@ + | U88 + -- ^ @U88@ + | U89 + -- ^ @U89@ + | U9 + -- ^ @U9@ + | U90 + -- ^ @U90@ + | U91 + -- ^ @U91@ + | U92 + -- ^ @U92@ + | U93 + -- ^ @U93@ + | U94 + -- ^ @U94@ + | U95 + -- ^ @U95@ + | U96 + -- ^ @U96@ + | U97 + -- ^ @U97@ + | U98 + -- ^ @U98@ + | U99 + -- ^ @U99@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CustomFloodlightVariableType + +instance FromHttpApiData CustomFloodlightVariableType where + parseQueryParam = \case + "U1" -> Right U1 + "U10" -> Right U10 + "U100" -> Right U100 + "U11" -> Right U11 + "U12" -> Right U12 + "U13" -> Right U13 + "U14" -> Right U14 + "U15" -> Right U15 + "U16" -> Right U16 + "U17" -> Right U17 + "U18" -> Right U18 + "U19" -> Right U19 + "U2" -> Right U2 + "U20" -> Right U20 + "U21" -> Right U21 + "U22" -> Right U22 + "U23" -> Right U23 + "U24" -> Right U24 + "U25" -> Right U25 + "U26" -> Right U26 + "U27" -> Right U27 + "U28" -> Right U28 + "U29" -> Right U29 + "U3" -> Right U3 + "U30" -> Right U30 + "U31" -> Right U31 + "U32" -> Right U32 + "U33" -> Right U33 + "U34" -> Right U34 + "U35" -> Right U35 + "U36" -> Right U36 + "U37" -> Right U37 + "U38" -> Right U38 + "U39" -> Right U39 + "U4" -> Right U4 + "U40" -> Right U40 + "U41" -> Right U41 + "U42" -> Right U42 + "U43" -> Right U43 + "U44" -> Right U44 + "U45" -> Right U45 + "U46" -> Right U46 + "U47" -> Right U47 + "U48" -> Right U48 + "U49" -> Right U49 + "U5" -> Right U5 + "U50" -> Right U50 + "U51" -> Right U51 + "U52" -> Right U52 + "U53" -> Right U53 + "U54" -> Right U54 + "U55" -> Right U55 + "U56" -> Right U56 + "U57" -> Right U57 + "U58" -> Right U58 + "U59" -> Right U59 + "U6" -> Right U6 + "U60" -> Right U60 + "U61" -> Right U61 + "U62" -> Right U62 + "U63" -> Right U63 + "U64" -> Right U64 + "U65" -> Right U65 + "U66" -> Right U66 + "U67" -> Right U67 + "U68" -> Right U68 + "U69" -> Right U69 + "U7" -> Right U7 + "U70" -> Right U70 + "U71" -> Right U71 + "U72" -> Right U72 + "U73" -> Right U73 + "U74" -> Right U74 + "U75" -> Right U75 + "U76" -> Right U76 + "U77" -> Right U77 + "U78" -> Right U78 + "U79" -> Right U79 + "U8" -> Right U8 + "U80" -> Right U80 + "U81" -> Right U81 + "U82" -> Right U82 + "U83" -> Right U83 + "U84" -> Right U84 + "U85" -> Right U85 + "U86" -> Right U86 + "U87" -> Right U87 + "U88" -> Right U88 + "U89" -> Right U89 + "U9" -> Right U9 + "U90" -> Right U90 + "U91" -> Right U91 + "U92" -> Right U92 + "U93" -> Right U93 + "U94" -> Right U94 + "U95" -> Right U95 + "U96" -> Right U96 + "U97" -> Right U97 + "U98" -> Right U98 + "U99" -> Right U99 + x -> Left ("Unable to parse CustomFloodlightVariableType from: " <> x) + +instance ToHttpApiData CustomFloodlightVariableType where + toQueryParam = \case + U1 -> "U1" + U10 -> "U10" + U100 -> "U100" + U11 -> "U11" + U12 -> "U12" + U13 -> "U13" + U14 -> "U14" + U15 -> "U15" + U16 -> "U16" + U17 -> "U17" + U18 -> "U18" + U19 -> "U19" + U2 -> "U2" + U20 -> "U20" + U21 -> "U21" + U22 -> "U22" + U23 -> "U23" + U24 -> "U24" + U25 -> "U25" + U26 -> "U26" + U27 -> "U27" + U28 -> "U28" + U29 -> "U29" + U3 -> "U3" + U30 -> "U30" + U31 -> "U31" + U32 -> "U32" + U33 -> "U33" + U34 -> "U34" + U35 -> "U35" + U36 -> "U36" + U37 -> "U37" + U38 -> "U38" + U39 -> "U39" + U4 -> "U4" + U40 -> "U40" + U41 -> "U41" + U42 -> "U42" + U43 -> "U43" + U44 -> "U44" + U45 -> "U45" + U46 -> "U46" + U47 -> "U47" + U48 -> "U48" + U49 -> "U49" + U5 -> "U5" + U50 -> "U50" + U51 -> "U51" + U52 -> "U52" + U53 -> "U53" + U54 -> "U54" + U55 -> "U55" + U56 -> "U56" + U57 -> "U57" + U58 -> "U58" + U59 -> "U59" + U6 -> "U6" + U60 -> "U60" + U61 -> "U61" + U62 -> "U62" + U63 -> "U63" + U64 -> "U64" + U65 -> "U65" + U66 -> "U66" + U67 -> "U67" + U68 -> "U68" + U69 -> "U69" + U7 -> "U7" + U70 -> "U70" + U71 -> "U71" + U72 -> "U72" + U73 -> "U73" + U74 -> "U74" + U75 -> "U75" + U76 -> "U76" + U77 -> "U77" + U78 -> "U78" + U79 -> "U79" + U8 -> "U8" + U80 -> "U80" + U81 -> "U81" + U82 -> "U82" + U83 -> "U83" + U84 -> "U84" + U85 -> "U85" + U86 -> "U86" + U87 -> "U87" + U88 -> "U88" + U89 -> "U89" + U9 -> "U9" + U90 -> "U90" + U91 -> "U91" + U92 -> "U92" + U93 -> "U93" + U94 -> "U94" + U95 -> "U95" + U96 -> "U96" + U97 -> "U97" + U98 -> "U98" + U99 -> "U99" + +instance FromJSON CustomFloodlightVariableType where + parseJSON = parseJSONText "CustomFloodlightVariableType" + +instance ToJSON CustomFloodlightVariableType where + toJSON = toJSONText + +-- | The error code. +data ConversionErrorCode + = Internal + -- ^ @INTERNAL@ + | InvalidArgument + -- ^ @INVALID_ARGUMENT@ + | NotFound + -- ^ @NOT_FOUND@ + | PermissionDenied + -- ^ @PERMISSION_DENIED@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ConversionErrorCode + +instance FromHttpApiData ConversionErrorCode where + parseQueryParam = \case + "INTERNAL" -> Right Internal + "INVALID_ARGUMENT" -> Right InvalidArgument + "NOT_FOUND" -> Right NotFound + "PERMISSION_DENIED" -> Right PermissionDenied + x -> Left ("Unable to parse ConversionErrorCode from: " <> x) + +instance ToHttpApiData ConversionErrorCode where + toQueryParam = \case + Internal -> "INTERNAL" + InvalidArgument -> "INVALID_ARGUMENT" + NotFound -> "NOT_FOUND" + PermissionDenied -> "PERMISSION_DENIED" + +instance FromJSON ConversionErrorCode where + parseJSON = parseJSONText "ConversionErrorCode" + +instance ToJSON ConversionErrorCode where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data FloodlightActivitiesListSortOrder + = FALSOAscending + -- ^ @ASCENDING@ + | FALSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FloodlightActivitiesListSortOrder + +instance FromHttpApiData FloodlightActivitiesListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right FALSOAscending + "DESCENDING" -> Right FALSODescending + x -> Left ("Unable to parse FloodlightActivitiesListSortOrder from: " <> x) + +instance ToHttpApiData FloodlightActivitiesListSortOrder where + toQueryParam = \case + FALSOAscending -> "ASCENDING" + FALSODescending -> "DESCENDING" + +instance FromJSON FloodlightActivitiesListSortOrder where + parseJSON = parseJSONText "FloodlightActivitiesListSortOrder" + +instance ToJSON FloodlightActivitiesListSortOrder where + toJSON = toJSONText + +-- | The output format of the report. Only available once the file is +-- available. +data FileFormat + = CSV + -- ^ @CSV@ + | Excel + -- ^ @EXCEL@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FileFormat + +instance FromHttpApiData FileFormat where + parseQueryParam = \case + "CSV" -> Right CSV + "EXCEL" -> Right Excel + x -> Left ("Unable to parse FileFormat from: " <> x) + +instance ToHttpApiData FileFormat where + toQueryParam = \case + CSV -> "CSV" + Excel -> "EXCEL" + +instance FromJSON FileFormat where + parseJSON = parseJSONText "FileFormat" + +instance ToJSON FileFormat where + toJSON = toJSONText + +-- | The encryption entity type. This should match the encryption +-- configuration for ad serving or Data Transfer. +data EncryptionInfoEncryptionEntityType + = AdwordsCustomer + -- ^ @ADWORDS_CUSTOMER@ + | DBmAdvertiser + -- ^ @DBM_ADVERTISER@ + | DBmPartner + -- ^ @DBM_PARTNER@ + | DcmAccount + -- ^ @DCM_ACCOUNT@ + | DcmAdvertiser + -- ^ @DCM_ADVERTISER@ + | EncryptionEntityTypeUnknown + -- ^ @ENCRYPTION_ENTITY_TYPE_UNKNOWN@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable EncryptionInfoEncryptionEntityType + +instance FromHttpApiData EncryptionInfoEncryptionEntityType where + parseQueryParam = \case + "ADWORDS_CUSTOMER" -> Right AdwordsCustomer + "DBM_ADVERTISER" -> Right DBmAdvertiser + "DBM_PARTNER" -> Right DBmPartner + "DCM_ACCOUNT" -> Right DcmAccount + "DCM_ADVERTISER" -> Right DcmAdvertiser + "ENCRYPTION_ENTITY_TYPE_UNKNOWN" -> Right EncryptionEntityTypeUnknown + x -> Left ("Unable to parse EncryptionInfoEncryptionEntityType from: " <> x) + +instance ToHttpApiData EncryptionInfoEncryptionEntityType where + toQueryParam = \case + AdwordsCustomer -> "ADWORDS_CUSTOMER" + DBmAdvertiser -> "DBM_ADVERTISER" + DBmPartner -> "DBM_PARTNER" + DcmAccount -> "DCM_ACCOUNT" + DcmAdvertiser -> "DCM_ADVERTISER" + EncryptionEntityTypeUnknown -> "ENCRYPTION_ENTITY_TYPE_UNKNOWN" + +instance FromJSON EncryptionInfoEncryptionEntityType where + parseJSON = parseJSONText "EncryptionInfoEncryptionEntityType" + +instance ToJSON EncryptionInfoEncryptionEntityType where + toJSON = toJSONText + +-- | Placement pricing type. This field is required on insertion. +data PricingSchedulePricingType + = PricingTypeCpa + -- ^ @PRICING_TYPE_CPA@ + | PricingTypeCpc + -- ^ @PRICING_TYPE_CPC@ + | PricingTypeCpm + -- ^ @PRICING_TYPE_CPM@ + | PricingTypeCpmActiveview + -- ^ @PRICING_TYPE_CPM_ACTIVEVIEW@ + | PricingTypeFlatRateClicks + -- ^ @PRICING_TYPE_FLAT_RATE_CLICKS@ + | PricingTypeFlatRateImpressions + -- ^ @PRICING_TYPE_FLAT_RATE_IMPRESSIONS@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PricingSchedulePricingType + +instance FromHttpApiData PricingSchedulePricingType where + parseQueryParam = \case + "PRICING_TYPE_CPA" -> Right PricingTypeCpa + "PRICING_TYPE_CPC" -> Right PricingTypeCpc + "PRICING_TYPE_CPM" -> Right PricingTypeCpm + "PRICING_TYPE_CPM_ACTIVEVIEW" -> Right PricingTypeCpmActiveview + "PRICING_TYPE_FLAT_RATE_CLICKS" -> Right PricingTypeFlatRateClicks + "PRICING_TYPE_FLAT_RATE_IMPRESSIONS" -> Right PricingTypeFlatRateImpressions + x -> Left ("Unable to parse PricingSchedulePricingType from: " <> x) + +instance ToHttpApiData PricingSchedulePricingType where + toQueryParam = \case + PricingTypeCpa -> "PRICING_TYPE_CPA" + PricingTypeCpc -> "PRICING_TYPE_CPC" + PricingTypeCpm -> "PRICING_TYPE_CPM" + PricingTypeCpmActiveview -> "PRICING_TYPE_CPM_ACTIVEVIEW" + PricingTypeFlatRateClicks -> "PRICING_TYPE_FLAT_RATE_CLICKS" + PricingTypeFlatRateImpressions -> "PRICING_TYPE_FLAT_RATE_IMPRESSIONS" + +instance FromJSON PricingSchedulePricingType where + parseJSON = parseJSONText "PricingSchedulePricingType" + +instance ToJSON PricingSchedulePricingType where + toJSON = toJSONText + +-- | Target type used by the event. +data CreativeCustomEventTargetType + = TargetBlank + -- ^ @TARGET_BLANK@ + | TargetParent + -- ^ @TARGET_PARENT@ + | TargetPopup + -- ^ @TARGET_POPUP@ + | TargetSelf + -- ^ @TARGET_SELF@ + | TargetTop + -- ^ @TARGET_TOP@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeCustomEventTargetType + +instance FromHttpApiData CreativeCustomEventTargetType where + parseQueryParam = \case + "TARGET_BLANK" -> Right TargetBlank + "TARGET_PARENT" -> Right TargetParent + "TARGET_POPUP" -> Right TargetPopup + "TARGET_SELF" -> Right TargetSelf + "TARGET_TOP" -> Right TargetTop + x -> Left ("Unable to parse CreativeCustomEventTargetType from: " <> x) + +instance ToHttpApiData CreativeCustomEventTargetType where + toQueryParam = \case + TargetBlank -> "TARGET_BLANK" + TargetParent -> "TARGET_PARENT" + TargetPopup -> "TARGET_POPUP" + TargetSelf -> "TARGET_SELF" + TargetTop -> "TARGET_TOP" + +instance FromJSON CreativeCustomEventTargetType where + parseJSON = parseJSONText "CreativeCustomEventTargetType" + +instance ToJSON CreativeCustomEventTargetType where + toJSON = toJSONText + +-- | The scope that defines which results are returned, default is \'MINE\'. +data ReportsListScope + = All + -- ^ @ALL@ + -- All reports in account. + | Mine + -- ^ @MINE@ + -- My reports. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ReportsListScope + +instance FromHttpApiData ReportsListScope where + parseQueryParam = \case + "ALL" -> Right All + "MINE" -> Right Mine + x -> Left ("Unable to parse ReportsListScope from: " <> x) + +instance ToHttpApiData ReportsListScope where + toQueryParam = \case + All -> "ALL" + Mine -> "MINE" + +instance FromJSON ReportsListScope where + parseJSON = parseJSONText "ReportsListScope" + +instance ToJSON ReportsListScope where + toJSON = toJSONText + +-- | Duration type for which an asset will be displayed. Applicable to the +-- following creative types: all RICH_MEDIA. +data CreativeAssetDurationType + = AssetDurationTypeAuto + -- ^ @ASSET_DURATION_TYPE_AUTO@ + | AssetDurationTypeCustom + -- ^ @ASSET_DURATION_TYPE_CUSTOM@ + | AssetDurationTypeNone + -- ^ @ASSET_DURATION_TYPE_NONE@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeAssetDurationType + +instance FromHttpApiData CreativeAssetDurationType where + parseQueryParam = \case + "ASSET_DURATION_TYPE_AUTO" -> Right AssetDurationTypeAuto + "ASSET_DURATION_TYPE_CUSTOM" -> Right AssetDurationTypeCustom + "ASSET_DURATION_TYPE_NONE" -> Right AssetDurationTypeNone + x -> Left ("Unable to parse CreativeAssetDurationType from: " <> x) + +instance ToHttpApiData CreativeAssetDurationType where + toQueryParam = \case + AssetDurationTypeAuto -> "ASSET_DURATION_TYPE_AUTO" + AssetDurationTypeCustom -> "ASSET_DURATION_TYPE_CUSTOM" + AssetDurationTypeNone -> "ASSET_DURATION_TYPE_NONE" + +instance FromJSON CreativeAssetDurationType where + parseJSON = parseJSONText "CreativeAssetDurationType" + +instance ToJSON CreativeAssetDurationType where + toJSON = toJSONText + +-- | Product from which this targetable remarketing list was originated. +data TargetableRemarketingListListSource + = RemarketingListSourceAdx + -- ^ @REMARKETING_LIST_SOURCE_ADX@ + | RemarketingListSourceDBm + -- ^ @REMARKETING_LIST_SOURCE_DBM@ + | RemarketingListSourceDfa + -- ^ @REMARKETING_LIST_SOURCE_DFA@ + | RemarketingListSourceDfp + -- ^ @REMARKETING_LIST_SOURCE_DFP@ + | RemarketingListSourceDmp + -- ^ @REMARKETING_LIST_SOURCE_DMP@ + | RemarketingListSourceGa + -- ^ @REMARKETING_LIST_SOURCE_GA@ + | RemarketingListSourceGplus + -- ^ @REMARKETING_LIST_SOURCE_GPLUS@ + | RemarketingListSourceOther + -- ^ @REMARKETING_LIST_SOURCE_OTHER@ + | RemarketingListSourcePlayStore + -- ^ @REMARKETING_LIST_SOURCE_PLAY_STORE@ + | RemarketingListSourceXfp + -- ^ @REMARKETING_LIST_SOURCE_XFP@ + | RemarketingListSourceYouTube + -- ^ @REMARKETING_LIST_SOURCE_YOUTUBE@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable TargetableRemarketingListListSource + +instance FromHttpApiData TargetableRemarketingListListSource where + parseQueryParam = \case + "REMARKETING_LIST_SOURCE_ADX" -> Right RemarketingListSourceAdx + "REMARKETING_LIST_SOURCE_DBM" -> Right RemarketingListSourceDBm + "REMARKETING_LIST_SOURCE_DFA" -> Right RemarketingListSourceDfa + "REMARKETING_LIST_SOURCE_DFP" -> Right RemarketingListSourceDfp + "REMARKETING_LIST_SOURCE_DMP" -> Right RemarketingListSourceDmp + "REMARKETING_LIST_SOURCE_GA" -> Right RemarketingListSourceGa + "REMARKETING_LIST_SOURCE_GPLUS" -> Right RemarketingListSourceGplus + "REMARKETING_LIST_SOURCE_OTHER" -> Right RemarketingListSourceOther + "REMARKETING_LIST_SOURCE_PLAY_STORE" -> Right RemarketingListSourcePlayStore + "REMARKETING_LIST_SOURCE_XFP" -> Right RemarketingListSourceXfp + "REMARKETING_LIST_SOURCE_YOUTUBE" -> Right RemarketingListSourceYouTube + x -> Left ("Unable to parse TargetableRemarketingListListSource from: " <> x) + +instance ToHttpApiData TargetableRemarketingListListSource where + toQueryParam = \case + RemarketingListSourceAdx -> "REMARKETING_LIST_SOURCE_ADX" + RemarketingListSourceDBm -> "REMARKETING_LIST_SOURCE_DBM" + RemarketingListSourceDfa -> "REMARKETING_LIST_SOURCE_DFA" + RemarketingListSourceDfp -> "REMARKETING_LIST_SOURCE_DFP" + RemarketingListSourceDmp -> "REMARKETING_LIST_SOURCE_DMP" + RemarketingListSourceGa -> "REMARKETING_LIST_SOURCE_GA" + RemarketingListSourceGplus -> "REMARKETING_LIST_SOURCE_GPLUS" + RemarketingListSourceOther -> "REMARKETING_LIST_SOURCE_OTHER" + RemarketingListSourcePlayStore -> "REMARKETING_LIST_SOURCE_PLAY_STORE" + RemarketingListSourceXfp -> "REMARKETING_LIST_SOURCE_XFP" + RemarketingListSourceYouTube -> "REMARKETING_LIST_SOURCE_YOUTUBE" + +instance FromJSON TargetableRemarketingListListSource where + parseJSON = parseJSONText "TargetableRemarketingListListSource" + +instance ToJSON TargetableRemarketingListListSource where + toJSON = toJSONText + +-- | Field by which to sort the list. +data CreativeGroupsListSortField + = CGLSFID + -- ^ @ID@ + | CGLSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeGroupsListSortField + +instance FromHttpApiData CreativeGroupsListSortField where + parseQueryParam = \case + "ID" -> Right CGLSFID + "NAME" -> Right CGLSFName + x -> Left ("Unable to parse CreativeGroupsListSortField from: " <> x) + +instance ToHttpApiData CreativeGroupsListSortField where + toQueryParam = \case + CGLSFID -> "ID" + CGLSFName -> "NAME" + +instance FromJSON CreativeGroupsListSortField where + parseJSON = parseJSONText "CreativeGroupsListSortField" + +instance ToJSON CreativeGroupsListSortField where + toJSON = toJSONText + +-- | Field by which to sort the list. +data PlacementsListSortField + = PLSFID + -- ^ @ID@ + | PLSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PlacementsListSortField + +instance FromHttpApiData PlacementsListSortField where + parseQueryParam = \case + "ID" -> Right PLSFID + "NAME" -> Right PLSFName + x -> Left ("Unable to parse PlacementsListSortField from: " <> x) + +instance ToHttpApiData PlacementsListSortField where + toQueryParam = \case + PLSFID -> "ID" + PLSFName -> "NAME" + +instance FromJSON PlacementsListSortField where + parseJSON = parseJSONText "PlacementsListSortField" + +instance ToJSON PlacementsListSortField where + toJSON = toJSONText + +data CreativeBackupImageFeaturesItem + = CBIFIApplicationCache + -- ^ @APPLICATION_CACHE@ + | CBIFIAudio + -- ^ @AUDIO@ + | CBIFICanvas + -- ^ @CANVAS@ + | CBIFICanvasText + -- ^ @CANVAS_TEXT@ + | CBIFICssAnimations + -- ^ @CSS_ANIMATIONS@ + | CBIFICssBackgRoundSize + -- ^ @CSS_BACKGROUND_SIZE@ + | CBIFICssBOrderImage + -- ^ @CSS_BORDER_IMAGE@ + | CBIFICssBOrderRadius + -- ^ @CSS_BORDER_RADIUS@ + | CBIFICssBoxShadow + -- ^ @CSS_BOX_SHADOW@ + | CBIFICssColumns + -- ^ @CSS_COLUMNS@ + | CBIFICssFlexBox + -- ^ @CSS_FLEX_BOX@ + | CBIFICssFontFace + -- ^ @CSS_FONT_FACE@ + | CBIFICssGeneratedContent + -- ^ @CSS_GENERATED_CONTENT@ + | CBIFICssGradients + -- ^ @CSS_GRADIENTS@ + | CBIFICssHsla + -- ^ @CSS_HSLA@ + | CBIFICssMultipleBgs + -- ^ @CSS_MULTIPLE_BGS@ + | CBIFICssOpacity + -- ^ @CSS_OPACITY@ + | CBIFICssReflections + -- ^ @CSS_REFLECTIONS@ + | CBIFICssRgba + -- ^ @CSS_RGBA@ + | CBIFICssTextShadow + -- ^ @CSS_TEXT_SHADOW@ + | CBIFICssTransforms + -- ^ @CSS_TRANSFORMS@ + | CBIFICssTRANSFORMS3D + -- ^ @CSS_TRANSFORMS3D@ + | CBIFICssTransitions + -- ^ @CSS_TRANSITIONS@ + | CBIFIDragAndDrop + -- ^ @DRAG_AND_DROP@ + | CBIFIGeoLocation + -- ^ @GEO_LOCATION@ + | CBIFIHashChange + -- ^ @HASH_CHANGE@ + | CBIFIHistory + -- ^ @HISTORY@ + | CBIFIIndexedDB + -- ^ @INDEXED_DB@ + | CBIFIInlineSvg + -- ^ @INLINE_SVG@ + | CBIFIInputAttrAutocomplete + -- ^ @INPUT_ATTR_AUTOCOMPLETE@ + | CBIFIInputAttrAutofocus + -- ^ @INPUT_ATTR_AUTOFOCUS@ + | CBIFIInputAttrList + -- ^ @INPUT_ATTR_LIST@ + | CBIFIInputAttrMax + -- ^ @INPUT_ATTR_MAX@ + | CBIFIInputAttrMin + -- ^ @INPUT_ATTR_MIN@ + | CBIFIInputAttrMultiple + -- ^ @INPUT_ATTR_MULTIPLE@ + | CBIFIInputAttrPattern + -- ^ @INPUT_ATTR_PATTERN@ + | CBIFIInputAttrPlaceholder + -- ^ @INPUT_ATTR_PLACEHOLDER@ + | CBIFIInputAttrRequired + -- ^ @INPUT_ATTR_REQUIRED@ + | CBIFIInputAttrStep + -- ^ @INPUT_ATTR_STEP@ + | CBIFIInputTypeColor + -- ^ @INPUT_TYPE_COLOR@ + | CBIFIInputTypeDate + -- ^ @INPUT_TYPE_DATE@ + | CBIFIInputTypeDatetime + -- ^ @INPUT_TYPE_DATETIME@ + | CBIFIInputTypeDatetimeLocal + -- ^ @INPUT_TYPE_DATETIME_LOCAL@ + | CBIFIInputTypeEmail + -- ^ @INPUT_TYPE_EMAIL@ + | CBIFIInputTypeMonth + -- ^ @INPUT_TYPE_MONTH@ + | CBIFIInputTypeNumber + -- ^ @INPUT_TYPE_NUMBER@ + | CBIFIInputTypeRange + -- ^ @INPUT_TYPE_RANGE@ + | CBIFIInputTypeSearch + -- ^ @INPUT_TYPE_SEARCH@ + | CBIFIInputTypeTel + -- ^ @INPUT_TYPE_TEL@ + | CBIFIInputTypeTime + -- ^ @INPUT_TYPE_TIME@ + | CBIFIInputTypeURL + -- ^ @INPUT_TYPE_URL@ + | CBIFIInputTypeWeek + -- ^ @INPUT_TYPE_WEEK@ + | CBIFILocalStorage + -- ^ @LOCAL_STORAGE@ + | CBIFIPostMessage + -- ^ @POST_MESSAGE@ + | CBIFISessionStorage + -- ^ @SESSION_STORAGE@ + | CBIFISmil + -- ^ @SMIL@ + | CBIFISvgClipPaths + -- ^ @SVG_CLIP_PATHS@ + | CBIFISvgFeImage + -- ^ @SVG_FE_IMAGE@ + | CBIFISvgFilters + -- ^ @SVG_FILTERS@ + | CBIFISvgHref + -- ^ @SVG_HREF@ + | CBIFITouch + -- ^ @TOUCH@ + | CBIFIVideo + -- ^ @VIDEO@ + | CBIFIWebgl + -- ^ @WEBGL@ + | CBIFIWebSockets + -- ^ @WEB_SOCKETS@ + | CBIFIWebSQLDatabase + -- ^ @WEB_SQL_DATABASE@ + | CBIFIWebWorkers + -- ^ @WEB_WORKERS@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeBackupImageFeaturesItem + +instance FromHttpApiData CreativeBackupImageFeaturesItem where + parseQueryParam = \case + "APPLICATION_CACHE" -> Right CBIFIApplicationCache + "AUDIO" -> Right CBIFIAudio + "CANVAS" -> Right CBIFICanvas + "CANVAS_TEXT" -> Right CBIFICanvasText + "CSS_ANIMATIONS" -> Right CBIFICssAnimations + "CSS_BACKGROUND_SIZE" -> Right CBIFICssBackgRoundSize + "CSS_BORDER_IMAGE" -> Right CBIFICssBOrderImage + "CSS_BORDER_RADIUS" -> Right CBIFICssBOrderRadius + "CSS_BOX_SHADOW" -> Right CBIFICssBoxShadow + "CSS_COLUMNS" -> Right CBIFICssColumns + "CSS_FLEX_BOX" -> Right CBIFICssFlexBox + "CSS_FONT_FACE" -> Right CBIFICssFontFace + "CSS_GENERATED_CONTENT" -> Right CBIFICssGeneratedContent + "CSS_GRADIENTS" -> Right CBIFICssGradients + "CSS_HSLA" -> Right CBIFICssHsla + "CSS_MULTIPLE_BGS" -> Right CBIFICssMultipleBgs + "CSS_OPACITY" -> Right CBIFICssOpacity + "CSS_REFLECTIONS" -> Right CBIFICssReflections + "CSS_RGBA" -> Right CBIFICssRgba + "CSS_TEXT_SHADOW" -> Right CBIFICssTextShadow + "CSS_TRANSFORMS" -> Right CBIFICssTransforms + "CSS_TRANSFORMS3D" -> Right CBIFICssTRANSFORMS3D + "CSS_TRANSITIONS" -> Right CBIFICssTransitions + "DRAG_AND_DROP" -> Right CBIFIDragAndDrop + "GEO_LOCATION" -> Right CBIFIGeoLocation + "HASH_CHANGE" -> Right CBIFIHashChange + "HISTORY" -> Right CBIFIHistory + "INDEXED_DB" -> Right CBIFIIndexedDB + "INLINE_SVG" -> Right CBIFIInlineSvg + "INPUT_ATTR_AUTOCOMPLETE" -> Right CBIFIInputAttrAutocomplete + "INPUT_ATTR_AUTOFOCUS" -> Right CBIFIInputAttrAutofocus + "INPUT_ATTR_LIST" -> Right CBIFIInputAttrList + "INPUT_ATTR_MAX" -> Right CBIFIInputAttrMax + "INPUT_ATTR_MIN" -> Right CBIFIInputAttrMin + "INPUT_ATTR_MULTIPLE" -> Right CBIFIInputAttrMultiple + "INPUT_ATTR_PATTERN" -> Right CBIFIInputAttrPattern + "INPUT_ATTR_PLACEHOLDER" -> Right CBIFIInputAttrPlaceholder + "INPUT_ATTR_REQUIRED" -> Right CBIFIInputAttrRequired + "INPUT_ATTR_STEP" -> Right CBIFIInputAttrStep + "INPUT_TYPE_COLOR" -> Right CBIFIInputTypeColor + "INPUT_TYPE_DATE" -> Right CBIFIInputTypeDate + "INPUT_TYPE_DATETIME" -> Right CBIFIInputTypeDatetime + "INPUT_TYPE_DATETIME_LOCAL" -> Right CBIFIInputTypeDatetimeLocal + "INPUT_TYPE_EMAIL" -> Right CBIFIInputTypeEmail + "INPUT_TYPE_MONTH" -> Right CBIFIInputTypeMonth + "INPUT_TYPE_NUMBER" -> Right CBIFIInputTypeNumber + "INPUT_TYPE_RANGE" -> Right CBIFIInputTypeRange + "INPUT_TYPE_SEARCH" -> Right CBIFIInputTypeSearch + "INPUT_TYPE_TEL" -> Right CBIFIInputTypeTel + "INPUT_TYPE_TIME" -> Right CBIFIInputTypeTime + "INPUT_TYPE_URL" -> Right CBIFIInputTypeURL + "INPUT_TYPE_WEEK" -> Right CBIFIInputTypeWeek + "LOCAL_STORAGE" -> Right CBIFILocalStorage + "POST_MESSAGE" -> Right CBIFIPostMessage + "SESSION_STORAGE" -> Right CBIFISessionStorage + "SMIL" -> Right CBIFISmil + "SVG_CLIP_PATHS" -> Right CBIFISvgClipPaths + "SVG_FE_IMAGE" -> Right CBIFISvgFeImage + "SVG_FILTERS" -> Right CBIFISvgFilters + "SVG_HREF" -> Right CBIFISvgHref + "TOUCH" -> Right CBIFITouch + "VIDEO" -> Right CBIFIVideo + "WEBGL" -> Right CBIFIWebgl + "WEB_SOCKETS" -> Right CBIFIWebSockets + "WEB_SQL_DATABASE" -> Right CBIFIWebSQLDatabase + "WEB_WORKERS" -> Right CBIFIWebWorkers + x -> Left ("Unable to parse CreativeBackupImageFeaturesItem from: " <> x) + +instance ToHttpApiData CreativeBackupImageFeaturesItem where + toQueryParam = \case + CBIFIApplicationCache -> "APPLICATION_CACHE" + CBIFIAudio -> "AUDIO" + CBIFICanvas -> "CANVAS" + CBIFICanvasText -> "CANVAS_TEXT" + CBIFICssAnimations -> "CSS_ANIMATIONS" + CBIFICssBackgRoundSize -> "CSS_BACKGROUND_SIZE" + CBIFICssBOrderImage -> "CSS_BORDER_IMAGE" + CBIFICssBOrderRadius -> "CSS_BORDER_RADIUS" + CBIFICssBoxShadow -> "CSS_BOX_SHADOW" + CBIFICssColumns -> "CSS_COLUMNS" + CBIFICssFlexBox -> "CSS_FLEX_BOX" + CBIFICssFontFace -> "CSS_FONT_FACE" + CBIFICssGeneratedContent -> "CSS_GENERATED_CONTENT" + CBIFICssGradients -> "CSS_GRADIENTS" + CBIFICssHsla -> "CSS_HSLA" + CBIFICssMultipleBgs -> "CSS_MULTIPLE_BGS" + CBIFICssOpacity -> "CSS_OPACITY" + CBIFICssReflections -> "CSS_REFLECTIONS" + CBIFICssRgba -> "CSS_RGBA" + CBIFICssTextShadow -> "CSS_TEXT_SHADOW" + CBIFICssTransforms -> "CSS_TRANSFORMS" + CBIFICssTRANSFORMS3D -> "CSS_TRANSFORMS3D" + CBIFICssTransitions -> "CSS_TRANSITIONS" + CBIFIDragAndDrop -> "DRAG_AND_DROP" + CBIFIGeoLocation -> "GEO_LOCATION" + CBIFIHashChange -> "HASH_CHANGE" + CBIFIHistory -> "HISTORY" + CBIFIIndexedDB -> "INDEXED_DB" + CBIFIInlineSvg -> "INLINE_SVG" + CBIFIInputAttrAutocomplete -> "INPUT_ATTR_AUTOCOMPLETE" + CBIFIInputAttrAutofocus -> "INPUT_ATTR_AUTOFOCUS" + CBIFIInputAttrList -> "INPUT_ATTR_LIST" + CBIFIInputAttrMax -> "INPUT_ATTR_MAX" + CBIFIInputAttrMin -> "INPUT_ATTR_MIN" + CBIFIInputAttrMultiple -> "INPUT_ATTR_MULTIPLE" + CBIFIInputAttrPattern -> "INPUT_ATTR_PATTERN" + CBIFIInputAttrPlaceholder -> "INPUT_ATTR_PLACEHOLDER" + CBIFIInputAttrRequired -> "INPUT_ATTR_REQUIRED" + CBIFIInputAttrStep -> "INPUT_ATTR_STEP" + CBIFIInputTypeColor -> "INPUT_TYPE_COLOR" + CBIFIInputTypeDate -> "INPUT_TYPE_DATE" + CBIFIInputTypeDatetime -> "INPUT_TYPE_DATETIME" + CBIFIInputTypeDatetimeLocal -> "INPUT_TYPE_DATETIME_LOCAL" + CBIFIInputTypeEmail -> "INPUT_TYPE_EMAIL" + CBIFIInputTypeMonth -> "INPUT_TYPE_MONTH" + CBIFIInputTypeNumber -> "INPUT_TYPE_NUMBER" + CBIFIInputTypeRange -> "INPUT_TYPE_RANGE" + CBIFIInputTypeSearch -> "INPUT_TYPE_SEARCH" + CBIFIInputTypeTel -> "INPUT_TYPE_TEL" + CBIFIInputTypeTime -> "INPUT_TYPE_TIME" + CBIFIInputTypeURL -> "INPUT_TYPE_URL" + CBIFIInputTypeWeek -> "INPUT_TYPE_WEEK" + CBIFILocalStorage -> "LOCAL_STORAGE" + CBIFIPostMessage -> "POST_MESSAGE" + CBIFISessionStorage -> "SESSION_STORAGE" + CBIFISmil -> "SMIL" + CBIFISvgClipPaths -> "SVG_CLIP_PATHS" + CBIFISvgFeImage -> "SVG_FE_IMAGE" + CBIFISvgFilters -> "SVG_FILTERS" + CBIFISvgHref -> "SVG_HREF" + CBIFITouch -> "TOUCH" + CBIFIVideo -> "VIDEO" + CBIFIWebgl -> "WEBGL" + CBIFIWebSockets -> "WEB_SOCKETS" + CBIFIWebSQLDatabase -> "WEB_SQL_DATABASE" + CBIFIWebWorkers -> "WEB_WORKERS" + +instance FromJSON CreativeBackupImageFeaturesItem where + parseJSON = parseJSONText "CreativeBackupImageFeaturesItem" + +instance ToJSON CreativeBackupImageFeaturesItem where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data AdvertisersListSortOrder + = ALSOAscending + -- ^ @ASCENDING@ + | ALSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AdvertisersListSortOrder + +instance FromHttpApiData AdvertisersListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right ALSOAscending + "DESCENDING" -> Right ALSODescending + x -> Left ("Unable to parse AdvertisersListSortOrder from: " <> x) + +instance ToHttpApiData AdvertisersListSortOrder where + toQueryParam = \case + ALSOAscending -> "ASCENDING" + ALSODescending -> "DESCENDING" + +instance FromJSON AdvertisersListSortOrder where + parseJSON = parseJSONText "AdvertisersListSortOrder" + +instance ToJSON AdvertisersListSortOrder where + toJSON = toJSONText + +-- | Field by which to sort the list. +data TargetingTemplatesListSortField + = TTLSFID + -- ^ @ID@ + | TTLSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable TargetingTemplatesListSortField + +instance FromHttpApiData TargetingTemplatesListSortField where + parseQueryParam = \case + "ID" -> Right TTLSFID + "NAME" -> Right TTLSFName + x -> Left ("Unable to parse TargetingTemplatesListSortField from: " <> x) + +instance ToHttpApiData TargetingTemplatesListSortField where + toQueryParam = \case + TTLSFID -> "ID" + TTLSFName -> "NAME" + +instance FromJSON TargetingTemplatesListSortField where + parseJSON = parseJSONText "TargetingTemplatesListSortField" + +instance ToJSON TargetingTemplatesListSortField where + toJSON = toJSONText + +-- | Field by which to sort the list. +data CreativeFieldsListSortField + = CFLSFID + -- ^ @ID@ + | CFLSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeFieldsListSortField + +instance FromHttpApiData CreativeFieldsListSortField where + parseQueryParam = \case + "ID" -> Right CFLSFID + "NAME" -> Right CFLSFName + x -> Left ("Unable to parse CreativeFieldsListSortField from: " <> x) + +instance ToHttpApiData CreativeFieldsListSortField where + toQueryParam = \case + CFLSFID -> "ID" + CFLSFName -> "NAME" + +instance FromJSON CreativeFieldsListSortField where + parseJSON = parseJSONText "CreativeFieldsListSortField" + +instance ToJSON CreativeFieldsListSortField where + toJSON = toJSONText + +-- | Variable name in the tag. This is a required field. +data UserDefinedVariableConfigurationVariableType + = UDVCVTU1 + -- ^ @U1@ + | UDVCVTU10 + -- ^ @U10@ + | UDVCVTU100 + -- ^ @U100@ + | UDVCVTU11 + -- ^ @U11@ + | UDVCVTU12 + -- ^ @U12@ + | UDVCVTU13 + -- ^ @U13@ + | UDVCVTU14 + -- ^ @U14@ + | UDVCVTU15 + -- ^ @U15@ + | UDVCVTU16 + -- ^ @U16@ + | UDVCVTU17 + -- ^ @U17@ + | UDVCVTU18 + -- ^ @U18@ + | UDVCVTU19 + -- ^ @U19@ + | UDVCVTU2 + -- ^ @U2@ + | UDVCVTU20 + -- ^ @U20@ + | UDVCVTU21 + -- ^ @U21@ + | UDVCVTU22 + -- ^ @U22@ + | UDVCVTU23 + -- ^ @U23@ + | UDVCVTU24 + -- ^ @U24@ + | UDVCVTU25 + -- ^ @U25@ + | UDVCVTU26 + -- ^ @U26@ + | UDVCVTU27 + -- ^ @U27@ + | UDVCVTU28 + -- ^ @U28@ + | UDVCVTU29 + -- ^ @U29@ + | UDVCVTU3 + -- ^ @U3@ + | UDVCVTU30 + -- ^ @U30@ + | UDVCVTU31 + -- ^ @U31@ + | UDVCVTU32 + -- ^ @U32@ + | UDVCVTU33 + -- ^ @U33@ + | UDVCVTU34 + -- ^ @U34@ + | UDVCVTU35 + -- ^ @U35@ + | UDVCVTU36 + -- ^ @U36@ + | UDVCVTU37 + -- ^ @U37@ + | UDVCVTU38 + -- ^ @U38@ + | UDVCVTU39 + -- ^ @U39@ + | UDVCVTU4 + -- ^ @U4@ + | UDVCVTU40 + -- ^ @U40@ + | UDVCVTU41 + -- ^ @U41@ + | UDVCVTU42 + -- ^ @U42@ + | UDVCVTU43 + -- ^ @U43@ + | UDVCVTU44 + -- ^ @U44@ + | UDVCVTU45 + -- ^ @U45@ + | UDVCVTU46 + -- ^ @U46@ + | UDVCVTU47 + -- ^ @U47@ + | UDVCVTU48 + -- ^ @U48@ + | UDVCVTU49 + -- ^ @U49@ + | UDVCVTU5 + -- ^ @U5@ + | UDVCVTU50 + -- ^ @U50@ + | UDVCVTU51 + -- ^ @U51@ + | UDVCVTU52 + -- ^ @U52@ + | UDVCVTU53 + -- ^ @U53@ + | UDVCVTU54 + -- ^ @U54@ + | UDVCVTU55 + -- ^ @U55@ + | UDVCVTU56 + -- ^ @U56@ + | UDVCVTU57 + -- ^ @U57@ + | UDVCVTU58 + -- ^ @U58@ + | UDVCVTU59 + -- ^ @U59@ + | UDVCVTU6 + -- ^ @U6@ + | UDVCVTU60 + -- ^ @U60@ + | UDVCVTU61 + -- ^ @U61@ + | UDVCVTU62 + -- ^ @U62@ + | UDVCVTU63 + -- ^ @U63@ + | UDVCVTU64 + -- ^ @U64@ + | UDVCVTU65 + -- ^ @U65@ + | UDVCVTU66 + -- ^ @U66@ + | UDVCVTU67 + -- ^ @U67@ + | UDVCVTU68 + -- ^ @U68@ + | UDVCVTU69 + -- ^ @U69@ + | UDVCVTU7 + -- ^ @U7@ + | UDVCVTU70 + -- ^ @U70@ + | UDVCVTU71 + -- ^ @U71@ + | UDVCVTU72 + -- ^ @U72@ + | UDVCVTU73 + -- ^ @U73@ + | UDVCVTU74 + -- ^ @U74@ + | UDVCVTU75 + -- ^ @U75@ + | UDVCVTU76 + -- ^ @U76@ + | UDVCVTU77 + -- ^ @U77@ + | UDVCVTU78 + -- ^ @U78@ + | UDVCVTU79 + -- ^ @U79@ + | UDVCVTU8 + -- ^ @U8@ + | UDVCVTU80 + -- ^ @U80@ + | UDVCVTU81 + -- ^ @U81@ + | UDVCVTU82 + -- ^ @U82@ + | UDVCVTU83 + -- ^ @U83@ + | UDVCVTU84 + -- ^ @U84@ + | UDVCVTU85 + -- ^ @U85@ + | UDVCVTU86 + -- ^ @U86@ + | UDVCVTU87 + -- ^ @U87@ + | UDVCVTU88 + -- ^ @U88@ + | UDVCVTU89 + -- ^ @U89@ + | UDVCVTU9 + -- ^ @U9@ + | UDVCVTU90 + -- ^ @U90@ + | UDVCVTU91 + -- ^ @U91@ + | UDVCVTU92 + -- ^ @U92@ + | UDVCVTU93 + -- ^ @U93@ + | UDVCVTU94 + -- ^ @U94@ + | UDVCVTU95 + -- ^ @U95@ + | UDVCVTU96 + -- ^ @U96@ + | UDVCVTU97 + -- ^ @U97@ + | UDVCVTU98 + -- ^ @U98@ + | UDVCVTU99 + -- ^ @U99@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable UserDefinedVariableConfigurationVariableType + +instance FromHttpApiData UserDefinedVariableConfigurationVariableType where + parseQueryParam = \case + "U1" -> Right UDVCVTU1 + "U10" -> Right UDVCVTU10 + "U100" -> Right UDVCVTU100 + "U11" -> Right UDVCVTU11 + "U12" -> Right UDVCVTU12 + "U13" -> Right UDVCVTU13 + "U14" -> Right UDVCVTU14 + "U15" -> Right UDVCVTU15 + "U16" -> Right UDVCVTU16 + "U17" -> Right UDVCVTU17 + "U18" -> Right UDVCVTU18 + "U19" -> Right UDVCVTU19 + "U2" -> Right UDVCVTU2 + "U20" -> Right UDVCVTU20 + "U21" -> Right UDVCVTU21 + "U22" -> Right UDVCVTU22 + "U23" -> Right UDVCVTU23 + "U24" -> Right UDVCVTU24 + "U25" -> Right UDVCVTU25 + "U26" -> Right UDVCVTU26 + "U27" -> Right UDVCVTU27 + "U28" -> Right UDVCVTU28 + "U29" -> Right UDVCVTU29 + "U3" -> Right UDVCVTU3 + "U30" -> Right UDVCVTU30 + "U31" -> Right UDVCVTU31 + "U32" -> Right UDVCVTU32 + "U33" -> Right UDVCVTU33 + "U34" -> Right UDVCVTU34 + "U35" -> Right UDVCVTU35 + "U36" -> Right UDVCVTU36 + "U37" -> Right UDVCVTU37 + "U38" -> Right UDVCVTU38 + "U39" -> Right UDVCVTU39 + "U4" -> Right UDVCVTU4 + "U40" -> Right UDVCVTU40 + "U41" -> Right UDVCVTU41 + "U42" -> Right UDVCVTU42 + "U43" -> Right UDVCVTU43 + "U44" -> Right UDVCVTU44 + "U45" -> Right UDVCVTU45 + "U46" -> Right UDVCVTU46 + "U47" -> Right UDVCVTU47 + "U48" -> Right UDVCVTU48 + "U49" -> Right UDVCVTU49 + "U5" -> Right UDVCVTU5 + "U50" -> Right UDVCVTU50 + "U51" -> Right UDVCVTU51 + "U52" -> Right UDVCVTU52 + "U53" -> Right UDVCVTU53 + "U54" -> Right UDVCVTU54 + "U55" -> Right UDVCVTU55 + "U56" -> Right UDVCVTU56 + "U57" -> Right UDVCVTU57 + "U58" -> Right UDVCVTU58 + "U59" -> Right UDVCVTU59 + "U6" -> Right UDVCVTU6 + "U60" -> Right UDVCVTU60 + "U61" -> Right UDVCVTU61 + "U62" -> Right UDVCVTU62 + "U63" -> Right UDVCVTU63 + "U64" -> Right UDVCVTU64 + "U65" -> Right UDVCVTU65 + "U66" -> Right UDVCVTU66 + "U67" -> Right UDVCVTU67 + "U68" -> Right UDVCVTU68 + "U69" -> Right UDVCVTU69 + "U7" -> Right UDVCVTU7 + "U70" -> Right UDVCVTU70 + "U71" -> Right UDVCVTU71 + "U72" -> Right UDVCVTU72 + "U73" -> Right UDVCVTU73 + "U74" -> Right UDVCVTU74 + "U75" -> Right UDVCVTU75 + "U76" -> Right UDVCVTU76 + "U77" -> Right UDVCVTU77 + "U78" -> Right UDVCVTU78 + "U79" -> Right UDVCVTU79 + "U8" -> Right UDVCVTU8 + "U80" -> Right UDVCVTU80 + "U81" -> Right UDVCVTU81 + "U82" -> Right UDVCVTU82 + "U83" -> Right UDVCVTU83 + "U84" -> Right UDVCVTU84 + "U85" -> Right UDVCVTU85 + "U86" -> Right UDVCVTU86 + "U87" -> Right UDVCVTU87 + "U88" -> Right UDVCVTU88 + "U89" -> Right UDVCVTU89 + "U9" -> Right UDVCVTU9 + "U90" -> Right UDVCVTU90 + "U91" -> Right UDVCVTU91 + "U92" -> Right UDVCVTU92 + "U93" -> Right UDVCVTU93 + "U94" -> Right UDVCVTU94 + "U95" -> Right UDVCVTU95 + "U96" -> Right UDVCVTU96 + "U97" -> Right UDVCVTU97 + "U98" -> Right UDVCVTU98 + "U99" -> Right UDVCVTU99 + x -> Left ("Unable to parse UserDefinedVariableConfigurationVariableType from: " <> x) + +instance ToHttpApiData UserDefinedVariableConfigurationVariableType where + toQueryParam = \case + UDVCVTU1 -> "U1" + UDVCVTU10 -> "U10" + UDVCVTU100 -> "U100" + UDVCVTU11 -> "U11" + UDVCVTU12 -> "U12" + UDVCVTU13 -> "U13" + UDVCVTU14 -> "U14" + UDVCVTU15 -> "U15" + UDVCVTU16 -> "U16" + UDVCVTU17 -> "U17" + UDVCVTU18 -> "U18" + UDVCVTU19 -> "U19" + UDVCVTU2 -> "U2" + UDVCVTU20 -> "U20" + UDVCVTU21 -> "U21" + UDVCVTU22 -> "U22" + UDVCVTU23 -> "U23" + UDVCVTU24 -> "U24" + UDVCVTU25 -> "U25" + UDVCVTU26 -> "U26" + UDVCVTU27 -> "U27" + UDVCVTU28 -> "U28" + UDVCVTU29 -> "U29" + UDVCVTU3 -> "U3" + UDVCVTU30 -> "U30" + UDVCVTU31 -> "U31" + UDVCVTU32 -> "U32" + UDVCVTU33 -> "U33" + UDVCVTU34 -> "U34" + UDVCVTU35 -> "U35" + UDVCVTU36 -> "U36" + UDVCVTU37 -> "U37" + UDVCVTU38 -> "U38" + UDVCVTU39 -> "U39" + UDVCVTU4 -> "U4" + UDVCVTU40 -> "U40" + UDVCVTU41 -> "U41" + UDVCVTU42 -> "U42" + UDVCVTU43 -> "U43" + UDVCVTU44 -> "U44" + UDVCVTU45 -> "U45" + UDVCVTU46 -> "U46" + UDVCVTU47 -> "U47" + UDVCVTU48 -> "U48" + UDVCVTU49 -> "U49" + UDVCVTU5 -> "U5" + UDVCVTU50 -> "U50" + UDVCVTU51 -> "U51" + UDVCVTU52 -> "U52" + UDVCVTU53 -> "U53" + UDVCVTU54 -> "U54" + UDVCVTU55 -> "U55" + UDVCVTU56 -> "U56" + UDVCVTU57 -> "U57" + UDVCVTU58 -> "U58" + UDVCVTU59 -> "U59" + UDVCVTU6 -> "U6" + UDVCVTU60 -> "U60" + UDVCVTU61 -> "U61" + UDVCVTU62 -> "U62" + UDVCVTU63 -> "U63" + UDVCVTU64 -> "U64" + UDVCVTU65 -> "U65" + UDVCVTU66 -> "U66" + UDVCVTU67 -> "U67" + UDVCVTU68 -> "U68" + UDVCVTU69 -> "U69" + UDVCVTU7 -> "U7" + UDVCVTU70 -> "U70" + UDVCVTU71 -> "U71" + UDVCVTU72 -> "U72" + UDVCVTU73 -> "U73" + UDVCVTU74 -> "U74" + UDVCVTU75 -> "U75" + UDVCVTU76 -> "U76" + UDVCVTU77 -> "U77" + UDVCVTU78 -> "U78" + UDVCVTU79 -> "U79" + UDVCVTU8 -> "U8" + UDVCVTU80 -> "U80" + UDVCVTU81 -> "U81" + UDVCVTU82 -> "U82" + UDVCVTU83 -> "U83" + UDVCVTU84 -> "U84" + UDVCVTU85 -> "U85" + UDVCVTU86 -> "U86" + UDVCVTU87 -> "U87" + UDVCVTU88 -> "U88" + UDVCVTU89 -> "U89" + UDVCVTU9 -> "U9" + UDVCVTU90 -> "U90" + UDVCVTU91 -> "U91" + UDVCVTU92 -> "U92" + UDVCVTU93 -> "U93" + UDVCVTU94 -> "U94" + UDVCVTU95 -> "U95" + UDVCVTU96 -> "U96" + UDVCVTU97 -> "U97" + UDVCVTU98 -> "U98" + UDVCVTU99 -> "U99" + +instance FromJSON UserDefinedVariableConfigurationVariableType where + parseJSON = parseJSONText "UserDefinedVariableConfigurationVariableType" + +instance ToJSON UserDefinedVariableConfigurationVariableType where + toJSON = toJSONText + +-- | Position in the browser where the window will open. +data FsCommandPositionOption + = Centered + -- ^ @CENTERED@ + | DistanceFromTopLeftCorner + -- ^ @DISTANCE_FROM_TOP_LEFT_CORNER@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FsCommandPositionOption + +instance FromHttpApiData FsCommandPositionOption where + parseQueryParam = \case + "CENTERED" -> Right Centered + "DISTANCE_FROM_TOP_LEFT_CORNER" -> Right DistanceFromTopLeftCorner + x -> Left ("Unable to parse FsCommandPositionOption from: " <> x) + +instance ToHttpApiData FsCommandPositionOption where + toQueryParam = \case + Centered -> "CENTERED" + DistanceFromTopLeftCorner -> "DISTANCE_FROM_TOP_LEFT_CORNER" + +instance FromJSON FsCommandPositionOption where + parseJSON = parseJSONText "FsCommandPositionOption" + +instance ToJSON FsCommandPositionOption where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data UserRolesListSortOrder + = URLSOAscending + -- ^ @ASCENDING@ + | URLSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable UserRolesListSortOrder + +instance FromHttpApiData UserRolesListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right URLSOAscending + "DESCENDING" -> Right URLSODescending + x -> Left ("Unable to parse UserRolesListSortOrder from: " <> x) + +instance ToHttpApiData UserRolesListSortOrder where + toQueryParam = \case + URLSOAscending -> "ASCENDING" + URLSODescending -> "DESCENDING" + +instance FromJSON UserRolesListSortOrder where + parseJSON = parseJSONText "UserRolesListSortOrder" + +instance ToJSON UserRolesListSortOrder where + toJSON = toJSONText + +-- | Select only placements that are associated with these compatibilities. +-- DISPLAY and DISPLAY_INTERSTITIAL refer to rendering either on desktop or +-- on mobile devices for regular or interstitial ads respectively. APP and +-- APP_INTERSTITIAL are for rendering in mobile apps. IN_STREAM_VIDEO +-- refers to rendering in in-stream video ads developed with the VAST +-- standard. +data PlacementsListCompatibilities + = PLCApp + -- ^ @APP@ + | PLCAppInterstitial + -- ^ @APP_INTERSTITIAL@ + | PLCDisplay + -- ^ @DISPLAY@ + | PLCDisplayInterstitial + -- ^ @DISPLAY_INTERSTITIAL@ + | PLCInStreamVideo + -- ^ @IN_STREAM_VIDEO@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PlacementsListCompatibilities + +instance FromHttpApiData PlacementsListCompatibilities where + parseQueryParam = \case + "APP" -> Right PLCApp + "APP_INTERSTITIAL" -> Right PLCAppInterstitial + "DISPLAY" -> Right PLCDisplay + "DISPLAY_INTERSTITIAL" -> Right PLCDisplayInterstitial + "IN_STREAM_VIDEO" -> Right PLCInStreamVideo + x -> Left ("Unable to parse PlacementsListCompatibilities from: " <> x) + +instance ToHttpApiData PlacementsListCompatibilities where + toQueryParam = \case + PLCApp -> "APP" + PLCAppInterstitial -> "APP_INTERSTITIAL" + PLCDisplay -> "DISPLAY" + PLCDisplayInterstitial -> "DISPLAY_INTERSTITIAL" + PLCInStreamVideo -> "IN_STREAM_VIDEO" + +instance FromJSON PlacementsListCompatibilities where + parseJSON = parseJSONText "PlacementsListCompatibilities" + +instance ToJSON PlacementsListCompatibilities where + toJSON = toJSONText + +-- | Field by which to sort the list. +data OrderDocumentsListSortField + = ODLSFID + -- ^ @ID@ + | ODLSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable OrderDocumentsListSortField + +instance FromHttpApiData OrderDocumentsListSortField where + parseQueryParam = \case + "ID" -> Right ODLSFID + "NAME" -> Right ODLSFName + x -> Left ("Unable to parse OrderDocumentsListSortField from: " <> x) + +instance ToHttpApiData OrderDocumentsListSortField where + toQueryParam = \case + ODLSFID -> "ID" + ODLSFName -> "NAME" + +instance FromJSON OrderDocumentsListSortField where + parseJSON = parseJSONText "OrderDocumentsListSortField" + +instance ToJSON OrderDocumentsListSortField where + toJSON = toJSONText + +data CreativeCompatibilityItem + = CCIApp + -- ^ @APP@ + | CCIAppInterstitial + -- ^ @APP_INTERSTITIAL@ + | CCIDisplay + -- ^ @DISPLAY@ + | CCIDisplayInterstitial + -- ^ @DISPLAY_INTERSTITIAL@ + | CCIInStreamVideo + -- ^ @IN_STREAM_VIDEO@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeCompatibilityItem + +instance FromHttpApiData CreativeCompatibilityItem where + parseQueryParam = \case + "APP" -> Right CCIApp + "APP_INTERSTITIAL" -> Right CCIAppInterstitial + "DISPLAY" -> Right CCIDisplay + "DISPLAY_INTERSTITIAL" -> Right CCIDisplayInterstitial + "IN_STREAM_VIDEO" -> Right CCIInStreamVideo + x -> Left ("Unable to parse CreativeCompatibilityItem from: " <> x) + +instance ToHttpApiData CreativeCompatibilityItem where + toQueryParam = \case + CCIApp -> "APP" + CCIAppInterstitial -> "APP_INTERSTITIAL" + CCIDisplay -> "DISPLAY" + CCIDisplayInterstitial -> "DISPLAY_INTERSTITIAL" + CCIInStreamVideo -> "IN_STREAM_VIDEO" + +instance FromJSON CreativeCompatibilityItem where + parseJSON = parseJSONText "CreativeCompatibilityItem" + +instance ToJSON CreativeCompatibilityItem where + toJSON = toJSONText + +-- | The type of delivery for the owner to receive, if enabled. +data ReportDeliveryEmailOwnerDeliveryType + = RDEODTAttachment + -- ^ @ATTACHMENT@ + | RDEODTLink + -- ^ @LINK@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ReportDeliveryEmailOwnerDeliveryType + +instance FromHttpApiData ReportDeliveryEmailOwnerDeliveryType where + parseQueryParam = \case + "ATTACHMENT" -> Right RDEODTAttachment + "LINK" -> Right RDEODTLink + x -> Left ("Unable to parse ReportDeliveryEmailOwnerDeliveryType from: " <> x) + +instance ToHttpApiData ReportDeliveryEmailOwnerDeliveryType where + toQueryParam = \case + RDEODTAttachment -> "ATTACHMENT" + RDEODTLink -> "LINK" + +instance FromJSON ReportDeliveryEmailOwnerDeliveryType where + parseJSON = parseJSONText "ReportDeliveryEmailOwnerDeliveryType" + +instance ToJSON ReportDeliveryEmailOwnerDeliveryType where + toJSON = toJSONText + +-- | Site contact type. +data SiteContactContactType + = SalesPerson + -- ^ @SALES_PERSON@ + | Trafficker + -- ^ @TRAFFICKER@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable SiteContactContactType + +instance FromHttpApiData SiteContactContactType where + parseQueryParam = \case + "SALES_PERSON" -> Right SalesPerson + "TRAFFICKER" -> Right Trafficker + x -> Left ("Unable to parse SiteContactContactType from: " <> x) + +instance ToHttpApiData SiteContactContactType where + toQueryParam = \case + SalesPerson -> "SALES_PERSON" + Trafficker -> "TRAFFICKER" + +instance FromJSON SiteContactContactType where + parseJSON = parseJSONText "SiteContactContactType" + +instance ToJSON SiteContactContactType where + toJSON = toJSONText + +-- | Order of sorted results, default is \'DESCENDING\'. +data ReportsListSortOrder + = RLSOAscending + -- ^ @ASCENDING@ + -- Ascending order. + | RLSODescending + -- ^ @DESCENDING@ + -- Descending order. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ReportsListSortOrder + +instance FromHttpApiData ReportsListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right RLSOAscending + "DESCENDING" -> Right RLSODescending + x -> Left ("Unable to parse ReportsListSortOrder from: " <> x) + +instance ToHttpApiData ReportsListSortOrder where + toQueryParam = \case + RLSOAscending -> "ASCENDING" + RLSODescending -> "DESCENDING" + +instance FromJSON ReportsListSortOrder where + parseJSON = parseJSONText "ReportsListSortOrder" + +instance ToJSON ReportsListSortOrder where + toJSON = toJSONText + +-- | Field by which to sort the list. +data TargetableRemarketingListsListSortField + = TRLLSFID + -- ^ @ID@ + | TRLLSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable TargetableRemarketingListsListSortField + +instance FromHttpApiData TargetableRemarketingListsListSortField where + parseQueryParam = \case + "ID" -> Right TRLLSFID + "NAME" -> Right TRLLSFName + x -> Left ("Unable to parse TargetableRemarketingListsListSortField from: " <> x) + +instance ToHttpApiData TargetableRemarketingListsListSortField where + toQueryParam = \case + TRLLSFID -> "ID" + TRLLSFName -> "NAME" + +instance FromJSON TargetableRemarketingListsListSortField where + parseJSON = parseJSONText "TargetableRemarketingListsListSortField" + +instance ToJSON TargetableRemarketingListsListSortField where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data CampaignsListSortOrder + = CLSOAscending + -- ^ @ASCENDING@ + | CLSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CampaignsListSortOrder + +instance FromHttpApiData CampaignsListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right CLSOAscending + "DESCENDING" -> Right CLSODescending + x -> Left ("Unable to parse CampaignsListSortOrder from: " <> x) + +instance ToHttpApiData CampaignsListSortOrder where + toQueryParam = \case + CLSOAscending -> "ASCENDING" + CLSODescending -> "DESCENDING" + +instance FromJSON CampaignsListSortOrder where + parseJSON = parseJSONText "CampaignsListSortOrder" + +instance ToJSON CampaignsListSortOrder where + toJSON = toJSONText + +-- | Select only floodlight activity groups with the specified floodlight +-- activity group type. +data FloodlightActivityGroupsListType + = Counter + -- ^ @COUNTER@ + | Sale + -- ^ @SALE@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FloodlightActivityGroupsListType + +instance FromHttpApiData FloodlightActivityGroupsListType where + parseQueryParam = \case + "COUNTER" -> Right Counter + "SALE" -> Right Sale + x -> Left ("Unable to parse FloodlightActivityGroupsListType from: " <> x) + +instance ToHttpApiData FloodlightActivityGroupsListType where + toQueryParam = \case + Counter -> "COUNTER" + Sale -> "SALE" + +instance FromJSON FloodlightActivityGroupsListType where + parseJSON = parseJSONText "FloodlightActivityGroupsListType" + +instance ToJSON FloodlightActivityGroupsListType where + toJSON = toJSONText + +-- | Day that will be counted as the first day of the week in reports. This +-- is a required field. +data FloodlightConfigurationFirstDayOfWeek + = Monday + -- ^ @MONDAY@ + | Sunday + -- ^ @SUNDAY@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FloodlightConfigurationFirstDayOfWeek + +instance FromHttpApiData FloodlightConfigurationFirstDayOfWeek where + parseQueryParam = \case + "MONDAY" -> Right Monday + "SUNDAY" -> Right Sunday + x -> Left ("Unable to parse FloodlightConfigurationFirstDayOfWeek from: " <> x) + +instance ToHttpApiData FloodlightConfigurationFirstDayOfWeek where + toQueryParam = \case + Monday -> "MONDAY" + Sunday -> "SUNDAY" + +instance FromJSON FloodlightConfigurationFirstDayOfWeek where + parseJSON = parseJSONText "FloodlightConfigurationFirstDayOfWeek" + +instance ToJSON FloodlightConfigurationFirstDayOfWeek where + toJSON = toJSONText + +-- | Serving priority of an ad, with respect to other ads. The lower the +-- priority number, the greater the priority with which it is served. +data DeliverySchedulePriority + = AdPriority01 + -- ^ @AD_PRIORITY_01@ + | AdPriority02 + -- ^ @AD_PRIORITY_02@ + | AdPriority03 + -- ^ @AD_PRIORITY_03@ + | AdPriority04 + -- ^ @AD_PRIORITY_04@ + | AdPriority05 + -- ^ @AD_PRIORITY_05@ + | AdPriority06 + -- ^ @AD_PRIORITY_06@ + | AdPriority07 + -- ^ @AD_PRIORITY_07@ + | AdPriority08 + -- ^ @AD_PRIORITY_08@ + | AdPriority09 + -- ^ @AD_PRIORITY_09@ + | AdPriority10 + -- ^ @AD_PRIORITY_10@ + | AdPriority11 + -- ^ @AD_PRIORITY_11@ + | AdPriority12 + -- ^ @AD_PRIORITY_12@ + | AdPriority13 + -- ^ @AD_PRIORITY_13@ + | AdPriority14 + -- ^ @AD_PRIORITY_14@ + | AdPriority15 + -- ^ @AD_PRIORITY_15@ + | AdPriority16 + -- ^ @AD_PRIORITY_16@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable DeliverySchedulePriority + +instance FromHttpApiData DeliverySchedulePriority where + parseQueryParam = \case + "AD_PRIORITY_01" -> Right AdPriority01 + "AD_PRIORITY_02" -> Right AdPriority02 + "AD_PRIORITY_03" -> Right AdPriority03 + "AD_PRIORITY_04" -> Right AdPriority04 + "AD_PRIORITY_05" -> Right AdPriority05 + "AD_PRIORITY_06" -> Right AdPriority06 + "AD_PRIORITY_07" -> Right AdPriority07 + "AD_PRIORITY_08" -> Right AdPriority08 + "AD_PRIORITY_09" -> Right AdPriority09 + "AD_PRIORITY_10" -> Right AdPriority10 + "AD_PRIORITY_11" -> Right AdPriority11 + "AD_PRIORITY_12" -> Right AdPriority12 + "AD_PRIORITY_13" -> Right AdPriority13 + "AD_PRIORITY_14" -> Right AdPriority14 + "AD_PRIORITY_15" -> Right AdPriority15 + "AD_PRIORITY_16" -> Right AdPriority16 + x -> Left ("Unable to parse DeliverySchedulePriority from: " <> x) + +instance ToHttpApiData DeliverySchedulePriority where + toQueryParam = \case + AdPriority01 -> "AD_PRIORITY_01" + AdPriority02 -> "AD_PRIORITY_02" + AdPriority03 -> "AD_PRIORITY_03" + AdPriority04 -> "AD_PRIORITY_04" + AdPriority05 -> "AD_PRIORITY_05" + AdPriority06 -> "AD_PRIORITY_06" + AdPriority07 -> "AD_PRIORITY_07" + AdPriority08 -> "AD_PRIORITY_08" + AdPriority09 -> "AD_PRIORITY_09" + AdPriority10 -> "AD_PRIORITY_10" + AdPriority11 -> "AD_PRIORITY_11" + AdPriority12 -> "AD_PRIORITY_12" + AdPriority13 -> "AD_PRIORITY_13" + AdPriority14 -> "AD_PRIORITY_14" + AdPriority15 -> "AD_PRIORITY_15" + AdPriority16 -> "AD_PRIORITY_16" + +instance FromJSON DeliverySchedulePriority where + parseJSON = parseJSONText "DeliverySchedulePriority" + +instance ToJSON DeliverySchedulePriority where + toJSON = toJSONText + +-- | Select only floodlight activities with the specified floodlight activity +-- group type. +data FloodlightActivitiesListFloodlightActivityGroupType + = FALFAGTCounter + -- ^ @COUNTER@ + | FALFAGTSale + -- ^ @SALE@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FloodlightActivitiesListFloodlightActivityGroupType + +instance FromHttpApiData FloodlightActivitiesListFloodlightActivityGroupType where + parseQueryParam = \case + "COUNTER" -> Right FALFAGTCounter + "SALE" -> Right FALFAGTSale + x -> Left ("Unable to parse FloodlightActivitiesListFloodlightActivityGroupType from: " <> x) + +instance ToHttpApiData FloodlightActivitiesListFloodlightActivityGroupType where + toQueryParam = \case + FALFAGTCounter -> "COUNTER" + FALFAGTSale -> "SALE" + +instance FromJSON FloodlightActivitiesListFloodlightActivityGroupType where + parseJSON = parseJSONText "FloodlightActivitiesListFloodlightActivityGroupType" + +instance ToJSON FloodlightActivitiesListFloodlightActivityGroupType where + toJSON = toJSONText + +-- | Source application where creative was authored. Presently, only DBM +-- authored creatives will have this field set. Applicable to all creative +-- types. +data CreativeAuthoringSource + = CreativeAuthoringSourceDBm + -- ^ @CREATIVE_AUTHORING_SOURCE_DBM@ + | CreativeAuthoringSourceDcm + -- ^ @CREATIVE_AUTHORING_SOURCE_DCM@ + | CreativeAuthoringSourceStudio + -- ^ @CREATIVE_AUTHORING_SOURCE_STUDIO@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeAuthoringSource + +instance FromHttpApiData CreativeAuthoringSource where + parseQueryParam = \case + "CREATIVE_AUTHORING_SOURCE_DBM" -> Right CreativeAuthoringSourceDBm + "CREATIVE_AUTHORING_SOURCE_DCM" -> Right CreativeAuthoringSourceDcm + "CREATIVE_AUTHORING_SOURCE_STUDIO" -> Right CreativeAuthoringSourceStudio + x -> Left ("Unable to parse CreativeAuthoringSource from: " <> x) + +instance ToHttpApiData CreativeAuthoringSource where + toQueryParam = \case + CreativeAuthoringSourceDBm -> "CREATIVE_AUTHORING_SOURCE_DBM" + CreativeAuthoringSourceDcm -> "CREATIVE_AUTHORING_SOURCE_DCM" + CreativeAuthoringSourceStudio -> "CREATIVE_AUTHORING_SOURCE_STUDIO" + +instance FromJSON CreativeAuthoringSource where + parseJSON = parseJSONText "CreativeAuthoringSource" + +instance ToJSON CreativeAuthoringSource where + toJSON = toJSONText + +data FloodlightConfigurationStandardVariableTypesItem + = Num + -- ^ @NUM@ + | Ord + -- ^ @ORD@ + | Tran + -- ^ @TRAN@ + | U + -- ^ @U@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FloodlightConfigurationStandardVariableTypesItem + +instance FromHttpApiData FloodlightConfigurationStandardVariableTypesItem where + parseQueryParam = \case + "NUM" -> Right Num + "ORD" -> Right Ord + "TRAN" -> Right Tran + "U" -> Right U + x -> Left ("Unable to parse FloodlightConfigurationStandardVariableTypesItem from: " <> x) + +instance ToHttpApiData FloodlightConfigurationStandardVariableTypesItem where + toQueryParam = \case + Num -> "NUM" + Ord -> "ORD" + Tran -> "TRAN" + U -> "U" + +instance FromJSON FloodlightConfigurationStandardVariableTypesItem where + parseJSON = parseJSONText "FloodlightConfigurationStandardVariableTypesItem" + +instance ToJSON FloodlightConfigurationStandardVariableTypesItem where + toJSON = toJSONText + +-- | Payment source for this placement. This is a required field that is +-- read-only after insertion. +data PlacementPaymentSource + = PPSPlacementAgencyPaid + -- ^ @PLACEMENT_AGENCY_PAID@ + | PPSPlacementPublisherPaid + -- ^ @PLACEMENT_PUBLISHER_PAID@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PlacementPaymentSource + +instance FromHttpApiData PlacementPaymentSource where + parseQueryParam = \case + "PLACEMENT_AGENCY_PAID" -> Right PPSPlacementAgencyPaid + "PLACEMENT_PUBLISHER_PAID" -> Right PPSPlacementPublisherPaid + x -> Left ("Unable to parse PlacementPaymentSource from: " <> x) + +instance ToHttpApiData PlacementPaymentSource where + toQueryParam = \case + PPSPlacementAgencyPaid -> "PLACEMENT_AGENCY_PAID" + PPSPlacementPublisherPaid -> "PLACEMENT_PUBLISHER_PAID" + +instance FromJSON PlacementPaymentSource where + parseJSON = parseJSONText "PlacementPaymentSource" + +instance ToJSON PlacementPaymentSource where + toJSON = toJSONText + +-- | Order of sorted results, default is \'DESCENDING\'. +data ReportsFilesListSortOrder + = RFLSOAscending + -- ^ @ASCENDING@ + -- Ascending order. + | RFLSODescending + -- ^ @DESCENDING@ + -- Descending order. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ReportsFilesListSortOrder + +instance FromHttpApiData ReportsFilesListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right RFLSOAscending + "DESCENDING" -> Right RFLSODescending + x -> Left ("Unable to parse ReportsFilesListSortOrder from: " <> x) + +instance ToHttpApiData ReportsFilesListSortOrder where + toQueryParam = \case + RFLSOAscending -> "ASCENDING" + RFLSODescending -> "DESCENDING" + +instance FromJSON ReportsFilesListSortOrder where + parseJSON = parseJSONText "ReportsFilesListSortOrder" + +instance ToJSON ReportsFilesListSortOrder where + toJSON = toJSONText + +-- | Field by which to sort the list. +data InventoryItemsListSortField + = IILSFID + -- ^ @ID@ + | IILSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable InventoryItemsListSortField + +instance FromHttpApiData InventoryItemsListSortField where + parseQueryParam = \case + "ID" -> Right IILSFID + "NAME" -> Right IILSFName + x -> Left ("Unable to parse InventoryItemsListSortField from: " <> x) + +instance ToHttpApiData InventoryItemsListSortField where + toQueryParam = \case + IILSFID -> "ID" + IILSFName -> "NAME" + +instance FromJSON InventoryItemsListSortField where + parseJSON = parseJSONText "InventoryItemsListSortField" + +instance ToJSON InventoryItemsListSortField where + toJSON = toJSONText + +-- | Event tag type. Can be used to specify whether to use a third-party +-- pixel, a third-party JavaScript URL, or a third-party click-through URL +-- for either impression or click tracking. This is a required field. +data EventTagType + = ETTClickThroughEventTag + -- ^ @CLICK_THROUGH_EVENT_TAG@ + | ETTImpressionImageEventTag + -- ^ @IMPRESSION_IMAGE_EVENT_TAG@ + | ETTImpressionJavascriptEventTag + -- ^ @IMPRESSION_JAVASCRIPT_EVENT_TAG@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable EventTagType + +instance FromHttpApiData EventTagType where + parseQueryParam = \case + "CLICK_THROUGH_EVENT_TAG" -> Right ETTClickThroughEventTag + "IMPRESSION_IMAGE_EVENT_TAG" -> Right ETTImpressionImageEventTag + "IMPRESSION_JAVASCRIPT_EVENT_TAG" -> Right ETTImpressionJavascriptEventTag + x -> Left ("Unable to parse EventTagType from: " <> x) + +instance ToHttpApiData EventTagType where + toQueryParam = \case + ETTClickThroughEventTag -> "CLICK_THROUGH_EVENT_TAG" + ETTImpressionImageEventTag -> "IMPRESSION_IMAGE_EVENT_TAG" + ETTImpressionJavascriptEventTag -> "IMPRESSION_JAVASCRIPT_EVENT_TAG" + +instance FromJSON EventTagType where + parseJSON = parseJSONText "EventTagType" + +instance ToJSON EventTagType where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data CreativesListSortOrder + = CAscending + -- ^ @ASCENDING@ + | CDescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativesListSortOrder + +instance FromHttpApiData CreativesListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right CAscending + "DESCENDING" -> Right CDescending + x -> Left ("Unable to parse CreativesListSortOrder from: " <> x) + +instance ToHttpApiData CreativesListSortOrder where + toQueryParam = \case + CAscending -> "ASCENDING" + CDescending -> "DESCENDING" + +instance FromJSON CreativesListSortOrder where + parseJSON = parseJSONText "CreativesListSortOrder" + +instance ToJSON CreativesListSortOrder where + toJSON = toJSONText + +-- | Select only inventory items with this type. +data InventoryItemsListType + = PlanningPlacementTypeCredit + -- ^ @PLANNING_PLACEMENT_TYPE_CREDIT@ + | PlanningPlacementTypeRegular + -- ^ @PLANNING_PLACEMENT_TYPE_REGULAR@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable InventoryItemsListType + +instance FromHttpApiData InventoryItemsListType where + parseQueryParam = \case + "PLANNING_PLACEMENT_TYPE_CREDIT" -> Right PlanningPlacementTypeCredit + "PLANNING_PLACEMENT_TYPE_REGULAR" -> Right PlanningPlacementTypeRegular + x -> Left ("Unable to parse InventoryItemsListType from: " <> x) + +instance ToHttpApiData InventoryItemsListType where + toQueryParam = \case + PlanningPlacementTypeCredit -> "PLANNING_PLACEMENT_TYPE_CREDIT" + PlanningPlacementTypeRegular -> "PLANNING_PLACEMENT_TYPE_REGULAR" + +instance FromJSON InventoryItemsListType where + parseJSON = parseJSONText "InventoryItemsListType" + +instance ToJSON InventoryItemsListType where + toJSON = toJSONText + +-- | Popup window position either centered or at specific coordinate. +data PopupWindowPropertiesPositionType + = Center + -- ^ @CENTER@ + | Coordinates + -- ^ @COORDINATES@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PopupWindowPropertiesPositionType + +instance FromHttpApiData PopupWindowPropertiesPositionType where + parseQueryParam = \case + "CENTER" -> Right Center + "COORDINATES" -> Right Coordinates + x -> Left ("Unable to parse PopupWindowPropertiesPositionType from: " <> x) + +instance ToHttpApiData PopupWindowPropertiesPositionType where + toQueryParam = \case + Center -> "CENTER" + Coordinates -> "COORDINATES" + +instance FromJSON PopupWindowPropertiesPositionType where + parseJSON = parseJSONText "PopupWindowPropertiesPositionType" + +instance ToJSON PopupWindowPropertiesPositionType where + toJSON = toJSONText + +-- | Directory site contact role. +data DirectorySiteContactRole + = Admin + -- ^ @ADMIN@ + | Edit + -- ^ @EDIT@ + | View + -- ^ @VIEW@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable DirectorySiteContactRole + +instance FromHttpApiData DirectorySiteContactRole where + parseQueryParam = \case + "ADMIN" -> Right Admin + "EDIT" -> Right Edit + "VIEW" -> Right View + x -> Left ("Unable to parse DirectorySiteContactRole from: " <> x) + +instance ToHttpApiData DirectorySiteContactRole where + toQueryParam = \case + Admin -> "ADMIN" + Edit -> "EDIT" + View -> "VIEW" + +instance FromJSON DirectorySiteContactRole where + parseJSON = parseJSONText "DirectorySiteContactRole" + +instance ToJSON DirectorySiteContactRole where + toJSON = toJSONText + +-- | Option specifying how keywords are embedded in ad tags. This setting can +-- be used to specify whether keyword placeholders are inserted in +-- placement tags for this site. Publishers can then add keywords to those +-- placeholders. +data TagSettingKeywordOption + = GenerateSeparateTagForEachKeyword + -- ^ @GENERATE_SEPARATE_TAG_FOR_EACH_KEYWORD@ + | Ignore + -- ^ @IGNORE@ + | PlaceholderWithListOfKeywords + -- ^ @PLACEHOLDER_WITH_LIST_OF_KEYWORDS@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable TagSettingKeywordOption + +instance FromHttpApiData TagSettingKeywordOption where + parseQueryParam = \case + "GENERATE_SEPARATE_TAG_FOR_EACH_KEYWORD" -> Right GenerateSeparateTagForEachKeyword + "IGNORE" -> Right Ignore + "PLACEHOLDER_WITH_LIST_OF_KEYWORDS" -> Right PlaceholderWithListOfKeywords + x -> Left ("Unable to parse TagSettingKeywordOption from: " <> x) + +instance ToHttpApiData TagSettingKeywordOption where + toQueryParam = \case + GenerateSeparateTagForEachKeyword -> "GENERATE_SEPARATE_TAG_FOR_EACH_KEYWORD" + Ignore -> "IGNORE" + PlaceholderWithListOfKeywords -> "PLACEHOLDER_WITH_LIST_OF_KEYWORDS" + +instance FromJSON TagSettingKeywordOption where + parseJSON = parseJSONText "TagSettingKeywordOption" + +instance ToJSON TagSettingKeywordOption where + toJSON = toJSONText + +-- | Authoring tool for HTML5 banner creatives. This is a read-only field. +-- Applicable to the following creative types: HTML5_BANNER. +data CreativeAuthoringTool + = Ninja + -- ^ @NINJA@ + | Swiffy + -- ^ @SWIFFY@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeAuthoringTool + +instance FromHttpApiData CreativeAuthoringTool where + parseQueryParam = \case + "NINJA" -> Right Ninja + "SWIFFY" -> Right Swiffy + x -> Left ("Unable to parse CreativeAuthoringTool from: " <> x) + +instance ToHttpApiData CreativeAuthoringTool where + toQueryParam = \case + Ninja -> "NINJA" + Swiffy -> "SWIFFY" + +instance FromJSON CreativeAuthoringTool where + parseJSON = parseJSONText "CreativeAuthoringTool" + +instance ToJSON CreativeAuthoringTool where + toJSON = toJSONText + +-- | Type of this contact. +data OrderContactContactType + = PlanningOrderContactBuyerBillingContact + -- ^ @PLANNING_ORDER_CONTACT_BUYER_BILLING_CONTACT@ + | PlanningOrderContactBuyerContact + -- ^ @PLANNING_ORDER_CONTACT_BUYER_CONTACT@ + | PlanningOrderContactSellerContact + -- ^ @PLANNING_ORDER_CONTACT_SELLER_CONTACT@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable OrderContactContactType + +instance FromHttpApiData OrderContactContactType where + parseQueryParam = \case + "PLANNING_ORDER_CONTACT_BUYER_BILLING_CONTACT" -> Right PlanningOrderContactBuyerBillingContact + "PLANNING_ORDER_CONTACT_BUYER_CONTACT" -> Right PlanningOrderContactBuyerContact + "PLANNING_ORDER_CONTACT_SELLER_CONTACT" -> Right PlanningOrderContactSellerContact + x -> Left ("Unable to parse OrderContactContactType from: " <> x) + +instance ToHttpApiData OrderContactContactType where + toQueryParam = \case + PlanningOrderContactBuyerBillingContact -> "PLANNING_ORDER_CONTACT_BUYER_BILLING_CONTACT" + PlanningOrderContactBuyerContact -> "PLANNING_ORDER_CONTACT_BUYER_CONTACT" + PlanningOrderContactSellerContact -> "PLANNING_ORDER_CONTACT_SELLER_CONTACT" + +instance FromJSON OrderContactContactType where + parseJSON = parseJSONText "OrderContactContactType" + +instance ToJSON OrderContactContactType where + toJSON = toJSONText + +-- | Type of asset to upload. This is a required field. FLASH and IMAGE are +-- no longer supported for new uploads. All image assets should use +-- HTML_IMAGE. +data CreativeAssetIdType + = CAITFlash + -- ^ @FLASH@ + | CAITHTML + -- ^ @HTML@ + | CAITHTMLImage + -- ^ @HTML_IMAGE@ + | CAITImage + -- ^ @IMAGE@ + | CAITVideo + -- ^ @VIDEO@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeAssetIdType + +instance FromHttpApiData CreativeAssetIdType where + parseQueryParam = \case + "FLASH" -> Right CAITFlash + "HTML" -> Right CAITHTML + "HTML_IMAGE" -> Right CAITHTMLImage + "IMAGE" -> Right CAITImage + "VIDEO" -> Right CAITVideo + x -> Left ("Unable to parse CreativeAssetIdType from: " <> x) + +instance ToHttpApiData CreativeAssetIdType where + toQueryParam = \case + CAITFlash -> "FLASH" + CAITHTML -> "HTML" + CAITHTMLImage -> "HTML_IMAGE" + CAITImage -> "IMAGE" + CAITVideo -> "VIDEO" + +instance FromJSON CreativeAssetIdType where + parseJSON = parseJSONText "CreativeAssetIdType" + +instance ToJSON CreativeAssetIdType where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data AccountUserProFilesListSortOrder + = AUPFLSOAscending + -- ^ @ASCENDING@ + | AUPFLSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AccountUserProFilesListSortOrder + +instance FromHttpApiData AccountUserProFilesListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right AUPFLSOAscending + "DESCENDING" -> Right AUPFLSODescending + x -> Left ("Unable to parse AccountUserProFilesListSortOrder from: " <> x) + +instance ToHttpApiData AccountUserProFilesListSortOrder where + toQueryParam = \case + AUPFLSOAscending -> "ASCENDING" + AUPFLSODescending -> "DESCENDING" + +instance FromJSON AccountUserProFilesListSortOrder where + parseJSON = parseJSONText "AccountUserProFilesListSortOrder" + +instance ToJSON AccountUserProFilesListSortOrder where + toJSON = toJSONText + +-- | Product from which this remarketing list was originated. +data RemarketingListListSource + = RLLSRemarketingListSourceAdx + -- ^ @REMARKETING_LIST_SOURCE_ADX@ + | RLLSRemarketingListSourceDBm + -- ^ @REMARKETING_LIST_SOURCE_DBM@ + | RLLSRemarketingListSourceDfa + -- ^ @REMARKETING_LIST_SOURCE_DFA@ + | RLLSRemarketingListSourceDfp + -- ^ @REMARKETING_LIST_SOURCE_DFP@ + | RLLSRemarketingListSourceDmp + -- ^ @REMARKETING_LIST_SOURCE_DMP@ + | RLLSRemarketingListSourceGa + -- ^ @REMARKETING_LIST_SOURCE_GA@ + | RLLSRemarketingListSourceGplus + -- ^ @REMARKETING_LIST_SOURCE_GPLUS@ + | RLLSRemarketingListSourceOther + -- ^ @REMARKETING_LIST_SOURCE_OTHER@ + | RLLSRemarketingListSourcePlayStore + -- ^ @REMARKETING_LIST_SOURCE_PLAY_STORE@ + | RLLSRemarketingListSourceXfp + -- ^ @REMARKETING_LIST_SOURCE_XFP@ + | RLLSRemarketingListSourceYouTube + -- ^ @REMARKETING_LIST_SOURCE_YOUTUBE@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable RemarketingListListSource + +instance FromHttpApiData RemarketingListListSource where + parseQueryParam = \case + "REMARKETING_LIST_SOURCE_ADX" -> Right RLLSRemarketingListSourceAdx + "REMARKETING_LIST_SOURCE_DBM" -> Right RLLSRemarketingListSourceDBm + "REMARKETING_LIST_SOURCE_DFA" -> Right RLLSRemarketingListSourceDfa + "REMARKETING_LIST_SOURCE_DFP" -> Right RLLSRemarketingListSourceDfp + "REMARKETING_LIST_SOURCE_DMP" -> Right RLLSRemarketingListSourceDmp + "REMARKETING_LIST_SOURCE_GA" -> Right RLLSRemarketingListSourceGa + "REMARKETING_LIST_SOURCE_GPLUS" -> Right RLLSRemarketingListSourceGplus + "REMARKETING_LIST_SOURCE_OTHER" -> Right RLLSRemarketingListSourceOther + "REMARKETING_LIST_SOURCE_PLAY_STORE" -> Right RLLSRemarketingListSourcePlayStore + "REMARKETING_LIST_SOURCE_XFP" -> Right RLLSRemarketingListSourceXfp + "REMARKETING_LIST_SOURCE_YOUTUBE" -> Right RLLSRemarketingListSourceYouTube + x -> Left ("Unable to parse RemarketingListListSource from: " <> x) + +instance ToHttpApiData RemarketingListListSource where + toQueryParam = \case + RLLSRemarketingListSourceAdx -> "REMARKETING_LIST_SOURCE_ADX" + RLLSRemarketingListSourceDBm -> "REMARKETING_LIST_SOURCE_DBM" + RLLSRemarketingListSourceDfa -> "REMARKETING_LIST_SOURCE_DFA" + RLLSRemarketingListSourceDfp -> "REMARKETING_LIST_SOURCE_DFP" + RLLSRemarketingListSourceDmp -> "REMARKETING_LIST_SOURCE_DMP" + RLLSRemarketingListSourceGa -> "REMARKETING_LIST_SOURCE_GA" + RLLSRemarketingListSourceGplus -> "REMARKETING_LIST_SOURCE_GPLUS" + RLLSRemarketingListSourceOther -> "REMARKETING_LIST_SOURCE_OTHER" + RLLSRemarketingListSourcePlayStore -> "REMARKETING_LIST_SOURCE_PLAY_STORE" + RLLSRemarketingListSourceXfp -> "REMARKETING_LIST_SOURCE_XFP" + RLLSRemarketingListSourceYouTube -> "REMARKETING_LIST_SOURCE_YOUTUBE" + +instance FromJSON RemarketingListListSource where + parseJSON = parseJSONText "RemarketingListListSource" + +instance ToJSON RemarketingListListSource where + toJSON = toJSONText + +-- | User type of the user profile. This is a read-only field that can be +-- left blank. +data AccountUserProFileUserAccessType + = InternalAdministrator + -- ^ @INTERNAL_ADMINISTRATOR@ + | NormalUser + -- ^ @NORMAL_USER@ + | ReadOnlySuperUser + -- ^ @READ_ONLY_SUPER_USER@ + | SuperUser + -- ^ @SUPER_USER@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AccountUserProFileUserAccessType + +instance FromHttpApiData AccountUserProFileUserAccessType where + parseQueryParam = \case + "INTERNAL_ADMINISTRATOR" -> Right InternalAdministrator + "NORMAL_USER" -> Right NormalUser + "READ_ONLY_SUPER_USER" -> Right ReadOnlySuperUser + "SUPER_USER" -> Right SuperUser + x -> Left ("Unable to parse AccountUserProFileUserAccessType from: " <> x) + +instance ToHttpApiData AccountUserProFileUserAccessType where + toQueryParam = \case + InternalAdministrator -> "INTERNAL_ADMINISTRATOR" + NormalUser -> "NORMAL_USER" + ReadOnlySuperUser -> "READ_ONLY_SUPER_USER" + SuperUser -> "SUPER_USER" + +instance FromJSON AccountUserProFileUserAccessType where + parseJSON = parseJSONText "AccountUserProFileUserAccessType" + +instance ToJSON AccountUserProFileUserAccessType where + toJSON = toJSONText + +-- | Initial wait time type before making the asset visible. Applicable to +-- the following creative types: all RICH_MEDIA. +data CreativeAssetStartTimeType + = AssetStartTimeTypeCustom + -- ^ @ASSET_START_TIME_TYPE_CUSTOM@ + | AssetStartTimeTypeNone + -- ^ @ASSET_START_TIME_TYPE_NONE@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeAssetStartTimeType + +instance FromHttpApiData CreativeAssetStartTimeType where + parseQueryParam = \case + "ASSET_START_TIME_TYPE_CUSTOM" -> Right AssetStartTimeTypeCustom + "ASSET_START_TIME_TYPE_NONE" -> Right AssetStartTimeTypeNone + x -> Left ("Unable to parse CreativeAssetStartTimeType from: " <> x) + +instance ToHttpApiData CreativeAssetStartTimeType where + toQueryParam = \case + AssetStartTimeTypeCustom -> "ASSET_START_TIME_TYPE_CUSTOM" + AssetStartTimeTypeNone -> "ASSET_START_TIME_TYPE_NONE" + +instance FromJSON CreativeAssetStartTimeType where + parseJSON = parseJSONText "CreativeAssetStartTimeType" + +instance ToJSON CreativeAssetStartTimeType where + toJSON = toJSONText + +-- | Audience gender of this project. +data ProjectAudienceGender + = PlanningAudienceGenderFemale + -- ^ @PLANNING_AUDIENCE_GENDER_FEMALE@ + | PlanningAudienceGenderMale + -- ^ @PLANNING_AUDIENCE_GENDER_MALE@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ProjectAudienceGender + +instance FromHttpApiData ProjectAudienceGender where + parseQueryParam = \case + "PLANNING_AUDIENCE_GENDER_FEMALE" -> Right PlanningAudienceGenderFemale + "PLANNING_AUDIENCE_GENDER_MALE" -> Right PlanningAudienceGenderMale + x -> Left ("Unable to parse ProjectAudienceGender from: " <> x) + +instance ToHttpApiData ProjectAudienceGender where + toQueryParam = \case + PlanningAudienceGenderFemale -> "PLANNING_AUDIENCE_GENDER_FEMALE" + PlanningAudienceGenderMale -> "PLANNING_AUDIENCE_GENDER_MALE" + +instance FromJSON ProjectAudienceGender where + parseJSON = parseJSONText "ProjectAudienceGender" + +instance ToJSON ProjectAudienceGender where + toJSON = toJSONText + +-- | Field by which to sort the list. +data PlacementStrategiesListSortField + = PSLSFID + -- ^ @ID@ + | PSLSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PlacementStrategiesListSortField + +instance FromHttpApiData PlacementStrategiesListSortField where + parseQueryParam = \case + "ID" -> Right PSLSFID + "NAME" -> Right PSLSFName + x -> Left ("Unable to parse PlacementStrategiesListSortField from: " <> x) + +instance ToHttpApiData PlacementStrategiesListSortField where + toQueryParam = \case + PSLSFID -> "ID" + PSLSFName -> "NAME" + +instance FromJSON PlacementStrategiesListSortField where + parseJSON = parseJSONText "PlacementStrategiesListSortField" + +instance ToJSON PlacementStrategiesListSortField where + toJSON = toJSONText + +-- | Data type for the variable. This is a required field. +data UserDefinedVariableConfigurationDataType + = Number + -- ^ @NUMBER@ + | String + -- ^ @STRING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable UserDefinedVariableConfigurationDataType + +instance FromHttpApiData UserDefinedVariableConfigurationDataType where + parseQueryParam = \case + "NUMBER" -> Right Number + "STRING" -> Right String + x -> Left ("Unable to parse UserDefinedVariableConfigurationDataType from: " <> x) + +instance ToHttpApiData UserDefinedVariableConfigurationDataType where + toQueryParam = \case + Number -> "NUMBER" + String -> "STRING" + +instance FromJSON UserDefinedVariableConfigurationDataType where + parseJSON = parseJSONText "UserDefinedVariableConfigurationDataType" + +instance ToJSON UserDefinedVariableConfigurationDataType where + toJSON = toJSONText + +-- | Code type used for cache busting in the generated tag. +data FloodlightActivityCacheBustingType + = ActiveServerPage + -- ^ @ACTIVE_SERVER_PAGE@ + | ColdFusion + -- ^ @COLD_FUSION@ + | Javascript + -- ^ @JAVASCRIPT@ + | Jsp + -- ^ @JSP@ + | Php + -- ^ @PHP@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FloodlightActivityCacheBustingType + +instance FromHttpApiData FloodlightActivityCacheBustingType where + parseQueryParam = \case + "ACTIVE_SERVER_PAGE" -> Right ActiveServerPage + "COLD_FUSION" -> Right ColdFusion + "JAVASCRIPT" -> Right Javascript + "JSP" -> Right Jsp + "PHP" -> Right Php + x -> Left ("Unable to parse FloodlightActivityCacheBustingType from: " <> x) + +instance ToHttpApiData FloodlightActivityCacheBustingType where + toQueryParam = \case + ActiveServerPage -> "ACTIVE_SERVER_PAGE" + ColdFusion -> "COLD_FUSION" + Javascript -> "JAVASCRIPT" + Jsp -> "JSP" + Php -> "PHP" + +instance FromJSON FloodlightActivityCacheBustingType where + parseJSON = parseJSONText "FloodlightActivityCacheBustingType" + +instance ToJSON FloodlightActivityCacheBustingType where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data CreativeGroupsListSortOrder + = CGLSOAscending + -- ^ @ASCENDING@ + | CGLSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeGroupsListSortOrder + +instance FromHttpApiData CreativeGroupsListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right CGLSOAscending + "DESCENDING" -> Right CGLSODescending + x -> Left ("Unable to parse CreativeGroupsListSortOrder from: " <> x) + +instance ToHttpApiData CreativeGroupsListSortOrder where + toQueryParam = \case + CGLSOAscending -> "ASCENDING" + CGLSODescending -> "DESCENDING" + +instance FromJSON CreativeGroupsListSortOrder where + parseJSON = parseJSONText "CreativeGroupsListSortOrder" + +instance ToJSON CreativeGroupsListSortOrder where + toJSON = toJSONText + +-- | Type of this order document +data OrderDocumentType + = PlanningOrderTypeChangeOrder + -- ^ @PLANNING_ORDER_TYPE_CHANGE_ORDER@ + | PlanningOrderTypeInsertionOrder + -- ^ @PLANNING_ORDER_TYPE_INSERTION_ORDER@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable OrderDocumentType + +instance FromHttpApiData OrderDocumentType where + parseQueryParam = \case + "PLANNING_ORDER_TYPE_CHANGE_ORDER" -> Right PlanningOrderTypeChangeOrder + "PLANNING_ORDER_TYPE_INSERTION_ORDER" -> Right PlanningOrderTypeInsertionOrder + x -> Left ("Unable to parse OrderDocumentType from: " <> x) + +instance ToHttpApiData OrderDocumentType where + toQueryParam = \case + PlanningOrderTypeChangeOrder -> "PLANNING_ORDER_TYPE_CHANGE_ORDER" + PlanningOrderTypeInsertionOrder -> "PLANNING_ORDER_TYPE_INSERTION_ORDER" + +instance FromJSON OrderDocumentType where + parseJSON = parseJSONText "OrderDocumentType" + +instance ToJSON OrderDocumentType where + toJSON = toJSONText + +-- | TagData tag format of this tag. +data TagDataFormat + = PlacementTagClickCommands + -- ^ @PLACEMENT_TAG_CLICK_COMMANDS@ + | PlacementTagIframeIlayer + -- ^ @PLACEMENT_TAG_IFRAME_ILAYER@ + | PlacementTagIframeJavascript + -- ^ @PLACEMENT_TAG_IFRAME_JAVASCRIPT@ + | PlacementTagIframeJavascriptLegacy + -- ^ @PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY@ + | PlacementTagInstreamVideoPrefetch + -- ^ @PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH@ + | PlacementTagInstreamVideoPrefetchVast3 + -- ^ @PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3@ + | PlacementTagInternalRedirect + -- ^ @PLACEMENT_TAG_INTERNAL_REDIRECT@ + | PlacementTagInterstitialIframeJavascript + -- ^ @PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT@ + | PlacementTagInterstitialIframeJavascriptLegacy + -- ^ @PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY@ + | PlacementTagInterstitialInternalRedirect + -- ^ @PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT@ + | PlacementTagInterstitialJavascript + -- ^ @PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT@ + | PlacementTagInterstitialJavascriptLegacy + -- ^ @PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY@ + | PlacementTagJavascript + -- ^ @PLACEMENT_TAG_JAVASCRIPT@ + | PlacementTagJavascriptLegacy + -- ^ @PLACEMENT_TAG_JAVASCRIPT_LEGACY@ + | PlacementTagStandard + -- ^ @PLACEMENT_TAG_STANDARD@ + | PlacementTagTracking + -- ^ @PLACEMENT_TAG_TRACKING@ + | PlacementTagTrackingIframe + -- ^ @PLACEMENT_TAG_TRACKING_IFRAME@ + | PlacementTagTrackingJavascript + -- ^ @PLACEMENT_TAG_TRACKING_JAVASCRIPT@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable TagDataFormat + +instance FromHttpApiData TagDataFormat where + parseQueryParam = \case + "PLACEMENT_TAG_CLICK_COMMANDS" -> Right PlacementTagClickCommands + "PLACEMENT_TAG_IFRAME_ILAYER" -> Right PlacementTagIframeIlayer + "PLACEMENT_TAG_IFRAME_JAVASCRIPT" -> Right PlacementTagIframeJavascript + "PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY" -> Right PlacementTagIframeJavascriptLegacy + "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH" -> Right PlacementTagInstreamVideoPrefetch + "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3" -> Right PlacementTagInstreamVideoPrefetchVast3 + "PLACEMENT_TAG_INTERNAL_REDIRECT" -> Right PlacementTagInternalRedirect + "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT" -> Right PlacementTagInterstitialIframeJavascript + "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY" -> Right PlacementTagInterstitialIframeJavascriptLegacy + "PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT" -> Right PlacementTagInterstitialInternalRedirect + "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT" -> Right PlacementTagInterstitialJavascript + "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY" -> Right PlacementTagInterstitialJavascriptLegacy + "PLACEMENT_TAG_JAVASCRIPT" -> Right PlacementTagJavascript + "PLACEMENT_TAG_JAVASCRIPT_LEGACY" -> Right PlacementTagJavascriptLegacy + "PLACEMENT_TAG_STANDARD" -> Right PlacementTagStandard + "PLACEMENT_TAG_TRACKING" -> Right PlacementTagTracking + "PLACEMENT_TAG_TRACKING_IFRAME" -> Right PlacementTagTrackingIframe + "PLACEMENT_TAG_TRACKING_JAVASCRIPT" -> Right PlacementTagTrackingJavascript + x -> Left ("Unable to parse TagDataFormat from: " <> x) + +instance ToHttpApiData TagDataFormat where + toQueryParam = \case + PlacementTagClickCommands -> "PLACEMENT_TAG_CLICK_COMMANDS" + PlacementTagIframeIlayer -> "PLACEMENT_TAG_IFRAME_ILAYER" + PlacementTagIframeJavascript -> "PLACEMENT_TAG_IFRAME_JAVASCRIPT" + PlacementTagIframeJavascriptLegacy -> "PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY" + PlacementTagInstreamVideoPrefetch -> "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH" + PlacementTagInstreamVideoPrefetchVast3 -> "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3" + PlacementTagInternalRedirect -> "PLACEMENT_TAG_INTERNAL_REDIRECT" + PlacementTagInterstitialIframeJavascript -> "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT" + PlacementTagInterstitialIframeJavascriptLegacy -> "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY" + PlacementTagInterstitialInternalRedirect -> "PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT" + PlacementTagInterstitialJavascript -> "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT" + PlacementTagInterstitialJavascriptLegacy -> "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY" + PlacementTagJavascript -> "PLACEMENT_TAG_JAVASCRIPT" + PlacementTagJavascriptLegacy -> "PLACEMENT_TAG_JAVASCRIPT_LEGACY" + PlacementTagStandard -> "PLACEMENT_TAG_STANDARD" + PlacementTagTracking -> "PLACEMENT_TAG_TRACKING" + PlacementTagTrackingIframe -> "PLACEMENT_TAG_TRACKING_IFRAME" + PlacementTagTrackingJavascript -> "PLACEMENT_TAG_TRACKING_JAVASCRIPT" + +instance FromJSON TagDataFormat where + parseJSON = parseJSONText "TagDataFormat" + +instance ToJSON TagDataFormat where + toJSON = toJSONText + +-- | Maximum number of active ads allowed for the account. +data AccountActiveAdSummaryActiveAdsLimitTier + = ActiveAdsTier100K + -- ^ @ACTIVE_ADS_TIER_100K@ + | ActiveAdsTier200K + -- ^ @ACTIVE_ADS_TIER_200K@ + | ActiveAdsTier300K + -- ^ @ACTIVE_ADS_TIER_300K@ + | ActiveAdsTier40K + -- ^ @ACTIVE_ADS_TIER_40K@ + | ActiveAdsTier500K + -- ^ @ACTIVE_ADS_TIER_500K@ + | ActiveAdsTier75K + -- ^ @ACTIVE_ADS_TIER_75K@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AccountActiveAdSummaryActiveAdsLimitTier + +instance FromHttpApiData AccountActiveAdSummaryActiveAdsLimitTier where + parseQueryParam = \case + "ACTIVE_ADS_TIER_100K" -> Right ActiveAdsTier100K + "ACTIVE_ADS_TIER_200K" -> Right ActiveAdsTier200K + "ACTIVE_ADS_TIER_300K" -> Right ActiveAdsTier300K + "ACTIVE_ADS_TIER_40K" -> Right ActiveAdsTier40K + "ACTIVE_ADS_TIER_500K" -> Right ActiveAdsTier500K + "ACTIVE_ADS_TIER_75K" -> Right ActiveAdsTier75K + x -> Left ("Unable to parse AccountActiveAdSummaryActiveAdsLimitTier from: " <> x) + +instance ToHttpApiData AccountActiveAdSummaryActiveAdsLimitTier where + toQueryParam = \case + ActiveAdsTier100K -> "ACTIVE_ADS_TIER_100K" + ActiveAdsTier200K -> "ACTIVE_ADS_TIER_200K" + ActiveAdsTier300K -> "ACTIVE_ADS_TIER_300K" + ActiveAdsTier40K -> "ACTIVE_ADS_TIER_40K" + ActiveAdsTier500K -> "ACTIVE_ADS_TIER_500K" + ActiveAdsTier75K -> "ACTIVE_ADS_TIER_75K" + +instance FromJSON AccountActiveAdSummaryActiveAdsLimitTier where + parseJSON = parseJSONText "AccountActiveAdSummaryActiveAdsLimitTier" + +instance ToJSON AccountActiveAdSummaryActiveAdsLimitTier where + toJSON = toJSONText + +-- | Rich media child asset type. This is a read-only field. Applicable to +-- the following creative types: all VPAID. +data CreativeAssetChildAssetType + = ChildAssetTypeData + -- ^ @CHILD_ASSET_TYPE_DATA@ + | ChildAssetTypeFlash + -- ^ @CHILD_ASSET_TYPE_FLASH@ + | ChildAssetTypeImage + -- ^ @CHILD_ASSET_TYPE_IMAGE@ + | ChildAssetTypeVideo + -- ^ @CHILD_ASSET_TYPE_VIDEO@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeAssetChildAssetType + +instance FromHttpApiData CreativeAssetChildAssetType where + parseQueryParam = \case + "CHILD_ASSET_TYPE_DATA" -> Right ChildAssetTypeData + "CHILD_ASSET_TYPE_FLASH" -> Right ChildAssetTypeFlash + "CHILD_ASSET_TYPE_IMAGE" -> Right ChildAssetTypeImage + "CHILD_ASSET_TYPE_VIDEO" -> Right ChildAssetTypeVideo + x -> Left ("Unable to parse CreativeAssetChildAssetType from: " <> x) + +instance ToHttpApiData CreativeAssetChildAssetType where + toQueryParam = \case + ChildAssetTypeData -> "CHILD_ASSET_TYPE_DATA" + ChildAssetTypeFlash -> "CHILD_ASSET_TYPE_FLASH" + ChildAssetTypeImage -> "CHILD_ASSET_TYPE_IMAGE" + ChildAssetTypeVideo -> "CHILD_ASSET_TYPE_VIDEO" + +instance FromJSON CreativeAssetChildAssetType where + parseJSON = parseJSONText "CreativeAssetChildAssetType" + +instance ToJSON CreativeAssetChildAssetType where + toJSON = toJSONText + +-- | Select only placement groups belonging with this group type. A package +-- is a simple group of placements that acts as a single pricing point for +-- a group of tags. A roadblock is a group of placements that not only acts +-- as a single pricing point but also assumes that all the tags in it will +-- be served at the same time. A roadblock requires one of its assigned +-- placements to be marked as primary for reporting. +data PlacementGroupsListPlacementGroupType + = PlacementPackage + -- ^ @PLACEMENT_PACKAGE@ + | PlacementRoadblock + -- ^ @PLACEMENT_ROADBLOCK@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PlacementGroupsListPlacementGroupType + +instance FromHttpApiData PlacementGroupsListPlacementGroupType where + parseQueryParam = \case + "PLACEMENT_PACKAGE" -> Right PlacementPackage + "PLACEMENT_ROADBLOCK" -> Right PlacementRoadblock + x -> Left ("Unable to parse PlacementGroupsListPlacementGroupType from: " <> x) + +instance ToHttpApiData PlacementGroupsListPlacementGroupType where + toQueryParam = \case + PlacementPackage -> "PLACEMENT_PACKAGE" + PlacementRoadblock -> "PLACEMENT_ROADBLOCK" + +instance FromJSON PlacementGroupsListPlacementGroupType where + parseJSON = parseJSONText "PlacementGroupsListPlacementGroupType" + +instance ToJSON PlacementGroupsListPlacementGroupType where + toJSON = toJSONText + +-- | Status of the filter. NONE means the user has access to none of the +-- objects. ALL means the user has access to all objects. ASSIGNED means +-- the user has access to the objects with IDs in the objectIds list. +data ObjectFilterStatus + = OFSAll + -- ^ @ALL@ + | OFSAssigned + -- ^ @ASSIGNED@ + | OFSNone + -- ^ @NONE@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ObjectFilterStatus + +instance FromHttpApiData ObjectFilterStatus where + parseQueryParam = \case + "ALL" -> Right OFSAll + "ASSIGNED" -> Right OFSAssigned + "NONE" -> Right OFSNone + x -> Left ("Unable to parse ObjectFilterStatus from: " <> x) + +instance ToHttpApiData ObjectFilterStatus where + toQueryParam = \case + OFSAll -> "ALL" + OFSAssigned -> "ASSIGNED" + OFSNone -> "NONE" + +instance FromJSON ObjectFilterStatus where + parseJSON = parseJSONText "ObjectFilterStatus" + +instance ToJSON ObjectFilterStatus where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data CampaignCreativeAssociationsListSortOrder + = CCALSOAscending + -- ^ @ASCENDING@ + | CCALSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CampaignCreativeAssociationsListSortOrder + +instance FromHttpApiData CampaignCreativeAssociationsListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right CCALSOAscending + "DESCENDING" -> Right CCALSODescending + x -> Left ("Unable to parse CampaignCreativeAssociationsListSortOrder from: " <> x) + +instance ToHttpApiData CampaignCreativeAssociationsListSortOrder where + toQueryParam = \case + CCALSOAscending -> "ASCENDING" + CCALSODescending -> "DESCENDING" + +instance FromJSON CampaignCreativeAssociationsListSortOrder where + parseJSON = parseJSONText "CampaignCreativeAssociationsListSortOrder" + +instance ToJSON CampaignCreativeAssociationsListSortOrder where + toJSON = toJSONText + +-- | Field by which to sort the list. +data FloodlightActivitiesListSortField + = FALSFID + -- ^ @ID@ + | FALSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FloodlightActivitiesListSortField + +instance FromHttpApiData FloodlightActivitiesListSortField where + parseQueryParam = \case + "ID" -> Right FALSFID + "NAME" -> Right FALSFName + x -> Left ("Unable to parse FloodlightActivitiesListSortField from: " <> x) + +instance ToHttpApiData FloodlightActivitiesListSortField where + toQueryParam = \case + FALSFID -> "ID" + FALSFName -> "NAME" + +instance FromJSON FloodlightActivitiesListSortField where + parseJSON = parseJSONText "FloodlightActivitiesListSortField" + +instance ToJSON FloodlightActivitiesListSortField where + toJSON = toJSONText + +-- | Select only creatives with these creative types. +data CreativesListTypes + = CLTBrandSafeDefaultInstreamVideo + -- ^ @BRAND_SAFE_DEFAULT_INSTREAM_VIDEO@ + | CLTCustomDisplay + -- ^ @CUSTOM_DISPLAY@ + | CLTCustomDisplayInterstitial + -- ^ @CUSTOM_DISPLAY_INTERSTITIAL@ + | CLTDisplay + -- ^ @DISPLAY@ + | CLTDisplayImageGallery + -- ^ @DISPLAY_IMAGE_GALLERY@ + | CLTDisplayRedirect + -- ^ @DISPLAY_REDIRECT@ + | CLTFlashInpage + -- ^ @FLASH_INPAGE@ + | CLTHTML5Banner + -- ^ @HTML5_BANNER@ + | CLTImage + -- ^ @IMAGE@ + | CLTInstreamVideo + -- ^ @INSTREAM_VIDEO@ + | CLTInstreamVideoRedirect + -- ^ @INSTREAM_VIDEO_REDIRECT@ + | CLTInternalRedirect + -- ^ @INTERNAL_REDIRECT@ + | CLTInterstitialInternalRedirect + -- ^ @INTERSTITIAL_INTERNAL_REDIRECT@ + | CLTRichMediaDisplayBanner + -- ^ @RICH_MEDIA_DISPLAY_BANNER@ + | CLTRichMediaDisplayExpanding + -- ^ @RICH_MEDIA_DISPLAY_EXPANDING@ + | CLTRichMediaDisplayInterstitial + -- ^ @RICH_MEDIA_DISPLAY_INTERSTITIAL@ + | CLTRichMediaDisplayMultiFloatingInterstitial + -- ^ @RICH_MEDIA_DISPLAY_MULTI_FLOATING_INTERSTITIAL@ + | CLTRichMediaImExpand + -- ^ @RICH_MEDIA_IM_EXPAND@ + | CLTRichMediaInpageFloating + -- ^ @RICH_MEDIA_INPAGE_FLOATING@ + | CLTRichMediaMobileInApp + -- ^ @RICH_MEDIA_MOBILE_IN_APP@ + | CLTRichMediaPeelDown + -- ^ @RICH_MEDIA_PEEL_DOWN@ + | CLTTrackingText + -- ^ @TRACKING_TEXT@ + | CLTVpaidLinearVideo + -- ^ @VPAID_LINEAR_VIDEO@ + | CLTVpaidNonLinearVideo + -- ^ @VPAID_NON_LINEAR_VIDEO@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativesListTypes + +instance FromHttpApiData CreativesListTypes where + parseQueryParam = \case + "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO" -> Right CLTBrandSafeDefaultInstreamVideo + "CUSTOM_DISPLAY" -> Right CLTCustomDisplay + "CUSTOM_DISPLAY_INTERSTITIAL" -> Right CLTCustomDisplayInterstitial + "DISPLAY" -> Right CLTDisplay + "DISPLAY_IMAGE_GALLERY" -> Right CLTDisplayImageGallery + "DISPLAY_REDIRECT" -> Right CLTDisplayRedirect + "FLASH_INPAGE" -> Right CLTFlashInpage + "HTML5_BANNER" -> Right CLTHTML5Banner + "IMAGE" -> Right CLTImage + "INSTREAM_VIDEO" -> Right CLTInstreamVideo + "INSTREAM_VIDEO_REDIRECT" -> Right CLTInstreamVideoRedirect + "INTERNAL_REDIRECT" -> Right CLTInternalRedirect + "INTERSTITIAL_INTERNAL_REDIRECT" -> Right CLTInterstitialInternalRedirect + "RICH_MEDIA_DISPLAY_BANNER" -> Right CLTRichMediaDisplayBanner + "RICH_MEDIA_DISPLAY_EXPANDING" -> Right CLTRichMediaDisplayExpanding + "RICH_MEDIA_DISPLAY_INTERSTITIAL" -> Right CLTRichMediaDisplayInterstitial + "RICH_MEDIA_DISPLAY_MULTI_FLOATING_INTERSTITIAL" -> Right CLTRichMediaDisplayMultiFloatingInterstitial + "RICH_MEDIA_IM_EXPAND" -> Right CLTRichMediaImExpand + "RICH_MEDIA_INPAGE_FLOATING" -> Right CLTRichMediaInpageFloating + "RICH_MEDIA_MOBILE_IN_APP" -> Right CLTRichMediaMobileInApp + "RICH_MEDIA_PEEL_DOWN" -> Right CLTRichMediaPeelDown + "TRACKING_TEXT" -> Right CLTTrackingText + "VPAID_LINEAR_VIDEO" -> Right CLTVpaidLinearVideo + "VPAID_NON_LINEAR_VIDEO" -> Right CLTVpaidNonLinearVideo + x -> Left ("Unable to parse CreativesListTypes from: " <> x) + +instance ToHttpApiData CreativesListTypes where + toQueryParam = \case + CLTBrandSafeDefaultInstreamVideo -> "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO" + CLTCustomDisplay -> "CUSTOM_DISPLAY" + CLTCustomDisplayInterstitial -> "CUSTOM_DISPLAY_INTERSTITIAL" + CLTDisplay -> "DISPLAY" + CLTDisplayImageGallery -> "DISPLAY_IMAGE_GALLERY" + CLTDisplayRedirect -> "DISPLAY_REDIRECT" + CLTFlashInpage -> "FLASH_INPAGE" + CLTHTML5Banner -> "HTML5_BANNER" + CLTImage -> "IMAGE" + CLTInstreamVideo -> "INSTREAM_VIDEO" + CLTInstreamVideoRedirect -> "INSTREAM_VIDEO_REDIRECT" + CLTInternalRedirect -> "INTERNAL_REDIRECT" + CLTInterstitialInternalRedirect -> "INTERSTITIAL_INTERNAL_REDIRECT" + CLTRichMediaDisplayBanner -> "RICH_MEDIA_DISPLAY_BANNER" + CLTRichMediaDisplayExpanding -> "RICH_MEDIA_DISPLAY_EXPANDING" + CLTRichMediaDisplayInterstitial -> "RICH_MEDIA_DISPLAY_INTERSTITIAL" + CLTRichMediaDisplayMultiFloatingInterstitial -> "RICH_MEDIA_DISPLAY_MULTI_FLOATING_INTERSTITIAL" + CLTRichMediaImExpand -> "RICH_MEDIA_IM_EXPAND" + CLTRichMediaInpageFloating -> "RICH_MEDIA_INPAGE_FLOATING" + CLTRichMediaMobileInApp -> "RICH_MEDIA_MOBILE_IN_APP" + CLTRichMediaPeelDown -> "RICH_MEDIA_PEEL_DOWN" + CLTTrackingText -> "TRACKING_TEXT" + CLTVpaidLinearVideo -> "VPAID_LINEAR_VIDEO" + CLTVpaidNonLinearVideo -> "VPAID_NON_LINEAR_VIDEO" + +instance FromJSON CreativesListTypes where + parseJSON = parseJSONText "CreativesListTypes" + +instance ToJSON CreativesListTypes where + toJSON = toJSONText + +data DirectorySiteInpageTagFormatsItem + = IframeJavascriptInpage + -- ^ @IFRAME_JAVASCRIPT_INPAGE@ + | InternalRedirectInpage + -- ^ @INTERNAL_REDIRECT_INPAGE@ + | JavascriptInpage + -- ^ @JAVASCRIPT_INPAGE@ + | Standard + -- ^ @STANDARD@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable DirectorySiteInpageTagFormatsItem + +instance FromHttpApiData DirectorySiteInpageTagFormatsItem where + parseQueryParam = \case + "IFRAME_JAVASCRIPT_INPAGE" -> Right IframeJavascriptInpage + "INTERNAL_REDIRECT_INPAGE" -> Right InternalRedirectInpage + "JAVASCRIPT_INPAGE" -> Right JavascriptInpage + "STANDARD" -> Right Standard + x -> Left ("Unable to parse DirectorySiteInpageTagFormatsItem from: " <> x) + +instance ToHttpApiData DirectorySiteInpageTagFormatsItem where + toQueryParam = \case + IframeJavascriptInpage -> "IFRAME_JAVASCRIPT_INPAGE" + InternalRedirectInpage -> "INTERNAL_REDIRECT_INPAGE" + JavascriptInpage -> "JAVASCRIPT_INPAGE" + Standard -> "STANDARD" + +instance FromJSON DirectorySiteInpageTagFormatsItem where + parseJSON = parseJSONText "DirectorySiteInpageTagFormatsItem" + +instance ToJSON DirectorySiteInpageTagFormatsItem where + toJSON = toJSONText + +-- | Window mode options for flash assets. Applicable to the following +-- creative types: FLASH_INPAGE, RICH_MEDIA_DISPLAY_EXPANDING, +-- RICH_MEDIA_IM_EXPAND, RICH_MEDIA_DISPLAY_BANNER, and +-- RICH_MEDIA_INPAGE_FLOATING. +data CreativeAssetWindowMode + = Opaque + -- ^ @OPAQUE@ + | Transparent + -- ^ @TRANSPARENT@ + | Window + -- ^ @WINDOW@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeAssetWindowMode + +instance FromHttpApiData CreativeAssetWindowMode where + parseQueryParam = \case + "OPAQUE" -> Right Opaque + "TRANSPARENT" -> Right Transparent + "WINDOW" -> Right Window + x -> Left ("Unable to parse CreativeAssetWindowMode from: " <> x) + +instance ToHttpApiData CreativeAssetWindowMode where + toQueryParam = \case + Opaque -> "OPAQUE" + Transparent -> "TRANSPARENT" + Window -> "WINDOW" + +instance FromJSON CreativeAssetWindowMode where + parseJSON = parseJSONText "CreativeAssetWindowMode" + +instance ToJSON CreativeAssetWindowMode where + toJSON = toJSONText + +-- | Possible alignments for an asset. This is a read-only field. Applicable +-- to the following creative types: +-- RICH_MEDIA_DISPLAY_MULTI_FLOATING_INTERSTITIAL. +data CreativeAssetAlignment + = AlignmentBottom + -- ^ @ALIGNMENT_BOTTOM@ + | AlignmentLeft + -- ^ @ALIGNMENT_LEFT@ + | AlignmentRight + -- ^ @ALIGNMENT_RIGHT@ + | AlignmentTop + -- ^ @ALIGNMENT_TOP@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeAssetAlignment + +instance FromHttpApiData CreativeAssetAlignment where + parseQueryParam = \case + "ALIGNMENT_BOTTOM" -> Right AlignmentBottom + "ALIGNMENT_LEFT" -> Right AlignmentLeft + "ALIGNMENT_RIGHT" -> Right AlignmentRight + "ALIGNMENT_TOP" -> Right AlignmentTop + x -> Left ("Unable to parse CreativeAssetAlignment from: " <> x) + +instance ToHttpApiData CreativeAssetAlignment where + toQueryParam = \case + AlignmentBottom -> "ALIGNMENT_BOTTOM" + AlignmentLeft -> "ALIGNMENT_LEFT" + AlignmentRight -> "ALIGNMENT_RIGHT" + AlignmentTop -> "ALIGNMENT_TOP" + +instance FromJSON CreativeAssetAlignment where + parseJSON = parseJSONText "CreativeAssetAlignment" + +instance ToJSON CreativeAssetAlignment where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data RemarketingListsListSortOrder + = RLLSOAscending + -- ^ @ASCENDING@ + | RLLSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable RemarketingListsListSortOrder + +instance FromHttpApiData RemarketingListsListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right RLLSOAscending + "DESCENDING" -> Right RLLSODescending + x -> Left ("Unable to parse RemarketingListsListSortOrder from: " <> x) + +instance ToHttpApiData RemarketingListsListSortOrder where + toQueryParam = \case + RLLSOAscending -> "ASCENDING" + RLLSODescending -> "DESCENDING" + +instance FromJSON RemarketingListsListSortOrder where + parseJSON = parseJSONText "RemarketingListsListSortOrder" + +instance ToJSON RemarketingListsListSortOrder where + toJSON = toJSONText + +-- | Select only placement groups with these pricing types. +data PlacementGroupsListPricingTypes + = PGLPTPricingTypeCpa + -- ^ @PRICING_TYPE_CPA@ + | PGLPTPricingTypeCpc + -- ^ @PRICING_TYPE_CPC@ + | PGLPTPricingTypeCpm + -- ^ @PRICING_TYPE_CPM@ + | PGLPTPricingTypeCpmActiveview + -- ^ @PRICING_TYPE_CPM_ACTIVEVIEW@ + | PGLPTPricingTypeFlatRateClicks + -- ^ @PRICING_TYPE_FLAT_RATE_CLICKS@ + | PGLPTPricingTypeFlatRateImpressions + -- ^ @PRICING_TYPE_FLAT_RATE_IMPRESSIONS@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PlacementGroupsListPricingTypes + +instance FromHttpApiData PlacementGroupsListPricingTypes where + parseQueryParam = \case + "PRICING_TYPE_CPA" -> Right PGLPTPricingTypeCpa + "PRICING_TYPE_CPC" -> Right PGLPTPricingTypeCpc + "PRICING_TYPE_CPM" -> Right PGLPTPricingTypeCpm + "PRICING_TYPE_CPM_ACTIVEVIEW" -> Right PGLPTPricingTypeCpmActiveview + "PRICING_TYPE_FLAT_RATE_CLICKS" -> Right PGLPTPricingTypeFlatRateClicks + "PRICING_TYPE_FLAT_RATE_IMPRESSIONS" -> Right PGLPTPricingTypeFlatRateImpressions + x -> Left ("Unable to parse PlacementGroupsListPricingTypes from: " <> x) + +instance ToHttpApiData PlacementGroupsListPricingTypes where + toQueryParam = \case + PGLPTPricingTypeCpa -> "PRICING_TYPE_CPA" + PGLPTPricingTypeCpc -> "PRICING_TYPE_CPC" + PGLPTPricingTypeCpm -> "PRICING_TYPE_CPM" + PGLPTPricingTypeCpmActiveview -> "PRICING_TYPE_CPM_ACTIVEVIEW" + PGLPTPricingTypeFlatRateClicks -> "PRICING_TYPE_FLAT_RATE_CLICKS" + PGLPTPricingTypeFlatRateImpressions -> "PRICING_TYPE_FLAT_RATE_IMPRESSIONS" + +instance FromJSON PlacementGroupsListPricingTypes where + parseJSON = parseJSONText "PlacementGroupsListPricingTypes" + +instance ToJSON PlacementGroupsListPricingTypes where + toJSON = toJSONText + +-- | Type of the object of this dynamic targeting key. This is a required +-- field. +data DynamicTargetingKeysDeleteObjectType + = DTKDOTObjectAd + -- ^ @OBJECT_AD@ + | DTKDOTObjectAdvertiser + -- ^ @OBJECT_ADVERTISER@ + | DTKDOTObjectCreative + -- ^ @OBJECT_CREATIVE@ + | DTKDOTObjectPlacement + -- ^ @OBJECT_PLACEMENT@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable DynamicTargetingKeysDeleteObjectType + +instance FromHttpApiData DynamicTargetingKeysDeleteObjectType where + parseQueryParam = \case + "OBJECT_AD" -> Right DTKDOTObjectAd + "OBJECT_ADVERTISER" -> Right DTKDOTObjectAdvertiser + "OBJECT_CREATIVE" -> Right DTKDOTObjectCreative + "OBJECT_PLACEMENT" -> Right DTKDOTObjectPlacement + x -> Left ("Unable to parse DynamicTargetingKeysDeleteObjectType from: " <> x) + +instance ToHttpApiData DynamicTargetingKeysDeleteObjectType where + toQueryParam = \case + DTKDOTObjectAd -> "OBJECT_AD" + DTKDOTObjectAdvertiser -> "OBJECT_ADVERTISER" + DTKDOTObjectCreative -> "OBJECT_CREATIVE" + DTKDOTObjectPlacement -> "OBJECT_PLACEMENT" + +instance FromJSON DynamicTargetingKeysDeleteObjectType where + parseJSON = parseJSONText "DynamicTargetingKeysDeleteObjectType" + +instance ToJSON DynamicTargetingKeysDeleteObjectType where + toJSON = toJSONText + +-- | Maximum number of active ads allowed for this account. +data AccountActiveAdsLimitTier + = AAALTActiveAdsTier100K + -- ^ @ACTIVE_ADS_TIER_100K@ + | AAALTActiveAdsTier200K + -- ^ @ACTIVE_ADS_TIER_200K@ + | AAALTActiveAdsTier300K + -- ^ @ACTIVE_ADS_TIER_300K@ + | AAALTActiveAdsTier40K + -- ^ @ACTIVE_ADS_TIER_40K@ + | AAALTActiveAdsTier500K + -- ^ @ACTIVE_ADS_TIER_500K@ + | AAALTActiveAdsTier75K + -- ^ @ACTIVE_ADS_TIER_75K@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AccountActiveAdsLimitTier + +instance FromHttpApiData AccountActiveAdsLimitTier where + parseQueryParam = \case + "ACTIVE_ADS_TIER_100K" -> Right AAALTActiveAdsTier100K + "ACTIVE_ADS_TIER_200K" -> Right AAALTActiveAdsTier200K + "ACTIVE_ADS_TIER_300K" -> Right AAALTActiveAdsTier300K + "ACTIVE_ADS_TIER_40K" -> Right AAALTActiveAdsTier40K + "ACTIVE_ADS_TIER_500K" -> Right AAALTActiveAdsTier500K + "ACTIVE_ADS_TIER_75K" -> Right AAALTActiveAdsTier75K + x -> Left ("Unable to parse AccountActiveAdsLimitTier from: " <> x) + +instance ToHttpApiData AccountActiveAdsLimitTier where + toQueryParam = \case + AAALTActiveAdsTier100K -> "ACTIVE_ADS_TIER_100K" + AAALTActiveAdsTier200K -> "ACTIVE_ADS_TIER_200K" + AAALTActiveAdsTier300K -> "ACTIVE_ADS_TIER_300K" + AAALTActiveAdsTier40K -> "ACTIVE_ADS_TIER_40K" + AAALTActiveAdsTier500K -> "ACTIVE_ADS_TIER_500K" + AAALTActiveAdsTier75K -> "ACTIVE_ADS_TIER_75K" + +instance FromJSON AccountActiveAdsLimitTier where + parseJSON = parseJSONText "AccountActiveAdsLimitTier" + +instance ToJSON AccountActiveAdsLimitTier where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data AccountsListSortOrder + = AAscending + -- ^ @ASCENDING@ + | ADescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AccountsListSortOrder + +instance FromHttpApiData AccountsListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right AAscending + "DESCENDING" -> Right ADescending + x -> Left ("Unable to parse AccountsListSortOrder from: " <> x) + +instance ToHttpApiData AccountsListSortOrder where + toQueryParam = \case + AAscending -> "ASCENDING" + ADescending -> "DESCENDING" + +instance FromJSON AccountsListSortOrder where + parseJSON = parseJSONText "AccountsListSortOrder" + +instance ToJSON AccountsListSortOrder where + toJSON = toJSONText + +-- | Field by which to sort the list. +data SubAccountsListSortField + = SALSFID + -- ^ @ID@ + | SALSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable SubAccountsListSortField + +instance FromHttpApiData SubAccountsListSortField where + parseQueryParam = \case + "ID" -> Right SALSFID + "NAME" -> Right SALSFName + x -> Left ("Unable to parse SubAccountsListSortField from: " <> x) + +instance ToHttpApiData SubAccountsListSortField where + toQueryParam = \case + SALSFID -> "ID" + SALSFName -> "NAME" + +instance FromJSON SubAccountsListSortField where + parseJSON = parseJSONText "SubAccountsListSortField" + +instance ToJSON SubAccountsListSortField where + toJSON = toJSONText + +-- | Field by which to sort the list. +data AdsListSortField + = ALSFID + -- ^ @ID@ + | ALSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AdsListSortField + +instance FromHttpApiData AdsListSortField where + parseQueryParam = \case + "ID" -> Right ALSFID + "NAME" -> Right ALSFName + x -> Left ("Unable to parse AdsListSortField from: " <> x) + +instance ToHttpApiData AdsListSortField where + toQueryParam = \case + ALSFID -> "ID" + ALSFName -> "NAME" + +instance FromJSON AdsListSortField where + parseJSON = parseJSONText "AdsListSortField" + +instance ToJSON AdsListSortField where + toJSON = toJSONText + +-- | Field by which to sort the list. +data ProjectsListSortField + = PID + -- ^ @ID@ + | PName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ProjectsListSortField + +instance FromHttpApiData ProjectsListSortField where + parseQueryParam = \case + "ID" -> Right PID + "NAME" -> Right PName + x -> Left ("Unable to parse ProjectsListSortField from: " <> x) + +instance ToHttpApiData ProjectsListSortField where + toQueryParam = \case + PID -> "ID" + PName -> "NAME" + +instance FromJSON ProjectsListSortField where + parseJSON = parseJSONText "ProjectsListSortField" + +instance ToJSON ProjectsListSortField where + toJSON = toJSONText + +-- | Select only ads with these types. +data AdsListType + = AdServingClickTracker + -- ^ @AD_SERVING_CLICK_TRACKER@ + | AdServingDefaultAd + -- ^ @AD_SERVING_DEFAULT_AD@ + | AdServingStandardAd + -- ^ @AD_SERVING_STANDARD_AD@ + | AdServingTracking + -- ^ @AD_SERVING_TRACKING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AdsListType + +instance FromHttpApiData AdsListType where + parseQueryParam = \case + "AD_SERVING_CLICK_TRACKER" -> Right AdServingClickTracker + "AD_SERVING_DEFAULT_AD" -> Right AdServingDefaultAd + "AD_SERVING_STANDARD_AD" -> Right AdServingStandardAd + "AD_SERVING_TRACKING" -> Right AdServingTracking + x -> Left ("Unable to parse AdsListType from: " <> x) + +instance ToHttpApiData AdsListType where + toQueryParam = \case + AdServingClickTracker -> "AD_SERVING_CLICK_TRACKER" + AdServingDefaultAd -> "AD_SERVING_DEFAULT_AD" + AdServingStandardAd -> "AD_SERVING_STANDARD_AD" + AdServingTracking -> "AD_SERVING_TRACKING" + +instance FromJSON AdsListType where + parseJSON = parseJSONText "AdsListType" + +instance ToJSON AdsListType where + toJSON = toJSONText + +-- | Optimization model for this configuration. +data CreativeOptimizationConfigurationOptimizationModel + = Click + -- ^ @CLICK@ + | PostClick + -- ^ @POST_CLICK@ + | PostClickAndImpression + -- ^ @POST_CLICK_AND_IMPRESSION@ + | PostImpression + -- ^ @POST_IMPRESSION@ + | VideoCompletion + -- ^ @VIDEO_COMPLETION@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeOptimizationConfigurationOptimizationModel + +instance FromHttpApiData CreativeOptimizationConfigurationOptimizationModel where + parseQueryParam = \case + "CLICK" -> Right Click + "POST_CLICK" -> Right PostClick + "POST_CLICK_AND_IMPRESSION" -> Right PostClickAndImpression + "POST_IMPRESSION" -> Right PostImpression + "VIDEO_COMPLETION" -> Right VideoCompletion + x -> Left ("Unable to parse CreativeOptimizationConfigurationOptimizationModel from: " <> x) + +instance ToHttpApiData CreativeOptimizationConfigurationOptimizationModel where + toQueryParam = \case + Click -> "CLICK" + PostClick -> "POST_CLICK" + PostClickAndImpression -> "POST_CLICK_AND_IMPRESSION" + PostImpression -> "POST_IMPRESSION" + VideoCompletion -> "VIDEO_COMPLETION" + +instance FromJSON CreativeOptimizationConfigurationOptimizationModel where + parseJSON = parseJSONText "CreativeOptimizationConfigurationOptimizationModel" + +instance ToJSON CreativeOptimizationConfigurationOptimizationModel where + toJSON = toJSONText + +-- | Administrative level required to enable this account permission. +data AccountPermissionLevel + = Administrator + -- ^ @ADMINISTRATOR@ + | User + -- ^ @USER@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AccountPermissionLevel + +instance FromHttpApiData AccountPermissionLevel where + parseQueryParam = \case + "ADMINISTRATOR" -> Right Administrator + "USER" -> Right User + x -> Left ("Unable to parse AccountPermissionLevel from: " <> x) + +instance ToHttpApiData AccountPermissionLevel where + toQueryParam = \case + Administrator -> "ADMINISTRATOR" + User -> "USER" + +instance FromJSON AccountPermissionLevel where + parseJSON = parseJSONText "AccountPermissionLevel" + +instance ToJSON AccountPermissionLevel where + toJSON = toJSONText + +-- | List population term type determines the applicable fields in this +-- object. If left unset or set to CUSTOM_VARIABLE_TERM, then variableName, +-- variableFriendlyName, operator, value, and negation are applicable. If +-- set to LIST_MEMBERSHIP_TERM then remarketingListId and contains are +-- applicable. If set to REFERRER_TERM then operator, value, and negation +-- are applicable. +data ListPopulationTermType + = CustomVariableTerm + -- ^ @CUSTOM_VARIABLE_TERM@ + | ListMembershipTerm + -- ^ @LIST_MEMBERSHIP_TERM@ + | ReferrerTerm + -- ^ @REFERRER_TERM@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ListPopulationTermType + +instance FromHttpApiData ListPopulationTermType where + parseQueryParam = \case + "CUSTOM_VARIABLE_TERM" -> Right CustomVariableTerm + "LIST_MEMBERSHIP_TERM" -> Right ListMembershipTerm + "REFERRER_TERM" -> Right ReferrerTerm + x -> Left ("Unable to parse ListPopulationTermType from: " <> x) + +instance ToHttpApiData ListPopulationTermType where + toQueryParam = \case + CustomVariableTerm -> "CUSTOM_VARIABLE_TERM" + ListMembershipTerm -> "LIST_MEMBERSHIP_TERM" + ReferrerTerm -> "REFERRER_TERM" + +instance FromJSON ListPopulationTermType where + parseJSON = parseJSONText "ListPopulationTermType" + +instance ToJSON ListPopulationTermType where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data AdvertiserGroupsListSortOrder + = AGLSOAscending + -- ^ @ASCENDING@ + | AGLSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AdvertiserGroupsListSortOrder + +instance FromHttpApiData AdvertiserGroupsListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right AGLSOAscending + "DESCENDING" -> Right AGLSODescending + x -> Left ("Unable to parse AdvertiserGroupsListSortOrder from: " <> x) + +instance ToHttpApiData AdvertiserGroupsListSortOrder where + toQueryParam = \case + AGLSOAscending -> "ASCENDING" + AGLSODescending -> "DESCENDING" + +instance FromJSON AdvertiserGroupsListSortOrder where + parseJSON = parseJSONText "AdvertiserGroupsListSortOrder" + +instance ToJSON AdvertiserGroupsListSortOrder where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data CreativeFieldValuesListSortOrder + = CFVLSOAscending + -- ^ @ASCENDING@ + | CFVLSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeFieldValuesListSortOrder + +instance FromHttpApiData CreativeFieldValuesListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right CFVLSOAscending + "DESCENDING" -> Right CFVLSODescending + x -> Left ("Unable to parse CreativeFieldValuesListSortOrder from: " <> x) + +instance ToHttpApiData CreativeFieldValuesListSortOrder where + toQueryParam = \case + CFVLSOAscending -> "ASCENDING" + CFVLSODescending -> "DESCENDING" + +instance FromJSON CreativeFieldValuesListSortOrder where + parseJSON = parseJSONText "CreativeFieldValuesListSortOrder" + +instance ToJSON CreativeFieldValuesListSortOrder where + toJSON = toJSONText + +-- | An optional sort order for the dimension column. +data SortedDimensionSortOrder + = SDSOAscending + -- ^ @ASCENDING@ + | SDSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable SortedDimensionSortOrder + +instance FromHttpApiData SortedDimensionSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right SDSOAscending + "DESCENDING" -> Right SDSODescending + x -> Left ("Unable to parse SortedDimensionSortOrder from: " <> x) + +instance ToHttpApiData SortedDimensionSortOrder where + toQueryParam = \case + SDSOAscending -> "ASCENDING" + SDSODescending -> "DESCENDING" + +instance FromJSON SortedDimensionSortOrder where + parseJSON = parseJSONText "SortedDimensionSortOrder" + +instance ToJSON SortedDimensionSortOrder where + toJSON = toJSONText + +-- | The field by which to sort the list. +data FilesListSortField + = FLSFID + -- ^ @ID@ + -- Sort by file ID. + | FLSFLastModifiedTime + -- ^ @LAST_MODIFIED_TIME@ + -- Sort by \'lastmodifiedAt\' field. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FilesListSortField + +instance FromHttpApiData FilesListSortField where + parseQueryParam = \case + "ID" -> Right FLSFID + "LAST_MODIFIED_TIME" -> Right FLSFLastModifiedTime + x -> Left ("Unable to parse FilesListSortField from: " <> x) + +instance ToHttpApiData FilesListSortField where + toQueryParam = \case + FLSFID -> "ID" + FLSFLastModifiedTime -> "LAST_MODIFIED_TIME" + +instance FromJSON FilesListSortField where + parseJSON = parseJSONText "FilesListSortField" + +instance ToJSON FilesListSortField where + toJSON = toJSONText + +data DirectorySiteInterstitialTagFormatsItem + = IframeJavascriptInterstitial + -- ^ @IFRAME_JAVASCRIPT_INTERSTITIAL@ + | InternalRedirectInterstitial + -- ^ @INTERNAL_REDIRECT_INTERSTITIAL@ + | JavascriptInterstitial + -- ^ @JAVASCRIPT_INTERSTITIAL@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable DirectorySiteInterstitialTagFormatsItem + +instance FromHttpApiData DirectorySiteInterstitialTagFormatsItem where + parseQueryParam = \case + "IFRAME_JAVASCRIPT_INTERSTITIAL" -> Right IframeJavascriptInterstitial + "INTERNAL_REDIRECT_INTERSTITIAL" -> Right InternalRedirectInterstitial + "JAVASCRIPT_INTERSTITIAL" -> Right JavascriptInterstitial + x -> Left ("Unable to parse DirectorySiteInterstitialTagFormatsItem from: " <> x) + +instance ToHttpApiData DirectorySiteInterstitialTagFormatsItem where + toQueryParam = \case + IframeJavascriptInterstitial -> "IFRAME_JAVASCRIPT_INTERSTITIAL" + InternalRedirectInterstitial -> "INTERNAL_REDIRECT_INTERSTITIAL" + JavascriptInterstitial -> "JAVASCRIPT_INTERSTITIAL" + +instance FromJSON DirectorySiteInterstitialTagFormatsItem where + parseJSON = parseJSONText "DirectorySiteInterstitialTagFormatsItem" + +instance ToJSON DirectorySiteInterstitialTagFormatsItem where + toJSON = toJSONText + +-- | Field by which to sort the list. +data EventTagsListSortField + = ETLSFID + -- ^ @ID@ + | ETLSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable EventTagsListSortField + +instance FromHttpApiData EventTagsListSortField where + parseQueryParam = \case + "ID" -> Right ETLSFID + "NAME" -> Right ETLSFName + x -> Left ("Unable to parse EventTagsListSortField from: " <> x) + +instance ToHttpApiData EventTagsListSortField where + toQueryParam = \case + ETLSFID -> "ID" + ETLSFName -> "NAME" + +instance FromJSON EventTagsListSortField where + parseJSON = parseJSONText "EventTagsListSortField" + +instance ToJSON EventTagsListSortField where + toJSON = toJSONText + +-- | Type of inventory item. +data InventoryItemType + = IITPlanningPlacementTypeCredit + -- ^ @PLANNING_PLACEMENT_TYPE_CREDIT@ + | IITPlanningPlacementTypeRegular + -- ^ @PLANNING_PLACEMENT_TYPE_REGULAR@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable InventoryItemType + +instance FromHttpApiData InventoryItemType where + parseQueryParam = \case + "PLANNING_PLACEMENT_TYPE_CREDIT" -> Right IITPlanningPlacementTypeCredit + "PLANNING_PLACEMENT_TYPE_REGULAR" -> Right IITPlanningPlacementTypeRegular + x -> Left ("Unable to parse InventoryItemType from: " <> x) + +instance ToHttpApiData InventoryItemType where + toQueryParam = \case + IITPlanningPlacementTypeCredit -> "PLANNING_PLACEMENT_TYPE_CREDIT" + IITPlanningPlacementTypeRegular -> "PLANNING_PLACEMENT_TYPE_REGULAR" + +instance FromJSON InventoryItemType where + parseJSON = parseJSONText "InventoryItemType" + +instance ToJSON InventoryItemType where + toJSON = toJSONText + +-- | Offset top unit for an asset. This is a read-only field if the asset +-- displayType is ASSET_DISPLAY_TYPE_OVERLAY. Applicable to the following +-- creative types: all RICH_MEDIA. +data CreativeAssetPositionTopUnit + = CAPTUOffSetUnitPercent + -- ^ @OFFSET_UNIT_PERCENT@ + | CAPTUOffSetUnitPixel + -- ^ @OFFSET_UNIT_PIXEL@ + | CAPTUOffSetUnitPixelFromCenter + -- ^ @OFFSET_UNIT_PIXEL_FROM_CENTER@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeAssetPositionTopUnit + +instance FromHttpApiData CreativeAssetPositionTopUnit where + parseQueryParam = \case + "OFFSET_UNIT_PERCENT" -> Right CAPTUOffSetUnitPercent + "OFFSET_UNIT_PIXEL" -> Right CAPTUOffSetUnitPixel + "OFFSET_UNIT_PIXEL_FROM_CENTER" -> Right CAPTUOffSetUnitPixelFromCenter + x -> Left ("Unable to parse CreativeAssetPositionTopUnit from: " <> x) + +instance ToHttpApiData CreativeAssetPositionTopUnit where + toQueryParam = \case + CAPTUOffSetUnitPercent -> "OFFSET_UNIT_PERCENT" + CAPTUOffSetUnitPixel -> "OFFSET_UNIT_PIXEL" + CAPTUOffSetUnitPixelFromCenter -> "OFFSET_UNIT_PIXEL_FROM_CENTER" + +instance FromJSON CreativeAssetPositionTopUnit where + parseJSON = parseJSONText "CreativeAssetPositionTopUnit" + +instance ToJSON CreativeAssetPositionTopUnit where + toJSON = toJSONText + +-- | Type of the associated floodlight activity group. This is a read-only +-- field. +data FloodlightActivityFloodlightActivityGroupType + = FAFAGTCounter + -- ^ @COUNTER@ + | FAFAGTSale + -- ^ @SALE@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FloodlightActivityFloodlightActivityGroupType + +instance FromHttpApiData FloodlightActivityFloodlightActivityGroupType where + parseQueryParam = \case + "COUNTER" -> Right FAFAGTCounter + "SALE" -> Right FAFAGTSale + x -> Left ("Unable to parse FloodlightActivityFloodlightActivityGroupType from: " <> x) + +instance ToHttpApiData FloodlightActivityFloodlightActivityGroupType where + toQueryParam = \case + FAFAGTCounter -> "COUNTER" + FAFAGTSale -> "SALE" + +instance FromJSON FloodlightActivityFloodlightActivityGroupType where + parseJSON = parseJSONText "FloodlightActivityFloodlightActivityGroupType" + +instance ToJSON FloodlightActivityFloodlightActivityGroupType where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data DirectorySiteContactsListSortOrder + = DSCLSOAscending + -- ^ @ASCENDING@ + | DSCLSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable DirectorySiteContactsListSortOrder + +instance FromHttpApiData DirectorySiteContactsListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right DSCLSOAscending + "DESCENDING" -> Right DSCLSODescending + x -> Left ("Unable to parse DirectorySiteContactsListSortOrder from: " <> x) + +instance ToHttpApiData DirectorySiteContactsListSortOrder where + toQueryParam = \case + DSCLSOAscending -> "ASCENDING" + DSCLSODescending -> "DESCENDING" + +instance FromJSON DirectorySiteContactsListSortOrder where + parseJSON = parseJSONText "DirectorySiteContactsListSortOrder" + +instance ToJSON DirectorySiteContactsListSortOrder where + toJSON = toJSONText + +-- | Group type of this inventory item if it represents a placement group. Is +-- null otherwise. There are two type of placement groups: +-- PLANNING_PLACEMENT_GROUP_TYPE_PACKAGE is a simple group of inventory +-- items that acts as a single pricing point for a group of tags. +-- PLANNING_PLACEMENT_GROUP_TYPE_ROADBLOCK is a group of inventory items +-- that not only acts as a single pricing point, but also assumes that all +-- the tags in it will be served at the same time. A roadblock requires one +-- of its assigned inventory items to be marked as primary. +data PricingGroupType + = PlanningPlacementGroupTypePackage + -- ^ @PLANNING_PLACEMENT_GROUP_TYPE_PACKAGE@ + | PlanningPlacementGroupTypeRoadblock + -- ^ @PLANNING_PLACEMENT_GROUP_TYPE_ROADBLOCK@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PricingGroupType + +instance FromHttpApiData PricingGroupType where + parseQueryParam = \case + "PLANNING_PLACEMENT_GROUP_TYPE_PACKAGE" -> Right PlanningPlacementGroupTypePackage + "PLANNING_PLACEMENT_GROUP_TYPE_ROADBLOCK" -> Right PlanningPlacementGroupTypeRoadblock + x -> Left ("Unable to parse PricingGroupType from: " <> x) + +instance ToHttpApiData PricingGroupType where + toQueryParam = \case + PlanningPlacementGroupTypePackage -> "PLANNING_PLACEMENT_GROUP_TYPE_PACKAGE" + PlanningPlacementGroupTypeRoadblock -> "PLANNING_PLACEMENT_GROUP_TYPE_ROADBLOCK" + +instance FromJSON PricingGroupType where + parseJSON = parseJSONText "PricingGroupType" + +instance ToJSON PricingGroupType where + toJSON = toJSONText + +-- | Select only ads with the specified creativeType. +data AdsListCreativeType + = ALCTBrandSafeDefaultInstreamVideo + -- ^ @BRAND_SAFE_DEFAULT_INSTREAM_VIDEO@ + | ALCTCustomDisplay + -- ^ @CUSTOM_DISPLAY@ + | ALCTCustomDisplayInterstitial + -- ^ @CUSTOM_DISPLAY_INTERSTITIAL@ + | ALCTDisplay + -- ^ @DISPLAY@ + | ALCTDisplayImageGallery + -- ^ @DISPLAY_IMAGE_GALLERY@ + | ALCTDisplayRedirect + -- ^ @DISPLAY_REDIRECT@ + | ALCTFlashInpage + -- ^ @FLASH_INPAGE@ + | ALCTHTML5Banner + -- ^ @HTML5_BANNER@ + | ALCTImage + -- ^ @IMAGE@ + | ALCTInstreamVideo + -- ^ @INSTREAM_VIDEO@ + | ALCTInstreamVideoRedirect + -- ^ @INSTREAM_VIDEO_REDIRECT@ + | ALCTInternalRedirect + -- ^ @INTERNAL_REDIRECT@ + | ALCTInterstitialInternalRedirect + -- ^ @INTERSTITIAL_INTERNAL_REDIRECT@ + | ALCTRichMediaDisplayBanner + -- ^ @RICH_MEDIA_DISPLAY_BANNER@ + | ALCTRichMediaDisplayExpanding + -- ^ @RICH_MEDIA_DISPLAY_EXPANDING@ + | ALCTRichMediaDisplayInterstitial + -- ^ @RICH_MEDIA_DISPLAY_INTERSTITIAL@ + | ALCTRichMediaDisplayMultiFloatingInterstitial + -- ^ @RICH_MEDIA_DISPLAY_MULTI_FLOATING_INTERSTITIAL@ + | ALCTRichMediaImExpand + -- ^ @RICH_MEDIA_IM_EXPAND@ + | ALCTRichMediaInpageFloating + -- ^ @RICH_MEDIA_INPAGE_FLOATING@ + | ALCTRichMediaMobileInApp + -- ^ @RICH_MEDIA_MOBILE_IN_APP@ + | ALCTRichMediaPeelDown + -- ^ @RICH_MEDIA_PEEL_DOWN@ + | ALCTTrackingText + -- ^ @TRACKING_TEXT@ + | ALCTVpaidLinearVideo + -- ^ @VPAID_LINEAR_VIDEO@ + | ALCTVpaidNonLinearVideo + -- ^ @VPAID_NON_LINEAR_VIDEO@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AdsListCreativeType + +instance FromHttpApiData AdsListCreativeType where + parseQueryParam = \case + "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO" -> Right ALCTBrandSafeDefaultInstreamVideo + "CUSTOM_DISPLAY" -> Right ALCTCustomDisplay + "CUSTOM_DISPLAY_INTERSTITIAL" -> Right ALCTCustomDisplayInterstitial + "DISPLAY" -> Right ALCTDisplay + "DISPLAY_IMAGE_GALLERY" -> Right ALCTDisplayImageGallery + "DISPLAY_REDIRECT" -> Right ALCTDisplayRedirect + "FLASH_INPAGE" -> Right ALCTFlashInpage + "HTML5_BANNER" -> Right ALCTHTML5Banner + "IMAGE" -> Right ALCTImage + "INSTREAM_VIDEO" -> Right ALCTInstreamVideo + "INSTREAM_VIDEO_REDIRECT" -> Right ALCTInstreamVideoRedirect + "INTERNAL_REDIRECT" -> Right ALCTInternalRedirect + "INTERSTITIAL_INTERNAL_REDIRECT" -> Right ALCTInterstitialInternalRedirect + "RICH_MEDIA_DISPLAY_BANNER" -> Right ALCTRichMediaDisplayBanner + "RICH_MEDIA_DISPLAY_EXPANDING" -> Right ALCTRichMediaDisplayExpanding + "RICH_MEDIA_DISPLAY_INTERSTITIAL" -> Right ALCTRichMediaDisplayInterstitial + "RICH_MEDIA_DISPLAY_MULTI_FLOATING_INTERSTITIAL" -> Right ALCTRichMediaDisplayMultiFloatingInterstitial + "RICH_MEDIA_IM_EXPAND" -> Right ALCTRichMediaImExpand + "RICH_MEDIA_INPAGE_FLOATING" -> Right ALCTRichMediaInpageFloating + "RICH_MEDIA_MOBILE_IN_APP" -> Right ALCTRichMediaMobileInApp + "RICH_MEDIA_PEEL_DOWN" -> Right ALCTRichMediaPeelDown + "TRACKING_TEXT" -> Right ALCTTrackingText + "VPAID_LINEAR_VIDEO" -> Right ALCTVpaidLinearVideo + "VPAID_NON_LINEAR_VIDEO" -> Right ALCTVpaidNonLinearVideo + x -> Left ("Unable to parse AdsListCreativeType from: " <> x) + +instance ToHttpApiData AdsListCreativeType where + toQueryParam = \case + ALCTBrandSafeDefaultInstreamVideo -> "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO" + ALCTCustomDisplay -> "CUSTOM_DISPLAY" + ALCTCustomDisplayInterstitial -> "CUSTOM_DISPLAY_INTERSTITIAL" + ALCTDisplay -> "DISPLAY" + ALCTDisplayImageGallery -> "DISPLAY_IMAGE_GALLERY" + ALCTDisplayRedirect -> "DISPLAY_REDIRECT" + ALCTFlashInpage -> "FLASH_INPAGE" + ALCTHTML5Banner -> "HTML5_BANNER" + ALCTImage -> "IMAGE" + ALCTInstreamVideo -> "INSTREAM_VIDEO" + ALCTInstreamVideoRedirect -> "INSTREAM_VIDEO_REDIRECT" + ALCTInternalRedirect -> "INTERNAL_REDIRECT" + ALCTInterstitialInternalRedirect -> "INTERSTITIAL_INTERNAL_REDIRECT" + ALCTRichMediaDisplayBanner -> "RICH_MEDIA_DISPLAY_BANNER" + ALCTRichMediaDisplayExpanding -> "RICH_MEDIA_DISPLAY_EXPANDING" + ALCTRichMediaDisplayInterstitial -> "RICH_MEDIA_DISPLAY_INTERSTITIAL" + ALCTRichMediaDisplayMultiFloatingInterstitial -> "RICH_MEDIA_DISPLAY_MULTI_FLOATING_INTERSTITIAL" + ALCTRichMediaImExpand -> "RICH_MEDIA_IM_EXPAND" + ALCTRichMediaInpageFloating -> "RICH_MEDIA_INPAGE_FLOATING" + ALCTRichMediaMobileInApp -> "RICH_MEDIA_MOBILE_IN_APP" + ALCTRichMediaPeelDown -> "RICH_MEDIA_PEEL_DOWN" + ALCTTrackingText -> "TRACKING_TEXT" + ALCTVpaidLinearVideo -> "VPAID_LINEAR_VIDEO" + ALCTVpaidNonLinearVideo -> "VPAID_NON_LINEAR_VIDEO" + +instance FromJSON AdsListCreativeType where + parseJSON = parseJSONText "AdsListCreativeType" + +instance ToJSON AdsListCreativeType where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data FloodlightActivityGroupsListSortOrder + = FAGLSOAscending + -- ^ @ASCENDING@ + | FAGLSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FloodlightActivityGroupsListSortOrder + +instance FromHttpApiData FloodlightActivityGroupsListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right FAGLSOAscending + "DESCENDING" -> Right FAGLSODescending + x -> Left ("Unable to parse FloodlightActivityGroupsListSortOrder from: " <> x) + +instance ToHttpApiData FloodlightActivityGroupsListSortOrder where + toQueryParam = \case + FAGLSOAscending -> "ASCENDING" + FAGLSODescending -> "DESCENDING" + +instance FromJSON FloodlightActivityGroupsListSortOrder where + parseJSON = parseJSONText "FloodlightActivityGroupsListSortOrder" + +instance ToJSON FloodlightActivityGroupsListSortOrder where + toJSON = toJSONText + +-- | Type of creative rotation. Can be used to specify whether to use +-- sequential or random rotation. +data CreativeRotationType + = CreativeRotationTypeRandom + -- ^ @CREATIVE_ROTATION_TYPE_RANDOM@ + | CreativeRotationTypeSequential + -- ^ @CREATIVE_ROTATION_TYPE_SEQUENTIAL@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeRotationType + +instance FromHttpApiData CreativeRotationType where + parseQueryParam = \case + "CREATIVE_ROTATION_TYPE_RANDOM" -> Right CreativeRotationTypeRandom + "CREATIVE_ROTATION_TYPE_SEQUENTIAL" -> Right CreativeRotationTypeSequential + x -> Left ("Unable to parse CreativeRotationType from: " <> x) + +instance ToHttpApiData CreativeRotationType where + toQueryParam = \case + CreativeRotationTypeRandom -> "CREATIVE_ROTATION_TYPE_RANDOM" + CreativeRotationTypeSequential -> "CREATIVE_ROTATION_TYPE_SEQUENTIAL" + +instance FromJSON CreativeRotationType where + parseJSON = parseJSONText "CreativeRotationType" + +instance ToJSON CreativeRotationType where + toJSON = toJSONText + +-- | Field by which to sort the list. +data OrdersListSortField + = OLSFID + -- ^ @ID@ + | OLSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable OrdersListSortField + +instance FromHttpApiData OrdersListSortField where + parseQueryParam = \case + "ID" -> Right OLSFID + "NAME" -> Right OLSFName + x -> Left ("Unable to parse OrdersListSortField from: " <> x) + +instance ToHttpApiData OrdersListSortField where + toQueryParam = \case + OLSFID -> "ID" + OLSFName -> "NAME" + +instance FromJSON OrdersListSortField where + parseJSON = parseJSONText "OrdersListSortField" + +instance ToJSON OrdersListSortField where + toJSON = toJSONText + +-- | Field by which to sort the list. +data PlacementGroupsListSortField + = PGLSFID + -- ^ @ID@ + | PGLSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PlacementGroupsListSortField + +instance FromHttpApiData PlacementGroupsListSortField where + parseQueryParam = \case + "ID" -> Right PGLSFID + "NAME" -> Right PGLSFName + x -> Left ("Unable to parse PlacementGroupsListSortField from: " <> x) + +instance ToHttpApiData PlacementGroupsListSortField where + toQueryParam = \case + PGLSFID -> "ID" + PGLSFName -> "NAME" + +instance FromJSON PlacementGroupsListSortField where + parseJSON = parseJSONText "PlacementGroupsListSortField" + +instance ToJSON PlacementGroupsListSortField where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data DirectorySitesListSortOrder + = DSLSOAscending + -- ^ @ASCENDING@ + | DSLSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable DirectorySitesListSortOrder + +instance FromHttpApiData DirectorySitesListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right DSLSOAscending + "DESCENDING" -> Right DSLSODescending + x -> Left ("Unable to parse DirectorySitesListSortOrder from: " <> x) + +instance ToHttpApiData DirectorySitesListSortOrder where + toQueryParam = \case + DSLSOAscending -> "ASCENDING" + DSLSODescending -> "DESCENDING" + +instance FromJSON DirectorySitesListSortOrder where + parseJSON = parseJSONText "DirectorySitesListSortOrder" + +instance ToJSON DirectorySitesListSortOrder where + toJSON = toJSONText + +data CreativeAssetDetectedFeaturesItem + = CADFIApplicationCache + -- ^ @APPLICATION_CACHE@ + | CADFIAudio + -- ^ @AUDIO@ + | CADFICanvas + -- ^ @CANVAS@ + | CADFICanvasText + -- ^ @CANVAS_TEXT@ + | CADFICssAnimations + -- ^ @CSS_ANIMATIONS@ + | CADFICssBackgRoundSize + -- ^ @CSS_BACKGROUND_SIZE@ + | CADFICssBOrderImage + -- ^ @CSS_BORDER_IMAGE@ + | CADFICssBOrderRadius + -- ^ @CSS_BORDER_RADIUS@ + | CADFICssBoxShadow + -- ^ @CSS_BOX_SHADOW@ + | CADFICssColumns + -- ^ @CSS_COLUMNS@ + | CADFICssFlexBox + -- ^ @CSS_FLEX_BOX@ + | CADFICssFontFace + -- ^ @CSS_FONT_FACE@ + | CADFICssGeneratedContent + -- ^ @CSS_GENERATED_CONTENT@ + | CADFICssGradients + -- ^ @CSS_GRADIENTS@ + | CADFICssHsla + -- ^ @CSS_HSLA@ + | CADFICssMultipleBgs + -- ^ @CSS_MULTIPLE_BGS@ + | CADFICssOpacity + -- ^ @CSS_OPACITY@ + | CADFICssReflections + -- ^ @CSS_REFLECTIONS@ + | CADFICssRgba + -- ^ @CSS_RGBA@ + | CADFICssTextShadow + -- ^ @CSS_TEXT_SHADOW@ + | CADFICssTransforms + -- ^ @CSS_TRANSFORMS@ + | CADFICssTRANSFORMS3D + -- ^ @CSS_TRANSFORMS3D@ + | CADFICssTransitions + -- ^ @CSS_TRANSITIONS@ + | CADFIDragAndDrop + -- ^ @DRAG_AND_DROP@ + | CADFIGeoLocation + -- ^ @GEO_LOCATION@ + | CADFIHashChange + -- ^ @HASH_CHANGE@ + | CADFIHistory + -- ^ @HISTORY@ + | CADFIIndexedDB + -- ^ @INDEXED_DB@ + | CADFIInlineSvg + -- ^ @INLINE_SVG@ + | CADFIInputAttrAutocomplete + -- ^ @INPUT_ATTR_AUTOCOMPLETE@ + | CADFIInputAttrAutofocus + -- ^ @INPUT_ATTR_AUTOFOCUS@ + | CADFIInputAttrList + -- ^ @INPUT_ATTR_LIST@ + | CADFIInputAttrMax + -- ^ @INPUT_ATTR_MAX@ + | CADFIInputAttrMin + -- ^ @INPUT_ATTR_MIN@ + | CADFIInputAttrMultiple + -- ^ @INPUT_ATTR_MULTIPLE@ + | CADFIInputAttrPattern + -- ^ @INPUT_ATTR_PATTERN@ + | CADFIInputAttrPlaceholder + -- ^ @INPUT_ATTR_PLACEHOLDER@ + | CADFIInputAttrRequired + -- ^ @INPUT_ATTR_REQUIRED@ + | CADFIInputAttrStep + -- ^ @INPUT_ATTR_STEP@ + | CADFIInputTypeColor + -- ^ @INPUT_TYPE_COLOR@ + | CADFIInputTypeDate + -- ^ @INPUT_TYPE_DATE@ + | CADFIInputTypeDatetime + -- ^ @INPUT_TYPE_DATETIME@ + | CADFIInputTypeDatetimeLocal + -- ^ @INPUT_TYPE_DATETIME_LOCAL@ + | CADFIInputTypeEmail + -- ^ @INPUT_TYPE_EMAIL@ + | CADFIInputTypeMonth + -- ^ @INPUT_TYPE_MONTH@ + | CADFIInputTypeNumber + -- ^ @INPUT_TYPE_NUMBER@ + | CADFIInputTypeRange + -- ^ @INPUT_TYPE_RANGE@ + | CADFIInputTypeSearch + -- ^ @INPUT_TYPE_SEARCH@ + | CADFIInputTypeTel + -- ^ @INPUT_TYPE_TEL@ + | CADFIInputTypeTime + -- ^ @INPUT_TYPE_TIME@ + | CADFIInputTypeURL + -- ^ @INPUT_TYPE_URL@ + | CADFIInputTypeWeek + -- ^ @INPUT_TYPE_WEEK@ + | CADFILocalStorage + -- ^ @LOCAL_STORAGE@ + | CADFIPostMessage + -- ^ @POST_MESSAGE@ + | CADFISessionStorage + -- ^ @SESSION_STORAGE@ + | CADFISmil + -- ^ @SMIL@ + | CADFISvgClipPaths + -- ^ @SVG_CLIP_PATHS@ + | CADFISvgFeImage + -- ^ @SVG_FE_IMAGE@ + | CADFISvgFilters + -- ^ @SVG_FILTERS@ + | CADFISvgHref + -- ^ @SVG_HREF@ + | CADFITouch + -- ^ @TOUCH@ + | CADFIVideo + -- ^ @VIDEO@ + | CADFIWebgl + -- ^ @WEBGL@ + | CADFIWebSockets + -- ^ @WEB_SOCKETS@ + | CADFIWebSQLDatabase + -- ^ @WEB_SQL_DATABASE@ + | CADFIWebWorkers + -- ^ @WEB_WORKERS@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeAssetDetectedFeaturesItem + +instance FromHttpApiData CreativeAssetDetectedFeaturesItem where + parseQueryParam = \case + "APPLICATION_CACHE" -> Right CADFIApplicationCache + "AUDIO" -> Right CADFIAudio + "CANVAS" -> Right CADFICanvas + "CANVAS_TEXT" -> Right CADFICanvasText + "CSS_ANIMATIONS" -> Right CADFICssAnimations + "CSS_BACKGROUND_SIZE" -> Right CADFICssBackgRoundSize + "CSS_BORDER_IMAGE" -> Right CADFICssBOrderImage + "CSS_BORDER_RADIUS" -> Right CADFICssBOrderRadius + "CSS_BOX_SHADOW" -> Right CADFICssBoxShadow + "CSS_COLUMNS" -> Right CADFICssColumns + "CSS_FLEX_BOX" -> Right CADFICssFlexBox + "CSS_FONT_FACE" -> Right CADFICssFontFace + "CSS_GENERATED_CONTENT" -> Right CADFICssGeneratedContent + "CSS_GRADIENTS" -> Right CADFICssGradients + "CSS_HSLA" -> Right CADFICssHsla + "CSS_MULTIPLE_BGS" -> Right CADFICssMultipleBgs + "CSS_OPACITY" -> Right CADFICssOpacity + "CSS_REFLECTIONS" -> Right CADFICssReflections + "CSS_RGBA" -> Right CADFICssRgba + "CSS_TEXT_SHADOW" -> Right CADFICssTextShadow + "CSS_TRANSFORMS" -> Right CADFICssTransforms + "CSS_TRANSFORMS3D" -> Right CADFICssTRANSFORMS3D + "CSS_TRANSITIONS" -> Right CADFICssTransitions + "DRAG_AND_DROP" -> Right CADFIDragAndDrop + "GEO_LOCATION" -> Right CADFIGeoLocation + "HASH_CHANGE" -> Right CADFIHashChange + "HISTORY" -> Right CADFIHistory + "INDEXED_DB" -> Right CADFIIndexedDB + "INLINE_SVG" -> Right CADFIInlineSvg + "INPUT_ATTR_AUTOCOMPLETE" -> Right CADFIInputAttrAutocomplete + "INPUT_ATTR_AUTOFOCUS" -> Right CADFIInputAttrAutofocus + "INPUT_ATTR_LIST" -> Right CADFIInputAttrList + "INPUT_ATTR_MAX" -> Right CADFIInputAttrMax + "INPUT_ATTR_MIN" -> Right CADFIInputAttrMin + "INPUT_ATTR_MULTIPLE" -> Right CADFIInputAttrMultiple + "INPUT_ATTR_PATTERN" -> Right CADFIInputAttrPattern + "INPUT_ATTR_PLACEHOLDER" -> Right CADFIInputAttrPlaceholder + "INPUT_ATTR_REQUIRED" -> Right CADFIInputAttrRequired + "INPUT_ATTR_STEP" -> Right CADFIInputAttrStep + "INPUT_TYPE_COLOR" -> Right CADFIInputTypeColor + "INPUT_TYPE_DATE" -> Right CADFIInputTypeDate + "INPUT_TYPE_DATETIME" -> Right CADFIInputTypeDatetime + "INPUT_TYPE_DATETIME_LOCAL" -> Right CADFIInputTypeDatetimeLocal + "INPUT_TYPE_EMAIL" -> Right CADFIInputTypeEmail + "INPUT_TYPE_MONTH" -> Right CADFIInputTypeMonth + "INPUT_TYPE_NUMBER" -> Right CADFIInputTypeNumber + "INPUT_TYPE_RANGE" -> Right CADFIInputTypeRange + "INPUT_TYPE_SEARCH" -> Right CADFIInputTypeSearch + "INPUT_TYPE_TEL" -> Right CADFIInputTypeTel + "INPUT_TYPE_TIME" -> Right CADFIInputTypeTime + "INPUT_TYPE_URL" -> Right CADFIInputTypeURL + "INPUT_TYPE_WEEK" -> Right CADFIInputTypeWeek + "LOCAL_STORAGE" -> Right CADFILocalStorage + "POST_MESSAGE" -> Right CADFIPostMessage + "SESSION_STORAGE" -> Right CADFISessionStorage + "SMIL" -> Right CADFISmil + "SVG_CLIP_PATHS" -> Right CADFISvgClipPaths + "SVG_FE_IMAGE" -> Right CADFISvgFeImage + "SVG_FILTERS" -> Right CADFISvgFilters + "SVG_HREF" -> Right CADFISvgHref + "TOUCH" -> Right CADFITouch + "VIDEO" -> Right CADFIVideo + "WEBGL" -> Right CADFIWebgl + "WEB_SOCKETS" -> Right CADFIWebSockets + "WEB_SQL_DATABASE" -> Right CADFIWebSQLDatabase + "WEB_WORKERS" -> Right CADFIWebWorkers + x -> Left ("Unable to parse CreativeAssetDetectedFeaturesItem from: " <> x) + +instance ToHttpApiData CreativeAssetDetectedFeaturesItem where + toQueryParam = \case + CADFIApplicationCache -> "APPLICATION_CACHE" + CADFIAudio -> "AUDIO" + CADFICanvas -> "CANVAS" + CADFICanvasText -> "CANVAS_TEXT" + CADFICssAnimations -> "CSS_ANIMATIONS" + CADFICssBackgRoundSize -> "CSS_BACKGROUND_SIZE" + CADFICssBOrderImage -> "CSS_BORDER_IMAGE" + CADFICssBOrderRadius -> "CSS_BORDER_RADIUS" + CADFICssBoxShadow -> "CSS_BOX_SHADOW" + CADFICssColumns -> "CSS_COLUMNS" + CADFICssFlexBox -> "CSS_FLEX_BOX" + CADFICssFontFace -> "CSS_FONT_FACE" + CADFICssGeneratedContent -> "CSS_GENERATED_CONTENT" + CADFICssGradients -> "CSS_GRADIENTS" + CADFICssHsla -> "CSS_HSLA" + CADFICssMultipleBgs -> "CSS_MULTIPLE_BGS" + CADFICssOpacity -> "CSS_OPACITY" + CADFICssReflections -> "CSS_REFLECTIONS" + CADFICssRgba -> "CSS_RGBA" + CADFICssTextShadow -> "CSS_TEXT_SHADOW" + CADFICssTransforms -> "CSS_TRANSFORMS" + CADFICssTRANSFORMS3D -> "CSS_TRANSFORMS3D" + CADFICssTransitions -> "CSS_TRANSITIONS" + CADFIDragAndDrop -> "DRAG_AND_DROP" + CADFIGeoLocation -> "GEO_LOCATION" + CADFIHashChange -> "HASH_CHANGE" + CADFIHistory -> "HISTORY" + CADFIIndexedDB -> "INDEXED_DB" + CADFIInlineSvg -> "INLINE_SVG" + CADFIInputAttrAutocomplete -> "INPUT_ATTR_AUTOCOMPLETE" + CADFIInputAttrAutofocus -> "INPUT_ATTR_AUTOFOCUS" + CADFIInputAttrList -> "INPUT_ATTR_LIST" + CADFIInputAttrMax -> "INPUT_ATTR_MAX" + CADFIInputAttrMin -> "INPUT_ATTR_MIN" + CADFIInputAttrMultiple -> "INPUT_ATTR_MULTIPLE" + CADFIInputAttrPattern -> "INPUT_ATTR_PATTERN" + CADFIInputAttrPlaceholder -> "INPUT_ATTR_PLACEHOLDER" + CADFIInputAttrRequired -> "INPUT_ATTR_REQUIRED" + CADFIInputAttrStep -> "INPUT_ATTR_STEP" + CADFIInputTypeColor -> "INPUT_TYPE_COLOR" + CADFIInputTypeDate -> "INPUT_TYPE_DATE" + CADFIInputTypeDatetime -> "INPUT_TYPE_DATETIME" + CADFIInputTypeDatetimeLocal -> "INPUT_TYPE_DATETIME_LOCAL" + CADFIInputTypeEmail -> "INPUT_TYPE_EMAIL" + CADFIInputTypeMonth -> "INPUT_TYPE_MONTH" + CADFIInputTypeNumber -> "INPUT_TYPE_NUMBER" + CADFIInputTypeRange -> "INPUT_TYPE_RANGE" + CADFIInputTypeSearch -> "INPUT_TYPE_SEARCH" + CADFIInputTypeTel -> "INPUT_TYPE_TEL" + CADFIInputTypeTime -> "INPUT_TYPE_TIME" + CADFIInputTypeURL -> "INPUT_TYPE_URL" + CADFIInputTypeWeek -> "INPUT_TYPE_WEEK" + CADFILocalStorage -> "LOCAL_STORAGE" + CADFIPostMessage -> "POST_MESSAGE" + CADFISessionStorage -> "SESSION_STORAGE" + CADFISmil -> "SMIL" + CADFISvgClipPaths -> "SVG_CLIP_PATHS" + CADFISvgFeImage -> "SVG_FE_IMAGE" + CADFISvgFilters -> "SVG_FILTERS" + CADFISvgHref -> "SVG_HREF" + CADFITouch -> "TOUCH" + CADFIVideo -> "VIDEO" + CADFIWebgl -> "WEBGL" + CADFIWebSockets -> "WEB_SOCKETS" + CADFIWebSQLDatabase -> "WEB_SQL_DATABASE" + CADFIWebWorkers -> "WEB_WORKERS" + +instance FromJSON CreativeAssetDetectedFeaturesItem where + parseJSON = parseJSONText "CreativeAssetDetectedFeaturesItem" + +instance ToJSON CreativeAssetDetectedFeaturesItem where + toJSON = toJSONText + +-- | Type of the floodlight activity group. This is a required field that is +-- read-only after insertion. +data FloodlightActivityGroupType + = FAGTCounter + -- ^ @COUNTER@ + | FAGTSale + -- ^ @SALE@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FloodlightActivityGroupType + +instance FromHttpApiData FloodlightActivityGroupType where + parseQueryParam = \case + "COUNTER" -> Right FAGTCounter + "SALE" -> Right FAGTSale + x -> Left ("Unable to parse FloodlightActivityGroupType from: " <> x) + +instance ToHttpApiData FloodlightActivityGroupType where + toQueryParam = \case + FAGTCounter -> "COUNTER" + FAGTSale -> "SALE" + +instance FromJSON FloodlightActivityGroupType where + parseJSON = parseJSONText "FloodlightActivityGroupType" + +instance ToJSON FloodlightActivityGroupType where + toJSON = toJSONText + +-- | Directory site contact type. +data DirectorySiteContactType + = DSCTBilling + -- ^ @BILLING@ + | DSCTOther + -- ^ @OTHER@ + | DSCTSales + -- ^ @SALES@ + | DSCTTechnical + -- ^ @TECHNICAL@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable DirectorySiteContactType + +instance FromHttpApiData DirectorySiteContactType where + parseQueryParam = \case + "BILLING" -> Right DSCTBilling + "OTHER" -> Right DSCTOther + "SALES" -> Right DSCTSales + "TECHNICAL" -> Right DSCTTechnical + x -> Left ("Unable to parse DirectorySiteContactType from: " <> x) + +instance ToHttpApiData DirectorySiteContactType where + toQueryParam = \case + DSCTBilling -> "BILLING" + DSCTOther -> "OTHER" + DSCTSales -> "SALES" + DSCTTechnical -> "TECHNICAL" + +instance FromJSON DirectorySiteContactType where + parseJSON = parseJSONText "DirectorySiteContactType" + +instance ToJSON DirectorySiteContactType where + toJSON = toJSONText + +-- | Tag formats to generate for these placements. +data PlacementsGeneratetagsTagFormats + = PGTFPlacementTagClickCommands + -- ^ @PLACEMENT_TAG_CLICK_COMMANDS@ + | PGTFPlacementTagIframeIlayer + -- ^ @PLACEMENT_TAG_IFRAME_ILAYER@ + | PGTFPlacementTagIframeJavascript + -- ^ @PLACEMENT_TAG_IFRAME_JAVASCRIPT@ + | PGTFPlacementTagIframeJavascriptLegacy + -- ^ @PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY@ + | PGTFPlacementTagInstreamVideoPrefetch + -- ^ @PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH@ + | PGTFPlacementTagInstreamVideoPrefetchVast3 + -- ^ @PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3@ + | PGTFPlacementTagInternalRedirect + -- ^ @PLACEMENT_TAG_INTERNAL_REDIRECT@ + | PGTFPlacementTagInterstitialIframeJavascript + -- ^ @PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT@ + | PGTFPlacementTagInterstitialIframeJavascriptLegacy + -- ^ @PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY@ + | PGTFPlacementTagInterstitialInternalRedirect + -- ^ @PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT@ + | PGTFPlacementTagInterstitialJavascript + -- ^ @PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT@ + | PGTFPlacementTagInterstitialJavascriptLegacy + -- ^ @PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY@ + | PGTFPlacementTagJavascript + -- ^ @PLACEMENT_TAG_JAVASCRIPT@ + | PGTFPlacementTagJavascriptLegacy + -- ^ @PLACEMENT_TAG_JAVASCRIPT_LEGACY@ + | PGTFPlacementTagStandard + -- ^ @PLACEMENT_TAG_STANDARD@ + | PGTFPlacementTagTracking + -- ^ @PLACEMENT_TAG_TRACKING@ + | PGTFPlacementTagTrackingIframe + -- ^ @PLACEMENT_TAG_TRACKING_IFRAME@ + | PGTFPlacementTagTrackingJavascript + -- ^ @PLACEMENT_TAG_TRACKING_JAVASCRIPT@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PlacementsGeneratetagsTagFormats + +instance FromHttpApiData PlacementsGeneratetagsTagFormats where + parseQueryParam = \case + "PLACEMENT_TAG_CLICK_COMMANDS" -> Right PGTFPlacementTagClickCommands + "PLACEMENT_TAG_IFRAME_ILAYER" -> Right PGTFPlacementTagIframeIlayer + "PLACEMENT_TAG_IFRAME_JAVASCRIPT" -> Right PGTFPlacementTagIframeJavascript + "PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY" -> Right PGTFPlacementTagIframeJavascriptLegacy + "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH" -> Right PGTFPlacementTagInstreamVideoPrefetch + "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3" -> Right PGTFPlacementTagInstreamVideoPrefetchVast3 + "PLACEMENT_TAG_INTERNAL_REDIRECT" -> Right PGTFPlacementTagInternalRedirect + "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT" -> Right PGTFPlacementTagInterstitialIframeJavascript + "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY" -> Right PGTFPlacementTagInterstitialIframeJavascriptLegacy + "PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT" -> Right PGTFPlacementTagInterstitialInternalRedirect + "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT" -> Right PGTFPlacementTagInterstitialJavascript + "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY" -> Right PGTFPlacementTagInterstitialJavascriptLegacy + "PLACEMENT_TAG_JAVASCRIPT" -> Right PGTFPlacementTagJavascript + "PLACEMENT_TAG_JAVASCRIPT_LEGACY" -> Right PGTFPlacementTagJavascriptLegacy + "PLACEMENT_TAG_STANDARD" -> Right PGTFPlacementTagStandard + "PLACEMENT_TAG_TRACKING" -> Right PGTFPlacementTagTracking + "PLACEMENT_TAG_TRACKING_IFRAME" -> Right PGTFPlacementTagTrackingIframe + "PLACEMENT_TAG_TRACKING_JAVASCRIPT" -> Right PGTFPlacementTagTrackingJavascript + x -> Left ("Unable to parse PlacementsGeneratetagsTagFormats from: " <> x) + +instance ToHttpApiData PlacementsGeneratetagsTagFormats where + toQueryParam = \case + PGTFPlacementTagClickCommands -> "PLACEMENT_TAG_CLICK_COMMANDS" + PGTFPlacementTagIframeIlayer -> "PLACEMENT_TAG_IFRAME_ILAYER" + PGTFPlacementTagIframeJavascript -> "PLACEMENT_TAG_IFRAME_JAVASCRIPT" + PGTFPlacementTagIframeJavascriptLegacy -> "PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY" + PGTFPlacementTagInstreamVideoPrefetch -> "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH" + PGTFPlacementTagInstreamVideoPrefetchVast3 -> "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3" + PGTFPlacementTagInternalRedirect -> "PLACEMENT_TAG_INTERNAL_REDIRECT" + PGTFPlacementTagInterstitialIframeJavascript -> "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT" + PGTFPlacementTagInterstitialIframeJavascriptLegacy -> "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY" + PGTFPlacementTagInterstitialInternalRedirect -> "PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT" + PGTFPlacementTagInterstitialJavascript -> "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT" + PGTFPlacementTagInterstitialJavascriptLegacy -> "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY" + PGTFPlacementTagJavascript -> "PLACEMENT_TAG_JAVASCRIPT" + PGTFPlacementTagJavascriptLegacy -> "PLACEMENT_TAG_JAVASCRIPT_LEGACY" + PGTFPlacementTagStandard -> "PLACEMENT_TAG_STANDARD" + PGTFPlacementTagTracking -> "PLACEMENT_TAG_TRACKING" + PGTFPlacementTagTrackingIframe -> "PLACEMENT_TAG_TRACKING_IFRAME" + PGTFPlacementTagTrackingJavascript -> "PLACEMENT_TAG_TRACKING_JAVASCRIPT" + +instance FromJSON PlacementsGeneratetagsTagFormats where + parseJSON = parseJSONText "PlacementsGeneratetagsTagFormats" + +instance ToJSON PlacementsGeneratetagsTagFormats where + toJSON = toJSONText + +-- | Field by which to sort the list. +data AccountUserProFilesListSortField + = AUPFLSFID + -- ^ @ID@ + | AUPFLSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AccountUserProFilesListSortField + +instance FromHttpApiData AccountUserProFilesListSortField where + parseQueryParam = \case + "ID" -> Right AUPFLSFID + "NAME" -> Right AUPFLSFName + x -> Left ("Unable to parse AccountUserProFilesListSortField from: " <> x) + +instance ToHttpApiData AccountUserProFilesListSortField where + toQueryParam = \case + AUPFLSFID -> "ID" + AUPFLSFName -> "NAME" + +instance FromJSON AccountUserProFilesListSortField where + parseJSON = parseJSONText "AccountUserProFilesListSortField" + +instance ToJSON AccountUserProFilesListSortField where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data InventoryItemsListSortOrder + = IILSOAscending + -- ^ @ASCENDING@ + | IILSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable InventoryItemsListSortOrder + +instance FromHttpApiData InventoryItemsListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right IILSOAscending + "DESCENDING" -> Right IILSODescending + x -> Left ("Unable to parse InventoryItemsListSortOrder from: " <> x) + +instance ToHttpApiData InventoryItemsListSortOrder where + toQueryParam = \case + IILSOAscending -> "ASCENDING" + IILSODescending -> "DESCENDING" + +instance FromJSON InventoryItemsListSortOrder where + parseJSON = parseJSONText "InventoryItemsListSortOrder" + +instance ToJSON InventoryItemsListSortOrder where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data PlacementStrategiesListSortOrder + = PSLSOAscending + -- ^ @ASCENDING@ + | PSLSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PlacementStrategiesListSortOrder + +instance FromHttpApiData PlacementStrategiesListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right PSLSOAscending + "DESCENDING" -> Right PSLSODescending + x -> Left ("Unable to parse PlacementStrategiesListSortOrder from: " <> x) + +instance ToHttpApiData PlacementStrategiesListSortOrder where + toQueryParam = \case + PSLSOAscending -> "ASCENDING" + PSLSODescending -> "DESCENDING" + +instance FromJSON PlacementStrategiesListSortOrder where + parseJSON = parseJSONText "PlacementStrategiesListSortOrder" + +instance ToJSON PlacementStrategiesListSortOrder where + toJSON = toJSONText + +-- | The field by which to sort the list. +data ReportsFilesListSortField + = RFLSFID + -- ^ @ID@ + -- Sort by file ID. + | RFLSFLastModifiedTime + -- ^ @LAST_MODIFIED_TIME@ + -- Sort by \'lastmodifiedAt\' field. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ReportsFilesListSortField + +instance FromHttpApiData ReportsFilesListSortField where + parseQueryParam = \case + "ID" -> Right RFLSFID + "LAST_MODIFIED_TIME" -> Right RFLSFLastModifiedTime + x -> Left ("Unable to parse ReportsFilesListSortField from: " <> x) + +instance ToHttpApiData ReportsFilesListSortField where + toQueryParam = \case + RFLSFID -> "ID" + RFLSFLastModifiedTime -> "LAST_MODIFIED_TIME" + +instance FromJSON ReportsFilesListSortField where + parseJSON = parseJSONText "ReportsFilesListSortField" + +instance ToJSON ReportsFilesListSortField where + toJSON = toJSONText + +-- | Field by which to sort the list. +data CreativesListSortField + = CID + -- ^ @ID@ + | CName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativesListSortField + +instance FromHttpApiData CreativesListSortField where + parseQueryParam = \case + "ID" -> Right CID + "NAME" -> Right CName + x -> Left ("Unable to parse CreativesListSortField from: " <> x) + +instance ToHttpApiData CreativesListSortField where + toQueryParam = \case + CID -> "ID" + CName -> "NAME" + +instance FromJSON CreativesListSortField where + parseJSON = parseJSONText "CreativesListSortField" + +instance ToJSON CreativesListSortField where + toJSON = toJSONText + +data DayPartTargetingDaysOfWeekItem + = DPTDOWIFriday + -- ^ @FRIDAY@ + | DPTDOWIMonday + -- ^ @MONDAY@ + | DPTDOWISaturday + -- ^ @SATURDAY@ + | DPTDOWISunday + -- ^ @SUNDAY@ + | DPTDOWIThursday + -- ^ @THURSDAY@ + | DPTDOWITuesday + -- ^ @TUESDAY@ + | DPTDOWIWednesday + -- ^ @WEDNESDAY@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable DayPartTargetingDaysOfWeekItem + +instance FromHttpApiData DayPartTargetingDaysOfWeekItem where + parseQueryParam = \case + "FRIDAY" -> Right DPTDOWIFriday + "MONDAY" -> Right DPTDOWIMonday + "SATURDAY" -> Right DPTDOWISaturday + "SUNDAY" -> Right DPTDOWISunday + "THURSDAY" -> Right DPTDOWIThursday + "TUESDAY" -> Right DPTDOWITuesday + "WEDNESDAY" -> Right DPTDOWIWednesday + x -> Left ("Unable to parse DayPartTargetingDaysOfWeekItem from: " <> x) + +instance ToHttpApiData DayPartTargetingDaysOfWeekItem where + toQueryParam = \case + DPTDOWIFriday -> "FRIDAY" + DPTDOWIMonday -> "MONDAY" + DPTDOWISaturday -> "SATURDAY" + DPTDOWISunday -> "SUNDAY" + DPTDOWIThursday -> "THURSDAY" + DPTDOWITuesday -> "TUESDAY" + DPTDOWIWednesday -> "WEDNESDAY" + +instance FromJSON DayPartTargetingDaysOfWeekItem where + parseJSON = parseJSONText "DayPartTargetingDaysOfWeekItem" + +instance ToJSON DayPartTargetingDaysOfWeekItem where + toJSON = toJSONText + +-- | Strategy for calculating weights. Used with +-- CREATIVE_ROTATION_TYPE_RANDOM. +data CreativeRotationWeightCalculationStrategy + = WeightStrategyCustom + -- ^ @WEIGHT_STRATEGY_CUSTOM@ + | WeightStrategyEqual + -- ^ @WEIGHT_STRATEGY_EQUAL@ + | WeightStrategyHighestCtr + -- ^ @WEIGHT_STRATEGY_HIGHEST_CTR@ + | WeightStrategyOptimized + -- ^ @WEIGHT_STRATEGY_OPTIMIZED@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeRotationWeightCalculationStrategy + +instance FromHttpApiData CreativeRotationWeightCalculationStrategy where + parseQueryParam = \case + "WEIGHT_STRATEGY_CUSTOM" -> Right WeightStrategyCustom + "WEIGHT_STRATEGY_EQUAL" -> Right WeightStrategyEqual + "WEIGHT_STRATEGY_HIGHEST_CTR" -> Right WeightStrategyHighestCtr + "WEIGHT_STRATEGY_OPTIMIZED" -> Right WeightStrategyOptimized + x -> Left ("Unable to parse CreativeRotationWeightCalculationStrategy from: " <> x) + +instance ToHttpApiData CreativeRotationWeightCalculationStrategy where + toQueryParam = \case + WeightStrategyCustom -> "WEIGHT_STRATEGY_CUSTOM" + WeightStrategyEqual -> "WEIGHT_STRATEGY_EQUAL" + WeightStrategyHighestCtr -> "WEIGHT_STRATEGY_HIGHEST_CTR" + WeightStrategyOptimized -> "WEIGHT_STRATEGY_OPTIMIZED" + +instance FromJSON CreativeRotationWeightCalculationStrategy where + parseJSON = parseJSONText "CreativeRotationWeightCalculationStrategy" + +instance ToJSON CreativeRotationWeightCalculationStrategy where + toJSON = toJSONText + +-- | The scope that defines which results are returned, default is \'MINE\'. +data FilesListScope + = FLSAll + -- ^ @ALL@ + -- All files in account. + | FLSMine + -- ^ @MINE@ + -- My files. + | FLSSharedWithMe + -- ^ @SHARED_WITH_ME@ + -- Files shared with me. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FilesListScope + +instance FromHttpApiData FilesListScope where + parseQueryParam = \case + "ALL" -> Right FLSAll + "MINE" -> Right FLSMine + "SHARED_WITH_ME" -> Right FLSSharedWithMe + x -> Left ("Unable to parse FilesListScope from: " <> x) + +instance ToHttpApiData FilesListScope where + toQueryParam = \case + FLSAll -> "ALL" + FLSMine -> "MINE" + FLSSharedWithMe -> "SHARED_WITH_ME" + +instance FromJSON FilesListScope where + parseJSON = parseJSONText "FilesListScope" + +instance ToJSON FilesListScope where + toJSON = toJSONText + +-- | Field by which to sort the list. +data ContentCategoriesListSortField + = CCLSFID + -- ^ @ID@ + | CCLSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ContentCategoriesListSortField + +instance FromHttpApiData ContentCategoriesListSortField where + parseQueryParam = \case + "ID" -> Right CCLSFID + "NAME" -> Right CCLSFName + x -> Left ("Unable to parse ContentCategoriesListSortField from: " <> x) + +instance ToHttpApiData ContentCategoriesListSortField where + toQueryParam = \case + CCLSFID -> "ID" + CCLSFName -> "NAME" + +instance FromJSON ContentCategoriesListSortField where + parseJSON = parseJSONText "ContentCategoriesListSortField" + +instance ToJSON ContentCategoriesListSortField where + toJSON = toJSONText + +-- | Audience age group of this project. +data ProjectAudienceAgeGroup + = PlanningAudienceAge1824 + -- ^ @PLANNING_AUDIENCE_AGE_18_24@ + | PlanningAudienceAge2534 + -- ^ @PLANNING_AUDIENCE_AGE_25_34@ + | PlanningAudienceAge3544 + -- ^ @PLANNING_AUDIENCE_AGE_35_44@ + | PlanningAudienceAge4554 + -- ^ @PLANNING_AUDIENCE_AGE_45_54@ + | PlanningAudienceAge5564 + -- ^ @PLANNING_AUDIENCE_AGE_55_64@ + | PlanningAudienceAge65OrMore + -- ^ @PLANNING_AUDIENCE_AGE_65_OR_MORE@ + | PlanningAudienceAgeUnknown + -- ^ @PLANNING_AUDIENCE_AGE_UNKNOWN@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ProjectAudienceAgeGroup + +instance FromHttpApiData ProjectAudienceAgeGroup where + parseQueryParam = \case + "PLANNING_AUDIENCE_AGE_18_24" -> Right PlanningAudienceAge1824 + "PLANNING_AUDIENCE_AGE_25_34" -> Right PlanningAudienceAge2534 + "PLANNING_AUDIENCE_AGE_35_44" -> Right PlanningAudienceAge3544 + "PLANNING_AUDIENCE_AGE_45_54" -> Right PlanningAudienceAge4554 + "PLANNING_AUDIENCE_AGE_55_64" -> Right PlanningAudienceAge5564 + "PLANNING_AUDIENCE_AGE_65_OR_MORE" -> Right PlanningAudienceAge65OrMore + "PLANNING_AUDIENCE_AGE_UNKNOWN" -> Right PlanningAudienceAgeUnknown + x -> Left ("Unable to parse ProjectAudienceAgeGroup from: " <> x) + +instance ToHttpApiData ProjectAudienceAgeGroup where + toQueryParam = \case + PlanningAudienceAge1824 -> "PLANNING_AUDIENCE_AGE_18_24" + PlanningAudienceAge2534 -> "PLANNING_AUDIENCE_AGE_25_34" + PlanningAudienceAge3544 -> "PLANNING_AUDIENCE_AGE_35_44" + PlanningAudienceAge4554 -> "PLANNING_AUDIENCE_AGE_45_54" + PlanningAudienceAge5564 -> "PLANNING_AUDIENCE_AGE_55_64" + PlanningAudienceAge65OrMore -> "PLANNING_AUDIENCE_AGE_65_OR_MORE" + PlanningAudienceAgeUnknown -> "PLANNING_AUDIENCE_AGE_UNKNOWN" + +instance FromJSON ProjectAudienceAgeGroup where + parseJSON = parseJSONText "ProjectAudienceAgeGroup" + +instance ToJSON ProjectAudienceAgeGroup where + toJSON = toJSONText + +-- | Type of ad. This is a required field on insertion. Note that default ads +-- (AD_SERVING_DEFAULT_AD) cannot be created directly (see Creative +-- resource). +data AdType + = ATAdServingClickTracker + -- ^ @AD_SERVING_CLICK_TRACKER@ + | ATAdServingDefaultAd + -- ^ @AD_SERVING_DEFAULT_AD@ + | ATAdServingStandardAd + -- ^ @AD_SERVING_STANDARD_AD@ + | ATAdServingTracking + -- ^ @AD_SERVING_TRACKING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AdType + +instance FromHttpApiData AdType where + parseQueryParam = \case + "AD_SERVING_CLICK_TRACKER" -> Right ATAdServingClickTracker + "AD_SERVING_DEFAULT_AD" -> Right ATAdServingDefaultAd + "AD_SERVING_STANDARD_AD" -> Right ATAdServingStandardAd + "AD_SERVING_TRACKING" -> Right ATAdServingTracking + x -> Left ("Unable to parse AdType from: " <> x) + +instance ToHttpApiData AdType where + toQueryParam = \case + ATAdServingClickTracker -> "AD_SERVING_CLICK_TRACKER" + ATAdServingDefaultAd -> "AD_SERVING_DEFAULT_AD" + ATAdServingStandardAd -> "AD_SERVING_STANDARD_AD" + ATAdServingTracking -> "AD_SERVING_TRACKING" + +instance FromJSON AdType where + parseJSON = parseJSONText "AdType" + +instance ToJSON AdType where + toJSON = toJSONText + +-- | Select only change logs with the specified action. +data ChangeLogsListAction + = ActionAdd + -- ^ @ACTION_ADD@ + | ActionAssign + -- ^ @ACTION_ASSIGN@ + | ActionAssociate + -- ^ @ACTION_ASSOCIATE@ + | ActionCreate + -- ^ @ACTION_CREATE@ + | ActionDelete + -- ^ @ACTION_DELETE@ + | ActionDisable + -- ^ @ACTION_DISABLE@ + | ActionEmailTags + -- ^ @ACTION_EMAIL_TAGS@ + | ActionEnable + -- ^ @ACTION_ENABLE@ + | ActionLink + -- ^ @ACTION_LINK@ + | ActionMarkAsDefault + -- ^ @ACTION_MARK_AS_DEFAULT@ + | ActionPush + -- ^ @ACTION_PUSH@ + | ActionRemove + -- ^ @ACTION_REMOVE@ + | ActionSend + -- ^ @ACTION_SEND@ + | ActionShare + -- ^ @ACTION_SHARE@ + | ActionUnassign + -- ^ @ACTION_UNASSIGN@ + | ActionUnlink + -- ^ @ACTION_UNLINK@ + | ActionUpdate + -- ^ @ACTION_UPDATE@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ChangeLogsListAction + +instance FromHttpApiData ChangeLogsListAction where + parseQueryParam = \case + "ACTION_ADD" -> Right ActionAdd + "ACTION_ASSIGN" -> Right ActionAssign + "ACTION_ASSOCIATE" -> Right ActionAssociate + "ACTION_CREATE" -> Right ActionCreate + "ACTION_DELETE" -> Right ActionDelete + "ACTION_DISABLE" -> Right ActionDisable + "ACTION_EMAIL_TAGS" -> Right ActionEmailTags + "ACTION_ENABLE" -> Right ActionEnable + "ACTION_LINK" -> Right ActionLink + "ACTION_MARK_AS_DEFAULT" -> Right ActionMarkAsDefault + "ACTION_PUSH" -> Right ActionPush + "ACTION_REMOVE" -> Right ActionRemove + "ACTION_SEND" -> Right ActionSend + "ACTION_SHARE" -> Right ActionShare + "ACTION_UNASSIGN" -> Right ActionUnassign + "ACTION_UNLINK" -> Right ActionUnlink + "ACTION_UPDATE" -> Right ActionUpdate + x -> Left ("Unable to parse ChangeLogsListAction from: " <> x) + +instance ToHttpApiData ChangeLogsListAction where + toQueryParam = \case + ActionAdd -> "ACTION_ADD" + ActionAssign -> "ACTION_ASSIGN" + ActionAssociate -> "ACTION_ASSOCIATE" + ActionCreate -> "ACTION_CREATE" + ActionDelete -> "ACTION_DELETE" + ActionDisable -> "ACTION_DISABLE" + ActionEmailTags -> "ACTION_EMAIL_TAGS" + ActionEnable -> "ACTION_ENABLE" + ActionLink -> "ACTION_LINK" + ActionMarkAsDefault -> "ACTION_MARK_AS_DEFAULT" + ActionPush -> "ACTION_PUSH" + ActionRemove -> "ACTION_REMOVE" + ActionSend -> "ACTION_SEND" + ActionShare -> "ACTION_SHARE" + ActionUnassign -> "ACTION_UNASSIGN" + ActionUnlink -> "ACTION_UNLINK" + ActionUpdate -> "ACTION_UPDATE" + +instance FromJSON ChangeLogsListAction where + parseJSON = parseJSONText "ChangeLogsListAction" + +instance ToJSON ChangeLogsListAction where + toJSON = toJSONText + +-- | Type of artwork used for the creative. This is a read-only field. +-- Applicable to the following creative types: all RICH_MEDIA, and all +-- VPAID. +data CreativeArtworkType + = CATArtworkTypeFlash + -- ^ @ARTWORK_TYPE_FLASH@ + | CATArtworkTypeHTML5 + -- ^ @ARTWORK_TYPE_HTML5@ + | CATArtworkTypeImage + -- ^ @ARTWORK_TYPE_IMAGE@ + | CATArtworkTypeMixed + -- ^ @ARTWORK_TYPE_MIXED@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeArtworkType + +instance FromHttpApiData CreativeArtworkType where + parseQueryParam = \case + "ARTWORK_TYPE_FLASH" -> Right CATArtworkTypeFlash + "ARTWORK_TYPE_HTML5" -> Right CATArtworkTypeHTML5 + "ARTWORK_TYPE_IMAGE" -> Right CATArtworkTypeImage + "ARTWORK_TYPE_MIXED" -> Right CATArtworkTypeMixed + x -> Left ("Unable to parse CreativeArtworkType from: " <> x) + +instance ToHttpApiData CreativeArtworkType where + toQueryParam = \case + CATArtworkTypeFlash -> "ARTWORK_TYPE_FLASH" + CATArtworkTypeHTML5 -> "ARTWORK_TYPE_HTML5" + CATArtworkTypeImage -> "ARTWORK_TYPE_IMAGE" + CATArtworkTypeMixed -> "ARTWORK_TYPE_MIXED" + +instance FromJSON CreativeArtworkType where + parseJSON = parseJSONText "CreativeArtworkType" + +instance ToJSON CreativeArtworkType where + toJSON = toJSONText + +-- | Third-party placement status. +data PlacementStatus + = AcknowledgeAcceptance + -- ^ @ACKNOWLEDGE_ACCEPTANCE@ + | AcknowledgeRejection + -- ^ @ACKNOWLEDGE_REJECTION@ + | Draft + -- ^ @DRAFT@ + | PaymentAccepted + -- ^ @PAYMENT_ACCEPTED@ + | PaymentRejected + -- ^ @PAYMENT_REJECTED@ + | PendingReview + -- ^ @PENDING_REVIEW@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PlacementStatus + +instance FromHttpApiData PlacementStatus where + parseQueryParam = \case + "ACKNOWLEDGE_ACCEPTANCE" -> Right AcknowledgeAcceptance + "ACKNOWLEDGE_REJECTION" -> Right AcknowledgeRejection + "DRAFT" -> Right Draft + "PAYMENT_ACCEPTED" -> Right PaymentAccepted + "PAYMENT_REJECTED" -> Right PaymentRejected + "PENDING_REVIEW" -> Right PendingReview + x -> Left ("Unable to parse PlacementStatus from: " <> x) + +instance ToHttpApiData PlacementStatus where + toQueryParam = \case + AcknowledgeAcceptance -> "ACKNOWLEDGE_ACCEPTANCE" + AcknowledgeRejection -> "ACKNOWLEDGE_REJECTION" + Draft -> "DRAFT" + PaymentAccepted -> "PAYMENT_ACCEPTED" + PaymentRejected -> "PAYMENT_REJECTED" + PendingReview -> "PENDING_REVIEW" + +instance FromJSON PlacementStatus where + parseJSON = parseJSONText "PlacementStatus" + +instance ToJSON PlacementStatus where + toJSON = toJSONText + +-- | Enum to define for \"MONTHLY\" scheduled reports whether reports should +-- be repeated on the same day of the month as \"startDate\" or the same +-- day of the week of the month. Example: If \'startDate\' is Monday, April +-- 2nd 2012 (2012-04-02), \"DAY_OF_MONTH\" would run subsequent reports on +-- the 2nd of every Month, and \"WEEK_OF_MONTH\" would run subsequent +-- reports on the first Monday of the month. +data ReportScheduleRunsOnDayOfMonth + = DayOfMonth + -- ^ @DAY_OF_MONTH@ + | WeekOfMonth + -- ^ @WEEK_OF_MONTH@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ReportScheduleRunsOnDayOfMonth + +instance FromHttpApiData ReportScheduleRunsOnDayOfMonth where + parseQueryParam = \case + "DAY_OF_MONTH" -> Right DayOfMonth + "WEEK_OF_MONTH" -> Right WeekOfMonth + x -> Left ("Unable to parse ReportScheduleRunsOnDayOfMonth from: " <> x) + +instance ToHttpApiData ReportScheduleRunsOnDayOfMonth where + toQueryParam = \case + DayOfMonth -> "DAY_OF_MONTH" + WeekOfMonth -> "WEEK_OF_MONTH" + +instance FromJSON ReportScheduleRunsOnDayOfMonth where + parseJSON = parseJSONText "ReportScheduleRunsOnDayOfMonth" + +instance ToJSON ReportScheduleRunsOnDayOfMonth where + toJSON = toJSONText + +data FloodlightActivityUserDefinedVariableTypesItem + = FAUDVTIU1 + -- ^ @U1@ + | FAUDVTIU10 + -- ^ @U10@ + | FAUDVTIU100 + -- ^ @U100@ + | FAUDVTIU11 + -- ^ @U11@ + | FAUDVTIU12 + -- ^ @U12@ + | FAUDVTIU13 + -- ^ @U13@ + | FAUDVTIU14 + -- ^ @U14@ + | FAUDVTIU15 + -- ^ @U15@ + | FAUDVTIU16 + -- ^ @U16@ + | FAUDVTIU17 + -- ^ @U17@ + | FAUDVTIU18 + -- ^ @U18@ + | FAUDVTIU19 + -- ^ @U19@ + | FAUDVTIU2 + -- ^ @U2@ + | FAUDVTIU20 + -- ^ @U20@ + | FAUDVTIU21 + -- ^ @U21@ + | FAUDVTIU22 + -- ^ @U22@ + | FAUDVTIU23 + -- ^ @U23@ + | FAUDVTIU24 + -- ^ @U24@ + | FAUDVTIU25 + -- ^ @U25@ + | FAUDVTIU26 + -- ^ @U26@ + | FAUDVTIU27 + -- ^ @U27@ + | FAUDVTIU28 + -- ^ @U28@ + | FAUDVTIU29 + -- ^ @U29@ + | FAUDVTIU3 + -- ^ @U3@ + | FAUDVTIU30 + -- ^ @U30@ + | FAUDVTIU31 + -- ^ @U31@ + | FAUDVTIU32 + -- ^ @U32@ + | FAUDVTIU33 + -- ^ @U33@ + | FAUDVTIU34 + -- ^ @U34@ + | FAUDVTIU35 + -- ^ @U35@ + | FAUDVTIU36 + -- ^ @U36@ + | FAUDVTIU37 + -- ^ @U37@ + | FAUDVTIU38 + -- ^ @U38@ + | FAUDVTIU39 + -- ^ @U39@ + | FAUDVTIU4 + -- ^ @U4@ + | FAUDVTIU40 + -- ^ @U40@ + | FAUDVTIU41 + -- ^ @U41@ + | FAUDVTIU42 + -- ^ @U42@ + | FAUDVTIU43 + -- ^ @U43@ + | FAUDVTIU44 + -- ^ @U44@ + | FAUDVTIU45 + -- ^ @U45@ + | FAUDVTIU46 + -- ^ @U46@ + | FAUDVTIU47 + -- ^ @U47@ + | FAUDVTIU48 + -- ^ @U48@ + | FAUDVTIU49 + -- ^ @U49@ + | FAUDVTIU5 + -- ^ @U5@ + | FAUDVTIU50 + -- ^ @U50@ + | FAUDVTIU51 + -- ^ @U51@ + | FAUDVTIU52 + -- ^ @U52@ + | FAUDVTIU53 + -- ^ @U53@ + | FAUDVTIU54 + -- ^ @U54@ + | FAUDVTIU55 + -- ^ @U55@ + | FAUDVTIU56 + -- ^ @U56@ + | FAUDVTIU57 + -- ^ @U57@ + | FAUDVTIU58 + -- ^ @U58@ + | FAUDVTIU59 + -- ^ @U59@ + | FAUDVTIU6 + -- ^ @U6@ + | FAUDVTIU60 + -- ^ @U60@ + | FAUDVTIU61 + -- ^ @U61@ + | FAUDVTIU62 + -- ^ @U62@ + | FAUDVTIU63 + -- ^ @U63@ + | FAUDVTIU64 + -- ^ @U64@ + | FAUDVTIU65 + -- ^ @U65@ + | FAUDVTIU66 + -- ^ @U66@ + | FAUDVTIU67 + -- ^ @U67@ + | FAUDVTIU68 + -- ^ @U68@ + | FAUDVTIU69 + -- ^ @U69@ + | FAUDVTIU7 + -- ^ @U7@ + | FAUDVTIU70 + -- ^ @U70@ + | FAUDVTIU71 + -- ^ @U71@ + | FAUDVTIU72 + -- ^ @U72@ + | FAUDVTIU73 + -- ^ @U73@ + | FAUDVTIU74 + -- ^ @U74@ + | FAUDVTIU75 + -- ^ @U75@ + | FAUDVTIU76 + -- ^ @U76@ + | FAUDVTIU77 + -- ^ @U77@ + | FAUDVTIU78 + -- ^ @U78@ + | FAUDVTIU79 + -- ^ @U79@ + | FAUDVTIU8 + -- ^ @U8@ + | FAUDVTIU80 + -- ^ @U80@ + | FAUDVTIU81 + -- ^ @U81@ + | FAUDVTIU82 + -- ^ @U82@ + | FAUDVTIU83 + -- ^ @U83@ + | FAUDVTIU84 + -- ^ @U84@ + | FAUDVTIU85 + -- ^ @U85@ + | FAUDVTIU86 + -- ^ @U86@ + | FAUDVTIU87 + -- ^ @U87@ + | FAUDVTIU88 + -- ^ @U88@ + | FAUDVTIU89 + -- ^ @U89@ + | FAUDVTIU9 + -- ^ @U9@ + | FAUDVTIU90 + -- ^ @U90@ + | FAUDVTIU91 + -- ^ @U91@ + | FAUDVTIU92 + -- ^ @U92@ + | FAUDVTIU93 + -- ^ @U93@ + | FAUDVTIU94 + -- ^ @U94@ + | FAUDVTIU95 + -- ^ @U95@ + | FAUDVTIU96 + -- ^ @U96@ + | FAUDVTIU97 + -- ^ @U97@ + | FAUDVTIU98 + -- ^ @U98@ + | FAUDVTIU99 + -- ^ @U99@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FloodlightActivityUserDefinedVariableTypesItem + +instance FromHttpApiData FloodlightActivityUserDefinedVariableTypesItem where + parseQueryParam = \case + "U1" -> Right FAUDVTIU1 + "U10" -> Right FAUDVTIU10 + "U100" -> Right FAUDVTIU100 + "U11" -> Right FAUDVTIU11 + "U12" -> Right FAUDVTIU12 + "U13" -> Right FAUDVTIU13 + "U14" -> Right FAUDVTIU14 + "U15" -> Right FAUDVTIU15 + "U16" -> Right FAUDVTIU16 + "U17" -> Right FAUDVTIU17 + "U18" -> Right FAUDVTIU18 + "U19" -> Right FAUDVTIU19 + "U2" -> Right FAUDVTIU2 + "U20" -> Right FAUDVTIU20 + "U21" -> Right FAUDVTIU21 + "U22" -> Right FAUDVTIU22 + "U23" -> Right FAUDVTIU23 + "U24" -> Right FAUDVTIU24 + "U25" -> Right FAUDVTIU25 + "U26" -> Right FAUDVTIU26 + "U27" -> Right FAUDVTIU27 + "U28" -> Right FAUDVTIU28 + "U29" -> Right FAUDVTIU29 + "U3" -> Right FAUDVTIU3 + "U30" -> Right FAUDVTIU30 + "U31" -> Right FAUDVTIU31 + "U32" -> Right FAUDVTIU32 + "U33" -> Right FAUDVTIU33 + "U34" -> Right FAUDVTIU34 + "U35" -> Right FAUDVTIU35 + "U36" -> Right FAUDVTIU36 + "U37" -> Right FAUDVTIU37 + "U38" -> Right FAUDVTIU38 + "U39" -> Right FAUDVTIU39 + "U4" -> Right FAUDVTIU4 + "U40" -> Right FAUDVTIU40 + "U41" -> Right FAUDVTIU41 + "U42" -> Right FAUDVTIU42 + "U43" -> Right FAUDVTIU43 + "U44" -> Right FAUDVTIU44 + "U45" -> Right FAUDVTIU45 + "U46" -> Right FAUDVTIU46 + "U47" -> Right FAUDVTIU47 + "U48" -> Right FAUDVTIU48 + "U49" -> Right FAUDVTIU49 + "U5" -> Right FAUDVTIU5 + "U50" -> Right FAUDVTIU50 + "U51" -> Right FAUDVTIU51 + "U52" -> Right FAUDVTIU52 + "U53" -> Right FAUDVTIU53 + "U54" -> Right FAUDVTIU54 + "U55" -> Right FAUDVTIU55 + "U56" -> Right FAUDVTIU56 + "U57" -> Right FAUDVTIU57 + "U58" -> Right FAUDVTIU58 + "U59" -> Right FAUDVTIU59 + "U6" -> Right FAUDVTIU6 + "U60" -> Right FAUDVTIU60 + "U61" -> Right FAUDVTIU61 + "U62" -> Right FAUDVTIU62 + "U63" -> Right FAUDVTIU63 + "U64" -> Right FAUDVTIU64 + "U65" -> Right FAUDVTIU65 + "U66" -> Right FAUDVTIU66 + "U67" -> Right FAUDVTIU67 + "U68" -> Right FAUDVTIU68 + "U69" -> Right FAUDVTIU69 + "U7" -> Right FAUDVTIU7 + "U70" -> Right FAUDVTIU70 + "U71" -> Right FAUDVTIU71 + "U72" -> Right FAUDVTIU72 + "U73" -> Right FAUDVTIU73 + "U74" -> Right FAUDVTIU74 + "U75" -> Right FAUDVTIU75 + "U76" -> Right FAUDVTIU76 + "U77" -> Right FAUDVTIU77 + "U78" -> Right FAUDVTIU78 + "U79" -> Right FAUDVTIU79 + "U8" -> Right FAUDVTIU8 + "U80" -> Right FAUDVTIU80 + "U81" -> Right FAUDVTIU81 + "U82" -> Right FAUDVTIU82 + "U83" -> Right FAUDVTIU83 + "U84" -> Right FAUDVTIU84 + "U85" -> Right FAUDVTIU85 + "U86" -> Right FAUDVTIU86 + "U87" -> Right FAUDVTIU87 + "U88" -> Right FAUDVTIU88 + "U89" -> Right FAUDVTIU89 + "U9" -> Right FAUDVTIU9 + "U90" -> Right FAUDVTIU90 + "U91" -> Right FAUDVTIU91 + "U92" -> Right FAUDVTIU92 + "U93" -> Right FAUDVTIU93 + "U94" -> Right FAUDVTIU94 + "U95" -> Right FAUDVTIU95 + "U96" -> Right FAUDVTIU96 + "U97" -> Right FAUDVTIU97 + "U98" -> Right FAUDVTIU98 + "U99" -> Right FAUDVTIU99 + x -> Left ("Unable to parse FloodlightActivityUserDefinedVariableTypesItem from: " <> x) + +instance ToHttpApiData FloodlightActivityUserDefinedVariableTypesItem where + toQueryParam = \case + FAUDVTIU1 -> "U1" + FAUDVTIU10 -> "U10" + FAUDVTIU100 -> "U100" + FAUDVTIU11 -> "U11" + FAUDVTIU12 -> "U12" + FAUDVTIU13 -> "U13" + FAUDVTIU14 -> "U14" + FAUDVTIU15 -> "U15" + FAUDVTIU16 -> "U16" + FAUDVTIU17 -> "U17" + FAUDVTIU18 -> "U18" + FAUDVTIU19 -> "U19" + FAUDVTIU2 -> "U2" + FAUDVTIU20 -> "U20" + FAUDVTIU21 -> "U21" + FAUDVTIU22 -> "U22" + FAUDVTIU23 -> "U23" + FAUDVTIU24 -> "U24" + FAUDVTIU25 -> "U25" + FAUDVTIU26 -> "U26" + FAUDVTIU27 -> "U27" + FAUDVTIU28 -> "U28" + FAUDVTIU29 -> "U29" + FAUDVTIU3 -> "U3" + FAUDVTIU30 -> "U30" + FAUDVTIU31 -> "U31" + FAUDVTIU32 -> "U32" + FAUDVTIU33 -> "U33" + FAUDVTIU34 -> "U34" + FAUDVTIU35 -> "U35" + FAUDVTIU36 -> "U36" + FAUDVTIU37 -> "U37" + FAUDVTIU38 -> "U38" + FAUDVTIU39 -> "U39" + FAUDVTIU4 -> "U4" + FAUDVTIU40 -> "U40" + FAUDVTIU41 -> "U41" + FAUDVTIU42 -> "U42" + FAUDVTIU43 -> "U43" + FAUDVTIU44 -> "U44" + FAUDVTIU45 -> "U45" + FAUDVTIU46 -> "U46" + FAUDVTIU47 -> "U47" + FAUDVTIU48 -> "U48" + FAUDVTIU49 -> "U49" + FAUDVTIU5 -> "U5" + FAUDVTIU50 -> "U50" + FAUDVTIU51 -> "U51" + FAUDVTIU52 -> "U52" + FAUDVTIU53 -> "U53" + FAUDVTIU54 -> "U54" + FAUDVTIU55 -> "U55" + FAUDVTIU56 -> "U56" + FAUDVTIU57 -> "U57" + FAUDVTIU58 -> "U58" + FAUDVTIU59 -> "U59" + FAUDVTIU6 -> "U6" + FAUDVTIU60 -> "U60" + FAUDVTIU61 -> "U61" + FAUDVTIU62 -> "U62" + FAUDVTIU63 -> "U63" + FAUDVTIU64 -> "U64" + FAUDVTIU65 -> "U65" + FAUDVTIU66 -> "U66" + FAUDVTIU67 -> "U67" + FAUDVTIU68 -> "U68" + FAUDVTIU69 -> "U69" + FAUDVTIU7 -> "U7" + FAUDVTIU70 -> "U70" + FAUDVTIU71 -> "U71" + FAUDVTIU72 -> "U72" + FAUDVTIU73 -> "U73" + FAUDVTIU74 -> "U74" + FAUDVTIU75 -> "U75" + FAUDVTIU76 -> "U76" + FAUDVTIU77 -> "U77" + FAUDVTIU78 -> "U78" + FAUDVTIU79 -> "U79" + FAUDVTIU8 -> "U8" + FAUDVTIU80 -> "U80" + FAUDVTIU81 -> "U81" + FAUDVTIU82 -> "U82" + FAUDVTIU83 -> "U83" + FAUDVTIU84 -> "U84" + FAUDVTIU85 -> "U85" + FAUDVTIU86 -> "U86" + FAUDVTIU87 -> "U87" + FAUDVTIU88 -> "U88" + FAUDVTIU89 -> "U89" + FAUDVTIU9 -> "U9" + FAUDVTIU90 -> "U90" + FAUDVTIU91 -> "U91" + FAUDVTIU92 -> "U92" + FAUDVTIU93 -> "U93" + FAUDVTIU94 -> "U94" + FAUDVTIU95 -> "U95" + FAUDVTIU96 -> "U96" + FAUDVTIU97 -> "U97" + FAUDVTIU98 -> "U98" + FAUDVTIU99 -> "U99" + +instance FromJSON FloodlightActivityUserDefinedVariableTypesItem where + parseJSON = parseJSONText "FloodlightActivityUserDefinedVariableTypesItem" + +instance ToJSON FloodlightActivityUserDefinedVariableTypesItem where + toJSON = toJSONText + +-- | Site filter type for this event tag. If no type is specified then the +-- event tag will be applied to all sites. +data EventTagSiteFilterType + = BlackList + -- ^ @BLACKLIST@ + | WhiteList + -- ^ @WHITELIST@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable EventTagSiteFilterType + +instance FromHttpApiData EventTagSiteFilterType where + parseQueryParam = \case + "BLACKLIST" -> Right BlackList + "WHITELIST" -> Right WhiteList + x -> Left ("Unable to parse EventTagSiteFilterType from: " <> x) + +instance ToHttpApiData EventTagSiteFilterType where + toQueryParam = \case + BlackList -> "BLACKLIST" + WhiteList -> "WHITELIST" + +instance FromJSON EventTagSiteFilterType where + parseJSON = parseJSONText "EventTagSiteFilterType" + +instance ToJSON EventTagSiteFilterType where + toJSON = toJSONText + +-- | The output format of the report. If not specified, default format is +-- \"CSV\". Note that the actual format in the completed report file might +-- differ if for instance the report\'s size exceeds the format\'s +-- capabilities. \"CSV\" will then be the fallback format. +data ReportFormat + = RFCSV + -- ^ @CSV@ + | RFExcel + -- ^ @EXCEL@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ReportFormat + +instance FromHttpApiData ReportFormat where + parseQueryParam = \case + "CSV" -> Right RFCSV + "EXCEL" -> Right RFExcel + x -> Left ("Unable to parse ReportFormat from: " <> x) + +instance ToHttpApiData ReportFormat where + toQueryParam = \case + RFCSV -> "CSV" + RFExcel -> "EXCEL" + +instance FromJSON ReportFormat where + parseJSON = parseJSONText "ReportFormat" + +instance ToJSON ReportFormat where + toJSON = toJSONText + +-- | Type of this placement group. A package is a simple group of placements +-- that acts as a single pricing point for a group of tags. A roadblock is +-- a group of placements that not only acts as a single pricing point, but +-- also assumes that all the tags in it will be served at the same time. A +-- roadblock requires one of its assigned placements to be marked as +-- primary for reporting. This field is required on insertion. +data PlacementGroupPlacementGroupType + = PGPGTPlacementPackage + -- ^ @PLACEMENT_PACKAGE@ + | PGPGTPlacementRoadblock + -- ^ @PLACEMENT_ROADBLOCK@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PlacementGroupPlacementGroupType + +instance FromHttpApiData PlacementGroupPlacementGroupType where + parseQueryParam = \case + "PLACEMENT_PACKAGE" -> Right PGPGTPlacementPackage + "PLACEMENT_ROADBLOCK" -> Right PGPGTPlacementRoadblock + x -> Left ("Unable to parse PlacementGroupPlacementGroupType from: " <> x) + +instance ToHttpApiData PlacementGroupPlacementGroupType where + toQueryParam = \case + PGPGTPlacementPackage -> "PLACEMENT_PACKAGE" + PGPGTPlacementRoadblock -> "PLACEMENT_ROADBLOCK" + +instance FromJSON PlacementGroupPlacementGroupType where + parseJSON = parseJSONText "PlacementGroupPlacementGroupType" + +instance ToJSON PlacementGroupPlacementGroupType where + toJSON = toJSONText + +-- | Pricing type of this inventory item. +data PricingPricingType + = PlanningPlacementPricingTypeClicks + -- ^ @PLANNING_PLACEMENT_PRICING_TYPE_CLICKS@ + | PlanningPlacementPricingTypeCpa + -- ^ @PLANNING_PLACEMENT_PRICING_TYPE_CPA@ + | PlanningPlacementPricingTypeCpc + -- ^ @PLANNING_PLACEMENT_PRICING_TYPE_CPC@ + | PlanningPlacementPricingTypeCpm + -- ^ @PLANNING_PLACEMENT_PRICING_TYPE_CPM@ + | PlanningPlacementPricingTypeCpmActiveview + -- ^ @PLANNING_PLACEMENT_PRICING_TYPE_CPM_ACTIVEVIEW@ + | PlanningPlacementPricingTypeFlatRateClicks + -- ^ @PLANNING_PLACEMENT_PRICING_TYPE_FLAT_RATE_CLICKS@ + | PlanningPlacementPricingTypeFlatRateImpressions + -- ^ @PLANNING_PLACEMENT_PRICING_TYPE_FLAT_RATE_IMPRESSIONS@ + | PlanningPlacementPricingTypeImpressions + -- ^ @PLANNING_PLACEMENT_PRICING_TYPE_IMPRESSIONS@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PricingPricingType + +instance FromHttpApiData PricingPricingType where + parseQueryParam = \case + "PLANNING_PLACEMENT_PRICING_TYPE_CLICKS" -> Right PlanningPlacementPricingTypeClicks + "PLANNING_PLACEMENT_PRICING_TYPE_CPA" -> Right PlanningPlacementPricingTypeCpa + "PLANNING_PLACEMENT_PRICING_TYPE_CPC" -> Right PlanningPlacementPricingTypeCpc + "PLANNING_PLACEMENT_PRICING_TYPE_CPM" -> Right PlanningPlacementPricingTypeCpm + "PLANNING_PLACEMENT_PRICING_TYPE_CPM_ACTIVEVIEW" -> Right PlanningPlacementPricingTypeCpmActiveview + "PLANNING_PLACEMENT_PRICING_TYPE_FLAT_RATE_CLICKS" -> Right PlanningPlacementPricingTypeFlatRateClicks + "PLANNING_PLACEMENT_PRICING_TYPE_FLAT_RATE_IMPRESSIONS" -> Right PlanningPlacementPricingTypeFlatRateImpressions + "PLANNING_PLACEMENT_PRICING_TYPE_IMPRESSIONS" -> Right PlanningPlacementPricingTypeImpressions + x -> Left ("Unable to parse PricingPricingType from: " <> x) + +instance ToHttpApiData PricingPricingType where + toQueryParam = \case + PlanningPlacementPricingTypeClicks -> "PLANNING_PLACEMENT_PRICING_TYPE_CLICKS" + PlanningPlacementPricingTypeCpa -> "PLANNING_PLACEMENT_PRICING_TYPE_CPA" + PlanningPlacementPricingTypeCpc -> "PLANNING_PLACEMENT_PRICING_TYPE_CPC" + PlanningPlacementPricingTypeCpm -> "PLANNING_PLACEMENT_PRICING_TYPE_CPM" + PlanningPlacementPricingTypeCpmActiveview -> "PLANNING_PLACEMENT_PRICING_TYPE_CPM_ACTIVEVIEW" + PlanningPlacementPricingTypeFlatRateClicks -> "PLANNING_PLACEMENT_PRICING_TYPE_FLAT_RATE_CLICKS" + PlanningPlacementPricingTypeFlatRateImpressions -> "PLANNING_PLACEMENT_PRICING_TYPE_FLAT_RATE_IMPRESSIONS" + PlanningPlacementPricingTypeImpressions -> "PLANNING_PLACEMENT_PRICING_TYPE_IMPRESSIONS" + +instance FromJSON PricingPricingType where + parseJSON = parseJSONText "PricingPricingType" + +instance ToJSON PricingPricingType where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data SubAccountsListSortOrder + = SALSOAscending + -- ^ @ASCENDING@ + | SALSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable SubAccountsListSortOrder + +instance FromHttpApiData SubAccountsListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right SALSOAscending + "DESCENDING" -> Right SALSODescending + x -> Left ("Unable to parse SubAccountsListSortOrder from: " <> x) + +instance ToHttpApiData SubAccountsListSortOrder where + toQueryParam = \case + SALSOAscending -> "ASCENDING" + SALSODescending -> "DESCENDING" + +instance FromJSON SubAccountsListSortOrder where + parseJSON = parseJSONText "SubAccountsListSortOrder" + +instance ToJSON SubAccountsListSortOrder where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data AdsListSortOrder + = ADSAscending + -- ^ @ASCENDING@ + | ADSDescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AdsListSortOrder + +instance FromHttpApiData AdsListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right ADSAscending + "DESCENDING" -> Right ADSDescending + x -> Left ("Unable to parse AdsListSortOrder from: " <> x) + +instance ToHttpApiData AdsListSortOrder where + toQueryParam = \case + ADSAscending -> "ASCENDING" + ADSDescending -> "DESCENDING" + +instance FromJSON AdsListSortOrder where + parseJSON = parseJSONText "AdsListSortOrder" + +instance ToJSON AdsListSortOrder where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data ProjectsListSortOrder + = PLSOAscending + -- ^ @ASCENDING@ + | PLSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ProjectsListSortOrder + +instance FromHttpApiData ProjectsListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right PLSOAscending + "DESCENDING" -> Right PLSODescending + x -> Left ("Unable to parse ProjectsListSortOrder from: " <> x) + +instance ToHttpApiData ProjectsListSortOrder where + toQueryParam = \case + PLSOAscending -> "ASCENDING" + PLSODescending -> "DESCENDING" + +instance FromJSON ProjectsListSortOrder where + parseJSON = parseJSONText "ProjectsListSortOrder" + +instance ToJSON ProjectsListSortOrder where + toJSON = toJSONText + +-- | Field by which to sort the list. +data RemarketingListsListSortField + = RLLSFID + -- ^ @ID@ + | RLLSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable RemarketingListsListSortField + +instance FromHttpApiData RemarketingListsListSortField where + parseQueryParam = \case + "ID" -> Right RLLSFID + "NAME" -> Right RLLSFName + x -> Left ("Unable to parse RemarketingListsListSortField from: " <> x) + +instance ToHttpApiData RemarketingListsListSortField where + toQueryParam = \case + RLLSFID -> "ID" + RLLSFName -> "NAME" + +instance FromJSON RemarketingListsListSortField where + parseJSON = parseJSONText "RemarketingListsListSortField" + +instance ToJSON RemarketingListsListSortField where + toJSON = toJSONText + +data ReportScheduleRepeatsOnWeekDaysItem + = RSROWDIFriday + -- ^ @FRIDAY@ + | RSROWDIMonday + -- ^ @MONDAY@ + | RSROWDISaturday + -- ^ @SATURDAY@ + | RSROWDISunday + -- ^ @SUNDAY@ + | RSROWDIThursday + -- ^ @THURSDAY@ + | RSROWDITuesday + -- ^ @TUESDAY@ + | RSROWDIWednesday + -- ^ @WEDNESDAY@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ReportScheduleRepeatsOnWeekDaysItem + +instance FromHttpApiData ReportScheduleRepeatsOnWeekDaysItem where + parseQueryParam = \case + "FRIDAY" -> Right RSROWDIFriday + "MONDAY" -> Right RSROWDIMonday + "SATURDAY" -> Right RSROWDISaturday + "SUNDAY" -> Right RSROWDISunday + "THURSDAY" -> Right RSROWDIThursday + "TUESDAY" -> Right RSROWDITuesday + "WEDNESDAY" -> Right RSROWDIWednesday + x -> Left ("Unable to parse ReportScheduleRepeatsOnWeekDaysItem from: " <> x) + +instance ToHttpApiData ReportScheduleRepeatsOnWeekDaysItem where + toQueryParam = \case + RSROWDIFriday -> "FRIDAY" + RSROWDIMonday -> "MONDAY" + RSROWDISaturday -> "SATURDAY" + RSROWDISunday -> "SUNDAY" + RSROWDIThursday -> "THURSDAY" + RSROWDITuesday -> "TUESDAY" + RSROWDIWednesday -> "WEDNESDAY" + +instance FromJSON ReportScheduleRepeatsOnWeekDaysItem where + parseJSON = parseJSONText "ReportScheduleRepeatsOnWeekDaysItem" + +instance ToJSON ReportScheduleRepeatsOnWeekDaysItem where + toJSON = toJSONText + +-- | Creative group number of the creative group assignment. +data CreativeGroupAssignmentCreativeGroupNumber + = CreativeGroupOne + -- ^ @CREATIVE_GROUP_ONE@ + | CreativeGroupTwo + -- ^ @CREATIVE_GROUP_TWO@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeGroupAssignmentCreativeGroupNumber + +instance FromHttpApiData CreativeGroupAssignmentCreativeGroupNumber where + parseQueryParam = \case + "CREATIVE_GROUP_ONE" -> Right CreativeGroupOne + "CREATIVE_GROUP_TWO" -> Right CreativeGroupTwo + x -> Left ("Unable to parse CreativeGroupAssignmentCreativeGroupNumber from: " <> x) + +instance ToHttpApiData CreativeGroupAssignmentCreativeGroupNumber where + toQueryParam = \case + CreativeGroupOne -> "CREATIVE_GROUP_ONE" + CreativeGroupTwo -> "CREATIVE_GROUP_TWO" + +instance FromJSON CreativeGroupAssignmentCreativeGroupNumber where + parseJSON = parseJSONText "CreativeGroupAssignmentCreativeGroupNumber" + +instance ToJSON CreativeGroupAssignmentCreativeGroupNumber where + toJSON = toJSONText + +-- | Field by which to sort the list. +data AccountsListSortField + = AID + -- ^ @ID@ + | AName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AccountsListSortField + +instance FromHttpApiData AccountsListSortField where + parseQueryParam = \case + "ID" -> Right AID + "NAME" -> Right AName + x -> Left ("Unable to parse AccountsListSortField from: " <> x) + +instance ToHttpApiData AccountsListSortField where + toQueryParam = \case + AID -> "ID" + AName -> "NAME" + +instance FromJSON AccountsListSortField where + parseJSON = parseJSONText "AccountsListSortField" + +instance ToJSON AccountsListSortField where + toJSON = toJSONText + +-- | Select only advertisers with the specified status. +data AdvertisersListStatus + = Approved + -- ^ @APPROVED@ + | OnHold + -- ^ @ON_HOLD@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AdvertisersListStatus + +instance FromHttpApiData AdvertisersListStatus where + parseQueryParam = \case + "APPROVED" -> Right Approved + "ON_HOLD" -> Right OnHold + x -> Left ("Unable to parse AdvertisersListStatus from: " <> x) + +instance ToHttpApiData AdvertisersListStatus where + toQueryParam = \case + Approved -> "APPROVED" + OnHold -> "ON_HOLD" + +instance FromJSON AdvertisersListStatus where + parseJSON = parseJSONText "AdvertisersListStatus" + +instance ToJSON AdvertisersListStatus where + toJSON = toJSONText + +-- | Determines how the \'value\' field is matched when filtering. If not +-- specified, defaults to EXACT. If set to WILDCARD_EXPRESSION, \'*\' is +-- allowed as a placeholder for variable length character sequences, and it +-- can be escaped with a backslash. Note, only paid search dimensions +-- (\'dfa:paidSearch*\') allow a matchType other than EXACT. +data DimensionValueMatchType + = BeginsWith + -- ^ @BEGINS_WITH@ + | Contains + -- ^ @CONTAINS@ + | Exact + -- ^ @EXACT@ + | WildcardExpression + -- ^ @WILDCARD_EXPRESSION@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable DimensionValueMatchType + +instance FromHttpApiData DimensionValueMatchType where + parseQueryParam = \case + "BEGINS_WITH" -> Right BeginsWith + "CONTAINS" -> Right Contains + "EXACT" -> Right Exact + "WILDCARD_EXPRESSION" -> Right WildcardExpression + x -> Left ("Unable to parse DimensionValueMatchType from: " <> x) + +instance ToHttpApiData DimensionValueMatchType where + toQueryParam = \case + BeginsWith -> "BEGINS_WITH" + Contains -> "CONTAINS" + Exact -> "EXACT" + WildcardExpression -> "WILDCARD_EXPRESSION" + +instance FromJSON DimensionValueMatchType where + parseJSON = parseJSONText "DimensionValueMatchType" + +instance ToJSON DimensionValueMatchType where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data PlacementGroupsListSortOrder + = PGLSOAscending + -- ^ @ASCENDING@ + | PGLSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PlacementGroupsListSortOrder + +instance FromHttpApiData PlacementGroupsListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right PGLSOAscending + "DESCENDING" -> Right PGLSODescending + x -> Left ("Unable to parse PlacementGroupsListSortOrder from: " <> x) + +instance ToHttpApiData PlacementGroupsListSortOrder where + toQueryParam = \case + PGLSOAscending -> "ASCENDING" + PGLSODescending -> "DESCENDING" + +instance FromJSON PlacementGroupsListSortOrder where + parseJSON = parseJSONText "PlacementGroupsListSortOrder" + +instance ToJSON PlacementGroupsListSortOrder where + toJSON = toJSONText + +-- | Compatibility of this ad. Applicable when type is AD_SERVING_DEFAULT_AD. +-- DISPLAY and DISPLAY_INTERSTITIAL refer to either rendering on desktop or +-- on mobile devices or in mobile apps for regular or interstitial ads, +-- respectively. APP and APP_INTERSTITIAL are only used for existing +-- default ads. New mobile placements must be assigned DISPLAY or +-- DISPLAY_INTERSTITIAL and default ads created for those placements will +-- be limited to those compatibility types. IN_STREAM_VIDEO refers to +-- rendering in-stream video ads developed with the VAST standard. +data AdCompatibility + = ACApp + -- ^ @APP@ + | ACAppInterstitial + -- ^ @APP_INTERSTITIAL@ + | ACDisplay + -- ^ @DISPLAY@ + | ACDisplayInterstitial + -- ^ @DISPLAY_INTERSTITIAL@ + | ACInStreamVideo + -- ^ @IN_STREAM_VIDEO@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AdCompatibility + +instance FromHttpApiData AdCompatibility where + parseQueryParam = \case + "APP" -> Right ACApp + "APP_INTERSTITIAL" -> Right ACAppInterstitial + "DISPLAY" -> Right ACDisplay + "DISPLAY_INTERSTITIAL" -> Right ACDisplayInterstitial + "IN_STREAM_VIDEO" -> Right ACInStreamVideo + x -> Left ("Unable to parse AdCompatibility from: " <> x) + +instance ToHttpApiData AdCompatibility where + toQueryParam = \case + ACApp -> "APP" + ACAppInterstitial -> "APP_INTERSTITIAL" + ACDisplay -> "DISPLAY" + ACDisplayInterstitial -> "DISPLAY_INTERSTITIAL" + ACInStreamVideo -> "IN_STREAM_VIDEO" + +instance FromJSON AdCompatibility where + parseJSON = parseJSONText "AdCompatibility" + +instance ToJSON AdCompatibility where + toJSON = toJSONText + +-- | Field by which to sort the list. +data CreativeFieldValuesListSortField + = CFVLSFID + -- ^ @ID@ + | CFVLSFValue + -- ^ @VALUE@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeFieldValuesListSortField + +instance FromHttpApiData CreativeFieldValuesListSortField where + parseQueryParam = \case + "ID" -> Right CFVLSFID + "VALUE" -> Right CFVLSFValue + x -> Left ("Unable to parse CreativeFieldValuesListSortField from: " <> x) + +instance ToHttpApiData CreativeFieldValuesListSortField where + toQueryParam = \case + CFVLSFID -> "ID" + CFVLSFValue -> "VALUE" + +instance FromJSON CreativeFieldValuesListSortField where + parseJSON = parseJSONText "CreativeFieldValuesListSortField" + +instance ToJSON CreativeFieldValuesListSortField where + toJSON = toJSONText + +-- | Field by which to sort the list. +data FloodlightActivityGroupsListSortField + = FAGLSFID + -- ^ @ID@ + | FAGLSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FloodlightActivityGroupsListSortField + +instance FromHttpApiData FloodlightActivityGroupsListSortField where + parseQueryParam = \case + "ID" -> Right FAGLSFID + "NAME" -> Right FAGLSFName + x -> Left ("Unable to parse FloodlightActivityGroupsListSortField from: " <> x) + +instance ToHttpApiData FloodlightActivityGroupsListSortField where + toQueryParam = \case + FAGLSFID -> "ID" + FAGLSFName -> "NAME" + +instance FromJSON FloodlightActivityGroupsListSortField where + parseJSON = parseJSONText "FloodlightActivityGroupsListSortField" + +instance ToJSON FloodlightActivityGroupsListSortField where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data OrdersListSortOrder + = OLSOAscending + -- ^ @ASCENDING@ + | OLSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable OrdersListSortOrder + +instance FromHttpApiData OrdersListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right OLSOAscending + "DESCENDING" -> Right OLSODescending + x -> Left ("Unable to parse OrdersListSortOrder from: " <> x) + +instance ToHttpApiData OrdersListSortOrder where + toQueryParam = \case + OLSOAscending -> "ASCENDING" + OLSODescending -> "DESCENDING" + +instance FromJSON OrdersListSortOrder where + parseJSON = parseJSONText "OrdersListSortOrder" + +instance ToJSON OrdersListSortOrder where + toJSON = toJSONText + +-- | Profile for this account. This is a read-only field that can be left +-- blank. +data AccountAccountProFile + = AccountProFileBasic + -- ^ @ACCOUNT_PROFILE_BASIC@ + | AccountProFileStandard + -- ^ @ACCOUNT_PROFILE_STANDARD@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AccountAccountProFile + +instance FromHttpApiData AccountAccountProFile where + parseQueryParam = \case + "ACCOUNT_PROFILE_BASIC" -> Right AccountProFileBasic + "ACCOUNT_PROFILE_STANDARD" -> Right AccountProFileStandard + x -> Left ("Unable to parse AccountAccountProFile from: " <> x) + +instance ToHttpApiData AccountAccountProFile where + toQueryParam = \case + AccountProFileBasic -> "ACCOUNT_PROFILE_BASIC" + AccountProFileStandard -> "ACCOUNT_PROFILE_STANDARD" + +instance FromJSON AccountAccountProFile where + parseJSON = parseJSONText "AccountAccountProFile" + +instance ToJSON AccountAccountProFile where + toJSON = toJSONText + +-- | Type of this creative. This is a required field. Applicable to all +-- creative types. Note: FLASH_INPAGE, HTML5_BANNER, and IMAGE are only +-- used for existing creatives. New creatives should use DISPLAY as a +-- replacement for these types. +data CreativeType + = CTBrandSafeDefaultInstreamVideo + -- ^ @BRAND_SAFE_DEFAULT_INSTREAM_VIDEO@ + | CTCustomDisplay + -- ^ @CUSTOM_DISPLAY@ + | CTCustomDisplayInterstitial + -- ^ @CUSTOM_DISPLAY_INTERSTITIAL@ + | CTDisplay + -- ^ @DISPLAY@ + | CTDisplayImageGallery + -- ^ @DISPLAY_IMAGE_GALLERY@ + | CTDisplayRedirect + -- ^ @DISPLAY_REDIRECT@ + | CTFlashInpage + -- ^ @FLASH_INPAGE@ + | CTHTML5Banner + -- ^ @HTML5_BANNER@ + | CTImage + -- ^ @IMAGE@ + | CTInstreamVideo + -- ^ @INSTREAM_VIDEO@ + | CTInstreamVideoRedirect + -- ^ @INSTREAM_VIDEO_REDIRECT@ + | CTInternalRedirect + -- ^ @INTERNAL_REDIRECT@ + | CTInterstitialInternalRedirect + -- ^ @INTERSTITIAL_INTERNAL_REDIRECT@ + | CTRichMediaDisplayBanner + -- ^ @RICH_MEDIA_DISPLAY_BANNER@ + | CTRichMediaDisplayExpanding + -- ^ @RICH_MEDIA_DISPLAY_EXPANDING@ + | CTRichMediaDisplayInterstitial + -- ^ @RICH_MEDIA_DISPLAY_INTERSTITIAL@ + | CTRichMediaDisplayMultiFloatingInterstitial + -- ^ @RICH_MEDIA_DISPLAY_MULTI_FLOATING_INTERSTITIAL@ + | CTRichMediaImExpand + -- ^ @RICH_MEDIA_IM_EXPAND@ + | CTRichMediaInpageFloating + -- ^ @RICH_MEDIA_INPAGE_FLOATING@ + | CTRichMediaMobileInApp + -- ^ @RICH_MEDIA_MOBILE_IN_APP@ + | CTRichMediaPeelDown + -- ^ @RICH_MEDIA_PEEL_DOWN@ + | CTTrackingText + -- ^ @TRACKING_TEXT@ + | CTVpaidLinearVideo + -- ^ @VPAID_LINEAR_VIDEO@ + | CTVpaidNonLinearVideo + -- ^ @VPAID_NON_LINEAR_VIDEO@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeType + +instance FromHttpApiData CreativeType where + parseQueryParam = \case + "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO" -> Right CTBrandSafeDefaultInstreamVideo + "CUSTOM_DISPLAY" -> Right CTCustomDisplay + "CUSTOM_DISPLAY_INTERSTITIAL" -> Right CTCustomDisplayInterstitial + "DISPLAY" -> Right CTDisplay + "DISPLAY_IMAGE_GALLERY" -> Right CTDisplayImageGallery + "DISPLAY_REDIRECT" -> Right CTDisplayRedirect + "FLASH_INPAGE" -> Right CTFlashInpage + "HTML5_BANNER" -> Right CTHTML5Banner + "IMAGE" -> Right CTImage + "INSTREAM_VIDEO" -> Right CTInstreamVideo + "INSTREAM_VIDEO_REDIRECT" -> Right CTInstreamVideoRedirect + "INTERNAL_REDIRECT" -> Right CTInternalRedirect + "INTERSTITIAL_INTERNAL_REDIRECT" -> Right CTInterstitialInternalRedirect + "RICH_MEDIA_DISPLAY_BANNER" -> Right CTRichMediaDisplayBanner + "RICH_MEDIA_DISPLAY_EXPANDING" -> Right CTRichMediaDisplayExpanding + "RICH_MEDIA_DISPLAY_INTERSTITIAL" -> Right CTRichMediaDisplayInterstitial + "RICH_MEDIA_DISPLAY_MULTI_FLOATING_INTERSTITIAL" -> Right CTRichMediaDisplayMultiFloatingInterstitial + "RICH_MEDIA_IM_EXPAND" -> Right CTRichMediaImExpand + "RICH_MEDIA_INPAGE_FLOATING" -> Right CTRichMediaInpageFloating + "RICH_MEDIA_MOBILE_IN_APP" -> Right CTRichMediaMobileInApp + "RICH_MEDIA_PEEL_DOWN" -> Right CTRichMediaPeelDown + "TRACKING_TEXT" -> Right CTTrackingText + "VPAID_LINEAR_VIDEO" -> Right CTVpaidLinearVideo + "VPAID_NON_LINEAR_VIDEO" -> Right CTVpaidNonLinearVideo + x -> Left ("Unable to parse CreativeType from: " <> x) + +instance ToHttpApiData CreativeType where + toQueryParam = \case + CTBrandSafeDefaultInstreamVideo -> "BRAND_SAFE_DEFAULT_INSTREAM_VIDEO" + CTCustomDisplay -> "CUSTOM_DISPLAY" + CTCustomDisplayInterstitial -> "CUSTOM_DISPLAY_INTERSTITIAL" + CTDisplay -> "DISPLAY" + CTDisplayImageGallery -> "DISPLAY_IMAGE_GALLERY" + CTDisplayRedirect -> "DISPLAY_REDIRECT" + CTFlashInpage -> "FLASH_INPAGE" + CTHTML5Banner -> "HTML5_BANNER" + CTImage -> "IMAGE" + CTInstreamVideo -> "INSTREAM_VIDEO" + CTInstreamVideoRedirect -> "INSTREAM_VIDEO_REDIRECT" + CTInternalRedirect -> "INTERNAL_REDIRECT" + CTInterstitialInternalRedirect -> "INTERSTITIAL_INTERNAL_REDIRECT" + CTRichMediaDisplayBanner -> "RICH_MEDIA_DISPLAY_BANNER" + CTRichMediaDisplayExpanding -> "RICH_MEDIA_DISPLAY_EXPANDING" + CTRichMediaDisplayInterstitial -> "RICH_MEDIA_DISPLAY_INTERSTITIAL" + CTRichMediaDisplayMultiFloatingInterstitial -> "RICH_MEDIA_DISPLAY_MULTI_FLOATING_INTERSTITIAL" + CTRichMediaImExpand -> "RICH_MEDIA_IM_EXPAND" + CTRichMediaInpageFloating -> "RICH_MEDIA_INPAGE_FLOATING" + CTRichMediaMobileInApp -> "RICH_MEDIA_MOBILE_IN_APP" + CTRichMediaPeelDown -> "RICH_MEDIA_PEEL_DOWN" + CTTrackingText -> "TRACKING_TEXT" + CTVpaidLinearVideo -> "VPAID_LINEAR_VIDEO" + CTVpaidNonLinearVideo -> "VPAID_NON_LINEAR_VIDEO" + +instance FromJSON CreativeType where + parseJSON = parseJSONText "CreativeType" + +instance ToJSON CreativeType where + toJSON = toJSONText + +-- | Order of sorted results, default is \'DESCENDING\'. +data FilesListSortOrder + = FLSOAscending + -- ^ @ASCENDING@ + -- Ascending order. + | FLSODescending + -- ^ @DESCENDING@ + -- Descending order. + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable FilesListSortOrder + +instance FromHttpApiData FilesListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right FLSOAscending + "DESCENDING" -> Right FLSODescending + x -> Left ("Unable to parse FilesListSortOrder from: " <> x) + +instance ToHttpApiData FilesListSortOrder where + toQueryParam = \case + FLSOAscending -> "ASCENDING" + FLSODescending -> "DESCENDING" + +instance FromJSON FilesListSortOrder where + parseJSON = parseJSONText "FilesListSortOrder" + +instance ToJSON FilesListSortOrder where + toJSON = toJSONText + +-- | Field by which to sort the list. +data AdvertiserGroupsListSortField + = AGLSFID + -- ^ @ID@ + | AGLSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AdvertiserGroupsListSortField + +instance FromHttpApiData AdvertiserGroupsListSortField where + parseQueryParam = \case + "ID" -> Right AGLSFID + "NAME" -> Right AGLSFName + x -> Left ("Unable to parse AdvertiserGroupsListSortField from: " <> x) + +instance ToHttpApiData AdvertiserGroupsListSortField where + toQueryParam = \case + AGLSFID -> "ID" + AGLSFName -> "NAME" + +instance FromJSON AdvertiserGroupsListSortField where + parseJSON = parseJSONText "AdvertiserGroupsListSortField" + +instance ToJSON AdvertiserGroupsListSortField where + toJSON = toJSONText + +-- | Type of browser window for which the backup image of the flash creative +-- can be displayed. +data TargetWindowTargetWindowOption + = CurrentWindow + -- ^ @CURRENT_WINDOW@ + | Custom + -- ^ @CUSTOM@ + | NewWindow + -- ^ @NEW_WINDOW@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable TargetWindowTargetWindowOption + +instance FromHttpApiData TargetWindowTargetWindowOption where + parseQueryParam = \case + "CURRENT_WINDOW" -> Right CurrentWindow + "CUSTOM" -> Right Custom + "NEW_WINDOW" -> Right NewWindow + x -> Left ("Unable to parse TargetWindowTargetWindowOption from: " <> x) + +instance ToHttpApiData TargetWindowTargetWindowOption where + toQueryParam = \case + CurrentWindow -> "CURRENT_WINDOW" + Custom -> "CUSTOM" + NewWindow -> "NEW_WINDOW" + +instance FromJSON TargetWindowTargetWindowOption where + parseJSON = parseJSONText "TargetWindowTargetWindowOption" + +instance ToJSON TargetWindowTargetWindowOption where + toJSON = toJSONText + +-- | Field by which to sort the list. +data DirectorySiteContactsListSortField + = DSCLSFID + -- ^ @ID@ + | DSCLSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable DirectorySiteContactsListSortField + +instance FromHttpApiData DirectorySiteContactsListSortField where + parseQueryParam = \case + "ID" -> Right DSCLSFID + "NAME" -> Right DSCLSFName + x -> Left ("Unable to parse DirectorySiteContactsListSortField from: " <> x) + +instance ToHttpApiData DirectorySiteContactsListSortField where + toQueryParam = \case + DSCLSFID -> "ID" + DSCLSFName -> "NAME" + +instance FromJSON DirectorySiteContactsListSortField where + parseJSON = parseJSONText "DirectorySiteContactsListSortField" + +instance ToJSON DirectorySiteContactsListSortField where + toJSON = toJSONText + +-- | Select only placements with these pricing types. +data PlacementsListPricingTypes + = PLPTPricingTypeCpa + -- ^ @PRICING_TYPE_CPA@ + | PLPTPricingTypeCpc + -- ^ @PRICING_TYPE_CPC@ + | PLPTPricingTypeCpm + -- ^ @PRICING_TYPE_CPM@ + | PLPTPricingTypeCpmActiveview + -- ^ @PRICING_TYPE_CPM_ACTIVEVIEW@ + | PLPTPricingTypeFlatRateClicks + -- ^ @PRICING_TYPE_FLAT_RATE_CLICKS@ + | PLPTPricingTypeFlatRateImpressions + -- ^ @PRICING_TYPE_FLAT_RATE_IMPRESSIONS@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PlacementsListPricingTypes + +instance FromHttpApiData PlacementsListPricingTypes where + parseQueryParam = \case + "PRICING_TYPE_CPA" -> Right PLPTPricingTypeCpa + "PRICING_TYPE_CPC" -> Right PLPTPricingTypeCpc + "PRICING_TYPE_CPM" -> Right PLPTPricingTypeCpm + "PRICING_TYPE_CPM_ACTIVEVIEW" -> Right PLPTPricingTypeCpmActiveview + "PRICING_TYPE_FLAT_RATE_CLICKS" -> Right PLPTPricingTypeFlatRateClicks + "PRICING_TYPE_FLAT_RATE_IMPRESSIONS" -> Right PLPTPricingTypeFlatRateImpressions + x -> Left ("Unable to parse PlacementsListPricingTypes from: " <> x) + +instance ToHttpApiData PlacementsListPricingTypes where + toQueryParam = \case + PLPTPricingTypeCpa -> "PRICING_TYPE_CPA" + PLPTPricingTypeCpc -> "PRICING_TYPE_CPC" + PLPTPricingTypeCpm -> "PRICING_TYPE_CPM" + PLPTPricingTypeCpmActiveview -> "PRICING_TYPE_CPM_ACTIVEVIEW" + PLPTPricingTypeFlatRateClicks -> "PRICING_TYPE_FLAT_RATE_CLICKS" + PLPTPricingTypeFlatRateImpressions -> "PRICING_TYPE_FLAT_RATE_IMPRESSIONS" + +instance FromJSON PlacementsListPricingTypes where + parseJSON = parseJSONText "PlacementsListPricingTypes" + +instance ToJSON PlacementsListPricingTypes where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data EventTagsListSortOrder + = ETLSOAscending + -- ^ @ASCENDING@ + | ETLSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable EventTagsListSortOrder + +instance FromHttpApiData EventTagsListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right ETLSOAscending + "DESCENDING" -> Right ETLSODescending + x -> Left ("Unable to parse EventTagsListSortOrder from: " <> x) + +instance ToHttpApiData EventTagsListSortOrder where + toQueryParam = \case + ETLSOAscending -> "ASCENDING" + ETLSODescending -> "DESCENDING" + +instance FromJSON EventTagsListSortOrder where + parseJSON = parseJSONText "EventTagsListSortOrder" + +instance ToJSON EventTagsListSortOrder where + toJSON = toJSONText + +-- | Describes whether the encrypted cookie was received from ad serving (the +-- %m macro) or from Data Transfer. +data EncryptionInfoEncryptionSource + = AdServing + -- ^ @AD_SERVING@ + | DataTransfer + -- ^ @DATA_TRANSFER@ + | EncryptionScopeUnknown + -- ^ @ENCRYPTION_SCOPE_UNKNOWN@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable EncryptionInfoEncryptionSource + +instance FromHttpApiData EncryptionInfoEncryptionSource where + parseQueryParam = \case + "AD_SERVING" -> Right AdServing + "DATA_TRANSFER" -> Right DataTransfer + "ENCRYPTION_SCOPE_UNKNOWN" -> Right EncryptionScopeUnknown + x -> Left ("Unable to parse EncryptionInfoEncryptionSource from: " <> x) + +instance ToHttpApiData EncryptionInfoEncryptionSource where + toQueryParam = \case + AdServing -> "AD_SERVING" + DataTransfer -> "DATA_TRANSFER" + EncryptionScopeUnknown -> "ENCRYPTION_SCOPE_UNKNOWN" + +instance FromJSON EncryptionInfoEncryptionSource where + parseJSON = parseJSONText "EncryptionInfoEncryptionSource" + +instance ToJSON EncryptionInfoEncryptionSource where + toJSON = toJSONText + +-- | Field by which to sort the list. +data DirectorySitesListSortField + = DSLSFID + -- ^ @ID@ + | DSLSFName + -- ^ @NAME@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable DirectorySitesListSortField + +instance FromHttpApiData DirectorySitesListSortField where + parseQueryParam = \case + "ID" -> Right DSLSFID + "NAME" -> Right DSLSFName + x -> Left ("Unable to parse DirectorySitesListSortField from: " <> x) + +instance ToHttpApiData DirectorySitesListSortField where + toQueryParam = \case + DSLSFID -> "ID" + DSLSFName -> "NAME" + +instance FromJSON DirectorySitesListSortField where + parseJSON = parseJSONText "DirectorySitesListSortField" + +instance ToJSON DirectorySitesListSortField where + toJSON = toJSONText + +-- | The dimension option. +data ReportCrossDimensionReachCriteriaDimension + = RCDRCDAdvertiser + -- ^ @ADVERTISER@ + | RCDRCDCampaign + -- ^ @CAMPAIGN@ + | RCDRCDSiteByAdvertiser + -- ^ @SITE_BY_ADVERTISER@ + | RCDRCDSiteByCampaign + -- ^ @SITE_BY_CAMPAIGN@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ReportCrossDimensionReachCriteriaDimension + +instance FromHttpApiData ReportCrossDimensionReachCriteriaDimension where + parseQueryParam = \case + "ADVERTISER" -> Right RCDRCDAdvertiser + "CAMPAIGN" -> Right RCDRCDCampaign + "SITE_BY_ADVERTISER" -> Right RCDRCDSiteByAdvertiser + "SITE_BY_CAMPAIGN" -> Right RCDRCDSiteByCampaign + x -> Left ("Unable to parse ReportCrossDimensionReachCriteriaDimension from: " <> x) + +instance ToHttpApiData ReportCrossDimensionReachCriteriaDimension where + toQueryParam = \case + RCDRCDAdvertiser -> "ADVERTISER" + RCDRCDCampaign -> "CAMPAIGN" + RCDRCDSiteByAdvertiser -> "SITE_BY_ADVERTISER" + RCDRCDSiteByCampaign -> "SITE_BY_CAMPAIGN" + +instance FromJSON ReportCrossDimensionReachCriteriaDimension where + parseJSON = parseJSONText "ReportCrossDimensionReachCriteriaDimension" + +instance ToJSON ReportCrossDimensionReachCriteriaDimension where + toJSON = toJSONText + +-- | Order of sorted results, default is ASCENDING. +data SitesListSortOrder + = SLSOAscending + -- ^ @ASCENDING@ + | SLSODescending + -- ^ @DESCENDING@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable SitesListSortOrder + +instance FromHttpApiData SitesListSortOrder where + parseQueryParam = \case + "ASCENDING" -> Right SLSOAscending + "DESCENDING" -> Right SLSODescending + x -> Left ("Unable to parse SitesListSortOrder from: " <> x) + +instance ToHttpApiData SitesListSortOrder where + toQueryParam = \case + SLSOAscending -> "ASCENDING" + SLSODescending -> "DESCENDING" + +instance FromJSON SitesListSortOrder where + parseJSON = parseJSONText "SitesListSortOrder" + +instance ToJSON SitesListSortOrder where + toJSON = toJSONText + +data PlacementTagFormatsItem + = PTFIPlacementTagClickCommands + -- ^ @PLACEMENT_TAG_CLICK_COMMANDS@ + | PTFIPlacementTagIframeIlayer + -- ^ @PLACEMENT_TAG_IFRAME_ILAYER@ + | PTFIPlacementTagIframeJavascript + -- ^ @PLACEMENT_TAG_IFRAME_JAVASCRIPT@ + | PTFIPlacementTagIframeJavascriptLegacy + -- ^ @PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY@ + | PTFIPlacementTagInstreamVideoPrefetch + -- ^ @PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH@ + | PTFIPlacementTagInstreamVideoPrefetchVast3 + -- ^ @PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3@ + | PTFIPlacementTagInternalRedirect + -- ^ @PLACEMENT_TAG_INTERNAL_REDIRECT@ + | PTFIPlacementTagInterstitialIframeJavascript + -- ^ @PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT@ + | PTFIPlacementTagInterstitialIframeJavascriptLegacy + -- ^ @PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY@ + | PTFIPlacementTagInterstitialInternalRedirect + -- ^ @PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT@ + | PTFIPlacementTagInterstitialJavascript + -- ^ @PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT@ + | PTFIPlacementTagInterstitialJavascriptLegacy + -- ^ @PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY@ + | PTFIPlacementTagJavascript + -- ^ @PLACEMENT_TAG_JAVASCRIPT@ + | PTFIPlacementTagJavascriptLegacy + -- ^ @PLACEMENT_TAG_JAVASCRIPT_LEGACY@ + | PTFIPlacementTagStandard + -- ^ @PLACEMENT_TAG_STANDARD@ + | PTFIPlacementTagTracking + -- ^ @PLACEMENT_TAG_TRACKING@ + | PTFIPlacementTagTrackingIframe + -- ^ @PLACEMENT_TAG_TRACKING_IFRAME@ + | PTFIPlacementTagTrackingJavascript + -- ^ @PLACEMENT_TAG_TRACKING_JAVASCRIPT@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PlacementTagFormatsItem + +instance FromHttpApiData PlacementTagFormatsItem where + parseQueryParam = \case + "PLACEMENT_TAG_CLICK_COMMANDS" -> Right PTFIPlacementTagClickCommands + "PLACEMENT_TAG_IFRAME_ILAYER" -> Right PTFIPlacementTagIframeIlayer + "PLACEMENT_TAG_IFRAME_JAVASCRIPT" -> Right PTFIPlacementTagIframeJavascript + "PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY" -> Right PTFIPlacementTagIframeJavascriptLegacy + "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH" -> Right PTFIPlacementTagInstreamVideoPrefetch + "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3" -> Right PTFIPlacementTagInstreamVideoPrefetchVast3 + "PLACEMENT_TAG_INTERNAL_REDIRECT" -> Right PTFIPlacementTagInternalRedirect + "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT" -> Right PTFIPlacementTagInterstitialIframeJavascript + "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY" -> Right PTFIPlacementTagInterstitialIframeJavascriptLegacy + "PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT" -> Right PTFIPlacementTagInterstitialInternalRedirect + "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT" -> Right PTFIPlacementTagInterstitialJavascript + "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY" -> Right PTFIPlacementTagInterstitialJavascriptLegacy + "PLACEMENT_TAG_JAVASCRIPT" -> Right PTFIPlacementTagJavascript + "PLACEMENT_TAG_JAVASCRIPT_LEGACY" -> Right PTFIPlacementTagJavascriptLegacy + "PLACEMENT_TAG_STANDARD" -> Right PTFIPlacementTagStandard + "PLACEMENT_TAG_TRACKING" -> Right PTFIPlacementTagTracking + "PLACEMENT_TAG_TRACKING_IFRAME" -> Right PTFIPlacementTagTrackingIframe + "PLACEMENT_TAG_TRACKING_JAVASCRIPT" -> Right PTFIPlacementTagTrackingJavascript + x -> Left ("Unable to parse PlacementTagFormatsItem from: " <> x) + +instance ToHttpApiData PlacementTagFormatsItem where + toQueryParam = \case + PTFIPlacementTagClickCommands -> "PLACEMENT_TAG_CLICK_COMMANDS" + PTFIPlacementTagIframeIlayer -> "PLACEMENT_TAG_IFRAME_ILAYER" + PTFIPlacementTagIframeJavascript -> "PLACEMENT_TAG_IFRAME_JAVASCRIPT" + PTFIPlacementTagIframeJavascriptLegacy -> "PLACEMENT_TAG_IFRAME_JAVASCRIPT_LEGACY" + PTFIPlacementTagInstreamVideoPrefetch -> "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH" + PTFIPlacementTagInstreamVideoPrefetchVast3 -> "PLACEMENT_TAG_INSTREAM_VIDEO_PREFETCH_VAST_3" + PTFIPlacementTagInternalRedirect -> "PLACEMENT_TAG_INTERNAL_REDIRECT" + PTFIPlacementTagInterstitialIframeJavascript -> "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT" + PTFIPlacementTagInterstitialIframeJavascriptLegacy -> "PLACEMENT_TAG_INTERSTITIAL_IFRAME_JAVASCRIPT_LEGACY" + PTFIPlacementTagInterstitialInternalRedirect -> "PLACEMENT_TAG_INTERSTITIAL_INTERNAL_REDIRECT" + PTFIPlacementTagInterstitialJavascript -> "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT" + PTFIPlacementTagInterstitialJavascriptLegacy -> "PLACEMENT_TAG_INTERSTITIAL_JAVASCRIPT_LEGACY" + PTFIPlacementTagJavascript -> "PLACEMENT_TAG_JAVASCRIPT" + PTFIPlacementTagJavascriptLegacy -> "PLACEMENT_TAG_JAVASCRIPT_LEGACY" + PTFIPlacementTagStandard -> "PLACEMENT_TAG_STANDARD" + PTFIPlacementTagTracking -> "PLACEMENT_TAG_TRACKING" + PTFIPlacementTagTrackingIframe -> "PLACEMENT_TAG_TRACKING_IFRAME" + PTFIPlacementTagTrackingJavascript -> "PLACEMENT_TAG_TRACKING_JAVASCRIPT" + +instance FromJSON PlacementTagFormatsItem where + parseJSON = parseJSONText "PlacementTagFormatsItem" + +instance ToJSON PlacementTagFormatsItem where + toJSON = toJSONText + +-- | Type of the object of this dynamic targeting key. This is a required +-- field. +data DynamicTargetingKeyObjectType + = DTKOTObjectAd + -- ^ @OBJECT_AD@ + | DTKOTObjectAdvertiser + -- ^ @OBJECT_ADVERTISER@ + | DTKOTObjectCreative + -- ^ @OBJECT_CREATIVE@ + | DTKOTObjectPlacement + -- ^ @OBJECT_PLACEMENT@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable DynamicTargetingKeyObjectType + +instance FromHttpApiData DynamicTargetingKeyObjectType where + parseQueryParam = \case + "OBJECT_AD" -> Right DTKOTObjectAd + "OBJECT_ADVERTISER" -> Right DTKOTObjectAdvertiser + "OBJECT_CREATIVE" -> Right DTKOTObjectCreative + "OBJECT_PLACEMENT" -> Right DTKOTObjectPlacement + x -> Left ("Unable to parse DynamicTargetingKeyObjectType from: " <> x) + +instance ToHttpApiData DynamicTargetingKeyObjectType where + toQueryParam = \case + DTKOTObjectAd -> "OBJECT_AD" + DTKOTObjectAdvertiser -> "OBJECT_ADVERTISER" + DTKOTObjectCreative -> "OBJECT_CREATIVE" + DTKOTObjectPlacement -> "OBJECT_PLACEMENT" + +instance FromJSON DynamicTargetingKeyObjectType where + parseJSON = parseJSONText "DynamicTargetingKeyObjectType" + +instance ToJSON DynamicTargetingKeyObjectType where + toJSON = toJSONText + +-- | The type of the report. +data ReportType + = RTCrossDimensionReach + -- ^ @CROSS_DIMENSION_REACH@ + | RTFloodlight + -- ^ @FLOODLIGHT@ + | RTPathToConversion + -- ^ @PATH_TO_CONVERSION@ + | RTReach + -- ^ @REACH@ + | RTStandard + -- ^ @STANDARD@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ReportType + +instance FromHttpApiData ReportType where + parseQueryParam = \case + "CROSS_DIMENSION_REACH" -> Right RTCrossDimensionReach + "FLOODLIGHT" -> Right RTFloodlight + "PATH_TO_CONVERSION" -> Right RTPathToConversion + "REACH" -> Right RTReach + "STANDARD" -> Right RTStandard + x -> Left ("Unable to parse ReportType from: " <> x) + +instance ToHttpApiData ReportType where + toQueryParam = \case + RTCrossDimensionReach -> "CROSS_DIMENSION_REACH" + RTFloodlight -> "FLOODLIGHT" + RTPathToConversion -> "PATH_TO_CONVERSION" + RTReach -> "REACH" + RTStandard -> "STANDARD" + +instance FromJSON ReportType where + parseJSON = parseJSONText "ReportType" + +instance ToJSON ReportType where + toJSON = toJSONText + +data CreativeAssetMetadataWarnedValidationRulesItem + = ADMobReferenced + -- ^ @ADMOB_REFERENCED@ + | AssetFormatUnsupportedDcm + -- ^ @ASSET_FORMAT_UNSUPPORTED_DCM@ + | AssetInvalid + -- ^ @ASSET_INVALID@ + | ClickTagHardCoded + -- ^ @CLICK_TAG_HARD_CODED@ + | ClickTagInvalid + -- ^ @CLICK_TAG_INVALID@ + | ClickTagInGwd + -- ^ @CLICK_TAG_IN_GWD@ + | ClickTagMissing + -- ^ @CLICK_TAG_MISSING@ + | ClickTagMoreThanOne + -- ^ @CLICK_TAG_MORE_THAN_ONE@ + | ClickTagNonTopLevel + -- ^ @CLICK_TAG_NON_TOP_LEVEL@ + | ComponentUnsupportedDcm + -- ^ @COMPONENT_UNSUPPORTED_DCM@ + | EnablerUnsupportedMethodDcm + -- ^ @ENABLER_UNSUPPORTED_METHOD_DCM@ + | ExternalFileReferenced + -- ^ @EXTERNAL_FILE_REFERENCED@ + | FileDetailEmpty + -- ^ @FILE_DETAIL_EMPTY@ + | FileTypeInvalid + -- ^ @FILE_TYPE_INVALID@ + | GwdPropertiesInvalid + -- ^ @GWD_PROPERTIES_INVALID@ + | HTML5FeatureUnsupported + -- ^ @HTML5_FEATURE_UNSUPPORTED@ + | LinkedFileNotFound + -- ^ @LINKED_FILE_NOT_FOUND@ + | MaxFlashVersion11 + -- ^ @MAX_FLASH_VERSION_11@ + | MraidReferenced + -- ^ @MRAID_REFERENCED@ + | NotSSLCompliant + -- ^ @NOT_SSL_COMPLIANT@ + | OrphanedAsset + -- ^ @ORPHANED_ASSET@ + | PrimaryHTMLMissing + -- ^ @PRIMARY_HTML_MISSING@ + | SvgInvalid + -- ^ @SVG_INVALID@ + | ZipInvalid + -- ^ @ZIP_INVALID@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeAssetMetadataWarnedValidationRulesItem + +instance FromHttpApiData CreativeAssetMetadataWarnedValidationRulesItem where + parseQueryParam = \case + "ADMOB_REFERENCED" -> Right ADMobReferenced + "ASSET_FORMAT_UNSUPPORTED_DCM" -> Right AssetFormatUnsupportedDcm + "ASSET_INVALID" -> Right AssetInvalid + "CLICK_TAG_HARD_CODED" -> Right ClickTagHardCoded + "CLICK_TAG_INVALID" -> Right ClickTagInvalid + "CLICK_TAG_IN_GWD" -> Right ClickTagInGwd + "CLICK_TAG_MISSING" -> Right ClickTagMissing + "CLICK_TAG_MORE_THAN_ONE" -> Right ClickTagMoreThanOne + "CLICK_TAG_NON_TOP_LEVEL" -> Right ClickTagNonTopLevel + "COMPONENT_UNSUPPORTED_DCM" -> Right ComponentUnsupportedDcm + "ENABLER_UNSUPPORTED_METHOD_DCM" -> Right EnablerUnsupportedMethodDcm + "EXTERNAL_FILE_REFERENCED" -> Right ExternalFileReferenced + "FILE_DETAIL_EMPTY" -> Right FileDetailEmpty + "FILE_TYPE_INVALID" -> Right FileTypeInvalid + "GWD_PROPERTIES_INVALID" -> Right GwdPropertiesInvalid + "HTML5_FEATURE_UNSUPPORTED" -> Right HTML5FeatureUnsupported + "LINKED_FILE_NOT_FOUND" -> Right LinkedFileNotFound + "MAX_FLASH_VERSION_11" -> Right MaxFlashVersion11 + "MRAID_REFERENCED" -> Right MraidReferenced + "NOT_SSL_COMPLIANT" -> Right NotSSLCompliant + "ORPHANED_ASSET" -> Right OrphanedAsset + "PRIMARY_HTML_MISSING" -> Right PrimaryHTMLMissing + "SVG_INVALID" -> Right SvgInvalid + "ZIP_INVALID" -> Right ZipInvalid + x -> Left ("Unable to parse CreativeAssetMetadataWarnedValidationRulesItem from: " <> x) + +instance ToHttpApiData CreativeAssetMetadataWarnedValidationRulesItem where + toQueryParam = \case + ADMobReferenced -> "ADMOB_REFERENCED" + AssetFormatUnsupportedDcm -> "ASSET_FORMAT_UNSUPPORTED_DCM" + AssetInvalid -> "ASSET_INVALID" + ClickTagHardCoded -> "CLICK_TAG_HARD_CODED" + ClickTagInvalid -> "CLICK_TAG_INVALID" + ClickTagInGwd -> "CLICK_TAG_IN_GWD" + ClickTagMissing -> "CLICK_TAG_MISSING" + ClickTagMoreThanOne -> "CLICK_TAG_MORE_THAN_ONE" + ClickTagNonTopLevel -> "CLICK_TAG_NON_TOP_LEVEL" + ComponentUnsupportedDcm -> "COMPONENT_UNSUPPORTED_DCM" + EnablerUnsupportedMethodDcm -> "ENABLER_UNSUPPORTED_METHOD_DCM" + ExternalFileReferenced -> "EXTERNAL_FILE_REFERENCED" + FileDetailEmpty -> "FILE_DETAIL_EMPTY" + FileTypeInvalid -> "FILE_TYPE_INVALID" + GwdPropertiesInvalid -> "GWD_PROPERTIES_INVALID" + HTML5FeatureUnsupported -> "HTML5_FEATURE_UNSUPPORTED" + LinkedFileNotFound -> "LINKED_FILE_NOT_FOUND" + MaxFlashVersion11 -> "MAX_FLASH_VERSION_11" + MraidReferenced -> "MRAID_REFERENCED" + NotSSLCompliant -> "NOT_SSL_COMPLIANT" + OrphanedAsset -> "ORPHANED_ASSET" + PrimaryHTMLMissing -> "PRIMARY_HTML_MISSING" + SvgInvalid -> "SVG_INVALID" + ZipInvalid -> "ZIP_INVALID" + +instance FromJSON CreativeAssetMetadataWarnedValidationRulesItem where + parseJSON = parseJSONText "CreativeAssetMetadataWarnedValidationRulesItem" + +instance ToJSON CreativeAssetMetadataWarnedValidationRulesItem where + toJSON = toJSONText + +-- | Payment source type of this ad slot. +data AdSlotPaymentSourceType + = PlanningPaymentSourceTypeAgencyPaid + -- ^ @PLANNING_PAYMENT_SOURCE_TYPE_AGENCY_PAID@ + | PlanningPaymentSourceTypePublisherPaid + -- ^ @PLANNING_PAYMENT_SOURCE_TYPE_PUBLISHER_PAID@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AdSlotPaymentSourceType + +instance FromHttpApiData AdSlotPaymentSourceType where + parseQueryParam = \case + "PLANNING_PAYMENT_SOURCE_TYPE_AGENCY_PAID" -> Right PlanningPaymentSourceTypeAgencyPaid + "PLANNING_PAYMENT_SOURCE_TYPE_PUBLISHER_PAID" -> Right PlanningPaymentSourceTypePublisherPaid + x -> Left ("Unable to parse AdSlotPaymentSourceType from: " <> x) + +instance ToHttpApiData AdSlotPaymentSourceType where + toQueryParam = \case + PlanningPaymentSourceTypeAgencyPaid -> "PLANNING_PAYMENT_SOURCE_TYPE_AGENCY_PAID" + PlanningPaymentSourceTypePublisherPaid -> "PLANNING_PAYMENT_SOURCE_TYPE_PUBLISHER_PAID" + +instance FromJSON AdSlotPaymentSourceType where + parseJSON = parseJSONText "AdSlotPaymentSourceType" + +instance ToJSON AdSlotPaymentSourceType where + toJSON = toJSONText + +data AccountPermissionAccountProFilesItem + = APAPFIAccountProFileBasic + -- ^ @ACCOUNT_PROFILE_BASIC@ + | APAPFIAccountProFileStandard + -- ^ @ACCOUNT_PROFILE_STANDARD@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable AccountPermissionAccountProFilesItem + +instance FromHttpApiData AccountPermissionAccountProFilesItem where + parseQueryParam = \case + "ACCOUNT_PROFILE_BASIC" -> Right APAPFIAccountProFileBasic + "ACCOUNT_PROFILE_STANDARD" -> Right APAPFIAccountProFileStandard + x -> Left ("Unable to parse AccountPermissionAccountProFilesItem from: " <> x) + +instance ToHttpApiData AccountPermissionAccountProFilesItem where + toQueryParam = \case + APAPFIAccountProFileBasic -> "ACCOUNT_PROFILE_BASIC" + APAPFIAccountProFileStandard -> "ACCOUNT_PROFILE_STANDARD" + +instance FromJSON AccountPermissionAccountProFilesItem where + parseJSON = parseJSONText "AccountPermissionAccountProFilesItem" + +instance ToJSON AccountPermissionAccountProFilesItem where + toJSON = toJSONText + +-- | Type of the event. This is a read-only field. +data CreativeCustomEventAdvertiserCustomEventType + = AdvertiserEventCounter + -- ^ @ADVERTISER_EVENT_COUNTER@ + | AdvertiserEventExit + -- ^ @ADVERTISER_EVENT_EXIT@ + | AdvertiserEventTimer + -- ^ @ADVERTISER_EVENT_TIMER@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeCustomEventAdvertiserCustomEventType + +instance FromHttpApiData CreativeCustomEventAdvertiserCustomEventType where + parseQueryParam = \case + "ADVERTISER_EVENT_COUNTER" -> Right AdvertiserEventCounter + "ADVERTISER_EVENT_EXIT" -> Right AdvertiserEventExit + "ADVERTISER_EVENT_TIMER" -> Right AdvertiserEventTimer + x -> Left ("Unable to parse CreativeCustomEventAdvertiserCustomEventType from: " <> x) + +instance ToHttpApiData CreativeCustomEventAdvertiserCustomEventType where + toQueryParam = \case + AdvertiserEventCounter -> "ADVERTISER_EVENT_COUNTER" + AdvertiserEventExit -> "ADVERTISER_EVENT_EXIT" + AdvertiserEventTimer -> "ADVERTISER_EVENT_TIMER" + +instance FromJSON CreativeCustomEventAdvertiserCustomEventType where + parseJSON = parseJSONText "CreativeCustomEventAdvertiserCustomEventType" + +instance ToJSON CreativeCustomEventAdvertiserCustomEventType where + toJSON = toJSONText + +-- | Select only change logs with the specified object type. +data ChangeLogsListObjectType + = CLLOTObjectAccount + -- ^ @OBJECT_ACCOUNT@ + | CLLOTObjectAccountBillingFeature + -- ^ @OBJECT_ACCOUNT_BILLING_FEATURE@ + | CLLOTObjectAd + -- ^ @OBJECT_AD@ + | CLLOTObjectAdvertiser + -- ^ @OBJECT_ADVERTISER@ + | CLLOTObjectAdvertiserGroup + -- ^ @OBJECT_ADVERTISER_GROUP@ + | CLLOTObjectBillingAccountGroup + -- ^ @OBJECT_BILLING_ACCOUNT_GROUP@ + | CLLOTObjectBillingFeature + -- ^ @OBJECT_BILLING_FEATURE@ + | CLLOTObjectBillingMinimumFee + -- ^ @OBJECT_BILLING_MINIMUM_FEE@ + | CLLOTObjectBillingProFile + -- ^ @OBJECT_BILLING_PROFILE@ + | CLLOTObjectCampaign + -- ^ @OBJECT_CAMPAIGN@ + | CLLOTObjectContentCategory + -- ^ @OBJECT_CONTENT_CATEGORY@ + | CLLOTObjectCreative + -- ^ @OBJECT_CREATIVE@ + | CLLOTObjectCreativeAsset + -- ^ @OBJECT_CREATIVE_ASSET@ + | CLLOTObjectCreativeBundle + -- ^ @OBJECT_CREATIVE_BUNDLE@ + | CLLOTObjectCreativeField + -- ^ @OBJECT_CREATIVE_FIELD@ + | CLLOTObjectCreativeGroup + -- ^ @OBJECT_CREATIVE_GROUP@ + | CLLOTObjectDfaSite + -- ^ @OBJECT_DFA_SITE@ + | CLLOTObjectEventTag + -- ^ @OBJECT_EVENT_TAG@ + | CLLOTObjectFloodlightActivityGroup + -- ^ @OBJECT_FLOODLIGHT_ACTIVITY_GROUP@ + | CLLOTObjectFloodlightActvity + -- ^ @OBJECT_FLOODLIGHT_ACTVITY@ + | CLLOTObjectFloodlightConfiguration + -- ^ @OBJECT_FLOODLIGHT_CONFIGURATION@ + | CLLOTObjectInstreamCreative + -- ^ @OBJECT_INSTREAM_CREATIVE@ + | CLLOTObjectLandingPage + -- ^ @OBJECT_LANDING_PAGE@ + | CLLOTObjectMediaOrder + -- ^ @OBJECT_MEDIA_ORDER@ + | CLLOTObjectPlacement + -- ^ @OBJECT_PLACEMENT@ + | CLLOTObjectPlacementStrategy + -- ^ @OBJECT_PLACEMENT_STRATEGY@ + | CLLOTObjectPlaystoreLink + -- ^ @OBJECT_PLAYSTORE_LINK@ + | CLLOTObjectProvidedListClient + -- ^ @OBJECT_PROVIDED_LIST_CLIENT@ + | CLLOTObjectRateCard + -- ^ @OBJECT_RATE_CARD@ + | CLLOTObjectRemarketingList + -- ^ @OBJECT_REMARKETING_LIST@ + | CLLOTObjectRichmediaCreative + -- ^ @OBJECT_RICHMEDIA_CREATIVE@ + | CLLOTObjectSdSite + -- ^ @OBJECT_SD_SITE@ + | CLLOTObjectSize + -- ^ @OBJECT_SIZE@ + | CLLOTObjectSubAccount + -- ^ @OBJECT_SUBACCOUNT@ + | CLLOTObjectTargetingTemplate + -- ^ @OBJECT_TARGETING_TEMPLATE@ + | CLLOTObjectUserProFile + -- ^ @OBJECT_USER_PROFILE@ + | CLLOTObjectUserProFileFilter + -- ^ @OBJECT_USER_PROFILE_FILTER@ + | CLLOTObjectUserRole + -- ^ @OBJECT_USER_ROLE@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable ChangeLogsListObjectType + +instance FromHttpApiData ChangeLogsListObjectType where + parseQueryParam = \case + "OBJECT_ACCOUNT" -> Right CLLOTObjectAccount + "OBJECT_ACCOUNT_BILLING_FEATURE" -> Right CLLOTObjectAccountBillingFeature + "OBJECT_AD" -> Right CLLOTObjectAd + "OBJECT_ADVERTISER" -> Right CLLOTObjectAdvertiser + "OBJECT_ADVERTISER_GROUP" -> Right CLLOTObjectAdvertiserGroup + "OBJECT_BILLING_ACCOUNT_GROUP" -> Right CLLOTObjectBillingAccountGroup + "OBJECT_BILLING_FEATURE" -> Right CLLOTObjectBillingFeature + "OBJECT_BILLING_MINIMUM_FEE" -> Right CLLOTObjectBillingMinimumFee + "OBJECT_BILLING_PROFILE" -> Right CLLOTObjectBillingProFile + "OBJECT_CAMPAIGN" -> Right CLLOTObjectCampaign + "OBJECT_CONTENT_CATEGORY" -> Right CLLOTObjectContentCategory + "OBJECT_CREATIVE" -> Right CLLOTObjectCreative + "OBJECT_CREATIVE_ASSET" -> Right CLLOTObjectCreativeAsset + "OBJECT_CREATIVE_BUNDLE" -> Right CLLOTObjectCreativeBundle + "OBJECT_CREATIVE_FIELD" -> Right CLLOTObjectCreativeField + "OBJECT_CREATIVE_GROUP" -> Right CLLOTObjectCreativeGroup + "OBJECT_DFA_SITE" -> Right CLLOTObjectDfaSite + "OBJECT_EVENT_TAG" -> Right CLLOTObjectEventTag + "OBJECT_FLOODLIGHT_ACTIVITY_GROUP" -> Right CLLOTObjectFloodlightActivityGroup + "OBJECT_FLOODLIGHT_ACTVITY" -> Right CLLOTObjectFloodlightActvity + "OBJECT_FLOODLIGHT_CONFIGURATION" -> Right CLLOTObjectFloodlightConfiguration + "OBJECT_INSTREAM_CREATIVE" -> Right CLLOTObjectInstreamCreative + "OBJECT_LANDING_PAGE" -> Right CLLOTObjectLandingPage + "OBJECT_MEDIA_ORDER" -> Right CLLOTObjectMediaOrder + "OBJECT_PLACEMENT" -> Right CLLOTObjectPlacement + "OBJECT_PLACEMENT_STRATEGY" -> Right CLLOTObjectPlacementStrategy + "OBJECT_PLAYSTORE_LINK" -> Right CLLOTObjectPlaystoreLink + "OBJECT_PROVIDED_LIST_CLIENT" -> Right CLLOTObjectProvidedListClient + "OBJECT_RATE_CARD" -> Right CLLOTObjectRateCard + "OBJECT_REMARKETING_LIST" -> Right CLLOTObjectRemarketingList + "OBJECT_RICHMEDIA_CREATIVE" -> Right CLLOTObjectRichmediaCreative + "OBJECT_SD_SITE" -> Right CLLOTObjectSdSite + "OBJECT_SIZE" -> Right CLLOTObjectSize + "OBJECT_SUBACCOUNT" -> Right CLLOTObjectSubAccount + "OBJECT_TARGETING_TEMPLATE" -> Right CLLOTObjectTargetingTemplate + "OBJECT_USER_PROFILE" -> Right CLLOTObjectUserProFile + "OBJECT_USER_PROFILE_FILTER" -> Right CLLOTObjectUserProFileFilter + "OBJECT_USER_ROLE" -> Right CLLOTObjectUserRole + x -> Left ("Unable to parse ChangeLogsListObjectType from: " <> x) + +instance ToHttpApiData ChangeLogsListObjectType where + toQueryParam = \case + CLLOTObjectAccount -> "OBJECT_ACCOUNT" + CLLOTObjectAccountBillingFeature -> "OBJECT_ACCOUNT_BILLING_FEATURE" + CLLOTObjectAd -> "OBJECT_AD" + CLLOTObjectAdvertiser -> "OBJECT_ADVERTISER" + CLLOTObjectAdvertiserGroup -> "OBJECT_ADVERTISER_GROUP" + CLLOTObjectBillingAccountGroup -> "OBJECT_BILLING_ACCOUNT_GROUP" + CLLOTObjectBillingFeature -> "OBJECT_BILLING_FEATURE" + CLLOTObjectBillingMinimumFee -> "OBJECT_BILLING_MINIMUM_FEE" + CLLOTObjectBillingProFile -> "OBJECT_BILLING_PROFILE" + CLLOTObjectCampaign -> "OBJECT_CAMPAIGN" + CLLOTObjectContentCategory -> "OBJECT_CONTENT_CATEGORY" + CLLOTObjectCreative -> "OBJECT_CREATIVE" + CLLOTObjectCreativeAsset -> "OBJECT_CREATIVE_ASSET" + CLLOTObjectCreativeBundle -> "OBJECT_CREATIVE_BUNDLE" + CLLOTObjectCreativeField -> "OBJECT_CREATIVE_FIELD" + CLLOTObjectCreativeGroup -> "OBJECT_CREATIVE_GROUP" + CLLOTObjectDfaSite -> "OBJECT_DFA_SITE" + CLLOTObjectEventTag -> "OBJECT_EVENT_TAG" + CLLOTObjectFloodlightActivityGroup -> "OBJECT_FLOODLIGHT_ACTIVITY_GROUP" + CLLOTObjectFloodlightActvity -> "OBJECT_FLOODLIGHT_ACTVITY" + CLLOTObjectFloodlightConfiguration -> "OBJECT_FLOODLIGHT_CONFIGURATION" + CLLOTObjectInstreamCreative -> "OBJECT_INSTREAM_CREATIVE" + CLLOTObjectLandingPage -> "OBJECT_LANDING_PAGE" + CLLOTObjectMediaOrder -> "OBJECT_MEDIA_ORDER" + CLLOTObjectPlacement -> "OBJECT_PLACEMENT" + CLLOTObjectPlacementStrategy -> "OBJECT_PLACEMENT_STRATEGY" + CLLOTObjectPlaystoreLink -> "OBJECT_PLAYSTORE_LINK" + CLLOTObjectProvidedListClient -> "OBJECT_PROVIDED_LIST_CLIENT" + CLLOTObjectRateCard -> "OBJECT_RATE_CARD" + CLLOTObjectRemarketingList -> "OBJECT_REMARKETING_LIST" + CLLOTObjectRichmediaCreative -> "OBJECT_RICHMEDIA_CREATIVE" + CLLOTObjectSdSite -> "OBJECT_SD_SITE" + CLLOTObjectSize -> "OBJECT_SIZE" + CLLOTObjectSubAccount -> "OBJECT_SUBACCOUNT" + CLLOTObjectTargetingTemplate -> "OBJECT_TARGETING_TEMPLATE" + CLLOTObjectUserProFile -> "OBJECT_USER_PROFILE" + CLLOTObjectUserProFileFilter -> "OBJECT_USER_PROFILE_FILTER" + CLLOTObjectUserRole -> "OBJECT_USER_ROLE" + +instance FromJSON ChangeLogsListObjectType where + parseJSON = parseJSONText "ChangeLogsListObjectType" + +instance ToJSON ChangeLogsListObjectType where + toJSON = toJSONText + +-- | Cap cost type of this inventory item. +data PricingCapCostType + = PlanningPlacementCapCostTypeCumulative + -- ^ @PLANNING_PLACEMENT_CAP_COST_TYPE_CUMULATIVE@ + | PlanningPlacementCapCostTypeMonthly + -- ^ @PLANNING_PLACEMENT_CAP_COST_TYPE_MONTHLY@ + | PlanningPlacementCapCostTypeNone + -- ^ @PLANNING_PLACEMENT_CAP_COST_TYPE_NONE@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable PricingCapCostType + +instance FromHttpApiData PricingCapCostType where + parseQueryParam = \case + "PLANNING_PLACEMENT_CAP_COST_TYPE_CUMULATIVE" -> Right PlanningPlacementCapCostTypeCumulative + "PLANNING_PLACEMENT_CAP_COST_TYPE_MONTHLY" -> Right PlanningPlacementCapCostTypeMonthly + "PLANNING_PLACEMENT_CAP_COST_TYPE_NONE" -> Right PlanningPlacementCapCostTypeNone + x -> Left ("Unable to parse PricingCapCostType from: " <> x) + +instance ToHttpApiData PricingCapCostType where + toQueryParam = \case + PlanningPlacementCapCostTypeCumulative -> "PLANNING_PLACEMENT_CAP_COST_TYPE_CUMULATIVE" + PlanningPlacementCapCostTypeMonthly -> "PLANNING_PLACEMENT_CAP_COST_TYPE_MONTHLY" + PlanningPlacementCapCostTypeNone -> "PLANNING_PLACEMENT_CAP_COST_TYPE_NONE" + +instance FromJSON PricingCapCostType where + parseJSON = parseJSONText "PricingCapCostType" + +instance ToJSON PricingCapCostType where + toJSON = toJSONText + +-- | Type of rich media asset. This is a read-only field. Applicable to the +-- following creative types: all RICH_MEDIA. +data CreativeAssetDisplayType + = AssetDisplayTypeBackdrop + -- ^ @ASSET_DISPLAY_TYPE_BACKDROP@ + | AssetDisplayTypeExpanding + -- ^ @ASSET_DISPLAY_TYPE_EXPANDING@ + | AssetDisplayTypeFlashInFlash + -- ^ @ASSET_DISPLAY_TYPE_FLASH_IN_FLASH@ + | AssetDisplayTypeFlashInFlashExpanding + -- ^ @ASSET_DISPLAY_TYPE_FLASH_IN_FLASH_EXPANDING@ + | AssetDisplayTypeFloating + -- ^ @ASSET_DISPLAY_TYPE_FLOATING@ + | AssetDisplayTypeInpage + -- ^ @ASSET_DISPLAY_TYPE_INPAGE@ + | AssetDisplayTypeOverlay + -- ^ @ASSET_DISPLAY_TYPE_OVERLAY@ + | AssetDisplayTypePeelDown + -- ^ @ASSET_DISPLAY_TYPE_PEEL_DOWN@ + | AssetDisplayTypeVpaidLinear + -- ^ @ASSET_DISPLAY_TYPE_VPAID_LINEAR@ + | AssetDisplayTypeVpaidNonLinear + -- ^ @ASSET_DISPLAY_TYPE_VPAID_NON_LINEAR@ + deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) + +instance Hashable CreativeAssetDisplayType + +instance FromHttpApiData CreativeAssetDisplayType where + parseQueryParam = \case + "ASSET_DISPLAY_TYPE_BACKDROP" -> Right AssetDisplayTypeBackdrop + "ASSET_DISPLAY_TYPE_EXPANDING" -> Right AssetDisplayTypeExpanding + "ASSET_DISPLAY_TYPE_FLASH_IN_FLASH" -> Right AssetDisplayTypeFlashInFlash + "ASSET_DISPLAY_TYPE_FLASH_IN_FLASH_EXPANDING" -> Right AssetDisplayTypeFlashInFlashExpanding + "ASSET_DISPLAY_TYPE_FLOATING" -> Right AssetDisplayTypeFloating + "ASSET_DISPLAY_TYPE_INPAGE" -> Right AssetDisplayTypeInpage + "ASSET_DISPLAY_TYPE_OVERLAY" -> Right AssetDisplayTypeOverlay + "ASSET_DISPLAY_TYPE_PEEL_DOWN" -> Right AssetDisplayTypePeelDown + "ASSET_DISPLAY_TYPE_VPAID_LINEAR" -> Right AssetDisplayTypeVpaidLinear + "ASSET_DISPLAY_TYPE_VPAID_NON_LINEAR" -> Right AssetDisplayTypeVpaidNonLinear + x -> Left ("Unable to parse CreativeAssetDisplayType from: " <> x) + +instance ToHttpApiData CreativeAssetDisplayType where + toQueryParam = \case + AssetDisplayTypeBackdrop -> "ASSET_DISPLAY_TYPE_BACKDROP" AssetDisplayTypeExpanding -> "ASSET_DISPLAY_TYPE_EXPANDING" AssetDisplayTypeFlashInFlash -> "ASSET_DISPLAY_TYPE_FLASH_IN_FLASH" AssetDisplayTypeFlashInFlashExpanding -> "ASSET_DISPLAY_TYPE_FLASH_IN_FLASH_EXPANDING" diff --git a/gen/Network/Google/Resource/DFAReporting/AccountActiveAdSummaries/Get.hs b/gen/Network/Google/Resource/DFAReporting/AccountActiveAdSummaries/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/AccountActiveAdSummaries/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/AccountActiveAdSummaries/Get.hs @@ -22,7 +22,7 @@ -- -- Gets the account\'s active ad summary by account ID. -- --- /See:/ for @dfareporting.accountActiveAdSummaries.get@. +-- /See:/ for @dfareporting.accountActiveAdSummaries.get@. module Network.Google.Resource.DFAReporting.AccountActiveAdSummaries.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'AccountActiveAdSummariesGet' request conforms to. type AccountActiveAdSummariesGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "accountActiveAdSummaries" :> diff --git a/gen/Network/Google/Resource/DFAReporting/AccountPermissionGroups/Get.hs b/gen/Network/Google/Resource/DFAReporting/AccountPermissionGroups/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/AccountPermissionGroups/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/AccountPermissionGroups/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one account permission group by ID. -- --- /See:/ for @dfareporting.accountPermissionGroups.get@. +-- /See:/ for @dfareporting.accountPermissionGroups.get@. module Network.Google.Resource.DFAReporting.AccountPermissionGroups.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'AccountPermissionGroupsGet' request conforms to. type AccountPermissionGroupsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "accountPermissionGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/AccountPermissionGroups/List.hs b/gen/Network/Google/Resource/DFAReporting/AccountPermissionGroups/List.hs --- a/gen/Network/Google/Resource/DFAReporting/AccountPermissionGroups/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/AccountPermissionGroups/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves the list of account permission groups. -- --- /See:/ for @dfareporting.accountPermissionGroups.list@. +-- /See:/ for @dfareporting.accountPermissionGroups.list@. module Network.Google.Resource.DFAReporting.AccountPermissionGroups.List ( -- * REST Resource @@ -43,7 +43,7 @@ -- 'AccountPermissionGroupsList' request conforms to. type AccountPermissionGroupsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "accountPermissionGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/AccountPermissions/Get.hs b/gen/Network/Google/Resource/DFAReporting/AccountPermissions/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/AccountPermissions/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/AccountPermissions/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one account permission by ID. -- --- /See:/ for @dfareporting.accountPermissions.get@. +-- /See:/ for @dfareporting.accountPermissions.get@. module Network.Google.Resource.DFAReporting.AccountPermissions.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'AccountPermissionsGet' request conforms to. type AccountPermissionsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "accountPermissions" :> diff --git a/gen/Network/Google/Resource/DFAReporting/AccountPermissions/List.hs b/gen/Network/Google/Resource/DFAReporting/AccountPermissions/List.hs --- a/gen/Network/Google/Resource/DFAReporting/AccountPermissions/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/AccountPermissions/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves the list of account permissions. -- --- /See:/ for @dfareporting.accountPermissions.list@. +-- /See:/ for @dfareporting.accountPermissions.list@. module Network.Google.Resource.DFAReporting.AccountPermissions.List ( -- * REST Resource @@ -43,7 +43,7 @@ -- 'AccountPermissionsList' request conforms to. type AccountPermissionsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "accountPermissions" :> diff --git a/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/Get.hs b/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one account user profile by ID. -- --- /See:/ for @dfareporting.accountUserProfiles.get@. +-- /See:/ for @dfareporting.accountUserProfiles.get@. module Network.Google.Resource.DFAReporting.AccountUserProFiles.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'AccountUserProFilesGet' request conforms to. type AccountUserProFilesGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "accountUserProfiles" :> diff --git a/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/Insert.hs b/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new account user profile. -- --- /See:/ for @dfareporting.accountUserProfiles.insert@. +-- /See:/ for @dfareporting.accountUserProfiles.insert@. module Network.Google.Resource.DFAReporting.AccountUserProFiles.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'AccountUserProFilesInsert' request conforms to. type AccountUserProFilesInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "accountUserProfiles" :> diff --git a/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/List.hs b/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/List.hs --- a/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of account user profiles, possibly filtered. -- --- /See:/ for @dfareporting.accountUserProfiles.list@. +-- /See:/ for @dfareporting.accountUserProfiles.list@. module Network.Google.Resource.DFAReporting.AccountUserProFiles.List ( -- * REST Resource @@ -52,7 +52,7 @@ -- 'AccountUserProFilesList' request conforms to. type AccountUserProFilesListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "accountUserProfiles" :> diff --git a/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/Patch.hs b/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/Patch.hs @@ -23,7 +23,7 @@ -- Updates an existing account user profile. This method supports patch -- semantics. -- --- /See:/ for @dfareporting.accountUserProfiles.patch@. +-- /See:/ for @dfareporting.accountUserProfiles.patch@. module Network.Google.Resource.DFAReporting.AccountUserProFiles.Patch ( -- * REST Resource @@ -46,7 +46,7 @@ -- 'AccountUserProFilesPatch' request conforms to. type AccountUserProFilesPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "accountUserProfiles" :> diff --git a/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/Update.hs b/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/AccountUserProFiles/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing account user profile. -- --- /See:/ for @dfareporting.accountUserProfiles.update@. +-- /See:/ for @dfareporting.accountUserProfiles.update@. module Network.Google.Resource.DFAReporting.AccountUserProFiles.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'AccountUserProFilesUpdate' request conforms to. type AccountUserProFilesUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "accountUserProfiles" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Accounts/Get.hs b/gen/Network/Google/Resource/DFAReporting/Accounts/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/Accounts/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/Accounts/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one account by ID. -- --- /See:/ for @dfareporting.accounts.get@. +-- /See:/ for @dfareporting.accounts.get@. module Network.Google.Resource.DFAReporting.Accounts.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'AccountsGet' request conforms to. type AccountsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "accounts" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Accounts/List.hs b/gen/Network/Google/Resource/DFAReporting/Accounts/List.hs --- a/gen/Network/Google/Resource/DFAReporting/Accounts/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/Accounts/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves the list of accounts, possibly filtered. -- --- /See:/ for @dfareporting.accounts.list@. +-- /See:/ for @dfareporting.accounts.list@. module Network.Google.Resource.DFAReporting.Accounts.List ( -- * REST Resource @@ -50,7 +50,7 @@ -- 'AccountsList' request conforms to. type AccountsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "accounts" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Accounts/Patch.hs b/gen/Network/Google/Resource/DFAReporting/Accounts/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/Accounts/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/Accounts/Patch.hs @@ -22,7 +22,7 @@ -- -- Updates an existing account. This method supports patch semantics. -- --- /See:/ for @dfareporting.accounts.patch@. +-- /See:/ for @dfareporting.accounts.patch@. module Network.Google.Resource.DFAReporting.Accounts.Patch ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'AccountsPatch' request conforms to. type AccountsPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "accounts" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Accounts/Update.hs b/gen/Network/Google/Resource/DFAReporting/Accounts/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/Accounts/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/Accounts/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing account. -- --- /See:/ for @dfareporting.accounts.update@. +-- /See:/ for @dfareporting.accounts.update@. module Network.Google.Resource.DFAReporting.Accounts.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'AccountsUpdate' request conforms to. type AccountsUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "accounts" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Ads/Get.hs b/gen/Network/Google/Resource/DFAReporting/Ads/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/Ads/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/Ads/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one ad by ID. -- --- /See:/ for @dfareporting.ads.get@. +-- /See:/ for @dfareporting.ads.get@. module Network.Google.Resource.DFAReporting.Ads.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'AdsGet' request conforms to. type AdsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "ads" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Ads/Insert.hs b/gen/Network/Google/Resource/DFAReporting/Ads/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/Ads/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/Ads/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new ad. -- --- /See:/ for @dfareporting.ads.insert@. +-- /See:/ for @dfareporting.ads.insert@. module Network.Google.Resource.DFAReporting.Ads.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'AdsInsert' request conforms to. type AdsInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "ads" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Ads/List.hs b/gen/Network/Google/Resource/DFAReporting/Ads/List.hs --- a/gen/Network/Google/Resource/DFAReporting/Ads/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/Ads/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of ads, possibly filtered. -- --- /See:/ for @dfareporting.ads.list@. +-- /See:/ for @dfareporting.ads.list@. module Network.Google.Resource.DFAReporting.Ads.List ( -- * REST Resource @@ -67,7 +67,7 @@ -- 'AdsList' request conforms to. type AdsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "ads" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Ads/Patch.hs b/gen/Network/Google/Resource/DFAReporting/Ads/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/Ads/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/Ads/Patch.hs @@ -22,7 +22,7 @@ -- -- Updates an existing ad. This method supports patch semantics. -- --- /See:/ for @dfareporting.ads.patch@. +-- /See:/ for @dfareporting.ads.patch@. module Network.Google.Resource.DFAReporting.Ads.Patch ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'AdsPatch' request conforms to. type AdsPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "ads" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Ads/Update.hs b/gen/Network/Google/Resource/DFAReporting/Ads/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/Ads/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/Ads/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing ad. -- --- /See:/ for @dfareporting.ads.update@. +-- /See:/ for @dfareporting.ads.update@. module Network.Google.Resource.DFAReporting.Ads.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'AdsUpdate' request conforms to. type AdsUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "ads" :> diff --git a/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Delete.hs b/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Delete.hs --- a/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Delete.hs +++ b/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Delete.hs @@ -22,7 +22,7 @@ -- -- Deletes an existing advertiser group. -- --- /See:/ for @dfareporting.advertiserGroups.delete@. +-- /See:/ for @dfareporting.advertiserGroups.delete@. module Network.Google.Resource.DFAReporting.AdvertiserGroups.Delete ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'AdvertiserGroupsDelete' request conforms to. type AdvertiserGroupsDeleteResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "advertiserGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Get.hs b/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one advertiser group by ID. -- --- /See:/ for @dfareporting.advertiserGroups.get@. +-- /See:/ for @dfareporting.advertiserGroups.get@. module Network.Google.Resource.DFAReporting.AdvertiserGroups.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'AdvertiserGroupsGet' request conforms to. type AdvertiserGroupsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "advertiserGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Insert.hs b/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new advertiser group. -- --- /See:/ for @dfareporting.advertiserGroups.insert@. +-- /See:/ for @dfareporting.advertiserGroups.insert@. module Network.Google.Resource.DFAReporting.AdvertiserGroups.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'AdvertiserGroupsInsert' request conforms to. type AdvertiserGroupsInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "advertiserGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/List.hs b/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/List.hs --- a/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of advertiser groups, possibly filtered. -- --- /See:/ for @dfareporting.advertiserGroups.list@. +-- /See:/ for @dfareporting.advertiserGroups.list@. module Network.Google.Resource.DFAReporting.AdvertiserGroups.List ( -- * REST Resource @@ -49,7 +49,7 @@ -- 'AdvertiserGroupsList' request conforms to. type AdvertiserGroupsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "advertiserGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Patch.hs b/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Patch.hs @@ -23,7 +23,7 @@ -- Updates an existing advertiser group. This method supports patch -- semantics. -- --- /See:/ for @dfareporting.advertiserGroups.patch@. +-- /See:/ for @dfareporting.advertiserGroups.patch@. module Network.Google.Resource.DFAReporting.AdvertiserGroups.Patch ( -- * REST Resource @@ -46,7 +46,7 @@ -- 'AdvertiserGroupsPatch' request conforms to. type AdvertiserGroupsPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "advertiserGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Update.hs b/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/AdvertiserGroups/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing advertiser group. -- --- /See:/ for @dfareporting.advertiserGroups.update@. +-- /See:/ for @dfareporting.advertiserGroups.update@. module Network.Google.Resource.DFAReporting.AdvertiserGroups.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'AdvertiserGroupsUpdate' request conforms to. type AdvertiserGroupsUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "advertiserGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Advertisers/Get.hs b/gen/Network/Google/Resource/DFAReporting/Advertisers/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/Advertisers/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/Advertisers/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one advertiser by ID. -- --- /See:/ for @dfareporting.advertisers.get@. +-- /See:/ for @dfareporting.advertisers.get@. module Network.Google.Resource.DFAReporting.Advertisers.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'AdvertisersGet' request conforms to. type AdvertisersGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "advertisers" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Advertisers/Insert.hs b/gen/Network/Google/Resource/DFAReporting/Advertisers/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/Advertisers/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/Advertisers/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new advertiser. -- --- /See:/ for @dfareporting.advertisers.insert@. +-- /See:/ for @dfareporting.advertisers.insert@. module Network.Google.Resource.DFAReporting.Advertisers.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'AdvertisersInsert' request conforms to. type AdvertisersInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "advertisers" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Advertisers/List.hs b/gen/Network/Google/Resource/DFAReporting/Advertisers/List.hs --- a/gen/Network/Google/Resource/DFAReporting/Advertisers/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/Advertisers/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of advertisers, possibly filtered. -- --- /See:/ for @dfareporting.advertisers.list@. +-- /See:/ for @dfareporting.advertisers.list@. module Network.Google.Resource.DFAReporting.Advertisers.List ( -- * REST Resource @@ -55,7 +55,7 @@ -- 'AdvertisersList' request conforms to. type AdvertisersListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "advertisers" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Advertisers/Patch.hs b/gen/Network/Google/Resource/DFAReporting/Advertisers/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/Advertisers/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/Advertisers/Patch.hs @@ -22,7 +22,7 @@ -- -- Updates an existing advertiser. This method supports patch semantics. -- --- /See:/ for @dfareporting.advertisers.patch@. +-- /See:/ for @dfareporting.advertisers.patch@. module Network.Google.Resource.DFAReporting.Advertisers.Patch ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'AdvertisersPatch' request conforms to. type AdvertisersPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "advertisers" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Advertisers/Update.hs b/gen/Network/Google/Resource/DFAReporting/Advertisers/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/Advertisers/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/Advertisers/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing advertiser. -- --- /See:/ for @dfareporting.advertisers.update@. +-- /See:/ for @dfareporting.advertisers.update@. module Network.Google.Resource.DFAReporting.Advertisers.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'AdvertisersUpdate' request conforms to. type AdvertisersUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "advertisers" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Browsers/List.hs b/gen/Network/Google/Resource/DFAReporting/Browsers/List.hs --- a/gen/Network/Google/Resource/DFAReporting/Browsers/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/Browsers/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of browsers. -- --- /See:/ for @dfareporting.browsers.list@. +-- /See:/ for @dfareporting.browsers.list@. module Network.Google.Resource.DFAReporting.Browsers.List ( -- * REST Resource @@ -43,7 +43,7 @@ -- 'BrowsersList' request conforms to. type BrowsersListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "browsers" :> diff --git a/gen/Network/Google/Resource/DFAReporting/CampaignCreativeAssociations/Insert.hs b/gen/Network/Google/Resource/DFAReporting/CampaignCreativeAssociations/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/CampaignCreativeAssociations/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/CampaignCreativeAssociations/Insert.hs @@ -24,7 +24,7 @@ -- default ad with dimensions matching the creative in the campaign if such -- a default ad does not exist already. -- --- /See:/ for @dfareporting.campaignCreativeAssociations.insert@. +-- /See:/ for @dfareporting.campaignCreativeAssociations.insert@. module Network.Google.Resource.DFAReporting.CampaignCreativeAssociations.Insert ( -- * REST Resource @@ -47,7 +47,7 @@ -- 'CampaignCreativeAssociationsInsert' request conforms to. type CampaignCreativeAssociationsInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "campaigns" :> diff --git a/gen/Network/Google/Resource/DFAReporting/CampaignCreativeAssociations/List.hs b/gen/Network/Google/Resource/DFAReporting/CampaignCreativeAssociations/List.hs --- a/gen/Network/Google/Resource/DFAReporting/CampaignCreativeAssociations/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/CampaignCreativeAssociations/List.hs @@ -23,7 +23,7 @@ -- Retrieves the list of creative IDs associated with the specified -- campaign. -- --- /See:/ for @dfareporting.campaignCreativeAssociations.list@. +-- /See:/ for @dfareporting.campaignCreativeAssociations.list@. module Network.Google.Resource.DFAReporting.CampaignCreativeAssociations.List ( -- * REST Resource @@ -48,7 +48,7 @@ -- 'CampaignCreativeAssociationsList' request conforms to. type CampaignCreativeAssociationsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "campaigns" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Campaigns/Get.hs b/gen/Network/Google/Resource/DFAReporting/Campaigns/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/Campaigns/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/Campaigns/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one campaign by ID. -- --- /See:/ for @dfareporting.campaigns.get@. +-- /See:/ for @dfareporting.campaigns.get@. module Network.Google.Resource.DFAReporting.Campaigns.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'CampaignsGet' request conforms to. type CampaignsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "campaigns" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Campaigns/Insert.hs b/gen/Network/Google/Resource/DFAReporting/Campaigns/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/Campaigns/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/Campaigns/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new campaign. -- --- /See:/ for @dfareporting.campaigns.insert@. +-- /See:/ for @dfareporting.campaigns.insert@. module Network.Google.Resource.DFAReporting.Campaigns.Insert ( -- * REST Resource @@ -46,7 +46,7 @@ -- 'CampaignsInsert' request conforms to. type CampaignsInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "campaigns" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Campaigns/List.hs b/gen/Network/Google/Resource/DFAReporting/Campaigns/List.hs --- a/gen/Network/Google/Resource/DFAReporting/Campaigns/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/Campaigns/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of campaigns, possibly filtered. -- --- /See:/ for @dfareporting.campaigns.list@. +-- /See:/ for @dfareporting.campaigns.list@. module Network.Google.Resource.DFAReporting.Campaigns.List ( -- * REST Resource @@ -56,7 +56,7 @@ -- 'CampaignsList' request conforms to. type CampaignsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "campaigns" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Campaigns/Patch.hs b/gen/Network/Google/Resource/DFAReporting/Campaigns/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/Campaigns/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/Campaigns/Patch.hs @@ -22,7 +22,7 @@ -- -- Updates an existing campaign. This method supports patch semantics. -- --- /See:/ for @dfareporting.campaigns.patch@. +-- /See:/ for @dfareporting.campaigns.patch@. module Network.Google.Resource.DFAReporting.Campaigns.Patch ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'CampaignsPatch' request conforms to. type CampaignsPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "campaigns" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Campaigns/Update.hs b/gen/Network/Google/Resource/DFAReporting/Campaigns/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/Campaigns/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/Campaigns/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing campaign. -- --- /See:/ for @dfareporting.campaigns.update@. +-- /See:/ for @dfareporting.campaigns.update@. module Network.Google.Resource.DFAReporting.Campaigns.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'CampaignsUpdate' request conforms to. type CampaignsUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "campaigns" :> diff --git a/gen/Network/Google/Resource/DFAReporting/ChangeLogs/Get.hs b/gen/Network/Google/Resource/DFAReporting/ChangeLogs/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/ChangeLogs/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/ChangeLogs/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one change log by ID. -- --- /See:/ for @dfareporting.changeLogs.get@. +-- /See:/ for @dfareporting.changeLogs.get@. module Network.Google.Resource.DFAReporting.ChangeLogs.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'ChangeLogsGet' request conforms to. type ChangeLogsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "changeLogs" :> diff --git a/gen/Network/Google/Resource/DFAReporting/ChangeLogs/List.hs b/gen/Network/Google/Resource/DFAReporting/ChangeLogs/List.hs --- a/gen/Network/Google/Resource/DFAReporting/ChangeLogs/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/ChangeLogs/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of change logs. -- --- /See:/ for @dfareporting.changeLogs.list@. +-- /See:/ for @dfareporting.changeLogs.list@. module Network.Google.Resource.DFAReporting.ChangeLogs.List ( -- * REST Resource @@ -53,7 +53,7 @@ -- 'ChangeLogsList' request conforms to. type ChangeLogsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "changeLogs" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Cities/List.hs b/gen/Network/Google/Resource/DFAReporting/Cities/List.hs --- a/gen/Network/Google/Resource/DFAReporting/Cities/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/Cities/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of cities, possibly filtered. -- --- /See:/ for @dfareporting.cities.list@. +-- /See:/ for @dfareporting.cities.list@. module Network.Google.Resource.DFAReporting.Cities.List ( -- * REST Resource @@ -47,7 +47,7 @@ -- 'CitiesList' request conforms to. type CitiesListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "cities" :> diff --git a/gen/Network/Google/Resource/DFAReporting/ConnectionTypes/Get.hs b/gen/Network/Google/Resource/DFAReporting/ConnectionTypes/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/ConnectionTypes/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/ConnectionTypes/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one connection type by ID. -- --- /See:/ for @dfareporting.connectionTypes.get@. +-- /See:/ for @dfareporting.connectionTypes.get@. module Network.Google.Resource.DFAReporting.ConnectionTypes.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'ConnectionTypesGet' request conforms to. type ConnectionTypesGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "connectionTypes" :> diff --git a/gen/Network/Google/Resource/DFAReporting/ConnectionTypes/List.hs b/gen/Network/Google/Resource/DFAReporting/ConnectionTypes/List.hs --- a/gen/Network/Google/Resource/DFAReporting/ConnectionTypes/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/ConnectionTypes/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of connection types. -- --- /See:/ for @dfareporting.connectionTypes.list@. +-- /See:/ for @dfareporting.connectionTypes.list@. module Network.Google.Resource.DFAReporting.ConnectionTypes.List ( -- * REST Resource @@ -43,7 +43,7 @@ -- 'ConnectionTypesList' request conforms to. type ConnectionTypesListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "connectionTypes" :> diff --git a/gen/Network/Google/Resource/DFAReporting/ContentCategories/Delete.hs b/gen/Network/Google/Resource/DFAReporting/ContentCategories/Delete.hs --- a/gen/Network/Google/Resource/DFAReporting/ContentCategories/Delete.hs +++ b/gen/Network/Google/Resource/DFAReporting/ContentCategories/Delete.hs @@ -22,7 +22,7 @@ -- -- Deletes an existing content category. -- --- /See:/ for @dfareporting.contentCategories.delete@. +-- /See:/ for @dfareporting.contentCategories.delete@. module Network.Google.Resource.DFAReporting.ContentCategories.Delete ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'ContentCategoriesDelete' request conforms to. type ContentCategoriesDeleteResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "contentCategories" :> diff --git a/gen/Network/Google/Resource/DFAReporting/ContentCategories/Get.hs b/gen/Network/Google/Resource/DFAReporting/ContentCategories/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/ContentCategories/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/ContentCategories/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one content category by ID. -- --- /See:/ for @dfareporting.contentCategories.get@. +-- /See:/ for @dfareporting.contentCategories.get@. module Network.Google.Resource.DFAReporting.ContentCategories.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'ContentCategoriesGet' request conforms to. type ContentCategoriesGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "contentCategories" :> diff --git a/gen/Network/Google/Resource/DFAReporting/ContentCategories/Insert.hs b/gen/Network/Google/Resource/DFAReporting/ContentCategories/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/ContentCategories/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/ContentCategories/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new content category. -- --- /See:/ for @dfareporting.contentCategories.insert@. +-- /See:/ for @dfareporting.contentCategories.insert@. module Network.Google.Resource.DFAReporting.ContentCategories.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'ContentCategoriesInsert' request conforms to. type ContentCategoriesInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "contentCategories" :> diff --git a/gen/Network/Google/Resource/DFAReporting/ContentCategories/List.hs b/gen/Network/Google/Resource/DFAReporting/ContentCategories/List.hs --- a/gen/Network/Google/Resource/DFAReporting/ContentCategories/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/ContentCategories/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of content categories, possibly filtered. -- --- /See:/ for @dfareporting.contentCategories.list@. +-- /See:/ for @dfareporting.contentCategories.list@. module Network.Google.Resource.DFAReporting.ContentCategories.List ( -- * REST Resource @@ -49,7 +49,7 @@ -- 'ContentCategoriesList' request conforms to. type ContentCategoriesListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "contentCategories" :> diff --git a/gen/Network/Google/Resource/DFAReporting/ContentCategories/Patch.hs b/gen/Network/Google/Resource/DFAReporting/ContentCategories/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/ContentCategories/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/ContentCategories/Patch.hs @@ -23,7 +23,7 @@ -- Updates an existing content category. This method supports patch -- semantics. -- --- /See:/ for @dfareporting.contentCategories.patch@. +-- /See:/ for @dfareporting.contentCategories.patch@. module Network.Google.Resource.DFAReporting.ContentCategories.Patch ( -- * REST Resource @@ -46,7 +46,7 @@ -- 'ContentCategoriesPatch' request conforms to. type ContentCategoriesPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "contentCategories" :> diff --git a/gen/Network/Google/Resource/DFAReporting/ContentCategories/Update.hs b/gen/Network/Google/Resource/DFAReporting/ContentCategories/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/ContentCategories/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/ContentCategories/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing content category. -- --- /See:/ for @dfareporting.contentCategories.update@. +-- /See:/ for @dfareporting.contentCategories.update@. module Network.Google.Resource.DFAReporting.ContentCategories.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'ContentCategoriesUpdate' request conforms to. type ContentCategoriesUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "contentCategories" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Conversions/Batchinsert.hs b/gen/Network/Google/Resource/DFAReporting/Conversions/Batchinsert.hs --- a/gen/Network/Google/Resource/DFAReporting/Conversions/Batchinsert.hs +++ b/gen/Network/Google/Resource/DFAReporting/Conversions/Batchinsert.hs @@ -22,7 +22,7 @@ -- -- Inserts conversions. -- --- /See:/ for @dfareporting.conversions.batchinsert@. +-- /See:/ for @dfareporting.conversions.batchinsert@. module Network.Google.Resource.DFAReporting.Conversions.Batchinsert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'ConversionsBatchinsert' request conforms to. type ConversionsBatchinsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "conversions" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Countries/Get.hs b/gen/Network/Google/Resource/DFAReporting/Countries/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/Countries/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/Countries/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one country by ID. -- --- /See:/ for @dfareporting.countries.get@. +-- /See:/ for @dfareporting.countries.get@. module Network.Google.Resource.DFAReporting.Countries.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'CountriesGet' request conforms to. type CountriesGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "countries" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Countries/List.hs b/gen/Network/Google/Resource/DFAReporting/Countries/List.hs --- a/gen/Network/Google/Resource/DFAReporting/Countries/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/Countries/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of countries. -- --- /See:/ for @dfareporting.countries.list@. +-- /See:/ for @dfareporting.countries.list@. module Network.Google.Resource.DFAReporting.Countries.List ( -- * REST Resource @@ -43,7 +43,7 @@ -- 'CountriesList' request conforms to. type CountriesListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "countries" :> diff --git a/gen/Network/Google/Resource/DFAReporting/CreativeAssets/Insert.hs b/gen/Network/Google/Resource/DFAReporting/CreativeAssets/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/CreativeAssets/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/CreativeAssets/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new creative asset. -- --- /See:/ for @dfareporting.creativeAssets.insert@. +-- /See:/ for @dfareporting.creativeAssets.insert@. module Network.Google.Resource.DFAReporting.CreativeAssets.Insert ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'CreativeAssetsInsert' request conforms to. type CreativeAssetsInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creativeAssets" :> @@ -57,7 +57,7 @@ :<|> "upload" :> "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creativeAssets" :> diff --git a/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Delete.hs b/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Delete.hs --- a/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Delete.hs +++ b/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Delete.hs @@ -22,7 +22,7 @@ -- -- Deletes an existing creative field value. -- --- /See:/ for @dfareporting.creativeFieldValues.delete@. +-- /See:/ for @dfareporting.creativeFieldValues.delete@. module Network.Google.Resource.DFAReporting.CreativeFieldValues.Delete ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'CreativeFieldValuesDelete' request conforms to. type CreativeFieldValuesDeleteResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creativeFields" :> diff --git a/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Get.hs b/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one creative field value by ID. -- --- /See:/ for @dfareporting.creativeFieldValues.get@. +-- /See:/ for @dfareporting.creativeFieldValues.get@. module Network.Google.Resource.DFAReporting.CreativeFieldValues.Get ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'CreativeFieldValuesGet' request conforms to. type CreativeFieldValuesGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creativeFields" :> diff --git a/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Insert.hs b/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new creative field value. -- --- /See:/ for @dfareporting.creativeFieldValues.insert@. +-- /See:/ for @dfareporting.creativeFieldValues.insert@. module Network.Google.Resource.DFAReporting.CreativeFieldValues.Insert ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'CreativeFieldValuesInsert' request conforms to. type CreativeFieldValuesInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creativeFields" :> diff --git a/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/List.hs b/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/List.hs --- a/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of creative field values, possibly filtered. -- --- /See:/ for @dfareporting.creativeFieldValues.list@. +-- /See:/ for @dfareporting.creativeFieldValues.list@. module Network.Google.Resource.DFAReporting.CreativeFieldValues.List ( -- * REST Resource @@ -50,7 +50,7 @@ -- 'CreativeFieldValuesList' request conforms to. type CreativeFieldValuesListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creativeFields" :> diff --git a/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Patch.hs b/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Patch.hs @@ -23,7 +23,7 @@ -- Updates an existing creative field value. This method supports patch -- semantics. -- --- /See:/ for @dfareporting.creativeFieldValues.patch@. +-- /See:/ for @dfareporting.creativeFieldValues.patch@. module Network.Google.Resource.DFAReporting.CreativeFieldValues.Patch ( -- * REST Resource @@ -47,7 +47,7 @@ -- 'CreativeFieldValuesPatch' request conforms to. type CreativeFieldValuesPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creativeFields" :> diff --git a/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Update.hs b/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/CreativeFieldValues/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing creative field value. -- --- /See:/ for @dfareporting.creativeFieldValues.update@. +-- /See:/ for @dfareporting.creativeFieldValues.update@. module Network.Google.Resource.DFAReporting.CreativeFieldValues.Update ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'CreativeFieldValuesUpdate' request conforms to. type CreativeFieldValuesUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creativeFields" :> diff --git a/gen/Network/Google/Resource/DFAReporting/CreativeFields/Delete.hs b/gen/Network/Google/Resource/DFAReporting/CreativeFields/Delete.hs --- a/gen/Network/Google/Resource/DFAReporting/CreativeFields/Delete.hs +++ b/gen/Network/Google/Resource/DFAReporting/CreativeFields/Delete.hs @@ -22,7 +22,7 @@ -- -- Deletes an existing creative field. -- --- /See:/ for @dfareporting.creativeFields.delete@. +-- /See:/ for @dfareporting.creativeFields.delete@. module Network.Google.Resource.DFAReporting.CreativeFields.Delete ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'CreativeFieldsDelete' request conforms to. type CreativeFieldsDeleteResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creativeFields" :> diff --git a/gen/Network/Google/Resource/DFAReporting/CreativeFields/Get.hs b/gen/Network/Google/Resource/DFAReporting/CreativeFields/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/CreativeFields/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/CreativeFields/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one creative field by ID. -- --- /See:/ for @dfareporting.creativeFields.get@. +-- /See:/ for @dfareporting.creativeFields.get@. module Network.Google.Resource.DFAReporting.CreativeFields.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'CreativeFieldsGet' request conforms to. type CreativeFieldsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creativeFields" :> diff --git a/gen/Network/Google/Resource/DFAReporting/CreativeFields/Insert.hs b/gen/Network/Google/Resource/DFAReporting/CreativeFields/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/CreativeFields/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/CreativeFields/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new creative field. -- --- /See:/ for @dfareporting.creativeFields.insert@. +-- /See:/ for @dfareporting.creativeFields.insert@. module Network.Google.Resource.DFAReporting.CreativeFields.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'CreativeFieldsInsert' request conforms to. type CreativeFieldsInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creativeFields" :> diff --git a/gen/Network/Google/Resource/DFAReporting/CreativeFields/List.hs b/gen/Network/Google/Resource/DFAReporting/CreativeFields/List.hs --- a/gen/Network/Google/Resource/DFAReporting/CreativeFields/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/CreativeFields/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of creative fields, possibly filtered. -- --- /See:/ for @dfareporting.creativeFields.list@. +-- /See:/ for @dfareporting.creativeFields.list@. module Network.Google.Resource.DFAReporting.CreativeFields.List ( -- * REST Resource @@ -50,7 +50,7 @@ -- 'CreativeFieldsList' request conforms to. type CreativeFieldsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creativeFields" :> diff --git a/gen/Network/Google/Resource/DFAReporting/CreativeFields/Patch.hs b/gen/Network/Google/Resource/DFAReporting/CreativeFields/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/CreativeFields/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/CreativeFields/Patch.hs @@ -23,7 +23,7 @@ -- Updates an existing creative field. This method supports patch -- semantics. -- --- /See:/ for @dfareporting.creativeFields.patch@. +-- /See:/ for @dfareporting.creativeFields.patch@. module Network.Google.Resource.DFAReporting.CreativeFields.Patch ( -- * REST Resource @@ -46,7 +46,7 @@ -- 'CreativeFieldsPatch' request conforms to. type CreativeFieldsPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creativeFields" :> diff --git a/gen/Network/Google/Resource/DFAReporting/CreativeFields/Update.hs b/gen/Network/Google/Resource/DFAReporting/CreativeFields/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/CreativeFields/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/CreativeFields/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing creative field. -- --- /See:/ for @dfareporting.creativeFields.update@. +-- /See:/ for @dfareporting.creativeFields.update@. module Network.Google.Resource.DFAReporting.CreativeFields.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'CreativeFieldsUpdate' request conforms to. type CreativeFieldsUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creativeFields" :> diff --git a/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Get.hs b/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one creative group by ID. -- --- /See:/ for @dfareporting.creativeGroups.get@. +-- /See:/ for @dfareporting.creativeGroups.get@. module Network.Google.Resource.DFAReporting.CreativeGroups.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'CreativeGroupsGet' request conforms to. type CreativeGroupsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creativeGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Insert.hs b/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new creative group. -- --- /See:/ for @dfareporting.creativeGroups.insert@. +-- /See:/ for @dfareporting.creativeGroups.insert@. module Network.Google.Resource.DFAReporting.CreativeGroups.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'CreativeGroupsInsert' request conforms to. type CreativeGroupsInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creativeGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/CreativeGroups/List.hs b/gen/Network/Google/Resource/DFAReporting/CreativeGroups/List.hs --- a/gen/Network/Google/Resource/DFAReporting/CreativeGroups/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/CreativeGroups/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of creative groups, possibly filtered. -- --- /See:/ for @dfareporting.creativeGroups.list@. +-- /See:/ for @dfareporting.creativeGroups.list@. module Network.Google.Resource.DFAReporting.CreativeGroups.List ( -- * REST Resource @@ -51,7 +51,7 @@ -- 'CreativeGroupsList' request conforms to. type CreativeGroupsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creativeGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Patch.hs b/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Patch.hs @@ -23,7 +23,7 @@ -- Updates an existing creative group. This method supports patch -- semantics. -- --- /See:/ for @dfareporting.creativeGroups.patch@. +-- /See:/ for @dfareporting.creativeGroups.patch@. module Network.Google.Resource.DFAReporting.CreativeGroups.Patch ( -- * REST Resource @@ -46,7 +46,7 @@ -- 'CreativeGroupsPatch' request conforms to. type CreativeGroupsPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creativeGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Update.hs b/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/CreativeGroups/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing creative group. -- --- /See:/ for @dfareporting.creativeGroups.update@. +-- /See:/ for @dfareporting.creativeGroups.update@. module Network.Google.Resource.DFAReporting.CreativeGroups.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'CreativeGroupsUpdate' request conforms to. type CreativeGroupsUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creativeGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Creatives/Get.hs b/gen/Network/Google/Resource/DFAReporting/Creatives/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/Creatives/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/Creatives/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one creative by ID. -- --- /See:/ for @dfareporting.creatives.get@. +-- /See:/ for @dfareporting.creatives.get@. module Network.Google.Resource.DFAReporting.Creatives.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'CreativesGet' request conforms to. type CreativesGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creatives" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Creatives/Insert.hs b/gen/Network/Google/Resource/DFAReporting/Creatives/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/Creatives/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/Creatives/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new creative. -- --- /See:/ for @dfareporting.creatives.insert@. +-- /See:/ for @dfareporting.creatives.insert@. module Network.Google.Resource.DFAReporting.Creatives.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'CreativesInsert' request conforms to. type CreativesInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creatives" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Creatives/List.hs b/gen/Network/Google/Resource/DFAReporting/Creatives/List.hs --- a/gen/Network/Google/Resource/DFAReporting/Creatives/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/Creatives/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of creatives, possibly filtered. -- --- /See:/ for @dfareporting.creatives.list@. +-- /See:/ for @dfareporting.creatives.list@. module Network.Google.Resource.DFAReporting.Creatives.List ( -- * REST Resource @@ -59,7 +59,7 @@ -- 'CreativesList' request conforms to. type CreativesListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creatives" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Creatives/Patch.hs b/gen/Network/Google/Resource/DFAReporting/Creatives/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/Creatives/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/Creatives/Patch.hs @@ -22,7 +22,7 @@ -- -- Updates an existing creative. This method supports patch semantics. -- --- /See:/ for @dfareporting.creatives.patch@. +-- /See:/ for @dfareporting.creatives.patch@. module Network.Google.Resource.DFAReporting.Creatives.Patch ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'CreativesPatch' request conforms to. type CreativesPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creatives" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Creatives/Update.hs b/gen/Network/Google/Resource/DFAReporting/Creatives/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/Creatives/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/Creatives/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing creative. -- --- /See:/ for @dfareporting.creatives.update@. +-- /See:/ for @dfareporting.creatives.update@. module Network.Google.Resource.DFAReporting.Creatives.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'CreativesUpdate' request conforms to. type CreativesUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "creatives" :> diff --git a/gen/Network/Google/Resource/DFAReporting/DimensionValues/Query.hs b/gen/Network/Google/Resource/DFAReporting/DimensionValues/Query.hs --- a/gen/Network/Google/Resource/DFAReporting/DimensionValues/Query.hs +++ b/gen/Network/Google/Resource/DFAReporting/DimensionValues/Query.hs @@ -22,7 +22,7 @@ -- -- Retrieves list of report dimension values for a list of filters. -- --- /See:/ for @dfareporting.dimensionValues.query@. +-- /See:/ for @dfareporting.dimensionValues.query@. module Network.Google.Resource.DFAReporting.DimensionValues.Query ( -- * REST Resource @@ -46,7 +46,7 @@ -- 'DimensionValuesQuery' request conforms to. type DimensionValuesQueryResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "dimensionvalues" :> diff --git a/gen/Network/Google/Resource/DFAReporting/DirectorySiteContacts/Get.hs b/gen/Network/Google/Resource/DFAReporting/DirectorySiteContacts/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/DirectorySiteContacts/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/DirectorySiteContacts/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one directory site contact by ID. -- --- /See:/ for @dfareporting.directorySiteContacts.get@. +-- /See:/ for @dfareporting.directorySiteContacts.get@. module Network.Google.Resource.DFAReporting.DirectorySiteContacts.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'DirectorySiteContactsGet' request conforms to. type DirectorySiteContactsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "directorySiteContacts" :> diff --git a/gen/Network/Google/Resource/DFAReporting/DirectorySiteContacts/List.hs b/gen/Network/Google/Resource/DFAReporting/DirectorySiteContacts/List.hs --- a/gen/Network/Google/Resource/DFAReporting/DirectorySiteContacts/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/DirectorySiteContacts/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of directory site contacts, possibly filtered. -- --- /See:/ for @dfareporting.directorySiteContacts.list@. +-- /See:/ for @dfareporting.directorySiteContacts.list@. module Network.Google.Resource.DFAReporting.DirectorySiteContacts.List ( -- * REST Resource @@ -50,7 +50,7 @@ -- 'DirectorySiteContactsList' request conforms to. type DirectorySiteContactsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "directorySiteContacts" :> diff --git a/gen/Network/Google/Resource/DFAReporting/DirectorySites/Get.hs b/gen/Network/Google/Resource/DFAReporting/DirectorySites/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/DirectorySites/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/DirectorySites/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one directory site by ID. -- --- /See:/ for @dfareporting.directorySites.get@. +-- /See:/ for @dfareporting.directorySites.get@. module Network.Google.Resource.DFAReporting.DirectorySites.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'DirectorySitesGet' request conforms to. type DirectorySitesGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "directorySites" :> diff --git a/gen/Network/Google/Resource/DFAReporting/DirectorySites/Insert.hs b/gen/Network/Google/Resource/DFAReporting/DirectorySites/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/DirectorySites/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/DirectorySites/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new directory site. -- --- /See:/ for @dfareporting.directorySites.insert@. +-- /See:/ for @dfareporting.directorySites.insert@. module Network.Google.Resource.DFAReporting.DirectorySites.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'DirectorySitesInsert' request conforms to. type DirectorySitesInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "directorySites" :> diff --git a/gen/Network/Google/Resource/DFAReporting/DirectorySites/List.hs b/gen/Network/Google/Resource/DFAReporting/DirectorySites/List.hs --- a/gen/Network/Google/Resource/DFAReporting/DirectorySites/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/DirectorySites/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of directory sites, possibly filtered. -- --- /See:/ for @dfareporting.directorySites.list@. +-- /See:/ for @dfareporting.directorySites.list@. module Network.Google.Resource.DFAReporting.DirectorySites.List ( -- * REST Resource @@ -56,7 +56,7 @@ -- 'DirectorySitesList' request conforms to. type DirectorySitesListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "directorySites" :> diff --git a/gen/Network/Google/Resource/DFAReporting/DynamicTargetingKeys/Delete.hs b/gen/Network/Google/Resource/DFAReporting/DynamicTargetingKeys/Delete.hs --- a/gen/Network/Google/Resource/DFAReporting/DynamicTargetingKeys/Delete.hs +++ b/gen/Network/Google/Resource/DFAReporting/DynamicTargetingKeys/Delete.hs @@ -22,7 +22,7 @@ -- -- Deletes an existing dynamic targeting key. -- --- /See:/ for @dfareporting.dynamicTargetingKeys.delete@. +-- /See:/ for @dfareporting.dynamicTargetingKeys.delete@. module Network.Google.Resource.DFAReporting.DynamicTargetingKeys.Delete ( -- * REST Resource @@ -46,7 +46,7 @@ -- 'DynamicTargetingKeysDelete' request conforms to. type DynamicTargetingKeysDeleteResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "dynamicTargetingKeys" :> diff --git a/gen/Network/Google/Resource/DFAReporting/DynamicTargetingKeys/Insert.hs b/gen/Network/Google/Resource/DFAReporting/DynamicTargetingKeys/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/DynamicTargetingKeys/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/DynamicTargetingKeys/Insert.hs @@ -26,7 +26,7 @@ -- advertiser, out of which a maximum of 20 keys can be assigned per ad, -- creative, or placement. -- --- /See:/ for @dfareporting.dynamicTargetingKeys.insert@. +-- /See:/ for @dfareporting.dynamicTargetingKeys.insert@. module Network.Google.Resource.DFAReporting.DynamicTargetingKeys.Insert ( -- * REST Resource @@ -48,7 +48,7 @@ -- 'DynamicTargetingKeysInsert' request conforms to. type DynamicTargetingKeysInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "dynamicTargetingKeys" :> diff --git a/gen/Network/Google/Resource/DFAReporting/DynamicTargetingKeys/List.hs b/gen/Network/Google/Resource/DFAReporting/DynamicTargetingKeys/List.hs --- a/gen/Network/Google/Resource/DFAReporting/DynamicTargetingKeys/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/DynamicTargetingKeys/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of dynamic targeting keys. -- --- /See:/ for @dfareporting.dynamicTargetingKeys.list@. +-- /See:/ for @dfareporting.dynamicTargetingKeys.list@. module Network.Google.Resource.DFAReporting.DynamicTargetingKeys.List ( -- * REST Resource @@ -47,7 +47,7 @@ -- 'DynamicTargetingKeysList' request conforms to. type DynamicTargetingKeysListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "dynamicTargetingKeys" :> diff --git a/gen/Network/Google/Resource/DFAReporting/EventTags/Delete.hs b/gen/Network/Google/Resource/DFAReporting/EventTags/Delete.hs --- a/gen/Network/Google/Resource/DFAReporting/EventTags/Delete.hs +++ b/gen/Network/Google/Resource/DFAReporting/EventTags/Delete.hs @@ -22,7 +22,7 @@ -- -- Deletes an existing event tag. -- --- /See:/ for @dfareporting.eventTags.delete@. +-- /See:/ for @dfareporting.eventTags.delete@. module Network.Google.Resource.DFAReporting.EventTags.Delete ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'EventTagsDelete' request conforms to. type EventTagsDeleteResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "eventTags" :> diff --git a/gen/Network/Google/Resource/DFAReporting/EventTags/Get.hs b/gen/Network/Google/Resource/DFAReporting/EventTags/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/EventTags/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/EventTags/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one event tag by ID. -- --- /See:/ for @dfareporting.eventTags.get@. +-- /See:/ for @dfareporting.eventTags.get@. module Network.Google.Resource.DFAReporting.EventTags.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'EventTagsGet' request conforms to. type EventTagsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "eventTags" :> diff --git a/gen/Network/Google/Resource/DFAReporting/EventTags/Insert.hs b/gen/Network/Google/Resource/DFAReporting/EventTags/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/EventTags/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/EventTags/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new event tag. -- --- /See:/ for @dfareporting.eventTags.insert@. +-- /See:/ for @dfareporting.eventTags.insert@. module Network.Google.Resource.DFAReporting.EventTags.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'EventTagsInsert' request conforms to. type EventTagsInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "eventTags" :> diff --git a/gen/Network/Google/Resource/DFAReporting/EventTags/List.hs b/gen/Network/Google/Resource/DFAReporting/EventTags/List.hs --- a/gen/Network/Google/Resource/DFAReporting/EventTags/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/EventTags/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of event tags, possibly filtered. -- --- /See:/ for @dfareporting.eventTags.list@. +-- /See:/ for @dfareporting.eventTags.list@. module Network.Google.Resource.DFAReporting.EventTags.List ( -- * REST Resource @@ -53,7 +53,7 @@ -- 'EventTagsList' request conforms to. type EventTagsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "eventTags" :> diff --git a/gen/Network/Google/Resource/DFAReporting/EventTags/Patch.hs b/gen/Network/Google/Resource/DFAReporting/EventTags/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/EventTags/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/EventTags/Patch.hs @@ -22,7 +22,7 @@ -- -- Updates an existing event tag. This method supports patch semantics. -- --- /See:/ for @dfareporting.eventTags.patch@. +-- /See:/ for @dfareporting.eventTags.patch@. module Network.Google.Resource.DFAReporting.EventTags.Patch ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'EventTagsPatch' request conforms to. type EventTagsPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "eventTags" :> diff --git a/gen/Network/Google/Resource/DFAReporting/EventTags/Update.hs b/gen/Network/Google/Resource/DFAReporting/EventTags/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/EventTags/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/EventTags/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing event tag. -- --- /See:/ for @dfareporting.eventTags.update@. +-- /See:/ for @dfareporting.eventTags.update@. module Network.Google.Resource.DFAReporting.EventTags.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'EventTagsUpdate' request conforms to. type EventTagsUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "eventTags" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Files/Get.hs b/gen/Network/Google/Resource/DFAReporting/Files/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/Files/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/Files/Get.hs @@ -22,7 +22,7 @@ -- -- Retrieves a report file by its report ID and file ID. -- --- /See:/ for @dfareporting.files.get@. +-- /See:/ for @dfareporting.files.get@. module Network.Google.Resource.DFAReporting.Files.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'FilesGet' request conforms to. type FilesGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "reports" :> Capture "reportId" (Textual Int64) :> "files" :> @@ -52,7 +52,7 @@ QueryParam "alt" AltJSON :> Get '[JSON] File :<|> "dfareporting" :> - "v2.5" :> + "v2.6" :> "reports" :> Capture "reportId" (Textual Int64) :> "files" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Files/List.hs b/gen/Network/Google/Resource/DFAReporting/Files/List.hs --- a/gen/Network/Google/Resource/DFAReporting/Files/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/Files/List.hs @@ -22,7 +22,7 @@ -- -- Lists files for a user profile. -- --- /See:/ for @dfareporting.files.list@. +-- /See:/ for @dfareporting.files.list@. module Network.Google.Resource.DFAReporting.Files.List ( -- * REST Resource @@ -48,7 +48,7 @@ -- 'FilesList' request conforms to. type FilesListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "files" :> diff --git a/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Delete.hs b/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Delete.hs --- a/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Delete.hs +++ b/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Delete.hs @@ -22,7 +22,7 @@ -- -- Deletes an existing floodlight activity. -- --- /See:/ for @dfareporting.floodlightActivities.delete@. +-- /See:/ for @dfareporting.floodlightActivities.delete@. module Network.Google.Resource.DFAReporting.FloodlightActivities.Delete ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'FloodlightActivitiesDelete' request conforms to. type FloodlightActivitiesDeleteResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "floodlightActivities" :> diff --git a/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Generatetag.hs b/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Generatetag.hs --- a/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Generatetag.hs +++ b/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Generatetag.hs @@ -22,7 +22,7 @@ -- -- Generates a tag for a floodlight activity. -- --- /See:/ for @dfareporting.floodlightActivities.generatetag@. +-- /See:/ for @dfareporting.floodlightActivities.generatetag@. module Network.Google.Resource.DFAReporting.FloodlightActivities.Generatetag ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'FloodlightActivitiesGeneratetag' request conforms to. type FloodlightActivitiesGeneratetagResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "floodlightActivities" :> diff --git a/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Get.hs b/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one floodlight activity by ID. -- --- /See:/ for @dfareporting.floodlightActivities.get@. +-- /See:/ for @dfareporting.floodlightActivities.get@. module Network.Google.Resource.DFAReporting.FloodlightActivities.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'FloodlightActivitiesGet' request conforms to. type FloodlightActivitiesGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "floodlightActivities" :> diff --git a/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Insert.hs b/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new floodlight activity. -- --- /See:/ for @dfareporting.floodlightActivities.insert@. +-- /See:/ for @dfareporting.floodlightActivities.insert@. module Network.Google.Resource.DFAReporting.FloodlightActivities.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'FloodlightActivitiesInsert' request conforms to. type FloodlightActivitiesInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "floodlightActivities" :> diff --git a/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/List.hs b/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/List.hs --- a/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of floodlight activities, possibly filtered. -- --- /See:/ for @dfareporting.floodlightActivities.list@. +-- /See:/ for @dfareporting.floodlightActivities.list@. module Network.Google.Resource.DFAReporting.FloodlightActivities.List ( -- * REST Resource @@ -56,7 +56,7 @@ -- 'FloodlightActivitiesList' request conforms to. type FloodlightActivitiesListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "floodlightActivities" :> diff --git a/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Patch.hs b/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Patch.hs @@ -23,7 +23,7 @@ -- Updates an existing floodlight activity. This method supports patch -- semantics. -- --- /See:/ for @dfareporting.floodlightActivities.patch@. +-- /See:/ for @dfareporting.floodlightActivities.patch@. module Network.Google.Resource.DFAReporting.FloodlightActivities.Patch ( -- * REST Resource @@ -46,7 +46,7 @@ -- 'FloodlightActivitiesPatch' request conforms to. type FloodlightActivitiesPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "floodlightActivities" :> diff --git a/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Update.hs b/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/FloodlightActivities/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing floodlight activity. -- --- /See:/ for @dfareporting.floodlightActivities.update@. +-- /See:/ for @dfareporting.floodlightActivities.update@. module Network.Google.Resource.DFAReporting.FloodlightActivities.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'FloodlightActivitiesUpdate' request conforms to. type FloodlightActivitiesUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "floodlightActivities" :> diff --git a/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Get.hs b/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one floodlight activity group by ID. -- --- /See:/ for @dfareporting.floodlightActivityGroups.get@. +-- /See:/ for @dfareporting.floodlightActivityGroups.get@. module Network.Google.Resource.DFAReporting.FloodlightActivityGroups.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'FloodlightActivityGroupsGet' request conforms to. type FloodlightActivityGroupsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "floodlightActivityGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Insert.hs b/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new floodlight activity group. -- --- /See:/ for @dfareporting.floodlightActivityGroups.insert@. +-- /See:/ for @dfareporting.floodlightActivityGroups.insert@. module Network.Google.Resource.DFAReporting.FloodlightActivityGroups.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'FloodlightActivityGroupsInsert' request conforms to. type FloodlightActivityGroupsInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "floodlightActivityGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/List.hs b/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/List.hs --- a/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of floodlight activity groups, possibly filtered. -- --- /See:/ for @dfareporting.floodlightActivityGroups.list@. +-- /See:/ for @dfareporting.floodlightActivityGroups.list@. module Network.Google.Resource.DFAReporting.FloodlightActivityGroups.List ( -- * REST Resource @@ -52,7 +52,7 @@ -- 'FloodlightActivityGroupsList' request conforms to. type FloodlightActivityGroupsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "floodlightActivityGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Patch.hs b/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Patch.hs @@ -23,7 +23,7 @@ -- Updates an existing floodlight activity group. This method supports -- patch semantics. -- --- /See:/ for @dfareporting.floodlightActivityGroups.patch@. +-- /See:/ for @dfareporting.floodlightActivityGroups.patch@. module Network.Google.Resource.DFAReporting.FloodlightActivityGroups.Patch ( -- * REST Resource @@ -46,7 +46,7 @@ -- 'FloodlightActivityGroupsPatch' request conforms to. type FloodlightActivityGroupsPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "floodlightActivityGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Update.hs b/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/FloodlightActivityGroups/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing floodlight activity group. -- --- /See:/ for @dfareporting.floodlightActivityGroups.update@. +-- /See:/ for @dfareporting.floodlightActivityGroups.update@. module Network.Google.Resource.DFAReporting.FloodlightActivityGroups.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'FloodlightActivityGroupsUpdate' request conforms to. type FloodlightActivityGroupsUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "floodlightActivityGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/Get.hs b/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one floodlight configuration by ID. -- --- /See:/ for @dfareporting.floodlightConfigurations.get@. +-- /See:/ for @dfareporting.floodlightConfigurations.get@. module Network.Google.Resource.DFAReporting.FloodlightConfigurations.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'FloodlightConfigurationsGet' request conforms to. type FloodlightConfigurationsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "floodlightConfigurations" :> diff --git a/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/List.hs b/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/List.hs --- a/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of floodlight configurations, possibly filtered. -- --- /See:/ for @dfareporting.floodlightConfigurations.list@. +-- /See:/ for @dfareporting.floodlightConfigurations.list@. module Network.Google.Resource.DFAReporting.FloodlightConfigurations.List ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'FloodlightConfigurationsList' request conforms to. type FloodlightConfigurationsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "floodlightConfigurations" :> diff --git a/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/Patch.hs b/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/Patch.hs @@ -23,7 +23,7 @@ -- Updates an existing floodlight configuration. This method supports patch -- semantics. -- --- /See:/ for @dfareporting.floodlightConfigurations.patch@. +-- /See:/ for @dfareporting.floodlightConfigurations.patch@. module Network.Google.Resource.DFAReporting.FloodlightConfigurations.Patch ( -- * REST Resource @@ -46,7 +46,7 @@ -- 'FloodlightConfigurationsPatch' request conforms to. type FloodlightConfigurationsPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "floodlightConfigurations" :> diff --git a/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/Update.hs b/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/FloodlightConfigurations/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing floodlight configuration. -- --- /See:/ for @dfareporting.floodlightConfigurations.update@. +-- /See:/ for @dfareporting.floodlightConfigurations.update@. module Network.Google.Resource.DFAReporting.FloodlightConfigurations.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'FloodlightConfigurationsUpdate' request conforms to. type FloodlightConfigurationsUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "floodlightConfigurations" :> diff --git a/gen/Network/Google/Resource/DFAReporting/InventoryItems/Get.hs b/gen/Network/Google/Resource/DFAReporting/InventoryItems/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/InventoryItems/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/InventoryItems/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one inventory item by ID. -- --- /See:/ for @dfareporting.inventoryItems.get@. +-- /See:/ for @dfareporting.inventoryItems.get@. module Network.Google.Resource.DFAReporting.InventoryItems.Get ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'InventoryItemsGet' request conforms to. type InventoryItemsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "projects" :> diff --git a/gen/Network/Google/Resource/DFAReporting/InventoryItems/List.hs b/gen/Network/Google/Resource/DFAReporting/InventoryItems/List.hs --- a/gen/Network/Google/Resource/DFAReporting/InventoryItems/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/InventoryItems/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of inventory items, possibly filtered. -- --- /See:/ for @dfareporting.inventoryItems.list@. +-- /See:/ for @dfareporting.inventoryItems.list@. module Network.Google.Resource.DFAReporting.InventoryItems.List ( -- * REST Resource @@ -53,7 +53,7 @@ -- 'InventoryItemsList' request conforms to. type InventoryItemsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "projects" :> diff --git a/gen/Network/Google/Resource/DFAReporting/LandingPages/Delete.hs b/gen/Network/Google/Resource/DFAReporting/LandingPages/Delete.hs --- a/gen/Network/Google/Resource/DFAReporting/LandingPages/Delete.hs +++ b/gen/Network/Google/Resource/DFAReporting/LandingPages/Delete.hs @@ -22,7 +22,7 @@ -- -- Deletes an existing campaign landing page. -- --- /See:/ for @dfareporting.landingPages.delete@. +-- /See:/ for @dfareporting.landingPages.delete@. module Network.Google.Resource.DFAReporting.LandingPages.Delete ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'LandingPagesDelete' request conforms to. type LandingPagesDeleteResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "campaigns" :> diff --git a/gen/Network/Google/Resource/DFAReporting/LandingPages/Get.hs b/gen/Network/Google/Resource/DFAReporting/LandingPages/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/LandingPages/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/LandingPages/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one campaign landing page by ID. -- --- /See:/ for @dfareporting.landingPages.get@. +-- /See:/ for @dfareporting.landingPages.get@. module Network.Google.Resource.DFAReporting.LandingPages.Get ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'LandingPagesGet' request conforms to. type LandingPagesGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "campaigns" :> diff --git a/gen/Network/Google/Resource/DFAReporting/LandingPages/Insert.hs b/gen/Network/Google/Resource/DFAReporting/LandingPages/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/LandingPages/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/LandingPages/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new landing page for the specified campaign. -- --- /See:/ for @dfareporting.landingPages.insert@. +-- /See:/ for @dfareporting.landingPages.insert@. module Network.Google.Resource.DFAReporting.LandingPages.Insert ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'LandingPagesInsert' request conforms to. type LandingPagesInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "campaigns" :> diff --git a/gen/Network/Google/Resource/DFAReporting/LandingPages/List.hs b/gen/Network/Google/Resource/DFAReporting/LandingPages/List.hs --- a/gen/Network/Google/Resource/DFAReporting/LandingPages/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/LandingPages/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves the list of landing pages for the specified campaign. -- --- /See:/ for @dfareporting.landingPages.list@. +-- /See:/ for @dfareporting.landingPages.list@. module Network.Google.Resource.DFAReporting.LandingPages.List ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'LandingPagesList' request conforms to. type LandingPagesListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "campaigns" :> diff --git a/gen/Network/Google/Resource/DFAReporting/LandingPages/Patch.hs b/gen/Network/Google/Resource/DFAReporting/LandingPages/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/LandingPages/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/LandingPages/Patch.hs @@ -23,7 +23,7 @@ -- Updates an existing campaign landing page. This method supports patch -- semantics. -- --- /See:/ for @dfareporting.landingPages.patch@. +-- /See:/ for @dfareporting.landingPages.patch@. module Network.Google.Resource.DFAReporting.LandingPages.Patch ( -- * REST Resource @@ -47,7 +47,7 @@ -- 'LandingPagesPatch' request conforms to. type LandingPagesPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "campaigns" :> diff --git a/gen/Network/Google/Resource/DFAReporting/LandingPages/Update.hs b/gen/Network/Google/Resource/DFAReporting/LandingPages/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/LandingPages/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/LandingPages/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing campaign landing page. -- --- /See:/ for @dfareporting.landingPages.update@. +-- /See:/ for @dfareporting.landingPages.update@. module Network.Google.Resource.DFAReporting.LandingPages.Update ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'LandingPagesUpdate' request conforms to. type LandingPagesUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "campaigns" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Languages/List.hs b/gen/Network/Google/Resource/DFAReporting/Languages/List.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DFAReporting/Languages/List.hs @@ -0,0 +1,87 @@ +{-# 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.Languages.List +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Retrieves a list of languages. +-- +-- /See:/ for @dfareporting.languages.list@. +module Network.Google.Resource.DFAReporting.Languages.List + ( + -- * REST Resource + LanguagesListResource + + -- * Creating a Request + , languagesList + , LanguagesList + + -- * Request Lenses + , llProFileId + ) where + +import Network.Google.DFAReporting.Types +import Network.Google.Prelude + +-- | A resource alias for @dfareporting.languages.list@ method which the +-- 'LanguagesList' request conforms to. +type LanguagesListResource = + "dfareporting" :> + "v2.6" :> + "userprofiles" :> + Capture "profileId" (Textual Int64) :> + "languages" :> + QueryParam "alt" AltJSON :> + Get '[JSON] LanguagesListResponse + +-- | Retrieves a list of languages. +-- +-- /See:/ 'languagesList' smart constructor. +newtype LanguagesList = LanguagesList' + { _llProFileId :: Textual Int64 + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'LanguagesList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'llProFileId' +languagesList + :: Int64 -- ^ 'llProFileId' + -> LanguagesList +languagesList pLlProFileId_ = + LanguagesList' + { _llProFileId = _Coerce # pLlProFileId_ + } + +-- | User profile ID associated with this request. +llProFileId :: Lens' LanguagesList Int64 +llProFileId + = lens _llProFileId (\ s a -> s{_llProFileId = a}) . + _Coerce + +instance GoogleRequest LanguagesList where + type Rs LanguagesList = LanguagesListResponse + type Scopes LanguagesList = + '["https://www.googleapis.com/auth/dfatrafficking"] + requestClient LanguagesList'{..} + = go _llProFileId (Just AltJSON) dFAReportingService + where go + = buildClient (Proxy :: Proxy LanguagesListResource) + mempty diff --git a/gen/Network/Google/Resource/DFAReporting/Metros/List.hs b/gen/Network/Google/Resource/DFAReporting/Metros/List.hs --- a/gen/Network/Google/Resource/DFAReporting/Metros/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/Metros/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of metros. -- --- /See:/ for @dfareporting.metros.list@. +-- /See:/ for @dfareporting.metros.list@. module Network.Google.Resource.DFAReporting.Metros.List ( -- * REST Resource @@ -43,7 +43,7 @@ -- 'MetrosList' request conforms to. type MetrosListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "metros" :> diff --git a/gen/Network/Google/Resource/DFAReporting/MobileCarriers/Get.hs b/gen/Network/Google/Resource/DFAReporting/MobileCarriers/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/MobileCarriers/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/MobileCarriers/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one mobile carrier by ID. -- --- /See:/ for @dfareporting.mobileCarriers.get@. +-- /See:/ for @dfareporting.mobileCarriers.get@. module Network.Google.Resource.DFAReporting.MobileCarriers.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'MobileCarriersGet' request conforms to. type MobileCarriersGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "mobileCarriers" :> diff --git a/gen/Network/Google/Resource/DFAReporting/MobileCarriers/List.hs b/gen/Network/Google/Resource/DFAReporting/MobileCarriers/List.hs --- a/gen/Network/Google/Resource/DFAReporting/MobileCarriers/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/MobileCarriers/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of mobile carriers. -- --- /See:/ for @dfareporting.mobileCarriers.list@. +-- /See:/ for @dfareporting.mobileCarriers.list@. module Network.Google.Resource.DFAReporting.MobileCarriers.List ( -- * REST Resource @@ -43,7 +43,7 @@ -- 'MobileCarriersList' request conforms to. type MobileCarriersListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "mobileCarriers" :> diff --git a/gen/Network/Google/Resource/DFAReporting/OperatingSystemVersions/Get.hs b/gen/Network/Google/Resource/DFAReporting/OperatingSystemVersions/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/OperatingSystemVersions/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/OperatingSystemVersions/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one operating system version by ID. -- --- /See:/ for @dfareporting.operatingSystemVersions.get@. +-- /See:/ for @dfareporting.operatingSystemVersions.get@. module Network.Google.Resource.DFAReporting.OperatingSystemVersions.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'OperatingSystemVersionsGet' request conforms to. type OperatingSystemVersionsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "operatingSystemVersions" :> diff --git a/gen/Network/Google/Resource/DFAReporting/OperatingSystemVersions/List.hs b/gen/Network/Google/Resource/DFAReporting/OperatingSystemVersions/List.hs --- a/gen/Network/Google/Resource/DFAReporting/OperatingSystemVersions/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/OperatingSystemVersions/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of operating system versions. -- --- /See:/ for @dfareporting.operatingSystemVersions.list@. +-- /See:/ for @dfareporting.operatingSystemVersions.list@. module Network.Google.Resource.DFAReporting.OperatingSystemVersions.List ( -- * REST Resource @@ -43,7 +43,7 @@ -- 'OperatingSystemVersionsList' request conforms to. type OperatingSystemVersionsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "operatingSystemVersions" :> diff --git a/gen/Network/Google/Resource/DFAReporting/OperatingSystems/Get.hs b/gen/Network/Google/Resource/DFAReporting/OperatingSystems/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/OperatingSystems/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/OperatingSystems/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one operating system by DART ID. -- --- /See:/ for @dfareporting.operatingSystems.get@. +-- /See:/ for @dfareporting.operatingSystems.get@. module Network.Google.Resource.DFAReporting.OperatingSystems.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'OperatingSystemsGet' request conforms to. type OperatingSystemsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "operatingSystems" :> diff --git a/gen/Network/Google/Resource/DFAReporting/OperatingSystems/List.hs b/gen/Network/Google/Resource/DFAReporting/OperatingSystems/List.hs --- a/gen/Network/Google/Resource/DFAReporting/OperatingSystems/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/OperatingSystems/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of operating systems. -- --- /See:/ for @dfareporting.operatingSystems.list@. +-- /See:/ for @dfareporting.operatingSystems.list@. module Network.Google.Resource.DFAReporting.OperatingSystems.List ( -- * REST Resource @@ -43,7 +43,7 @@ -- 'OperatingSystemsList' request conforms to. type OperatingSystemsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "operatingSystems" :> diff --git a/gen/Network/Google/Resource/DFAReporting/OrderDocuments/Get.hs b/gen/Network/Google/Resource/DFAReporting/OrderDocuments/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/OrderDocuments/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/OrderDocuments/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one order document by ID. -- --- /See:/ for @dfareporting.orderDocuments.get@. +-- /See:/ for @dfareporting.orderDocuments.get@. module Network.Google.Resource.DFAReporting.OrderDocuments.Get ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'OrderDocumentsGet' request conforms to. type OrderDocumentsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "projects" :> diff --git a/gen/Network/Google/Resource/DFAReporting/OrderDocuments/List.hs b/gen/Network/Google/Resource/DFAReporting/OrderDocuments/List.hs --- a/gen/Network/Google/Resource/DFAReporting/OrderDocuments/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/OrderDocuments/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of order documents, possibly filtered. -- --- /See:/ for @dfareporting.orderDocuments.list@. +-- /See:/ for @dfareporting.orderDocuments.list@. module Network.Google.Resource.DFAReporting.OrderDocuments.List ( -- * REST Resource @@ -53,7 +53,7 @@ -- 'OrderDocumentsList' request conforms to. type OrderDocumentsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "projects" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Orders/Get.hs b/gen/Network/Google/Resource/DFAReporting/Orders/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/Orders/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/Orders/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one order by ID. -- --- /See:/ for @dfareporting.orders.get@. +-- /See:/ for @dfareporting.orders.get@. module Network.Google.Resource.DFAReporting.Orders.Get ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'OrdersGet' request conforms to. type OrdersGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "projects" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Orders/List.hs b/gen/Network/Google/Resource/DFAReporting/Orders/List.hs --- a/gen/Network/Google/Resource/DFAReporting/Orders/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/Orders/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of orders, possibly filtered. -- --- /See:/ for @dfareporting.orders.list@. +-- /See:/ for @dfareporting.orders.list@. module Network.Google.Resource.DFAReporting.Orders.List ( -- * REST Resource @@ -51,7 +51,7 @@ -- 'OrdersList' request conforms to. type OrdersListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "projects" :> diff --git a/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Get.hs b/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one placement group by ID. -- --- /See:/ for @dfareporting.placementGroups.get@. +-- /See:/ for @dfareporting.placementGroups.get@. module Network.Google.Resource.DFAReporting.PlacementGroups.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'PlacementGroupsGet' request conforms to. type PlacementGroupsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "placementGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Insert.hs b/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new placement group. -- --- /See:/ for @dfareporting.placementGroups.insert@. +-- /See:/ for @dfareporting.placementGroups.insert@. module Network.Google.Resource.DFAReporting.PlacementGroups.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'PlacementGroupsInsert' request conforms to. type PlacementGroupsInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "placementGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/PlacementGroups/List.hs b/gen/Network/Google/Resource/DFAReporting/PlacementGroups/List.hs --- a/gen/Network/Google/Resource/DFAReporting/PlacementGroups/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/PlacementGroups/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of placement groups, possibly filtered. -- --- /See:/ for @dfareporting.placementGroups.list@. +-- /See:/ for @dfareporting.placementGroups.list@. module Network.Google.Resource.DFAReporting.PlacementGroups.List ( -- * REST Resource @@ -62,7 +62,7 @@ -- 'PlacementGroupsList' request conforms to. type PlacementGroupsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "placementGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Patch.hs b/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Patch.hs @@ -23,7 +23,7 @@ -- Updates an existing placement group. This method supports patch -- semantics. -- --- /See:/ for @dfareporting.placementGroups.patch@. +-- /See:/ for @dfareporting.placementGroups.patch@. module Network.Google.Resource.DFAReporting.PlacementGroups.Patch ( -- * REST Resource @@ -46,7 +46,7 @@ -- 'PlacementGroupsPatch' request conforms to. type PlacementGroupsPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "placementGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Update.hs b/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/PlacementGroups/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing placement group. -- --- /See:/ for @dfareporting.placementGroups.update@. +-- /See:/ for @dfareporting.placementGroups.update@. module Network.Google.Resource.DFAReporting.PlacementGroups.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'PlacementGroupsUpdate' request conforms to. type PlacementGroupsUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "placementGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Delete.hs b/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Delete.hs --- a/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Delete.hs +++ b/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Delete.hs @@ -22,7 +22,7 @@ -- -- Deletes an existing placement strategy. -- --- /See:/ for @dfareporting.placementStrategies.delete@. +-- /See:/ for @dfareporting.placementStrategies.delete@. module Network.Google.Resource.DFAReporting.PlacementStrategies.Delete ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'PlacementStrategiesDelete' request conforms to. type PlacementStrategiesDeleteResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "placementStrategies" :> diff --git a/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Get.hs b/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one placement strategy by ID. -- --- /See:/ for @dfareporting.placementStrategies.get@. +-- /See:/ for @dfareporting.placementStrategies.get@. module Network.Google.Resource.DFAReporting.PlacementStrategies.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'PlacementStrategiesGet' request conforms to. type PlacementStrategiesGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "placementStrategies" :> diff --git a/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Insert.hs b/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new placement strategy. -- --- /See:/ for @dfareporting.placementStrategies.insert@. +-- /See:/ for @dfareporting.placementStrategies.insert@. module Network.Google.Resource.DFAReporting.PlacementStrategies.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'PlacementStrategiesInsert' request conforms to. type PlacementStrategiesInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "placementStrategies" :> diff --git a/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/List.hs b/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/List.hs --- a/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of placement strategies, possibly filtered. -- --- /See:/ for @dfareporting.placementStrategies.list@. +-- /See:/ for @dfareporting.placementStrategies.list@. module Network.Google.Resource.DFAReporting.PlacementStrategies.List ( -- * REST Resource @@ -49,7 +49,7 @@ -- 'PlacementStrategiesList' request conforms to. type PlacementStrategiesListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "placementStrategies" :> diff --git a/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Patch.hs b/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Patch.hs @@ -23,7 +23,7 @@ -- Updates an existing placement strategy. This method supports patch -- semantics. -- --- /See:/ for @dfareporting.placementStrategies.patch@. +-- /See:/ for @dfareporting.placementStrategies.patch@. module Network.Google.Resource.DFAReporting.PlacementStrategies.Patch ( -- * REST Resource @@ -46,7 +46,7 @@ -- 'PlacementStrategiesPatch' request conforms to. type PlacementStrategiesPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "placementStrategies" :> diff --git a/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Update.hs b/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/PlacementStrategies/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing placement strategy. -- --- /See:/ for @dfareporting.placementStrategies.update@. +-- /See:/ for @dfareporting.placementStrategies.update@. module Network.Google.Resource.DFAReporting.PlacementStrategies.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'PlacementStrategiesUpdate' request conforms to. type PlacementStrategiesUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "placementStrategies" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Placements/Generatetags.hs b/gen/Network/Google/Resource/DFAReporting/Placements/Generatetags.hs --- a/gen/Network/Google/Resource/DFAReporting/Placements/Generatetags.hs +++ b/gen/Network/Google/Resource/DFAReporting/Placements/Generatetags.hs @@ -22,7 +22,7 @@ -- -- Generates tags for a placement. -- --- /See:/ for @dfareporting.placements.generatetags@. +-- /See:/ for @dfareporting.placements.generatetags@. module Network.Google.Resource.DFAReporting.Placements.Generatetags ( -- * REST Resource @@ -46,7 +46,7 @@ -- 'PlacementsGeneratetags' request conforms to. type PlacementsGeneratetagsResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "placements" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Placements/Get.hs b/gen/Network/Google/Resource/DFAReporting/Placements/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/Placements/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/Placements/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one placement by ID. -- --- /See:/ for @dfareporting.placements.get@. +-- /See:/ for @dfareporting.placements.get@. module Network.Google.Resource.DFAReporting.Placements.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'PlacementsGet' request conforms to. type PlacementsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "placements" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Placements/Insert.hs b/gen/Network/Google/Resource/DFAReporting/Placements/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/Placements/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/Placements/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new placement. -- --- /See:/ for @dfareporting.placements.insert@. +-- /See:/ for @dfareporting.placements.insert@. module Network.Google.Resource.DFAReporting.Placements.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'PlacementsInsert' request conforms to. type PlacementsInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "placements" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Placements/List.hs b/gen/Network/Google/Resource/DFAReporting/Placements/List.hs --- a/gen/Network/Google/Resource/DFAReporting/Placements/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/Placements/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of placements, possibly filtered. -- --- /See:/ for @dfareporting.placements.list@. +-- /See:/ for @dfareporting.placements.list@. module Network.Google.Resource.DFAReporting.Placements.List ( -- * REST Resource @@ -65,7 +65,7 @@ -- 'PlacementsList' request conforms to. type PlacementsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "placements" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Placements/Patch.hs b/gen/Network/Google/Resource/DFAReporting/Placements/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/Placements/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/Placements/Patch.hs @@ -22,7 +22,7 @@ -- -- Updates an existing placement. This method supports patch semantics. -- --- /See:/ for @dfareporting.placements.patch@. +-- /See:/ for @dfareporting.placements.patch@. module Network.Google.Resource.DFAReporting.Placements.Patch ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'PlacementsPatch' request conforms to. type PlacementsPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "placements" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Placements/Update.hs b/gen/Network/Google/Resource/DFAReporting/Placements/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/Placements/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/Placements/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing placement. -- --- /See:/ for @dfareporting.placements.update@. +-- /See:/ for @dfareporting.placements.update@. module Network.Google.Resource.DFAReporting.Placements.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'PlacementsUpdate' request conforms to. type PlacementsUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "placements" :> diff --git a/gen/Network/Google/Resource/DFAReporting/PlatformTypes/Get.hs b/gen/Network/Google/Resource/DFAReporting/PlatformTypes/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/PlatformTypes/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/PlatformTypes/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one platform type by ID. -- --- /See:/ for @dfareporting.platformTypes.get@. +-- /See:/ for @dfareporting.platformTypes.get@. module Network.Google.Resource.DFAReporting.PlatformTypes.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'PlatformTypesGet' request conforms to. type PlatformTypesGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "platformTypes" :> diff --git a/gen/Network/Google/Resource/DFAReporting/PlatformTypes/List.hs b/gen/Network/Google/Resource/DFAReporting/PlatformTypes/List.hs --- a/gen/Network/Google/Resource/DFAReporting/PlatformTypes/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/PlatformTypes/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of platform types. -- --- /See:/ for @dfareporting.platformTypes.list@. +-- /See:/ for @dfareporting.platformTypes.list@. module Network.Google.Resource.DFAReporting.PlatformTypes.List ( -- * REST Resource @@ -43,7 +43,7 @@ -- 'PlatformTypesList' request conforms to. type PlatformTypesListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "platformTypes" :> diff --git a/gen/Network/Google/Resource/DFAReporting/PostalCodes/Get.hs b/gen/Network/Google/Resource/DFAReporting/PostalCodes/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/PostalCodes/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/PostalCodes/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one postal code by ID. -- --- /See:/ for @dfareporting.postalCodes.get@. +-- /See:/ for @dfareporting.postalCodes.get@. module Network.Google.Resource.DFAReporting.PostalCodes.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'PostalCodesGet' request conforms to. type PostalCodesGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "postalCodes" :> diff --git a/gen/Network/Google/Resource/DFAReporting/PostalCodes/List.hs b/gen/Network/Google/Resource/DFAReporting/PostalCodes/List.hs --- a/gen/Network/Google/Resource/DFAReporting/PostalCodes/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/PostalCodes/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of postal codes. -- --- /See:/ for @dfareporting.postalCodes.list@. +-- /See:/ for @dfareporting.postalCodes.list@. module Network.Google.Resource.DFAReporting.PostalCodes.List ( -- * REST Resource @@ -43,7 +43,7 @@ -- 'PostalCodesList' request conforms to. type PostalCodesListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "postalCodes" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Projects/Get.hs b/gen/Network/Google/Resource/DFAReporting/Projects/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/Projects/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/Projects/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one project by ID. -- --- /See:/ for @dfareporting.projects.get@. +-- /See:/ for @dfareporting.projects.get@. module Network.Google.Resource.DFAReporting.Projects.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'ProjectsGet' request conforms to. type ProjectsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "projects" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Projects/List.hs b/gen/Network/Google/Resource/DFAReporting/Projects/List.hs --- a/gen/Network/Google/Resource/DFAReporting/Projects/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/Projects/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of projects, possibly filtered. -- --- /See:/ for @dfareporting.projects.list@. +-- /See:/ for @dfareporting.projects.list@. module Network.Google.Resource.DFAReporting.Projects.List ( -- * REST Resource @@ -50,7 +50,7 @@ -- 'ProjectsList' request conforms to. type ProjectsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "projects" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Regions/List.hs b/gen/Network/Google/Resource/DFAReporting/Regions/List.hs --- a/gen/Network/Google/Resource/DFAReporting/Regions/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/Regions/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of regions. -- --- /See:/ for @dfareporting.regions.list@. +-- /See:/ for @dfareporting.regions.list@. module Network.Google.Resource.DFAReporting.Regions.List ( -- * REST Resource @@ -43,7 +43,7 @@ -- 'RegionsList' request conforms to. type RegionsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "regions" :> diff --git a/gen/Network/Google/Resource/DFAReporting/RemarketingListShares/Get.hs b/gen/Network/Google/Resource/DFAReporting/RemarketingListShares/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/RemarketingListShares/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/RemarketingListShares/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one remarketing list share by remarketing list ID. -- --- /See:/ for @dfareporting.remarketingListShares.get@. +-- /See:/ for @dfareporting.remarketingListShares.get@. module Network.Google.Resource.DFAReporting.RemarketingListShares.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'RemarketingListSharesGet' request conforms to. type RemarketingListSharesGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "remarketingListShares" :> diff --git a/gen/Network/Google/Resource/DFAReporting/RemarketingListShares/Patch.hs b/gen/Network/Google/Resource/DFAReporting/RemarketingListShares/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/RemarketingListShares/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/RemarketingListShares/Patch.hs @@ -23,7 +23,7 @@ -- Updates an existing remarketing list share. This method supports patch -- semantics. -- --- /See:/ for @dfareporting.remarketingListShares.patch@. +-- /See:/ for @dfareporting.remarketingListShares.patch@. module Network.Google.Resource.DFAReporting.RemarketingListShares.Patch ( -- * REST Resource @@ -46,7 +46,7 @@ -- 'RemarketingListSharesPatch' request conforms to. type RemarketingListSharesPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "remarketingListShares" :> diff --git a/gen/Network/Google/Resource/DFAReporting/RemarketingListShares/Update.hs b/gen/Network/Google/Resource/DFAReporting/RemarketingListShares/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/RemarketingListShares/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/RemarketingListShares/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing remarketing list share. -- --- /See:/ for @dfareporting.remarketingListShares.update@. +-- /See:/ for @dfareporting.remarketingListShares.update@. module Network.Google.Resource.DFAReporting.RemarketingListShares.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'RemarketingListSharesUpdate' request conforms to. type RemarketingListSharesUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "remarketingListShares" :> diff --git a/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Get.hs b/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one remarketing list by ID. -- --- /See:/ for @dfareporting.remarketingLists.get@. +-- /See:/ for @dfareporting.remarketingLists.get@. module Network.Google.Resource.DFAReporting.RemarketingLists.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'RemarketingListsGet' request conforms to. type RemarketingListsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "remarketingLists" :> diff --git a/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Insert.hs b/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new remarketing list. -- --- /See:/ for @dfareporting.remarketingLists.insert@. +-- /See:/ for @dfareporting.remarketingLists.insert@. module Network.Google.Resource.DFAReporting.RemarketingLists.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'RemarketingListsInsert' request conforms to. type RemarketingListsInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "remarketingLists" :> diff --git a/gen/Network/Google/Resource/DFAReporting/RemarketingLists/List.hs b/gen/Network/Google/Resource/DFAReporting/RemarketingLists/List.hs --- a/gen/Network/Google/Resource/DFAReporting/RemarketingLists/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/RemarketingLists/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of remarketing lists, possibly filtered. -- --- /See:/ for @dfareporting.remarketingLists.list@. +-- /See:/ for @dfareporting.remarketingLists.list@. module Network.Google.Resource.DFAReporting.RemarketingLists.List ( -- * REST Resource @@ -51,7 +51,7 @@ -- 'RemarketingListsList' request conforms to. type RemarketingListsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "remarketingLists" :> diff --git a/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Patch.hs b/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Patch.hs @@ -23,7 +23,7 @@ -- Updates an existing remarketing list. This method supports patch -- semantics. -- --- /See:/ for @dfareporting.remarketingLists.patch@. +-- /See:/ for @dfareporting.remarketingLists.patch@. module Network.Google.Resource.DFAReporting.RemarketingLists.Patch ( -- * REST Resource @@ -46,7 +46,7 @@ -- 'RemarketingListsPatch' request conforms to. type RemarketingListsPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "remarketingLists" :> diff --git a/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Update.hs b/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/RemarketingLists/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing remarketing list. -- --- /See:/ for @dfareporting.remarketingLists.update@. +-- /See:/ for @dfareporting.remarketingLists.update@. module Network.Google.Resource.DFAReporting.RemarketingLists.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'RemarketingListsUpdate' request conforms to. type RemarketingListsUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "remarketingLists" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Reports/CompatibleFields/Query.hs b/gen/Network/Google/Resource/DFAReporting/Reports/CompatibleFields/Query.hs --- a/gen/Network/Google/Resource/DFAReporting/Reports/CompatibleFields/Query.hs +++ b/gen/Network/Google/Resource/DFAReporting/Reports/CompatibleFields/Query.hs @@ -24,7 +24,7 @@ -- sections of a report criteria, given the fields already selected in the -- input report and user permissions. -- --- /See:/ for @dfareporting.reports.compatibleFields.query@. +-- /See:/ for @dfareporting.reports.compatibleFields.query@. module Network.Google.Resource.DFAReporting.Reports.CompatibleFields.Query ( -- * REST Resource @@ -46,7 +46,7 @@ -- 'ReportsCompatibleFieldsQuery' request conforms to. type ReportsCompatibleFieldsQueryResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "reports" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Reports/Delete.hs b/gen/Network/Google/Resource/DFAReporting/Reports/Delete.hs --- a/gen/Network/Google/Resource/DFAReporting/Reports/Delete.hs +++ b/gen/Network/Google/Resource/DFAReporting/Reports/Delete.hs @@ -22,7 +22,7 @@ -- -- Deletes a report by its ID. -- --- /See:/ for @dfareporting.reports.delete@. +-- /See:/ for @dfareporting.reports.delete@. module Network.Google.Resource.DFAReporting.Reports.Delete ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'ReportsDelete' request conforms to. type ReportsDeleteResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "reports" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Reports/Files/Get.hs b/gen/Network/Google/Resource/DFAReporting/Reports/Files/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/Reports/Files/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/Reports/Files/Get.hs @@ -22,7 +22,7 @@ -- -- Retrieves a report file. -- --- /See:/ for @dfareporting.reports.files.get@. +-- /See:/ for @dfareporting.reports.files.get@. module Network.Google.Resource.DFAReporting.Reports.Files.Get ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'ReportsFilesGet' request conforms to. type ReportsFilesGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "reports" :> @@ -55,7 +55,7 @@ QueryParam "alt" AltJSON :> Get '[JSON] File :<|> "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "reports" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Reports/Files/List.hs b/gen/Network/Google/Resource/DFAReporting/Reports/Files/List.hs --- a/gen/Network/Google/Resource/DFAReporting/Reports/Files/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/Reports/Files/List.hs @@ -22,7 +22,7 @@ -- -- Lists files for a report. -- --- /See:/ for @dfareporting.reports.files.list@. +-- /See:/ for @dfareporting.reports.files.list@. module Network.Google.Resource.DFAReporting.Reports.Files.List ( -- * REST Resource @@ -48,7 +48,7 @@ -- 'ReportsFilesList' request conforms to. type ReportsFilesListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "reports" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Reports/Get.hs b/gen/Network/Google/Resource/DFAReporting/Reports/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/Reports/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/Reports/Get.hs @@ -22,7 +22,7 @@ -- -- Retrieves a report by its ID. -- --- /See:/ for @dfareporting.reports.get@. +-- /See:/ for @dfareporting.reports.get@. module Network.Google.Resource.DFAReporting.Reports.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'ReportsGet' request conforms to. type ReportsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "reports" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Reports/Insert.hs b/gen/Network/Google/Resource/DFAReporting/Reports/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/Reports/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/Reports/Insert.hs @@ -22,7 +22,7 @@ -- -- Creates a report. -- --- /See:/ for @dfareporting.reports.insert@. +-- /See:/ for @dfareporting.reports.insert@. module Network.Google.Resource.DFAReporting.Reports.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'ReportsInsert' request conforms to. type ReportsInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "reports" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Reports/List.hs b/gen/Network/Google/Resource/DFAReporting/Reports/List.hs --- a/gen/Network/Google/Resource/DFAReporting/Reports/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/Reports/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves list of reports. -- --- /See:/ for @dfareporting.reports.list@. +-- /See:/ for @dfareporting.reports.list@. module Network.Google.Resource.DFAReporting.Reports.List ( -- * REST Resource @@ -48,7 +48,7 @@ -- 'ReportsList' request conforms to. type ReportsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "reports" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Reports/Patch.hs b/gen/Network/Google/Resource/DFAReporting/Reports/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/Reports/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/Reports/Patch.hs @@ -22,7 +22,7 @@ -- -- Updates a report. This method supports patch semantics. -- --- /See:/ for @dfareporting.reports.patch@. +-- /See:/ for @dfareporting.reports.patch@. module Network.Google.Resource.DFAReporting.Reports.Patch ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'ReportsPatch' request conforms to. type ReportsPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "reports" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Reports/Run.hs b/gen/Network/Google/Resource/DFAReporting/Reports/Run.hs --- a/gen/Network/Google/Resource/DFAReporting/Reports/Run.hs +++ b/gen/Network/Google/Resource/DFAReporting/Reports/Run.hs @@ -22,7 +22,7 @@ -- -- Runs a report. -- --- /See:/ for @dfareporting.reports.run@. +-- /See:/ for @dfareporting.reports.run@. module Network.Google.Resource.DFAReporting.Reports.Run ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'ReportsRun' request conforms to. type ReportsRunResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "reports" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Reports/Update.hs b/gen/Network/Google/Resource/DFAReporting/Reports/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/Reports/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/Reports/Update.hs @@ -22,7 +22,7 @@ -- -- Updates a report. -- --- /See:/ for @dfareporting.reports.update@. +-- /See:/ for @dfareporting.reports.update@. module Network.Google.Resource.DFAReporting.Reports.Update ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'ReportsUpdate' request conforms to. type ReportsUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "reports" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Sites/Get.hs b/gen/Network/Google/Resource/DFAReporting/Sites/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/Sites/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/Sites/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one site by ID. -- --- /See:/ for @dfareporting.sites.get@. +-- /See:/ for @dfareporting.sites.get@. module Network.Google.Resource.DFAReporting.Sites.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'SitesGet' request conforms to. type SitesGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "sites" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Sites/Insert.hs b/gen/Network/Google/Resource/DFAReporting/Sites/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/Sites/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/Sites/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new site. -- --- /See:/ for @dfareporting.sites.insert@. +-- /See:/ for @dfareporting.sites.insert@. module Network.Google.Resource.DFAReporting.Sites.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'SitesInsert' request conforms to. type SitesInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "sites" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Sites/List.hs b/gen/Network/Google/Resource/DFAReporting/Sites/List.hs --- a/gen/Network/Google/Resource/DFAReporting/Sites/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/Sites/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of sites, possibly filtered. -- --- /See:/ for @dfareporting.sites.list@. +-- /See:/ for @dfareporting.sites.list@. module Network.Google.Resource.DFAReporting.Sites.List ( -- * REST Resource @@ -58,7 +58,7 @@ -- 'SitesList' request conforms to. type SitesListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "sites" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Sites/Patch.hs b/gen/Network/Google/Resource/DFAReporting/Sites/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/Sites/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/Sites/Patch.hs @@ -22,7 +22,7 @@ -- -- Updates an existing site. This method supports patch semantics. -- --- /See:/ for @dfareporting.sites.patch@. +-- /See:/ for @dfareporting.sites.patch@. module Network.Google.Resource.DFAReporting.Sites.Patch ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'SitesPatch' request conforms to. type SitesPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "sites" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Sites/Update.hs b/gen/Network/Google/Resource/DFAReporting/Sites/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/Sites/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/Sites/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing site. -- --- /See:/ for @dfareporting.sites.update@. +-- /See:/ for @dfareporting.sites.update@. module Network.Google.Resource.DFAReporting.Sites.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'SitesUpdate' request conforms to. type SitesUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "sites" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Sizes/Get.hs b/gen/Network/Google/Resource/DFAReporting/Sizes/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/Sizes/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/Sizes/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one size by ID. -- --- /See:/ for @dfareporting.sizes.get@. +-- /See:/ for @dfareporting.sizes.get@. module Network.Google.Resource.DFAReporting.Sizes.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'SizesGet' request conforms to. type SizesGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "sizes" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Sizes/Insert.hs b/gen/Network/Google/Resource/DFAReporting/Sizes/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/Sizes/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/Sizes/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new size. -- --- /See:/ for @dfareporting.sizes.insert@. +-- /See:/ for @dfareporting.sizes.insert@. module Network.Google.Resource.DFAReporting.Sizes.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'SizesInsert' request conforms to. type SizesInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "sizes" :> diff --git a/gen/Network/Google/Resource/DFAReporting/Sizes/List.hs b/gen/Network/Google/Resource/DFAReporting/Sizes/List.hs --- a/gen/Network/Google/Resource/DFAReporting/Sizes/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/Sizes/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of sizes, possibly filtered. -- --- /See:/ for @dfareporting.sizes.list@. +-- /See:/ for @dfareporting.sizes.list@. module Network.Google.Resource.DFAReporting.Sizes.List ( -- * REST Resource @@ -47,7 +47,7 @@ -- 'SizesList' request conforms to. type SizesListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "sizes" :> diff --git a/gen/Network/Google/Resource/DFAReporting/SubAccounts/Get.hs b/gen/Network/Google/Resource/DFAReporting/SubAccounts/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/SubAccounts/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/SubAccounts/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one subaccount by ID. -- --- /See:/ for @dfareporting.subaccounts.get@. +-- /See:/ for @dfareporting.subaccounts.get@. module Network.Google.Resource.DFAReporting.SubAccounts.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'SubAccountsGet' request conforms to. type SubAccountsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "subaccounts" :> diff --git a/gen/Network/Google/Resource/DFAReporting/SubAccounts/Insert.hs b/gen/Network/Google/Resource/DFAReporting/SubAccounts/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/SubAccounts/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/SubAccounts/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new subaccount. -- --- /See:/ for @dfareporting.subaccounts.insert@. +-- /See:/ for @dfareporting.subaccounts.insert@. module Network.Google.Resource.DFAReporting.SubAccounts.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'SubAccountsInsert' request conforms to. type SubAccountsInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "subaccounts" :> diff --git a/gen/Network/Google/Resource/DFAReporting/SubAccounts/List.hs b/gen/Network/Google/Resource/DFAReporting/SubAccounts/List.hs --- a/gen/Network/Google/Resource/DFAReporting/SubAccounts/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/SubAccounts/List.hs @@ -22,7 +22,7 @@ -- -- Gets a list of subaccounts, possibly filtered. -- --- /See:/ for @dfareporting.subaccounts.list@. +-- /See:/ for @dfareporting.subaccounts.list@. module Network.Google.Resource.DFAReporting.SubAccounts.List ( -- * REST Resource @@ -49,7 +49,7 @@ -- 'SubAccountsList' request conforms to. type SubAccountsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "subaccounts" :> diff --git a/gen/Network/Google/Resource/DFAReporting/SubAccounts/Patch.hs b/gen/Network/Google/Resource/DFAReporting/SubAccounts/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/SubAccounts/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/SubAccounts/Patch.hs @@ -22,7 +22,7 @@ -- -- Updates an existing subaccount. This method supports patch semantics. -- --- /See:/ for @dfareporting.subaccounts.patch@. +-- /See:/ for @dfareporting.subaccounts.patch@. module Network.Google.Resource.DFAReporting.SubAccounts.Patch ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'SubAccountsPatch' request conforms to. type SubAccountsPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "subaccounts" :> diff --git a/gen/Network/Google/Resource/DFAReporting/SubAccounts/Update.hs b/gen/Network/Google/Resource/DFAReporting/SubAccounts/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/SubAccounts/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/SubAccounts/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing subaccount. -- --- /See:/ for @dfareporting.subaccounts.update@. +-- /See:/ for @dfareporting.subaccounts.update@. module Network.Google.Resource.DFAReporting.SubAccounts.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'SubAccountsUpdate' request conforms to. type SubAccountsUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "subaccounts" :> diff --git a/gen/Network/Google/Resource/DFAReporting/TargetableRemarketingLists/Get.hs b/gen/Network/Google/Resource/DFAReporting/TargetableRemarketingLists/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/TargetableRemarketingLists/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/TargetableRemarketingLists/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one remarketing list by ID. -- --- /See:/ for @dfareporting.targetableRemarketingLists.get@. +-- /See:/ for @dfareporting.targetableRemarketingLists.get@. module Network.Google.Resource.DFAReporting.TargetableRemarketingLists.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'TargetableRemarketingListsGet' request conforms to. type TargetableRemarketingListsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "targetableRemarketingLists" :> diff --git a/gen/Network/Google/Resource/DFAReporting/TargetableRemarketingLists/List.hs b/gen/Network/Google/Resource/DFAReporting/TargetableRemarketingLists/List.hs --- a/gen/Network/Google/Resource/DFAReporting/TargetableRemarketingLists/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/TargetableRemarketingLists/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of targetable remarketing lists, possibly filtered. -- --- /See:/ for @dfareporting.targetableRemarketingLists.list@. +-- /See:/ for @dfareporting.targetableRemarketingLists.list@. module Network.Google.Resource.DFAReporting.TargetableRemarketingLists.List ( -- * REST Resource @@ -50,7 +50,7 @@ -- 'TargetableRemarketingListsList' request conforms to. type TargetableRemarketingListsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "targetableRemarketingLists" :> diff --git a/gen/Network/Google/Resource/DFAReporting/TargetingTemplates/Get.hs b/gen/Network/Google/Resource/DFAReporting/TargetingTemplates/Get.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DFAReporting/TargetingTemplates/Get.hs @@ -0,0 +1,101 @@ +{-# 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.TargetingTemplates.Get +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Gets one targeting template by ID. +-- +-- /See:/ for @dfareporting.targetingTemplates.get@. +module Network.Google.Resource.DFAReporting.TargetingTemplates.Get + ( + -- * REST Resource + TargetingTemplatesGetResource + + -- * Creating a Request + , targetingTemplatesGet + , TargetingTemplatesGet + + -- * Request Lenses + , ttgProFileId + , ttgId + ) where + +import Network.Google.DFAReporting.Types +import Network.Google.Prelude + +-- | A resource alias for @dfareporting.targetingTemplates.get@ method which the +-- 'TargetingTemplatesGet' request conforms to. +type TargetingTemplatesGetResource = + "dfareporting" :> + "v2.6" :> + "userprofiles" :> + Capture "profileId" (Textual Int64) :> + "targetingTemplates" :> + Capture "id" (Textual Int64) :> + QueryParam "alt" AltJSON :> + Get '[JSON] TargetingTemplate + +-- | Gets one targeting template by ID. +-- +-- /See:/ 'targetingTemplatesGet' smart constructor. +data TargetingTemplatesGet = TargetingTemplatesGet' + { _ttgProFileId :: !(Textual Int64) + , _ttgId :: !(Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TargetingTemplatesGet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ttgProFileId' +-- +-- * 'ttgId' +targetingTemplatesGet + :: Int64 -- ^ 'ttgProFileId' + -> Int64 -- ^ 'ttgId' + -> TargetingTemplatesGet +targetingTemplatesGet pTtgProFileId_ pTtgId_ = + TargetingTemplatesGet' + { _ttgProFileId = _Coerce # pTtgProFileId_ + , _ttgId = _Coerce # pTtgId_ + } + +-- | User profile ID associated with this request. +ttgProFileId :: Lens' TargetingTemplatesGet Int64 +ttgProFileId + = lens _ttgProFileId (\ s a -> s{_ttgProFileId = a}) + . _Coerce + +-- | Targeting template ID. +ttgId :: Lens' TargetingTemplatesGet Int64 +ttgId + = lens _ttgId (\ s a -> s{_ttgId = a}) . _Coerce + +instance GoogleRequest TargetingTemplatesGet where + type Rs TargetingTemplatesGet = TargetingTemplate + type Scopes TargetingTemplatesGet = + '["https://www.googleapis.com/auth/dfatrafficking"] + requestClient TargetingTemplatesGet'{..} + = go _ttgProFileId _ttgId (Just AltJSON) + dFAReportingService + where go + = buildClient + (Proxy :: Proxy TargetingTemplatesGetResource) + mempty diff --git a/gen/Network/Google/Resource/DFAReporting/TargetingTemplates/Insert.hs b/gen/Network/Google/Resource/DFAReporting/TargetingTemplates/Insert.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DFAReporting/TargetingTemplates/Insert.hs @@ -0,0 +1,101 @@ +{-# 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.TargetingTemplates.Insert +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Inserts a new targeting template. +-- +-- /See:/ for @dfareporting.targetingTemplates.insert@. +module Network.Google.Resource.DFAReporting.TargetingTemplates.Insert + ( + -- * REST Resource + TargetingTemplatesInsertResource + + -- * Creating a Request + , targetingTemplatesInsert + , TargetingTemplatesInsert + + -- * Request Lenses + , ttiProFileId + , ttiPayload + ) where + +import Network.Google.DFAReporting.Types +import Network.Google.Prelude + +-- | A resource alias for @dfareporting.targetingTemplates.insert@ method which the +-- 'TargetingTemplatesInsert' request conforms to. +type TargetingTemplatesInsertResource = + "dfareporting" :> + "v2.6" :> + "userprofiles" :> + Capture "profileId" (Textual Int64) :> + "targetingTemplates" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] TargetingTemplate :> + Post '[JSON] TargetingTemplate + +-- | Inserts a new targeting template. +-- +-- /See:/ 'targetingTemplatesInsert' smart constructor. +data TargetingTemplatesInsert = TargetingTemplatesInsert' + { _ttiProFileId :: !(Textual Int64) + , _ttiPayload :: !TargetingTemplate + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TargetingTemplatesInsert' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ttiProFileId' +-- +-- * 'ttiPayload' +targetingTemplatesInsert + :: Int64 -- ^ 'ttiProFileId' + -> TargetingTemplate -- ^ 'ttiPayload' + -> TargetingTemplatesInsert +targetingTemplatesInsert pTtiProFileId_ pTtiPayload_ = + TargetingTemplatesInsert' + { _ttiProFileId = _Coerce # pTtiProFileId_ + , _ttiPayload = pTtiPayload_ + } + +-- | User profile ID associated with this request. +ttiProFileId :: Lens' TargetingTemplatesInsert Int64 +ttiProFileId + = lens _ttiProFileId (\ s a -> s{_ttiProFileId = a}) + . _Coerce + +-- | Multipart request metadata. +ttiPayload :: Lens' TargetingTemplatesInsert TargetingTemplate +ttiPayload + = lens _ttiPayload (\ s a -> s{_ttiPayload = a}) + +instance GoogleRequest TargetingTemplatesInsert where + type Rs TargetingTemplatesInsert = TargetingTemplate + type Scopes TargetingTemplatesInsert = + '["https://www.googleapis.com/auth/dfatrafficking"] + requestClient TargetingTemplatesInsert'{..} + = go _ttiProFileId (Just AltJSON) _ttiPayload + dFAReportingService + where go + = buildClient + (Proxy :: Proxy TargetingTemplatesInsertResource) + mempty diff --git a/gen/Network/Google/Resource/DFAReporting/TargetingTemplates/List.hs b/gen/Network/Google/Resource/DFAReporting/TargetingTemplates/List.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DFAReporting/TargetingTemplates/List.hs @@ -0,0 +1,189 @@ +{-# 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.TargetingTemplates.List +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Retrieves a list of targeting templates, optionally filtered. +-- +-- /See:/ for @dfareporting.targetingTemplates.list@. +module Network.Google.Resource.DFAReporting.TargetingTemplates.List + ( + -- * REST Resource + TargetingTemplatesListResource + + -- * Creating a Request + , targetingTemplatesList + , TargetingTemplatesList + + -- * Request Lenses + , ttlAdvertiserId + , ttlSearchString + , ttlIds + , ttlProFileId + , ttlSortOrder + , ttlPageToken + , ttlSortField + , ttlMaxResults + ) where + +import Network.Google.DFAReporting.Types +import Network.Google.Prelude + +-- | A resource alias for @dfareporting.targetingTemplates.list@ method which the +-- 'TargetingTemplatesList' request conforms to. +type TargetingTemplatesListResource = + "dfareporting" :> + "v2.6" :> + "userprofiles" :> + Capture "profileId" (Textual Int64) :> + "targetingTemplates" :> + QueryParam "advertiserId" (Textual Int64) :> + QueryParam "searchString" Text :> + QueryParams "ids" (Textual Int64) :> + QueryParam "sortOrder" + TargetingTemplatesListSortOrder + :> + QueryParam "pageToken" Text :> + QueryParam "sortField" + TargetingTemplatesListSortField + :> + QueryParam "maxResults" (Textual Int32) :> + QueryParam "alt" AltJSON :> + Get '[JSON] TargetingTemplatesListResponse + +-- | Retrieves a list of targeting templates, optionally filtered. +-- +-- /See:/ 'targetingTemplatesList' smart constructor. +data TargetingTemplatesList = TargetingTemplatesList' + { _ttlAdvertiserId :: !(Maybe (Textual Int64)) + , _ttlSearchString :: !(Maybe Text) + , _ttlIds :: !(Maybe [Textual Int64]) + , _ttlProFileId :: !(Textual Int64) + , _ttlSortOrder :: !(Maybe TargetingTemplatesListSortOrder) + , _ttlPageToken :: !(Maybe Text) + , _ttlSortField :: !(Maybe TargetingTemplatesListSortField) + , _ttlMaxResults :: !(Maybe (Textual Int32)) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TargetingTemplatesList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ttlAdvertiserId' +-- +-- * 'ttlSearchString' +-- +-- * 'ttlIds' +-- +-- * 'ttlProFileId' +-- +-- * 'ttlSortOrder' +-- +-- * 'ttlPageToken' +-- +-- * 'ttlSortField' +-- +-- * 'ttlMaxResults' +targetingTemplatesList + :: Int64 -- ^ 'ttlProFileId' + -> TargetingTemplatesList +targetingTemplatesList pTtlProFileId_ = + TargetingTemplatesList' + { _ttlAdvertiserId = Nothing + , _ttlSearchString = Nothing + , _ttlIds = Nothing + , _ttlProFileId = _Coerce # pTtlProFileId_ + , _ttlSortOrder = Nothing + , _ttlPageToken = Nothing + , _ttlSortField = Nothing + , _ttlMaxResults = Nothing + } + +-- | Select only targeting templates with this advertiser ID. +ttlAdvertiserId :: Lens' TargetingTemplatesList (Maybe Int64) +ttlAdvertiserId + = lens _ttlAdvertiserId + (\ s a -> s{_ttlAdvertiserId = a}) + . mapping _Coerce + +-- | Allows searching for objects by name or ID. Wildcards (*) are allowed. +-- For example, \"template*2015\" will return objects with names like +-- \"template June 2015\", \"template April 2015\", or simply \"template +-- 2015\". Most of the searches also add wildcards implicitly at the start +-- and the end of the search string. For example, a search string of +-- \"template\" will match objects with name \"my template\", \"template +-- 2015\", or simply \"template\". +ttlSearchString :: Lens' TargetingTemplatesList (Maybe Text) +ttlSearchString + = lens _ttlSearchString + (\ s a -> s{_ttlSearchString = a}) + +-- | Select only targeting templates with these IDs. +ttlIds :: Lens' TargetingTemplatesList [Int64] +ttlIds + = lens _ttlIds (\ s a -> s{_ttlIds = a}) . _Default . + _Coerce + +-- | User profile ID associated with this request. +ttlProFileId :: Lens' TargetingTemplatesList Int64 +ttlProFileId + = lens _ttlProFileId (\ s a -> s{_ttlProFileId = a}) + . _Coerce + +-- | Order of sorted results, default is ASCENDING. +ttlSortOrder :: Lens' TargetingTemplatesList (Maybe TargetingTemplatesListSortOrder) +ttlSortOrder + = lens _ttlSortOrder (\ s a -> s{_ttlSortOrder = a}) + +-- | Value of the nextPageToken from the previous result page. +ttlPageToken :: Lens' TargetingTemplatesList (Maybe Text) +ttlPageToken + = lens _ttlPageToken (\ s a -> s{_ttlPageToken = a}) + +-- | Field by which to sort the list. +ttlSortField :: Lens' TargetingTemplatesList (Maybe TargetingTemplatesListSortField) +ttlSortField + = lens _ttlSortField (\ s a -> s{_ttlSortField = a}) + +-- | Maximum number of results to return. +ttlMaxResults :: Lens' TargetingTemplatesList (Maybe Int32) +ttlMaxResults + = lens _ttlMaxResults + (\ s a -> s{_ttlMaxResults = a}) + . mapping _Coerce + +instance GoogleRequest TargetingTemplatesList where + type Rs TargetingTemplatesList = + TargetingTemplatesListResponse + type Scopes TargetingTemplatesList = + '["https://www.googleapis.com/auth/dfatrafficking"] + requestClient TargetingTemplatesList'{..} + = go _ttlProFileId _ttlAdvertiserId _ttlSearchString + (_ttlIds ^. _Default) + _ttlSortOrder + _ttlPageToken + _ttlSortField + _ttlMaxResults + (Just AltJSON) + dFAReportingService + where go + = buildClient + (Proxy :: Proxy TargetingTemplatesListResource) + mempty diff --git a/gen/Network/Google/Resource/DFAReporting/TargetingTemplates/Patch.hs b/gen/Network/Google/Resource/DFAReporting/TargetingTemplates/Patch.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DFAReporting/TargetingTemplates/Patch.hs @@ -0,0 +1,116 @@ +{-# 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.TargetingTemplates.Patch +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates an existing targeting template. This method supports patch +-- semantics. +-- +-- /See:/ for @dfareporting.targetingTemplates.patch@. +module Network.Google.Resource.DFAReporting.TargetingTemplates.Patch + ( + -- * REST Resource + TargetingTemplatesPatchResource + + -- * Creating a Request + , targetingTemplatesPatch + , TargetingTemplatesPatch + + -- * Request Lenses + , ttpProFileId + , ttpPayload + , ttpId + ) where + +import Network.Google.DFAReporting.Types +import Network.Google.Prelude + +-- | A resource alias for @dfareporting.targetingTemplates.patch@ method which the +-- 'TargetingTemplatesPatch' request conforms to. +type TargetingTemplatesPatchResource = + "dfareporting" :> + "v2.6" :> + "userprofiles" :> + Capture "profileId" (Textual Int64) :> + "targetingTemplates" :> + QueryParam "id" (Textual Int64) :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] TargetingTemplate :> + Patch '[JSON] TargetingTemplate + +-- | Updates an existing targeting template. This method supports patch +-- semantics. +-- +-- /See:/ 'targetingTemplatesPatch' smart constructor. +data TargetingTemplatesPatch = TargetingTemplatesPatch' + { _ttpProFileId :: !(Textual Int64) + , _ttpPayload :: !TargetingTemplate + , _ttpId :: !(Textual Int64) + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TargetingTemplatesPatch' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ttpProFileId' +-- +-- * 'ttpPayload' +-- +-- * 'ttpId' +targetingTemplatesPatch + :: Int64 -- ^ 'ttpProFileId' + -> TargetingTemplate -- ^ 'ttpPayload' + -> Int64 -- ^ 'ttpId' + -> TargetingTemplatesPatch +targetingTemplatesPatch pTtpProFileId_ pTtpPayload_ pTtpId_ = + TargetingTemplatesPatch' + { _ttpProFileId = _Coerce # pTtpProFileId_ + , _ttpPayload = pTtpPayload_ + , _ttpId = _Coerce # pTtpId_ + } + +-- | User profile ID associated with this request. +ttpProFileId :: Lens' TargetingTemplatesPatch Int64 +ttpProFileId + = lens _ttpProFileId (\ s a -> s{_ttpProFileId = a}) + . _Coerce + +-- | Multipart request metadata. +ttpPayload :: Lens' TargetingTemplatesPatch TargetingTemplate +ttpPayload + = lens _ttpPayload (\ s a -> s{_ttpPayload = a}) + +-- | Targeting template ID. +ttpId :: Lens' TargetingTemplatesPatch Int64 +ttpId + = lens _ttpId (\ s a -> s{_ttpId = a}) . _Coerce + +instance GoogleRequest TargetingTemplatesPatch where + type Rs TargetingTemplatesPatch = TargetingTemplate + type Scopes TargetingTemplatesPatch = + '["https://www.googleapis.com/auth/dfatrafficking"] + requestClient TargetingTemplatesPatch'{..} + = go _ttpProFileId (Just _ttpId) (Just AltJSON) + _ttpPayload + dFAReportingService + where go + = buildClient + (Proxy :: Proxy TargetingTemplatesPatchResource) + mempty diff --git a/gen/Network/Google/Resource/DFAReporting/TargetingTemplates/Update.hs b/gen/Network/Google/Resource/DFAReporting/TargetingTemplates/Update.hs new file mode 100644 --- /dev/null +++ b/gen/Network/Google/Resource/DFAReporting/TargetingTemplates/Update.hs @@ -0,0 +1,101 @@ +{-# 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.TargetingTemplates.Update +-- Copyright : (c) 2015-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Updates an existing targeting template. +-- +-- /See:/ for @dfareporting.targetingTemplates.update@. +module Network.Google.Resource.DFAReporting.TargetingTemplates.Update + ( + -- * REST Resource + TargetingTemplatesUpdateResource + + -- * Creating a Request + , targetingTemplatesUpdate + , TargetingTemplatesUpdate + + -- * Request Lenses + , ttuProFileId + , ttuPayload + ) where + +import Network.Google.DFAReporting.Types +import Network.Google.Prelude + +-- | A resource alias for @dfareporting.targetingTemplates.update@ method which the +-- 'TargetingTemplatesUpdate' request conforms to. +type TargetingTemplatesUpdateResource = + "dfareporting" :> + "v2.6" :> + "userprofiles" :> + Capture "profileId" (Textual Int64) :> + "targetingTemplates" :> + QueryParam "alt" AltJSON :> + ReqBody '[JSON] TargetingTemplate :> + Put '[JSON] TargetingTemplate + +-- | Updates an existing targeting template. +-- +-- /See:/ 'targetingTemplatesUpdate' smart constructor. +data TargetingTemplatesUpdate = TargetingTemplatesUpdate' + { _ttuProFileId :: !(Textual Int64) + , _ttuPayload :: !TargetingTemplate + } deriving (Eq,Show,Data,Typeable,Generic) + +-- | Creates a value of 'TargetingTemplatesUpdate' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ttuProFileId' +-- +-- * 'ttuPayload' +targetingTemplatesUpdate + :: Int64 -- ^ 'ttuProFileId' + -> TargetingTemplate -- ^ 'ttuPayload' + -> TargetingTemplatesUpdate +targetingTemplatesUpdate pTtuProFileId_ pTtuPayload_ = + TargetingTemplatesUpdate' + { _ttuProFileId = _Coerce # pTtuProFileId_ + , _ttuPayload = pTtuPayload_ + } + +-- | User profile ID associated with this request. +ttuProFileId :: Lens' TargetingTemplatesUpdate Int64 +ttuProFileId + = lens _ttuProFileId (\ s a -> s{_ttuProFileId = a}) + . _Coerce + +-- | Multipart request metadata. +ttuPayload :: Lens' TargetingTemplatesUpdate TargetingTemplate +ttuPayload + = lens _ttuPayload (\ s a -> s{_ttuPayload = a}) + +instance GoogleRequest TargetingTemplatesUpdate where + type Rs TargetingTemplatesUpdate = TargetingTemplate + type Scopes TargetingTemplatesUpdate = + '["https://www.googleapis.com/auth/dfatrafficking"] + requestClient TargetingTemplatesUpdate'{..} + = go _ttuProFileId (Just AltJSON) _ttuPayload + dFAReportingService + where go + = buildClient + (Proxy :: Proxy TargetingTemplatesUpdateResource) + mempty diff --git a/gen/Network/Google/Resource/DFAReporting/UserProFiles/Get.hs b/gen/Network/Google/Resource/DFAReporting/UserProFiles/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/UserProFiles/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/UserProFiles/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one user profile by ID. -- --- /See:/ for @dfareporting.userProfiles.get@. +-- /See:/ for @dfareporting.userProfiles.get@. module Network.Google.Resource.DFAReporting.UserProFiles.Get ( -- * REST Resource @@ -43,7 +43,7 @@ -- 'UserProFilesGet' request conforms to. type UserProFilesGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> QueryParam "alt" AltJSON :> Get '[JSON] UserProFile diff --git a/gen/Network/Google/Resource/DFAReporting/UserProFiles/List.hs b/gen/Network/Google/Resource/DFAReporting/UserProFiles/List.hs --- a/gen/Network/Google/Resource/DFAReporting/UserProFiles/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/UserProFiles/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves list of user profiles for a user. -- --- /See:/ for @dfareporting.userProfiles.list@. +-- /See:/ for @dfareporting.userProfiles.list@. module Network.Google.Resource.DFAReporting.UserProFiles.List ( -- * REST Resource @@ -41,7 +41,7 @@ -- 'UserProFilesList' request conforms to. type UserProFilesListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> QueryParam "alt" AltJSON :> Get '[JSON] UserProFileList diff --git a/gen/Network/Google/Resource/DFAReporting/UserRolePermissionGroups/Get.hs b/gen/Network/Google/Resource/DFAReporting/UserRolePermissionGroups/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/UserRolePermissionGroups/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/UserRolePermissionGroups/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one user role permission group by ID. -- --- /See:/ for @dfareporting.userRolePermissionGroups.get@. +-- /See:/ for @dfareporting.userRolePermissionGroups.get@. module Network.Google.Resource.DFAReporting.UserRolePermissionGroups.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'UserRolePermissionGroupsGet' request conforms to. type UserRolePermissionGroupsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "userRolePermissionGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/UserRolePermissionGroups/List.hs b/gen/Network/Google/Resource/DFAReporting/UserRolePermissionGroups/List.hs --- a/gen/Network/Google/Resource/DFAReporting/UserRolePermissionGroups/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/UserRolePermissionGroups/List.hs @@ -22,7 +22,7 @@ -- -- Gets a list of all supported user role permission groups. -- --- /See:/ for @dfareporting.userRolePermissionGroups.list@. +-- /See:/ for @dfareporting.userRolePermissionGroups.list@. module Network.Google.Resource.DFAReporting.UserRolePermissionGroups.List ( -- * REST Resource @@ -43,7 +43,7 @@ -- 'UserRolePermissionGroupsList' request conforms to. type UserRolePermissionGroupsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "userRolePermissionGroups" :> diff --git a/gen/Network/Google/Resource/DFAReporting/UserRolePermissions/Get.hs b/gen/Network/Google/Resource/DFAReporting/UserRolePermissions/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/UserRolePermissions/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/UserRolePermissions/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one user role permission by ID. -- --- /See:/ for @dfareporting.userRolePermissions.get@. +-- /See:/ for @dfareporting.userRolePermissions.get@. module Network.Google.Resource.DFAReporting.UserRolePermissions.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'UserRolePermissionsGet' request conforms to. type UserRolePermissionsGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "userRolePermissions" :> diff --git a/gen/Network/Google/Resource/DFAReporting/UserRolePermissions/List.hs b/gen/Network/Google/Resource/DFAReporting/UserRolePermissions/List.hs --- a/gen/Network/Google/Resource/DFAReporting/UserRolePermissions/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/UserRolePermissions/List.hs @@ -22,7 +22,7 @@ -- -- Gets a list of user role permissions, possibly filtered. -- --- /See:/ for @dfareporting.userRolePermissions.list@. +-- /See:/ for @dfareporting.userRolePermissions.list@. module Network.Google.Resource.DFAReporting.UserRolePermissions.List ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'UserRolePermissionsList' request conforms to. type UserRolePermissionsListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "userRolePermissions" :> diff --git a/gen/Network/Google/Resource/DFAReporting/UserRoles/Delete.hs b/gen/Network/Google/Resource/DFAReporting/UserRoles/Delete.hs --- a/gen/Network/Google/Resource/DFAReporting/UserRoles/Delete.hs +++ b/gen/Network/Google/Resource/DFAReporting/UserRoles/Delete.hs @@ -22,7 +22,7 @@ -- -- Deletes an existing user role. -- --- /See:/ for @dfareporting.userRoles.delete@. +-- /See:/ for @dfareporting.userRoles.delete@. module Network.Google.Resource.DFAReporting.UserRoles.Delete ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'UserRolesDelete' request conforms to. type UserRolesDeleteResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "userRoles" :> diff --git a/gen/Network/Google/Resource/DFAReporting/UserRoles/Get.hs b/gen/Network/Google/Resource/DFAReporting/UserRoles/Get.hs --- a/gen/Network/Google/Resource/DFAReporting/UserRoles/Get.hs +++ b/gen/Network/Google/Resource/DFAReporting/UserRoles/Get.hs @@ -22,7 +22,7 @@ -- -- Gets one user role by ID. -- --- /See:/ for @dfareporting.userRoles.get@. +-- /See:/ for @dfareporting.userRoles.get@. module Network.Google.Resource.DFAReporting.UserRoles.Get ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'UserRolesGet' request conforms to. type UserRolesGetResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "userRoles" :> diff --git a/gen/Network/Google/Resource/DFAReporting/UserRoles/Insert.hs b/gen/Network/Google/Resource/DFAReporting/UserRoles/Insert.hs --- a/gen/Network/Google/Resource/DFAReporting/UserRoles/Insert.hs +++ b/gen/Network/Google/Resource/DFAReporting/UserRoles/Insert.hs @@ -22,7 +22,7 @@ -- -- Inserts a new user role. -- --- /See:/ for @dfareporting.userRoles.insert@. +-- /See:/ for @dfareporting.userRoles.insert@. module Network.Google.Resource.DFAReporting.UserRoles.Insert ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'UserRolesInsert' request conforms to. type UserRolesInsertResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "userRoles" :> diff --git a/gen/Network/Google/Resource/DFAReporting/UserRoles/List.hs b/gen/Network/Google/Resource/DFAReporting/UserRoles/List.hs --- a/gen/Network/Google/Resource/DFAReporting/UserRoles/List.hs +++ b/gen/Network/Google/Resource/DFAReporting/UserRoles/List.hs @@ -22,7 +22,7 @@ -- -- Retrieves a list of user roles, possibly filtered. -- --- /See:/ for @dfareporting.userRoles.list@. +-- /See:/ for @dfareporting.userRoles.list@. module Network.Google.Resource.DFAReporting.UserRoles.List ( -- * REST Resource @@ -51,7 +51,7 @@ -- 'UserRolesList' request conforms to. type UserRolesListResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "userRoles" :> diff --git a/gen/Network/Google/Resource/DFAReporting/UserRoles/Patch.hs b/gen/Network/Google/Resource/DFAReporting/UserRoles/Patch.hs --- a/gen/Network/Google/Resource/DFAReporting/UserRoles/Patch.hs +++ b/gen/Network/Google/Resource/DFAReporting/UserRoles/Patch.hs @@ -22,7 +22,7 @@ -- -- Updates an existing user role. This method supports patch semantics. -- --- /See:/ for @dfareporting.userRoles.patch@. +-- /See:/ for @dfareporting.userRoles.patch@. module Network.Google.Resource.DFAReporting.UserRoles.Patch ( -- * REST Resource @@ -45,7 +45,7 @@ -- 'UserRolesPatch' request conforms to. type UserRolesPatchResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "userRoles" :> diff --git a/gen/Network/Google/Resource/DFAReporting/UserRoles/Update.hs b/gen/Network/Google/Resource/DFAReporting/UserRoles/Update.hs --- a/gen/Network/Google/Resource/DFAReporting/UserRoles/Update.hs +++ b/gen/Network/Google/Resource/DFAReporting/UserRoles/Update.hs @@ -22,7 +22,7 @@ -- -- Updates an existing user role. -- --- /See:/ for @dfareporting.userRoles.update@. +-- /See:/ for @dfareporting.userRoles.update@. module Network.Google.Resource.DFAReporting.UserRoles.Update ( -- * REST Resource @@ -44,7 +44,7 @@ -- 'UserRolesUpdate' request conforms to. type UserRolesUpdateResource = "dfareporting" :> - "v2.5" :> + "v2.6" :> "userprofiles" :> Capture "profileId" (Textual Int64) :> "userRoles" :> diff --git a/gogol-dfareporting.cabal b/gogol-dfareporting.cabal --- a/gogol-dfareporting.cabal +++ b/gogol-dfareporting.cabal @@ -1,5 +1,5 @@ name: gogol-dfareporting -version: 0.1.0 +version: 0.1.1 synopsis: Google DCM/DFA Reporting And Trafficking SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -11,7 +11,7 @@ category: Network, Google, Cloud build-type: Simple cabal-version: >= 1.10 -extra-source-files: README.md +extra-source-files: README.md src/.gitkeep description: Manages your DoubleClick Campaign Manager ad campaigns and reports. @@ -19,7 +19,7 @@ /Warning:/ This is an experimental prototype/preview release which is still under exploratory development and not intended for public use, caveat emptor! . - This library is compatible with version @v2.5@ + This library is compatible with version @v2.6@ of the API. source-repository head @@ -151,6 +151,7 @@ , Network.Google.Resource.DFAReporting.LandingPages.List , Network.Google.Resource.DFAReporting.LandingPages.Patch , Network.Google.Resource.DFAReporting.LandingPages.Update + , Network.Google.Resource.DFAReporting.Languages.List , Network.Google.Resource.DFAReporting.Metros.List , Network.Google.Resource.DFAReporting.MobileCarriers.Get , Network.Google.Resource.DFAReporting.MobileCarriers.List @@ -219,6 +220,11 @@ , Network.Google.Resource.DFAReporting.SubAccounts.Update , Network.Google.Resource.DFAReporting.TargetableRemarketingLists.Get , Network.Google.Resource.DFAReporting.TargetableRemarketingLists.List + , Network.Google.Resource.DFAReporting.TargetingTemplates.Get + , Network.Google.Resource.DFAReporting.TargetingTemplates.Insert + , Network.Google.Resource.DFAReporting.TargetingTemplates.List + , Network.Google.Resource.DFAReporting.TargetingTemplates.Patch + , Network.Google.Resource.DFAReporting.TargetingTemplates.Update , Network.Google.Resource.DFAReporting.UserProFiles.Get , Network.Google.Resource.DFAReporting.UserProFiles.List , Network.Google.Resource.DFAReporting.UserRolePermissionGroups.Get @@ -237,5 +243,5 @@ , Network.Google.DFAReporting.Types.Sum build-depends: - gogol-core == 0.1.0.* + gogol-core == 0.1.1.* , base >= 4.7 && < 5 diff --git a/src/.gitkeep b/src/.gitkeep new file mode 100644 --- /dev/null +++ b/src/.gitkeep