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/AdExchangeSeller.hs b/gen/Network/Google/AdExchangeSeller.hs --- a/gen/Network/Google/AdExchangeSeller.hs +++ b/gen/Network/Google/AdExchangeSeller.hs @@ -7,7 +7,7 @@ -- | -- Module : Network.Google.AdExchangeSeller --- Copyright : (c) 2015 Brendan Hay +-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -21,6 +21,10 @@ ( -- * Service Configuration adExchangeSellerService + + -- * OAuth Scopes + , adExchangeSellerReadOnlyScope + , adExchangeSellerScope -- * API Declaration , AdExchangeSellerAPI diff --git a/gen/Network/Google/AdExchangeSeller/Types.hs b/gen/Network/Google/AdExchangeSeller/Types.hs --- a/gen/Network/Google/AdExchangeSeller/Types.hs +++ b/gen/Network/Google/AdExchangeSeller/Types.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE NoImplicitPrelude #-} @@ -7,7 +8,7 @@ -- | -- Module : Network.Google.AdExchangeSeller.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 @@ adExchangeSellerService -- * OAuth Scopes - , adexchangeSellerReadonlyScope - , adexchangeSellerScope + , adExchangeSellerReadOnlyScope + , adExchangeSellerScope -- * AdClients , AdClients @@ -183,15 +184,15 @@ import Network.Google.Prelude -- | Default request referring to version 'v2.0' of the Ad Exchange Seller API. This contains the host and root path used as a starting point for constructing service requests. -adExchangeSellerService :: Service +adExchangeSellerService :: ServiceConfig adExchangeSellerService = defaultService (ServiceId "adexchangeseller:v2.0") "www.googleapis.com" -- | View your Ad Exchange data -adexchangeSellerReadonlyScope :: OAuthScope -adexchangeSellerReadonlyScope = "https://www.googleapis.com/auth/adexchange.seller.readonly"; +adExchangeSellerReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/adexchange.seller.readonly"] +adExchangeSellerReadOnlyScope = Proxy; -- | View and manage your Ad Exchange data -adexchangeSellerScope :: OAuthScope -adexchangeSellerScope = "https://www.googleapis.com/auth/adexchange.seller"; +adExchangeSellerScope :: Proxy '["https://www.googleapis.com/auth/adexchange.seller"] +adExchangeSellerScope = Proxy; diff --git a/gen/Network/Google/AdExchangeSeller/Types/Product.hs b/gen/Network/Google/AdExchangeSeller/Types/Product.hs --- a/gen/Network/Google/AdExchangeSeller/Types/Product.hs +++ b/gen/Network/Google/AdExchangeSeller/Types/Product.hs @@ -9,7 +9,7 @@ -- | -- Module : Network.Google.AdExchangeSeller.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 = "adexchangeseller#adClients" @@ -75,13 +75,13 @@ parseJSON = withObject "AdClients" (\ o -> - AdClients <$> + AdClients' <$> (o .:? "etag") <*> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "adexchangeseller#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 = "adexchangeseller#reportingMetadataEntry" , _rmeRequiredMetrics = Nothing , _rmeCompatibleMetrics = Nothing @@ -194,7 +194,7 @@ parseJSON = withObject "ReportingMetadataEntry" (\ o -> - ReportingMetadataEntry <$> + ReportingMetadataEntry' <$> (o .:? "kind" .!= "adexchangeseller#reportingMetadataEntry") <*> (o .:? "requiredMetrics" .!= mempty) @@ -205,7 +205,7 @@ <*> (o .:? "supportedProducts" .!= mempty)) instance ToJSON ReportingMetadataEntry where - toJSON ReportingMetadataEntry{..} + toJSON ReportingMetadataEntry'{..} = object (catMaybes [Just ("kind" .= _rmeKind), @@ -219,7 +219,7 @@ -- -- /See:/ 'accounts' smart constructor. -data Accounts = Accounts +data Accounts = Accounts' { _aEtag :: !(Maybe Text) , _aNextPageToken :: !(Maybe Text) , _aKind :: !Text @@ -240,7 +240,7 @@ accounts :: Accounts accounts = - Accounts + Accounts' { _aEtag = Nothing , _aNextPageToken = Nothing , _aKind = "adexchangeseller#accounts" @@ -272,13 +272,13 @@ parseJSON = withObject "Accounts" (\ o -> - Accounts <$> + Accounts' <$> (o .:? "etag") <*> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "adexchangeseller#accounts") <*> (o .:? "items" .!= mempty)) instance ToJSON Accounts where - toJSON Accounts{..} + toJSON Accounts'{..} = object (catMaybes [("etag" .=) <$> _aEtag, @@ -287,7 +287,7 @@ -- -- /See:/ 'alerts' smart constructor. -data Alerts = Alerts +data Alerts = Alerts' { _aleKind :: !Text , _aleItems :: !(Maybe [Alert]) } deriving (Eq,Show,Data,Typeable,Generic) @@ -302,7 +302,7 @@ alerts :: Alerts alerts = - Alerts + Alerts' { _aleKind = "adexchangeseller#alerts" , _aleItems = Nothing } @@ -322,12 +322,12 @@ parseJSON = withObject "Alerts" (\ o -> - Alerts <$> + Alerts' <$> (o .:? "kind" .!= "adexchangeseller#alerts") <*> (o .:? "items" .!= mempty)) instance ToJSON Alerts where - toJSON Alerts{..} + toJSON Alerts'{..} = object (catMaybes [Just ("kind" .= _aleKind), @@ -335,7 +335,7 @@ -- -- /See:/ 'savedReports' smart constructor. -data SavedReports = SavedReports +data SavedReports = SavedReports' { _srEtag :: !(Maybe Text) , _srNextPageToken :: !(Maybe Text) , _srKind :: !Text @@ -356,7 +356,7 @@ savedReports :: SavedReports savedReports = - SavedReports + SavedReports' { _srEtag = Nothing , _srNextPageToken = Nothing , _srKind = "adexchangeseller#savedReports" @@ -389,13 +389,13 @@ parseJSON = withObject "SavedReports" (\ o -> - SavedReports <$> + SavedReports' <$> (o .:? "etag") <*> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "adexchangeseller#savedReports") <*> (o .:? "items" .!= mempty)) instance ToJSON SavedReports where - toJSON SavedReports{..} + toJSON SavedReports'{..} = object (catMaybes [("etag" .=) <$> _srEtag, @@ -404,7 +404,7 @@ -- -- /See:/ 'savedReport' smart constructor. -data SavedReport = SavedReport +data SavedReport = SavedReport' { _sKind :: !Text , _sName :: !(Maybe Text) , _sId :: !(Maybe Text) @@ -422,7 +422,7 @@ savedReport :: SavedReport savedReport = - SavedReport + SavedReport' { _sKind = "adexchangeseller#savedReport" , _sName = Nothing , _sId = Nothing @@ -444,13 +444,13 @@ parseJSON = withObject "SavedReport" (\ o -> - SavedReport <$> + SavedReport' <$> (o .:? "kind" .!= "adexchangeseller#savedReport") <*> (o .:? "name") <*> (o .:? "id")) instance ToJSON SavedReport where - toJSON SavedReport{..} + toJSON SavedReport'{..} = object (catMaybes [Just ("kind" .= _sKind), ("name" .=) <$> _sName, @@ -458,7 +458,7 @@ -- -- /See:/ 'urlChannels' smart constructor. -data URLChannels = URLChannels +data URLChannels = URLChannels' { _ucEtag :: !(Maybe Text) , _ucNextPageToken :: !(Maybe Text) , _ucKind :: !Text @@ -479,7 +479,7 @@ urlChannels :: URLChannels urlChannels = - URLChannels + URLChannels' { _ucEtag = Nothing , _ucNextPageToken = Nothing , _ucKind = "adexchangeseller#urlChannels" @@ -512,13 +512,13 @@ parseJSON = withObject "URLChannels" (\ o -> - URLChannels <$> + URLChannels' <$> (o .:? "etag") <*> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "adexchangeseller#urlChannels") <*> (o .:? "items" .!= mempty)) instance ToJSON URLChannels where - toJSON URLChannels{..} + toJSON URLChannels'{..} = object (catMaybes [("etag" .=) <$> _ucEtag, @@ -527,7 +527,7 @@ -- -- /See:/ 'customChannels' smart constructor. -data CustomChannels = CustomChannels +data CustomChannels = CustomChannels' { _ccEtag :: !(Maybe Text) , _ccNextPageToken :: !(Maybe Text) , _ccKind :: !Text @@ -548,7 +548,7 @@ customChannels :: CustomChannels customChannels = - CustomChannels + CustomChannels' { _ccEtag = Nothing , _ccNextPageToken = Nothing , _ccKind = "adexchangeseller#customChannels" @@ -581,13 +581,13 @@ parseJSON = withObject "CustomChannels" (\ o -> - CustomChannels <$> + CustomChannels' <$> (o .:? "etag") <*> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "adexchangeseller#customChannels") <*> (o .:? "items" .!= mempty)) instance ToJSON CustomChannels where - toJSON CustomChannels{..} + toJSON CustomChannels'{..} = object (catMaybes [("etag" .=) <$> _ccEtag, @@ -596,7 +596,7 @@ -- -- /See:/ 'report' smart constructor. -data Report = Report +data Report = Report' { _rKind :: !Text , _rAverages :: !(Maybe [Text]) , _rWarnings :: !(Maybe [Text]) @@ -626,7 +626,7 @@ report :: Report report = - Report + Report' { _rKind = "adexchangeseller#report" , _rAverages = Nothing , _rWarnings = Nothing @@ -693,7 +693,7 @@ parseJSON = withObject "Report" (\ o -> - Report <$> + Report' <$> (o .:? "kind" .!= "adexchangeseller#report") <*> (o .:? "averages" .!= mempty) <*> (o .:? "warnings" .!= mempty) @@ -703,7 +703,7 @@ <*> (o .:? "totalMatchedRows")) instance ToJSON Report where - toJSON Report{..} + toJSON Report'{..} = object (catMaybes [Just ("kind" .= _rKind), @@ -715,7 +715,7 @@ -- -- /See:/ 'alert' smart constructor. -data Alert = Alert +data Alert = Alert' { _aaKind :: !Text , _aaSeverity :: !(Maybe Text) , _aaId :: !(Maybe Text) @@ -739,7 +739,7 @@ alert :: Alert alert = - Alert + Alert' { _aaKind = "adexchangeseller#alert" , _aaSeverity = Nothing , _aaId = Nothing @@ -776,7 +776,7 @@ parseJSON = withObject "Alert" (\ o -> - Alert <$> + Alert' <$> (o .:? "kind" .!= "adexchangeseller#alert") <*> (o .:? "severity") <*> (o .:? "id") @@ -784,7 +784,7 @@ <*> (o .:? "message")) instance ToJSON Alert where - toJSON Alert{..} + toJSON Alert'{..} = object (catMaybes [Just ("kind" .= _aaKind), @@ -794,7 +794,7 @@ -- -- /See:/ 'account' smart constructor. -data Account = Account +data Account = Account' { _accKind :: !Text , _accName :: !(Maybe Text) , _accId :: !(Maybe Text) @@ -812,7 +812,7 @@ account :: Account account = - Account + Account' { _accKind = "adexchangeseller#account" , _accName = Nothing , _accId = Nothing @@ -834,13 +834,13 @@ parseJSON = withObject "Account" (\ o -> - Account <$> + Account' <$> (o .:? "kind" .!= "adexchangeseller#account") <*> (o .:? "name") <*> (o .:? "id")) instance ToJSON Account where - toJSON Account{..} + toJSON Account'{..} = object (catMaybes [Just ("kind" .= _accKind), ("name" .=) <$> _accName, @@ -848,7 +848,7 @@ -- -- /See:/ 'adClient' smart constructor. -data AdClient = AdClient +data AdClient = AdClient' { _adKind :: !Text , _adArcOptIn :: !(Maybe Bool) , _adSupportsReporting :: !(Maybe Bool) @@ -872,7 +872,7 @@ adClient :: AdClient adClient = - AdClient + AdClient' { _adKind = "adexchangeseller#adClient" , _adArcOptIn = Nothing , _adSupportsReporting = Nothing @@ -910,7 +910,7 @@ parseJSON = withObject "AdClient" (\ o -> - AdClient <$> + AdClient' <$> (o .:? "kind" .!= "adexchangeseller#adClient") <*> (o .:? "arcOptIn") <*> (o .:? "supportsReporting") @@ -918,7 +918,7 @@ <*> (o .:? "productCode")) instance ToJSON AdClient where - toJSON AdClient{..} + toJSON AdClient'{..} = object (catMaybes [Just ("kind" .= _adKind), @@ -929,7 +929,7 @@ -- -- /See:/ 'reportHeadersItem' smart constructor. -data ReportHeadersItem = ReportHeadersItem +data ReportHeadersItem = ReportHeadersItem' { _rhiName :: !(Maybe Text) , _rhiCurrency :: !(Maybe Text) , _rhiType :: !(Maybe Text) @@ -947,7 +947,7 @@ reportHeadersItem :: ReportHeadersItem reportHeadersItem = - ReportHeadersItem + ReportHeadersItem' { _rhiName = Nothing , _rhiCurrency = Nothing , _rhiType = Nothing @@ -972,12 +972,12 @@ parseJSON = withObject "ReportHeadersItem" (\ o -> - ReportHeadersItem <$> + ReportHeadersItem' <$> (o .:? "name") <*> (o .:? "currency") <*> (o .:? "type")) instance ToJSON ReportHeadersItem where - toJSON ReportHeadersItem{..} + toJSON ReportHeadersItem'{..} = object (catMaybes [("name" .=) <$> _rhiName, @@ -987,7 +987,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) @@ -1008,7 +1008,7 @@ customChannelTargetingInfo :: CustomChannelTargetingInfo customChannelTargetingInfo = - CustomChannelTargetingInfo + CustomChannelTargetingInfo' { _cctiLocation = Nothing , _cctiSiteLanguage = Nothing , _cctiAdsAppearOn = Nothing @@ -1047,13 +1047,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, @@ -1063,7 +1063,7 @@ -- -- /See:/ 'preferredDeals' smart constructor. -data PreferredDeals = PreferredDeals +data PreferredDeals = PreferredDeals' { _pdKind :: !Text , _pdItems :: !(Maybe [PreferredDeal]) } deriving (Eq,Show,Data,Typeable,Generic) @@ -1078,7 +1078,7 @@ preferredDeals :: PreferredDeals preferredDeals = - PreferredDeals + PreferredDeals' { _pdKind = "adexchangeseller#preferredDeals" , _pdItems = Nothing } @@ -1097,12 +1097,12 @@ parseJSON = withObject "PreferredDeals" (\ o -> - PreferredDeals <$> + PreferredDeals' <$> (o .:? "kind" .!= "adexchangeseller#preferredDeals") <*> (o .:? "items" .!= mempty)) instance ToJSON PreferredDeals where - toJSON PreferredDeals{..} + toJSON PreferredDeals'{..} = object (catMaybes [Just ("kind" .= _pdKind), @@ -1110,7 +1110,7 @@ -- -- /See:/ 'metadata' smart constructor. -data Metadata = Metadata +data Metadata = Metadata' { _mKind :: !Text , _mItems :: !(Maybe [ReportingMetadataEntry]) } deriving (Eq,Show,Data,Typeable,Generic) @@ -1125,7 +1125,7 @@ metadata :: Metadata metadata = - Metadata + Metadata' { _mKind = "adexchangeseller#metadata" , _mItems = Nothing } @@ -1143,19 +1143,19 @@ parseJSON = withObject "Metadata" (\ o -> - Metadata <$> + Metadata' <$> (o .:? "kind" .!= "adexchangeseller#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) @@ -1179,7 +1179,7 @@ customChannel :: CustomChannel customChannel = - CustomChannel + CustomChannel' { _cTargetingInfo = Nothing , _cKind = "adexchangeseller#customChannel" , _cName = Nothing @@ -1215,7 +1215,7 @@ parseJSON = withObject "CustomChannel" (\ o -> - CustomChannel <$> + CustomChannel' <$> (o .:? "targetingInfo") <*> (o .:? "kind" .!= "adexchangeseller#customChannel") <*> (o .:? "name") @@ -1223,7 +1223,7 @@ <*> (o .:? "id")) instance ToJSON CustomChannel where - toJSON CustomChannel{..} + toJSON CustomChannel'{..} = object (catMaybes [("targetingInfo" .=) <$> _cTargetingInfo, @@ -1232,7 +1232,7 @@ -- -- /See:/ 'urlChannel' smart constructor. -data URLChannel = URLChannel +data URLChannel = URLChannel' { _urlcKind :: !Text , _urlcId :: !(Maybe Text) , _urlcURLPattern :: !(Maybe Text) @@ -1250,7 +1250,7 @@ urlChannel :: URLChannel urlChannel = - URLChannel + URLChannel' { _urlcKind = "adexchangeseller#urlChannel" , _urlcId = Nothing , _urlcURLPattern = Nothing @@ -1277,13 +1277,13 @@ parseJSON = withObject "URLChannel" (\ o -> - URLChannel <$> + URLChannel' <$> (o .:? "kind" .!= "adexchangeseller#urlChannel") <*> (o .:? "id") <*> (o .:? "urlPattern")) instance ToJSON URLChannel where - toJSON URLChannel{..} + toJSON URLChannel'{..} = object (catMaybes [Just ("kind" .= _urlcKind), ("id" .=) <$> _urlcId, @@ -1291,7 +1291,7 @@ -- -- /See:/ 'preferredDeal' smart constructor. -data PreferredDeal = PreferredDeal +data PreferredDeal = PreferredDeal' { _pAdvertiserName :: !(Maybe Text) , _pCurrencyCode :: !(Maybe Text) , _pStartTime :: !(Maybe (Textual Word64)) @@ -1324,7 +1324,7 @@ preferredDeal :: PreferredDeal preferredDeal = - PreferredDeal + PreferredDeal' { _pAdvertiserName = Nothing , _pCurrencyCode = Nothing , _pStartTime = Nothing @@ -1391,7 +1391,7 @@ parseJSON = withObject "PreferredDeal" (\ o -> - PreferredDeal <$> + PreferredDeal' <$> (o .:? "advertiserName") <*> (o .:? "currencyCode") <*> (o .:? "startTime") <*> @@ -1402,7 +1402,7 @@ <*> (o .:? "fixedCpm")) instance ToJSON PreferredDeal where - toJSON PreferredDeal{..} + toJSON PreferredDeal'{..} = object (catMaybes [("advertiserName" .=) <$> _pAdvertiserName, diff --git a/gen/Network/Google/AdExchangeSeller/Types/Sum.hs b/gen/Network/Google/AdExchangeSeller/Types/Sum.hs --- a/gen/Network/Google/AdExchangeSeller/Types/Sum.hs +++ b/gen/Network/Google/AdExchangeSeller/Types/Sum.hs @@ -8,7 +8,7 @@ -- | -- Module : Network.Google.AdExchangeSeller.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/AdExchangeSeller/Accounts/AdClients/List.hs b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/AdClients/List.hs --- a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/AdClients/List.hs +++ b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/AdClients/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeSeller.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 this Ad Exchange account. -- -- /See:/ 'accountsAdClientsList' smart constructor. -data AccountsAdClientsList = AccountsAdClientsList +data AccountsAdClientsList = AccountsAdClientsList' { _aaclAccountId :: !Text , _aaclPageToken :: !(Maybe Text) , _aaclMaxResults :: !(Maybe (Textual Word32)) @@ -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/adexchange.seller", + "https://www.googleapis.com/auth/adexchange.seller.readonly"] + requestClient AccountsAdClientsList'{..} = go _aaclAccountId _aaclPageToken _aaclMaxResults (Just AltJSON) adExchangeSellerService diff --git a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Alerts/List.hs b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Alerts/List.hs --- a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Alerts/List.hs +++ b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Alerts/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeSeller.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 this Ad Exchange 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/adexchange.seller", + "https://www.googleapis.com/auth/adexchange.seller.readonly"] + requestClient AccountsAlertsList'{..} = go _aalAccountId _aalLocale (Just AltJSON) adExchangeSellerService where go diff --git a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/CustomChannels/Get.hs b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/CustomChannels/Get.hs --- a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/CustomChannels/Get.hs +++ b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/CustomChannels/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeSeller.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 @@ -57,7 +57,7 @@ -- | Get the specified custom channel from the specified ad client. -- -- /See:/ 'accountsCustomChannelsGet' smart constructor. -data AccountsCustomChannelsGet = AccountsCustomChannelsGet +data AccountsCustomChannelsGet = AccountsCustomChannelsGet' { _accgCustomChannelId :: !Text , _accgAdClientId :: !Text , _accgAccountId :: !Text @@ -78,7 +78,7 @@ -> Text -- ^ 'accgAccountId' -> AccountsCustomChannelsGet accountsCustomChannelsGet pAccgCustomChannelId_ pAccgAdClientId_ pAccgAccountId_ = - AccountsCustomChannelsGet + AccountsCustomChannelsGet' { _accgCustomChannelId = pAccgCustomChannelId_ , _accgAdClientId = pAccgAdClientId_ , _accgAccountId = pAccgAccountId_ @@ -105,7 +105,10 @@ instance GoogleRequest AccountsCustomChannelsGet where type Rs AccountsCustomChannelsGet = CustomChannel - requestClient AccountsCustomChannelsGet{..} + type Scopes AccountsCustomChannelsGet = + '["https://www.googleapis.com/auth/adexchange.seller", + "https://www.googleapis.com/auth/adexchange.seller.readonly"] + requestClient AccountsCustomChannelsGet'{..} = go _accgAccountId _accgAdClientId _accgCustomChannelId (Just AltJSON) diff --git a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/CustomChannels/List.hs b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/CustomChannels/List.hs --- a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/CustomChannels/List.hs +++ b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/CustomChannels/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeSeller.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/adexchange.seller", + "https://www.googleapis.com/auth/adexchange.seller.readonly"] + requestClient AccountsCustomChannelsList'{..} = go _acclAccountId _acclAdClientId _acclPageToken _acclMaxResults (Just AltJSON) diff --git a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Get.hs b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Get.hs --- a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Get.hs +++ b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeSeller.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 @@ -51,7 +51,7 @@ -- | Get information about the selected Ad Exchange account. -- -- /See:/ 'accountsGet' smart constructor. -newtype AccountsGet = AccountsGet +newtype AccountsGet = AccountsGet' { _agAccountId :: Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -64,7 +64,7 @@ :: Text -- ^ 'agAccountId' -> AccountsGet accountsGet pAgAccountId_ = - AccountsGet + AccountsGet' { _agAccountId = pAgAccountId_ } @@ -75,7 +75,10 @@ instance GoogleRequest AccountsGet where type Rs AccountsGet = Account - requestClient AccountsGet{..} + type Scopes AccountsGet = + '["https://www.googleapis.com/auth/adexchange.seller", + "https://www.googleapis.com/auth/adexchange.seller.readonly"] + requestClient AccountsGet'{..} = go _agAccountId (Just AltJSON) adExchangeSellerService where go diff --git a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/List.hs b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/List.hs --- a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/List.hs +++ b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeSeller.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 Ad Exchange 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/adexchange.seller", + "https://www.googleapis.com/auth/adexchange.seller.readonly"] + requestClient AccountsList'{..} = go _alPageToken _alMaxResults (Just AltJSON) adExchangeSellerService where go diff --git a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Metadata/Dimensions/List.hs b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Metadata/Dimensions/List.hs --- a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Metadata/Dimensions/List.hs +++ b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Metadata/Dimensions/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeSeller.Accounts.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 @@ -55,7 +55,7 @@ -- account. -- -- /See:/ 'accountsMetadataDimensionsList' smart constructor. -newtype AccountsMetadataDimensionsList = AccountsMetadataDimensionsList +newtype AccountsMetadataDimensionsList = AccountsMetadataDimensionsList' { _amdlAccountId :: Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -68,7 +68,7 @@ :: Text -- ^ 'amdlAccountId' -> AccountsMetadataDimensionsList accountsMetadataDimensionsList pAmdlAccountId_ = - AccountsMetadataDimensionsList + AccountsMetadataDimensionsList' { _amdlAccountId = pAmdlAccountId_ } @@ -81,7 +81,10 @@ instance GoogleRequest AccountsMetadataDimensionsList where type Rs AccountsMetadataDimensionsList = Metadata - requestClient AccountsMetadataDimensionsList{..} + type Scopes AccountsMetadataDimensionsList = + '["https://www.googleapis.com/auth/adexchange.seller", + "https://www.googleapis.com/auth/adexchange.seller.readonly"] + requestClient AccountsMetadataDimensionsList'{..} = go _amdlAccountId (Just AltJSON) adExchangeSellerService where go diff --git a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Metadata/Metrics/List.hs b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Metadata/Metrics/List.hs --- a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Metadata/Metrics/List.hs +++ b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Metadata/Metrics/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeSeller.Accounts.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 @@ -53,7 +53,7 @@ -- | List the metadata for the metrics available to this AdExchange account. -- -- /See:/ 'accountsMetadataMetricsList' smart constructor. -newtype AccountsMetadataMetricsList = AccountsMetadataMetricsList +newtype AccountsMetadataMetricsList = AccountsMetadataMetricsList' { _ammlAccountId :: Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -66,7 +66,7 @@ :: Text -- ^ 'ammlAccountId' -> AccountsMetadataMetricsList accountsMetadataMetricsList pAmmlAccountId_ = - AccountsMetadataMetricsList + AccountsMetadataMetricsList' { _ammlAccountId = pAmmlAccountId_ } @@ -79,7 +79,10 @@ instance GoogleRequest AccountsMetadataMetricsList where type Rs AccountsMetadataMetricsList = Metadata - requestClient AccountsMetadataMetricsList{..} + type Scopes AccountsMetadataMetricsList = + '["https://www.googleapis.com/auth/adexchange.seller", + "https://www.googleapis.com/auth/adexchange.seller.readonly"] + requestClient AccountsMetadataMetricsList'{..} = go _ammlAccountId (Just AltJSON) adExchangeSellerService where go diff --git a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/PreferredDeals/Get.hs b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/PreferredDeals/Get.hs --- a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/PreferredDeals/Get.hs +++ b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/PreferredDeals/Get.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeSeller.Accounts.PreferredDeals.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 information about the selected Ad Exchange Preferred Deal. -- -- /See:/ 'accountsPreferredDealsGet' smart constructor. -data AccountsPreferredDealsGet = AccountsPreferredDealsGet +data AccountsPreferredDealsGet = AccountsPreferredDealsGet' { _apdgDealId :: !Text , _apdgAccountId :: !Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -71,7 +71,7 @@ -> Text -- ^ 'apdgAccountId' -> AccountsPreferredDealsGet accountsPreferredDealsGet pApdgDealId_ pApdgAccountId_ = - AccountsPreferredDealsGet + AccountsPreferredDealsGet' { _apdgDealId = pApdgDealId_ , _apdgAccountId = pApdgAccountId_ } @@ -90,7 +90,10 @@ instance GoogleRequest AccountsPreferredDealsGet where type Rs AccountsPreferredDealsGet = PreferredDeal - requestClient AccountsPreferredDealsGet{..} + type Scopes AccountsPreferredDealsGet = + '["https://www.googleapis.com/auth/adexchange.seller", + "https://www.googleapis.com/auth/adexchange.seller.readonly"] + requestClient AccountsPreferredDealsGet'{..} = go _apdgAccountId _apdgDealId (Just AltJSON) adExchangeSellerService where go diff --git a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/PreferredDeals/List.hs b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/PreferredDeals/List.hs --- a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/PreferredDeals/List.hs +++ b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/PreferredDeals/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeSeller.Accounts.PreferredDeals.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 the preferred deals for this Ad Exchange account. -- -- /See:/ 'accountsPreferredDealsList' smart constructor. -newtype AccountsPreferredDealsList = AccountsPreferredDealsList +newtype AccountsPreferredDealsList = AccountsPreferredDealsList' { _apdlAccountId :: Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -66,7 +66,7 @@ :: Text -- ^ 'apdlAccountId' -> AccountsPreferredDealsList accountsPreferredDealsList pApdlAccountId_ = - AccountsPreferredDealsList + AccountsPreferredDealsList' { _apdlAccountId = pApdlAccountId_ } @@ -79,7 +79,10 @@ instance GoogleRequest AccountsPreferredDealsList where type Rs AccountsPreferredDealsList = PreferredDeals - requestClient AccountsPreferredDealsList{..} + type Scopes AccountsPreferredDealsList = + '["https://www.googleapis.com/auth/adexchange.seller", + "https://www.googleapis.com/auth/adexchange.seller.readonly"] + requestClient AccountsPreferredDealsList'{..} = go _apdlAccountId (Just AltJSON) adExchangeSellerService where go diff --git a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Reports/Generate.hs b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Reports/Generate.hs --- a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Reports/Generate.hs +++ b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Reports/Generate.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeSeller.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 @@ -91,7 +91,7 @@ -- format 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 @@ -133,7 +133,7 @@ -> Text -- ^ 'argAccountId' -> AccountsReportsGenerate accountsReportsGenerate pArgEndDate_ pArgStartDate_ pArgAccountId_ = - AccountsReportsGenerate + AccountsReportsGenerate' { _argDimension = Nothing , _argLocale = Nothing , _argEndDate = pArgEndDate_ @@ -213,7 +213,10 @@ instance GoogleRequest AccountsReportsGenerate where type Rs AccountsReportsGenerate = Report - requestClient AccountsReportsGenerate{..} + type Scopes AccountsReportsGenerate = + '["https://www.googleapis.com/auth/adexchange.seller", + "https://www.googleapis.com/auth/adexchange.seller.readonly"] + requestClient AccountsReportsGenerate'{..} = go _argAccountId (Just _argStartDate) (Just _argEndDate) (_argDimension ^. _Default) @@ -234,8 +237,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/AdExchangeSeller/Accounts/Reports/Saved/Generate.hs b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Reports/Saved/Generate.hs --- a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Reports/Saved/Generate.hs +++ b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Reports/Saved/Generate.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeSeller.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 @@ -62,7 +62,7 @@ -- query parameters. -- -- /See:/ 'accountsReportsSavedGenerate' smart constructor. -data AccountsReportsSavedGenerate = AccountsReportsSavedGenerate +data AccountsReportsSavedGenerate = AccountsReportsSavedGenerate' { _arsgLocale :: !(Maybe Text) , _arsgSavedReportId :: !Text , _arsgAccountId :: !Text @@ -88,7 +88,7 @@ -> Text -- ^ 'arsgAccountId' -> AccountsReportsSavedGenerate accountsReportsSavedGenerate pArsgSavedReportId_ pArsgAccountId_ = - AccountsReportsSavedGenerate + AccountsReportsSavedGenerate' { _arsgLocale = Nothing , _arsgSavedReportId = pArsgSavedReportId_ , _arsgAccountId = pArsgAccountId_ @@ -131,7 +131,10 @@ instance GoogleRequest AccountsReportsSavedGenerate where type Rs AccountsReportsSavedGenerate = Report - requestClient AccountsReportsSavedGenerate{..} + type Scopes AccountsReportsSavedGenerate = + '["https://www.googleapis.com/auth/adexchange.seller", + "https://www.googleapis.com/auth/adexchange.seller.readonly"] + requestClient AccountsReportsSavedGenerate'{..} = go _arsgAccountId _arsgSavedReportId _arsgLocale _arsgStartIndex _arsgMaxResults diff --git a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Reports/Saved/List.hs b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Reports/Saved/List.hs --- a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Reports/Saved/List.hs +++ b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/Reports/Saved/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeSeller.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 this Ad Exchange 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/adexchange.seller", + "https://www.googleapis.com/auth/adexchange.seller.readonly"] + requestClient AccountsReportsSavedList'{..} = go _arslAccountId _arslPageToken _arslMaxResults (Just AltJSON) adExchangeSellerService diff --git a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/URLChannels/List.hs b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/URLChannels/List.hs --- a/gen/Network/Google/Resource/AdExchangeSeller/Accounts/URLChannels/List.hs +++ b/gen/Network/Google/Resource/AdExchangeSeller/Accounts/URLChannels/List.hs @@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdExchangeSeller.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/adexchange.seller", + "https://www.googleapis.com/auth/adexchange.seller.readonly"] + requestClient AccountsURLChannelsList'{..} = go _auclAccountId _auclAdClientId _auclPageToken _auclMaxResults (Just AltJSON) diff --git a/gogol-adexchange-seller.cabal b/gogol-adexchange-seller.cabal --- a/gogol-adexchange-seller.cabal +++ b/gogol-adexchange-seller.cabal @@ -1,5 +1,5 @@ name: gogol-adexchange-seller -version: 0.0.1 +version: 0.1.0 synopsis: Google Ad Exchange Seller SDK. homepage: https://github.com/brendanhay/gogol bug-reports: https://github.com/brendanhay/gogol/issues @@ -7,7 +7,7 @@ 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 @@ -56,5 +56,5 @@ , Network.Google.AdExchangeSeller.Types.Sum build-depends: - gogol-core == 0.0.1.* + gogol-core == 0.1.0.* , base >= 4.7 && < 5