packages feed

gogol-adsense-host 0.4.0 → 0.5.0

raw patch · 30 files changed

+337/−195 lines, 30 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description
gen/Network/Google/AdSenseHost/Types.hs view
@@ -203,4 +203,4 @@  -- | View and manage your AdSense host data and associated accounts adSenseHostScope :: Proxy '["https://www.googleapis.com/auth/adsensehost"]-adSenseHostScope = Proxy;+adSenseHostScope = Proxy
gen/Network/Google/AdSenseHost/Types/Product.hs view
@@ -22,13 +22,16 @@  -- -- /See:/ 'adClients' smart constructor.-data AdClients = AdClients'+data AdClients =+  AdClients'     { _acEtag          :: !(Maybe Text)     , _acNextPageToken :: !(Maybe Text)     , _acKind          :: !Text     , _acItems         :: !(Maybe [AdClient])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AdClients' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -43,13 +46,14 @@ adClients     :: AdClients adClients =-    AdClients'+  AdClients'     { _acEtag = Nothing     , _acNextPageToken = Nothing     , _acKind = "adsensehost#adClients"     , _acItems = Nothing     } + -- | ETag of this response for caching purposes. acEtag :: Lens' AdClients (Maybe Text) acEtag = lens _acEtag (\ s a -> s{_acEtag = a})@@ -90,7 +94,8 @@  -- -- /See:/ 'associationSession' smart constructor.-data AssociationSession = AssociationSession'+data AssociationSession =+  AssociationSession'     { _asStatus        :: !(Maybe Text)     , _asKind          :: !Text     , _asWebsiteLocale :: !(Maybe Text)@@ -100,8 +105,10 @@     , _asId            :: !(Maybe Text)     , _asWebsiteURL    :: !(Maybe Text)     , _asRedirectURL   :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssociationSession' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -126,7 +133,7 @@ associationSession     :: AssociationSession associationSession =-    AssociationSession'+  AssociationSession'     { _asStatus = Nothing     , _asKind = "adsensehost#associationSession"     , _asWebsiteLocale = Nothing@@ -138,6 +145,7 @@     , _asRedirectURL = Nothing     } + -- | Status of the completed association, available once the association -- callback token has been verified. One of ACCEPTED, REJECTED, or ERROR. asStatus :: Lens' AssociationSession (Maybe Text)@@ -221,12 +229,15 @@  -- -- /See:/ 'accounts' smart constructor.-data Accounts = Accounts'+data Accounts =+  Accounts'     { _aEtag  :: !(Maybe Text)     , _aKind  :: !Text     , _aItems :: !(Maybe [Account])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Accounts' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -239,12 +250,10 @@ accounts     :: Accounts accounts =-    Accounts'-    { _aEtag = Nothing-    , _aKind = "adsensehost#accounts"-    , _aItems = Nothing-    }+  Accounts'+    {_aEtag = Nothing, _aKind = "adsensehost#accounts", _aItems = Nothing} + -- | ETag of this response for caching purposes. aEtag :: Lens' Accounts (Maybe Text) aEtag = lens _aEtag (\ s a -> s{_aEtag = a})@@ -277,13 +286,16 @@  -- -- /See:/ 'adUnits' smart constructor.-data AdUnits = AdUnits'+data AdUnits =+  AdUnits'     { _auEtag          :: !(Maybe Text)     , _auNextPageToken :: !(Maybe Text)     , _auKind          :: !Text     , _auItems         :: !(Maybe [AdUnit])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AdUnits' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -298,13 +310,14 @@ adUnits     :: AdUnits adUnits =-    AdUnits'+  AdUnits'     { _auEtag = Nothing     , _auNextPageToken = Nothing     , _auKind = "adsensehost#adUnits"     , _auItems = Nothing     } + -- | ETag of this response for caching purposes. auEtag :: Lens' AdUnits (Maybe Text) auEtag = lens _auEtag (\ s a -> s{_auEtag = a})@@ -345,13 +358,16 @@  -- -- /See:/ 'urlChannels' smart constructor.-data URLChannels = URLChannels'+data URLChannels =+  URLChannels'     { _ucEtag          :: !(Maybe Text)     , _ucNextPageToken :: !(Maybe Text)     , _ucKind          :: !Text     , _ucItems         :: !(Maybe [URLChannel])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'URLChannels' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -366,13 +382,14 @@ urlChannels     :: URLChannels urlChannels =-    URLChannels'+  URLChannels'     { _ucEtag = Nothing     , _ucNextPageToken = Nothing     , _ucKind = "adsensehost#urlChannels"     , _ucItems = Nothing     } + -- | ETag of this response for caching purposes. ucEtag :: Lens' URLChannels (Maybe Text) ucEtag = lens _ucEtag (\ s a -> s{_ucEtag = a})@@ -414,13 +431,16 @@  -- -- /See:/ 'customChannels' smart constructor.-data CustomChannels = CustomChannels'+data CustomChannels =+  CustomChannels'     { _ccEtag          :: !(Maybe Text)     , _ccNextPageToken :: !(Maybe Text)     , _ccKind          :: !Text     , _ccItems         :: !(Maybe [CustomChannel])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomChannels' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -435,13 +455,14 @@ customChannels     :: CustomChannels customChannels =-    CustomChannels'+  CustomChannels'     { _ccEtag = Nothing     , _ccNextPageToken = Nothing     , _ccKind = "adsensehost#customChannels"     , _ccItems = Nothing     } + -- | ETag of this response for caching purposes. ccEtag :: Lens' CustomChannels (Maybe Text) ccEtag = lens _ccEtag (\ s a -> s{_ccEtag = a})@@ -483,7 +504,8 @@  -- -- /See:/ 'adUnit' smart constructor.-data AdUnit = AdUnit'+data AdUnit =+  AdUnit'     { _auuStatus                   :: !(Maybe Text)     , _auuMobileContentAdsSettings :: !(Maybe AdUnitMobileContentAdsSettings)     , _auuKind                     :: !Text@@ -492,8 +514,10 @@     , _auuContentAdsSettings       :: !(Maybe AdUnitContentAdsSettings)     , _auuCode                     :: !(Maybe Text)     , _auuId                       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AdUnit' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -516,7 +540,7 @@ adUnit     :: AdUnit adUnit =-    AdUnit'+  AdUnit'     { _auuStatus = Nothing     , _auuMobileContentAdsSettings = Nothing     , _auuKind = "adsensehost#adUnit"@@ -527,6 +551,7 @@     , _auuId = Nothing     } + -- | Status of this ad unit. Possible values are: NEW: Indicates that the ad -- unit was created within the last seven days and does not yet have any -- activity associated with it. ACTIVE: Indicates that there has been@@ -601,7 +626,8 @@  -- -- /See:/ 'report' smart constructor.-data Report = Report'+data Report =+  Report'     { _rKind             :: !Text     , _rAverages         :: !(Maybe [Text])     , _rWarnings         :: !(Maybe [Text])@@ -609,8 +635,10 @@     , _rTotals           :: !(Maybe [Text])     , _rHeaders          :: !(Maybe [ReportHeadersItem])     , _rTotalMatchedRows :: !(Maybe (Textual Int64))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Report' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -631,7 +659,7 @@ report     :: Report report =-    Report'+  Report'     { _rKind = "adsensehost#report"     , _rAverages = Nothing     , _rWarnings = Nothing@@ -641,6 +669,7 @@     , _rTotalMatchedRows = Nothing     } + -- | Kind this is, in this case adsensehost#report. rKind :: Lens' Report Text rKind = lens _rKind (\ s a -> s{_rKind = a})@@ -721,11 +750,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AdStyleFont' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -735,12 +767,9 @@ -- * 'asfFamily' adStyleFont     :: AdStyleFont-adStyleFont =-    AdStyleFont'-    { _asfSize = Nothing-    , _asfFamily = Nothing-    }+adStyleFont = AdStyleFont' {_asfSize = Nothing, _asfFamily = Nothing} + -- | The size of the font. Possible values are: ACCOUNT_DEFAULT_SIZE, -- ADSENSE_DEFAULT_SIZE, SMALL, MEDIUM and LARGE. asfSize :: Lens' AdStyleFont (Maybe Text)@@ -767,13 +796,16 @@  -- -- /See:/ 'account' smart constructor.-data Account = Account'+data Account =+  Account'     { _accStatus :: !(Maybe Text)     , _accKind   :: !Text     , _accName   :: !(Maybe Text)     , _accId     :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Account' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -788,13 +820,14 @@ account     :: Account account =-    Account'+  Account'     { _accStatus = Nothing     , _accKind = "adsensehost#account"     , _accName = Nothing     , _accId = Nothing     } + -- | Approval status of this account. One of: PENDING, APPROVED, DISABLED. accStatus :: Lens' Account (Maybe Text) accStatus@@ -833,13 +866,16 @@ -- | 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)     , _aumcasType              :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AdUnitMobileContentAdsSettings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -854,13 +890,14 @@ adUnitMobileContentAdsSettings     :: AdUnitMobileContentAdsSettings adUnitMobileContentAdsSettings =-    AdUnitMobileContentAdsSettings'+  AdUnitMobileContentAdsSettings'     { _aumcasSize = Nothing     , _aumcasScriptingLanguage = Nothing     , _aumcasMarkupLanguage = Nothing     , _aumcasType = Nothing     } + -- | Size of this ad unit. aumcasSize :: Lens' AdUnitMobileContentAdsSettings (Maybe Text) aumcasSize@@ -908,14 +945,17 @@ -- leading hash. -- -- /See:/ 'adStyleColors' smart constructor.-data AdStyleColors = AdStyleColors'+data AdStyleColors =+  AdStyleColors'     { _ascText       :: !(Maybe Text)     , _ascURL        :: !(Maybe Text)     , _ascBOrder     :: !(Maybe Text)     , _ascTitle      :: !(Maybe Text)     , _ascBackgRound :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AdStyleColors' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -932,7 +972,7 @@ adStyleColors     :: AdStyleColors adStyleColors =-    AdStyleColors'+  AdStyleColors'     { _ascText = Nothing     , _ascURL = Nothing     , _ascBOrder = Nothing@@ -940,6 +980,7 @@     , _ascBackgRound = Nothing     } + -- | The color of the ad text. ascText :: Lens' AdStyleColors (Maybe Text) ascText = lens _ascText (\ s a -> s{_ascText = a})@@ -984,12 +1025,15 @@ -- | 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)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AdUnitContentAdsSettingsBackupOption' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1002,12 +1046,10 @@ adUnitContentAdsSettingsBackupOption     :: AdUnitContentAdsSettingsBackupOption adUnitContentAdsSettingsBackupOption =-    AdUnitContentAdsSettingsBackupOption'-    { _aucasboColor = Nothing-    , _aucasboURL = Nothing-    , _aucasboType = Nothing-    }+  AdUnitContentAdsSettingsBackupOption'+    {_aucasboColor = Nothing, _aucasboURL = Nothing, _aucasboType = Nothing} + -- | Color to use when type is set to COLOR. These are represented as six -- hexadecimal characters, similar to HTML color codes, but without the -- leading hash.@@ -1026,7 +1068,8 @@   = lens _aucasboType (\ s a -> s{_aucasboType = a})  instance FromJSON-         AdUnitContentAdsSettingsBackupOption where+           AdUnitContentAdsSettingsBackupOption+         where         parseJSON           = withObject "AdUnitContentAdsSettingsBackupOption"               (\ o ->@@ -1044,14 +1087,17 @@  -- -- /See:/ 'adClient' smart constructor.-data AdClient = AdClient'+data AdClient =+  AdClient'     { _adKind              :: !Text     , _adArcOptIn          :: !(Maybe Bool)     , _adSupportsReporting :: !(Maybe Bool)     , _adId                :: !(Maybe Text)     , _adProductCode       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AdClient' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1068,7 +1114,7 @@ adClient     :: AdClient adClient =-    AdClient'+  AdClient'     { _adKind = "adsensehost#adClient"     , _adArcOptIn = Nothing     , _adSupportsReporting = Nothing@@ -1076,6 +1122,7 @@     , _adProductCode = Nothing     } + -- | Kind of resource this is, in this case adsensehost#adClient. adKind :: Lens' AdClient Text adKind = lens _adKind (\ s a -> s{_adKind = a})@@ -1125,12 +1172,15 @@  -- -- /See:/ 'reportHeadersItem' smart constructor.-data ReportHeadersItem = ReportHeadersItem'+data ReportHeadersItem =+  ReportHeadersItem'     { _rhiName     :: !(Maybe Text)     , _rhiCurrency :: !(Maybe Text)     , _rhiType     :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ReportHeadersItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1143,12 +1193,10 @@ reportHeadersItem     :: ReportHeadersItem reportHeadersItem =-    ReportHeadersItem'-    { _rhiName = Nothing-    , _rhiCurrency = Nothing-    , _rhiType = Nothing-    }+  ReportHeadersItem'+    {_rhiName = Nothing, _rhiCurrency = Nothing, _rhiType = Nothing} + -- | The name of the header. rhiName :: Lens' ReportHeadersItem (Maybe Text) rhiName = lens _rhiName (\ s a -> s{_rhiName = a})@@ -1182,13 +1230,16 @@  -- -- /See:/ 'adStyle' smart constructor.-data AdStyle = AdStyle'+data AdStyle =+  AdStyle'     { _assCorners :: !(Maybe Text)     , _assKind    :: !Text     , _assFont    :: !(Maybe AdStyleFont)     , _assColors  :: !(Maybe AdStyleColors)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AdStyle' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1203,13 +1254,14 @@ adStyle     :: AdStyle adStyle =-    AdStyle'+  AdStyle'     { _assCorners = Nothing     , _assKind = "adsensehost#adStyle"     , _assFont = Nothing     , _assColors = Nothing     } + -- | The style of the corners in the ad (deprecated: never populated, -- ignored). assCorners :: Lens' AdStyle (Maybe Text)@@ -1251,13 +1303,16 @@  -- -- /See:/ 'customChannel' smart constructor.-data CustomChannel = CustomChannel'+data CustomChannel =+  CustomChannel'     { _cKind :: !Text     , _cName :: !(Maybe Text)     , _cCode :: !(Maybe Text)     , _cId   :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomChannel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1272,13 +1327,14 @@ customChannel     :: CustomChannel customChannel =-    CustomChannel'+  CustomChannel'     { _cKind = "adsensehost#customChannel"     , _cName = Nothing     , _cCode = Nothing     , _cId = Nothing     } + -- | Kind of resource this is, in this case adsensehost#customChannel. cKind :: Lens' CustomChannel Text cKind = lens _cKind (\ s a -> s{_cKind = a})@@ -1316,12 +1372,15 @@  -- -- /See:/ 'urlChannel' smart constructor.-data URLChannel = URLChannel'+data URLChannel =+  URLChannel'     { _urlcKind       :: !Text     , _urlcId         :: !(Maybe Text)     , _urlcURLPattern :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'URLChannel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1334,12 +1393,13 @@ urlChannel     :: URLChannel urlChannel =-    URLChannel'+  URLChannel'     { _urlcKind = "adsensehost#urlChannel"     , _urlcId = Nothing     , _urlcURLPattern = Nothing     } + -- | Kind of resource this is, in this case adsensehost#urlChannel. urlcKind :: Lens' URLChannel Text urlcKind = lens _urlcKind (\ s a -> s{_urlcKind = a})@@ -1375,11 +1435,14 @@  -- -- /See:/ 'adCode' smart constructor.-data AdCode = AdCode'+data AdCode =+  AdCode'     { _aaKind   :: !Text     , _aaAdCode :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AdCode' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1389,12 +1452,9 @@ -- * 'aaAdCode' adCode     :: AdCode-adCode =-    AdCode'-    { _aaKind = "adsensehost#adCode"-    , _aaAdCode = Nothing-    }+adCode = AdCode' {_aaKind = "adsensehost#adCode", _aaAdCode = Nothing} + -- | Kind this is, in this case adsensehost#adCode. aaKind :: Lens' AdCode Text aaKind = lens _aaKind (\ s a -> s{_aaKind = a})@@ -1422,12 +1482,15 @@ -- (AFMC - deprecated). -- -- /See:/ 'adUnitContentAdsSettings' smart constructor.-data AdUnitContentAdsSettings = AdUnitContentAdsSettings'+data AdUnitContentAdsSettings =+  AdUnitContentAdsSettings'     { _aucasBackupOption :: !(Maybe AdUnitContentAdsSettingsBackupOption)     , _aucasSize         :: !(Maybe Text)     , _aucasType         :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AdUnitContentAdsSettings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1440,11 +1503,9 @@ adUnitContentAdsSettings     :: AdUnitContentAdsSettings adUnitContentAdsSettings =-    AdUnitContentAdsSettings'-    { _aucasBackupOption = Nothing-    , _aucasSize = Nothing-    , _aucasType = Nothing-    }+  AdUnitContentAdsSettings'+    {_aucasBackupOption = Nothing, _aucasSize = Nothing, _aucasType = Nothing}+  -- | The backup option to be used in instances where no ad is available. aucasBackupOption :: Lens' AdUnitContentAdsSettings (Maybe AdUnitContentAdsSettingsBackupOption)
gen/Network/Google/Resource/AdSenseHost/Accounts/AdClients/Get.hs view
@@ -56,11 +56,14 @@ -- publisher\'s AdSense account. -- -- /See:/ 'accountsAdClientsGet' smart constructor.-data AccountsAdClientsGet = AccountsAdClientsGet'+data AccountsAdClientsGet =+  AccountsAdClientsGet'     { _aacgAdClientId :: !Text     , _aacgAccountId  :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccountsAdClientsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -73,10 +76,9 @@     -> Text -- ^ 'aacgAccountId'     -> AccountsAdClientsGet accountsAdClientsGet pAacgAdClientId_ pAacgAccountId_ =-    AccountsAdClientsGet'-    { _aacgAdClientId = pAacgAdClientId_-    , _aacgAccountId = pAacgAccountId_-    }+  AccountsAdClientsGet'+    {_aacgAdClientId = pAacgAdClientId_, _aacgAccountId = pAacgAccountId_}+  -- | Ad client to get. aacgAdClientId :: Lens' AccountsAdClientsGet Text
gen/Network/Google/Resource/AdSenseHost/Accounts/AdClients/List.hs view
@@ -56,12 +56,15 @@ -- | 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))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccountsAdClientsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,11 +78,12 @@     :: Text -- ^ 'aaclAccountId'     -> AccountsAdClientsList accountsAdClientsList pAaclAccountId_ =-    AccountsAdClientsList'+  AccountsAdClientsList'     { _aaclAccountId = pAaclAccountId_     , _aaclPageToken = Nothing     , _aaclMaxResults = Nothing     }+  -- | Account for which to list ad clients. aaclAccountId :: Lens' AccountsAdClientsList Text
gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Delete.hs view
@@ -59,12 +59,15 @@ -- account. -- -- /See:/ 'accountsAdUnitsDelete' smart constructor.-data AccountsAdUnitsDelete = AccountsAdUnitsDelete'+data AccountsAdUnitsDelete =+  AccountsAdUnitsDelete'     { _aaudAdUnitId   :: !Text     , _aaudAdClientId :: !Text     , _aaudAccountId  :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccountsAdUnitsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -80,11 +83,12 @@     -> Text -- ^ 'aaudAccountId'     -> AccountsAdUnitsDelete accountsAdUnitsDelete pAaudAdUnitId_ pAaudAdClientId_ pAaudAccountId_ =-    AccountsAdUnitsDelete'+  AccountsAdUnitsDelete'     { _aaudAdUnitId = pAaudAdUnitId_     , _aaudAdClientId = pAaudAdClientId_     , _aaudAccountId = pAaudAccountId_     }+  -- | Ad unit to delete. aaudAdUnitId :: Lens' AccountsAdUnitsDelete Text
gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Get.hs view
@@ -57,12 +57,15 @@ -- | 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-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccountsAdUnitsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,11 +81,12 @@     -> Text -- ^ 'aaugAccountId'     -> AccountsAdUnitsGet accountsAdUnitsGet pAaugAdUnitId_ pAaugAdClientId_ pAaugAccountId_ =-    AccountsAdUnitsGet'+  AccountsAdUnitsGet'     { _aaugAdUnitId = pAaugAdUnitId_     , _aaugAdClientId = pAaugAdClientId_     , _aaugAccountId = pAaugAccountId_     }+  -- | Ad unit to get. aaugAdUnitId :: Lens' AccountsAdUnitsGet Text
gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/GetAdCode.hs view
@@ -62,13 +62,16 @@ -- custom channels. -- -- /See:/ 'accountsAdUnitsGetAdCode' smart constructor.-data AccountsAdUnitsGetAdCode = AccountsAdUnitsGetAdCode'+data AccountsAdUnitsGetAdCode =+  AccountsAdUnitsGetAdCode'     { _aaugacAdUnitId            :: !Text     , _aaugacAdClientId          :: !Text     , _aaugacAccountId           :: !Text     , _aaugacHostCustomChannelId :: !(Maybe [Text])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccountsAdUnitsGetAdCode' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -86,12 +89,13 @@     -> Text -- ^ 'aaugacAccountId'     -> AccountsAdUnitsGetAdCode accountsAdUnitsGetAdCode pAaugacAdUnitId_ pAaugacAdClientId_ pAaugacAccountId_ =-    AccountsAdUnitsGetAdCode'+  AccountsAdUnitsGetAdCode'     { _aaugacAdUnitId = pAaugacAdUnitId_     , _aaugacAdClientId = pAaugacAdClientId_     , _aaugacAccountId = pAaugacAccountId_     , _aaugacHostCustomChannelId = Nothing     }+  -- | Ad unit to get the code for. aaugacAdUnitId :: Lens' AccountsAdUnitsGetAdCode Text
gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Insert.hs view
@@ -59,12 +59,15 @@ -- account. -- -- /See:/ 'accountsAdUnitsInsert' smart constructor.-data AccountsAdUnitsInsert = AccountsAdUnitsInsert'+data AccountsAdUnitsInsert =+  AccountsAdUnitsInsert'     { _aauiPayload    :: !AdUnit     , _aauiAdClientId :: !Text     , _aauiAccountId  :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccountsAdUnitsInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -80,11 +83,12 @@     -> Text -- ^ 'aauiAccountId'     -> AccountsAdUnitsInsert accountsAdUnitsInsert pAauiPayload_ pAauiAdClientId_ pAauiAccountId_ =-    AccountsAdUnitsInsert'+  AccountsAdUnitsInsert'     { _aauiPayload = pAauiPayload_     , _aauiAdClientId = pAauiAdClientId_     , _aauiAccountId = pAauiAccountId_     }+  -- | Multipart request metadata. aauiPayload :: Lens' AccountsAdUnitsInsert AdUnit
gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/List.hs view
@@ -61,14 +61,17 @@ -- | 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     , _aaulPageToken       :: !(Maybe Text)     , _aaulMaxResults      :: !(Maybe (Textual Word32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccountsAdUnitsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -87,13 +90,14 @@     -> Text -- ^ 'aaulAccountId'     -> AccountsAdUnitsList accountsAdUnitsList pAaulAdClientId_ pAaulAccountId_ =-    AccountsAdUnitsList'+  AccountsAdUnitsList'     { _aaulIncludeInactive = Nothing     , _aaulAdClientId = pAaulAdClientId_     , _aaulAccountId = pAaulAccountId_     , _aaulPageToken = Nothing     , _aaulMaxResults = Nothing     }+  -- | Whether to include inactive ad units. Default: true. aaulIncludeInactive :: Lens' AccountsAdUnitsList (Maybe Bool)
gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Patch.hs view
@@ -61,13 +61,16 @@ -- This method supports patch semantics. -- -- /See:/ 'accountsAdUnitsPatch' smart constructor.-data AccountsAdUnitsPatch = AccountsAdUnitsPatch'+data AccountsAdUnitsPatch =+  AccountsAdUnitsPatch'     { _aaupAdUnitId   :: !Text     , _aaupPayload    :: !AdUnit     , _aaupAdClientId :: !Text     , _aaupAccountId  :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccountsAdUnitsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -86,12 +89,13 @@     -> Text -- ^ 'aaupAccountId'     -> AccountsAdUnitsPatch accountsAdUnitsPatch pAaupAdUnitId_ pAaupPayload_ pAaupAdClientId_ pAaupAccountId_ =-    AccountsAdUnitsPatch'+  AccountsAdUnitsPatch'     { _aaupAdUnitId = pAaupAdUnitId_     , _aaupPayload = pAaupPayload_     , _aaupAdClientId = pAaupAdClientId_     , _aaupAccountId = pAaupAccountId_     }+  -- | Ad unit to get. aaupAdUnitId :: Lens' AccountsAdUnitsPatch Text
gen/Network/Google/Resource/AdSenseHost/Accounts/AdUnits/Update.hs view
@@ -57,12 +57,15 @@ -- | 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-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccountsAdUnitsUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,11 +81,12 @@     -> Text -- ^ 'aauuAccountId'     -> AccountsAdUnitsUpdate accountsAdUnitsUpdate pAauuPayload_ pAauuAdClientId_ pAauuAccountId_ =-    AccountsAdUnitsUpdate'+  AccountsAdUnitsUpdate'     { _aauuPayload = pAauuPayload_     , _aauuAdClientId = pAauuAdClientId_     , _aauuAccountId = pAauuAccountId_     }+  -- | Multipart request metadata. aauuPayload :: Lens' AccountsAdUnitsUpdate AdUnit
gen/Network/Google/Resource/AdSenseHost/Accounts/Get.hs view
@@ -51,10 +51,13 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccountsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,10 +66,8 @@ accountsGet     :: Text -- ^ 'agAccountId'     -> AccountsGet-accountsGet pAgAccountId_ =-    AccountsGet'-    { _agAccountId = pAgAccountId_-    }+accountsGet pAgAccountId_ = AccountsGet' {_agAccountId = pAgAccountId_}+  -- | Account to get information about. agAccountId :: Lens' AccountsGet Text
gen/Network/Google/Resource/AdSenseHost/Accounts/List.hs view
@@ -53,10 +53,13 @@ -- id. -- -- /See:/ 'accountsList' smart constructor.-newtype AccountsList = AccountsList'+newtype AccountsList =+  AccountsList'     { _alFilterAdClientId :: [Text]-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccountsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,9 +69,8 @@     :: [Text] -- ^ 'alFilterAdClientId'     -> AccountsList accountsList pAlFilterAdClientId_ =-    AccountsList'-    { _alFilterAdClientId = _Coerce # pAlFilterAdClientId_-    }+  AccountsList' {_alFilterAdClientId = _Coerce # pAlFilterAdClientId_}+  -- | Ad clients to list accounts for. alFilterAdClientId :: Lens' AccountsList [Text]
gen/Network/Google/Resource/AdSenseHost/Accounts/Reports/Generate.hs view
@@ -74,7 +74,8 @@ -- 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@@ -85,8 +86,10 @@     , _argFilter     :: !(Maybe [Text])     , _argStartIndex :: !(Maybe (Textual Word32))     , _argMaxResults :: !(Maybe (Textual Word32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccountsReportsGenerate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -116,7 +119,7 @@     -> Text -- ^ 'argAccountId'     -> AccountsReportsGenerate accountsReportsGenerate pArgEndDate_ pArgStartDate_ pArgAccountId_ =-    AccountsReportsGenerate'+  AccountsReportsGenerate'     { _argDimension = Nothing     , _argLocale = Nothing     , _argEndDate = pArgEndDate_@@ -128,6 +131,7 @@     , _argStartIndex = Nothing     , _argMaxResults = Nothing     }+  -- | Dimensions to base the report on. argDimension :: Lens' AccountsReportsGenerate [Text]
gen/Network/Google/Resource/AdSenseHost/AdClients/Get.hs view
@@ -51,10 +51,13 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AdClientsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,10 +66,8 @@ adClientsGet     :: Text -- ^ 'acgAdClientId'     -> AdClientsGet-adClientsGet pAcgAdClientId_ =-    AdClientsGet'-    { _acgAdClientId = pAcgAdClientId_-    }+adClientsGet pAcgAdClientId_ = AdClientsGet' {_acgAdClientId = pAcgAdClientId_}+  -- | Ad client to get. acgAdClientId :: Lens' AdClientsGet Text
gen/Network/Google/Resource/AdSenseHost/AdClients/List.hs view
@@ -53,11 +53,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AdClientsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,10 +71,8 @@ adClientsList     :: AdClientsList adClientsList =-    AdClientsList'-    { _aclPageToken = Nothing-    , _aclMaxResults = Nothing-    }+  AdClientsList' {_aclPageToken = Nothing, _aclMaxResults = Nothing}+  -- | A continuation token, used to page through ad clients. To retrieve the -- next page, set this parameter to the value of \"nextPageToken\" from the
gen/Network/Google/Resource/AdSenseHost/AssociationSessions/Start.hs view
@@ -63,13 +63,16 @@ -- AdSense user. -- -- /See:/ 'associationSessionsStart' smart constructor.-data AssociationSessionsStart = AssociationSessionsStart'+data AssociationSessionsStart =+  AssociationSessionsStart'     { _assWebsiteLocale :: !(Maybe Text)     , _assUserLocale    :: !(Maybe Text)     , _assWebsiteURL    :: !Text     , _assProductCode   :: ![AssociationSessionsStartProductCode]-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssociationSessionsStart' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -86,12 +89,13 @@     -> [AssociationSessionsStartProductCode] -- ^ 'assProductCode'     -> AssociationSessionsStart associationSessionsStart pAssWebsiteURL_ pAssProductCode_ =-    AssociationSessionsStart'+  AssociationSessionsStart'     { _assWebsiteLocale = Nothing     , _assUserLocale = Nothing     , _assWebsiteURL = pAssWebsiteURL_     , _assProductCode = _Coerce # pAssProductCode_     }+  -- | The locale of the user\'s hosted website. assWebsiteLocale :: Lens' AssociationSessionsStart (Maybe Text)
gen/Network/Google/Resource/AdSenseHost/AssociationSessions/Verify.hs view
@@ -55,10 +55,13 @@ -- from AdSense signup. -- -- /See:/ 'associationSessionsVerify' smart constructor.-newtype AssociationSessionsVerify = AssociationSessionsVerify'+newtype AssociationSessionsVerify =+  AssociationSessionsVerify'     { _asvToken :: Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssociationSessionsVerify' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,9 +71,8 @@     :: Text -- ^ 'asvToken'     -> AssociationSessionsVerify associationSessionsVerify pAsvToken_ =-    AssociationSessionsVerify'-    { _asvToken = pAsvToken_-    }+  AssociationSessionsVerify' {_asvToken = pAsvToken_}+  -- | The token returned to the association callback URL. asvToken :: Lens' AssociationSessionsVerify Text
gen/Network/Google/Resource/AdSenseHost/CustomChannels/Delete.hs view
@@ -55,11 +55,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomChannelsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,10 +75,11 @@     -> Text -- ^ 'ccdAdClientId'     -> CustomChannelsDelete customChannelsDelete pCcdCustomChannelId_ pCcdAdClientId_ =-    CustomChannelsDelete'+  CustomChannelsDelete'     { _ccdCustomChannelId = pCcdCustomChannelId_     , _ccdAdClientId = pCcdAdClientId_     }+  -- | Custom channel to delete. ccdCustomChannelId :: Lens' CustomChannelsDelete Text
gen/Network/Google/Resource/AdSenseHost/CustomChannels/Get.hs view
@@ -54,11 +54,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomChannelsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,11 @@     -> Text -- ^ 'ccgAdClientId'     -> CustomChannelsGet customChannelsGet pCcgCustomChannelId_ pCcgAdClientId_ =-    CustomChannelsGet'+  CustomChannelsGet'     { _ccgCustomChannelId = pCcgCustomChannelId_     , _ccgAdClientId = pCcgAdClientId_     }+  -- | Custom channel to get. ccgCustomChannelId :: Lens' CustomChannelsGet Text
gen/Network/Google/Resource/AdSenseHost/CustomChannels/Insert.hs view
@@ -55,11 +55,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomChannelsInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,10 +75,9 @@     -> Text -- ^ 'cciAdClientId'     -> CustomChannelsInsert customChannelsInsert pCciPayload_ pCciAdClientId_ =-    CustomChannelsInsert'-    { _cciPayload = pCciPayload_-    , _cciAdClientId = pCciAdClientId_-    }+  CustomChannelsInsert'+    {_cciPayload = pCciPayload_, _cciAdClientId = pCciAdClientId_}+  -- | Multipart request metadata. cciPayload :: Lens' CustomChannelsInsert CustomChannel
gen/Network/Google/Resource/AdSenseHost/CustomChannels/List.hs view
@@ -57,12 +57,15 @@ -- | 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))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomChannelsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,11 +79,12 @@     :: Text -- ^ 'cclAdClientId'     -> CustomChannelsList customChannelsList pCclAdClientId_ =-    CustomChannelsList'+  CustomChannelsList'     { _cclAdClientId = pCclAdClientId_     , _cclPageToken = Nothing     , _cclMaxResults = Nothing     }+  -- | Ad client for which to list custom channels. cclAdClientId :: Lens' CustomChannelsList Text
gen/Network/Google/Resource/AdSenseHost/CustomChannels/Patch.hs view
@@ -59,12 +59,15 @@ -- supports patch semantics. -- -- /See:/ 'customChannelsPatch' smart constructor.-data CustomChannelsPatch = CustomChannelsPatch'+data CustomChannelsPatch =+  CustomChannelsPatch'     { _ccpCustomChannelId :: !Text     , _ccpPayload         :: !CustomChannel     , _ccpAdClientId      :: !Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomChannelsPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -80,11 +83,12 @@     -> Text -- ^ 'ccpAdClientId'     -> CustomChannelsPatch customChannelsPatch pCcpCustomChannelId_ pCcpPayload_ pCcpAdClientId_ =-    CustomChannelsPatch'+  CustomChannelsPatch'     { _ccpCustomChannelId = pCcpCustomChannelId_     , _ccpPayload = pCcpPayload_     , _ccpAdClientId = pCcpAdClientId_     }+  -- | Custom channel to get. ccpCustomChannelId :: Lens' CustomChannelsPatch Text
gen/Network/Google/Resource/AdSenseHost/CustomChannels/Update.hs view
@@ -55,11 +55,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CustomChannelsUpdate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,10 +75,9 @@     -> Text -- ^ 'ccuAdClientId'     -> CustomChannelsUpdate customChannelsUpdate pCcuPayload_ pCcuAdClientId_ =-    CustomChannelsUpdate'-    { _ccuPayload = pCcuPayload_-    , _ccuAdClientId = pCcuAdClientId_-    }+  CustomChannelsUpdate'+    {_ccuPayload = pCcuPayload_, _ccuAdClientId = pCcuAdClientId_}+  -- | Multipart request metadata. ccuPayload :: Lens' CustomChannelsUpdate CustomChannel
gen/Network/Google/Resource/AdSenseHost/Reports/Generate.hs view
@@ -71,7 +71,8 @@ -- 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@@ -81,8 +82,10 @@     , _rgFilter     :: !(Maybe [Text])     , _rgStartIndex :: !(Maybe (Textual Word32))     , _rgMaxResults :: !(Maybe (Textual Word32))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ReportsGenerate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -109,7 +112,7 @@     -> Text -- ^ 'rgStartDate'     -> ReportsGenerate reportsGenerate pRgEndDate_ pRgStartDate_ =-    ReportsGenerate'+  ReportsGenerate'     { _rgDimension = Nothing     , _rgLocale = Nothing     , _rgEndDate = pRgEndDate_@@ -120,6 +123,7 @@     , _rgStartIndex = Nothing     , _rgMaxResults = Nothing     }+  -- | Dimensions to base the report on. rgDimension :: Lens' ReportsGenerate [Text]
gen/Network/Google/Resource/AdSenseHost/URLChannels/Delete.hs view
@@ -54,11 +54,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'URLChannelsDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,9 @@     -> Text -- ^ 'ucdAdClientId'     -> URLChannelsDelete urlChannelsDelete pUcdURLChannelId_ pUcdAdClientId_ =-    URLChannelsDelete'-    { _ucdURLChannelId = pUcdURLChannelId_-    , _ucdAdClientId = pUcdAdClientId_-    }+  URLChannelsDelete'+    {_ucdURLChannelId = pUcdURLChannelId_, _ucdAdClientId = pUcdAdClientId_}+  -- | URL channel to delete. ucdURLChannelId :: Lens' URLChannelsDelete Text
gen/Network/Google/Resource/AdSenseHost/URLChannels/Insert.hs view
@@ -54,11 +54,14 @@ -- | 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)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'URLChannelsInsert' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,10 +74,9 @@     -> Text -- ^ 'uciAdClientId'     -> URLChannelsInsert urlChannelsInsert pUciPayload_ pUciAdClientId_ =-    URLChannelsInsert'-    { _uciPayload = pUciPayload_-    , _uciAdClientId = pUciAdClientId_-    }+  URLChannelsInsert'+    {_uciPayload = pUciPayload_, _uciAdClientId = pUciAdClientId_}+  -- | Multipart request metadata. uciPayload :: Lens' URLChannelsInsert URLChannel
gen/Network/Google/Resource/AdSenseHost/URLChannels/List.hs view
@@ -56,12 +56,15 @@ -- | 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))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'URLChannelsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,11 +78,12 @@     :: Text -- ^ 'uclAdClientId'     -> URLChannelsList urlChannelsList pUclAdClientId_ =-    URLChannelsList'+  URLChannelsList'     { _uclAdClientId = pUclAdClientId_     , _uclPageToken = Nothing     , _uclMaxResults = Nothing     }+  -- | Ad client for which to list URL channels. uclAdClientId :: Lens' URLChannelsList Text
gogol-adsense-host.cabal view
@@ -1,5 +1,5 @@ name:                  gogol-adsense-host-version:               0.4.0+version:               0.5.0 synopsis:              Google AdSense Host SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -72,5 +72,5 @@         , Network.Google.AdSenseHost.Types.Sum      build-depends:-          gogol-core == 0.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5