{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.AdExchangeSeller.Types.Product where
import Network.Google.AdExchangeSeller.Types.Sum
import Network.Google.Prelude
data AdClients = AdClients'
{ _acEtag :: !(Maybe Text)
, _acNextPageToken :: !(Maybe Text)
, _acKind :: !Text
, _acItems :: !(Maybe [AdClient])
} deriving (Eq,Show,Data,Typeable,Generic)
adClients
:: AdClients
adClients =
AdClients'
{ _acEtag = Nothing
, _acNextPageToken = Nothing
, _acKind = "adexchangeseller#adClients"
, _acItems = Nothing
}
acEtag :: Lens' AdClients (Maybe Text)
acEtag = lens _acEtag (\ s a -> s{_acEtag = a})
acNextPageToken :: Lens' AdClients (Maybe Text)
acNextPageToken
= lens _acNextPageToken
(\ s a -> s{_acNextPageToken = a})
acKind :: Lens' AdClients Text
acKind = lens _acKind (\ s a -> s{_acKind = a})
acItems :: Lens' AdClients [AdClient]
acItems
= lens _acItems (\ s a -> s{_acItems = a}) . _Default
. _Coerce
instance FromJSON AdClients where
parseJSON
= withObject "AdClients"
(\ o ->
AdClients' <$>
(o .:? "etag") <*> (o .:? "nextPageToken") <*>
(o .:? "kind" .!= "adexchangeseller#adClients")
<*> (o .:? "items" .!= mempty))
instance ToJSON AdClients where
toJSON AdClients'{..}
= object
(catMaybes
[("etag" .=) <$> _acEtag,
("nextPageToken" .=) <$> _acNextPageToken,
Just ("kind" .= _acKind), ("items" .=) <$> _acItems])
data ReportingMetadataEntry = ReportingMetadataEntry'
{ _rmeKind :: !Text
, _rmeRequiredMetrics :: !(Maybe [Text])
, _rmeCompatibleMetrics :: !(Maybe [Text])
, _rmeRequiredDimensions :: !(Maybe [Text])
, _rmeId :: !(Maybe Text)
, _rmeCompatibleDimensions :: !(Maybe [Text])
, _rmeSupportedProducts :: !(Maybe [Text])
} deriving (Eq,Show,Data,Typeable,Generic)
reportingMetadataEntry
:: ReportingMetadataEntry
reportingMetadataEntry =
ReportingMetadataEntry'
{ _rmeKind = "adexchangeseller#reportingMetadataEntry"
, _rmeRequiredMetrics = Nothing
, _rmeCompatibleMetrics = Nothing
, _rmeRequiredDimensions = Nothing
, _rmeId = Nothing
, _rmeCompatibleDimensions = Nothing
, _rmeSupportedProducts = Nothing
}
rmeKind :: Lens' ReportingMetadataEntry Text
rmeKind = lens _rmeKind (\ s a -> s{_rmeKind = a})
rmeRequiredMetrics :: Lens' ReportingMetadataEntry [Text]
rmeRequiredMetrics
= lens _rmeRequiredMetrics
(\ s a -> s{_rmeRequiredMetrics = a})
. _Default
. _Coerce
rmeCompatibleMetrics :: Lens' ReportingMetadataEntry [Text]
rmeCompatibleMetrics
= lens _rmeCompatibleMetrics
(\ s a -> s{_rmeCompatibleMetrics = a})
. _Default
. _Coerce
rmeRequiredDimensions :: Lens' ReportingMetadataEntry [Text]
rmeRequiredDimensions
= lens _rmeRequiredDimensions
(\ s a -> s{_rmeRequiredDimensions = a})
. _Default
. _Coerce
rmeId :: Lens' ReportingMetadataEntry (Maybe Text)
rmeId = lens _rmeId (\ s a -> s{_rmeId = a})
rmeCompatibleDimensions :: Lens' ReportingMetadataEntry [Text]
rmeCompatibleDimensions
= lens _rmeCompatibleDimensions
(\ s a -> s{_rmeCompatibleDimensions = a})
. _Default
. _Coerce
rmeSupportedProducts :: Lens' ReportingMetadataEntry [Text]
rmeSupportedProducts
= lens _rmeSupportedProducts
(\ s a -> s{_rmeSupportedProducts = a})
. _Default
. _Coerce
instance FromJSON ReportingMetadataEntry where
parseJSON
= withObject "ReportingMetadataEntry"
(\ o ->
ReportingMetadataEntry' <$>
(o .:? "kind" .!=
"adexchangeseller#reportingMetadataEntry")
<*> (o .:? "requiredMetrics" .!= mempty)
<*> (o .:? "compatibleMetrics" .!= mempty)
<*> (o .:? "requiredDimensions" .!= mempty)
<*> (o .:? "id")
<*> (o .:? "compatibleDimensions" .!= mempty)
<*> (o .:? "supportedProducts" .!= mempty))
instance ToJSON ReportingMetadataEntry where
toJSON ReportingMetadataEntry'{..}
= object
(catMaybes
[Just ("kind" .= _rmeKind),
("requiredMetrics" .=) <$> _rmeRequiredMetrics,
("compatibleMetrics" .=) <$> _rmeCompatibleMetrics,
("requiredDimensions" .=) <$> _rmeRequiredDimensions,
("id" .=) <$> _rmeId,
("compatibleDimensions" .=) <$>
_rmeCompatibleDimensions,
("supportedProducts" .=) <$> _rmeSupportedProducts])
data Accounts = Accounts'
{ _aEtag :: !(Maybe Text)
, _aNextPageToken :: !(Maybe Text)
, _aKind :: !Text
, _aItems :: !(Maybe [Account])
} deriving (Eq,Show,Data,Typeable,Generic)
accounts
:: Accounts
accounts =
Accounts'
{ _aEtag = Nothing
, _aNextPageToken = Nothing
, _aKind = "adexchangeseller#accounts"
, _aItems = Nothing
}
aEtag :: Lens' Accounts (Maybe Text)
aEtag = lens _aEtag (\ s a -> s{_aEtag = a})
aNextPageToken :: Lens' Accounts (Maybe Text)
aNextPageToken
= lens _aNextPageToken
(\ s a -> s{_aNextPageToken = a})
aKind :: Lens' Accounts Text
aKind = lens _aKind (\ s a -> s{_aKind = a})
aItems :: Lens' Accounts [Account]
aItems
= lens _aItems (\ s a -> s{_aItems = a}) . _Default .
_Coerce
instance FromJSON Accounts where
parseJSON
= withObject "Accounts"
(\ o ->
Accounts' <$>
(o .:? "etag") <*> (o .:? "nextPageToken") <*>
(o .:? "kind" .!= "adexchangeseller#accounts")
<*> (o .:? "items" .!= mempty))
instance ToJSON Accounts where
toJSON Accounts'{..}
= object
(catMaybes
[("etag" .=) <$> _aEtag,
("nextPageToken" .=) <$> _aNextPageToken,
Just ("kind" .= _aKind), ("items" .=) <$> _aItems])
data Alerts = Alerts'
{ _aleKind :: !Text
, _aleItems :: !(Maybe [Alert])
} deriving (Eq,Show,Data,Typeable,Generic)
alerts
:: Alerts
alerts =
Alerts'
{ _aleKind = "adexchangeseller#alerts"
, _aleItems = Nothing
}
aleKind :: Lens' Alerts Text
aleKind = lens _aleKind (\ s a -> s{_aleKind = a})
aleItems :: Lens' Alerts [Alert]
aleItems
= lens _aleItems (\ s a -> s{_aleItems = a}) .
_Default
. _Coerce
instance FromJSON Alerts where
parseJSON
= withObject "Alerts"
(\ o ->
Alerts' <$>
(o .:? "kind" .!= "adexchangeseller#alerts") <*>
(o .:? "items" .!= mempty))
instance ToJSON Alerts where
toJSON Alerts'{..}
= object
(catMaybes
[Just ("kind" .= _aleKind),
("items" .=) <$> _aleItems])
data SavedReports = SavedReports'
{ _srEtag :: !(Maybe Text)
, _srNextPageToken :: !(Maybe Text)
, _srKind :: !Text
, _srItems :: !(Maybe [SavedReport])
} deriving (Eq,Show,Data,Typeable,Generic)
savedReports
:: SavedReports
savedReports =
SavedReports'
{ _srEtag = Nothing
, _srNextPageToken = Nothing
, _srKind = "adexchangeseller#savedReports"
, _srItems = Nothing
}
srEtag :: Lens' SavedReports (Maybe Text)
srEtag = lens _srEtag (\ s a -> s{_srEtag = a})
srNextPageToken :: Lens' SavedReports (Maybe Text)
srNextPageToken
= lens _srNextPageToken
(\ s a -> s{_srNextPageToken = a})
srKind :: Lens' SavedReports Text
srKind = lens _srKind (\ s a -> s{_srKind = a})
srItems :: Lens' SavedReports [SavedReport]
srItems
= lens _srItems (\ s a -> s{_srItems = a}) . _Default
. _Coerce
instance FromJSON SavedReports where
parseJSON
= withObject "SavedReports"
(\ o ->
SavedReports' <$>
(o .:? "etag") <*> (o .:? "nextPageToken") <*>
(o .:? "kind" .!= "adexchangeseller#savedReports")
<*> (o .:? "items" .!= mempty))
instance ToJSON SavedReports where
toJSON SavedReports'{..}
= object
(catMaybes
[("etag" .=) <$> _srEtag,
("nextPageToken" .=) <$> _srNextPageToken,
Just ("kind" .= _srKind), ("items" .=) <$> _srItems])
data SavedReport = SavedReport'
{ _sKind :: !Text
, _sName :: !(Maybe Text)
, _sId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
savedReport
:: SavedReport
savedReport =
SavedReport'
{ _sKind = "adexchangeseller#savedReport"
, _sName = Nothing
, _sId = Nothing
}
sKind :: Lens' SavedReport Text
sKind = lens _sKind (\ s a -> s{_sKind = a})
sName :: Lens' SavedReport (Maybe Text)
sName = lens _sName (\ s a -> s{_sName = a})
sId :: Lens' SavedReport (Maybe Text)
sId = lens _sId (\ s a -> s{_sId = a})
instance FromJSON SavedReport where
parseJSON
= withObject "SavedReport"
(\ o ->
SavedReport' <$>
(o .:? "kind" .!= "adexchangeseller#savedReport") <*>
(o .:? "name")
<*> (o .:? "id"))
instance ToJSON SavedReport where
toJSON SavedReport'{..}
= object
(catMaybes
[Just ("kind" .= _sKind), ("name" .=) <$> _sName,
("id" .=) <$> _sId])
data URLChannels = URLChannels'
{ _ucEtag :: !(Maybe Text)
, _ucNextPageToken :: !(Maybe Text)
, _ucKind :: !Text
, _ucItems :: !(Maybe [URLChannel])
} deriving (Eq,Show,Data,Typeable,Generic)
urlChannels
:: URLChannels
urlChannels =
URLChannels'
{ _ucEtag = Nothing
, _ucNextPageToken = Nothing
, _ucKind = "adexchangeseller#urlChannels"
, _ucItems = Nothing
}
ucEtag :: Lens' URLChannels (Maybe Text)
ucEtag = lens _ucEtag (\ s a -> s{_ucEtag = a})
ucNextPageToken :: Lens' URLChannels (Maybe Text)
ucNextPageToken
= lens _ucNextPageToken
(\ s a -> s{_ucNextPageToken = a})
ucKind :: Lens' URLChannels Text
ucKind = lens _ucKind (\ s a -> s{_ucKind = a})
ucItems :: Lens' URLChannels [URLChannel]
ucItems
= lens _ucItems (\ s a -> s{_ucItems = a}) . _Default
. _Coerce
instance FromJSON URLChannels where
parseJSON
= withObject "URLChannels"
(\ o ->
URLChannels' <$>
(o .:? "etag") <*> (o .:? "nextPageToken") <*>
(o .:? "kind" .!= "adexchangeseller#urlChannels")
<*> (o .:? "items" .!= mempty))
instance ToJSON URLChannels where
toJSON URLChannels'{..}
= object
(catMaybes
[("etag" .=) <$> _ucEtag,
("nextPageToken" .=) <$> _ucNextPageToken,
Just ("kind" .= _ucKind), ("items" .=) <$> _ucItems])
data CustomChannels = CustomChannels'
{ _ccEtag :: !(Maybe Text)
, _ccNextPageToken :: !(Maybe Text)
, _ccKind :: !Text
, _ccItems :: !(Maybe [CustomChannel])
} deriving (Eq,Show,Data,Typeable,Generic)
customChannels
:: CustomChannels
customChannels =
CustomChannels'
{ _ccEtag = Nothing
, _ccNextPageToken = Nothing
, _ccKind = "adexchangeseller#customChannels"
, _ccItems = Nothing
}
ccEtag :: Lens' CustomChannels (Maybe Text)
ccEtag = lens _ccEtag (\ s a -> s{_ccEtag = a})
ccNextPageToken :: Lens' CustomChannels (Maybe Text)
ccNextPageToken
= lens _ccNextPageToken
(\ s a -> s{_ccNextPageToken = a})
ccKind :: Lens' CustomChannels Text
ccKind = lens _ccKind (\ s a -> s{_ccKind = a})
ccItems :: Lens' CustomChannels [CustomChannel]
ccItems
= lens _ccItems (\ s a -> s{_ccItems = a}) . _Default
. _Coerce
instance FromJSON CustomChannels where
parseJSON
= withObject "CustomChannels"
(\ o ->
CustomChannels' <$>
(o .:? "etag") <*> (o .:? "nextPageToken") <*>
(o .:? "kind" .!= "adexchangeseller#customChannels")
<*> (o .:? "items" .!= mempty))
instance ToJSON CustomChannels where
toJSON CustomChannels'{..}
= object
(catMaybes
[("etag" .=) <$> _ccEtag,
("nextPageToken" .=) <$> _ccNextPageToken,
Just ("kind" .= _ccKind), ("items" .=) <$> _ccItems])
data Report = Report'
{ _rKind :: !Text
, _rAverages :: !(Maybe [Text])
, _rWarnings :: !(Maybe [Text])
, _rRows :: !(Maybe [[Text]])
, _rTotals :: !(Maybe [Text])
, _rHeaders :: !(Maybe [ReportHeadersItem])
, _rTotalMatchedRows :: !(Maybe (Textual Int64))
} deriving (Eq,Show,Data,Typeable,Generic)
report
:: Report
report =
Report'
{ _rKind = "adexchangeseller#report"
, _rAverages = Nothing
, _rWarnings = Nothing
, _rRows = Nothing
, _rTotals = Nothing
, _rHeaders = Nothing
, _rTotalMatchedRows = Nothing
}
rKind :: Lens' Report Text
rKind = lens _rKind (\ s a -> s{_rKind = a})
rAverages :: Lens' Report [Text]
rAverages
= lens _rAverages (\ s a -> s{_rAverages = a}) .
_Default
. _Coerce
rWarnings :: Lens' Report [Text]
rWarnings
= lens _rWarnings (\ s a -> s{_rWarnings = a}) .
_Default
. _Coerce
rRows :: Lens' Report [[Text]]
rRows
= lens _rRows (\ s a -> s{_rRows = a}) . _Default .
_Coerce
rTotals :: Lens' Report [Text]
rTotals
= lens _rTotals (\ s a -> s{_rTotals = a}) . _Default
. _Coerce
rHeaders :: Lens' Report [ReportHeadersItem]
rHeaders
= lens _rHeaders (\ s a -> s{_rHeaders = a}) .
_Default
. _Coerce
rTotalMatchedRows :: Lens' Report (Maybe Int64)
rTotalMatchedRows
= lens _rTotalMatchedRows
(\ s a -> s{_rTotalMatchedRows = a})
. mapping _Coerce
instance FromJSON Report where
parseJSON
= withObject "Report"
(\ o ->
Report' <$>
(o .:? "kind" .!= "adexchangeseller#report") <*>
(o .:? "averages" .!= mempty)
<*> (o .:? "warnings" .!= mempty)
<*> (o .:? "rows" .!= mempty)
<*> (o .:? "totals" .!= mempty)
<*> (o .:? "headers" .!= mempty)
<*> (o .:? "totalMatchedRows"))
instance ToJSON Report where
toJSON Report'{..}
= object
(catMaybes
[Just ("kind" .= _rKind),
("averages" .=) <$> _rAverages,
("warnings" .=) <$> _rWarnings,
("rows" .=) <$> _rRows, ("totals" .=) <$> _rTotals,
("headers" .=) <$> _rHeaders,
("totalMatchedRows" .=) <$> _rTotalMatchedRows])
data Alert = Alert'
{ _aaKind :: !Text
, _aaSeverity :: !(Maybe Text)
, _aaId :: !(Maybe Text)
, _aaType :: !(Maybe Text)
, _aaMessage :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
alert
:: Alert
alert =
Alert'
{ _aaKind = "adexchangeseller#alert"
, _aaSeverity = Nothing
, _aaId = Nothing
, _aaType = Nothing
, _aaMessage = Nothing
}
aaKind :: Lens' Alert Text
aaKind = lens _aaKind (\ s a -> s{_aaKind = a})
aaSeverity :: Lens' Alert (Maybe Text)
aaSeverity
= lens _aaSeverity (\ s a -> s{_aaSeverity = a})
aaId :: Lens' Alert (Maybe Text)
aaId = lens _aaId (\ s a -> s{_aaId = a})
aaType :: Lens' Alert (Maybe Text)
aaType = lens _aaType (\ s a -> s{_aaType = a})
aaMessage :: Lens' Alert (Maybe Text)
aaMessage
= lens _aaMessage (\ s a -> s{_aaMessage = a})
instance FromJSON Alert where
parseJSON
= withObject "Alert"
(\ o ->
Alert' <$>
(o .:? "kind" .!= "adexchangeseller#alert") <*>
(o .:? "severity")
<*> (o .:? "id")
<*> (o .:? "type")
<*> (o .:? "message"))
instance ToJSON Alert where
toJSON Alert'{..}
= object
(catMaybes
[Just ("kind" .= _aaKind),
("severity" .=) <$> _aaSeverity, ("id" .=) <$> _aaId,
("type" .=) <$> _aaType,
("message" .=) <$> _aaMessage])
data Account = Account'
{ _accKind :: !Text
, _accName :: !(Maybe Text)
, _accId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
account
:: Account
account =
Account'
{ _accKind = "adexchangeseller#account"
, _accName = Nothing
, _accId = Nothing
}
accKind :: Lens' Account Text
accKind = lens _accKind (\ s a -> s{_accKind = a})
accName :: Lens' Account (Maybe Text)
accName = lens _accName (\ s a -> s{_accName = a})
accId :: Lens' Account (Maybe Text)
accId = lens _accId (\ s a -> s{_accId = a})
instance FromJSON Account where
parseJSON
= withObject "Account"
(\ o ->
Account' <$>
(o .:? "kind" .!= "adexchangeseller#account") <*>
(o .:? "name")
<*> (o .:? "id"))
instance ToJSON Account where
toJSON Account'{..}
= object
(catMaybes
[Just ("kind" .= _accKind), ("name" .=) <$> _accName,
("id" .=) <$> _accId])
data AdClient = AdClient'
{ _adKind :: !Text
, _adArcOptIn :: !(Maybe Bool)
, _adSupportsReporting :: !(Maybe Bool)
, _adId :: !(Maybe Text)
, _adProductCode :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
adClient
:: AdClient
adClient =
AdClient'
{ _adKind = "adexchangeseller#adClient"
, _adArcOptIn = Nothing
, _adSupportsReporting = Nothing
, _adId = Nothing
, _adProductCode = Nothing
}
adKind :: Lens' AdClient Text
adKind = lens _adKind (\ s a -> s{_adKind = a})
adArcOptIn :: Lens' AdClient (Maybe Bool)
adArcOptIn
= lens _adArcOptIn (\ s a -> s{_adArcOptIn = a})
adSupportsReporting :: Lens' AdClient (Maybe Bool)
adSupportsReporting
= lens _adSupportsReporting
(\ s a -> s{_adSupportsReporting = a})
adId :: Lens' AdClient (Maybe Text)
adId = lens _adId (\ s a -> s{_adId = a})
adProductCode :: Lens' AdClient (Maybe Text)
adProductCode
= lens _adProductCode
(\ s a -> s{_adProductCode = a})
instance FromJSON AdClient where
parseJSON
= withObject "AdClient"
(\ o ->
AdClient' <$>
(o .:? "kind" .!= "adexchangeseller#adClient") <*>
(o .:? "arcOptIn")
<*> (o .:? "supportsReporting")
<*> (o .:? "id")
<*> (o .:? "productCode"))
instance ToJSON AdClient where
toJSON AdClient'{..}
= object
(catMaybes
[Just ("kind" .= _adKind),
("arcOptIn" .=) <$> _adArcOptIn,
("supportsReporting" .=) <$> _adSupportsReporting,
("id" .=) <$> _adId,
("productCode" .=) <$> _adProductCode])
data ReportHeadersItem = ReportHeadersItem'
{ _rhiName :: !(Maybe Text)
, _rhiCurrency :: !(Maybe Text)
, _rhiType :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
reportHeadersItem
:: ReportHeadersItem
reportHeadersItem =
ReportHeadersItem'
{ _rhiName = Nothing
, _rhiCurrency = Nothing
, _rhiType = Nothing
}
rhiName :: Lens' ReportHeadersItem (Maybe Text)
rhiName = lens _rhiName (\ s a -> s{_rhiName = a})
rhiCurrency :: Lens' ReportHeadersItem (Maybe Text)
rhiCurrency
= lens _rhiCurrency (\ s a -> s{_rhiCurrency = a})
rhiType :: Lens' ReportHeadersItem (Maybe Text)
rhiType = lens _rhiType (\ s a -> s{_rhiType = a})
instance FromJSON ReportHeadersItem where
parseJSON
= withObject "ReportHeadersItem"
(\ o ->
ReportHeadersItem' <$>
(o .:? "name") <*> (o .:? "currency") <*>
(o .:? "type"))
instance ToJSON ReportHeadersItem where
toJSON ReportHeadersItem'{..}
= object
(catMaybes
[("name" .=) <$> _rhiName,
("currency" .=) <$> _rhiCurrency,
("type" .=) <$> _rhiType])
data CustomChannelTargetingInfo = CustomChannelTargetingInfo'
{ _cctiLocation :: !(Maybe Text)
, _cctiSiteLanguage :: !(Maybe Text)
, _cctiAdsAppearOn :: !(Maybe Text)
, _cctiDescription :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
customChannelTargetingInfo
:: CustomChannelTargetingInfo
customChannelTargetingInfo =
CustomChannelTargetingInfo'
{ _cctiLocation = Nothing
, _cctiSiteLanguage = Nothing
, _cctiAdsAppearOn = Nothing
, _cctiDescription = Nothing
}
cctiLocation :: Lens' CustomChannelTargetingInfo (Maybe Text)
cctiLocation
= lens _cctiLocation (\ s a -> s{_cctiLocation = a})
cctiSiteLanguage :: Lens' CustomChannelTargetingInfo (Maybe Text)
cctiSiteLanguage
= lens _cctiSiteLanguage
(\ s a -> s{_cctiSiteLanguage = a})
cctiAdsAppearOn :: Lens' CustomChannelTargetingInfo (Maybe Text)
cctiAdsAppearOn
= lens _cctiAdsAppearOn
(\ s a -> s{_cctiAdsAppearOn = a})
cctiDescription :: Lens' CustomChannelTargetingInfo (Maybe Text)
cctiDescription
= lens _cctiDescription
(\ s a -> s{_cctiDescription = a})
instance FromJSON CustomChannelTargetingInfo where
parseJSON
= withObject "CustomChannelTargetingInfo"
(\ o ->
CustomChannelTargetingInfo' <$>
(o .:? "location") <*> (o .:? "siteLanguage") <*>
(o .:? "adsAppearOn")
<*> (o .:? "description"))
instance ToJSON CustomChannelTargetingInfo where
toJSON CustomChannelTargetingInfo'{..}
= object
(catMaybes
[("location" .=) <$> _cctiLocation,
("siteLanguage" .=) <$> _cctiSiteLanguage,
("adsAppearOn" .=) <$> _cctiAdsAppearOn,
("description" .=) <$> _cctiDescription])
data PreferredDeals = PreferredDeals'
{ _pdKind :: !Text
, _pdItems :: !(Maybe [PreferredDeal])
} deriving (Eq,Show,Data,Typeable,Generic)
preferredDeals
:: PreferredDeals
preferredDeals =
PreferredDeals'
{ _pdKind = "adexchangeseller#preferredDeals"
, _pdItems = Nothing
}
pdKind :: Lens' PreferredDeals Text
pdKind = lens _pdKind (\ s a -> s{_pdKind = a})
pdItems :: Lens' PreferredDeals [PreferredDeal]
pdItems
= lens _pdItems (\ s a -> s{_pdItems = a}) . _Default
. _Coerce
instance FromJSON PreferredDeals where
parseJSON
= withObject "PreferredDeals"
(\ o ->
PreferredDeals' <$>
(o .:? "kind" .!= "adexchangeseller#preferredDeals")
<*> (o .:? "items" .!= mempty))
instance ToJSON PreferredDeals where
toJSON PreferredDeals'{..}
= object
(catMaybes
[Just ("kind" .= _pdKind),
("items" .=) <$> _pdItems])
data Metadata = Metadata'
{ _mKind :: !Text
, _mItems :: !(Maybe [ReportingMetadataEntry])
} deriving (Eq,Show,Data,Typeable,Generic)
metadata
:: Metadata
metadata =
Metadata'
{ _mKind = "adexchangeseller#metadata"
, _mItems = Nothing
}
mKind :: Lens' Metadata Text
mKind = lens _mKind (\ s a -> s{_mKind = a})
mItems :: Lens' Metadata [ReportingMetadataEntry]
mItems
= lens _mItems (\ s a -> s{_mItems = a}) . _Default .
_Coerce
instance FromJSON Metadata where
parseJSON
= withObject "Metadata"
(\ o ->
Metadata' <$>
(o .:? "kind" .!= "adexchangeseller#metadata") <*>
(o .:? "items" .!= mempty))
instance ToJSON Metadata where
toJSON Metadata'{..}
= object
(catMaybes
[Just ("kind" .= _mKind), ("items" .=) <$> _mItems])
data CustomChannel = CustomChannel'
{ _cTargetingInfo :: !(Maybe CustomChannelTargetingInfo)
, _cKind :: !Text
, _cName :: !(Maybe Text)
, _cCode :: !(Maybe Text)
, _cId :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
customChannel
:: CustomChannel
customChannel =
CustomChannel'
{ _cTargetingInfo = Nothing
, _cKind = "adexchangeseller#customChannel"
, _cName = Nothing
, _cCode = Nothing
, _cId = Nothing
}
cTargetingInfo :: Lens' CustomChannel (Maybe CustomChannelTargetingInfo)
cTargetingInfo
= lens _cTargetingInfo
(\ s a -> s{_cTargetingInfo = a})
cKind :: Lens' CustomChannel Text
cKind = lens _cKind (\ s a -> s{_cKind = a})
cName :: Lens' CustomChannel (Maybe Text)
cName = lens _cName (\ s a -> s{_cName = a})
cCode :: Lens' CustomChannel (Maybe Text)
cCode = lens _cCode (\ s a -> s{_cCode = a})
cId :: Lens' CustomChannel (Maybe Text)
cId = lens _cId (\ s a -> s{_cId = a})
instance FromJSON CustomChannel where
parseJSON
= withObject "CustomChannel"
(\ o ->
CustomChannel' <$>
(o .:? "targetingInfo") <*>
(o .:? "kind" .!= "adexchangeseller#customChannel")
<*> (o .:? "name")
<*> (o .:? "code")
<*> (o .:? "id"))
instance ToJSON CustomChannel where
toJSON CustomChannel'{..}
= object
(catMaybes
[("targetingInfo" .=) <$> _cTargetingInfo,
Just ("kind" .= _cKind), ("name" .=) <$> _cName,
("code" .=) <$> _cCode, ("id" .=) <$> _cId])
data URLChannel = URLChannel'
{ _urlcKind :: !Text
, _urlcId :: !(Maybe Text)
, _urlcURLPattern :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
urlChannel
:: URLChannel
urlChannel =
URLChannel'
{ _urlcKind = "adexchangeseller#urlChannel"
, _urlcId = Nothing
, _urlcURLPattern = Nothing
}
urlcKind :: Lens' URLChannel Text
urlcKind = lens _urlcKind (\ s a -> s{_urlcKind = a})
urlcId :: Lens' URLChannel (Maybe Text)
urlcId = lens _urlcId (\ s a -> s{_urlcId = a})
urlcURLPattern :: Lens' URLChannel (Maybe Text)
urlcURLPattern
= lens _urlcURLPattern
(\ s a -> s{_urlcURLPattern = a})
instance FromJSON URLChannel where
parseJSON
= withObject "URLChannel"
(\ o ->
URLChannel' <$>
(o .:? "kind" .!= "adexchangeseller#urlChannel") <*>
(o .:? "id")
<*> (o .:? "urlPattern"))
instance ToJSON URLChannel where
toJSON URLChannel'{..}
= object
(catMaybes
[Just ("kind" .= _urlcKind), ("id" .=) <$> _urlcId,
("urlPattern" .=) <$> _urlcURLPattern])
data PreferredDeal = PreferredDeal'
{ _pAdvertiserName :: !(Maybe Text)
, _pCurrencyCode :: !(Maybe Text)
, _pStartTime :: !(Maybe (Textual Word64))
, _pKind :: !Text
, _pBuyerNetworkName :: !(Maybe Text)
, _pEndTime :: !(Maybe (Textual Word64))
, _pId :: !(Maybe (Textual Int64))
, _pFixedCpm :: !(Maybe (Textual Int64))
} deriving (Eq,Show,Data,Typeable,Generic)
preferredDeal
:: PreferredDeal
preferredDeal =
PreferredDeal'
{ _pAdvertiserName = Nothing
, _pCurrencyCode = Nothing
, _pStartTime = Nothing
, _pKind = "adexchangeseller#preferredDeal"
, _pBuyerNetworkName = Nothing
, _pEndTime = Nothing
, _pId = Nothing
, _pFixedCpm = Nothing
}
pAdvertiserName :: Lens' PreferredDeal (Maybe Text)
pAdvertiserName
= lens _pAdvertiserName
(\ s a -> s{_pAdvertiserName = a})
pCurrencyCode :: Lens' PreferredDeal (Maybe Text)
pCurrencyCode
= lens _pCurrencyCode
(\ s a -> s{_pCurrencyCode = a})
pStartTime :: Lens' PreferredDeal (Maybe Word64)
pStartTime
= lens _pStartTime (\ s a -> s{_pStartTime = a}) .
mapping _Coerce
pKind :: Lens' PreferredDeal Text
pKind = lens _pKind (\ s a -> s{_pKind = a})
pBuyerNetworkName :: Lens' PreferredDeal (Maybe Text)
pBuyerNetworkName
= lens _pBuyerNetworkName
(\ s a -> s{_pBuyerNetworkName = a})
pEndTime :: Lens' PreferredDeal (Maybe Word64)
pEndTime
= lens _pEndTime (\ s a -> s{_pEndTime = a}) .
mapping _Coerce
pId :: Lens' PreferredDeal (Maybe Int64)
pId
= lens _pId (\ s a -> s{_pId = a}) . mapping _Coerce
pFixedCpm :: Lens' PreferredDeal (Maybe Int64)
pFixedCpm
= lens _pFixedCpm (\ s a -> s{_pFixedCpm = a}) .
mapping _Coerce
instance FromJSON PreferredDeal where
parseJSON
= withObject "PreferredDeal"
(\ o ->
PreferredDeal' <$>
(o .:? "advertiserName") <*> (o .:? "currencyCode")
<*> (o .:? "startTime")
<*>
(o .:? "kind" .!= "adexchangeseller#preferredDeal")
<*> (o .:? "buyerNetworkName")
<*> (o .:? "endTime")
<*> (o .:? "id")
<*> (o .:? "fixedCpm"))
instance ToJSON PreferredDeal where
toJSON PreferredDeal'{..}
= object
(catMaybes
[("advertiserName" .=) <$> _pAdvertiserName,
("currencyCode" .=) <$> _pCurrencyCode,
("startTime" .=) <$> _pStartTime,
Just ("kind" .= _pKind),
("buyerNetworkName" .=) <$> _pBuyerNetworkName,
("endTime" .=) <$> _pEndTime, ("id" .=) <$> _pId,
("fixedCpm" .=) <$> _pFixedCpm])