module Network.Google.DFAReporting.Types.Sum where
import Network.Google.Prelude
data PlacementsListSortOrder
= Ascending
| Descending
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PlacementsListSortOrder
instance FromHttpApiData PlacementsListSortOrder where
parseQueryParam = \case
"ASCENDING" -> Right Ascending
"DESCENDING" -> Right Descending
x -> Left ("Unable to parse PlacementsListSortOrder from: " <> x)
instance ToHttpApiData PlacementsListSortOrder where
toQueryParam = \case
Ascending -> "ASCENDING"
Descending -> "DESCENDING"
instance FromJSON PlacementsListSortOrder where
parseJSON = parseJSONText "PlacementsListSortOrder"
instance ToJSON PlacementsListSortOrder where
toJSON = toJSONText
data DateRangeRelativeDateRange
= Last24Months
| Last30Days
| Last365Days
| Last7Days
| Last90Days
| MonthToDate
| PreviousMonth
| PreviousQuarter
| PreviousWeek
| PreviousYear
| QuarterToDate
| Today
| WeekToDate
| YearToDate
| Yesterday
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable DateRangeRelativeDateRange
instance FromHttpApiData DateRangeRelativeDateRange where
parseQueryParam = \case
"LAST_24_MONTHS" -> Right Last24Months
"LAST_30_DAYS" -> Right Last30Days
"LAST_365_DAYS" -> Right Last365Days
"LAST_7_DAYS" -> Right Last7Days
"LAST_90_DAYS" -> Right Last90Days
"MONTH_TO_DATE" -> Right MonthToDate
"PREVIOUS_MONTH" -> Right PreviousMonth
"PREVIOUS_QUARTER" -> Right PreviousQuarter
"PREVIOUS_WEEK" -> Right PreviousWeek
"PREVIOUS_YEAR" -> Right PreviousYear
"QUARTER_TO_DATE" -> Right QuarterToDate
"TODAY" -> Right Today
"WEEK_TO_DATE" -> Right WeekToDate
"YEAR_TO_DATE" -> Right YearToDate
"YESTERDAY" -> Right Yesterday
x -> Left ("Unable to parse DateRangeRelativeDateRange from: " <> x)
instance ToHttpApiData DateRangeRelativeDateRange where
toQueryParam = \case
Last24Months -> "LAST_24_MONTHS"
Last30Days -> "LAST_30_DAYS"
Last365Days -> "LAST_365_DAYS"
Last7Days -> "LAST_7_DAYS"
Last90Days -> "LAST_90_DAYS"
MonthToDate -> "MONTH_TO_DATE"
PreviousMonth -> "PREVIOUS_MONTH"
PreviousQuarter -> "PREVIOUS_QUARTER"
PreviousWeek -> "PREVIOUS_WEEK"
PreviousYear -> "PREVIOUS_YEAR"
QuarterToDate -> "QUARTER_TO_DATE"
Today -> "TODAY"
WeekToDate -> "WEEK_TO_DATE"
YearToDate -> "YEAR_TO_DATE"
Yesterday -> "YESTERDAY"
instance FromJSON DateRangeRelativeDateRange where
parseJSON = parseJSONText "DateRangeRelativeDateRange"
instance ToJSON DateRangeRelativeDateRange where
toJSON = toJSONText
data AdvertisersListSortField
= ID
| Name
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable AdvertisersListSortField
instance FromHttpApiData AdvertisersListSortField where
parseQueryParam = \case
"ID" -> Right ID
"NAME" -> Right Name
x -> Left ("Unable to parse AdvertisersListSortField from: " <> x)
instance ToHttpApiData AdvertisersListSortField where
toQueryParam = \case
ID -> "ID"
Name -> "NAME"
instance FromJSON AdvertisersListSortField where
parseJSON = parseJSONText "AdvertisersListSortField"
instance ToJSON AdvertisersListSortField where
toJSON = toJSONText
data CreativeFieldsListSortOrder
= CFLSOAscending
| CFLSODescending
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable CreativeFieldsListSortOrder
instance FromHttpApiData CreativeFieldsListSortOrder where
parseQueryParam = \case
"ASCENDING" -> Right CFLSOAscending
"DESCENDING" -> Right CFLSODescending
x -> Left ("Unable to parse CreativeFieldsListSortOrder from: " <> x)
instance ToHttpApiData CreativeFieldsListSortOrder where
toQueryParam = \case
CFLSOAscending -> "ASCENDING"
CFLSODescending -> "DESCENDING"
instance FromJSON CreativeFieldsListSortOrder where
parseJSON = parseJSONText "CreativeFieldsListSortOrder"
instance ToJSON CreativeFieldsListSortOrder where
toJSON = toJSONText
data TargetingTemplatesListSortOrder
= TTLSOAscending
| TTLSODescending
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
data UserRolesListSortField
= URLSFID
| URLSFName
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
data FloodlightActivityTagFormat
= HTML
| 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
data OrderDocumentsListSortOrder
= ODLSOAscending
| ODLSODescending
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
data CreativeAssetRole
= AdditionalFlash
| AdditionalImage
| AlternateVideo
| BackupImage
| Other
| ParentVideo
| Primary
| TranscodedVideo
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
data DynamicTargetingKeysListObjectType
= ObjectAd
| ObjectAdvertiser
| ObjectCreative
| ObjectPlacement
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
data RecipientDeliveryType
= Attachment
| 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
data ThirdPartyTrackingURLThirdPartyURLType
= ClickTracking
| Impression
| RichMediaBackupImpression
| RichMediaImpression
| RichMediaRmImpression
| Survey
| VideoComplete
| VideoCustom
| VideoFirstQuartile
| VideoFullscreen
| VideoMidpoint
| VideoMute
| VideoPause
| VideoProgress
| VideoRewind
| VideoSkip
| VideoStart
| VideoStop
| VideoThirdQuartile
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
data TargetableRemarketingListsListSortOrder
= TRLLSOAscending
| TRLLSODescending
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
data CreativeAssetPositionLeftUnit
= OffSetUnitPercent
| OffSetUnitPixel
| OffSetUnitPixelFromCenter
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
data PricingScheduleCapCostOption
= CapCostCumulative
| CapCostMonthly
| CapCostNone
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
data UserRolePermissionAvailability
= AccountAlways
| AccountByDefault
| NotAvailableByDefault
| SubAccountAndAccountAlways
| SubAccountAndAccountByDefault
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
data PlacementVpaidAdapterChoice
= Both
| Default
| Flash
| HTML5
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable PlacementVpaidAdapterChoice
instance FromHttpApiData PlacementVpaidAdapterChoice where
parseQueryParam = \case
"BOTH" -> Right Both
"DEFAULT" -> Right Default
"FLASH" -> Right Flash
"HTML5" -> Right HTML5
x -> Left ("Unable to parse PlacementVpaidAdapterChoice from: " <> x)
instance ToHttpApiData PlacementVpaidAdapterChoice where
toQueryParam = \case
Both -> "BOTH"
Default -> "DEFAULT"
Flash -> "FLASH"
HTML5 -> "HTML5"
instance FromJSON PlacementVpaidAdapterChoice where
parseJSON = parseJSONText "PlacementVpaidAdapterChoice"
instance ToJSON PlacementVpaidAdapterChoice where
toJSON = toJSONText
data DirectorySiteContactAssignmentVisibility
= Private
| 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
data PlacementCompatibility
= App
| AppInterstitial
| Display
| DisplayInterstitial
| InStreamVideo
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
data ListPopulationTermOperator
= NumEquals
| NumGreaterThan
| NumGreaterThanEqual
| NumLessThan
| NumLessThanEqual
| StringContains
| StringEquals
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
data PlacementsListPaymentSource
= PlacementAgencyPaid
| PlacementPublisherPaid
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
data ReportsListSortField
= RLSFID
| RLSFLastModifiedTime
| RLSFName
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
data AdSlotCompatibility
= ASCApp
| ASCAppInterstitial
| ASCDisplay
| ASCDisplayInterstitial
| ASCInStreamVideo
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
data CampaignsListSortField
= CLSFID
| CLSFName
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
data AccountUserProFileTraffickerType
= ExternalTrafficker
| InternalNonTrafficker
| InternalTrafficker
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
| Audio
| Canvas
| CanvasText
| CssAnimations
| CssBackgRoundSize
| CssBOrderImage
| CssBOrderRadius
| CssBoxShadow
| CssColumns
| CssFlexBox
| CssFontFace
| CssGeneratedContent
| CssGradients
| CssHsla
| CssMultipleBgs
| CssOpacity
| CssReflections
| CssRgba
| CssTextShadow
| CssTransforms
| CssTRANSFORMS3D
| CssTransitions
| DragAndDrop
| GeoLocation
| HashChange
| History
| IndexedDB
| InlineSvg
| InputAttrAutocomplete
| InputAttrAutofocus
| InputAttrList
| InputAttrMax
| InputAttrMin
| InputAttrMultiple
| InputAttrPattern
| InputAttrPlaceholder
| InputAttrRequired
| InputAttrStep
| InputTypeColor
| InputTypeDate
| InputTypeDatetime
| InputTypeDatetimeLocal
| InputTypeEmail
| InputTypeMonth
| InputTypeNumber
| InputTypeRange
| InputTypeSearch
| InputTypeTel
| InputTypeTime
| InputTypeURL
| InputTypeWeek
| LocalStorage
| PostMessage
| SessionStorage
| Smil
| SvgClipPaths
| SvgFeImage
| SvgFilters
| SvgHref
| Touch
| Video
| Webgl
| WebSockets
| WebSQLDatabase
| WebWorkers
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
data AdsListCompatibility
= ALCApp
| ALCAppInterstitial
| ALCDisplay
| ALCDisplayInterstitial
| ALCInStreamVideo
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
data EventTagStatus
= Disabled
| 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
data SitesListSortField
= SLSFID
| SLSFName
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
data EventTagsListEventTagTypes
= ClickThroughEventTag
| ImpressionImageEventTag
| ImpressionJavascriptEventTag
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
data FileStatus
= Cancelled
| Failed
| Processing
| ReportAvailable
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
data CreativeCustomEventArtworkType
= ArtworkTypeFlash
| ArtworkTypeHTML5
| ArtworkTypeImage
| ArtworkTypeMixed
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
data FloodlightConfigurationNATuralSearchConversionAttributionOption
= ExcludeNATuralSearchConversionAttribution
| IncludeNATuralSearchConversionAttribution
| IncludeNATuralSearchTieredConversionAttribution
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
data CreativeAssetArtworkType
= CAATArtworkTypeFlash
| CAATArtworkTypeHTML5
| CAATArtworkTypeImage
| CAATArtworkTypeMixed
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
data CustomFloodlightVariableType
= U1
| U10
| U100
| U11
| U12
| U13
| U14
| U15
| U16
| U17
| U18
| U19
| U2
| U20
| U21
| U22
| U23
| U24
| U25
| U26
| U27
| U28
| U29
| U3
| U30
| U31
| U32
| U33
| U34
| U35
| U36
| U37
| U38
| U39
| U4
| U40
| U41
| U42
| U43
| U44
| U45
| U46
| U47
| U48
| U49
| U5
| U50
| U51
| U52
| U53
| U54
| U55
| U56
| U57
| U58
| U59
| U6
| U60
| U61
| U62
| U63
| U64
| U65
| U66
| U67
| U68
| U69
| U7
| U70
| U71
| U72
| U73
| U74
| U75
| U76
| U77
| U78
| U79
| U8
| U80
| U81
| U82
| U83
| U84
| U85
| U86
| U87
| U88
| U89
| U9
| U90
| U91
| U92
| U93
| U94
| U95
| U96
| U97
| U98
| 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
data ConversionErrorCode
= Internal
| InvalidArgument
| NotFound
| PermissionDenied
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
data FloodlightActivitiesListSortOrder
= FALSOAscending
| FALSODescending
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
data FileFormat
= CSV
| 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
data EncryptionInfoEncryptionEntityType
= AdwordsCustomer
| DBmAdvertiser
| DBmPartner
| DcmAccount
| DcmAdvertiser
| EncryptionEntityTypeUnknown
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
data PricingSchedulePricingType
= PricingTypeCpa
| PricingTypeCpc
| PricingTypeCpm
| PricingTypeCpmActiveview
| PricingTypeFlatRateClicks
| PricingTypeFlatRateImpressions
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
data CreativeCustomEventTargetType
= TargetBlank
| TargetParent
| TargetPopup
| TargetSelf
| TargetTop
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
data ReportsListScope
= All
| Mine
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
data CreativeAssetDurationType
= AssetDurationTypeAuto
| AssetDurationTypeCustom
| AssetDurationTypeNone
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
data TargetableRemarketingListListSource
= RemarketingListSourceAdx
| RemarketingListSourceDBm
| RemarketingListSourceDfa
| RemarketingListSourceDfp
| RemarketingListSourceDmp
| RemarketingListSourceGa
| RemarketingListSourceGplus
| RemarketingListSourceOther
| RemarketingListSourcePlayStore
| RemarketingListSourceXfp
| RemarketingListSourceYouTube
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
data CreativeGroupsListSortField
= CGLSFID
| CGLSFName
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
data PlacementsListSortField
= PLSFID
| PLSFName
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
| CBIFIAudio
| CBIFICanvas
| CBIFICanvasText
| CBIFICssAnimations
| CBIFICssBackgRoundSize
| CBIFICssBOrderImage
| CBIFICssBOrderRadius
| CBIFICssBoxShadow
| CBIFICssColumns
| CBIFICssFlexBox
| CBIFICssFontFace
| CBIFICssGeneratedContent
| CBIFICssGradients
| CBIFICssHsla
| CBIFICssMultipleBgs
| CBIFICssOpacity
| CBIFICssReflections
| CBIFICssRgba
| CBIFICssTextShadow
| CBIFICssTransforms
| CBIFICssTRANSFORMS3D
| CBIFICssTransitions
| CBIFIDragAndDrop
| CBIFIGeoLocation
| CBIFIHashChange
| CBIFIHistory
| CBIFIIndexedDB
| CBIFIInlineSvg
| CBIFIInputAttrAutocomplete
| CBIFIInputAttrAutofocus
| CBIFIInputAttrList
| CBIFIInputAttrMax
| CBIFIInputAttrMin
| CBIFIInputAttrMultiple
| CBIFIInputAttrPattern
| CBIFIInputAttrPlaceholder
| CBIFIInputAttrRequired
| CBIFIInputAttrStep
| CBIFIInputTypeColor
| CBIFIInputTypeDate
| CBIFIInputTypeDatetime
| CBIFIInputTypeDatetimeLocal
| CBIFIInputTypeEmail
| CBIFIInputTypeMonth
| CBIFIInputTypeNumber
| CBIFIInputTypeRange
| CBIFIInputTypeSearch
| CBIFIInputTypeTel
| CBIFIInputTypeTime
| CBIFIInputTypeURL
| CBIFIInputTypeWeek
| CBIFILocalStorage
| CBIFIPostMessage
| CBIFISessionStorage
| CBIFISmil
| CBIFISvgClipPaths
| CBIFISvgFeImage
| CBIFISvgFilters
| CBIFISvgHref
| CBIFITouch
| CBIFIVideo
| CBIFIWebgl
| CBIFIWebSockets
| CBIFIWebSQLDatabase
| CBIFIWebWorkers
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
data AdvertisersListSortOrder
= ALSOAscending
| ALSODescending
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
data TargetingTemplatesListSortField
= TTLSFID
| TTLSFName
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
data CreativeFieldsListSortField
= CFLSFID
| CFLSFName
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
data UserDefinedVariableConfigurationVariableType
= UDVCVTU1
| UDVCVTU10
| UDVCVTU100
| UDVCVTU11
| UDVCVTU12
| UDVCVTU13
| UDVCVTU14
| UDVCVTU15
| UDVCVTU16
| UDVCVTU17
| UDVCVTU18
| UDVCVTU19
| UDVCVTU2
| UDVCVTU20
| UDVCVTU21
| UDVCVTU22
| UDVCVTU23
| UDVCVTU24
| UDVCVTU25
| UDVCVTU26
| UDVCVTU27
| UDVCVTU28
| UDVCVTU29
| UDVCVTU3
| UDVCVTU30
| UDVCVTU31
| UDVCVTU32
| UDVCVTU33
| UDVCVTU34
| UDVCVTU35
| UDVCVTU36
| UDVCVTU37
| UDVCVTU38
| UDVCVTU39
| UDVCVTU4
| UDVCVTU40
| UDVCVTU41
| UDVCVTU42
| UDVCVTU43
| UDVCVTU44
| UDVCVTU45
| UDVCVTU46
| UDVCVTU47
| UDVCVTU48
| UDVCVTU49
| UDVCVTU5
| UDVCVTU50
| UDVCVTU51
| UDVCVTU52
| UDVCVTU53
| UDVCVTU54
| UDVCVTU55
| UDVCVTU56
| UDVCVTU57
| UDVCVTU58
| UDVCVTU59
| UDVCVTU6
| UDVCVTU60
| UDVCVTU61
| UDVCVTU62
| UDVCVTU63
| UDVCVTU64
| UDVCVTU65
| UDVCVTU66
| UDVCVTU67
| UDVCVTU68
| UDVCVTU69
| UDVCVTU7
| UDVCVTU70
| UDVCVTU71
| UDVCVTU72
| UDVCVTU73
| UDVCVTU74
| UDVCVTU75
| UDVCVTU76
| UDVCVTU77
| UDVCVTU78
| UDVCVTU79
| UDVCVTU8
| UDVCVTU80
| UDVCVTU81
| UDVCVTU82
| UDVCVTU83
| UDVCVTU84
| UDVCVTU85
| UDVCVTU86
| UDVCVTU87
| UDVCVTU88
| UDVCVTU89
| UDVCVTU9
| UDVCVTU90
| UDVCVTU91
| UDVCVTU92
| UDVCVTU93
| UDVCVTU94
| UDVCVTU95
| UDVCVTU96
| UDVCVTU97
| UDVCVTU98
| UDVCVTU99
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
data FsCommandPositionOption
= Centered
| DistanceFromTopLeftCorner
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
data UserRolesListSortOrder
= URLSOAscending
| URLSODescending
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
data PlacementsListCompatibilities
= PLCApp
| PLCAppInterstitial
| PLCDisplay
| PLCDisplayInterstitial
| PLCInStreamVideo
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
data OrderDocumentsListSortField
= ODLSFID
| ODLSFName
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
| CCIAppInterstitial
| CCIDisplay
| CCIDisplayInterstitial
| CCIInStreamVideo
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
data ReportDeliveryEmailOwnerDeliveryType
= RDEODTAttachment
| RDEODTLink
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
data SiteContactContactType
= SalesPerson
| 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
data ReportsListSortOrder
= RLSOAscending
| RLSODescending
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
data TargetableRemarketingListsListSortField
= TRLLSFID
| TRLLSFName
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
data CampaignsListSortOrder
= CLSOAscending
| CLSODescending
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
data FloodlightActivityGroupsListType
= Counter
| 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
data FloodlightConfigurationFirstDayOfWeek
= Monday
| 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
data DeliverySchedulePriority
= AdPriority01
| AdPriority02
| AdPriority03
| AdPriority04
| AdPriority05
| AdPriority06
| AdPriority07
| AdPriority08
| AdPriority09
| AdPriority10
| AdPriority11
| AdPriority12
| AdPriority13
| AdPriority14
| AdPriority15
| AdPriority16
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
data FloodlightActivitiesListFloodlightActivityGroupType
= FALFAGTCounter
| FALFAGTSale
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
data CreativeAuthoringSource
= CreativeAuthoringSourceDBm
| CreativeAuthoringSourceDcm
| CreativeAuthoringSourceStudio
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
| Ord
| Tran
| 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
data PlacementPaymentSource
= PPSPlacementAgencyPaid
| PPSPlacementPublisherPaid
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
data ReportsFilesListSortOrder
= RFLSOAscending
| RFLSODescending
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
data InventoryItemsListSortField
= IILSFID
| IILSFName
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
data EventTagType
= ETTClickThroughEventTag
| ETTImpressionImageEventTag
| ETTImpressionJavascriptEventTag
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
data CreativesListSortOrder
= CAscending
| CDescending
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
data InventoryItemsListType
= PlanningPlacementTypeCredit
| PlanningPlacementTypeRegular
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
data PopupWindowPropertiesPositionType
= Center
| 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
data DirectorySiteContactRole
= Admin
| Edit
| 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
data TagSettingKeywordOption
= GenerateSeparateTagForEachKeyword
| Ignore
| PlaceholderWithListOfKeywords
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
data CreativeAuthoringTool
= Ninja
| 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
data OrderContactContactType
= PlanningOrderContactBuyerBillingContact
| PlanningOrderContactBuyerContact
| PlanningOrderContactSellerContact
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
data CreativeAssetIdType
= CAITFlash
| CAITHTML
| CAITHTMLImage
| CAITImage
| CAITVideo
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
data AccountUserProFilesListSortOrder
= AUPFLSOAscending
| AUPFLSODescending
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
data RemarketingListListSource
= RLLSRemarketingListSourceAdx
| RLLSRemarketingListSourceDBm
| RLLSRemarketingListSourceDfa
| RLLSRemarketingListSourceDfp
| RLLSRemarketingListSourceDmp
| RLLSRemarketingListSourceGa
| RLLSRemarketingListSourceGplus
| RLLSRemarketingListSourceOther
| RLLSRemarketingListSourcePlayStore
| RLLSRemarketingListSourceXfp
| RLLSRemarketingListSourceYouTube
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
data AccountUserProFileUserAccessType
= InternalAdministrator
| NormalUser
| ReadOnlySuperUser
| SuperUser
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
data CreativeAssetStartTimeType
= AssetStartTimeTypeCustom
| AssetStartTimeTypeNone
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
data ProjectAudienceGender
= PlanningAudienceGenderFemale
| PlanningAudienceGenderMale
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
data PlacementStrategiesListSortField
= PSLSFID
| PSLSFName
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 UserDefinedVariableConfigurationDataType
= Number
| 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
data FloodlightActivityCacheBustingType
= ActiveServerPage
| ColdFusion
| Javascript
| Jsp
| 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
data CreativeGroupsListSortOrder
= CGLSOAscending
| CGLSODescending
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
data OrderDocumentType
= PlanningOrderTypeChangeOrder
| PlanningOrderTypeInsertionOrder
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
data TagDataFormat
= PlacementTagClickCommands
| PlacementTagIframeIlayer
| PlacementTagIframeJavascript
| PlacementTagIframeJavascriptLegacy
| PlacementTagInstreamVideoPrefetch
| PlacementTagInstreamVideoPrefetchVast3
| PlacementTagInternalRedirect
| PlacementTagInterstitialIframeJavascript
| PlacementTagInterstitialIframeJavascriptLegacy
| PlacementTagInterstitialInternalRedirect
| PlacementTagInterstitialJavascript
| PlacementTagInterstitialJavascriptLegacy
| PlacementTagJavascript
| PlacementTagJavascriptLegacy
| PlacementTagStandard
| PlacementTagTracking
| PlacementTagTrackingIframe
| PlacementTagTrackingJavascript
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
data AccountActiveAdSummaryActiveAdsLimitTier
= ActiveAdsTier100K
| ActiveAdsTier200K
| ActiveAdsTier300K
| ActiveAdsTier40K
| ActiveAdsTier500K
| ActiveAdsTier750K
| ActiveAdsTier75K
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_750K" -> Right ActiveAdsTier750K
"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"
ActiveAdsTier750K -> "ACTIVE_ADS_TIER_750K"
ActiveAdsTier75K -> "ACTIVE_ADS_TIER_75K"
instance FromJSON AccountActiveAdSummaryActiveAdsLimitTier where
parseJSON = parseJSONText "AccountActiveAdSummaryActiveAdsLimitTier"
instance ToJSON AccountActiveAdSummaryActiveAdsLimitTier where
toJSON = toJSONText
data CreativeAssetChildAssetType
= ChildAssetTypeData
| ChildAssetTypeFlash
| ChildAssetTypeImage
| ChildAssetTypeVideo
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
data PlacementGroupsListPlacementGroupType
= PlacementPackage
| PlacementRoadblock
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
data ObjectFilterStatus
= OFSAll
| OFSAssigned
| OFSNone
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
data CampaignCreativeAssociationsListSortOrder
= CCALSOAscending
| CCALSODescending
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
data FloodlightActivitiesListSortField
= FALSFID
| FALSFName
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
data CreativesListTypes
= CLTBrandSafeDefaultInstreamVideo
| CLTCustomDisplay
| CLTCustomDisplayInterstitial
| CLTDisplay
| CLTDisplayImageGallery
| CLTDisplayRedirect
| CLTFlashInpage
| CLTHTML5Banner
| CLTImage
| CLTInstreamVideo
| CLTInstreamVideoRedirect
| CLTInternalRedirect
| CLTInterstitialInternalRedirect
| CLTRichMediaDisplayBanner
| CLTRichMediaDisplayExpanding
| CLTRichMediaDisplayInterstitial
| CLTRichMediaDisplayMultiFloatingInterstitial
| CLTRichMediaImExpand
| CLTRichMediaInpageFloating
| CLTRichMediaMobileInApp
| CLTRichMediaPeelDown
| CLTTrackingText
| CLTVpaidLinearVideo
| CLTVpaidNonLinearVideo
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
| InternalRedirectInpage
| JavascriptInpage
| 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
data CreativeAssetWindowMode
= Opaque
| Transparent
| 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
data CreativeAssetAlignment
= AlignmentBottom
| AlignmentLeft
| AlignmentRight
| AlignmentTop
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
data RemarketingListsListSortOrder
= RLLSOAscending
| RLLSODescending
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
data PlacementGroupsListPricingTypes
= PGLPTPricingTypeCpa
| PGLPTPricingTypeCpc
| PGLPTPricingTypeCpm
| PGLPTPricingTypeCpmActiveview
| PGLPTPricingTypeFlatRateClicks
| PGLPTPricingTypeFlatRateImpressions
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
data DynamicTargetingKeysDeleteObjectType
= DTKDOTObjectAd
| DTKDOTObjectAdvertiser
| DTKDOTObjectCreative
| DTKDOTObjectPlacement
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
data AccountActiveAdsLimitTier
= AAALTActiveAdsTier100K
| AAALTActiveAdsTier200K
| AAALTActiveAdsTier300K
| AAALTActiveAdsTier40K
| AAALTActiveAdsTier500K
| AAALTActiveAdsTier750K
| AAALTActiveAdsTier75K
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_750K" -> Right AAALTActiveAdsTier750K
"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"
AAALTActiveAdsTier750K -> "ACTIVE_ADS_TIER_750K"
AAALTActiveAdsTier75K -> "ACTIVE_ADS_TIER_75K"
instance FromJSON AccountActiveAdsLimitTier where
parseJSON = parseJSONText "AccountActiveAdsLimitTier"
instance ToJSON AccountActiveAdsLimitTier where
toJSON = toJSONText
data AccountsListSortOrder
= AAscending
| ADescending
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
data SubAccountsListSortField
= SALSFID
| SALSFName
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
data VideoFormatFileType
= Flv
| M3U8
| MP4
| Threegpp
| Webm
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable VideoFormatFileType
instance FromHttpApiData VideoFormatFileType where
parseQueryParam = \case
"FLV" -> Right Flv
"M3U8" -> Right M3U8
"MP4" -> Right MP4
"THREEGPP" -> Right Threegpp
"WEBM" -> Right Webm
x -> Left ("Unable to parse VideoFormatFileType from: " <> x)
instance ToHttpApiData VideoFormatFileType where
toQueryParam = \case
Flv -> "FLV"
M3U8 -> "M3U8"
MP4 -> "MP4"
Threegpp -> "THREEGPP"
Webm -> "WEBM"
instance FromJSON VideoFormatFileType where
parseJSON = parseJSONText "VideoFormatFileType"
instance ToJSON VideoFormatFileType where
toJSON = toJSONText
data AdsListSortField
= ALSFID
| ALSFName
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
data ProjectsListSortField
= PID
| PName
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
data AdsListType
= AdServingClickTracker
| AdServingDefaultAd
| AdServingStandardAd
| AdServingTracking
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
data CreativeOptimizationConfigurationOptimizationModel
= Click
| PostClick
| PostClickAndImpression
| PostImpression
| VideoCompletion
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
data AccountPermissionLevel
= Administrator
| 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
data ListPopulationTermType
= CustomVariableTerm
| ListMembershipTerm
| ReferrerTerm
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
data AdvertiserGroupsListSortOrder
= AGLSOAscending
| AGLSODescending
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
data CreativeFieldValuesListSortOrder
= CFVLSOAscending
| CFVLSODescending
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
data SortedDimensionSortOrder
= SDSOAscending
| SDSODescending
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
data FilesListSortField
= FLSFID
| FLSFLastModifiedTime
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
| InternalRedirectInterstitial
| JavascriptInterstitial
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
data EventTagsListSortField
= ETLSFID
| ETLSFName
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
data InventoryItemType
= IITPlanningPlacementTypeCredit
| IITPlanningPlacementTypeRegular
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
data CreativeAssetPositionTopUnit
= CAPTUOffSetUnitPercent
| CAPTUOffSetUnitPixel
| CAPTUOffSetUnitPixelFromCenter
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
data FloodlightActivityFloodlightActivityGroupType
= FAFAGTCounter
| FAFAGTSale
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
data DirectorySiteContactsListSortOrder
= DSCLSOAscending
| DSCLSODescending
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
data PricingGroupType
= PlanningPlacementGroupTypePackage
| PlanningPlacementGroupTypeRoadblock
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
data FloodlightActivityGroupsListSortOrder
= FAGLSOAscending
| FAGLSODescending
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
data CreativeRotationType
= CreativeRotationTypeRandom
| CreativeRotationTypeSequential
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
data OrdersListSortField
= OLSFID
| OLSFName
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
data PlacementGroupsListSortField
= PGLSFID
| PGLSFName
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
data DirectorySitesListSortOrder
= DSLSOAscending
| DSLSODescending
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
| CADFIAudio
| CADFICanvas
| CADFICanvasText
| CADFICssAnimations
| CADFICssBackgRoundSize
| CADFICssBOrderImage
| CADFICssBOrderRadius
| CADFICssBoxShadow
| CADFICssColumns
| CADFICssFlexBox
| CADFICssFontFace
| CADFICssGeneratedContent
| CADFICssGradients
| CADFICssHsla
| CADFICssMultipleBgs
| CADFICssOpacity
| CADFICssReflections
| CADFICssRgba
| CADFICssTextShadow
| CADFICssTransforms
| CADFICssTRANSFORMS3D
| CADFICssTransitions
| CADFIDragAndDrop
| CADFIGeoLocation
| CADFIHashChange
| CADFIHistory
| CADFIIndexedDB
| CADFIInlineSvg
| CADFIInputAttrAutocomplete
| CADFIInputAttrAutofocus
| CADFIInputAttrList
| CADFIInputAttrMax
| CADFIInputAttrMin
| CADFIInputAttrMultiple
| CADFIInputAttrPattern
| CADFIInputAttrPlaceholder
| CADFIInputAttrRequired
| CADFIInputAttrStep
| CADFIInputTypeColor
| CADFIInputTypeDate
| CADFIInputTypeDatetime
| CADFIInputTypeDatetimeLocal
| CADFIInputTypeEmail
| CADFIInputTypeMonth
| CADFIInputTypeNumber
| CADFIInputTypeRange
| CADFIInputTypeSearch
| CADFIInputTypeTel
| CADFIInputTypeTime
| CADFIInputTypeURL
| CADFIInputTypeWeek
| CADFILocalStorage
| CADFIPostMessage
| CADFISessionStorage
| CADFISmil
| CADFISvgClipPaths
| CADFISvgFeImage
| CADFISvgFilters
| CADFISvgHref
| CADFITouch
| CADFIVideo
| CADFIWebgl
| CADFIWebSockets
| CADFIWebSQLDatabase
| CADFIWebWorkers
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
data FloodlightActivityGroupType
= FAGTCounter
| FAGTSale
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
data DirectorySiteContactType
= DSCTBilling
| DSCTOther
| DSCTSales
| DSCTTechnical
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
data PlacementsGeneratetagsTagFormats
= PGTFPlacementTagClickCommands
| PGTFPlacementTagIframeIlayer
| PGTFPlacementTagIframeJavascript
| PGTFPlacementTagIframeJavascriptLegacy
| PGTFPlacementTagInstreamVideoPrefetch
| PGTFPlacementTagInstreamVideoPrefetchVast3
| PGTFPlacementTagInternalRedirect
| PGTFPlacementTagInterstitialIframeJavascript
| PGTFPlacementTagInterstitialIframeJavascriptLegacy
| PGTFPlacementTagInterstitialInternalRedirect
| PGTFPlacementTagInterstitialJavascript
| PGTFPlacementTagInterstitialJavascriptLegacy
| PGTFPlacementTagJavascript
| PGTFPlacementTagJavascriptLegacy
| PGTFPlacementTagStandard
| PGTFPlacementTagTracking
| PGTFPlacementTagTrackingIframe
| PGTFPlacementTagTrackingJavascript
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
data AccountUserProFilesListSortField
= AUPFLSFID
| AUPFLSFName
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
data InventoryItemsListSortOrder
= IILSOAscending
| IILSODescending
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
data PlacementStrategiesListSortOrder
= PSLSOAscending
| PSLSODescending
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
data ReportsFilesListSortField
= RFLSFID
| RFLSFLastModifiedTime
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
data CreativesListSortField
= CID
| CName
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
| DPTDOWIMonday
| DPTDOWISaturday
| DPTDOWISunday
| DPTDOWIThursday
| DPTDOWITuesday
| DPTDOWIWednesday
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
data CreativeRotationWeightCalculationStrategy
= WeightStrategyCustom
| WeightStrategyEqual
| WeightStrategyHighestCtr
| WeightStrategyOptimized
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
data FilesListScope
= FLSAll
| FLSMine
| FLSSharedWithMe
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
data ContentCategoriesListSortField
= CCLSFID
| CCLSFName
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
data ProjectAudienceAgeGroup
= PlanningAudienceAge1824
| PlanningAudienceAge2534
| PlanningAudienceAge3544
| PlanningAudienceAge4554
| PlanningAudienceAge5564
| PlanningAudienceAge65OrMore
| PlanningAudienceAgeUnknown
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
data AdType
= ATAdServingClickTracker
| ATAdServingDefaultAd
| ATAdServingStandardAd
| ATAdServingTracking
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
data ChangeLogsListAction
= ActionAdd
| ActionAssign
| ActionAssociate
| ActionCreate
| ActionDelete
| ActionDisable
| ActionEmailTags
| ActionEnable
| ActionLink
| ActionMarkAsDefault
| ActionPush
| ActionRemove
| ActionSend
| ActionShare
| ActionUnassign
| ActionUnlink
| ActionUpdate
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
data CreativeArtworkType
= CATArtworkTypeFlash
| CATArtworkTypeHTML5
| CATArtworkTypeImage
| CATArtworkTypeMixed
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
data PlacementStatus
= AcknowledgeAcceptance
| AcknowledgeRejection
| Draft
| PaymentAccepted
| PaymentRejected
| PendingReview
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
data ReportScheduleRunsOnDayOfMonth
= DayOfMonth
| WeekOfMonth
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
| FAUDVTIU10
| FAUDVTIU100
| FAUDVTIU11
| FAUDVTIU12
| FAUDVTIU13
| FAUDVTIU14
| FAUDVTIU15
| FAUDVTIU16
| FAUDVTIU17
| FAUDVTIU18
| FAUDVTIU19
| FAUDVTIU2
| FAUDVTIU20
| FAUDVTIU21
| FAUDVTIU22
| FAUDVTIU23
| FAUDVTIU24
| FAUDVTIU25
| FAUDVTIU26
| FAUDVTIU27
| FAUDVTIU28
| FAUDVTIU29
| FAUDVTIU3
| FAUDVTIU30
| FAUDVTIU31
| FAUDVTIU32
| FAUDVTIU33
| FAUDVTIU34
| FAUDVTIU35
| FAUDVTIU36
| FAUDVTIU37
| FAUDVTIU38
| FAUDVTIU39
| FAUDVTIU4
| FAUDVTIU40
| FAUDVTIU41
| FAUDVTIU42
| FAUDVTIU43
| FAUDVTIU44
| FAUDVTIU45
| FAUDVTIU46
| FAUDVTIU47
| FAUDVTIU48
| FAUDVTIU49
| FAUDVTIU5
| FAUDVTIU50
| FAUDVTIU51
| FAUDVTIU52
| FAUDVTIU53
| FAUDVTIU54
| FAUDVTIU55
| FAUDVTIU56
| FAUDVTIU57
| FAUDVTIU58
| FAUDVTIU59
| FAUDVTIU6
| FAUDVTIU60
| FAUDVTIU61
| FAUDVTIU62
| FAUDVTIU63
| FAUDVTIU64
| FAUDVTIU65
| FAUDVTIU66
| FAUDVTIU67
| FAUDVTIU68
| FAUDVTIU69
| FAUDVTIU7
| FAUDVTIU70
| FAUDVTIU71
| FAUDVTIU72
| FAUDVTIU73
| FAUDVTIU74
| FAUDVTIU75
| FAUDVTIU76
| FAUDVTIU77
| FAUDVTIU78
| FAUDVTIU79
| FAUDVTIU8
| FAUDVTIU80
| FAUDVTIU81
| FAUDVTIU82
| FAUDVTIU83
| FAUDVTIU84
| FAUDVTIU85
| FAUDVTIU86
| FAUDVTIU87
| FAUDVTIU88
| FAUDVTIU89
| FAUDVTIU9
| FAUDVTIU90
| FAUDVTIU91
| FAUDVTIU92
| FAUDVTIU93
| FAUDVTIU94
| FAUDVTIU95
| FAUDVTIU96
| FAUDVTIU97
| FAUDVTIU98
| FAUDVTIU99
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
data EventTagSiteFilterType
= BlackList
| 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
data ReportFormat
= RFCSV
| RFExcel
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
data PlacementGroupPlacementGroupType
= PGPGTPlacementPackage
| PGPGTPlacementRoadblock
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
data PricingPricingType
= PlanningPlacementPricingTypeClicks
| PlanningPlacementPricingTypeCpa
| PlanningPlacementPricingTypeCpc
| PlanningPlacementPricingTypeCpm
| PlanningPlacementPricingTypeCpmActiveview
| PlanningPlacementPricingTypeFlatRateClicks
| PlanningPlacementPricingTypeFlatRateImpressions
| PlanningPlacementPricingTypeImpressions
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
data SubAccountsListSortOrder
= SALSOAscending
| SALSODescending
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
data AdsListSortOrder
= ADSAscending
| ADSDescending
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
data ProjectsListSortOrder
= PLSOAscending
| PLSODescending
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
data RemarketingListsListSortField
= RLLSFID
| RLLSFName
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
| RSROWDIMonday
| RSROWDISaturday
| RSROWDISunday
| RSROWDIThursday
| RSROWDITuesday
| RSROWDIWednesday
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
data CreativeGroupAssignmentCreativeGroupNumber
= CreativeGroupOne
| CreativeGroupTwo
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
data SiteSettingsVpaidAdapterChoiceTemplate
= SSVACTBoth
| SSVACTDefault
| SSVACTFlash
| SSVACTHTML5
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable SiteSettingsVpaidAdapterChoiceTemplate
instance FromHttpApiData SiteSettingsVpaidAdapterChoiceTemplate where
parseQueryParam = \case
"BOTH" -> Right SSVACTBoth
"DEFAULT" -> Right SSVACTDefault
"FLASH" -> Right SSVACTFlash
"HTML5" -> Right SSVACTHTML5
x -> Left ("Unable to parse SiteSettingsVpaidAdapterChoiceTemplate from: " <> x)
instance ToHttpApiData SiteSettingsVpaidAdapterChoiceTemplate where
toQueryParam = \case
SSVACTBoth -> "BOTH"
SSVACTDefault -> "DEFAULT"
SSVACTFlash -> "FLASH"
SSVACTHTML5 -> "HTML5"
instance FromJSON SiteSettingsVpaidAdapterChoiceTemplate where
parseJSON = parseJSONText "SiteSettingsVpaidAdapterChoiceTemplate"
instance ToJSON SiteSettingsVpaidAdapterChoiceTemplate where
toJSON = toJSONText
data AccountsListSortField
= AID
| AName
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
data AdvertisersListStatus
= Approved
| OnHold
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
data DimensionValueMatchType
= BeginsWith
| Contains
| Exact
| WildcardExpression
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
data PlacementGroupsListSortOrder
= PGLSOAscending
| PGLSODescending
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
data AdCompatibility
= ACApp
| ACAppInterstitial
| ACDisplay
| ACDisplayInterstitial
| ACInStreamVideo
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
data CreativeFieldValuesListSortField
= CFVLSFID
| CFVLSFValue
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
data FloodlightActivityGroupsListSortField
= FAGLSFID
| FAGLSFName
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
data OrdersListSortOrder
= OLSOAscending
| OLSODescending
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
data AccountAccountProFile
= AccountProFileBasic
| AccountProFileStandard
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
data CreativeType
= CTBrandSafeDefaultInstreamVideo
| CTCustomDisplay
| CTCustomDisplayInterstitial
| CTDisplay
| CTDisplayImageGallery
| CTDisplayRedirect
| CTFlashInpage
| CTHTML5Banner
| CTImage
| CTInstreamVideo
| CTInstreamVideoRedirect
| CTInternalRedirect
| CTInterstitialInternalRedirect
| CTRichMediaDisplayBanner
| CTRichMediaDisplayExpanding
| CTRichMediaDisplayInterstitial
| CTRichMediaDisplayMultiFloatingInterstitial
| CTRichMediaImExpand
| CTRichMediaInpageFloating
| CTRichMediaMobileInApp
| CTRichMediaPeelDown
| CTTrackingText
| CTVpaidLinearVideo
| CTVpaidNonLinearVideo
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
data FilesListSortOrder
= FLSOAscending
| FLSODescending
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
data AdvertiserGroupsListSortField
= AGLSFID
| AGLSFName
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
data TargetWindowTargetWindowOption
= CurrentWindow
| Custom
| NewWindow
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
data DirectorySiteContactsListSortField
= DSCLSFID
| DSCLSFName
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
data PlacementsListPricingTypes
= PLPTPricingTypeCpa
| PLPTPricingTypeCpc
| PLPTPricingTypeCpm
| PLPTPricingTypeCpmActiveview
| PLPTPricingTypeFlatRateClicks
| PLPTPricingTypeFlatRateImpressions
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
data EventTagsListSortOrder
= ETLSOAscending
| ETLSODescending
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
data EncryptionInfoEncryptionSource
= AdServing
| DataTransfer
| EncryptionScopeUnknown
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
data DirectorySitesListSortField
= DSLSFID
| DSLSFName
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
data ReportCrossDimensionReachCriteriaDimension
= RCDRCDAdvertiser
| RCDRCDCampaign
| RCDRCDSiteByAdvertiser
| RCDRCDSiteByCampaign
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
data SitesListSortOrder
= SLSOAscending
| SLSODescending
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
| PTFIPlacementTagIframeIlayer
| PTFIPlacementTagIframeJavascript
| PTFIPlacementTagIframeJavascriptLegacy
| PTFIPlacementTagInstreamVideoPrefetch
| PTFIPlacementTagInstreamVideoPrefetchVast3
| PTFIPlacementTagInternalRedirect
| PTFIPlacementTagInterstitialIframeJavascript
| PTFIPlacementTagInterstitialIframeJavascriptLegacy
| PTFIPlacementTagInterstitialInternalRedirect
| PTFIPlacementTagInterstitialJavascript
| PTFIPlacementTagInterstitialJavascriptLegacy
| PTFIPlacementTagJavascript
| PTFIPlacementTagJavascriptLegacy
| PTFIPlacementTagStandard
| PTFIPlacementTagTracking
| PTFIPlacementTagTrackingIframe
| PTFIPlacementTagTrackingJavascript
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
data DynamicTargetingKeyObjectType
= DTKOTObjectAd
| DTKOTObjectAdvertiser
| DTKOTObjectCreative
| DTKOTObjectPlacement
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
data ReportType
= RTCrossDimensionReach
| RTFloodlight
| RTPathToConversion
| RTReach
| RTStandard
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
| AssetFormatUnsupportedDcm
| AssetInvalid
| ClickTagHardCoded
| ClickTagInvalid
| ClickTagInGwd
| ClickTagMissing
| ClickTagMoreThanOne
| ClickTagNonTopLevel
| ComponentUnsupportedDcm
| EnablerUnsupportedMethodDcm
| ExternalFileReferenced
| FileDetailEmpty
| FileTypeInvalid
| GwdPropertiesInvalid
| HTML5FeatureUnsupported
| LinkedFileNotFound
| MaxFlashVersion11
| MraidReferenced
| NotSSLCompliant
| OrphanedAsset
| PrimaryHTMLMissing
| SvgInvalid
| ZipInvalid
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
data AdSlotPaymentSourceType
= PlanningPaymentSourceTypeAgencyPaid
| PlanningPaymentSourceTypePublisherPaid
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
| APAPFIAccountProFileStandard
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
data CreativeCustomEventAdvertiserCustomEventType
= AdvertiserEventCounter
| AdvertiserEventExit
| AdvertiserEventTimer
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
data ChangeLogsListObjectType
= CLLOTObjectAccount
| CLLOTObjectAccountBillingFeature
| CLLOTObjectAd
| CLLOTObjectAdvertiser
| CLLOTObjectAdvertiserGroup
| CLLOTObjectBillingAccountGroup
| CLLOTObjectBillingFeature
| CLLOTObjectBillingMinimumFee
| CLLOTObjectBillingProFile
| CLLOTObjectCampaign
| CLLOTObjectContentCategory
| CLLOTObjectCreative
| CLLOTObjectCreativeAsset
| CLLOTObjectCreativeBundle
| CLLOTObjectCreativeField
| CLLOTObjectCreativeGroup
| CLLOTObjectDfaSite
| CLLOTObjectEventTag
| CLLOTObjectFloodlightActivityGroup
| CLLOTObjectFloodlightActvity
| CLLOTObjectFloodlightConfiguration
| CLLOTObjectInstreamCreative
| CLLOTObjectLandingPage
| CLLOTObjectMediaOrder
| CLLOTObjectPlacement
| CLLOTObjectPlacementStrategy
| CLLOTObjectPlaystoreLink
| CLLOTObjectProvidedListClient
| CLLOTObjectRateCard
| CLLOTObjectRemarketingList
| CLLOTObjectRichmediaCreative
| CLLOTObjectSdSite
| CLLOTObjectSearchLiftStudy
| CLLOTObjectSize
| CLLOTObjectSubAccount
| CLLOTObjectTargetingTemplate
| CLLOTObjectUserProFile
| CLLOTObjectUserProFileFilter
| CLLOTObjectUserRole
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_SEARCH_LIFT_STUDY" -> Right CLLOTObjectSearchLiftStudy
"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"
CLLOTObjectSearchLiftStudy -> "OBJECT_SEARCH_LIFT_STUDY"
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
data PricingCapCostType
= PlanningPlacementCapCostTypeCumulative
| PlanningPlacementCapCostTypeMonthly
| PlanningPlacementCapCostTypeNone
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
data CreativeAssetDisplayType
= AssetDisplayTypeBackdrop
| AssetDisplayTypeExpanding
| AssetDisplayTypeFlashInFlash
| AssetDisplayTypeFlashInFlashExpanding
| AssetDisplayTypeFloating
| AssetDisplayTypeInpage
| AssetDisplayTypeOverlay
| AssetDisplayTypePeelDown
| AssetDisplayTypeVpaidLinear
| AssetDisplayTypeVpaidNonLinear
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"
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"
instance FromJSON CreativeAssetDisplayType where
parseJSON = parseJSONText "CreativeAssetDisplayType"
instance ToJSON CreativeAssetDisplayType where
toJSON = toJSONText
data FloodlightActivityCountingMethod
= ItemsSoldCounting
| SessionCounting
| StandardCounting
| TransactionsCounting
| UniqueCounting
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable FloodlightActivityCountingMethod
instance FromHttpApiData FloodlightActivityCountingMethod where
parseQueryParam = \case
"ITEMS_SOLD_COUNTING" -> Right ItemsSoldCounting
"SESSION_COUNTING" -> Right SessionCounting
"STANDARD_COUNTING" -> Right StandardCounting
"TRANSACTIONS_COUNTING" -> Right TransactionsCounting
"UNIQUE_COUNTING" -> Right UniqueCounting
x -> Left ("Unable to parse FloodlightActivityCountingMethod from: " <> x)
instance ToHttpApiData FloodlightActivityCountingMethod where
toQueryParam = \case
ItemsSoldCounting -> "ITEMS_SOLD_COUNTING"
SessionCounting -> "SESSION_COUNTING"
StandardCounting -> "STANDARD_COUNTING"
TransactionsCounting -> "TRANSACTIONS_COUNTING"
UniqueCounting -> "UNIQUE_COUNTING"
instance FromJSON FloodlightActivityCountingMethod where
parseJSON = parseJSONText "FloodlightActivityCountingMethod"
instance ToJSON FloodlightActivityCountingMethod where
toJSON = toJSONText
data ContentCategoriesListSortOrder
= CCLSOAscending
| CCLSODescending
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable ContentCategoriesListSortOrder
instance FromHttpApiData ContentCategoriesListSortOrder where
parseQueryParam = \case
"ASCENDING" -> Right CCLSOAscending
"DESCENDING" -> Right CCLSODescending
x -> Left ("Unable to parse ContentCategoriesListSortOrder from: " <> x)
instance ToHttpApiData ContentCategoriesListSortOrder where
toQueryParam = \case
CCLSOAscending -> "ASCENDING"
CCLSODescending -> "DESCENDING"
instance FromJSON ContentCategoriesListSortOrder where
parseJSON = parseJSONText "ContentCategoriesListSortOrder"
instance ToJSON ContentCategoriesListSortOrder where
toJSON = toJSONText
data AdvertiserStatus
= ASApproved
| ASOnHold
deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)
instance Hashable AdvertiserStatus
instance FromHttpApiData AdvertiserStatus where
parseQueryParam = \case
"APPROVED" -> Right ASApproved
"ON_HOLD" -> Right ASOnHold
x -> Left ("Unable to parse AdvertiserStatus from: " <> x)
instance ToHttpApiData AdvertiserStatus where
toQueryParam = \case
ASApproved -> "APPROVED"
ASOnHold -> "ON_HOLD"
instance FromJSON AdvertiserStatus where
parseJSON = parseJSONText "AdvertiserStatus"
instance ToJSON AdvertiserStatus where
toJSON = toJSONText