gogol-adsense-host 0.0.1 → 0.1.0
raw patch · 32 files changed
+277/−220 lines, 32 filesdep ~gogol-core
Dependency ranges changed: gogol-core
Files
- README.md +3/−3
- gen/Network/Google/AdSenseHost.hs +6/−3
- gen/Network/Google/AdSenseHost/Types.hs +6/−5
- gen/Network/Google/AdSenseHost/Types/Product.hs +87/−86
- gen/Network/Google/AdSenseHost/Types/Sum.hs +14/−14
- gen/Network/Google/Resource/AdSenseHost/Accounts/AdClients/Get.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/Accounts/AdClients/List.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Delete.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Get.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/GetAdCode.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Insert.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/List.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Patch.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Update.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/Accounts/Get.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/Accounts/List.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/Accounts/Reports/Generate.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/AdClients/Get.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/AdClients/List.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/AssociationSessions/Start.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/AssociationSessions/Verify.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/CustomChannels/Delete.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/CustomChannels/Get.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/CustomChannels/Insert.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/CustomChannels/List.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/CustomChannels/Patch.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/CustomChannels/Update.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/Reports/Generate.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/URLChannels/Delete.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/URLChannels/Insert.hs +6/−4
- gen/Network/Google/Resource/AdSenseHost/URLChannels/List.hs +6/−4
- gogol-adsense-host.cabal +5/−5
README.md view
@@ -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
gen/Network/Google/AdSenseHost.hs view
@@ -7,20 +7,23 @@ -- | -- Module : Network.Google.AdSenseHost--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) ----- Gives AdSense Hosts access to report generation, ad code generation, and--- publisher management capabilities.+-- Generates performance reports, generates ad codes, and provides+-- publisher management capabilities for AdSense Hosts. -- -- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> module Network.Google.AdSenseHost ( -- * Service Configuration adSenseHostService++ -- * OAuth Scopes+ , adSenseHostScope -- * API Declaration , AdSenseHostAPI
gen/Network/Google/AdSenseHost/Types.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE NoImplicitPrelude #-}@@ -7,7 +8,7 @@ -- | -- Module : Network.Google.AdSenseHost.Types--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -19,7 +20,7 @@ adSenseHostService -- * OAuth Scopes- , adsensehostScope+ , adSenseHostScope -- * AdClients , AdClients@@ -195,11 +196,11 @@ import Network.Google.Prelude -- | Default request referring to version 'v4.1' of the AdSense Host API. This contains the host and root path used as a starting point for constructing service requests.-adSenseHostService :: Service+adSenseHostService :: ServiceConfig adSenseHostService = defaultService (ServiceId "adsensehost:v4.1") "www.googleapis.com" -- | View and manage your AdSense host data and associated accounts-adsensehostScope :: OAuthScope-adsensehostScope = "https://www.googleapis.com/auth/adsensehost";+adSenseHostScope :: Proxy '["https://www.googleapis.com/auth/adsensehost"]+adSenseHostScope = Proxy;
gen/Network/Google/AdSenseHost/Types/Product.hs view
@@ -9,7 +9,7 @@ -- | -- Module : Network.Google.AdSenseHost.Types.Product--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- 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 = "adsensehost#adClients"@@ -75,13 +75,13 @@ parseJSON = withObject "AdClients" (\ o ->- AdClients <$>+ AdClients' <$> (o .:? "etag") <*> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "adsensehost#adClients") <*> (o .:? "items" .!= mempty)) instance ToJSON AdClients where- toJSON AdClients{..}+ toJSON AdClients'{..} = object (catMaybes [("etag" .=) <$> _acEtag,@@ -90,7 +90,7 @@ -- -- /See:/ 'associationSession' smart constructor.-data AssociationSession = AssociationSession+data AssociationSession = AssociationSession' { _asStatus :: !(Maybe Text) , _asKind :: !Text , _asWebsiteLocale :: !(Maybe Text)@@ -126,7 +126,7 @@ associationSession :: AssociationSession associationSession =- AssociationSession+ AssociationSession' { _asStatus = Nothing , _asKind = "adsensehost#associationSession" , _asWebsiteLocale = Nothing@@ -165,7 +165,8 @@ asAccountId = lens _asAccountId (\ s a -> s{_asAccountId = a}) --- | The products to associate with the user. Options: AFC, AFF, AFS, AFMC+-- | The products to associate with the user. Options: AFC, AFG, AFV, AFS+-- (deprecated), AFMC (deprecated) asProductCodes :: Lens' AssociationSession [Text] asProductCodes = lens _asProductCodes@@ -193,7 +194,7 @@ parseJSON = withObject "AssociationSession" (\ o ->- AssociationSession <$>+ AssociationSession' <$> (o .:? "status") <*> (o .:? "kind" .!= "adsensehost#associationSession") <*> (o .:? "websiteLocale")@@ -205,7 +206,7 @@ <*> (o .:? "redirectUrl")) instance ToJSON AssociationSession where- toJSON AssociationSession{..}+ toJSON AssociationSession'{..} = object (catMaybes [("status" .=) <$> _asStatus,@@ -220,7 +221,7 @@ -- -- /See:/ 'accounts' smart constructor.-data Accounts = Accounts+data Accounts = Accounts' { _aEtag :: !(Maybe Text) , _aKind :: !Text , _aItems :: !(Maybe [Account])@@ -238,7 +239,7 @@ accounts :: Accounts accounts =- Accounts+ Accounts' { _aEtag = Nothing , _aKind = "adsensehost#accounts" , _aItems = Nothing@@ -262,13 +263,13 @@ parseJSON = withObject "Accounts" (\ o ->- Accounts <$>+ Accounts' <$> (o .:? "etag") <*> (o .:? "kind" .!= "adsensehost#accounts") <*> (o .:? "items" .!= mempty)) instance ToJSON Accounts where- toJSON Accounts{..}+ toJSON Accounts'{..} = object (catMaybes [("etag" .=) <$> _aEtag, Just ("kind" .= _aKind),@@ -276,7 +277,7 @@ -- -- /See:/ 'adUnits' smart constructor.-data AdUnits = AdUnits+data AdUnits = AdUnits' { _auEtag :: !(Maybe Text) , _auNextPageToken :: !(Maybe Text) , _auKind :: !Text@@ -297,7 +298,7 @@ adUnits :: AdUnits adUnits =- AdUnits+ AdUnits' { _auEtag = Nothing , _auNextPageToken = Nothing , _auKind = "adsensehost#adUnits"@@ -329,13 +330,13 @@ parseJSON = withObject "AdUnits" (\ o ->- AdUnits <$>+ AdUnits' <$> (o .:? "etag") <*> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "adsensehost#adUnits") <*> (o .:? "items" .!= mempty)) instance ToJSON AdUnits where- toJSON AdUnits{..}+ toJSON AdUnits'{..} = object (catMaybes [("etag" .=) <$> _auEtag,@@ -344,7 +345,7 @@ -- -- /See:/ 'urlChannels' smart constructor.-data URLChannels = URLChannels+data URLChannels = URLChannels' { _ucEtag :: !(Maybe Text) , _ucNextPageToken :: !(Maybe Text) , _ucKind :: !Text@@ -365,7 +366,7 @@ urlChannels :: URLChannels urlChannels =- URLChannels+ URLChannels' { _ucEtag = Nothing , _ucNextPageToken = Nothing , _ucKind = "adsensehost#urlChannels"@@ -398,13 +399,13 @@ parseJSON = withObject "URLChannels" (\ o ->- URLChannels <$>+ URLChannels' <$> (o .:? "etag") <*> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "adsensehost#urlChannels") <*> (o .:? "items" .!= mempty)) instance ToJSON URLChannels where- toJSON URLChannels{..}+ toJSON URLChannels'{..} = object (catMaybes [("etag" .=) <$> _ucEtag,@@ -413,7 +414,7 @@ -- -- /See:/ 'customChannels' smart constructor.-data CustomChannels = CustomChannels+data CustomChannels = CustomChannels' { _ccEtag :: !(Maybe Text) , _ccNextPageToken :: !(Maybe Text) , _ccKind :: !Text@@ -434,7 +435,7 @@ customChannels :: CustomChannels customChannels =- CustomChannels+ CustomChannels' { _ccEtag = Nothing , _ccNextPageToken = Nothing , _ccKind = "adsensehost#customChannels"@@ -467,13 +468,13 @@ parseJSON = withObject "CustomChannels" (\ o ->- CustomChannels <$>+ CustomChannels' <$> (o .:? "etag") <*> (o .:? "nextPageToken") <*> (o .:? "kind" .!= "adsensehost#customChannels") <*> (o .:? "items" .!= mempty)) instance ToJSON CustomChannels where- toJSON CustomChannels{..}+ toJSON CustomChannels'{..} = object (catMaybes [("etag" .=) <$> _ccEtag,@@ -482,7 +483,7 @@ -- -- /See:/ 'adUnit' smart constructor.-data AdUnit = AdUnit+data AdUnit = AdUnit' { _auuStatus :: !(Maybe Text) , _auuMobileContentAdsSettings :: !(Maybe AdUnitMobileContentAdsSettings) , _auuKind :: !Text@@ -515,7 +516,7 @@ adUnit :: AdUnit adUnit =- AdUnit+ AdUnit' { _auuStatus = Nothing , _auuMobileContentAdsSettings = Nothing , _auuKind = "adsensehost#adUnit"@@ -535,7 +536,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@@ -556,7 +557,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@@ -575,7 +576,7 @@ parseJSON = withObject "AdUnit" (\ o ->- AdUnit <$>+ AdUnit' <$> (o .:? "status") <*> (o .:? "mobileContentAdsSettings") <*> (o .:? "kind" .!= "adsensehost#adUnit")@@ -586,7 +587,7 @@ <*> (o .:? "id")) instance ToJSON AdUnit where- toJSON AdUnit{..}+ toJSON AdUnit'{..} = object (catMaybes [("status" .=) <$> _auuStatus,@@ -600,7 +601,7 @@ -- -- /See:/ 'report' smart constructor.-data Report = Report+data Report = Report' { _rKind :: !Text , _rAverages :: !(Maybe [Text]) , _rWarnings :: !(Maybe [Text])@@ -630,7 +631,7 @@ report :: Report report =- Report+ Report' { _rKind = "adsensehost#report" , _rAverages = Nothing , _rWarnings = Nothing@@ -697,7 +698,7 @@ parseJSON = withObject "Report" (\ o ->- Report <$>+ Report' <$> (o .:? "kind" .!= "adsensehost#report") <*> (o .:? "averages" .!= mempty) <*> (o .:? "warnings" .!= mempty)@@ -707,7 +708,7 @@ <*> (o .:? "totalMatchedRows")) instance ToJSON Report where- toJSON Report{..}+ toJSON Report'{..} = object (catMaybes [Just ("kind" .= _rKind),@@ -720,7 +721,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)@@ -735,7 +736,7 @@ adStyleFont :: AdStyleFont adStyleFont =- AdStyleFont+ AdStyleFont' { _asfSize = Nothing , _asfFamily = Nothing }@@ -755,10 +756,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,@@ -766,7 +767,7 @@ -- -- /See:/ 'account' smart constructor.-data Account = Account+data Account = Account' { _accStatus :: !(Maybe Text) , _accKind :: !Text , _accName :: !(Maybe Text)@@ -787,7 +788,7 @@ account :: Account account =- Account+ Account' { _accStatus = Nothing , _accKind = "adsensehost#account" , _accName = Nothing@@ -815,24 +816,24 @@ parseJSON = withObject "Account" (\ o ->- Account <$>+ Account' <$> (o .:? "status") <*> (o .:? "kind" .!= "adsensehost#account") <*> (o .:? "name") <*> (o .:? "id")) instance ToJSON Account where- toJSON Account{..}+ toJSON Account'{..} = object (catMaybes [("status" .=) <$> _accStatus, Just ("kind" .= _accKind), ("name" .=) <$> _accName, ("id" .=) <$> _accId]) --- | 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)@@ -853,7 +854,7 @@ adUnitMobileContentAdsSettings :: AdUnitMobileContentAdsSettings adUnitMobileContentAdsSettings =- AdUnitMobileContentAdsSettings+ AdUnitMobileContentAdsSettings' { _aumcasSize = Nothing , _aumcasScriptingLanguage = Nothing , _aumcasMarkupLanguage = Nothing@@ -887,13 +888,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,@@ -907,7 +908,7 @@ -- leading hash. -- -- /See:/ 'adStyleColors' smart constructor.-data AdStyleColors = AdStyleColors+data AdStyleColors = AdStyleColors' { _ascText :: !(Maybe Text) , _ascURL :: !(Maybe Text) , _ascBOrder :: !(Maybe Text)@@ -931,7 +932,7 @@ adStyleColors :: AdStyleColors adStyleColors =- AdStyleColors+ AdStyleColors' { _ascText = Nothing , _ascURL = Nothing , _ascBOrder = Nothing@@ -966,13 +967,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,@@ -983,7 +984,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)@@ -1001,7 +1002,7 @@ adUnitContentAdsSettingsBackupOption :: AdUnitContentAdsSettingsBackupOption adUnitContentAdsSettingsBackupOption =- AdUnitContentAdsSettingsBackupOption+ AdUnitContentAdsSettingsBackupOption' { _aucasboColor = Nothing , _aucasboURL = Nothing , _aucasboType = Nothing@@ -1029,12 +1030,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,@@ -1043,7 +1044,7 @@ -- -- /See:/ 'adClient' smart constructor.-data AdClient = AdClient+data AdClient = AdClient' { _adKind :: !Text , _adArcOptIn :: !(Maybe Bool) , _adSupportsReporting :: !(Maybe Bool)@@ -1067,7 +1068,7 @@ adClient :: AdClient adClient =- AdClient+ AdClient' { _adKind = "adsensehost#adClient" , _adArcOptIn = Nothing , _adSupportsReporting = Nothing@@ -1105,7 +1106,7 @@ parseJSON = withObject "AdClient" (\ o ->- AdClient <$>+ AdClient' <$> (o .:? "kind" .!= "adsensehost#adClient") <*> (o .:? "arcOptIn") <*> (o .:? "supportsReporting")@@ -1113,7 +1114,7 @@ <*> (o .:? "productCode")) instance ToJSON AdClient where- toJSON AdClient{..}+ toJSON AdClient'{..} = object (catMaybes [Just ("kind" .= _adKind),@@ -1124,7 +1125,7 @@ -- -- /See:/ 'reportHeadersItem' smart constructor.-data ReportHeadersItem = ReportHeadersItem+data ReportHeadersItem = ReportHeadersItem' { _rhiName :: !(Maybe Text) , _rhiCurrency :: !(Maybe Text) , _rhiType :: !(Maybe Text)@@ -1142,7 +1143,7 @@ reportHeadersItem :: ReportHeadersItem reportHeadersItem =- ReportHeadersItem+ ReportHeadersItem' { _rhiName = Nothing , _rhiCurrency = Nothing , _rhiType = Nothing@@ -1167,12 +1168,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,@@ -1181,7 +1182,7 @@ -- -- /See:/ 'adStyle' smart constructor.-data AdStyle = AdStyle+data AdStyle = AdStyle' { _assCorners :: !(Maybe Text) , _assKind :: !Text , _assFont :: !(Maybe AdStyleFont)@@ -1202,7 +1203,7 @@ adStyle :: AdStyle adStyle =- AdStyle+ AdStyle' { _assCorners = Nothing , _assKind = "adsensehost#adStyle" , _assFont = Nothing@@ -1234,14 +1235,14 @@ parseJSON = withObject "AdStyle" (\ o ->- AdStyle <$>+ AdStyle' <$> (o .:? "corners") <*> (o .:? "kind" .!= "adsensehost#adStyle") <*> (o .:? "font") <*> (o .:? "colors")) instance ToJSON AdStyle where- toJSON AdStyle{..}+ toJSON AdStyle'{..} = object (catMaybes [("corners" .=) <$> _assCorners,@@ -1250,7 +1251,7 @@ -- -- /See:/ 'customChannel' smart constructor.-data CustomChannel = CustomChannel+data CustomChannel = CustomChannel' { _cKind :: !Text , _cName :: !(Maybe Text) , _cCode :: !(Maybe Text)@@ -1271,7 +1272,7 @@ customChannel :: CustomChannel customChannel =- CustomChannel+ CustomChannel' { _cKind = "adsensehost#customChannel" , _cName = Nothing , _cCode = Nothing@@ -1300,14 +1301,14 @@ parseJSON = withObject "CustomChannel" (\ o ->- CustomChannel <$>+ CustomChannel' <$> (o .:? "kind" .!= "adsensehost#customChannel") <*> (o .:? "name") <*> (o .:? "code") <*> (o .:? "id")) instance ToJSON CustomChannel where- toJSON CustomChannel{..}+ toJSON CustomChannel'{..} = object (catMaybes [Just ("kind" .= _cKind), ("name" .=) <$> _cName,@@ -1315,7 +1316,7 @@ -- -- /See:/ 'urlChannel' smart constructor.-data URLChannel = URLChannel+data URLChannel = URLChannel' { _urlcKind :: !Text , _urlcId :: !(Maybe Text) , _urlcURLPattern :: !(Maybe Text)@@ -1333,7 +1334,7 @@ urlChannel :: URLChannel urlChannel =- URLChannel+ URLChannel' { _urlcKind = "adsensehost#urlChannel" , _urlcId = Nothing , _urlcURLPattern = Nothing@@ -1360,13 +1361,13 @@ parseJSON = withObject "URLChannel" (\ o ->- URLChannel <$>+ URLChannel' <$> (o .:? "kind" .!= "adsensehost#urlChannel") <*> (o .:? "id") <*> (o .:? "urlPattern")) instance ToJSON URLChannel where- toJSON URLChannel{..}+ toJSON URLChannel'{..} = object (catMaybes [Just ("kind" .= _urlcKind), ("id" .=) <$> _urlcId,@@ -1374,7 +1375,7 @@ -- -- /See:/ 'adCode' smart constructor.-data AdCode = AdCode+data AdCode = AdCode' { _aaKind :: !Text , _aaAdCode :: !(Maybe Text) } deriving (Eq,Show,Data,Typeable,Generic)@@ -1389,7 +1390,7 @@ adCode :: AdCode adCode =- AdCode+ AdCode' { _aaKind = "adsensehost#adCode" , _aaAdCode = Nothing }@@ -1406,22 +1407,22 @@ parseJSON = withObject "AdCode" (\ o ->- AdCode <$>+ AdCode' <$> (o .:? "kind" .!= "adsensehost#adCode") <*> (o .:? "adCode")) instance ToJSON AdCode where- toJSON AdCode{..}+ toJSON AdCode'{..} = object (catMaybes [Just ("kind" .= _aaKind), ("adCode" .=) <$> _aaAdCode]) -- | 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)@@ -1439,7 +1440,7 @@ adUnitContentAdsSettings :: AdUnitContentAdsSettings adUnitContentAdsSettings =- AdUnitContentAdsSettings+ AdUnitContentAdsSettings' { _aucasBackupOption = Nothing , _aucasSize = Nothing , _aucasType = Nothing@@ -1466,12 +1467,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,
gen/Network/Google/AdSenseHost/Types/Sum.hs view
@@ -8,7 +8,7 @@ -- | -- Module : Network.Google.AdSenseHost.Types.Sum--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -28,28 +28,28 @@ -- AdSense For Games | Afmc -- ^ @AFMC@- -- AdSense For Mobile Content+ -- AdSense For Mobile Content - deprecated | Afs -- ^ @AFS@- -- AdSense For Search+ -- AdSense For Search - deprecated | Afv -- ^ @AFV@ -- AdSense For Video- deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)+ deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic) instance Hashable AssociationSessionsStartProductCode -instance FromText AssociationSessionsStartProductCode where- fromText = \case- "AFC" -> Just Afc- "AFG" -> Just Afg- "AFMC" -> Just Afmc- "AFS" -> Just Afs- "AFV" -> Just Afv- _ -> Nothing+instance FromHttpApiData AssociationSessionsStartProductCode where+ parseQueryParam = \case+ "AFC" -> Right Afc+ "AFG" -> Right Afg+ "AFMC" -> Right Afmc+ "AFS" -> Right Afs+ "AFV" -> Right Afv+ x -> Left ("Unable to parse AssociationSessionsStartProductCode from: " <> x) -instance ToText AssociationSessionsStartProductCode where- toText = \case+instance ToHttpApiData AssociationSessionsStartProductCode where+ toQueryParam = \case Afc -> "AFC" Afg -> "AFG" Afmc -> "AFMC"
gen/Network/Google/Resource/AdSenseHost/Accounts/AdClients/Get.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.Accounts.AdClients.Get--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -56,7 +56,7 @@ -- publisher\'s AdSense account. -- -- /See:/ 'accountsAdClientsGet' smart constructor.-data AccountsAdClientsGet = AccountsAdClientsGet+data AccountsAdClientsGet = AccountsAdClientsGet' { _aacgAdClientId :: !Text , _aacgAccountId :: !Text } deriving (Eq,Show,Data,Typeable,Generic)@@ -73,7 +73,7 @@ -> Text -- ^ 'aacgAccountId' -> AccountsAdClientsGet accountsAdClientsGet pAacgAdClientId_ pAacgAccountId_ =- AccountsAdClientsGet+ AccountsAdClientsGet' { _aacgAdClientId = pAacgAdClientId_ , _aacgAccountId = pAacgAccountId_ }@@ -92,7 +92,9 @@ instance GoogleRequest AccountsAdClientsGet where type Rs AccountsAdClientsGet = AdClient- requestClient AccountsAdClientsGet{..}+ type Scopes AccountsAdClientsGet =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient AccountsAdClientsGet'{..} = go _aacgAccountId _aacgAdClientId (Just AltJSON) adSenseHostService where go
gen/Network/Google/Resource/AdSenseHost/Accounts/AdClients/List.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.Accounts.AdClients.List--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -56,7 +56,7 @@ -- | List all hosted ad clients in the specified hosted 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,9 @@ instance GoogleRequest AccountsAdClientsList where type Rs AccountsAdClientsList = AdClients- requestClient AccountsAdClientsList{..}+ type Scopes AccountsAdClientsList =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient AccountsAdClientsList'{..} = go _aaclAccountId _aaclPageToken _aaclMaxResults (Just AltJSON) adSenseHostService
gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Delete.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Delete--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -59,7 +59,7 @@ -- account. -- -- /See:/ 'accountsAdUnitsDelete' smart constructor.-data AccountsAdUnitsDelete = AccountsAdUnitsDelete+data AccountsAdUnitsDelete = AccountsAdUnitsDelete' { _aaudAdUnitId :: !Text , _aaudAdClientId :: !Text , _aaudAccountId :: !Text@@ -80,7 +80,7 @@ -> Text -- ^ 'aaudAccountId' -> AccountsAdUnitsDelete accountsAdUnitsDelete pAaudAdUnitId_ pAaudAdClientId_ pAaudAccountId_ =- AccountsAdUnitsDelete+ AccountsAdUnitsDelete' { _aaudAdUnitId = pAaudAdUnitId_ , _aaudAdClientId = pAaudAdClientId_ , _aaudAccountId = pAaudAccountId_@@ -105,7 +105,9 @@ instance GoogleRequest AccountsAdUnitsDelete where type Rs AccountsAdUnitsDelete = AdUnit- requestClient AccountsAdUnitsDelete{..}+ type Scopes AccountsAdUnitsDelete =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient AccountsAdUnitsDelete'{..} = go _aaudAccountId _aaudAdClientId _aaudAdUnitId (Just AltJSON) adSenseHostService
gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Get.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Get--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -57,7 +57,7 @@ -- | Get the specified host ad unit in this AdSense account. -- -- /See:/ 'accountsAdUnitsGet' smart constructor.-data AccountsAdUnitsGet = AccountsAdUnitsGet+data AccountsAdUnitsGet = AccountsAdUnitsGet' { _aaugAdUnitId :: !Text , _aaugAdClientId :: !Text , _aaugAccountId :: !Text@@ -78,7 +78,7 @@ -> Text -- ^ 'aaugAccountId' -> AccountsAdUnitsGet accountsAdUnitsGet pAaugAdUnitId_ pAaugAdClientId_ pAaugAccountId_ =- AccountsAdUnitsGet+ AccountsAdUnitsGet' { _aaugAdUnitId = pAaugAdUnitId_ , _aaugAdClientId = pAaugAdClientId_ , _aaugAccountId = pAaugAccountId_@@ -103,7 +103,9 @@ instance GoogleRequest AccountsAdUnitsGet where type Rs AccountsAdUnitsGet = AdUnit- requestClient AccountsAdUnitsGet{..}+ type Scopes AccountsAdUnitsGet =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient AccountsAdUnitsGet'{..} = go _aaugAccountId _aaugAdClientId _aaugAdUnitId (Just AltJSON) adSenseHostService
gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/GetAdCode.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.Accounts.AdUnits.GetAdCode--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -62,7 +62,7 @@ -- custom channels. -- -- /See:/ 'accountsAdUnitsGetAdCode' smart constructor.-data AccountsAdUnitsGetAdCode = AccountsAdUnitsGetAdCode+data AccountsAdUnitsGetAdCode = AccountsAdUnitsGetAdCode' { _aaugacAdUnitId :: !Text , _aaugacAdClientId :: !Text , _aaugacAccountId :: !Text@@ -86,7 +86,7 @@ -> Text -- ^ 'aaugacAccountId' -> AccountsAdUnitsGetAdCode accountsAdUnitsGetAdCode pAaugacAdUnitId_ pAaugacAdClientId_ pAaugacAccountId_ =- AccountsAdUnitsGetAdCode+ AccountsAdUnitsGetAdCode' { _aaugacAdUnitId = pAaugacAdUnitId_ , _aaugacAdClientId = pAaugacAdClientId_ , _aaugacAccountId = pAaugacAccountId_@@ -121,7 +121,9 @@ instance GoogleRequest AccountsAdUnitsGetAdCode where type Rs AccountsAdUnitsGetAdCode = AdCode- requestClient AccountsAdUnitsGetAdCode{..}+ type Scopes AccountsAdUnitsGetAdCode =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient AccountsAdUnitsGetAdCode'{..} = go _aaugacAccountId _aaugacAdClientId _aaugacAdUnitId (_aaugacHostCustomChannelId ^. _Default)
gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Insert.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Insert--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -59,7 +59,7 @@ -- account. -- -- /See:/ 'accountsAdUnitsInsert' smart constructor.-data AccountsAdUnitsInsert = AccountsAdUnitsInsert+data AccountsAdUnitsInsert = AccountsAdUnitsInsert' { _aauiPayload :: !AdUnit , _aauiAdClientId :: !Text , _aauiAccountId :: !Text@@ -80,7 +80,7 @@ -> Text -- ^ 'aauiAccountId' -> AccountsAdUnitsInsert accountsAdUnitsInsert pAauiPayload_ pAauiAdClientId_ pAauiAccountId_ =- AccountsAdUnitsInsert+ AccountsAdUnitsInsert' { _aauiPayload = pAauiPayload_ , _aauiAdClientId = pAauiAdClientId_ , _aauiAccountId = pAauiAccountId_@@ -105,7 +105,9 @@ instance GoogleRequest AccountsAdUnitsInsert where type Rs AccountsAdUnitsInsert = AdUnit- requestClient AccountsAdUnitsInsert{..}+ type Scopes AccountsAdUnitsInsert =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient AccountsAdUnitsInsert'{..} = go _aauiAccountId _aauiAdClientId (Just AltJSON) _aauiPayload adSenseHostService
gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/List.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.Accounts.AdUnits.List--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -61,7 +61,7 @@ -- | List all ad units in the specified publisher\'s AdSense 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,9 @@ instance GoogleRequest AccountsAdUnitsList where type Rs AccountsAdUnitsList = AdUnits- requestClient AccountsAdUnitsList{..}+ type Scopes AccountsAdUnitsList =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient AccountsAdUnitsList'{..} = go _aaulAccountId _aaulAdClientId _aaulIncludeInactive _aaulPageToken
gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Patch.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Patch--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -61,7 +61,7 @@ -- This method supports patch semantics. -- -- /See:/ 'accountsAdUnitsPatch' smart constructor.-data AccountsAdUnitsPatch = AccountsAdUnitsPatch+data AccountsAdUnitsPatch = AccountsAdUnitsPatch' { _aaupAdUnitId :: !Text , _aaupPayload :: !AdUnit , _aaupAdClientId :: !Text@@ -86,7 +86,7 @@ -> Text -- ^ 'aaupAccountId' -> AccountsAdUnitsPatch accountsAdUnitsPatch pAaupAdUnitId_ pAaupPayload_ pAaupAdClientId_ pAaupAccountId_ =- AccountsAdUnitsPatch+ AccountsAdUnitsPatch' { _aaupAdUnitId = pAaupAdUnitId_ , _aaupPayload = pAaupPayload_ , _aaupAdClientId = pAaupAdClientId_@@ -117,7 +117,9 @@ instance GoogleRequest AccountsAdUnitsPatch where type Rs AccountsAdUnitsPatch = AdUnit- requestClient AccountsAdUnitsPatch{..}+ type Scopes AccountsAdUnitsPatch =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient AccountsAdUnitsPatch'{..} = go _aaupAccountId _aaupAdClientId (Just _aaupAdUnitId) (Just AltJSON)
gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Update.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.Accounts.AdUnits.Update--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -57,7 +57,7 @@ -- | Update the supplied ad unit in the specified publisher AdSense account. -- -- /See:/ 'accountsAdUnitsUpdate' smart constructor.-data AccountsAdUnitsUpdate = AccountsAdUnitsUpdate+data AccountsAdUnitsUpdate = AccountsAdUnitsUpdate' { _aauuPayload :: !AdUnit , _aauuAdClientId :: !Text , _aauuAccountId :: !Text@@ -78,7 +78,7 @@ -> Text -- ^ 'aauuAccountId' -> AccountsAdUnitsUpdate accountsAdUnitsUpdate pAauuPayload_ pAauuAdClientId_ pAauuAccountId_ =- AccountsAdUnitsUpdate+ AccountsAdUnitsUpdate' { _aauuPayload = pAauuPayload_ , _aauuAdClientId = pAauuAdClientId_ , _aauuAccountId = pAauuAccountId_@@ -103,7 +103,9 @@ instance GoogleRequest AccountsAdUnitsUpdate where type Rs AccountsAdUnitsUpdate = AdUnit- requestClient AccountsAdUnitsUpdate{..}+ type Scopes AccountsAdUnitsUpdate =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient AccountsAdUnitsUpdate'{..} = go _aauuAccountId _aauuAdClientId (Just AltJSON) _aauuPayload adSenseHostService
gen/Network/Google/Resource/AdSenseHost/Accounts/Get.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.Accounts.Get--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -51,7 +51,7 @@ -- | Get information about the selected associated AdSense 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,9 @@ instance GoogleRequest AccountsGet where type Rs AccountsGet = Account- requestClient AccountsGet{..}+ type Scopes AccountsGet =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient AccountsGet'{..} = go _agAccountId (Just AltJSON) adSenseHostService where go = buildClient (Proxy :: Proxy AccountsGetResource)
gen/Network/Google/Resource/AdSenseHost/Accounts/List.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.Accounts.List--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -53,7 +53,7 @@ -- id. -- -- /See:/ 'accountsList' smart constructor.-newtype AccountsList = AccountsList+newtype AccountsList = AccountsList' { _alFilterAdClientId :: [Text] } deriving (Eq,Show,Data,Typeable,Generic) @@ -66,7 +66,7 @@ :: [Text] -- ^ 'alFilterAdClientId' -> AccountsList accountsList pAlFilterAdClientId_ =- AccountsList+ AccountsList' { _alFilterAdClientId = _Coerce # pAlFilterAdClientId_ } @@ -79,7 +79,9 @@ instance GoogleRequest AccountsList where type Rs AccountsList = Accounts- requestClient AccountsList{..}+ type Scopes AccountsList =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient AccountsList'{..} = go _alFilterAdClientId (Just AltJSON) adSenseHostService where go
gen/Network/Google/Resource/AdSenseHost/Accounts/Reports/Generate.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.Accounts.Reports.Generate--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -74,7 +74,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@@ -116,7 +116,7 @@ -> Text -- ^ 'argAccountId' -> AccountsReportsGenerate accountsReportsGenerate pArgEndDate_ pArgStartDate_ pArgAccountId_ =- AccountsReportsGenerate+ AccountsReportsGenerate' { _argDimension = Nothing , _argLocale = Nothing , _argEndDate = pArgEndDate_@@ -196,7 +196,9 @@ instance GoogleRequest AccountsReportsGenerate where type Rs AccountsReportsGenerate = Report- requestClient AccountsReportsGenerate{..}+ type Scopes AccountsReportsGenerate =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient AccountsReportsGenerate'{..} = go _argAccountId (Just _argStartDate) (Just _argEndDate) (_argDimension ^. _Default)
gen/Network/Google/Resource/AdSenseHost/AdClients/Get.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.AdClients.Get--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -51,7 +51,7 @@ -- | Get information about one of the ad clients in the Host AdSense account. -- -- /See:/ 'adClientsGet' smart constructor.-newtype AdClientsGet = AdClientsGet+newtype AdClientsGet = AdClientsGet' { _acgAdClientId :: Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -64,7 +64,7 @@ :: Text -- ^ 'acgAdClientId' -> AdClientsGet adClientsGet pAcgAdClientId_ =- AdClientsGet+ AdClientsGet' { _acgAdClientId = pAcgAdClientId_ } @@ -76,7 +76,9 @@ instance GoogleRequest AdClientsGet where type Rs AdClientsGet = AdClient- requestClient AdClientsGet{..}+ type Scopes AdClientsGet =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient AdClientsGet'{..} = go _acgAdClientId (Just AltJSON) adSenseHostService where go = buildClient (Proxy :: Proxy AdClientsGetResource)
gen/Network/Google/Resource/AdSenseHost/AdClients/List.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.AdClients.List--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -53,7 +53,7 @@ -- | List all host ad clients in this AdSense account. -- -- /See:/ 'adClientsList' smart constructor.-data AdClientsList = AdClientsList+data AdClientsList = AdClientsList' { _aclPageToken :: !(Maybe Text) , _aclMaxResults :: !(Maybe (Textual Word32)) } deriving (Eq,Show,Data,Typeable,Generic)@@ -68,7 +68,7 @@ adClientsList :: AdClientsList adClientsList =- AdClientsList+ AdClientsList' { _aclPageToken = Nothing , _aclMaxResults = Nothing }@@ -90,7 +90,9 @@ instance GoogleRequest AdClientsList where type Rs AdClientsList = AdClients- requestClient AdClientsList{..}+ type Scopes AdClientsList =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient AdClientsList'{..} = go _aclPageToken _aclMaxResults (Just AltJSON) adSenseHostService where go
gen/Network/Google/Resource/AdSenseHost/AssociationSessions/Start.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.AssociationSessions.Start--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -63,7 +63,7 @@ -- AdSense user. -- -- /See:/ 'associationSessionsStart' smart constructor.-data AssociationSessionsStart = AssociationSessionsStart+data AssociationSessionsStart = AssociationSessionsStart' { _assWebsiteLocale :: !(Maybe Text) , _assUserLocale :: !(Maybe Text) , _assWebsiteURL :: !Text@@ -86,7 +86,7 @@ -> [AssociationSessionsStartProductCode] -- ^ 'assProductCode' -> AssociationSessionsStart associationSessionsStart pAssWebsiteURL_ pAssProductCode_ =- AssociationSessionsStart+ AssociationSessionsStart' { _assWebsiteLocale = Nothing , _assUserLocale = Nothing , _assWebsiteURL = pAssWebsiteURL_@@ -120,7 +120,9 @@ instance GoogleRequest AssociationSessionsStart where type Rs AssociationSessionsStart = AssociationSession- requestClient AssociationSessionsStart{..}+ type Scopes AssociationSessionsStart =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient AssociationSessionsStart'{..} = go _assProductCode (Just _assWebsiteURL) _assWebsiteLocale _assUserLocale
gen/Network/Google/Resource/AdSenseHost/AssociationSessions/Verify.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.AssociationSessions.Verify--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -55,7 +55,7 @@ -- from AdSense signup. -- -- /See:/ 'associationSessionsVerify' smart constructor.-newtype AssociationSessionsVerify = AssociationSessionsVerify+newtype AssociationSessionsVerify = AssociationSessionsVerify' { _asvToken :: Text } deriving (Eq,Show,Data,Typeable,Generic) @@ -68,7 +68,7 @@ :: Text -- ^ 'asvToken' -> AssociationSessionsVerify associationSessionsVerify pAsvToken_ =- AssociationSessionsVerify+ AssociationSessionsVerify' { _asvToken = pAsvToken_ } @@ -80,7 +80,9 @@ where type Rs AssociationSessionsVerify = AssociationSession- requestClient AssociationSessionsVerify{..}+ type Scopes AssociationSessionsVerify =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient AssociationSessionsVerify'{..} = go (Just _asvToken) (Just AltJSON) adSenseHostService where go
gen/Network/Google/Resource/AdSenseHost/CustomChannels/Delete.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.CustomChannels.Delete--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -55,7 +55,7 @@ -- | Delete a specific custom channel from the host AdSense account. -- -- /See:/ 'customChannelsDelete' smart constructor.-data CustomChannelsDelete = CustomChannelsDelete+data CustomChannelsDelete = CustomChannelsDelete' { _ccdCustomChannelId :: !Text , _ccdAdClientId :: !Text } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@ -> Text -- ^ 'ccdAdClientId' -> CustomChannelsDelete customChannelsDelete pCcdCustomChannelId_ pCcdAdClientId_ =- CustomChannelsDelete+ CustomChannelsDelete' { _ccdCustomChannelId = pCcdCustomChannelId_ , _ccdAdClientId = pCcdAdClientId_ }@@ -91,7 +91,9 @@ instance GoogleRequest CustomChannelsDelete where type Rs CustomChannelsDelete = CustomChannel- requestClient CustomChannelsDelete{..}+ type Scopes CustomChannelsDelete =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient CustomChannelsDelete'{..} = go _ccdAdClientId _ccdCustomChannelId (Just AltJSON) adSenseHostService
gen/Network/Google/Resource/AdSenseHost/CustomChannels/Get.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.CustomChannels.Get--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -54,7 +54,7 @@ -- | Get a specific custom channel from the host AdSense account. -- -- /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,9 @@ instance GoogleRequest CustomChannelsGet where type Rs CustomChannelsGet = CustomChannel- requestClient CustomChannelsGet{..}+ type Scopes CustomChannelsGet =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient CustomChannelsGet'{..} = go _ccgAdClientId _ccgCustomChannelId (Just AltJSON) adSenseHostService
gen/Network/Google/Resource/AdSenseHost/CustomChannels/Insert.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.CustomChannels.Insert--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -55,7 +55,7 @@ -- | Add a new custom channel to the host AdSense account. -- -- /See:/ 'customChannelsInsert' smart constructor.-data CustomChannelsInsert = CustomChannelsInsert+data CustomChannelsInsert = CustomChannelsInsert' { _cciPayload :: !CustomChannel , _cciAdClientId :: !Text } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@ -> Text -- ^ 'cciAdClientId' -> CustomChannelsInsert customChannelsInsert pCciPayload_ pCciAdClientId_ =- CustomChannelsInsert+ CustomChannelsInsert' { _cciPayload = pCciPayload_ , _cciAdClientId = pCciAdClientId_ }@@ -90,7 +90,9 @@ instance GoogleRequest CustomChannelsInsert where type Rs CustomChannelsInsert = CustomChannel- requestClient CustomChannelsInsert{..}+ type Scopes CustomChannelsInsert =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient CustomChannelsInsert'{..} = go _cciAdClientId (Just AltJSON) _cciPayload adSenseHostService where go
gen/Network/Google/Resource/AdSenseHost/CustomChannels/List.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.CustomChannels.List--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -57,7 +57,7 @@ -- | List all host custom channels in this AdSense account. -- -- /See:/ 'customChannelsList' smart constructor.-data CustomChannelsList = CustomChannelsList+data CustomChannelsList = CustomChannelsList' { _cclAdClientId :: !Text , _cclPageToken :: !(Maybe Text) , _cclMaxResults :: !(Maybe (Textual Word32))@@ -76,7 +76,7 @@ :: Text -- ^ 'cclAdClientId' -> CustomChannelsList customChannelsList pCclAdClientId_ =- CustomChannelsList+ CustomChannelsList' { _cclAdClientId = pCclAdClientId_ , _cclPageToken = Nothing , _cclMaxResults = Nothing@@ -105,7 +105,9 @@ instance GoogleRequest CustomChannelsList where type Rs CustomChannelsList = CustomChannels- requestClient CustomChannelsList{..}+ type Scopes CustomChannelsList =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient CustomChannelsList'{..} = go _cclAdClientId _cclPageToken _cclMaxResults (Just AltJSON) adSenseHostService
gen/Network/Google/Resource/AdSenseHost/CustomChannels/Patch.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.CustomChannels.Patch--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -59,7 +59,7 @@ -- supports patch semantics. -- -- /See:/ 'customChannelsPatch' smart constructor.-data CustomChannelsPatch = CustomChannelsPatch+data CustomChannelsPatch = CustomChannelsPatch' { _ccpCustomChannelId :: !Text , _ccpPayload :: !CustomChannel , _ccpAdClientId :: !Text@@ -80,7 +80,7 @@ -> Text -- ^ 'ccpAdClientId' -> CustomChannelsPatch customChannelsPatch pCcpCustomChannelId_ pCcpPayload_ pCcpAdClientId_ =- CustomChannelsPatch+ CustomChannelsPatch' { _ccpCustomChannelId = pCcpCustomChannelId_ , _ccpPayload = pCcpPayload_ , _ccpAdClientId = pCcpAdClientId_@@ -105,7 +105,9 @@ instance GoogleRequest CustomChannelsPatch where type Rs CustomChannelsPatch = CustomChannel- requestClient CustomChannelsPatch{..}+ type Scopes CustomChannelsPatch =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient CustomChannelsPatch'{..} = go _ccpAdClientId (Just _ccpCustomChannelId) (Just AltJSON) _ccpPayload
gen/Network/Google/Resource/AdSenseHost/CustomChannels/Update.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.CustomChannels.Update--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -55,7 +55,7 @@ -- | Update a custom channel in the host AdSense account. -- -- /See:/ 'customChannelsUpdate' smart constructor.-data CustomChannelsUpdate = CustomChannelsUpdate+data CustomChannelsUpdate = CustomChannelsUpdate' { _ccuPayload :: !CustomChannel , _ccuAdClientId :: !Text } deriving (Eq,Show,Data,Typeable,Generic)@@ -72,7 +72,7 @@ -> Text -- ^ 'ccuAdClientId' -> CustomChannelsUpdate customChannelsUpdate pCcuPayload_ pCcuAdClientId_ =- CustomChannelsUpdate+ CustomChannelsUpdate' { _ccuPayload = pCcuPayload_ , _ccuAdClientId = pCcuAdClientId_ }@@ -90,7 +90,9 @@ instance GoogleRequest CustomChannelsUpdate where type Rs CustomChannelsUpdate = CustomChannel- requestClient CustomChannelsUpdate{..}+ type Scopes CustomChannelsUpdate =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient CustomChannelsUpdate'{..} = go _ccuAdClientId (Just AltJSON) _ccuPayload adSenseHostService where go
gen/Network/Google/Resource/AdSenseHost/Reports/Generate.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.Reports.Generate--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -71,7 +71,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@@ -109,7 +109,7 @@ -> Text -- ^ 'rgStartDate' -> ReportsGenerate reportsGenerate pRgEndDate_ pRgStartDate_ =- ReportsGenerate+ ReportsGenerate' { _rgDimension = Nothing , _rgLocale = Nothing , _rgEndDate = pRgEndDate_@@ -180,7 +180,9 @@ instance GoogleRequest ReportsGenerate where type Rs ReportsGenerate = Report- requestClient ReportsGenerate{..}+ type Scopes ReportsGenerate =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient ReportsGenerate'{..} = go (Just _rgStartDate) (Just _rgEndDate) (_rgDimension ^. _Default) _rgLocale
gen/Network/Google/Resource/AdSenseHost/URLChannels/Delete.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.URLChannels.Delete--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -54,7 +54,7 @@ -- | Delete a URL channel from the host AdSense account. -- -- /See:/ 'urlChannelsDelete' smart constructor.-data URLChannelsDelete = URLChannelsDelete+data URLChannelsDelete = URLChannelsDelete' { _ucdURLChannelId :: !Text , _ucdAdClientId :: !Text } deriving (Eq,Show,Data,Typeable,Generic)@@ -71,7 +71,7 @@ -> Text -- ^ 'ucdAdClientId' -> URLChannelsDelete urlChannelsDelete pUcdURLChannelId_ pUcdAdClientId_ =- URLChannelsDelete+ URLChannelsDelete' { _ucdURLChannelId = pUcdURLChannelId_ , _ucdAdClientId = pUcdAdClientId_ }@@ -90,7 +90,9 @@ instance GoogleRequest URLChannelsDelete where type Rs URLChannelsDelete = URLChannel- requestClient URLChannelsDelete{..}+ type Scopes URLChannelsDelete =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient URLChannelsDelete'{..} = go _ucdAdClientId _ucdURLChannelId (Just AltJSON) adSenseHostService where go
gen/Network/Google/Resource/AdSenseHost/URLChannels/Insert.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.URLChannels.Insert--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -54,7 +54,7 @@ -- | Add a new URL channel to the host AdSense account. -- -- /See:/ 'urlChannelsInsert' smart constructor.-data URLChannelsInsert = URLChannelsInsert+data URLChannelsInsert = URLChannelsInsert' { _uciPayload :: !URLChannel , _uciAdClientId :: !Text } deriving (Eq,Show,Data,Typeable,Generic)@@ -71,7 +71,7 @@ -> Text -- ^ 'uciAdClientId' -> URLChannelsInsert urlChannelsInsert pUciPayload_ pUciAdClientId_ =- URLChannelsInsert+ URLChannelsInsert' { _uciPayload = pUciPayload_ , _uciAdClientId = pUciAdClientId_ }@@ -89,7 +89,9 @@ instance GoogleRequest URLChannelsInsert where type Rs URLChannelsInsert = URLChannel- requestClient URLChannelsInsert{..}+ type Scopes URLChannelsInsert =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient URLChannelsInsert'{..} = go _uciAdClientId (Just AltJSON) _uciPayload adSenseHostService where go
gen/Network/Google/Resource/AdSenseHost/URLChannels/List.hs view
@@ -14,7 +14,7 @@ -- | -- Module : Network.Google.Resource.AdSenseHost.URLChannels.List--- Copyright : (c) 2015 Brendan Hay+-- Copyright : (c) 2015-2016 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay@gmail.com> -- Stability : auto-generated@@ -56,7 +56,7 @@ -- | List all host URL channels in the host AdSense account. -- -- /See:/ 'urlChannelsList' smart constructor.-data URLChannelsList = URLChannelsList+data URLChannelsList = URLChannelsList' { _uclAdClientId :: !Text , _uclPageToken :: !(Maybe Text) , _uclMaxResults :: !(Maybe (Textual Word32))@@ -75,7 +75,7 @@ :: Text -- ^ 'uclAdClientId' -> URLChannelsList urlChannelsList pUclAdClientId_ =- URLChannelsList+ URLChannelsList' { _uclAdClientId = pUclAdClientId_ , _uclPageToken = Nothing , _uclMaxResults = Nothing@@ -104,7 +104,9 @@ instance GoogleRequest URLChannelsList where type Rs URLChannelsList = URLChannels- requestClient URLChannelsList{..}+ type Scopes URLChannelsList =+ '["https://www.googleapis.com/auth/adsensehost"]+ requestClient URLChannelsList'{..} = go _uclAdClientId _uclPageToken _uclMaxResults (Just AltJSON) adSenseHostService
gogol-adsense-host.cabal view
@@ -1,5 +1,5 @@ name: gogol-adsense-host-version: 0.0.1+version: 0.1.0 synopsis: Google AdSense Host 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 <brendan.g.hay@gmail.com>-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 Hosts access to report generation, ad code generation, and- publisher management capabilities.+ Generates performance reports, generates ad codes, and provides+ publisher management capabilities for AdSense Hosts. . /Warning:/ This is an experimental prototype/preview release which is still under exploratory development and not intended for public use, caveat emptor!@@ -72,5 +72,5 @@ , Network.Google.AdSenseHost.Types.Sum build-depends:- gogol-core == 0.0.1.*+ gogol-core == 0.1.0.* , base >= 4.7 && < 5