diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`0.0.1` +`0.1.0` ## Description @@ -18,9 +18,9 @@ ## Contribute -For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/amazonka/issues). +For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues). -> _Note:_ this library is an auto-generated Haskell package. Please see `amazonka-gen` for more information. +> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information. ## Licence diff --git a/gen/Network/Google/AdSense.hs b/gen/Network/Google/AdSense.hs --- a/gen/Network/Google/AdSense.hs +++ b/gen/Network/Google/AdSense.hs @@ -7,14 +7,14 @@ -- | -- Module : Network.Google.AdSense --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Gives AdSense publishers access to their inventory and the ability to --- generate reports +-- Accesses AdSense publishers\' inventory and generates performance +-- reports. -- -- /See:/ module Network.Google.AdSense @@ -22,6 +22,10 @@ -- * Service Configuration adSenseService + -- * OAuth Scopes + , adSenseReadOnlyScope + , adSenseScope + -- * API Declaration , AdSenseAPI @@ -312,7 +316,6 @@ , adSupportsReporting , adId , adProductCode - , adArcReviewMode -- ** SavedAdStyle , SavedAdStyle diff --git a/gen/Network/Google/AdSense/Types.hs b/gen/Network/Google/AdSense/Types.hs --- a/gen/Network/Google/AdSense/Types.hs +++ b/gen/Network/Google/AdSense/Types.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE NoImplicitPrelude #-} @@ -7,7 +8,7 @@ -- | -- Module : Network.Google.AdSense.Types --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -19,8 +20,8 @@ adSenseService -- * OAuth Scopes - , adsenseReadonlyScope - , adsenseScope + , adSenseReadOnlyScope + , adSenseScope -- * AdClients , AdClients @@ -191,7 +192,6 @@ , adSupportsReporting , adId , adProductCode - , adArcReviewMode -- * SavedAdStyle , SavedAdStyle @@ -285,15 +285,15 @@ import Network.Google.Prelude -- | Default request referring to version 'v1.4' of the AdSense Management API. This contains the host and root path used as a starting point for constructing service requests. -adSenseService :: Service +adSenseService :: ServiceConfig adSenseService = defaultService (ServiceId "adsense:v1.4") "www.googleapis.com" -- | View your AdSense data -adsenseReadonlyScope :: OAuthScope -adsenseReadonlyScope = "https://www.googleapis.com/auth/adsense.readonly"; +adSenseReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/adsense.readonly"] +adSenseReadOnlyScope = Proxy; -- | View and manage your AdSense data -adsenseScope :: OAuthScope -adsenseScope = "https://www.googleapis.com/auth/adsense"; +adSenseScope :: Proxy '["https://www.googleapis.com/auth/adsense"] +adSenseScope = Proxy; diff --git a/gen/Network/Google/AdSense/Types/Product.hs b/gen/Network/Google/AdSense/Types/Product.hs --- a/gen/Network/Google/AdSense/Types/Product.hs +++ b/gen/Network/Google/AdSense/Types/Product.hs @@ -9,7 +9,7 @@ -- | -- Module : Network.Google.AdSense.Types.Product --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -22,7 +22,7 @@ -- -- /See:/ 'adClients' smart constructor. -data AdClients = AdClients +data AdClients = AdClients' { _acEtag :: !(Maybe Text) , _acNextPageToken :: !(Maybe Text) , _acKind :: !Text @@ -43,7 +43,7 @@ adClients :: AdClients adClients = - AdClients + AdClients' { _acEtag = Nothing , _acNextPageToken = Nothing , _acKind = "adsense#adClients" @@ -75,13 +75,13 @@ parseJSON = withObject "AdClients" (\ o -> - AdClients <$> + AdClients' <$> (o .:? "etag") <*> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "adsense#adClients") <*> (o .:? "items" .!= mempty)) instance ToJSON AdClients where - toJSON AdClients{..} + toJSON AdClients'{..} = object (catMaybes [("etag" .=) <$> _acEtag, @@ -90,7 +90,7 @@ -- -- /See:/ 'reportingMetadataEntry' smart constructor. -data ReportingMetadataEntry = ReportingMetadataEntry +data ReportingMetadataEntry = ReportingMetadataEntry' { _rmeKind :: !Text , _rmeRequiredMetrics :: !(Maybe [Text]) , _rmeCompatibleMetrics :: !(Maybe [Text]) @@ -120,7 +120,7 @@ reportingMetadataEntry :: ReportingMetadataEntry reportingMetadataEntry = - ReportingMetadataEntry + ReportingMetadataEntry' { _rmeKind = "adsense#reportingMetadataEntry" , _rmeRequiredMetrics = Nothing , _rmeCompatibleMetrics = Nothing @@ -193,7 +193,7 @@ parseJSON = withObject "ReportingMetadataEntry" (\ o -> - ReportingMetadataEntry <$> + ReportingMetadataEntry' <$> (o .:? "kind" .!= "adsense#reportingMetadataEntry") <*> (o .:? "requiredMetrics" .!= mempty) <*> (o .:? "compatibleMetrics" .!= mempty) @@ -203,7 +203,7 @@ <*> (o .:? "supportedProducts" .!= mempty)) instance ToJSON ReportingMetadataEntry where - toJSON ReportingMetadataEntry{..} + toJSON ReportingMetadataEntry'{..} = object (catMaybes [Just ("kind" .= _rmeKind), @@ -217,7 +217,7 @@ -- -- /See:/ 'adsenseReportsGenerateResponseHeadersItem' smart constructor. -data AdsenseReportsGenerateResponseHeadersItem = AdsenseReportsGenerateResponseHeadersItem +data AdsenseReportsGenerateResponseHeadersItem = AdsenseReportsGenerateResponseHeadersItem' { _argrhiName :: !(Maybe Text) , _argrhiCurrency :: !(Maybe Text) , _argrhiType :: !(Maybe Text) @@ -235,7 +235,7 @@ adsenseReportsGenerateResponseHeadersItem :: AdsenseReportsGenerateResponseHeadersItem adsenseReportsGenerateResponseHeadersItem = - AdsenseReportsGenerateResponseHeadersItem + AdsenseReportsGenerateResponseHeadersItem' { _argrhiName = Nothing , _argrhiCurrency = Nothing , _argrhiType = Nothing @@ -265,13 +265,13 @@ = withObject "AdsenseReportsGenerateResponseHeadersItem" (\ o -> - AdsenseReportsGenerateResponseHeadersItem <$> + AdsenseReportsGenerateResponseHeadersItem' <$> (o .:? "name") <*> (o .:? "currency") <*> (o .:? "type")) instance ToJSON AdsenseReportsGenerateResponseHeadersItem where - toJSON AdsenseReportsGenerateResponseHeadersItem{..} + toJSON AdsenseReportsGenerateResponseHeadersItem'{..} = object (catMaybes [("name" .=) <$> _argrhiName, @@ -280,7 +280,7 @@ -- -- /See:/ 'payment' smart constructor. -data Payment = Payment +data Payment = Payment' { _pPaymentAmountCurrencyCode :: !(Maybe Text) , _pKind :: !Text , _pPaymentDate :: !(Maybe Text) @@ -304,7 +304,7 @@ payment :: Payment payment = - Payment + Payment' { _pPaymentAmountCurrencyCode = Nothing , _pKind = "adsense#payment" , _pPaymentDate = Nothing @@ -342,7 +342,7 @@ parseJSON = withObject "Payment" (\ o -> - Payment <$> + Payment' <$> (o .:? "paymentAmountCurrencyCode") <*> (o .:? "kind" .!= "adsense#payment") <*> (o .:? "paymentDate") @@ -350,7 +350,7 @@ <*> (o .:? "paymentAmount")) instance ToJSON Payment where - toJSON Payment{..} + toJSON Payment'{..} = object (catMaybes [("paymentAmountCurrencyCode" .=) <$> @@ -362,7 +362,7 @@ -- -- /See:/ 'accounts' smart constructor. -data Accounts = Accounts +data Accounts = Accounts' { _aEtag :: !(Maybe Text) , _aNextPageToken :: !(Maybe Text) , _aKind :: !Text @@ -383,7 +383,7 @@ accounts :: Accounts accounts = - Accounts + Accounts' { _aEtag = Nothing , _aNextPageToken = Nothing , _aKind = "adsense#accounts" @@ -415,13 +415,13 @@ parseJSON = withObject "Accounts" (\ o -> - Accounts <$> + Accounts' <$> (o .:? "etag") <*> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "adsense#accounts") <*> (o .:? "items" .!= mempty)) instance ToJSON Accounts where - toJSON Accounts{..} + toJSON Accounts'{..} = object (catMaybes [("etag" .=) <$> _aEtag, @@ -430,7 +430,7 @@ -- -- /See:/ 'alerts' smart constructor. -data Alerts = Alerts +data Alerts = Alerts' { _aleKind :: !Text , _aleItems :: !(Maybe [Alert]) } deriving (Eq,Show,Data,Typeable,Generic) @@ -445,7 +445,7 @@ alerts :: Alerts alerts = - Alerts + Alerts' { _aleKind = "adsense#alerts" , _aleItems = Nothing } @@ -465,12 +465,12 @@ parseJSON = withObject "Alerts" (\ o -> - Alerts <$> + Alerts' <$> (o .:? "kind" .!= "adsense#alerts") <*> (o .:? "items" .!= mempty)) instance ToJSON Alerts where - toJSON Alerts{..} + toJSON Alerts'{..} = object (catMaybes [Just ("kind" .= _aleKind), @@ -478,7 +478,7 @@ -- -- /See:/ 'savedReports' smart constructor. -data SavedReports = SavedReports +data SavedReports = SavedReports' { _srEtag :: !(Maybe Text) , _srNextPageToken :: !(Maybe Text) , _srKind :: !Text @@ -499,7 +499,7 @@ savedReports :: SavedReports savedReports = - SavedReports + SavedReports' { _srEtag = Nothing , _srNextPageToken = Nothing , _srKind = "adsense#savedReports" @@ -532,13 +532,13 @@ parseJSON = withObject "SavedReports" (\ o -> - SavedReports <$> + SavedReports' <$> (o .:? "etag") <*> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "adsense#savedReports") <*> (o .:? "items" .!= mempty)) instance ToJSON SavedReports where - toJSON SavedReports{..} + toJSON SavedReports'{..} = object (catMaybes [("etag" .=) <$> _srEtag, @@ -547,7 +547,7 @@ -- -- /See:/ 'adUnits' smart constructor. -data AdUnits = AdUnits +data AdUnits = AdUnits' { _auEtag :: !(Maybe Text) , _auNextPageToken :: !(Maybe Text) , _auKind :: !Text @@ -568,7 +568,7 @@ adUnits :: AdUnits adUnits = - AdUnits + AdUnits' { _auEtag = Nothing , _auNextPageToken = Nothing , _auKind = "adsense#adUnits" @@ -600,13 +600,13 @@ parseJSON = withObject "AdUnits" (\ o -> - AdUnits <$> + AdUnits' <$> (o .:? "etag") <*> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "adsense#adUnits") <*> (o .:? "items" .!= mempty)) instance ToJSON AdUnits where - toJSON AdUnits{..} + toJSON AdUnits'{..} = object (catMaybes [("etag" .=) <$> _auEtag, @@ -615,7 +615,7 @@ -- -- /See:/ 'savedReport' smart constructor. -data SavedReport = SavedReport +data SavedReport = SavedReport' { _sKind :: !Text , _sName :: !(Maybe Text) , _sId :: !(Maybe Text) @@ -633,7 +633,7 @@ savedReport :: SavedReport savedReport = - SavedReport + SavedReport' { _sKind = "adsense#savedReport" , _sName = Nothing , _sId = Nothing @@ -655,13 +655,13 @@ parseJSON = withObject "SavedReport" (\ o -> - SavedReport <$> + SavedReport' <$> (o .:? "kind" .!= "adsense#savedReport") <*> (o .:? "name") <*> (o .:? "id")) instance ToJSON SavedReport where - toJSON SavedReport{..} + toJSON SavedReport'{..} = object (catMaybes [Just ("kind" .= _sKind), ("name" .=) <$> _sName, @@ -669,7 +669,7 @@ -- -- /See:/ 'urlChannels' smart constructor. -data URLChannels = URLChannels +data URLChannels = URLChannels' { _ucEtag :: !(Maybe Text) , _ucNextPageToken :: !(Maybe Text) , _ucKind :: !Text @@ -690,7 +690,7 @@ urlChannels :: URLChannels urlChannels = - URLChannels + URLChannels' { _ucEtag = Nothing , _ucNextPageToken = Nothing , _ucKind = "adsense#urlChannels" @@ -723,13 +723,13 @@ parseJSON = withObject "URLChannels" (\ o -> - URLChannels <$> + URLChannels' <$> (o .:? "etag") <*> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "adsense#urlChannels") <*> (o .:? "items" .!= mempty)) instance ToJSON URLChannels where - toJSON URLChannels{..} + toJSON URLChannels'{..} = object (catMaybes [("etag" .=) <$> _ucEtag, @@ -738,7 +738,7 @@ -- -- /See:/ 'customChannels' smart constructor. -data CustomChannels = CustomChannels +data CustomChannels = CustomChannels' { _ccEtag :: !(Maybe Text) , _ccNextPageToken :: !(Maybe Text) , _ccKind :: !Text @@ -759,7 +759,7 @@ customChannels :: CustomChannels customChannels = - CustomChannels + CustomChannels' { _ccEtag = Nothing , _ccNextPageToken = Nothing , _ccKind = "adsense#customChannels" @@ -792,13 +792,13 @@ parseJSON = withObject "CustomChannels" (\ o -> - CustomChannels <$> + CustomChannels' <$> (o .:? "etag") <*> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "adsense#customChannels") <*> (o .:? "items" .!= mempty)) instance ToJSON CustomChannels where - toJSON CustomChannels{..} + toJSON CustomChannels'{..} = object (catMaybes [("etag" .=) <$> _ccEtag, @@ -807,7 +807,7 @@ -- -- /See:/ 'adUnit' smart constructor. -data AdUnit = AdUnit +data AdUnit = AdUnit' { _auuStatus :: !(Maybe Text) , _auuMobileContentAdsSettings :: !(Maybe AdUnitMobileContentAdsSettings) , _auuKind :: !Text @@ -846,7 +846,7 @@ adUnit :: AdUnit adUnit = - AdUnit + AdUnit' { _auuStatus = Nothing , _auuMobileContentAdsSettings = Nothing , _auuKind = "adsense#adUnit" @@ -868,7 +868,7 @@ auuStatus = lens _auuStatus (\ s a -> s{_auuStatus = a}) --- | Settings specific to WAP mobile content ads (AFMC). +-- | Settings specific to WAP mobile content ads (AFMC) - deprecated. auuMobileContentAdsSettings :: Lens' AdUnit (Maybe AdUnitMobileContentAdsSettings) auuMobileContentAdsSettings = lens _auuMobileContentAdsSettings @@ -878,7 +878,7 @@ auuKind :: Lens' AdUnit Text auuKind = lens _auuKind (\ s a -> s{_auuKind = a}) --- | Settings specific to feed ads (AFF). +-- | Settings specific to feed ads (AFF) - deprecated. auuFeedAdsSettings :: Lens' AdUnit (Maybe AdUnitFeedAdsSettings) auuFeedAdsSettings = lens _auuFeedAdsSettings @@ -901,7 +901,7 @@ auuName = lens _auuName (\ s a -> s{_auuName = a}) -- | Settings specific to content ads (AFC) and highend mobile content ads --- (AFMC). +-- (AFMC - deprecated). auuContentAdsSettings :: Lens' AdUnit (Maybe AdUnitContentAdsSettings) auuContentAdsSettings = lens _auuContentAdsSettings @@ -920,7 +920,7 @@ parseJSON = withObject "AdUnit" (\ o -> - AdUnit <$> + AdUnit' <$> (o .:? "status") <*> (o .:? "mobileContentAdsSettings") <*> (o .:? "kind" .!= "adsense#adUnit") @@ -933,7 +933,7 @@ <*> (o .:? "id")) instance ToJSON AdUnit where - toJSON AdUnit{..} + toJSON AdUnit'{..} = object (catMaybes [("status" .=) <$> _auuStatus, @@ -949,7 +949,7 @@ -- -- /See:/ 'alert' smart constructor. -data Alert = Alert +data Alert = Alert' { _aaIsDismissible :: !(Maybe Bool) , _aaKind :: !Text , _aaSeverity :: !(Maybe Text) @@ -976,7 +976,7 @@ alert :: Alert alert = - Alert + Alert' { _aaIsDismissible = Nothing , _aaKind = "adsense#alert" , _aaSeverity = Nothing @@ -1020,7 +1020,7 @@ parseJSON = withObject "Alert" (\ o -> - Alert <$> + Alert' <$> (o .:? "isDismissible") <*> (o .:? "kind" .!= "adsense#alert") <*> (o .:? "severity") @@ -1029,7 +1029,7 @@ <*> (o .:? "message")) instance ToJSON Alert where - toJSON Alert{..} + toJSON Alert'{..} = object (catMaybes [("isDismissible" .=) <$> _aaIsDismissible, @@ -1041,7 +1041,7 @@ -- | The font which is included in the style. -- -- /See:/ 'adStyleFont' smart constructor. -data AdStyleFont = AdStyleFont +data AdStyleFont = AdStyleFont' { _asfSize :: !(Maybe Text) , _asfFamily :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -1056,7 +1056,7 @@ adStyleFont :: AdStyleFont adStyleFont = - AdStyleFont + AdStyleFont' { _asfSize = Nothing , _asfFamily = Nothing } @@ -1074,10 +1074,10 @@ parseJSON = withObject "AdStyleFont" (\ o -> - AdStyleFont <$> (o .:? "size") <*> (o .:? "family")) + AdStyleFont' <$> (o .:? "size") <*> (o .:? "family")) instance ToJSON AdStyleFont where - toJSON AdStyleFont{..} + toJSON AdStyleFont'{..} = object (catMaybes [("size" .=) <$> _asfSize, @@ -1085,7 +1085,7 @@ -- -- /See:/ 'account' smart constructor. -data Account = Account +data Account = Account' { _accKind :: !Text , _accCreationTime :: !(Maybe (Textual Int64)) , _accPremium :: !(Maybe Bool) @@ -1115,7 +1115,7 @@ account :: Account account = - Account + Account' { _accKind = "adsense#account" , _accCreationTime = Nothing , _accPremium = Nothing @@ -1165,7 +1165,7 @@ parseJSON = withObject "Account" (\ o -> - Account <$> + Account' <$> (o .:? "kind" .!= "adsense#account") <*> (o .:? "creation_time") <*> (o .:? "premium") @@ -1175,7 +1175,7 @@ <*> (o .:? "subAccounts" .!= mempty)) instance ToJSON Account where - toJSON Account{..} + toJSON Account'{..} = object (catMaybes [Just ("kind" .= _accKind), @@ -1185,10 +1185,10 @@ ("timezone" .=) <$> _accTimezone, ("subAccounts" .=) <$> _accSubAccounts]) --- | Settings specific to WAP mobile content ads (AFMC). +-- | Settings specific to WAP mobile content ads (AFMC) - deprecated. -- -- /See:/ 'adUnitMobileContentAdsSettings' smart constructor. -data AdUnitMobileContentAdsSettings = AdUnitMobileContentAdsSettings +data AdUnitMobileContentAdsSettings = AdUnitMobileContentAdsSettings' { _aumcasSize :: !(Maybe Text) , _aumcasScriptingLanguage :: !(Maybe Text) , _aumcasMarkupLanguage :: !(Maybe Text) @@ -1209,7 +1209,7 @@ adUnitMobileContentAdsSettings :: AdUnitMobileContentAdsSettings adUnitMobileContentAdsSettings = - AdUnitMobileContentAdsSettings + AdUnitMobileContentAdsSettings' { _aumcasSize = Nothing , _aumcasScriptingLanguage = Nothing , _aumcasMarkupLanguage = Nothing @@ -1243,13 +1243,13 @@ parseJSON = withObject "AdUnitMobileContentAdsSettings" (\ o -> - AdUnitMobileContentAdsSettings <$> + AdUnitMobileContentAdsSettings' <$> (o .:? "size") <*> (o .:? "scriptingLanguage") <*> (o .:? "markupLanguage") <*> (o .:? "type")) instance ToJSON AdUnitMobileContentAdsSettings where - toJSON AdUnitMobileContentAdsSettings{..} + toJSON AdUnitMobileContentAdsSettings'{..} = object (catMaybes [("size" .=) <$> _aumcasSize, @@ -1260,7 +1260,7 @@ -- -- /See:/ 'savedAdStyles' smart constructor. -data SavedAdStyles = SavedAdStyles +data SavedAdStyles = SavedAdStyles' { _sasEtag :: !(Maybe Text) , _sasNextPageToken :: !(Maybe Text) , _sasKind :: !Text @@ -1281,7 +1281,7 @@ savedAdStyles :: SavedAdStyles savedAdStyles = - SavedAdStyles + SavedAdStyles' { _sasEtag = Nothing , _sasNextPageToken = Nothing , _sasKind = "adsense#savedAdStyles" @@ -1314,13 +1314,13 @@ parseJSON = withObject "SavedAdStyles" (\ o -> - SavedAdStyles <$> + SavedAdStyles' <$> (o .:? "etag") <*> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "adsense#savedAdStyles") <*> (o .:? "items" .!= mempty)) instance ToJSON SavedAdStyles where - toJSON SavedAdStyles{..} + toJSON SavedAdStyles'{..} = object (catMaybes [("etag" .=) <$> _sasEtag, @@ -1333,7 +1333,7 @@ -- leading hash. -- -- /See:/ 'adStyleColors' smart constructor. -data AdStyleColors = AdStyleColors +data AdStyleColors = AdStyleColors' { _ascText :: !(Maybe Text) , _ascURL :: !(Maybe Text) , _ascBOrder :: !(Maybe Text) @@ -1357,7 +1357,7 @@ adStyleColors :: AdStyleColors adStyleColors = - AdStyleColors + AdStyleColors' { _ascText = Nothing , _ascURL = Nothing , _ascBOrder = Nothing @@ -1392,13 +1392,13 @@ parseJSON = withObject "AdStyleColors" (\ o -> - AdStyleColors <$> + AdStyleColors' <$> (o .:? "text") <*> (o .:? "url") <*> (o .:? "border") <*> (o .:? "title") <*> (o .:? "background")) instance ToJSON AdStyleColors where - toJSON AdStyleColors{..} + toJSON AdStyleColors'{..} = object (catMaybes [("text" .=) <$> _ascText, ("url" .=) <$> _ascURL, @@ -1409,7 +1409,7 @@ -- | The backup option to be used in instances where no ad is available. -- -- /See:/ 'adUnitContentAdsSettingsBackupOption' smart constructor. -data AdUnitContentAdsSettingsBackupOption = AdUnitContentAdsSettingsBackupOption +data AdUnitContentAdsSettingsBackupOption = AdUnitContentAdsSettingsBackupOption' { _aucasboColor :: !(Maybe Text) , _aucasboURL :: !(Maybe Text) , _aucasboType :: !(Maybe Text) @@ -1427,7 +1427,7 @@ adUnitContentAdsSettingsBackupOption :: AdUnitContentAdsSettingsBackupOption adUnitContentAdsSettingsBackupOption = - AdUnitContentAdsSettingsBackupOption + AdUnitContentAdsSettingsBackupOption' { _aucasboColor = Nothing , _aucasboURL = Nothing , _aucasboType = Nothing @@ -1453,12 +1453,12 @@ parseJSON = withObject "AdUnitContentAdsSettingsBackupOption" (\ o -> - AdUnitContentAdsSettingsBackupOption <$> + AdUnitContentAdsSettingsBackupOption' <$> (o .:? "color") <*> (o .:? "url") <*> (o .:? "type")) instance ToJSON AdUnitContentAdsSettingsBackupOption where - toJSON AdUnitContentAdsSettingsBackupOption{..} + toJSON AdUnitContentAdsSettingsBackupOption'{..} = object (catMaybes [("color" .=) <$> _aucasboColor, @@ -1467,13 +1467,12 @@ -- -- /See:/ 'adClient' smart constructor. -data AdClient = AdClient +data AdClient = AdClient' { _adKind :: !Text , _adArcOptIn :: !(Maybe Bool) , _adSupportsReporting :: !(Maybe Bool) , _adId :: !(Maybe Text) , _adProductCode :: !(Maybe Text) - , _adArcReviewMode :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'AdClient' with the minimum fields required to make a request. @@ -1489,18 +1488,15 @@ -- * 'adId' -- -- * 'adProductCode' --- --- * 'adArcReviewMode' adClient :: AdClient adClient = - AdClient + AdClient' { _adKind = "adsense#adClient" , _adArcOptIn = Nothing , _adSupportsReporting = Nothing , _adId = Nothing , _adProductCode = Nothing - , _adArcReviewMode = Nothing } -- | Kind of resource this is, in this case adsense#adClient. @@ -1529,39 +1525,30 @@ = lens _adProductCode (\ s a -> s{_adProductCode = a}) --- | ARC review mode this ad client is in. Empty if the client is not opted --- in to ARC. Possible values: POST_REVIEW, AUTOMATIC_PRE_REVIEW. -adArcReviewMode :: Lens' AdClient (Maybe Text) -adArcReviewMode - = lens _adArcReviewMode - (\ s a -> s{_adArcReviewMode = a}) - instance FromJSON AdClient where parseJSON = withObject "AdClient" (\ o -> - AdClient <$> + AdClient' <$> (o .:? "kind" .!= "adsense#adClient") <*> (o .:? "arcOptIn") <*> (o .:? "supportsReporting") <*> (o .:? "id") - <*> (o .:? "productCode") - <*> (o .:? "arcReviewMode")) + <*> (o .:? "productCode")) instance ToJSON AdClient where - toJSON AdClient{..} + toJSON AdClient'{..} = object (catMaybes [Just ("kind" .= _adKind), ("arcOptIn" .=) <$> _adArcOptIn, ("supportsReporting" .=) <$> _adSupportsReporting, ("id" .=) <$> _adId, - ("productCode" .=) <$> _adProductCode, - ("arcReviewMode" .=) <$> _adArcReviewMode]) + ("productCode" .=) <$> _adProductCode]) -- -- /See:/ 'savedAdStyle' smart constructor. -data SavedAdStyle = SavedAdStyle +data SavedAdStyle = SavedAdStyle' { _savKind :: !Text , _savName :: !(Maybe Text) , _savAdStyle :: !(Maybe AdStyle) @@ -1582,7 +1569,7 @@ savedAdStyle :: SavedAdStyle savedAdStyle = - SavedAdStyle + SavedAdStyle' { _savKind = "adsense#savedAdStyle" , _savName = Nothing , _savAdStyle = Nothing @@ -1612,14 +1599,14 @@ parseJSON = withObject "SavedAdStyle" (\ o -> - SavedAdStyle <$> + SavedAdStyle' <$> (o .:? "kind" .!= "adsense#savedAdStyle") <*> (o .:? "name") <*> (o .:? "adStyle") <*> (o .:? "id")) instance ToJSON SavedAdStyle where - toJSON SavedAdStyle{..} + toJSON SavedAdStyle'{..} = object (catMaybes [Just ("kind" .= _savKind), ("name" .=) <$> _savName, @@ -1629,7 +1616,7 @@ -- | The targeting information of this custom channel, if activated. -- -- /See:/ 'customChannelTargetingInfo' smart constructor. -data CustomChannelTargetingInfo = CustomChannelTargetingInfo +data CustomChannelTargetingInfo = CustomChannelTargetingInfo' { _cctiLocation :: !(Maybe Text) , _cctiSiteLanguage :: !(Maybe Text) , _cctiAdsAppearOn :: !(Maybe Text) @@ -1650,7 +1637,7 @@ customChannelTargetingInfo :: CustomChannelTargetingInfo customChannelTargetingInfo = - CustomChannelTargetingInfo + CustomChannelTargetingInfo' { _cctiLocation = Nothing , _cctiSiteLanguage = Nothing , _cctiAdsAppearOn = Nothing @@ -1658,11 +1645,11 @@ } -- | The locations in which ads appear. (Only valid for content and mobile --- content ads). Acceptable values for content ads are: TOP_LEFT, --- TOP_CENTER, TOP_RIGHT, MIDDLE_LEFT, MIDDLE_CENTER, MIDDLE_RIGHT, --- BOTTOM_LEFT, BOTTOM_CENTER, BOTTOM_RIGHT, MULTIPLE_LOCATIONS. Acceptable --- values for mobile content ads are: TOP, MIDDLE, BOTTOM, --- MULTIPLE_LOCATIONS. +-- content ads (deprecated)). Acceptable values for content ads are: +-- TOP_LEFT, TOP_CENTER, TOP_RIGHT, MIDDLE_LEFT, MIDDLE_CENTER, +-- MIDDLE_RIGHT, BOTTOM_LEFT, BOTTOM_CENTER, BOTTOM_RIGHT, +-- MULTIPLE_LOCATIONS. Acceptable values for mobile content ads +-- (deprecated) are: TOP, MIDDLE, BOTTOM, MULTIPLE_LOCATIONS. cctiLocation :: Lens' CustomChannelTargetingInfo (Maybe Text) cctiLocation = lens _cctiLocation (\ s a -> s{_cctiLocation = a}) @@ -1689,13 +1676,13 @@ parseJSON = withObject "CustomChannelTargetingInfo" (\ o -> - CustomChannelTargetingInfo <$> + CustomChannelTargetingInfo' <$> (o .:? "location") <*> (o .:? "siteLanguage") <*> (o .:? "adsAppearOn") <*> (o .:? "description")) instance ToJSON CustomChannelTargetingInfo where - toJSON CustomChannelTargetingInfo{..} + toJSON CustomChannelTargetingInfo'{..} = object (catMaybes [("location" .=) <$> _cctiLocation, @@ -1705,7 +1692,7 @@ -- -- /See:/ 'adStyle' smart constructor. -data AdStyle = AdStyle +data AdStyle = AdStyle' { _asCorners :: !(Maybe Text) , _asKind :: !Text , _asFont :: !(Maybe AdStyleFont) @@ -1726,7 +1713,7 @@ adStyle :: AdStyle adStyle = - AdStyle + AdStyle' { _asCorners = Nothing , _asKind = "adsense#adStyle" , _asFont = Nothing @@ -1756,24 +1743,24 @@ parseJSON = withObject "AdStyle" (\ o -> - AdStyle <$> + AdStyle' <$> (o .:? "corners") <*> (o .:? "kind" .!= "adsense#adStyle") <*> (o .:? "font") <*> (o .:? "colors")) instance ToJSON AdStyle where - toJSON AdStyle{..} + toJSON AdStyle'{..} = object (catMaybes [("corners" .=) <$> _asCorners, Just ("kind" .= _asKind), ("font" .=) <$> _asFont, ("colors" .=) <$> _asColors]) --- | Settings specific to feed ads (AFF). +-- | Settings specific to feed ads (AFF) - deprecated. -- -- /See:/ 'adUnitFeedAdsSettings' smart constructor. -data AdUnitFeedAdsSettings = AdUnitFeedAdsSettings +data AdUnitFeedAdsSettings = AdUnitFeedAdsSettings' { _aufasFrequency :: !(Maybe (Textual Int32)) , _aufasAdPosition :: !(Maybe Text) , _aufasType :: !(Maybe Text) @@ -1794,7 +1781,7 @@ adUnitFeedAdsSettings :: AdUnitFeedAdsSettings adUnitFeedAdsSettings = - AdUnitFeedAdsSettings + AdUnitFeedAdsSettings' { _aufasFrequency = Nothing , _aufasAdPosition = Nothing , _aufasType = Nothing @@ -1831,13 +1818,13 @@ parseJSON = withObject "AdUnitFeedAdsSettings" (\ o -> - AdUnitFeedAdsSettings <$> + AdUnitFeedAdsSettings' <$> (o .:? "frequency") <*> (o .:? "adPosition") <*> (o .:? "type") <*> (o .:? "minimumWordCount")) instance ToJSON AdUnitFeedAdsSettings where - toJSON AdUnitFeedAdsSettings{..} + toJSON AdUnitFeedAdsSettings'{..} = object (catMaybes [("frequency" .=) <$> _aufasFrequency, @@ -1847,7 +1834,7 @@ -- -- /See:/ 'metadata' smart constructor. -data Metadata = Metadata +data Metadata = Metadata' { _mKind :: !Text , _mItems :: !(Maybe [ReportingMetadataEntry]) } deriving (Eq,Show,Data,Typeable,Generic) @@ -1862,7 +1849,7 @@ metadata :: Metadata metadata = - Metadata + Metadata' { _mKind = "adsense#metadata" , _mItems = Nothing } @@ -1880,19 +1867,19 @@ parseJSON = withObject "Metadata" (\ o -> - Metadata <$> + Metadata' <$> (o .:? "kind" .!= "adsense#metadata") <*> (o .:? "items" .!= mempty)) instance ToJSON Metadata where - toJSON Metadata{..} + toJSON Metadata'{..} = object (catMaybes [Just ("kind" .= _mKind), ("items" .=) <$> _mItems]) -- -- /See:/ 'customChannel' smart constructor. -data CustomChannel = CustomChannel +data CustomChannel = CustomChannel' { _cTargetingInfo :: !(Maybe CustomChannelTargetingInfo) , _cKind :: !Text , _cName :: !(Maybe Text) @@ -1916,7 +1903,7 @@ customChannel :: CustomChannel customChannel = - CustomChannel + CustomChannel' { _cTargetingInfo = Nothing , _cKind = "adsense#customChannel" , _cName = Nothing @@ -1952,7 +1939,7 @@ parseJSON = withObject "CustomChannel" (\ o -> - CustomChannel <$> + CustomChannel' <$> (o .:? "targetingInfo") <*> (o .:? "kind" .!= "adsense#customChannel") <*> (o .:? "name") @@ -1960,7 +1947,7 @@ <*> (o .:? "id")) instance ToJSON CustomChannel where - toJSON CustomChannel{..} + toJSON CustomChannel'{..} = object (catMaybes [("targetingInfo" .=) <$> _cTargetingInfo, @@ -1969,7 +1956,7 @@ -- -- /See:/ 'urlChannel' smart constructor. -data URLChannel = URLChannel +data URLChannel = URLChannel' { _urlcKind :: !Text , _urlcId :: !(Maybe Text) , _urlcURLPattern :: !(Maybe Text) @@ -1987,7 +1974,7 @@ urlChannel :: URLChannel urlChannel = - URLChannel + URLChannel' { _urlcKind = "adsense#urlChannel" , _urlcId = Nothing , _urlcURLPattern = Nothing @@ -2014,13 +2001,13 @@ parseJSON = withObject "URLChannel" (\ o -> - URLChannel <$> + URLChannel' <$> (o .:? "kind" .!= "adsense#urlChannel") <*> (o .:? "id") <*> (o .:? "urlPattern")) instance ToJSON URLChannel where - toJSON URLChannel{..} + toJSON URLChannel'{..} = object (catMaybes [Just ("kind" .= _urlcKind), ("id" .=) <$> _urlcId, @@ -2028,7 +2015,7 @@ -- -- /See:/ 'adCode' smart constructor. -data AdCode = AdCode +data AdCode = AdCode' { _addKind :: !Text , _addAdCode :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic) @@ -2043,7 +2030,7 @@ adCode :: AdCode adCode = - AdCode + AdCode' { _addKind = "adsense#adCode" , _addAdCode = Nothing } @@ -2061,12 +2048,12 @@ parseJSON = withObject "AdCode" (\ o -> - AdCode <$> + AdCode' <$> (o .:? "kind" .!= "adsense#adCode") <*> (o .:? "adCode")) instance ToJSON AdCode where - toJSON AdCode{..} + toJSON AdCode'{..} = object (catMaybes [Just ("kind" .= _addKind), @@ -2074,7 +2061,7 @@ -- -- /See:/ 'adsenseReportsGenerateResponse' smart constructor. -data AdsenseReportsGenerateResponse = AdsenseReportsGenerateResponse +data AdsenseReportsGenerateResponse = AdsenseReportsGenerateResponse' { _argrKind :: !Text , _argrAverages :: !(Maybe [Text]) , _argrEndDate :: !(Maybe Text) @@ -2110,7 +2097,7 @@ adsenseReportsGenerateResponse :: AdsenseReportsGenerateResponse adsenseReportsGenerateResponse = - AdsenseReportsGenerateResponse + AdsenseReportsGenerateResponse' { _argrKind = "adsense#report" , _argrAverages = Nothing , _argrEndDate = Nothing @@ -2193,7 +2180,7 @@ parseJSON = withObject "AdsenseReportsGenerateResponse" (\ o -> - AdsenseReportsGenerateResponse <$> + AdsenseReportsGenerateResponse' <$> (o .:? "kind" .!= "adsense#report") <*> (o .:? "averages" .!= mempty) <*> (o .:? "endDate") @@ -2205,7 +2192,7 @@ <*> (o .:? "totalMatchedRows")) instance ToJSON AdsenseReportsGenerateResponse where - toJSON AdsenseReportsGenerateResponse{..} + toJSON AdsenseReportsGenerateResponse'{..} = object (catMaybes [Just ("kind" .= _argrKind), @@ -2219,10 +2206,10 @@ ("totalMatchedRows" .=) <$> _argrTotalMatchedRows]) -- | Settings specific to content ads (AFC) and highend mobile content ads --- (AFMC). +-- (AFMC - deprecated). -- -- /See:/ 'adUnitContentAdsSettings' smart constructor. -data AdUnitContentAdsSettings = AdUnitContentAdsSettings +data AdUnitContentAdsSettings = AdUnitContentAdsSettings' { _aucasBackupOption :: !(Maybe AdUnitContentAdsSettingsBackupOption) , _aucasSize :: !(Maybe Text) , _aucasType :: !(Maybe Text) @@ -2240,7 +2227,7 @@ adUnitContentAdsSettings :: AdUnitContentAdsSettings adUnitContentAdsSettings = - AdUnitContentAdsSettings + AdUnitContentAdsSettings' { _aucasBackupOption = Nothing , _aucasSize = Nothing , _aucasType = Nothing @@ -2266,12 +2253,12 @@ parseJSON = withObject "AdUnitContentAdsSettings" (\ o -> - AdUnitContentAdsSettings <$> + AdUnitContentAdsSettings' <$> (o .:? "backupOption") <*> (o .:? "size") <*> (o .:? "type")) instance ToJSON AdUnitContentAdsSettings where - toJSON AdUnitContentAdsSettings{..} + toJSON AdUnitContentAdsSettings'{..} = object (catMaybes [("backupOption" .=) <$> _aucasBackupOption, @@ -2280,7 +2267,7 @@ -- -- /See:/ 'payments' smart constructor. -data Payments = Payments +data Payments = Payments' { _payKind :: !Text , _payItems :: !(Maybe [Payment]) } deriving (Eq,Show,Data,Typeable,Generic) @@ -2295,7 +2282,7 @@ payments :: Payments payments = - Payments + Payments' { _payKind = "adsense#payments" , _payItems = Nothing } @@ -2316,12 +2303,12 @@ parseJSON = withObject "Payments" (\ o -> - Payments <$> + Payments' <$> (o .:? "kind" .!= "adsense#payments") <*> (o .:? "items" .!= mempty)) instance ToJSON Payments where - toJSON Payments{..} + toJSON Payments'{..} = object (catMaybes [Just ("kind" .= _payKind), diff --git a/gen/Network/Google/AdSense/Types/Sum.hs b/gen/Network/Google/AdSense/Types/Sum.hs --- a/gen/Network/Google/AdSense/Types/Sum.hs +++ b/gen/Network/Google/AdSense/Types/Sum.hs @@ -8,7 +8,7 @@ -- | -- Module : Network.Google.AdSense.Types.Sum --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated diff --git a/gen/Network/Google/Resource/AdSense/Accounts/AdClients/List.hs b/gen/Network/Google/Resource/AdSense/Accounts/AdClients/List.hs --- a/gen/Network/Google/Resource/AdSense/Accounts/AdClients/List.hs +++ b/gen/Network/Google/Resource/AdSense/Accounts/AdClients/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Accounts.AdClients.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -56,7 +56,7 @@ -- | List all ad clients in the specified account. -- -- /See:/ 'accountsAdClientsList' smart constructor. -data AccountsAdClientsList = AccountsAdClientsList +data AccountsAdClientsList = AccountsAdClientsList' { _aaclAccountId :: !Text , _aaclPageToken :: !(Maybe Text) , _aaclMaxResults :: !(Maybe (Textual Int32)) @@ -75,7 +75,7 @@ :: Text -- ^ 'aaclAccountId' -> AccountsAdClientsList accountsAdClientsList pAaclAccountId_ = - AccountsAdClientsList + AccountsAdClientsList' { _aaclAccountId = pAaclAccountId_ , _aaclPageToken = Nothing , _aaclMaxResults = Nothing @@ -105,7 +105,10 @@ instance GoogleRequest AccountsAdClientsList where type Rs AccountsAdClientsList = AdClients - requestClient AccountsAdClientsList{..} + type Scopes AccountsAdClientsList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AccountsAdClientsList'{..} = go _aaclAccountId _aaclPageToken _aaclMaxResults (Just AltJSON) adSenseService diff --git a/gen/Network/Google/Resource/AdSense/Accounts/AdUnits/CustomChannels/List.hs b/gen/Network/Google/Resource/AdSense/Accounts/AdUnits/CustomChannels/List.hs --- a/gen/Network/Google/Resource/AdSense/Accounts/AdUnits/CustomChannels/List.hs +++ b/gen/Network/Google/Resource/AdSense/Accounts/AdUnits/CustomChannels/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Accounts.AdUnits.CustomChannels.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -63,7 +63,7 @@ -- | List all custom channels which the specified ad unit belongs to. -- -- /See:/ 'accountsAdUnitsCustomChannelsList' smart constructor. -data AccountsAdUnitsCustomChannelsList = AccountsAdUnitsCustomChannelsList +data AccountsAdUnitsCustomChannelsList = AccountsAdUnitsCustomChannelsList' { _aaucclAdUnitId :: !Text , _aaucclAdClientId :: !Text , _aaucclAccountId :: !Text @@ -90,7 +90,7 @@ -> Text -- ^ 'aaucclAccountId' -> AccountsAdUnitsCustomChannelsList accountsAdUnitsCustomChannelsList pAaucclAdUnitId_ pAaucclAdClientId_ pAaucclAccountId_ = - AccountsAdUnitsCustomChannelsList + AccountsAdUnitsCustomChannelsList' { _aaucclAdUnitId = pAaucclAdUnitId_ , _aaucclAdClientId = pAaucclAdClientId_ , _aaucclAccountId = pAaucclAccountId_ @@ -136,7 +136,10 @@ AccountsAdUnitsCustomChannelsList where type Rs AccountsAdUnitsCustomChannelsList = CustomChannels - requestClient AccountsAdUnitsCustomChannelsList{..} + type Scopes AccountsAdUnitsCustomChannelsList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AccountsAdUnitsCustomChannelsList'{..} = go _aaucclAccountId _aaucclAdClientId _aaucclAdUnitId _aaucclPageToken diff --git a/gen/Network/Google/Resource/AdSense/Accounts/AdUnits/Get.hs b/gen/Network/Google/Resource/AdSense/Accounts/AdUnits/Get.hs --- a/gen/Network/Google/Resource/AdSense/Accounts/AdUnits/Get.hs +++ b/gen/Network/Google/Resource/AdSense/Accounts/AdUnits/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Accounts.AdUnits.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -59,7 +59,7 @@ -- account. -- -- /See:/ 'accountsAdUnitsGet' smart constructor. -data AccountsAdUnitsGet = AccountsAdUnitsGet +data AccountsAdUnitsGet = AccountsAdUnitsGet' { _aaugAdUnitId :: !Text , _aaugAdClientId :: !Text , _aaugAccountId :: !Text @@ -80,7 +80,7 @@ -> Text -- ^ 'aaugAccountId' -> AccountsAdUnitsGet accountsAdUnitsGet pAaugAdUnitId_ pAaugAdClientId_ pAaugAccountId_ = - AccountsAdUnitsGet + AccountsAdUnitsGet' { _aaugAdUnitId = pAaugAdUnitId_ , _aaugAdClientId = pAaugAdClientId_ , _aaugAccountId = pAaugAccountId_ @@ -105,7 +105,10 @@ instance GoogleRequest AccountsAdUnitsGet where type Rs AccountsAdUnitsGet = AdUnit - requestClient AccountsAdUnitsGet{..} + type Scopes AccountsAdUnitsGet = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AccountsAdUnitsGet'{..} = go _aaugAccountId _aaugAdClientId _aaugAdUnitId (Just AltJSON) adSenseService diff --git a/gen/Network/Google/Resource/AdSense/Accounts/AdUnits/GetAdCode.hs b/gen/Network/Google/Resource/AdSense/Accounts/AdUnits/GetAdCode.hs --- a/gen/Network/Google/Resource/AdSense/Accounts/AdUnits/GetAdCode.hs +++ b/gen/Network/Google/Resource/AdSense/Accounts/AdUnits/GetAdCode.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Accounts.AdUnits.GetAdCode --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -58,7 +58,7 @@ -- | Get ad code for the specified ad unit. -- -- /See:/ 'accountsAdUnitsGetAdCode' smart constructor. -data AccountsAdUnitsGetAdCode = AccountsAdUnitsGetAdCode +data AccountsAdUnitsGetAdCode = AccountsAdUnitsGetAdCode' { _aaugacAdUnitId :: !Text , _aaugacAdClientId :: !Text , _aaugacAccountId :: !Text @@ -79,7 +79,7 @@ -> Text -- ^ 'aaugacAccountId' -> AccountsAdUnitsGetAdCode accountsAdUnitsGetAdCode pAaugacAdUnitId_ pAaugacAdClientId_ pAaugacAccountId_ = - AccountsAdUnitsGetAdCode + AccountsAdUnitsGetAdCode' { _aaugacAdUnitId = pAaugacAdUnitId_ , _aaugacAdClientId = pAaugacAdClientId_ , _aaugacAccountId = pAaugacAccountId_ @@ -105,7 +105,10 @@ instance GoogleRequest AccountsAdUnitsGetAdCode where type Rs AccountsAdUnitsGetAdCode = AdCode - requestClient AccountsAdUnitsGetAdCode{..} + type Scopes AccountsAdUnitsGetAdCode = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AccountsAdUnitsGetAdCode'{..} = go _aaugacAccountId _aaugacAdClientId _aaugacAdUnitId (Just AltJSON) diff --git a/gen/Network/Google/Resource/AdSense/Accounts/AdUnits/List.hs b/gen/Network/Google/Resource/AdSense/Accounts/AdUnits/List.hs --- a/gen/Network/Google/Resource/AdSense/Accounts/AdUnits/List.hs +++ b/gen/Network/Google/Resource/AdSense/Accounts/AdUnits/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Accounts.AdUnits.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -61,7 +61,7 @@ -- | List all ad units in the specified ad client for the specified account. -- -- /See:/ 'accountsAdUnitsList' smart constructor. -data AccountsAdUnitsList = AccountsAdUnitsList +data AccountsAdUnitsList = AccountsAdUnitsList' { _aaulIncludeInactive :: !(Maybe Bool) , _aaulAdClientId :: !Text , _aaulAccountId :: !Text @@ -87,7 +87,7 @@ -> Text -- ^ 'aaulAccountId' -> AccountsAdUnitsList accountsAdUnitsList pAaulAdClientId_ pAaulAccountId_ = - AccountsAdUnitsList + AccountsAdUnitsList' { _aaulIncludeInactive = Nothing , _aaulAdClientId = pAaulAdClientId_ , _aaulAccountId = pAaulAccountId_ @@ -131,7 +131,10 @@ instance GoogleRequest AccountsAdUnitsList where type Rs AccountsAdUnitsList = AdUnits - requestClient AccountsAdUnitsList{..} + type Scopes AccountsAdUnitsList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AccountsAdUnitsList'{..} = go _aaulAccountId _aaulAdClientId _aaulIncludeInactive _aaulPageToken diff --git a/gen/Network/Google/Resource/AdSense/Accounts/Alerts/Delete.hs b/gen/Network/Google/Resource/AdSense/Accounts/Alerts/Delete.hs --- a/gen/Network/Google/Resource/AdSense/Accounts/Alerts/Delete.hs +++ b/gen/Network/Google/Resource/AdSense/Accounts/Alerts/Delete.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Accounts.Alerts.Delete --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -56,7 +56,7 @@ -- AdSense account. -- -- /See:/ 'accountsAlertsDelete' smart constructor. -data AccountsAlertsDelete = AccountsAlertsDelete +data AccountsAlertsDelete = AccountsAlertsDelete' { _aadAlertId :: !Text , _aadAccountId :: !Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -73,7 +73,7 @@ -> Text -- ^ 'aadAccountId' -> AccountsAlertsDelete accountsAlertsDelete pAadAlertId_ pAadAccountId_ = - AccountsAlertsDelete + AccountsAlertsDelete' { _aadAlertId = pAadAlertId_ , _aadAccountId = pAadAccountId_ } @@ -90,7 +90,9 @@ instance GoogleRequest AccountsAlertsDelete where type Rs AccountsAlertsDelete = () - requestClient AccountsAlertsDelete{..} + type Scopes AccountsAlertsDelete = + '["https://www.googleapis.com/auth/adsense"] + requestClient AccountsAlertsDelete'{..} = go _aadAccountId _aadAlertId (Just AltJSON) adSenseService where go diff --git a/gen/Network/Google/Resource/AdSense/Accounts/Alerts/List.hs b/gen/Network/Google/Resource/AdSense/Accounts/Alerts/List.hs --- a/gen/Network/Google/Resource/AdSense/Accounts/Alerts/List.hs +++ b/gen/Network/Google/Resource/AdSense/Accounts/Alerts/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Accounts.Alerts.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -54,7 +54,7 @@ -- | List the alerts for the specified AdSense account. -- -- /See:/ 'accountsAlertsList' smart constructor. -data AccountsAlertsList = AccountsAlertsList +data AccountsAlertsList = AccountsAlertsList' { _aalLocale :: !(Maybe Text) , _aalAccountId :: !Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -70,7 +70,7 @@ :: Text -- ^ 'aalAccountId' -> AccountsAlertsList accountsAlertsList pAalAccountId_ = - AccountsAlertsList + AccountsAlertsList' { _aalLocale = Nothing , _aalAccountId = pAalAccountId_ } @@ -89,7 +89,10 @@ instance GoogleRequest AccountsAlertsList where type Rs AccountsAlertsList = Alerts - requestClient AccountsAlertsList{..} + type Scopes AccountsAlertsList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AccountsAlertsList'{..} = go _aalAccountId _aalLocale (Just AltJSON) adSenseService where go diff --git a/gen/Network/Google/Resource/AdSense/Accounts/CustomChannels/AdUnits/List.hs b/gen/Network/Google/Resource/AdSense/Accounts/CustomChannels/AdUnits/List.hs --- a/gen/Network/Google/Resource/AdSense/Accounts/CustomChannels/AdUnits/List.hs +++ b/gen/Network/Google/Resource/AdSense/Accounts/CustomChannels/AdUnits/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Accounts.CustomChannels.AdUnits.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -64,7 +64,7 @@ -- | List all ad units in the specified custom channel. -- -- /See:/ 'accountsCustomChannelsAdUnitsList' smart constructor. -data AccountsCustomChannelsAdUnitsList = AccountsCustomChannelsAdUnitsList +data AccountsCustomChannelsAdUnitsList = AccountsCustomChannelsAdUnitsList' { _accaulIncludeInactive :: !(Maybe Bool) , _accaulCustomChannelId :: !Text , _accaulAdClientId :: !Text @@ -94,7 +94,7 @@ -> Text -- ^ 'accaulAccountId' -> AccountsCustomChannelsAdUnitsList accountsCustomChannelsAdUnitsList pAccaulCustomChannelId_ pAccaulAdClientId_ pAccaulAccountId_ = - AccountsCustomChannelsAdUnitsList + AccountsCustomChannelsAdUnitsList' { _accaulIncludeInactive = Nothing , _accaulCustomChannelId = pAccaulCustomChannelId_ , _accaulAdClientId = pAccaulAdClientId_ @@ -146,7 +146,10 @@ instance GoogleRequest AccountsCustomChannelsAdUnitsList where type Rs AccountsCustomChannelsAdUnitsList = AdUnits - requestClient AccountsCustomChannelsAdUnitsList{..} + type Scopes AccountsCustomChannelsAdUnitsList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AccountsCustomChannelsAdUnitsList'{..} = go _accaulAccountId _accaulAdClientId _accaulCustomChannelId _accaulIncludeInactive diff --git a/gen/Network/Google/Resource/AdSense/Accounts/CustomChannels/Get.hs b/gen/Network/Google/Resource/AdSense/Accounts/CustomChannels/Get.hs --- a/gen/Network/Google/Resource/AdSense/Accounts/CustomChannels/Get.hs +++ b/gen/Network/Google/Resource/AdSense/Accounts/CustomChannels/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Accounts.CustomChannels.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -59,7 +59,7 @@ -- specified account. -- -- /See:/ 'accountsCustomChannelsGet' smart constructor. -data AccountsCustomChannelsGet = AccountsCustomChannelsGet +data AccountsCustomChannelsGet = AccountsCustomChannelsGet' { _accgCustomChannelId :: !Text , _accgAdClientId :: !Text , _accgAccountId :: !Text @@ -80,7 +80,7 @@ -> Text -- ^ 'accgAccountId' -> AccountsCustomChannelsGet accountsCustomChannelsGet pAccgCustomChannelId_ pAccgAdClientId_ pAccgAccountId_ = - AccountsCustomChannelsGet + AccountsCustomChannelsGet' { _accgCustomChannelId = pAccgCustomChannelId_ , _accgAdClientId = pAccgAdClientId_ , _accgAccountId = pAccgAccountId_ @@ -107,7 +107,10 @@ instance GoogleRequest AccountsCustomChannelsGet where type Rs AccountsCustomChannelsGet = CustomChannel - requestClient AccountsCustomChannelsGet{..} + type Scopes AccountsCustomChannelsGet = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AccountsCustomChannelsGet'{..} = go _accgAccountId _accgAdClientId _accgCustomChannelId (Just AltJSON) diff --git a/gen/Network/Google/Resource/AdSense/Accounts/CustomChannels/List.hs b/gen/Network/Google/Resource/AdSense/Accounts/CustomChannels/List.hs --- a/gen/Network/Google/Resource/AdSense/Accounts/CustomChannels/List.hs +++ b/gen/Network/Google/Resource/AdSense/Accounts/CustomChannels/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Accounts.CustomChannels.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -62,7 +62,7 @@ -- account. -- -- /See:/ 'accountsCustomChannelsList' smart constructor. -data AccountsCustomChannelsList = AccountsCustomChannelsList +data AccountsCustomChannelsList = AccountsCustomChannelsList' { _acclAdClientId :: !Text , _acclAccountId :: !Text , _acclPageToken :: !(Maybe Text) @@ -85,7 +85,7 @@ -> Text -- ^ 'acclAccountId' -> AccountsCustomChannelsList accountsCustomChannelsList pAcclAdClientId_ pAcclAccountId_ = - AccountsCustomChannelsList + AccountsCustomChannelsList' { _acclAdClientId = pAcclAdClientId_ , _acclAccountId = pAcclAccountId_ , _acclPageToken = Nothing @@ -123,7 +123,10 @@ instance GoogleRequest AccountsCustomChannelsList where type Rs AccountsCustomChannelsList = CustomChannels - requestClient AccountsCustomChannelsList{..} + type Scopes AccountsCustomChannelsList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AccountsCustomChannelsList'{..} = go _acclAccountId _acclAdClientId _acclPageToken _acclMaxResults (Just AltJSON) diff --git a/gen/Network/Google/Resource/AdSense/Accounts/Get.hs b/gen/Network/Google/Resource/AdSense/Accounts/Get.hs --- a/gen/Network/Google/Resource/AdSense/Accounts/Get.hs +++ b/gen/Network/Google/Resource/AdSense/Accounts/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Accounts.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -53,7 +53,7 @@ -- | Get information about the selected AdSense account. -- -- /See:/ 'accountsGet' smart constructor. -data AccountsGet = AccountsGet +data AccountsGet = AccountsGet' { _agTree :: !(Maybe Bool) , _agAccountId :: !Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -69,7 +69,7 @@ :: Text -- ^ 'agAccountId' -> AccountsGet accountsGet pAgAccountId_ = - AccountsGet + AccountsGet' { _agTree = Nothing , _agAccountId = pAgAccountId_ } @@ -85,7 +85,10 @@ instance GoogleRequest AccountsGet where type Rs AccountsGet = Account - requestClient AccountsGet{..} + type Scopes AccountsGet = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AccountsGet'{..} = go _agAccountId _agTree (Just AltJSON) adSenseService where go diff --git a/gen/Network/Google/Resource/AdSense/Accounts/List.hs b/gen/Network/Google/Resource/AdSense/Accounts/List.hs --- a/gen/Network/Google/Resource/AdSense/Accounts/List.hs +++ b/gen/Network/Google/Resource/AdSense/Accounts/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Accounts.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -53,7 +53,7 @@ -- | List all accounts available to this AdSense account. -- -- /See:/ 'accountsList' smart constructor. -data AccountsList = AccountsList +data AccountsList = AccountsList' { _alPageToken :: !(Maybe Text) , _alMaxResults :: !(Maybe (Textual Int32)) } deriving (Eq,Show,Data,Typeable,Generic) @@ -68,7 +68,7 @@ accountsList :: AccountsList accountsList = - AccountsList + AccountsList' { _alPageToken = Nothing , _alMaxResults = Nothing } @@ -89,7 +89,10 @@ instance GoogleRequest AccountsList where type Rs AccountsList = Accounts - requestClient AccountsList{..} + type Scopes AccountsList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AccountsList'{..} = go _alPageToken _alMaxResults (Just AltJSON) adSenseService where go diff --git a/gen/Network/Google/Resource/AdSense/Accounts/Payments/List.hs b/gen/Network/Google/Resource/AdSense/Accounts/Payments/List.hs --- a/gen/Network/Google/Resource/AdSense/Accounts/Payments/List.hs +++ b/gen/Network/Google/Resource/AdSense/Accounts/Payments/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Accounts.Payments.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -52,7 +52,7 @@ -- | List the payments for the specified AdSense account. -- -- /See:/ 'accountsPaymentsList' smart constructor. -newtype AccountsPaymentsList = AccountsPaymentsList +newtype AccountsPaymentsList = AccountsPaymentsList' { _aplAccountId :: Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -65,7 +65,7 @@ :: Text -- ^ 'aplAccountId' -> AccountsPaymentsList accountsPaymentsList pAplAccountId_ = - AccountsPaymentsList + AccountsPaymentsList' { _aplAccountId = pAplAccountId_ } @@ -76,7 +76,10 @@ instance GoogleRequest AccountsPaymentsList where type Rs AccountsPaymentsList = Payments - requestClient AccountsPaymentsList{..} + type Scopes AccountsPaymentsList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AccountsPaymentsList'{..} = go _aplAccountId (Just AltJSON) adSenseService where go = buildClient diff --git a/gen/Network/Google/Resource/AdSense/Accounts/Reports/Generate.hs b/gen/Network/Google/Resource/AdSense/Accounts/Reports/Generate.hs --- a/gen/Network/Google/Resource/AdSense/Accounts/Reports/Generate.hs +++ b/gen/Network/Google/Resource/AdSense/Accounts/Reports/Generate.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Accounts.Reports.Generate --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -99,7 +99,7 @@ -- specify \"alt=csv\" as a query parameter. -- -- /See:/ 'accountsReportsGenerate' smart constructor. -data AccountsReportsGenerate = AccountsReportsGenerate +data AccountsReportsGenerate = AccountsReportsGenerate' { _argDimension :: !(Maybe [Text]) , _argLocale :: !(Maybe Text) , _argEndDate :: !Text @@ -147,7 +147,7 @@ -> Text -- ^ 'argAccountId' -> AccountsReportsGenerate accountsReportsGenerate pArgEndDate_ pArgStartDate_ pArgAccountId_ = - AccountsReportsGenerate + AccountsReportsGenerate' { _argDimension = Nothing , _argLocale = Nothing , _argEndDate = pArgEndDate_ @@ -243,7 +243,10 @@ instance GoogleRequest AccountsReportsGenerate where type Rs AccountsReportsGenerate = AdsenseReportsGenerateResponse - requestClient AccountsReportsGenerate{..} + type Scopes AccountsReportsGenerate = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AccountsReportsGenerate'{..} = go _argAccountId (Just _argStartDate) (Just _argEndDate) (_argDimension ^. _Default) @@ -266,8 +269,10 @@ (MediaDownload AccountsReportsGenerate) where type Rs (MediaDownload AccountsReportsGenerate) = Stream + type Scopes (MediaDownload AccountsReportsGenerate) = + Scopes AccountsReportsGenerate requestClient - (MediaDownload AccountsReportsGenerate{..}) + (MediaDownload AccountsReportsGenerate'{..}) = go _argAccountId (Just _argStartDate) (Just _argEndDate) (_argDimension ^. _Default) diff --git a/gen/Network/Google/Resource/AdSense/Accounts/Reports/Saved/Generate.hs b/gen/Network/Google/Resource/AdSense/Accounts/Reports/Saved/Generate.hs --- a/gen/Network/Google/Resource/AdSense/Accounts/Reports/Saved/Generate.hs +++ b/gen/Network/Google/Resource/AdSense/Accounts/Reports/Saved/Generate.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Accounts.Reports.Saved.Generate --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -63,7 +63,7 @@ -- query parameters. -- -- /See:/ 'accountsReportsSavedGenerate' smart constructor. -data AccountsReportsSavedGenerate = AccountsReportsSavedGenerate +data AccountsReportsSavedGenerate = AccountsReportsSavedGenerate' { _arsgLocale :: !(Maybe Text) , _arsgSavedReportId :: !Text , _arsgAccountId :: !Text @@ -89,7 +89,7 @@ -> Text -- ^ 'arsgAccountId' -> AccountsReportsSavedGenerate accountsReportsSavedGenerate pArsgSavedReportId_ pArsgAccountId_ = - AccountsReportsSavedGenerate + AccountsReportsSavedGenerate' { _arsgLocale = Nothing , _arsgSavedReportId = pArsgSavedReportId_ , _arsgAccountId = pArsgAccountId_ @@ -133,7 +133,10 @@ where type Rs AccountsReportsSavedGenerate = AdsenseReportsGenerateResponse - requestClient AccountsReportsSavedGenerate{..} + type Scopes AccountsReportsSavedGenerate = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AccountsReportsSavedGenerate'{..} = go _arsgAccountId _arsgSavedReportId _arsgLocale _arsgStartIndex _arsgMaxResults diff --git a/gen/Network/Google/Resource/AdSense/Accounts/Reports/Saved/List.hs b/gen/Network/Google/Resource/AdSense/Accounts/Reports/Saved/List.hs --- a/gen/Network/Google/Resource/AdSense/Accounts/Reports/Saved/List.hs +++ b/gen/Network/Google/Resource/AdSense/Accounts/Reports/Saved/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Accounts.Reports.Saved.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -57,7 +57,7 @@ -- | List all saved reports in the specified AdSense account. -- -- /See:/ 'accountsReportsSavedList' smart constructor. -data AccountsReportsSavedList = AccountsReportsSavedList +data AccountsReportsSavedList = AccountsReportsSavedList' { _arslAccountId :: !Text , _arslPageToken :: !(Maybe Text) , _arslMaxResults :: !(Maybe (Textual Int32)) @@ -76,7 +76,7 @@ :: Text -- ^ 'arslAccountId' -> AccountsReportsSavedList accountsReportsSavedList pArslAccountId_ = - AccountsReportsSavedList + AccountsReportsSavedList' { _arslAccountId = pArslAccountId_ , _arslPageToken = Nothing , _arslMaxResults = Nothing @@ -106,7 +106,10 @@ instance GoogleRequest AccountsReportsSavedList where type Rs AccountsReportsSavedList = SavedReports - requestClient AccountsReportsSavedList{..} + type Scopes AccountsReportsSavedList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AccountsReportsSavedList'{..} = go _arslAccountId _arslPageToken _arslMaxResults (Just AltJSON) adSenseService diff --git a/gen/Network/Google/Resource/AdSense/Accounts/Savedadstyles/Get.hs b/gen/Network/Google/Resource/AdSense/Accounts/Savedadstyles/Get.hs --- a/gen/Network/Google/Resource/AdSense/Accounts/Savedadstyles/Get.hs +++ b/gen/Network/Google/Resource/AdSense/Accounts/Savedadstyles/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Accounts.Savedadstyles.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -54,7 +54,7 @@ -- | List a specific saved ad style for the specified account. -- -- /See:/ 'accountsSavedadstylesGet' smart constructor. -data AccountsSavedadstylesGet = AccountsSavedadstylesGet +data AccountsSavedadstylesGet = AccountsSavedadstylesGet' { _asgSavedAdStyleId :: !Text , _asgAccountId :: !Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -71,7 +71,7 @@ -> Text -- ^ 'asgAccountId' -> AccountsSavedadstylesGet accountsSavedadstylesGet pAsgSavedAdStyleId_ pAsgAccountId_ = - AccountsSavedadstylesGet + AccountsSavedadstylesGet' { _asgSavedAdStyleId = pAsgSavedAdStyleId_ , _asgAccountId = pAsgAccountId_ } @@ -89,7 +89,10 @@ instance GoogleRequest AccountsSavedadstylesGet where type Rs AccountsSavedadstylesGet = SavedAdStyle - requestClient AccountsSavedadstylesGet{..} + type Scopes AccountsSavedadstylesGet = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AccountsSavedadstylesGet'{..} = go _asgAccountId _asgSavedAdStyleId (Just AltJSON) adSenseService where go diff --git a/gen/Network/Google/Resource/AdSense/Accounts/Savedadstyles/List.hs b/gen/Network/Google/Resource/AdSense/Accounts/Savedadstyles/List.hs --- a/gen/Network/Google/Resource/AdSense/Accounts/Savedadstyles/List.hs +++ b/gen/Network/Google/Resource/AdSense/Accounts/Savedadstyles/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Accounts.Savedadstyles.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -56,7 +56,7 @@ -- | List all saved ad styles in the specified account. -- -- /See:/ 'accountsSavedadstylesList' smart constructor. -data AccountsSavedadstylesList = AccountsSavedadstylesList +data AccountsSavedadstylesList = AccountsSavedadstylesList' { _aslAccountId :: !Text , _aslPageToken :: !(Maybe Text) , _aslMaxResults :: !(Maybe (Textual Int32)) @@ -75,7 +75,7 @@ :: Text -- ^ 'aslAccountId' -> AccountsSavedadstylesList accountsSavedadstylesList pAslAccountId_ = - AccountsSavedadstylesList + AccountsSavedadstylesList' { _aslAccountId = pAslAccountId_ , _aslPageToken = Nothing , _aslMaxResults = Nothing @@ -104,7 +104,10 @@ instance GoogleRequest AccountsSavedadstylesList where type Rs AccountsSavedadstylesList = SavedAdStyles - requestClient AccountsSavedadstylesList{..} + type Scopes AccountsSavedadstylesList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AccountsSavedadstylesList'{..} = go _aslAccountId _aslPageToken _aslMaxResults (Just AltJSON) adSenseService diff --git a/gen/Network/Google/Resource/AdSense/Accounts/URLChannels/List.hs b/gen/Network/Google/Resource/AdSense/Accounts/URLChannels/List.hs --- a/gen/Network/Google/Resource/AdSense/Accounts/URLChannels/List.hs +++ b/gen/Network/Google/Resource/AdSense/Accounts/URLChannels/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Accounts.URLChannels.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -61,7 +61,7 @@ -- account. -- -- /See:/ 'accountsURLChannelsList' smart constructor. -data AccountsURLChannelsList = AccountsURLChannelsList +data AccountsURLChannelsList = AccountsURLChannelsList' { _auclAdClientId :: !Text , _auclAccountId :: !Text , _auclPageToken :: !(Maybe Text) @@ -84,7 +84,7 @@ -> Text -- ^ 'auclAccountId' -> AccountsURLChannelsList accountsURLChannelsList pAuclAdClientId_ pAuclAccountId_ = - AccountsURLChannelsList + AccountsURLChannelsList' { _auclAdClientId = pAuclAdClientId_ , _auclAccountId = pAuclAccountId_ , _auclPageToken = Nothing @@ -121,7 +121,10 @@ instance GoogleRequest AccountsURLChannelsList where type Rs AccountsURLChannelsList = URLChannels - requestClient AccountsURLChannelsList{..} + type Scopes AccountsURLChannelsList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AccountsURLChannelsList'{..} = go _auclAccountId _auclAdClientId _auclPageToken _auclMaxResults (Just AltJSON) diff --git a/gen/Network/Google/Resource/AdSense/AdClients/List.hs b/gen/Network/Google/Resource/AdSense/AdClients/List.hs --- a/gen/Network/Google/Resource/AdSense/AdClients/List.hs +++ b/gen/Network/Google/Resource/AdSense/AdClients/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.AdClients.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -53,7 +53,7 @@ -- | List all ad clients in this AdSense account. -- -- /See:/ 'adClientsList' smart constructor. -data AdClientsList = AdClientsList +data AdClientsList = AdClientsList' { _aclPageToken :: !(Maybe Text) , _aclMaxResults :: !(Maybe (Textual Int32)) } deriving (Eq,Show,Data,Typeable,Generic) @@ -68,7 +68,7 @@ adClientsList :: AdClientsList adClientsList = - AdClientsList + AdClientsList' { _aclPageToken = Nothing , _aclMaxResults = Nothing } @@ -90,7 +90,10 @@ instance GoogleRequest AdClientsList where type Rs AdClientsList = AdClients - requestClient AdClientsList{..} + type Scopes AdClientsList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AdClientsList'{..} = go _aclPageToken _aclMaxResults (Just AltJSON) adSenseService where go diff --git a/gen/Network/Google/Resource/AdSense/AdUnits/CustomChannels/List.hs b/gen/Network/Google/Resource/AdSense/AdUnits/CustomChannels/List.hs --- a/gen/Network/Google/Resource/AdSense/AdUnits/CustomChannels/List.hs +++ b/gen/Network/Google/Resource/AdSense/AdUnits/CustomChannels/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.AdUnits.CustomChannels.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -60,7 +60,7 @@ -- | List all custom channels which the specified ad unit belongs to. -- -- /See:/ 'adUnitsCustomChannelsList' smart constructor. -data AdUnitsCustomChannelsList = AdUnitsCustomChannelsList +data AdUnitsCustomChannelsList = AdUnitsCustomChannelsList' { _aucclAdUnitId :: !Text , _aucclAdClientId :: !Text , _aucclPageToken :: !(Maybe Text) @@ -83,7 +83,7 @@ -> Text -- ^ 'aucclAdClientId' -> AdUnitsCustomChannelsList adUnitsCustomChannelsList pAucclAdUnitId_ pAucclAdClientId_ = - AdUnitsCustomChannelsList + AdUnitsCustomChannelsList' { _aucclAdUnitId = pAucclAdUnitId_ , _aucclAdClientId = pAucclAdClientId_ , _aucclPageToken = Nothing @@ -121,7 +121,10 @@ instance GoogleRequest AdUnitsCustomChannelsList where type Rs AdUnitsCustomChannelsList = CustomChannels - requestClient AdUnitsCustomChannelsList{..} + type Scopes AdUnitsCustomChannelsList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AdUnitsCustomChannelsList'{..} = go _aucclAdClientId _aucclAdUnitId _aucclPageToken _aucclMaxResults (Just AltJSON) diff --git a/gen/Network/Google/Resource/AdSense/AdUnits/Get.hs b/gen/Network/Google/Resource/AdSense/AdUnits/Get.hs --- a/gen/Network/Google/Resource/AdSense/AdUnits/Get.hs +++ b/gen/Network/Google/Resource/AdSense/AdUnits/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.AdUnits.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -54,7 +54,7 @@ -- | Gets the specified ad unit in the specified ad client. -- -- /See:/ 'adUnitsGet' smart constructor. -data AdUnitsGet = AdUnitsGet +data AdUnitsGet = AdUnitsGet' { _augAdUnitId :: !Text , _augAdClientId :: !Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -71,7 +71,7 @@ -> Text -- ^ 'augAdClientId' -> AdUnitsGet adUnitsGet pAugAdUnitId_ pAugAdClientId_ = - AdUnitsGet + AdUnitsGet' { _augAdUnitId = pAugAdUnitId_ , _augAdClientId = pAugAdClientId_ } @@ -89,7 +89,10 @@ instance GoogleRequest AdUnitsGet where type Rs AdUnitsGet = AdUnit - requestClient AdUnitsGet{..} + type Scopes AdUnitsGet = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AdUnitsGet'{..} = go _augAdClientId _augAdUnitId (Just AltJSON) adSenseService where go diff --git a/gen/Network/Google/Resource/AdSense/AdUnits/GetAdCode.hs b/gen/Network/Google/Resource/AdSense/AdUnits/GetAdCode.hs --- a/gen/Network/Google/Resource/AdSense/AdUnits/GetAdCode.hs +++ b/gen/Network/Google/Resource/AdSense/AdUnits/GetAdCode.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.AdUnits.GetAdCode --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -55,7 +55,7 @@ -- | Get ad code for the specified ad unit. -- -- /See:/ 'adUnitsGetAdCode' smart constructor. -data AdUnitsGetAdCode = AdUnitsGetAdCode +data AdUnitsGetAdCode = AdUnitsGetAdCode' { _augacAdUnitId :: !Text , _augacAdClientId :: !Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -72,7 +72,7 @@ -> Text -- ^ 'augacAdClientId' -> AdUnitsGetAdCode adUnitsGetAdCode pAugacAdUnitId_ pAugacAdClientId_ = - AdUnitsGetAdCode + AdUnitsGetAdCode' { _augacAdUnitId = pAugacAdUnitId_ , _augacAdClientId = pAugacAdClientId_ } @@ -91,7 +91,10 @@ instance GoogleRequest AdUnitsGetAdCode where type Rs AdUnitsGetAdCode = AdCode - requestClient AdUnitsGetAdCode{..} + type Scopes AdUnitsGetAdCode = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AdUnitsGetAdCode'{..} = go _augacAdClientId _augacAdUnitId (Just AltJSON) adSenseService where go diff --git a/gen/Network/Google/Resource/AdSense/AdUnits/List.hs b/gen/Network/Google/Resource/AdSense/AdUnits/List.hs --- a/gen/Network/Google/Resource/AdSense/AdUnits/List.hs +++ b/gen/Network/Google/Resource/AdSense/AdUnits/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.AdUnits.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -58,7 +58,7 @@ -- | List all ad units in the specified ad client for this AdSense account. -- -- /See:/ 'adUnitsList' smart constructor. -data AdUnitsList = AdUnitsList +data AdUnitsList = AdUnitsList' { _aulIncludeInactive :: !(Maybe Bool) , _aulAdClientId :: !Text , _aulPageToken :: !(Maybe Text) @@ -80,7 +80,7 @@ :: Text -- ^ 'aulAdClientId' -> AdUnitsList adUnitsList pAulAdClientId_ = - AdUnitsList + AdUnitsList' { _aulIncludeInactive = Nothing , _aulAdClientId = pAulAdClientId_ , _aulPageToken = Nothing @@ -116,7 +116,10 @@ instance GoogleRequest AdUnitsList where type Rs AdUnitsList = AdUnits - requestClient AdUnitsList{..} + type Scopes AdUnitsList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AdUnitsList'{..} = go _aulAdClientId _aulIncludeInactive _aulPageToken _aulMaxResults (Just AltJSON) diff --git a/gen/Network/Google/Resource/AdSense/Alerts/Delete.hs b/gen/Network/Google/Resource/AdSense/Alerts/Delete.hs --- a/gen/Network/Google/Resource/AdSense/Alerts/Delete.hs +++ b/gen/Network/Google/Resource/AdSense/Alerts/Delete.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Alerts.Delete --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -53,7 +53,7 @@ -- account. -- -- /See:/ 'alertsDelete' smart constructor. -newtype AlertsDelete = AlertsDelete +newtype AlertsDelete = AlertsDelete' { _adAlertId :: Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -66,7 +66,7 @@ :: Text -- ^ 'adAlertId' -> AlertsDelete alertsDelete pAdAlertId_ = - AlertsDelete + AlertsDelete' { _adAlertId = pAdAlertId_ } @@ -77,7 +77,9 @@ instance GoogleRequest AlertsDelete where type Rs AlertsDelete = () - requestClient AlertsDelete{..} + type Scopes AlertsDelete = + '["https://www.googleapis.com/auth/adsense"] + requestClient AlertsDelete'{..} = go _adAlertId (Just AltJSON) adSenseService where go = buildClient (Proxy :: Proxy AlertsDeleteResource) diff --git a/gen/Network/Google/Resource/AdSense/Alerts/List.hs b/gen/Network/Google/Resource/AdSense/Alerts/List.hs --- a/gen/Network/Google/Resource/AdSense/Alerts/List.hs +++ b/gen/Network/Google/Resource/AdSense/Alerts/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Alerts.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -51,7 +51,7 @@ -- | List the alerts for this AdSense account. -- -- /See:/ 'alertsList' smart constructor. -newtype AlertsList = AlertsList +newtype AlertsList = AlertsList' { _alLocale :: Maybe Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -63,7 +63,7 @@ alertsList :: AlertsList alertsList = - AlertsList + AlertsList' { _alLocale = Nothing } @@ -75,7 +75,10 @@ instance GoogleRequest AlertsList where type Rs AlertsList = Alerts - requestClient AlertsList{..} + type Scopes AlertsList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient AlertsList'{..} = go _alLocale (Just AltJSON) adSenseService where go = buildClient (Proxy :: Proxy AlertsListResource) diff --git a/gen/Network/Google/Resource/AdSense/CustomChannels/AdUnits/List.hs b/gen/Network/Google/Resource/AdSense/CustomChannels/AdUnits/List.hs --- a/gen/Network/Google/Resource/AdSense/CustomChannels/AdUnits/List.hs +++ b/gen/Network/Google/Resource/AdSense/CustomChannels/AdUnits/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.CustomChannels.AdUnits.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -61,7 +61,7 @@ -- | List all ad units in the specified custom channel. -- -- /See:/ 'customChannelsAdUnitsList' smart constructor. -data CustomChannelsAdUnitsList = CustomChannelsAdUnitsList +data CustomChannelsAdUnitsList = CustomChannelsAdUnitsList' { _ccaulIncludeInactive :: !(Maybe Bool) , _ccaulCustomChannelId :: !Text , _ccaulAdClientId :: !Text @@ -87,7 +87,7 @@ -> Text -- ^ 'ccaulAdClientId' -> CustomChannelsAdUnitsList customChannelsAdUnitsList pCcaulCustomChannelId_ pCcaulAdClientId_ = - CustomChannelsAdUnitsList + CustomChannelsAdUnitsList' { _ccaulIncludeInactive = Nothing , _ccaulCustomChannelId = pCcaulCustomChannelId_ , _ccaulAdClientId = pCcaulAdClientId_ @@ -132,7 +132,10 @@ instance GoogleRequest CustomChannelsAdUnitsList where type Rs CustomChannelsAdUnitsList = AdUnits - requestClient CustomChannelsAdUnitsList{..} + type Scopes CustomChannelsAdUnitsList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient CustomChannelsAdUnitsList'{..} = go _ccaulAdClientId _ccaulCustomChannelId _ccaulIncludeInactive _ccaulPageToken diff --git a/gen/Network/Google/Resource/AdSense/CustomChannels/Get.hs b/gen/Network/Google/Resource/AdSense/CustomChannels/Get.hs --- a/gen/Network/Google/Resource/AdSense/CustomChannels/Get.hs +++ b/gen/Network/Google/Resource/AdSense/CustomChannels/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.CustomChannels.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -54,7 +54,7 @@ -- | Get the specified custom channel from the specified ad client. -- -- /See:/ 'customChannelsGet' smart constructor. -data CustomChannelsGet = CustomChannelsGet +data CustomChannelsGet = CustomChannelsGet' { _ccgCustomChannelId :: !Text , _ccgAdClientId :: !Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -71,7 +71,7 @@ -> Text -- ^ 'ccgAdClientId' -> CustomChannelsGet customChannelsGet pCcgCustomChannelId_ pCcgAdClientId_ = - CustomChannelsGet + CustomChannelsGet' { _ccgCustomChannelId = pCcgCustomChannelId_ , _ccgAdClientId = pCcgAdClientId_ } @@ -90,7 +90,10 @@ instance GoogleRequest CustomChannelsGet where type Rs CustomChannelsGet = CustomChannel - requestClient CustomChannelsGet{..} + type Scopes CustomChannelsGet = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient CustomChannelsGet'{..} = go _ccgAdClientId _ccgCustomChannelId (Just AltJSON) adSenseService diff --git a/gen/Network/Google/Resource/AdSense/CustomChannels/List.hs b/gen/Network/Google/Resource/AdSense/CustomChannels/List.hs --- a/gen/Network/Google/Resource/AdSense/CustomChannels/List.hs +++ b/gen/Network/Google/Resource/AdSense/CustomChannels/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.CustomChannels.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -59,7 +59,7 @@ -- account. -- -- /See:/ 'customChannelsList' smart constructor. -data CustomChannelsList = CustomChannelsList +data CustomChannelsList = CustomChannelsList' { _cclAdClientId :: !Text , _cclPageToken :: !(Maybe Text) , _cclMaxResults :: !(Maybe (Textual Int32)) @@ -78,7 +78,7 @@ :: Text -- ^ 'cclAdClientId' -> CustomChannelsList customChannelsList pCclAdClientId_ = - CustomChannelsList + CustomChannelsList' { _cclAdClientId = pCclAdClientId_ , _cclPageToken = Nothing , _cclMaxResults = Nothing @@ -107,7 +107,10 @@ instance GoogleRequest CustomChannelsList where type Rs CustomChannelsList = CustomChannels - requestClient CustomChannelsList{..} + type Scopes CustomChannelsList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient CustomChannelsList'{..} = go _cclAdClientId _cclPageToken _cclMaxResults (Just AltJSON) adSenseService diff --git a/gen/Network/Google/Resource/AdSense/Metadata/Dimensions/List.hs b/gen/Network/Google/Resource/AdSense/Metadata/Dimensions/List.hs --- a/gen/Network/Google/Resource/AdSense/Metadata/Dimensions/List.hs +++ b/gen/Network/Google/Resource/AdSense/Metadata/Dimensions/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Metadata.Dimensions.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -50,18 +50,21 @@ -- -- /See:/ 'metadataDimensionsList' smart constructor. data MetadataDimensionsList = - MetadataDimensionsList + MetadataDimensionsList' deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'MetadataDimensionsList' with the minimum fields required to make a request. -- metadataDimensionsList :: MetadataDimensionsList -metadataDimensionsList = MetadataDimensionsList +metadataDimensionsList = MetadataDimensionsList' instance GoogleRequest MetadataDimensionsList where type Rs MetadataDimensionsList = Metadata - requestClient MetadataDimensionsList{} + type Scopes MetadataDimensionsList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient MetadataDimensionsList'{} = go (Just AltJSON) adSenseService where go = buildClient diff --git a/gen/Network/Google/Resource/AdSense/Metadata/Metrics/List.hs b/gen/Network/Google/Resource/AdSense/Metadata/Metrics/List.hs --- a/gen/Network/Google/Resource/AdSense/Metadata/Metrics/List.hs +++ b/gen/Network/Google/Resource/AdSense/Metadata/Metrics/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Metadata.Metrics.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -50,18 +50,21 @@ -- -- /See:/ 'metadataMetricsList' smart constructor. data MetadataMetricsList = - MetadataMetricsList + MetadataMetricsList' deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'MetadataMetricsList' with the minimum fields required to make a request. -- metadataMetricsList :: MetadataMetricsList -metadataMetricsList = MetadataMetricsList +metadataMetricsList = MetadataMetricsList' instance GoogleRequest MetadataMetricsList where type Rs MetadataMetricsList = Metadata - requestClient MetadataMetricsList{} + type Scopes MetadataMetricsList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient MetadataMetricsList'{} = go (Just AltJSON) adSenseService where go = buildClient diff --git a/gen/Network/Google/Resource/AdSense/Payments/List.hs b/gen/Network/Google/Resource/AdSense/Payments/List.hs --- a/gen/Network/Google/Resource/AdSense/Payments/List.hs +++ b/gen/Network/Google/Resource/AdSense/Payments/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Payments.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -49,18 +49,21 @@ -- -- /See:/ 'paymentsList' smart constructor. data PaymentsList = - PaymentsList + PaymentsList' deriving (Eq,Show,Data,Typeable,Generic) -- | Creates a value of 'PaymentsList' with the minimum fields required to make a request. -- paymentsList :: PaymentsList -paymentsList = PaymentsList +paymentsList = PaymentsList' instance GoogleRequest PaymentsList where type Rs PaymentsList = Payments - requestClient PaymentsList{} + type Scopes PaymentsList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient PaymentsList'{} = go (Just AltJSON) adSenseService where go = buildClient (Proxy :: Proxy PaymentsListResource) diff --git a/gen/Network/Google/Resource/AdSense/Reports/Generate.hs b/gen/Network/Google/Resource/AdSense/Reports/Generate.hs --- a/gen/Network/Google/Resource/AdSense/Reports/Generate.hs +++ b/gen/Network/Google/Resource/AdSense/Reports/Generate.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Reports.Generate --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -96,7 +96,7 @@ -- specify \"alt=csv\" as a query parameter. -- -- /See:/ 'reportsGenerate' smart constructor. -data ReportsGenerate = ReportsGenerate +data ReportsGenerate = ReportsGenerate' { _rgDimension :: !(Maybe [Text]) , _rgLocale :: !(Maybe Text) , _rgEndDate :: !Text @@ -143,7 +143,7 @@ -> Text -- ^ 'rgStartDate' -> ReportsGenerate reportsGenerate pRgEndDate_ pRgStartDate_ = - ReportsGenerate + ReportsGenerate' { _rgDimension = Nothing , _rgLocale = Nothing , _rgEndDate = pRgEndDate_ @@ -238,7 +238,10 @@ instance GoogleRequest ReportsGenerate where type Rs ReportsGenerate = AdsenseReportsGenerateResponse - requestClient ReportsGenerate{..} + type Scopes ReportsGenerate = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient ReportsGenerate'{..} = go (Just _rgStartDate) (Just _rgEndDate) (_rgDimension ^. _Default) _rgLocale @@ -260,7 +263,9 @@ instance GoogleRequest (MediaDownload ReportsGenerate) where type Rs (MediaDownload ReportsGenerate) = Stream - requestClient (MediaDownload ReportsGenerate{..}) + type Scopes (MediaDownload ReportsGenerate) = + Scopes ReportsGenerate + requestClient (MediaDownload ReportsGenerate'{..}) = go (Just _rgStartDate) (Just _rgEndDate) (_rgDimension ^. _Default) _rgLocale diff --git a/gen/Network/Google/Resource/AdSense/Reports/Saved/Generate.hs b/gen/Network/Google/Resource/AdSense/Reports/Saved/Generate.hs --- a/gen/Network/Google/Resource/AdSense/Reports/Saved/Generate.hs +++ b/gen/Network/Google/Resource/AdSense/Reports/Saved/Generate.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Reports.Saved.Generate --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -60,7 +60,7 @@ -- query parameters. -- -- /See:/ 'reportsSavedGenerate' smart constructor. -data ReportsSavedGenerate = ReportsSavedGenerate +data ReportsSavedGenerate = ReportsSavedGenerate' { _rsgLocale :: !(Maybe Text) , _rsgSavedReportId :: !Text , _rsgStartIndex :: !(Maybe (Textual Int32)) @@ -82,7 +82,7 @@ :: Text -- ^ 'rsgSavedReportId' -> ReportsSavedGenerate reportsSavedGenerate pRsgSavedReportId_ = - ReportsSavedGenerate + ReportsSavedGenerate' { _rsgLocale = Nothing , _rsgSavedReportId = pRsgSavedReportId_ , _rsgStartIndex = Nothing @@ -118,7 +118,10 @@ instance GoogleRequest ReportsSavedGenerate where type Rs ReportsSavedGenerate = AdsenseReportsGenerateResponse - requestClient ReportsSavedGenerate{..} + type Scopes ReportsSavedGenerate = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient ReportsSavedGenerate'{..} = go _rsgSavedReportId _rsgLocale _rsgStartIndex _rsgMaxResults (Just AltJSON) diff --git a/gen/Network/Google/Resource/AdSense/Reports/Saved/List.hs b/gen/Network/Google/Resource/AdSense/Reports/Saved/List.hs --- a/gen/Network/Google/Resource/AdSense/Reports/Saved/List.hs +++ b/gen/Network/Google/Resource/AdSense/Reports/Saved/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Reports.Saved.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -54,7 +54,7 @@ -- | List all saved reports in this AdSense account. -- -- /See:/ 'reportsSavedList' smart constructor. -data ReportsSavedList = ReportsSavedList +data ReportsSavedList = ReportsSavedList' { _rslPageToken :: !(Maybe Text) , _rslMaxResults :: !(Maybe (Textual Int32)) } deriving (Eq,Show,Data,Typeable,Generic) @@ -69,7 +69,7 @@ reportsSavedList :: ReportsSavedList reportsSavedList = - ReportsSavedList + ReportsSavedList' { _rslPageToken = Nothing , _rslMaxResults = Nothing } @@ -91,7 +91,10 @@ instance GoogleRequest ReportsSavedList where type Rs ReportsSavedList = SavedReports - requestClient ReportsSavedList{..} + type Scopes ReportsSavedList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient ReportsSavedList'{..} = go _rslPageToken _rslMaxResults (Just AltJSON) adSenseService where go diff --git a/gen/Network/Google/Resource/AdSense/Savedadstyles/Get.hs b/gen/Network/Google/Resource/AdSense/Savedadstyles/Get.hs --- a/gen/Network/Google/Resource/AdSense/Savedadstyles/Get.hs +++ b/gen/Network/Google/Resource/AdSense/Savedadstyles/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Savedadstyles.Get --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -51,7 +51,7 @@ -- | Get a specific saved ad style from the user\'s account. -- -- /See:/ 'savedadstylesGet' smart constructor. -newtype SavedadstylesGet = SavedadstylesGet +newtype SavedadstylesGet = SavedadstylesGet' { _sgSavedAdStyleId :: Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -64,7 +64,7 @@ :: Text -- ^ 'sgSavedAdStyleId' -> SavedadstylesGet savedadstylesGet pSgSavedAdStyleId_ = - SavedadstylesGet + SavedadstylesGet' { _sgSavedAdStyleId = pSgSavedAdStyleId_ } @@ -76,7 +76,10 @@ instance GoogleRequest SavedadstylesGet where type Rs SavedadstylesGet = SavedAdStyle - requestClient SavedadstylesGet{..} + type Scopes SavedadstylesGet = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient SavedadstylesGet'{..} = go _sgSavedAdStyleId (Just AltJSON) adSenseService where go = buildClient diff --git a/gen/Network/Google/Resource/AdSense/Savedadstyles/List.hs b/gen/Network/Google/Resource/AdSense/Savedadstyles/List.hs --- a/gen/Network/Google/Resource/AdSense/Savedadstyles/List.hs +++ b/gen/Network/Google/Resource/AdSense/Savedadstyles/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.Savedadstyles.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -53,7 +53,7 @@ -- | List all saved ad styles in the user\'s account. -- -- /See:/ 'savedadstylesList' smart constructor. -data SavedadstylesList = SavedadstylesList +data SavedadstylesList = SavedadstylesList' { _slPageToken :: !(Maybe Text) , _slMaxResults :: !(Maybe (Textual Int32)) } deriving (Eq,Show,Data,Typeable,Generic) @@ -68,7 +68,7 @@ savedadstylesList :: SavedadstylesList savedadstylesList = - SavedadstylesList + SavedadstylesList' { _slPageToken = Nothing , _slMaxResults = Nothing } @@ -89,7 +89,10 @@ instance GoogleRequest SavedadstylesList where type Rs SavedadstylesList = SavedAdStyles - requestClient SavedadstylesList{..} + type Scopes SavedadstylesList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient SavedadstylesList'{..} = go _slPageToken _slMaxResults (Just AltJSON) adSenseService where go diff --git a/gen/Network/Google/Resource/AdSense/URLChannels/List.hs b/gen/Network/Google/Resource/AdSense/URLChannels/List.hs --- a/gen/Network/Google/Resource/AdSense/URLChannels/List.hs +++ b/gen/Network/Google/Resource/AdSense/URLChannels/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSense.URLChannels.List --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -58,7 +58,7 @@ -- account. -- -- /See:/ 'urlChannelsList' smart constructor. -data URLChannelsList = URLChannelsList +data URLChannelsList = URLChannelsList' { _uclAdClientId :: !Text , _uclPageToken :: !(Maybe Text) , _uclMaxResults :: !(Maybe (Textual Int32)) @@ -77,7 +77,7 @@ :: Text -- ^ 'uclAdClientId' -> URLChannelsList urlChannelsList pUclAdClientId_ = - URLChannelsList + URLChannelsList' { _uclAdClientId = pUclAdClientId_ , _uclPageToken = Nothing , _uclMaxResults = Nothing @@ -106,7 +106,10 @@ instance GoogleRequest URLChannelsList where type Rs URLChannelsList = URLChannels - requestClient URLChannelsList{..} + type Scopes URLChannelsList = + '["https://www.googleapis.com/auth/adsense", + "https://www.googleapis.com/auth/adsense.readonly"] + requestClient URLChannelsList'{..} = go _uclAdClientId _uclPageToken _uclMaxResults (Just AltJSON) adSenseService diff --git a/gogol-adsense.cabal b/gogol-adsense.cabal --- a/gogol-adsense.cabal +++ b/gogol-adsense.cabal @@ -1,5 +1,5 @@ name: gogol-adsense -version: 0.0.1 +version: 0.1.0 synopsis: Google AdSense Management SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -7,15 +7,15 @@ license-file: LICENSE author: Brendan Hay maintainer: Brendan Hay -copyright: Copyright (c) 2015 Brendan Hay +copyright: Copyright (c) 2015-2016 Brendan Hay category: Network, Google, Cloud build-type: Simple cabal-version: >= 1.10 extra-source-files: README.md description: - Gives AdSense publishers access to their inventory and the ability to - generate reports + Accesses AdSense publishers\' inventory and generates performance + reports. . /Warning:/ This is an experimental prototype/preview release which is still under exploratory development and not intended for public use, caveat emptor! @@ -80,5 +80,5 @@ , Network.Google.AdSense.Types.Sum build-depends: - gogol-core == 0.0.1.* + gogol-core == 0.1.0.* , base >= 4.7 && < 5