{-# 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.AdSense.Types.Product where
import Network.Google.AdSense.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 = "adsense#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" .!= "adsense#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 = "adsense#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" .!= "adsense#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 AdsenseReportsGenerateResponseHeadersItem =
AdsenseReportsGenerateResponseHeadersItem'
{ _argrhiName :: !(Maybe Text)
, _argrhiCurrency :: !(Maybe Text)
, _argrhiType :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
adsenseReportsGenerateResponseHeadersItem
:: AdsenseReportsGenerateResponseHeadersItem
adsenseReportsGenerateResponseHeadersItem =
AdsenseReportsGenerateResponseHeadersItem'
{_argrhiName = Nothing, _argrhiCurrency = Nothing, _argrhiType = Nothing}
argrhiName :: Lens' AdsenseReportsGenerateResponseHeadersItem (Maybe Text)
argrhiName
= lens _argrhiName (\ s a -> s{_argrhiName = a})
argrhiCurrency :: Lens' AdsenseReportsGenerateResponseHeadersItem (Maybe Text)
argrhiCurrency
= lens _argrhiCurrency
(\ s a -> s{_argrhiCurrency = a})
argrhiType :: Lens' AdsenseReportsGenerateResponseHeadersItem (Maybe Text)
argrhiType
= lens _argrhiType (\ s a -> s{_argrhiType = a})
instance FromJSON
AdsenseReportsGenerateResponseHeadersItem
where
parseJSON
= withObject
"AdsenseReportsGenerateResponseHeadersItem"
(\ o ->
AdsenseReportsGenerateResponseHeadersItem' <$>
(o .:? "name") <*> (o .:? "currency") <*>
(o .:? "type"))
instance ToJSON
AdsenseReportsGenerateResponseHeadersItem
where
toJSON AdsenseReportsGenerateResponseHeadersItem'{..}
= object
(catMaybes
[("name" .=) <$> _argrhiName,
("currency" .=) <$> _argrhiCurrency,
("type" .=) <$> _argrhiType])
data Payment =
Payment'
{ _pPaymentAmountCurrencyCode :: !(Maybe Text)
, _pKind :: !Text
, _pPaymentDate :: !(Maybe Text)
, _pId :: !(Maybe Text)
, _pPaymentAmount :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
payment
:: Payment
payment =
Payment'
{ _pPaymentAmountCurrencyCode = Nothing
, _pKind = "adsense#payment"
, _pPaymentDate = Nothing
, _pId = Nothing
, _pPaymentAmount = Nothing
}
pPaymentAmountCurrencyCode :: Lens' Payment (Maybe Text)
pPaymentAmountCurrencyCode
= lens _pPaymentAmountCurrencyCode
(\ s a -> s{_pPaymentAmountCurrencyCode = a})
pKind :: Lens' Payment Text
pKind = lens _pKind (\ s a -> s{_pKind = a})
pPaymentDate :: Lens' Payment (Maybe Text)
pPaymentDate
= lens _pPaymentDate (\ s a -> s{_pPaymentDate = a})
pId :: Lens' Payment (Maybe Text)
pId = lens _pId (\ s a -> s{_pId = a})
pPaymentAmount :: Lens' Payment (Maybe Text)
pPaymentAmount
= lens _pPaymentAmount
(\ s a -> s{_pPaymentAmount = a})
instance FromJSON Payment where
parseJSON
= withObject "Payment"
(\ o ->
Payment' <$>
(o .:? "paymentAmountCurrencyCode") <*>
(o .:? "kind" .!= "adsense#payment")
<*> (o .:? "paymentDate")
<*> (o .:? "id")
<*> (o .:? "paymentAmount"))
instance ToJSON Payment where
toJSON Payment'{..}
= object
(catMaybes
[("paymentAmountCurrencyCode" .=) <$>
_pPaymentAmountCurrencyCode,
Just ("kind" .= _pKind),
("paymentDate" .=) <$> _pPaymentDate,
("id" .=) <$> _pId,
("paymentAmount" .=) <$> _pPaymentAmount])
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 = "adsense#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" .!= "adsense#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 = "adsense#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" .!= "adsense#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 = "adsense#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" .!= "adsense#savedReports")
<*> (o .:? "items" .!= mempty))
instance ToJSON SavedReports where
toJSON SavedReports'{..}
= object
(catMaybes
[("etag" .=) <$> _srEtag,
("nextPageToken" .=) <$> _srNextPageToken,
Just ("kind" .= _srKind), ("items" .=) <$> _srItems])
data AdUnits =
AdUnits'
{ _auEtag :: !(Maybe Text)
, _auNextPageToken :: !(Maybe Text)
, _auKind :: !Text
, _auItems :: !(Maybe [AdUnit])
}
deriving (Eq, Show, Data, Typeable, Generic)
adUnits
:: AdUnits
adUnits =
AdUnits'
{ _auEtag = Nothing
, _auNextPageToken = Nothing
, _auKind = "adsense#adUnits"
, _auItems = Nothing
}
auEtag :: Lens' AdUnits (Maybe Text)
auEtag = lens _auEtag (\ s a -> s{_auEtag = a})
auNextPageToken :: Lens' AdUnits (Maybe Text)
auNextPageToken
= lens _auNextPageToken
(\ s a -> s{_auNextPageToken = a})
auKind :: Lens' AdUnits Text
auKind = lens _auKind (\ s a -> s{_auKind = a})
auItems :: Lens' AdUnits [AdUnit]
auItems
= lens _auItems (\ s a -> s{_auItems = a}) . _Default
. _Coerce
instance FromJSON AdUnits where
parseJSON
= withObject "AdUnits"
(\ o ->
AdUnits' <$>
(o .:? "etag") <*> (o .:? "nextPageToken") <*>
(o .:? "kind" .!= "adsense#adUnits")
<*> (o .:? "items" .!= mempty))
instance ToJSON AdUnits where
toJSON AdUnits'{..}
= object
(catMaybes
[("etag" .=) <$> _auEtag,
("nextPageToken" .=) <$> _auNextPageToken,
Just ("kind" .= _auKind), ("items" .=) <$> _auItems])
data SavedReport =
SavedReport'
{ _sKind :: !Text
, _sName :: !(Maybe Text)
, _sId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
savedReport
:: SavedReport
savedReport =
SavedReport'
{_sKind = "adsense#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" .!= "adsense#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 = "adsense#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" .!= "adsense#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 = "adsense#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" .!= "adsense#customChannels")
<*> (o .:? "items" .!= mempty))
instance ToJSON CustomChannels where
toJSON CustomChannels'{..}
= object
(catMaybes
[("etag" .=) <$> _ccEtag,
("nextPageToken" .=) <$> _ccNextPageToken,
Just ("kind" .= _ccKind), ("items" .=) <$> _ccItems])
data AdUnit =
AdUnit'
{ _auuStatus :: !(Maybe Text)
, _auuMobileContentAdsSettings :: !(Maybe AdUnitMobileContentAdsSettings)
, _auuKind :: !Text
, _auuFeedAdsSettings :: !(Maybe AdUnitFeedAdsSettings)
, _auuCustomStyle :: !(Maybe AdStyle)
, _auuSavedStyleId :: !(Maybe Text)
, _auuName :: !(Maybe Text)
, _auuContentAdsSettings :: !(Maybe AdUnitContentAdsSettings)
, _auuCode :: !(Maybe Text)
, _auuId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
adUnit
:: AdUnit
adUnit =
AdUnit'
{ _auuStatus = Nothing
, _auuMobileContentAdsSettings = Nothing
, _auuKind = "adsense#adUnit"
, _auuFeedAdsSettings = Nothing
, _auuCustomStyle = Nothing
, _auuSavedStyleId = Nothing
, _auuName = Nothing
, _auuContentAdsSettings = Nothing
, _auuCode = Nothing
, _auuId = Nothing
}
auuStatus :: Lens' AdUnit (Maybe Text)
auuStatus
= lens _auuStatus (\ s a -> s{_auuStatus = a})
auuMobileContentAdsSettings :: Lens' AdUnit (Maybe AdUnitMobileContentAdsSettings)
auuMobileContentAdsSettings
= lens _auuMobileContentAdsSettings
(\ s a -> s{_auuMobileContentAdsSettings = a})
auuKind :: Lens' AdUnit Text
auuKind = lens _auuKind (\ s a -> s{_auuKind = a})
auuFeedAdsSettings :: Lens' AdUnit (Maybe AdUnitFeedAdsSettings)
auuFeedAdsSettings
= lens _auuFeedAdsSettings
(\ s a -> s{_auuFeedAdsSettings = a})
auuCustomStyle :: Lens' AdUnit (Maybe AdStyle)
auuCustomStyle
= lens _auuCustomStyle
(\ s a -> s{_auuCustomStyle = a})
auuSavedStyleId :: Lens' AdUnit (Maybe Text)
auuSavedStyleId
= lens _auuSavedStyleId
(\ s a -> s{_auuSavedStyleId = a})
auuName :: Lens' AdUnit (Maybe Text)
auuName = lens _auuName (\ s a -> s{_auuName = a})
auuContentAdsSettings :: Lens' AdUnit (Maybe AdUnitContentAdsSettings)
auuContentAdsSettings
= lens _auuContentAdsSettings
(\ s a -> s{_auuContentAdsSettings = a})
auuCode :: Lens' AdUnit (Maybe Text)
auuCode = lens _auuCode (\ s a -> s{_auuCode = a})
auuId :: Lens' AdUnit (Maybe Text)
auuId = lens _auuId (\ s a -> s{_auuId = a})
instance FromJSON AdUnit where
parseJSON
= withObject "AdUnit"
(\ o ->
AdUnit' <$>
(o .:? "status") <*>
(o .:? "mobileContentAdsSettings")
<*> (o .:? "kind" .!= "adsense#adUnit")
<*> (o .:? "feedAdsSettings")
<*> (o .:? "customStyle")
<*> (o .:? "savedStyleId")
<*> (o .:? "name")
<*> (o .:? "contentAdsSettings")
<*> (o .:? "code")
<*> (o .:? "id"))
instance ToJSON AdUnit where
toJSON AdUnit'{..}
= object
(catMaybes
[("status" .=) <$> _auuStatus,
("mobileContentAdsSettings" .=) <$>
_auuMobileContentAdsSettings,
Just ("kind" .= _auuKind),
("feedAdsSettings" .=) <$> _auuFeedAdsSettings,
("customStyle" .=) <$> _auuCustomStyle,
("savedStyleId" .=) <$> _auuSavedStyleId,
("name" .=) <$> _auuName,
("contentAdsSettings" .=) <$> _auuContentAdsSettings,
("code" .=) <$> _auuCode, ("id" .=) <$> _auuId])
data Alert =
Alert'
{ _aaIsDismissible :: !(Maybe Bool)
, _aaKind :: !Text
, _aaSeverity :: !(Maybe Text)
, _aaId :: !(Maybe Text)
, _aaType :: !(Maybe Text)
, _aaMessage :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
alert
:: Alert
alert =
Alert'
{ _aaIsDismissible = Nothing
, _aaKind = "adsense#alert"
, _aaSeverity = Nothing
, _aaId = Nothing
, _aaType = Nothing
, _aaMessage = Nothing
}
aaIsDismissible :: Lens' Alert (Maybe Bool)
aaIsDismissible
= lens _aaIsDismissible
(\ s a -> s{_aaIsDismissible = a})
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 .:? "isDismissible") <*>
(o .:? "kind" .!= "adsense#alert")
<*> (o .:? "severity")
<*> (o .:? "id")
<*> (o .:? "type")
<*> (o .:? "message"))
instance ToJSON Alert where
toJSON Alert'{..}
= object
(catMaybes
[("isDismissible" .=) <$> _aaIsDismissible,
Just ("kind" .= _aaKind),
("severity" .=) <$> _aaSeverity, ("id" .=) <$> _aaId,
("type" .=) <$> _aaType,
("message" .=) <$> _aaMessage])
data AdStyleFont =
AdStyleFont'
{ _asfSize :: !(Maybe Text)
, _asfFamily :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
adStyleFont
:: AdStyleFont
adStyleFont = AdStyleFont' {_asfSize = Nothing, _asfFamily = Nothing}
asfSize :: Lens' AdStyleFont (Maybe Text)
asfSize = lens _asfSize (\ s a -> s{_asfSize = a})
asfFamily :: Lens' AdStyleFont (Maybe Text)
asfFamily
= lens _asfFamily (\ s a -> s{_asfFamily = a})
instance FromJSON AdStyleFont where
parseJSON
= withObject "AdStyleFont"
(\ o ->
AdStyleFont' <$> (o .:? "size") <*> (o .:? "family"))
instance ToJSON AdStyleFont where
toJSON AdStyleFont'{..}
= object
(catMaybes
[("size" .=) <$> _asfSize,
("family" .=) <$> _asfFamily])
data Account =
Account'
{ _accKind :: !Text
, _accCreationTime :: !(Maybe (Textual Int64))
, _accPremium :: !(Maybe Bool)
, _accName :: !(Maybe Text)
, _accId :: !(Maybe Text)
, _accTimezone :: !(Maybe Text)
, _accSubAccounts :: !(Maybe [Account])
}
deriving (Eq, Show, Data, Typeable, Generic)
account
:: Account
account =
Account'
{ _accKind = "adsense#account"
, _accCreationTime = Nothing
, _accPremium = Nothing
, _accName = Nothing
, _accId = Nothing
, _accTimezone = Nothing
, _accSubAccounts = Nothing
}
accKind :: Lens' Account Text
accKind = lens _accKind (\ s a -> s{_accKind = a})
accCreationTime :: Lens' Account (Maybe Int64)
accCreationTime
= lens _accCreationTime
(\ s a -> s{_accCreationTime = a})
. mapping _Coerce
accPremium :: Lens' Account (Maybe Bool)
accPremium
= lens _accPremium (\ s a -> s{_accPremium = 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})
accTimezone :: Lens' Account (Maybe Text)
accTimezone
= lens _accTimezone (\ s a -> s{_accTimezone = a})
accSubAccounts :: Lens' Account [Account]
accSubAccounts
= lens _accSubAccounts
(\ s a -> s{_accSubAccounts = a})
. _Default
. _Coerce
instance FromJSON Account where
parseJSON
= withObject "Account"
(\ o ->
Account' <$>
(o .:? "kind" .!= "adsense#account") <*>
(o .:? "creation_time")
<*> (o .:? "premium")
<*> (o .:? "name")
<*> (o .:? "id")
<*> (o .:? "timezone")
<*> (o .:? "subAccounts" .!= mempty))
instance ToJSON Account where
toJSON Account'{..}
= object
(catMaybes
[Just ("kind" .= _accKind),
("creation_time" .=) <$> _accCreationTime,
("premium" .=) <$> _accPremium,
("name" .=) <$> _accName, ("id" .=) <$> _accId,
("timezone" .=) <$> _accTimezone,
("subAccounts" .=) <$> _accSubAccounts])
data AdUnitMobileContentAdsSettings =
AdUnitMobileContentAdsSettings'
{ _aumcasSize :: !(Maybe Text)
, _aumcasScriptingLanguage :: !(Maybe Text)
, _aumcasMarkupLanguage :: !(Maybe Text)
, _aumcasType :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
adUnitMobileContentAdsSettings
:: AdUnitMobileContentAdsSettings
adUnitMobileContentAdsSettings =
AdUnitMobileContentAdsSettings'
{ _aumcasSize = Nothing
, _aumcasScriptingLanguage = Nothing
, _aumcasMarkupLanguage = Nothing
, _aumcasType = Nothing
}
aumcasSize :: Lens' AdUnitMobileContentAdsSettings (Maybe Text)
aumcasSize
= lens _aumcasSize (\ s a -> s{_aumcasSize = a})
aumcasScriptingLanguage :: Lens' AdUnitMobileContentAdsSettings (Maybe Text)
aumcasScriptingLanguage
= lens _aumcasScriptingLanguage
(\ s a -> s{_aumcasScriptingLanguage = a})
aumcasMarkupLanguage :: Lens' AdUnitMobileContentAdsSettings (Maybe Text)
aumcasMarkupLanguage
= lens _aumcasMarkupLanguage
(\ s a -> s{_aumcasMarkupLanguage = a})
aumcasType :: Lens' AdUnitMobileContentAdsSettings (Maybe Text)
aumcasType
= lens _aumcasType (\ s a -> s{_aumcasType = a})
instance FromJSON AdUnitMobileContentAdsSettings
where
parseJSON
= withObject "AdUnitMobileContentAdsSettings"
(\ o ->
AdUnitMobileContentAdsSettings' <$>
(o .:? "size") <*> (o .:? "scriptingLanguage") <*>
(o .:? "markupLanguage")
<*> (o .:? "type"))
instance ToJSON AdUnitMobileContentAdsSettings where
toJSON AdUnitMobileContentAdsSettings'{..}
= object
(catMaybes
[("size" .=) <$> _aumcasSize,
("scriptingLanguage" .=) <$>
_aumcasScriptingLanguage,
("markupLanguage" .=) <$> _aumcasMarkupLanguage,
("type" .=) <$> _aumcasType])
data SavedAdStyles =
SavedAdStyles'
{ _sasEtag :: !(Maybe Text)
, _sasNextPageToken :: !(Maybe Text)
, _sasKind :: !Text
, _sasItems :: !(Maybe [SavedAdStyle])
}
deriving (Eq, Show, Data, Typeable, Generic)
savedAdStyles
:: SavedAdStyles
savedAdStyles =
SavedAdStyles'
{ _sasEtag = Nothing
, _sasNextPageToken = Nothing
, _sasKind = "adsense#savedAdStyles"
, _sasItems = Nothing
}
sasEtag :: Lens' SavedAdStyles (Maybe Text)
sasEtag = lens _sasEtag (\ s a -> s{_sasEtag = a})
sasNextPageToken :: Lens' SavedAdStyles (Maybe Text)
sasNextPageToken
= lens _sasNextPageToken
(\ s a -> s{_sasNextPageToken = a})
sasKind :: Lens' SavedAdStyles Text
sasKind = lens _sasKind (\ s a -> s{_sasKind = a})
sasItems :: Lens' SavedAdStyles [SavedAdStyle]
sasItems
= lens _sasItems (\ s a -> s{_sasItems = a}) .
_Default
. _Coerce
instance FromJSON SavedAdStyles where
parseJSON
= withObject "SavedAdStyles"
(\ o ->
SavedAdStyles' <$>
(o .:? "etag") <*> (o .:? "nextPageToken") <*>
(o .:? "kind" .!= "adsense#savedAdStyles")
<*> (o .:? "items" .!= mempty))
instance ToJSON SavedAdStyles where
toJSON SavedAdStyles'{..}
= object
(catMaybes
[("etag" .=) <$> _sasEtag,
("nextPageToken" .=) <$> _sasNextPageToken,
Just ("kind" .= _sasKind),
("items" .=) <$> _sasItems])
data AdStyleColors =
AdStyleColors'
{ _ascText :: !(Maybe Text)
, _ascURL :: !(Maybe Text)
, _ascBOrder :: !(Maybe Text)
, _ascTitle :: !(Maybe Text)
, _ascBackgRound :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
adStyleColors
:: AdStyleColors
adStyleColors =
AdStyleColors'
{ _ascText = Nothing
, _ascURL = Nothing
, _ascBOrder = Nothing
, _ascTitle = Nothing
, _ascBackgRound = Nothing
}
ascText :: Lens' AdStyleColors (Maybe Text)
ascText = lens _ascText (\ s a -> s{_ascText = a})
ascURL :: Lens' AdStyleColors (Maybe Text)
ascURL = lens _ascURL (\ s a -> s{_ascURL = a})
ascBOrder :: Lens' AdStyleColors (Maybe Text)
ascBOrder
= lens _ascBOrder (\ s a -> s{_ascBOrder = a})
ascTitle :: Lens' AdStyleColors (Maybe Text)
ascTitle = lens _ascTitle (\ s a -> s{_ascTitle = a})
ascBackgRound :: Lens' AdStyleColors (Maybe Text)
ascBackgRound
= lens _ascBackgRound
(\ s a -> s{_ascBackgRound = a})
instance FromJSON AdStyleColors where
parseJSON
= withObject "AdStyleColors"
(\ o ->
AdStyleColors' <$>
(o .:? "text") <*> (o .:? "url") <*> (o .:? "border")
<*> (o .:? "title")
<*> (o .:? "background"))
instance ToJSON AdStyleColors where
toJSON AdStyleColors'{..}
= object
(catMaybes
[("text" .=) <$> _ascText, ("url" .=) <$> _ascURL,
("border" .=) <$> _ascBOrder,
("title" .=) <$> _ascTitle,
("background" .=) <$> _ascBackgRound])
data AdUnitContentAdsSettingsBackupOption =
AdUnitContentAdsSettingsBackupOption'
{ _aucasboColor :: !(Maybe Text)
, _aucasboURL :: !(Maybe Text)
, _aucasboType :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
adUnitContentAdsSettingsBackupOption
:: AdUnitContentAdsSettingsBackupOption
adUnitContentAdsSettingsBackupOption =
AdUnitContentAdsSettingsBackupOption'
{_aucasboColor = Nothing, _aucasboURL = Nothing, _aucasboType = Nothing}
aucasboColor :: Lens' AdUnitContentAdsSettingsBackupOption (Maybe Text)
aucasboColor
= lens _aucasboColor (\ s a -> s{_aucasboColor = a})
aucasboURL :: Lens' AdUnitContentAdsSettingsBackupOption (Maybe Text)
aucasboURL
= lens _aucasboURL (\ s a -> s{_aucasboURL = a})
aucasboType :: Lens' AdUnitContentAdsSettingsBackupOption (Maybe Text)
aucasboType
= lens _aucasboType (\ s a -> s{_aucasboType = a})
instance FromJSON
AdUnitContentAdsSettingsBackupOption
where
parseJSON
= withObject "AdUnitContentAdsSettingsBackupOption"
(\ o ->
AdUnitContentAdsSettingsBackupOption' <$>
(o .:? "color") <*> (o .:? "url") <*> (o .:? "type"))
instance ToJSON AdUnitContentAdsSettingsBackupOption
where
toJSON AdUnitContentAdsSettingsBackupOption'{..}
= object
(catMaybes
[("color" .=) <$> _aucasboColor,
("url" .=) <$> _aucasboURL,
("type" .=) <$> _aucasboType])
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 = "adsense#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" .!= "adsense#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 SavedAdStyle =
SavedAdStyle'
{ _savKind :: !Text
, _savName :: !(Maybe Text)
, _savAdStyle :: !(Maybe AdStyle)
, _savId :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
savedAdStyle
:: SavedAdStyle
savedAdStyle =
SavedAdStyle'
{ _savKind = "adsense#savedAdStyle"
, _savName = Nothing
, _savAdStyle = Nothing
, _savId = Nothing
}
savKind :: Lens' SavedAdStyle Text
savKind = lens _savKind (\ s a -> s{_savKind = a})
savName :: Lens' SavedAdStyle (Maybe Text)
savName = lens _savName (\ s a -> s{_savName = a})
savAdStyle :: Lens' SavedAdStyle (Maybe AdStyle)
savAdStyle
= lens _savAdStyle (\ s a -> s{_savAdStyle = a})
savId :: Lens' SavedAdStyle (Maybe Text)
savId = lens _savId (\ s a -> s{_savId = a})
instance FromJSON SavedAdStyle where
parseJSON
= withObject "SavedAdStyle"
(\ o ->
SavedAdStyle' <$>
(o .:? "kind" .!= "adsense#savedAdStyle") <*>
(o .:? "name")
<*> (o .:? "adStyle")
<*> (o .:? "id"))
instance ToJSON SavedAdStyle where
toJSON SavedAdStyle'{..}
= object
(catMaybes
[Just ("kind" .= _savKind), ("name" .=) <$> _savName,
("adStyle" .=) <$> _savAdStyle,
("id" .=) <$> _savId])
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 AdStyle =
AdStyle'
{ _asCorners :: !(Maybe Text)
, _asKind :: !Text
, _asFont :: !(Maybe AdStyleFont)
, _asColors :: !(Maybe AdStyleColors)
}
deriving (Eq, Show, Data, Typeable, Generic)
adStyle
:: AdStyle
adStyle =
AdStyle'
{ _asCorners = Nothing
, _asKind = "adsense#adStyle"
, _asFont = Nothing
, _asColors = Nothing
}
asCorners :: Lens' AdStyle (Maybe Text)
asCorners
= lens _asCorners (\ s a -> s{_asCorners = a})
asKind :: Lens' AdStyle Text
asKind = lens _asKind (\ s a -> s{_asKind = a})
asFont :: Lens' AdStyle (Maybe AdStyleFont)
asFont = lens _asFont (\ s a -> s{_asFont = a})
asColors :: Lens' AdStyle (Maybe AdStyleColors)
asColors = lens _asColors (\ s a -> s{_asColors = a})
instance FromJSON AdStyle where
parseJSON
= withObject "AdStyle"
(\ o ->
AdStyle' <$>
(o .:? "corners") <*>
(o .:? "kind" .!= "adsense#adStyle")
<*> (o .:? "font")
<*> (o .:? "colors"))
instance ToJSON AdStyle where
toJSON AdStyle'{..}
= object
(catMaybes
[("corners" .=) <$> _asCorners,
Just ("kind" .= _asKind), ("font" .=) <$> _asFont,
("colors" .=) <$> _asColors])
data AdUnitFeedAdsSettings =
AdUnitFeedAdsSettings'
{ _aufasFrequency :: !(Maybe (Textual Int32))
, _aufasAdPosition :: !(Maybe Text)
, _aufasType :: !(Maybe Text)
, _aufasMinimumWordCount :: !(Maybe (Textual Int32))
}
deriving (Eq, Show, Data, Typeable, Generic)
adUnitFeedAdsSettings
:: AdUnitFeedAdsSettings
adUnitFeedAdsSettings =
AdUnitFeedAdsSettings'
{ _aufasFrequency = Nothing
, _aufasAdPosition = Nothing
, _aufasType = Nothing
, _aufasMinimumWordCount = Nothing
}
aufasFrequency :: Lens' AdUnitFeedAdsSettings (Maybe Int32)
aufasFrequency
= lens _aufasFrequency
(\ s a -> s{_aufasFrequency = a})
. mapping _Coerce
aufasAdPosition :: Lens' AdUnitFeedAdsSettings (Maybe Text)
aufasAdPosition
= lens _aufasAdPosition
(\ s a -> s{_aufasAdPosition = a})
aufasType :: Lens' AdUnitFeedAdsSettings (Maybe Text)
aufasType
= lens _aufasType (\ s a -> s{_aufasType = a})
aufasMinimumWordCount :: Lens' AdUnitFeedAdsSettings (Maybe Int32)
aufasMinimumWordCount
= lens _aufasMinimumWordCount
(\ s a -> s{_aufasMinimumWordCount = a})
. mapping _Coerce
instance FromJSON AdUnitFeedAdsSettings where
parseJSON
= withObject "AdUnitFeedAdsSettings"
(\ o ->
AdUnitFeedAdsSettings' <$>
(o .:? "frequency") <*> (o .:? "adPosition") <*>
(o .:? "type")
<*> (o .:? "minimumWordCount"))
instance ToJSON AdUnitFeedAdsSettings where
toJSON AdUnitFeedAdsSettings'{..}
= object
(catMaybes
[("frequency" .=) <$> _aufasFrequency,
("adPosition" .=) <$> _aufasAdPosition,
("type" .=) <$> _aufasType,
("minimumWordCount" .=) <$> _aufasMinimumWordCount])
data Metadata =
Metadata'
{ _mKind :: !Text
, _mItems :: !(Maybe [ReportingMetadataEntry])
}
deriving (Eq, Show, Data, Typeable, Generic)
metadata
:: Metadata
metadata = Metadata' {_mKind = "adsense#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" .!= "adsense#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 = "adsense#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" .!= "adsense#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 = "adsense#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" .!= "adsense#urlChannel") <*>
(o .:? "id")
<*> (o .:? "urlPattern"))
instance ToJSON URLChannel where
toJSON URLChannel'{..}
= object
(catMaybes
[Just ("kind" .= _urlcKind), ("id" .=) <$> _urlcId,
("urlPattern" .=) <$> _urlcURLPattern])
data AdCode =
AdCode'
{ _addKind :: !Text
, _addAmpHead :: !(Maybe Text)
, _addAmpBody :: !(Maybe Text)
, _addAdCode :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
adCode
:: AdCode
adCode =
AdCode'
{ _addKind = "adsense#adCode"
, _addAmpHead = Nothing
, _addAmpBody = Nothing
, _addAdCode = Nothing
}
addKind :: Lens' AdCode Text
addKind = lens _addKind (\ s a -> s{_addKind = a})
addAmpHead :: Lens' AdCode (Maybe Text)
addAmpHead
= lens _addAmpHead (\ s a -> s{_addAmpHead = a})
addAmpBody :: Lens' AdCode (Maybe Text)
addAmpBody
= lens _addAmpBody (\ s a -> s{_addAmpBody = a})
addAdCode :: Lens' AdCode (Maybe Text)
addAdCode
= lens _addAdCode (\ s a -> s{_addAdCode = a})
instance FromJSON AdCode where
parseJSON
= withObject "AdCode"
(\ o ->
AdCode' <$>
(o .:? "kind" .!= "adsense#adCode") <*>
(o .:? "ampHead")
<*> (o .:? "ampBody")
<*> (o .:? "adCode"))
instance ToJSON AdCode where
toJSON AdCode'{..}
= object
(catMaybes
[Just ("kind" .= _addKind),
("ampHead" .=) <$> _addAmpHead,
("ampBody" .=) <$> _addAmpBody,
("adCode" .=) <$> _addAdCode])
data AdsenseReportsGenerateResponse =
AdsenseReportsGenerateResponse'
{ _argrKind :: !Text
, _argrAverages :: !(Maybe [Text])
, _argrEndDate :: !(Maybe Text)
, _argrWarnings :: !(Maybe [Text])
, _argrRows :: !(Maybe [[Text]])
, _argrTotals :: !(Maybe [Text])
, _argrStartDate :: !(Maybe Text)
, _argrHeaders :: !(Maybe [AdsenseReportsGenerateResponseHeadersItem])
, _argrTotalMatchedRows :: !(Maybe (Textual Int64))
}
deriving (Eq, Show, Data, Typeable, Generic)
adsenseReportsGenerateResponse
:: AdsenseReportsGenerateResponse
adsenseReportsGenerateResponse =
AdsenseReportsGenerateResponse'
{ _argrKind = "adsense#report"
, _argrAverages = Nothing
, _argrEndDate = Nothing
, _argrWarnings = Nothing
, _argrRows = Nothing
, _argrTotals = Nothing
, _argrStartDate = Nothing
, _argrHeaders = Nothing
, _argrTotalMatchedRows = Nothing
}
argrKind :: Lens' AdsenseReportsGenerateResponse Text
argrKind = lens _argrKind (\ s a -> s{_argrKind = a})
argrAverages :: Lens' AdsenseReportsGenerateResponse [Text]
argrAverages
= lens _argrAverages (\ s a -> s{_argrAverages = a})
. _Default
. _Coerce
argrEndDate :: Lens' AdsenseReportsGenerateResponse (Maybe Text)
argrEndDate
= lens _argrEndDate (\ s a -> s{_argrEndDate = a})
argrWarnings :: Lens' AdsenseReportsGenerateResponse [Text]
argrWarnings
= lens _argrWarnings (\ s a -> s{_argrWarnings = a})
. _Default
. _Coerce
argrRows :: Lens' AdsenseReportsGenerateResponse [[Text]]
argrRows
= lens _argrRows (\ s a -> s{_argrRows = a}) .
_Default
. _Coerce
argrTotals :: Lens' AdsenseReportsGenerateResponse [Text]
argrTotals
= lens _argrTotals (\ s a -> s{_argrTotals = a}) .
_Default
. _Coerce
argrStartDate :: Lens' AdsenseReportsGenerateResponse (Maybe Text)
argrStartDate
= lens _argrStartDate
(\ s a -> s{_argrStartDate = a})
argrHeaders :: Lens' AdsenseReportsGenerateResponse [AdsenseReportsGenerateResponseHeadersItem]
argrHeaders
= lens _argrHeaders (\ s a -> s{_argrHeaders = a}) .
_Default
. _Coerce
argrTotalMatchedRows :: Lens' AdsenseReportsGenerateResponse (Maybe Int64)
argrTotalMatchedRows
= lens _argrTotalMatchedRows
(\ s a -> s{_argrTotalMatchedRows = a})
. mapping _Coerce
instance FromJSON AdsenseReportsGenerateResponse
where
parseJSON
= withObject "AdsenseReportsGenerateResponse"
(\ o ->
AdsenseReportsGenerateResponse' <$>
(o .:? "kind" .!= "adsense#report") <*>
(o .:? "averages" .!= mempty)
<*> (o .:? "endDate")
<*> (o .:? "warnings" .!= mempty)
<*> (o .:? "rows" .!= mempty)
<*> (o .:? "totals" .!= mempty)
<*> (o .:? "startDate")
<*> (o .:? "headers" .!= mempty)
<*> (o .:? "totalMatchedRows"))
instance ToJSON AdsenseReportsGenerateResponse where
toJSON AdsenseReportsGenerateResponse'{..}
= object
(catMaybes
[Just ("kind" .= _argrKind),
("averages" .=) <$> _argrAverages,
("endDate" .=) <$> _argrEndDate,
("warnings" .=) <$> _argrWarnings,
("rows" .=) <$> _argrRows,
("totals" .=) <$> _argrTotals,
("startDate" .=) <$> _argrStartDate,
("headers" .=) <$> _argrHeaders,
("totalMatchedRows" .=) <$> _argrTotalMatchedRows])
data AdUnitContentAdsSettings =
AdUnitContentAdsSettings'
{ _aucasBackupOption :: !(Maybe AdUnitContentAdsSettingsBackupOption)
, _aucasSize :: !(Maybe Text)
, _aucasType :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
adUnitContentAdsSettings
:: AdUnitContentAdsSettings
adUnitContentAdsSettings =
AdUnitContentAdsSettings'
{_aucasBackupOption = Nothing, _aucasSize = Nothing, _aucasType = Nothing}
aucasBackupOption :: Lens' AdUnitContentAdsSettings (Maybe AdUnitContentAdsSettingsBackupOption)
aucasBackupOption
= lens _aucasBackupOption
(\ s a -> s{_aucasBackupOption = a})
aucasSize :: Lens' AdUnitContentAdsSettings (Maybe Text)
aucasSize
= lens _aucasSize (\ s a -> s{_aucasSize = a})
aucasType :: Lens' AdUnitContentAdsSettings (Maybe Text)
aucasType
= lens _aucasType (\ s a -> s{_aucasType = a})
instance FromJSON AdUnitContentAdsSettings where
parseJSON
= withObject "AdUnitContentAdsSettings"
(\ o ->
AdUnitContentAdsSettings' <$>
(o .:? "backupOption") <*> (o .:? "size") <*>
(o .:? "type"))
instance ToJSON AdUnitContentAdsSettings where
toJSON AdUnitContentAdsSettings'{..}
= object
(catMaybes
[("backupOption" .=) <$> _aucasBackupOption,
("size" .=) <$> _aucasSize,
("type" .=) <$> _aucasType])
data Payments =
Payments'
{ _payKind :: !Text
, _payItems :: !(Maybe [Payment])
}
deriving (Eq, Show, Data, Typeable, Generic)
payments
:: Payments
payments = Payments' {_payKind = "adsense#payments", _payItems = Nothing}
payKind :: Lens' Payments Text
payKind = lens _payKind (\ s a -> s{_payKind = a})
payItems :: Lens' Payments [Payment]
payItems
= lens _payItems (\ s a -> s{_payItems = a}) .
_Default
. _Coerce
instance FromJSON Payments where
parseJSON
= withObject "Payments"
(\ o ->
Payments' <$>
(o .:? "kind" .!= "adsense#payments") <*>
(o .:? "items" .!= mempty))
instance ToJSON Payments where
toJSON Payments'{..}
= object
(catMaybes
[Just ("kind" .= _payKind),
("items" .=) <$> _payItems])