on develop help sign in
Regenerating all services
caf669dBrendan Hay
gen/src/Gen/Text.hs+5−1
@@ -201,6 +201,7 @@ upperAcronym x = Fold.foldl' (flip (uncurry RE.replaceAll)) x xs
201 , ("Sql", "SQL")
201 , ("Sql", "SQL")
202 , ("Apk", "APK")
202 , ("Apk", "APK")
203 , ("Os", "OS")
203 , ("Os", "OS")
204+ , ("Oob", "OOB")
204
205
205 , ("access", "Access")
206 , ("access", "Access")
206 , ("account", "Account")
207 , ("account", "Account")
@@ -226,7 +227,7 @@ upperAcronym x = Fold.foldl' (flip (uncurry RE.replaceAll)) x xs
226 , ("monitor", "Monitor")
227 , ("monitor", "Monitor")
227 , ("note", "Note")
228 , ("note", "Note")
228 , ("offer", "Offer")
229 , ("offer", "Offer")
229− , ("part", "Party")
230+ , ("part", "Part")
230 , ("proper", "Proper")
231 , ("proper", "Proper")
231 , ("publish", "Publish")
232 , ("publish", "Publish")
232 , ("resource", "Resource")
233 , ("resource", "Resource")
@@ -240,6 +241,9 @@ upperAcronym x = Fold.foldl' (flip (uncurry RE.replaceAll)) x xs
240 , ("observe", "Observe")
241 , ("observe", "Observe")
241 , ("order", "Order")
242 , ("order", "Order")
242 , ("position", "Position")
243 , ("position", "Position")
244+ , ("crawl", "Crawl")
245+ , ("error", "Error")
246+ , ("sample", "Sample")
243 ]
247 ]
244
248
245acronyms :: [(String, String)]
249acronyms :: [(String, String)]
gen/template/toc.ede+1−1
@@ -6,7 +6,7 @@
6
6
7{% include "_include/license.ede" %}
7{% include "_include/license.ede" %}
8--
8--
9−-- {{ description }}
9+{{ description }}
10--
10--
11-- /See:/ <{{ documentationLink }} {{ title }} Reference>
11-- /See:/ <{{ documentationLink }} {{ title }} Reference>
12module {{ moduleName }}
12module {{ moduleName }}
gogol-adexchange-buyer/gen/Network/Google/AdExchangeBuyer.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Accesses your bidding-account information, submits creatives for
15+-- | Accesses your bidding-account information, submits creatives for
16-- validation, finds available direct deals, and retrieves performance
16-- validation, finds available direct deals, and retrieves performance
17-- reports.
17-- reports.
18--
18--
gogol-adexchange-seller/gen/Network/Google/AdExchangeSeller.hs+2−2
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Gives Ad Exchange seller users access to their inventory and the ability
15+-- | Gives Ad Exchange seller users access to their inventory and the ability
16-- to generate reports
16-- to generate reports
17--
17--
18-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference>
18-- /See:/ <https://developers.google.com/ad-exchange/seller-rest/ Ad Exchange Seller API Reference>
@@ -254,7 +254,7 @@ type AdExchangeSellerAPI =
254 :<|> AccountsReportsSavedGenerateResource
254 :<|> AccountsReportsSavedGenerateResource
255 :<|> AccountsReportsGenerateResource
255 :<|> AccountsReportsGenerateResource
256 :<|> AccountsAlertsListResource
256 :<|> AccountsAlertsListResource
257− :<|> AccountsUrlChannelsListResource
257+ :<|> AccountsURLChannelsListResource
258 :<|> AccountsCustomChannelsListResource
258 :<|> AccountsCustomChannelsListResource
259 :<|> AccountsCustomChannelsGetResource
259 :<|> AccountsCustomChannelsGetResource
260 :<|> AccountsPreferredDealsListResource
260 :<|> AccountsPreferredDealsListResource
gogol-adexchange-seller/gen/Network/Google/Resource/AdExchangeSeller/Accounts/URLChannels/List.hs+3−3
@@ -24,7 +24,7 @@
24module Network.Google.Resource.AdExchangeSeller.Accounts.URLChannels.List
24module Network.Google.Resource.AdExchangeSeller.Accounts.URLChannels.List
25 (
25 (
26 -- * REST Resource
26 -- * REST Resource
27− AccountsUrlChannelsListResource
27+ AccountsURLChannelsListResource
28
28
29 -- * Creating a Request
29 -- * Creating a Request
30 , accountsURLChannelsList'
30 , accountsURLChannelsList'
@@ -48,7 +48,7 @@ import Network.Google.Prelude
48
48
49-- | A resource alias for @AdexchangesellerAccountsURLChannelsList@ which the
49-- | A resource alias for @AdexchangesellerAccountsURLChannelsList@ which the
50-- 'AccountsURLChannelsList'' request conforms to.
50-- 'AccountsURLChannelsList'' request conforms to.
51−type AccountsUrlChannelsListResource =
51+type AccountsURLChannelsListResource =
52 "accounts" :>
52 "accounts" :>
53 Capture "accountId" Text :>
53 Capture "accountId" Text :>
54 "adclients" :>
54 "adclients" :>
@@ -207,6 +207,6 @@ instance GoogleRequest AccountsURLChannelsList' where
207 (Just AltJSON)
207 (Just AltJSON)
208 where go
208 where go
209 = clientWithRoute
209 = clientWithRoute
210− (Proxy :: Proxy AccountsUrlChannelsListResource)
210+ (Proxy :: Proxy AccountsURLChannelsListResource)
211 r
211 r
212 u
212 u
gogol-admin-datatransfer/gen/Network/Google/AdminDataTransfer.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Admin Data Transfer API lets you transfer user data from one user to
15+-- | Admin Data Transfer API lets you transfer user data from one user to
16-- another.
16-- another.
17--
17--
18-- /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference>
18-- /See:/ <https://developers.google.com/admin-sdk/data-transfer/ Admin Data Transfer API Reference>
gogol-admin-directory/gen/Network/Google/AdminDirectory.hs+2−2
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | The Admin SDK Directory API lets you view and manage enterprise
15+-- | The Admin SDK Directory API lets you view and manage enterprise
16-- resources such as users and groups, administrative notifications,
16-- resources such as users and groups, administrative notifications,
17-- security features, and more.
17-- security features, and more.
18--
18--
@@ -620,7 +620,7 @@ module Network.Google.AdminDirectory
620 -- ** UserOrganization
620 -- ** UserOrganization
621 , UserOrganization
621 , UserOrganization
622 , userOrganization
622 , userOrganization
623− , uoDePartyment
623+ , uoDePartment
624 , uoLocation
624 , uoLocation
625 , uoCostCenter
625 , uoCostCenter
626 , uoDomain
626 , uoDomain
gogol-admin-directory/gen/Network/Google/AdminDirectory/Types.hs+1−1
@@ -406,7 +406,7 @@ module Network.Google.AdminDirectory.Types
406 -- * UserOrganization
406 -- * UserOrganization
407 , UserOrganization
407 , UserOrganization
408 , userOrganization
408 , userOrganization
409− , uoDePartyment
409+ , uoDePartment
410 , uoLocation
410 , uoLocation
411 , uoCostCenter
411 , uoCostCenter
412 , uoDomain
412 , uoDomain
gogol-admin-directory/gen/Network/Google/AdminDirectory/Types/Product.hs+7−8
@@ -3083,7 +3083,7 @@ instance ToJSON UserWebsite where
3083--
3083--
3084-- /See:/ 'userOrganization' smart constructor.
3084-- /See:/ 'userOrganization' smart constructor.
3085data UserOrganization = UserOrganization
3085data UserOrganization = UserOrganization
3086− { _uoDePartyment :: !(Maybe Text)
3086+ { _uoDePartment :: !(Maybe Text)
3087 , _uoLocation :: !(Maybe Text)
3087 , _uoLocation :: !(Maybe Text)
3088 , _uoCostCenter :: !(Maybe Text)
3088 , _uoCostCenter :: !(Maybe Text)
3089 , _uoDomain :: !(Maybe Text)
3089 , _uoDomain :: !(Maybe Text)
@@ -3100,7 +3100,7 @@ data UserOrganization = UserOrganization
3100--
3100--
3101-- Use one of the following lenses to modify other fields as desired:
3101-- Use one of the following lenses to modify other fields as desired:
3102--
3102--
3103−-- * 'uoDePartyment'
3103+-- * 'uoDePartment'
3104--
3104--
3105-- * 'uoLocation'
3105-- * 'uoLocation'
3106--
3106--
@@ -3125,7 +3125,7 @@ userOrganization
3125 :: UserOrganization
3125 :: UserOrganization
3126userOrganization =
3126userOrganization =
3127 UserOrganization
3127 UserOrganization
3128− { _uoDePartyment = Nothing
3128+ { _uoDePartment = Nothing
3129 , _uoLocation = Nothing
3129 , _uoLocation = Nothing
3130 , _uoCostCenter = Nothing
3130 , _uoCostCenter = Nothing
3131 , _uoDomain = Nothing
3131 , _uoDomain = Nothing
@@ -3139,10 +3139,9 @@ userOrganization =
3139 }
3139 }
3140
3140
3141-- | Department within the organization.
3141-- | Department within the organization.
3142−uoDePartyment :: Lens' UserOrganization (Maybe Text)
3142+uoDePartment :: Lens' UserOrganization (Maybe Text)
3143−uoDePartyment
3143+uoDePartment
3144− = lens _uoDePartyment
3144+ = lens _uoDePartment (\ s a -> s{_uoDePartment = a})
3145− (\ s a -> s{_uoDePartyment = a})
3146
3145
3147-- | Location of the organization. This need not be fully qualified address.
3146-- | Location of the organization. This need not be fully qualified address.
3148uoLocation :: Lens' UserOrganization (Maybe Text)
3147uoLocation :: Lens' UserOrganization (Maybe Text)
@@ -3214,7 +3213,7 @@ instance ToJSON UserOrganization where
3214 toJSON UserOrganization{..}
3213 toJSON UserOrganization{..}
3215 = object
3214 = object
3216 (catMaybes
3215 (catMaybes
3217− [("department" .=) <$> _uoDePartyment,
3216+ [("department" .=) <$> _uoDePartment,
3218 ("location" .=) <$> _uoLocation,
3217 ("location" .=) <$> _uoLocation,
3219 ("costCenter" .=) <$> _uoCostCenter,
3218 ("costCenter" .=) <$> _uoCostCenter,
3220 ("domain" .=) <$> _uoDomain,
3219 ("domain" .=) <$> _uoDomain,
gogol-admin-emailmigration/gen/Network/Google/AdminEmailMigration.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Email Migration API lets you migrate emails of users to Google backends.
15+-- | Email Migration API lets you migrate emails of users to Google backends.
16--
16--
17-- /See:/ <https://developers.google.com/admin-sdk/email-migration/v2/ Email Migration API v2 Reference>
17-- /See:/ <https://developers.google.com/admin-sdk/email-migration/v2/ Email Migration API v2 Reference>
18module Network.Google.AdminEmailMigration
18module Network.Google.AdminEmailMigration
gogol-admin-reports/gen/Network/Google/AdminReports.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Allows the administrators of Google Apps customers to fetch reports
15+-- | Allows the administrators of Google Apps customers to fetch reports
16-- about the usage, collaboration, security and risk for their users.
16-- about the usage, collaboration, security and risk for their users.
17--
17--
18-- /See:/ <https://developers.google.com/admin-sdk/reports/ Admin Reports API Reference>
18-- /See:/ <https://developers.google.com/admin-sdk/reports/ Admin Reports API Reference>
gogol-adsense-host/gen/Network/Google/AdSenseHost.hs+4−4
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Gives AdSense Hosts access to report generation, ad code generation, and
15+-- | Gives AdSense Hosts access to report generation, ad code generation, and
16-- publisher management capabilities.
16-- publisher management capabilities.
17--
17--
18-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference>
18-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference>
@@ -327,9 +327,9 @@ type AdSenseHostAPI =
327 :<|> AccountsListResource
327 :<|> AccountsListResource
328 :<|> AccountsGetResource
328 :<|> AccountsGetResource
329 :<|> ReportsGenerateResource
329 :<|> ReportsGenerateResource
330− :<|> UrlChannelsInsertResource
330+ :<|> URLChannelsInsertResource
331− :<|> UrlChannelsListResource
331+ :<|> URLChannelsListResource
332− :<|> UrlChannelsDeleteResource
332+ :<|> URLChannelsDeleteResource
333 :<|> CustomChannelsInsertResource
333 :<|> CustomChannelsInsertResource
334 :<|> CustomChannelsListResource
334 :<|> CustomChannelsListResource
335 :<|> CustomChannelsPatchResource
335 :<|> CustomChannelsPatchResource
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/URLChannels/Delete.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.AdSenseHost.URLChannels.Delete
23module Network.Google.Resource.AdSenseHost.URLChannels.Delete
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− UrlChannelsDeleteResource
26+ URLChannelsDeleteResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , uRLChannelsDelete'
29 , uRLChannelsDelete'
@@ -45,7 +45,7 @@ import Network.Google.Prelude
45
45
46-- | A resource alias for @AdsensehostURLChannelsDelete@ which the
46-- | A resource alias for @AdsensehostURLChannelsDelete@ which the
47-- 'URLChannelsDelete'' request conforms to.
47-- 'URLChannelsDelete'' request conforms to.
48−type UrlChannelsDeleteResource =
48+type URLChannelsDeleteResource =
49 "adclients" :>
49 "adclients" :>
50 Capture "adClientId" Text :>
50 Capture "adClientId" Text :>
51 "urlchannels" :>
51 "urlchannels" :>
@@ -173,6 +173,6 @@ instance GoogleRequest URLChannelsDelete' where
173 (Just AltJSON)
173 (Just AltJSON)
174 where go
174 where go
175 = clientWithRoute
175 = clientWithRoute
176− (Proxy :: Proxy UrlChannelsDeleteResource)
176+ (Proxy :: Proxy URLChannelsDeleteResource)
177 r
177 r
178 u
178 u
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/URLChannels/Insert.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.AdSenseHost.URLChannels.Insert
23module Network.Google.Resource.AdSenseHost.URLChannels.Insert
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− UrlChannelsInsertResource
26+ URLChannelsInsertResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , uRLChannelsInsert'
29 , uRLChannelsInsert'
@@ -45,7 +45,7 @@ import Network.Google.Prelude
45
45
46-- | A resource alias for @AdsensehostURLChannelsInsert@ which the
46-- | A resource alias for @AdsensehostURLChannelsInsert@ which the
47-- 'URLChannelsInsert'' request conforms to.
47-- 'URLChannelsInsert'' request conforms to.
48−type UrlChannelsInsertResource =
48+type URLChannelsInsertResource =
49 "adclients" :>
49 "adclients" :>
50 Capture "adClientId" Text :>
50 Capture "adClientId" Text :>
51 "urlchannels" :>
51 "urlchannels" :>
@@ -172,6 +172,6 @@ instance GoogleRequest URLChannelsInsert' where
172 _uciURLChannel
172 _uciURLChannel
173 where go
173 where go
174 = clientWithRoute
174 = clientWithRoute
175− (Proxy :: Proxy UrlChannelsInsertResource)
175+ (Proxy :: Proxy URLChannelsInsertResource)
176 r
176 r
177 u
177 u
gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/URLChannels/List.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.AdSenseHost.URLChannels.List
23module Network.Google.Resource.AdSenseHost.URLChannels.List
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− UrlChannelsListResource
26+ URLChannelsListResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , uRLChannelsList'
29 , uRLChannelsList'
@@ -46,7 +46,7 @@ import Network.Google.Prelude
46
46
47-- | A resource alias for @AdsensehostURLChannelsList@ which the
47-- | A resource alias for @AdsensehostURLChannelsList@ which the
48-- 'URLChannelsList'' request conforms to.
48-- 'URLChannelsList'' request conforms to.
49−type UrlChannelsListResource =
49+type URLChannelsListResource =
50 "adclients" :>
50 "adclients" :>
51 Capture "adClientId" Text :>
51 Capture "adClientId" Text :>
52 "urlchannels" :>
52 "urlchannels" :>
@@ -186,6 +186,6 @@ instance GoogleRequest URLChannelsList' where
186 (Just AltJSON)
186 (Just AltJSON)
187 where go
187 where go
188 = clientWithRoute
188 = clientWithRoute
189− (Proxy :: Proxy UrlChannelsListResource)
189+ (Proxy :: Proxy URLChannelsListResource)
190 r
190 r
191 u
191 u
gogol-adsense/gen/Network/Google/AdSense.hs+3−3
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Gives AdSense publishers access to their inventory and the ability to
15+-- | Gives AdSense publishers access to their inventory and the ability to
16-- generate reports
16-- generate reports
17--
17--
18-- /See:/ <https://developers.google.com/adsense/management/ AdSense Management API Reference>
18-- /See:/ <https://developers.google.com/adsense/management/ AdSense Management API Reference>
@@ -457,7 +457,7 @@ type AdSenseAPI =
457 :<|> AccountsAdUnitsListResource
457 :<|> AccountsAdUnitsListResource
458 :<|> AccountsAdUnitsGetResource
458 :<|> AccountsAdUnitsGetResource
459 :<|> AccountsAdUnitsGetAdCodeResource
459 :<|> AccountsAdUnitsGetAdCodeResource
460− :<|> AccountsUrlChannelsListResource
460+ :<|> AccountsURLChannelsListResource
461 :<|> AccountsCustomChannelsAdUnitsListResource
461 :<|> AccountsCustomChannelsAdUnitsListResource
462 :<|> AccountsCustomChannelsListResource
462 :<|> AccountsCustomChannelsListResource
463 :<|> AccountsCustomChannelsGetResource
463 :<|> AccountsCustomChannelsGetResource
@@ -475,7 +475,7 @@ type AdSenseAPI =
475 :<|> AdUnitsListResource
475 :<|> AdUnitsListResource
476 :<|> AdUnitsGetResource
476 :<|> AdUnitsGetResource
477 :<|> AdUnitsGetAdCodeResource
477 :<|> AdUnitsGetAdCodeResource
478− :<|> UrlChannelsListResource
478+ :<|> URLChannelsListResource
479 :<|> CustomChannelsAdUnitsListResource
479 :<|> CustomChannelsAdUnitsListResource
480 :<|> CustomChannelsListResource
480 :<|> CustomChannelsListResource
481 :<|> CustomChannelsGetResource
481 :<|> CustomChannelsGetResource
gogol-adsense/gen/Network/Google/Resource/AdSense/Accounts/URLChannels/List.hs+3−3
@@ -24,7 +24,7 @@
24module Network.Google.Resource.AdSense.Accounts.URLChannels.List
24module Network.Google.Resource.AdSense.Accounts.URLChannels.List
25 (
25 (
26 -- * REST Resource
26 -- * REST Resource
27− AccountsUrlChannelsListResource
27+ AccountsURLChannelsListResource
28
28
29 -- * Creating a Request
29 -- * Creating a Request
30 , accountsURLChannelsList'
30 , accountsURLChannelsList'
@@ -48,7 +48,7 @@ import Network.Google.Prelude
48
48
49-- | A resource alias for @AdsenseAccountsURLChannelsList@ which the
49-- | A resource alias for @AdsenseAccountsURLChannelsList@ which the
50-- 'AccountsURLChannelsList'' request conforms to.
50-- 'AccountsURLChannelsList'' request conforms to.
51−type AccountsUrlChannelsListResource =
51+type AccountsURLChannelsListResource =
52 "accounts" :>
52 "accounts" :>
53 Capture "accountId" Text :>
53 Capture "accountId" Text :>
54 "adclients" :>
54 "adclients" :>
@@ -207,6 +207,6 @@ instance GoogleRequest AccountsURLChannelsList' where
207 (Just AltJSON)
207 (Just AltJSON)
208 where go
208 where go
209 = clientWithRoute
209 = clientWithRoute
210− (Proxy :: Proxy AccountsUrlChannelsListResource)
210+ (Proxy :: Proxy AccountsURLChannelsListResource)
211 r
211 r
212 u
212 u
gogol-adsense/gen/Network/Google/Resource/AdSense/URLChannels/List.hs+3−3
@@ -24,7 +24,7 @@
24module Network.Google.Resource.AdSense.URLChannels.List
24module Network.Google.Resource.AdSense.URLChannels.List
25 (
25 (
26 -- * REST Resource
26 -- * REST Resource
27− UrlChannelsListResource
27+ URLChannelsListResource
28
28
29 -- * Creating a Request
29 -- * Creating a Request
30 , uRLChannelsList'
30 , uRLChannelsList'
@@ -47,7 +47,7 @@ import Network.Google.Prelude
47
47
48-- | A resource alias for @AdsenseURLChannelsList@ which the
48-- | A resource alias for @AdsenseURLChannelsList@ which the
49-- 'URLChannelsList'' request conforms to.
49-- 'URLChannelsList'' request conforms to.
50−type UrlChannelsListResource =
50+type URLChannelsListResource =
51 "adclients" :>
51 "adclients" :>
52 Capture "adClientId" Text :>
52 Capture "adClientId" Text :>
53 "urlchannels" :>
53 "urlchannels" :>
@@ -188,6 +188,6 @@ instance GoogleRequest URLChannelsList' where
188 (Just AltJSON)
188 (Just AltJSON)
189 where go
189 where go
190 = clientWithRoute
190 = clientWithRoute
191− (Proxy :: Proxy UrlChannelsListResource)
191+ (Proxy :: Proxy URLChannelsListResource)
192 r
192 r
193 u
193 u
gogol-affiliates/gen/Network/Google/Affiliates.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets you have programmatic access to your Google Affiliate Network data.
15+-- | Lets you have programmatic access to your Google Affiliate Network data.
16--
16--
17-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference>
17-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference>
18module Network.Google.Affiliates
18module Network.Google.Affiliates
gogol-affiliates/gen/Network/Google/Affiliates/Types/Sum.hs+12−12
@@ -20,10 +20,10 @@ import Network.Google.Prelude
20-- | The role of the requester. Valid values: \'advertisers\' or
20-- | The role of the requester. Valid values: \'advertisers\' or
21-- \'publishers\'.
21-- \'publishers\'.
22data GanPublishersGetRole
22data GanPublishersGetRole
23− = Advertisers
23+ = GPGRAdvertisers
24 -- ^ @advertisers@
24 -- ^ @advertisers@
25 -- The requester is requesting as an advertiser.
25 -- The requester is requesting as an advertiser.
26− | Publishers
26+ | GPGRPublishers
27 -- ^ @publishers@
27 -- ^ @publishers@
28 -- The requester is requesting as a publisher.
28 -- The requester is requesting as a publisher.
29 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
29 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
@@ -32,14 +32,14 @@ instance Hashable GanPublishersGetRole
32
32
33instance FromText GanPublishersGetRole where
33instance FromText GanPublishersGetRole where
34 fromText = \case
34 fromText = \case
35− "advertisers" -> Just Advertisers
35+ "advertisers" -> Just GPGRAdvertisers
36− "publishers" -> Just Publishers
36+ "publishers" -> Just GPGRPublishers
37 _ -> Nothing
37 _ -> Nothing
38
38
39instance ToText GanPublishersGetRole where
39instance ToText GanPublishersGetRole where
40 toText = \case
40 toText = \case
41− Advertisers -> "advertisers"
41+ GPGRAdvertisers -> "advertisers"
42− Publishers -> "publishers"
42+ GPGRPublishers -> "publishers"
43
43
44instance FromJSON GanPublishersGetRole where
44instance FromJSON GanPublishersGetRole where
45 parseJSON = parseJSONText "GanPublishersGetRole"
45 parseJSON = parseJSONText "GanPublishersGetRole"
@@ -343,9 +343,9 @@ instance ToJSON GanPublishersListRole where
343
343
344-- | The role of the author of the link.
344-- | The role of the author of the link.
345data GanLinksListAuthorship
345data GanLinksListAuthorship
346− = Advertiser
346+ = GLLAAdvertiser
347 -- ^ @advertiser@
347 -- ^ @advertiser@
348− | Publisher
348+ | GLLAPublisher
349 -- ^ @publisher@
349 -- ^ @publisher@
350 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
350 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
351
351
@@ -353,14 +353,14 @@ instance Hashable GanLinksListAuthorship
353
353
354instance FromText GanLinksListAuthorship where
354instance FromText GanLinksListAuthorship where
355 fromText = \case
355 fromText = \case
356− "advertiser" -> Just Advertiser
356+ "advertiser" -> Just GLLAAdvertiser
357− "publisher" -> Just Publisher
357+ "publisher" -> Just GLLAPublisher
358 _ -> Nothing
358 _ -> Nothing
359
359
360instance ToText GanLinksListAuthorship where
360instance ToText GanLinksListAuthorship where
361 toText = \case
361 toText = \case
362− Advertiser -> "advertiser"
362+ GLLAAdvertiser -> "advertiser"
363− Publisher -> "publisher"
363+ GLLAPublisher -> "publisher"
364
364
365instance FromJSON GanLinksListAuthorship where
365instance FromJSON GanLinksListAuthorship where
366 parseJSON = parseJSONText "GanLinksListAuthorship"
366 parseJSON = parseJSONText "GanLinksListAuthorship"
gogol-analytics/gen/Network/Google/Analytics.hs+39−39
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | View and manage your Google Analytics data
15+-- | View and manage your Google Analytics data
16--
16--
17-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference>
17-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference>
18module Network.Google.Analytics
18module Network.Google.Analytics
@@ -188,14 +188,14 @@ module Network.Google.Analytics
188 -- ** AnalyticsManagementSegmentsList
188 -- ** AnalyticsManagementSegmentsList
189 , module Network.Google.Resource.Analytics.Management.Segments.List
189 , module Network.Google.Resource.Analytics.Management.Segments.List
190
190
191− -- ** AnalyticsManagementUnsampledReportsGet
191+ -- ** AnalyticsManagementUnSampledReportsGet
192− , module Network.Google.Resource.Analytics.Management.UnsampledReports.Get
192+ , module Network.Google.Resource.Analytics.Management.UnSampledReports.Get
193
193
194− -- ** AnalyticsManagementUnsampledReportsInsert
194+ -- ** AnalyticsManagementUnSampledReportsInsert
195− , module Network.Google.Resource.Analytics.Management.UnsampledReports.Insert
195+ , module Network.Google.Resource.Analytics.Management.UnSampledReports.Insert
196
196
197− -- ** AnalyticsManagementUnsampledReportsList
197+ -- ** AnalyticsManagementUnSampledReportsList
198− , module Network.Google.Resource.Analytics.Management.UnsampledReports.List
198+ , module Network.Google.Resource.Analytics.Management.UnSampledReports.List
199
199
200 -- ** AnalyticsManagementUploadsDeleteUploadData
200 -- ** AnalyticsManagementUploadsDeleteUploadData
201 , module Network.Google.Resource.Analytics.Management.Uploads.DeleteUploadData
201 , module Network.Google.Resource.Analytics.Management.Uploads.DeleteUploadData
@@ -269,17 +269,17 @@ module Network.Google.Analytics
269 , gdchName
269 , gdchName
270 , gdchDataType
270 , gdchDataType
271
271
272− -- ** UnsampledReports
272+ -- ** UnSampledReports
273− , UnsampledReports
273+ , UnSampledReports
274− , unsampledReports
274+ , unSampledReports
275− , urNextLink
275+ , usrNextLink
276− , urItemsPerPage
276+ , usrItemsPerPage
277− , urKind
277+ , usrKind
278− , urUsername
278+ , usrUsername
279− , urItems
279+ , usrItems
280− , urTotalResults
280+ , usrTotalResults
281− , urStartIndex
281+ , usrStartIndex
282− , urPreviousLink
282+ , usrPreviousLink
283
283
284 -- ** GaDataQuery
284 -- ** GaDataQuery
285 , GaDataQuery
285 , GaDataQuery
@@ -296,9 +296,9 @@ module Network.Google.Analytics
296 , gdqSegment
296 , gdqSegment
297 , gdqStartDate
297 , gdqStartDate
298
298
299− -- ** UnsampledReport
299+ -- ** UnSampledReport
300− , UnsampledReport
300+ , UnSampledReport
301− , unsampledReport
301+ , unSampledReport
302 , uDownloadType
302 , uDownloadType
303 , uStatus
303 , uStatus
304 , uMetrics
304 , uMetrics
@@ -408,10 +408,10 @@ module Network.Google.Analytics
408 -- ** AnalyticsDataMcfGetSamplingLevel
408 -- ** AnalyticsDataMcfGetSamplingLevel
409 , AnalyticsDataMcfGetSamplingLevel (..)
409 , AnalyticsDataMcfGetSamplingLevel (..)
410
410
411− -- ** UnsampledReportDriveDownloadDetails
411+ -- ** UnSampledReportDriveDownloadDetails
412− , UnsampledReportDriveDownloadDetails
412+ , UnSampledReportDriveDownloadDetails
413− , unsampledReportDriveDownloadDetails
413+ , unSampledReportDriveDownloadDetails
414− , urdddDocumentId
414+ , usrdddDocumentId
415
415
416 -- ** WebPropertyChildLink
416 -- ** WebPropertyChildLink
417 , WebPropertyChildLink
417 , WebPropertyChildLink
@@ -505,9 +505,9 @@ module Network.Google.Analytics
505 -- ** UserRef
505 -- ** UserRef
506 , UserRef
506 , UserRef
507 , userRef
507 , userRef
508− , useEmail
508+ , urEmail
509− , useKind
509+ , urKind
510− , useId
510+ , urId
511
511
512 -- ** ProfilePermissions
512 -- ** ProfilePermissions
513 , ProfilePermissions
513 , ProfilePermissions
@@ -1210,11 +1210,11 @@ module Network.Google.Analytics
1210 , McfDataTotalsForAllResults
1210 , McfDataTotalsForAllResults
1211 , mcfDataTotalsForAllResults
1211 , mcfDataTotalsForAllResults
1212
1212
1213− -- ** UnsampledReportCloudStorageDownloadDetails
1213+ -- ** UnSampledReportCloudStorageDownloadDetails
1214− , UnsampledReportCloudStorageDownloadDetails
1214+ , UnSampledReportCloudStorageDownloadDetails
1215− , unsampledReportCloudStorageDownloadDetails
1215+ , unSampledReportCloudStorageDownloadDetails
1216− , urcsddObjectId
1216+ , usrcsddObjectId
1217− , urcsddBucketId
1217+ , usrcsddBucketId
1218
1218
1219 -- ** GoalURLDestinationDetailsSteps
1219 -- ** GoalURLDestinationDetailsSteps
1220 , GoalURLDestinationDetailsSteps
1220 , GoalURLDestinationDetailsSteps
@@ -1301,9 +1301,9 @@ import Network.Google.Resource.Analytics.Management.ProfileUserLinks.I
1301import Network.Google.Resource.Analytics.Management.ProfileUserLinks.List
1301import Network.Google.Resource.Analytics.Management.ProfileUserLinks.List
1302import Network.Google.Resource.Analytics.Management.ProfileUserLinks.Update
1302import Network.Google.Resource.Analytics.Management.ProfileUserLinks.Update
1303import Network.Google.Resource.Analytics.Management.Segments.List
1303import Network.Google.Resource.Analytics.Management.Segments.List
1304−import Network.Google.Resource.Analytics.Management.UnsampledReports.Get
1304+import Network.Google.Resource.Analytics.Management.UnSampledReports.Get
1305−import Network.Google.Resource.Analytics.Management.UnsampledReports.Insert
1305+import Network.Google.Resource.Analytics.Management.UnSampledReports.Insert
1306−import Network.Google.Resource.Analytics.Management.UnsampledReports.List
1306+import Network.Google.Resource.Analytics.Management.UnSampledReports.List
1307import Network.Google.Resource.Analytics.Management.Uploads.DeleteUploadData
1307import Network.Google.Resource.Analytics.Management.Uploads.DeleteUploadData
1308import Network.Google.Resource.Analytics.Management.Uploads.Get
1308import Network.Google.Resource.Analytics.Management.Uploads.Get
1309import Network.Google.Resource.Analytics.Management.Uploads.List
1309import Network.Google.Resource.Analytics.Management.Uploads.List
@@ -1339,9 +1339,9 @@ type AnalyticsAPI =
1339 :<|> ManagementWebPropertyAdWordsLinksGetResource
1339 :<|> ManagementWebPropertyAdWordsLinksGetResource
1340 :<|> ManagementWebPropertyAdWordsLinksDeleteResource
1340 :<|> ManagementWebPropertyAdWordsLinksDeleteResource
1341 :<|> ManagementWebPropertyAdWordsLinksUpdateResource
1341 :<|> ManagementWebPropertyAdWordsLinksUpdateResource
1342− :<|> ManagementUnsampledReportsInsertResource
1342+ :<|> ManagementUnSampledReportsInsertResource
1343− :<|> ManagementUnsampledReportsListResource
1343+ :<|> ManagementUnSampledReportsListResource
1344− :<|> ManagementUnsampledReportsGetResource
1344+ :<|> ManagementUnSampledReportsGetResource
1345 :<|> ManagementAccountsListResource
1345 :<|> ManagementAccountsListResource
1346 :<|> ManagementExperimentsInsertResource
1346 :<|> ManagementExperimentsInsertResource
1347 :<|> ManagementExperimentsListResource
1347 :<|> ManagementExperimentsListResource
gogol-analytics/gen/Network/Google/Analytics/Types.hs+26−26
@@ -24,17 +24,17 @@ module Network.Google.Analytics.Types
24 , gdchName
24 , gdchName
25 , gdchDataType
25 , gdchDataType
26
26
27− -- * UnsampledReports
27+ -- * UnSampledReports
28− , UnsampledReports
28+ , UnSampledReports
29− , unsampledReports
29+ , unSampledReports
30− , urNextLink
30+ , usrNextLink
31− , urItemsPerPage
31+ , usrItemsPerPage
32− , urKind
32+ , usrKind
33− , urUsername
33+ , usrUsername
34− , urItems
34+ , usrItems
35− , urTotalResults
35+ , usrTotalResults
36− , urStartIndex
36+ , usrStartIndex
37− , urPreviousLink
37+ , usrPreviousLink
38
38
39 -- * GaDataQuery
39 -- * GaDataQuery
40 , GaDataQuery
40 , GaDataQuery
@@ -51,9 +51,9 @@ module Network.Google.Analytics.Types
51 , gdqSegment
51 , gdqSegment
52 , gdqStartDate
52 , gdqStartDate
53
53
54− -- * UnsampledReport
54+ -- * UnSampledReport
55− , UnsampledReport
55+ , UnSampledReport
56− , unsampledReport
56+ , unSampledReport
57 , uDownloadType
57 , uDownloadType
58 , uStatus
58 , uStatus
59 , uMetrics
59 , uMetrics
@@ -163,10 +163,10 @@ module Network.Google.Analytics.Types
163 -- * AnalyticsDataMcfGetSamplingLevel
163 -- * AnalyticsDataMcfGetSamplingLevel
164 , AnalyticsDataMcfGetSamplingLevel (..)
164 , AnalyticsDataMcfGetSamplingLevel (..)
165
165
166− -- * UnsampledReportDriveDownloadDetails
166+ -- * UnSampledReportDriveDownloadDetails
167− , UnsampledReportDriveDownloadDetails
167+ , UnSampledReportDriveDownloadDetails
168− , unsampledReportDriveDownloadDetails
168+ , unSampledReportDriveDownloadDetails
169− , urdddDocumentId
169+ , usrdddDocumentId
170
170
171 -- * WebPropertyChildLink
171 -- * WebPropertyChildLink
172 , WebPropertyChildLink
172 , WebPropertyChildLink
@@ -260,9 +260,9 @@ module Network.Google.Analytics.Types
260 -- * UserRef
260 -- * UserRef
261 , UserRef
261 , UserRef
262 , userRef
262 , userRef
263− , useEmail
263+ , urEmail
264− , useKind
264+ , urKind
265− , useId
265+ , urId
266
266
267 -- * ProfilePermissions
267 -- * ProfilePermissions
268 , ProfilePermissions
268 , ProfilePermissions
@@ -965,11 +965,11 @@ module Network.Google.Analytics.Types
965 , McfDataTotalsForAllResults
965 , McfDataTotalsForAllResults
966 , mcfDataTotalsForAllResults
966 , mcfDataTotalsForAllResults
967
967
968− -- * UnsampledReportCloudStorageDownloadDetails
968+ -- * UnSampledReportCloudStorageDownloadDetails
969− , UnsampledReportCloudStorageDownloadDetails
969+ , UnSampledReportCloudStorageDownloadDetails
970− , unsampledReportCloudStorageDownloadDetails
970+ , unSampledReportCloudStorageDownloadDetails
971− , urcsddObjectId
971+ , usrcsddObjectId
972− , urcsddBucketId
972+ , usrcsddBucketId
973
973
974 -- * GoalURLDestinationDetailsSteps
974 -- * GoalURLDestinationDetailsSteps
975 , GoalURLDestinationDetailsSteps
975 , GoalURLDestinationDetailsSteps
gogol-analytics/gen/Network/Google/Analytics/Types/Product.hs+170−168
@@ -82,104 +82,106 @@ instance ToJSON GaDataColumnHeaders where
82-- unsampled reports. Each resource in the unsampled report collection
82-- unsampled reports. Each resource in the unsampled report collection
83-- corresponds to a single Analytics unsampled report.
83-- corresponds to a single Analytics unsampled report.
84--
84--
85−-- /See:/ 'unsampledReports' smart constructor.
85+-- /See:/ 'unSampledReports' smart constructor.
86−data UnsampledReports = UnsampledReports
86+data UnSampledReports = UnSampledReports
87− { _urNextLink :: !(Maybe Text)
87+ { _usrNextLink :: !(Maybe Text)
88− , _urItemsPerPage :: !(Maybe Int32)
88+ , _usrItemsPerPage :: !(Maybe Int32)
89− , _urKind :: !Text
89+ , _usrKind :: !Text
90− , _urUsername :: !(Maybe Text)
90+ , _usrUsername :: !(Maybe Text)
91− , _urItems :: !(Maybe [UnsampledReport])
91+ , _usrItems :: !(Maybe [UnSampledReport])
92− , _urTotalResults :: !(Maybe Int32)
92+ , _usrTotalResults :: !(Maybe Int32)
93− , _urStartIndex :: !(Maybe Int32)
93+ , _usrStartIndex :: !(Maybe Int32)
94− , _urPreviousLink :: !(Maybe Text)
94+ , _usrPreviousLink :: !(Maybe Text)
95 } deriving (Eq,Read,Show,Data,Typeable,Generic)
95 } deriving (Eq,Read,Show,Data,Typeable,Generic)
96
96
97−-- | Creates a value of 'UnsampledReports' with the minimum fields required to make a request.
97+-- | Creates a value of 'UnSampledReports' with the minimum fields required to make a request.
98--
98--
99-- Use one of the following lenses to modify other fields as desired:
99-- Use one of the following lenses to modify other fields as desired:
100--
100--
101−-- * 'urNextLink'
101+-- * 'usrNextLink'
102--
102--
103−-- * 'urItemsPerPage'
103+-- * 'usrItemsPerPage'
104--
104--
105−-- * 'urKind'
105+-- * 'usrKind'
106--
106--
107−-- * 'urUsername'
107+-- * 'usrUsername'
108--
108--
109−-- * 'urItems'
109+-- * 'usrItems'
110--
110--
111−-- * 'urTotalResults'
111+-- * 'usrTotalResults'
112--
112--
113−-- * 'urStartIndex'
113+-- * 'usrStartIndex'
114--
114--
115−-- * 'urPreviousLink'
115+-- * 'usrPreviousLink'
116−unsampledReports
116+unSampledReports
117− :: UnsampledReports
117+ :: UnSampledReports
118−unsampledReports =
118+unSampledReports =
119− UnsampledReports
119+ UnSampledReports
120− { _urNextLink = Nothing
120+ { _usrNextLink = Nothing
121− , _urItemsPerPage = Nothing
121+ , _usrItemsPerPage = Nothing
122− , _urKind = "analytics#unsampledReports"
122+ , _usrKind = "analytics#unsampledReports"
123− , _urUsername = Nothing
123+ , _usrUsername = Nothing
124− , _urItems = Nothing
124+ , _usrItems = Nothing
125− , _urTotalResults = Nothing
125+ , _usrTotalResults = Nothing
126− , _urStartIndex = Nothing
126+ , _usrStartIndex = Nothing
127− , _urPreviousLink = Nothing
127+ , _usrPreviousLink = Nothing
128 }
128 }
129
129
130-- | Link to next page for this unsampled report collection.
130-- | Link to next page for this unsampled report collection.
131−urNextLink :: Lens' UnsampledReports (Maybe Text)
131+usrNextLink :: Lens' UnSampledReports (Maybe Text)
132−urNextLink
132+usrNextLink
133− = lens _urNextLink (\ s a -> s{_urNextLink = a})
133+ = lens _usrNextLink (\ s a -> s{_usrNextLink = a})
134
134
135-- | The maximum number of resources the response can contain, regardless of
135-- | The maximum number of resources the response can contain, regardless of
136-- the actual number of resources returned. Its value ranges from 1 to 1000
136-- the actual number of resources returned. Its value ranges from 1 to 1000
137-- with a value of 1000 by default, or otherwise specified by the
137-- with a value of 1000 by default, or otherwise specified by the
138-- max-results query parameter.
138-- max-results query parameter.
139−urItemsPerPage :: Lens' UnsampledReports (Maybe Int32)
139+usrItemsPerPage :: Lens' UnSampledReports (Maybe Int32)
140−urItemsPerPage
140+usrItemsPerPage
141− = lens _urItemsPerPage
141+ = lens _usrItemsPerPage
142− (\ s a -> s{_urItemsPerPage = a})
142+ (\ s a -> s{_usrItemsPerPage = a})
143
143
144-- | Collection type.
144-- | Collection type.
145−urKind :: Lens' UnsampledReports Text
145+usrKind :: Lens' UnSampledReports Text
146−urKind = lens _urKind (\ s a -> s{_urKind = a})
146+usrKind = lens _usrKind (\ s a -> s{_usrKind = a})
147
147
148-- | Email ID of the authenticated user
148-- | Email ID of the authenticated user
149−urUsername :: Lens' UnsampledReports (Maybe Text)
149+usrUsername :: Lens' UnSampledReports (Maybe Text)
150−urUsername
150+usrUsername
151− = lens _urUsername (\ s a -> s{_urUsername = a})
151+ = lens _usrUsername (\ s a -> s{_usrUsername = a})
152
152
153-- | A list of unsampled reports.
153-- | A list of unsampled reports.
154−urItems :: Lens' UnsampledReports [UnsampledReport]
154+usrItems :: Lens' UnSampledReports [UnSampledReport]
155−urItems
155+usrItems
156+ = lens _usrItems (\ s a -> s{_usrItems = a}) .
156− = lens _urItems (\ s a -> s{_urItems = a}) . _Default
157+ _Default
157 . _Coerce
158 . _Coerce
158
159
159-- | The total number of results for the query, regardless of the number of
160-- | The total number of results for the query, regardless of the number of
160-- resources in the result.
161-- resources in the result.
161−urTotalResults :: Lens' UnsampledReports (Maybe Int32)
162+usrTotalResults :: Lens' UnSampledReports (Maybe Int32)
162−urTotalResults
163+usrTotalResults
163− = lens _urTotalResults
164+ = lens _usrTotalResults
164− (\ s a -> s{_urTotalResults = a})
165+ (\ s a -> s{_usrTotalResults = a})
165
166
166-- | The starting index of the resources, which is 1 by default or otherwise
167-- | The starting index of the resources, which is 1 by default or otherwise
167-- specified by the start-index query parameter.
168-- specified by the start-index query parameter.
168−urStartIndex :: Lens' UnsampledReports (Maybe Int32)
169+usrStartIndex :: Lens' UnSampledReports (Maybe Int32)
169−urStartIndex
170+usrStartIndex
170− = lens _urStartIndex (\ s a -> s{_urStartIndex = a})
171+ = lens _usrStartIndex
172+ (\ s a -> s{_usrStartIndex = a})
171
173
172-- | Link to previous page for this unsampled report collection.
174-- | Link to previous page for this unsampled report collection.
173−urPreviousLink :: Lens' UnsampledReports (Maybe Text)
175+usrPreviousLink :: Lens' UnSampledReports (Maybe Text)
174−urPreviousLink
176+usrPreviousLink
175− = lens _urPreviousLink
177+ = lens _usrPreviousLink
176− (\ s a -> s{_urPreviousLink = a})
178+ (\ s a -> s{_usrPreviousLink = a})
177
179
178−instance FromJSON UnsampledReports where
180+instance FromJSON UnSampledReports where
179 parseJSON
181 parseJSON
180− = withObject "UnsampledReports"
182+ = withObject "UnSampledReports"
181 (\ o ->
183 (\ o ->
182− UnsampledReports <$>
184+ UnSampledReports <$>
183 (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>
185 (o .:? "nextLink") <*> (o .:? "itemsPerPage") <*>
184 (o .:? "kind" .!= "analytics#unsampledReports")
186 (o .:? "kind" .!= "analytics#unsampledReports")
185 <*> (o .:? "username")
187 <*> (o .:? "username")
@@ -188,18 +190,18 @@ instance FromJSON UnsampledReports where
188 <*> (o .:? "startIndex")
190 <*> (o .:? "startIndex")
189 <*> (o .:? "previousLink"))
191 <*> (o .:? "previousLink"))
190
192
191−instance ToJSON UnsampledReports where
193+instance ToJSON UnSampledReports where
192− toJSON UnsampledReports{..}
194+ toJSON UnSampledReports{..}
193 = object
195 = object
194 (catMaybes
196 (catMaybes
195− [("nextLink" .=) <$> _urNextLink,
197+ [("nextLink" .=) <$> _usrNextLink,
196− ("itemsPerPage" .=) <$> _urItemsPerPage,
198+ ("itemsPerPage" .=) <$> _usrItemsPerPage,
197− Just ("kind" .= _urKind),
199+ Just ("kind" .= _usrKind),
198− ("username" .=) <$> _urUsername,
200+ ("username" .=) <$> _usrUsername,
199− ("items" .=) <$> _urItems,
201+ ("items" .=) <$> _usrItems,
200− ("totalResults" .=) <$> _urTotalResults,
202+ ("totalResults" .=) <$> _usrTotalResults,
201− ("startIndex" .=) <$> _urStartIndex,
203+ ("startIndex" .=) <$> _usrStartIndex,
202− ("previousLink" .=) <$> _urPreviousLink])
204+ ("previousLink" .=) <$> _usrPreviousLink])
203
205
204-- | Analytics data request query parameters.
206-- | Analytics data request query parameters.
205--
207--
@@ -356,12 +358,12 @@ instance ToJSON GaDataQuery where
356
358
357-- | JSON template for Analytics unsampled report resource.
359-- | JSON template for Analytics unsampled report resource.
358--
360--
359−-- /See:/ 'unsampledReport' smart constructor.
361+-- /See:/ 'unSampledReport' smart constructor.
360−data UnsampledReport = UnsampledReport
362+data UnSampledReport = UnSampledReport
361 { _uDownloadType :: !(Maybe Text)
363 { _uDownloadType :: !(Maybe Text)
362 , _uStatus :: !(Maybe Text)
364 , _uStatus :: !(Maybe Text)
363 , _uMetrics :: !(Maybe Text)
365 , _uMetrics :: !(Maybe Text)
364− , _uDriveDownloadDetails :: !(Maybe UnsampledReportDriveDownloadDetails)
366+ , _uDriveDownloadDetails :: !(Maybe UnSampledReportDriveDownloadDetails)
365 , _uWebPropertyId :: !(Maybe Text)
367 , _uWebPropertyId :: !(Maybe Text)
366 , _uKind :: !Text
368 , _uKind :: !Text
367 , _uCreated :: !(Maybe UTCTime)
369 , _uCreated :: !(Maybe UTCTime)
@@ -375,11 +377,11 @@ data UnsampledReport = UnsampledReport
375 , _uTitle :: !(Maybe Text)
377 , _uTitle :: !(Maybe Text)
376 , _uDimensions :: !(Maybe Text)
378 , _uDimensions :: !(Maybe Text)
377 , _uSegment :: !(Maybe Text)
379 , _uSegment :: !(Maybe Text)
378− , _uCloudStorageDownloadDetails :: !(Maybe UnsampledReportCloudStorageDownloadDetails)
380+ , _uCloudStorageDownloadDetails :: !(Maybe UnSampledReportCloudStorageDownloadDetails)
379 , _uStartDate :: !(Maybe Text)
381 , _uStartDate :: !(Maybe Text)
380 } deriving (Eq,Read,Show,Data,Typeable,Generic)
382 } deriving (Eq,Read,Show,Data,Typeable,Generic)
381
383
382−-- | Creates a value of 'UnsampledReport' with the minimum fields required to make a request.
384+-- | Creates a value of 'UnSampledReport' with the minimum fields required to make a request.
383--
385--
384-- Use one of the following lenses to modify other fields as desired:
386-- Use one of the following lenses to modify other fields as desired:
385--
387--
@@ -420,10 +422,10 @@ data UnsampledReport = UnsampledReport
420-- * 'uCloudStorageDownloadDetails'
422-- * 'uCloudStorageDownloadDetails'
421--
423--
422-- * 'uStartDate'
424-- * 'uStartDate'
423−unsampledReport
425+unSampledReport
424− :: UnsampledReport
426+ :: UnSampledReport
425−unsampledReport =
427+unSampledReport =
426− UnsampledReport
428+ UnSampledReport
427 { _uDownloadType = Nothing
429 { _uDownloadType = Nothing
428 , _uStatus = Nothing
430 , _uStatus = Nothing
429 , _uMetrics = Nothing
431 , _uMetrics = Nothing
@@ -446,101 +448,101 @@ unsampledReport =
446 }
448 }
447
449
448-- | The type of download you need to use for the report data file.
450-- | The type of download you need to use for the report data file.
449−uDownloadType :: Lens' UnsampledReport (Maybe Text)
451+uDownloadType :: Lens' UnSampledReport (Maybe Text)
450uDownloadType
452uDownloadType
451 = lens _uDownloadType
453 = lens _uDownloadType
452 (\ s a -> s{_uDownloadType = a})
454 (\ s a -> s{_uDownloadType = a})
453
455
454-- | Status of this unsampled report. Possible values are PENDING, COMPLETED,
456-- | Status of this unsampled report. Possible values are PENDING, COMPLETED,
455-- or FAILED.
457-- or FAILED.
456−uStatus :: Lens' UnsampledReport (Maybe Text)
458+uStatus :: Lens' UnSampledReport (Maybe Text)
457uStatus = lens _uStatus (\ s a -> s{_uStatus = a})
459uStatus = lens _uStatus (\ s a -> s{_uStatus = a})
458
460
459-- | The metrics for the unsampled report.
461-- | The metrics for the unsampled report.
460−uMetrics :: Lens' UnsampledReport (Maybe Text)
462+uMetrics :: Lens' UnSampledReport (Maybe Text)
461uMetrics = lens _uMetrics (\ s a -> s{_uMetrics = a})
463uMetrics = lens _uMetrics (\ s a -> s{_uMetrics = a})
462
464
463-- | Download details for a file stored in Google Drive.
465-- | Download details for a file stored in Google Drive.
464−uDriveDownloadDetails :: Lens' UnsampledReport (Maybe UnsampledReportDriveDownloadDetails)
466+uDriveDownloadDetails :: Lens' UnSampledReport (Maybe UnSampledReportDriveDownloadDetails)
465uDriveDownloadDetails
467uDriveDownloadDetails
466 = lens _uDriveDownloadDetails
468 = lens _uDriveDownloadDetails
467 (\ s a -> s{_uDriveDownloadDetails = a})
469 (\ s a -> s{_uDriveDownloadDetails = a})
468
470
469-- | Web property ID to which this unsampled report belongs. The web property
471-- | Web property ID to which this unsampled report belongs. The web property
470-- ID is of the form UA-XXXXX-YY.
472-- ID is of the form UA-XXXXX-YY.
471−uWebPropertyId :: Lens' UnsampledReport (Maybe Text)
473+uWebPropertyId :: Lens' UnSampledReport (Maybe Text)
472uWebPropertyId
474uWebPropertyId
473 = lens _uWebPropertyId
475 = lens _uWebPropertyId
474 (\ s a -> s{_uWebPropertyId = a})
476 (\ s a -> s{_uWebPropertyId = a})
475
477
476-- | Resource type for an Analytics unsampled report.
478-- | Resource type for an Analytics unsampled report.
477−uKind :: Lens' UnsampledReport Text
479+uKind :: Lens' UnSampledReport Text
478uKind = lens _uKind (\ s a -> s{_uKind = a})
480uKind = lens _uKind (\ s a -> s{_uKind = a})
479
481
480-- | Time this unsampled report was created.
482-- | Time this unsampled report was created.
481−uCreated :: Lens' UnsampledReport (Maybe UTCTime)
483+uCreated :: Lens' UnSampledReport (Maybe UTCTime)
482uCreated = lens _uCreated (\ s a -> s{_uCreated = a})
484uCreated = lens _uCreated (\ s a -> s{_uCreated = a})
483
485
484-- | The filters for the unsampled report.
486-- | The filters for the unsampled report.
485−uFilters :: Lens' UnsampledReport (Maybe Text)
487+uFilters :: Lens' UnSampledReport (Maybe Text)
486uFilters = lens _uFilters (\ s a -> s{_uFilters = a})
488uFilters = lens _uFilters (\ s a -> s{_uFilters = a})
487
489
488-- | View (Profile) ID to which this unsampled report belongs.
490-- | View (Profile) ID to which this unsampled report belongs.
489−uProfileId :: Lens' UnsampledReport (Maybe Text)
491+uProfileId :: Lens' UnSampledReport (Maybe Text)
490uProfileId
492uProfileId
491 = lens _uProfileId (\ s a -> s{_uProfileId = a})
493 = lens _uProfileId (\ s a -> s{_uProfileId = a})
492
494
493-- | The end date for the unsampled report.
495-- | The end date for the unsampled report.
494−uEndDate :: Lens' UnsampledReport (Maybe Text)
496+uEndDate :: Lens' UnSampledReport (Maybe Text)
495uEndDate = lens _uEndDate (\ s a -> s{_uEndDate = a})
497uEndDate = lens _uEndDate (\ s a -> s{_uEndDate = a})
496
498
497-- | Link for this unsampled report.
499-- | Link for this unsampled report.
498−uSelfLink :: Lens' UnsampledReport (Maybe Text)
500+uSelfLink :: Lens' UnSampledReport (Maybe Text)
499uSelfLink
501uSelfLink
500 = lens _uSelfLink (\ s a -> s{_uSelfLink = a})
502 = lens _uSelfLink (\ s a -> s{_uSelfLink = a})
501
503
502-- | Account ID to which this unsampled report belongs.
504-- | Account ID to which this unsampled report belongs.
503−uAccountId :: Lens' UnsampledReport (Maybe Text)
505+uAccountId :: Lens' UnSampledReport (Maybe Text)
504uAccountId
506uAccountId
505 = lens _uAccountId (\ s a -> s{_uAccountId = a})
507 = lens _uAccountId (\ s a -> s{_uAccountId = a})
506
508
507-- | Unsampled report ID.
509-- | Unsampled report ID.
508−uId :: Lens' UnsampledReport (Maybe Text)
510+uId :: Lens' UnSampledReport (Maybe Text)
509uId = lens _uId (\ s a -> s{_uId = a})
511uId = lens _uId (\ s a -> s{_uId = a})
510
512
511-- | Time this unsampled report was last modified.
513-- | Time this unsampled report was last modified.
512−uUpdated :: Lens' UnsampledReport (Maybe UTCTime)
514+uUpdated :: Lens' UnSampledReport (Maybe UTCTime)
513uUpdated = lens _uUpdated (\ s a -> s{_uUpdated = a})
515uUpdated = lens _uUpdated (\ s a -> s{_uUpdated = a})
514
516
515-- | Title of the unsampled report.
517-- | Title of the unsampled report.
516−uTitle :: Lens' UnsampledReport (Maybe Text)
518+uTitle :: Lens' UnSampledReport (Maybe Text)
517uTitle = lens _uTitle (\ s a -> s{_uTitle = a})
519uTitle = lens _uTitle (\ s a -> s{_uTitle = a})
518
520
519-- | The dimensions for the unsampled report.
521-- | The dimensions for the unsampled report.
520−uDimensions :: Lens' UnsampledReport (Maybe Text)
522+uDimensions :: Lens' UnSampledReport (Maybe Text)
521uDimensions
523uDimensions
522 = lens _uDimensions (\ s a -> s{_uDimensions = a})
524 = lens _uDimensions (\ s a -> s{_uDimensions = a})
523
525
524-- | The segment for the unsampled report.
526-- | The segment for the unsampled report.
525−uSegment :: Lens' UnsampledReport (Maybe Text)
527+uSegment :: Lens' UnSampledReport (Maybe Text)
526uSegment = lens _uSegment (\ s a -> s{_uSegment = a})
528uSegment = lens _uSegment (\ s a -> s{_uSegment = a})
527
529
528-- | Download details for a file stored in Google Cloud Storage.
530-- | Download details for a file stored in Google Cloud Storage.
529−uCloudStorageDownloadDetails :: Lens' UnsampledReport (Maybe UnsampledReportCloudStorageDownloadDetails)
531+uCloudStorageDownloadDetails :: Lens' UnSampledReport (Maybe UnSampledReportCloudStorageDownloadDetails)
530uCloudStorageDownloadDetails
532uCloudStorageDownloadDetails
531 = lens _uCloudStorageDownloadDetails
533 = lens _uCloudStorageDownloadDetails
532 (\ s a -> s{_uCloudStorageDownloadDetails = a})
534 (\ s a -> s{_uCloudStorageDownloadDetails = a})
533
535
534-- | The start date for the unsampled report.
536-- | The start date for the unsampled report.
535−uStartDate :: Lens' UnsampledReport (Maybe Text)
537+uStartDate :: Lens' UnSampledReport (Maybe Text)
536uStartDate
538uStartDate
537 = lens _uStartDate (\ s a -> s{_uStartDate = a})
539 = lens _uStartDate (\ s a -> s{_uStartDate = a})
538
540
539−instance FromJSON UnsampledReport where
541+instance FromJSON UnSampledReport where
540 parseJSON
542 parseJSON
541− = withObject "UnsampledReport"
543+ = withObject "UnSampledReport"
542 (\ o ->
544 (\ o ->
543− UnsampledReport <$>
545+ UnSampledReport <$>
544 (o .:? "downloadType") <*> (o .:? "status") <*>
546 (o .:? "downloadType") <*> (o .:? "status") <*>
545 (o .:? "metrics")
547 (o .:? "metrics")
546 <*> (o .:? "driveDownloadDetails")
548 <*> (o .:? "driveDownloadDetails")
@@ -560,8 +562,8 @@ instance FromJSON UnsampledReport where
560 <*> (o .:? "cloudStorageDownloadDetails")
562 <*> (o .:? "cloudStorageDownloadDetails")
561 <*> (o .:? "start-date"))
563 <*> (o .:? "start-date"))
562
564
563−instance ToJSON UnsampledReport where
565+instance ToJSON UnSampledReport where
564− toJSON UnsampledReport{..}
566+ toJSON UnSampledReport{..}
565 = object
567 = object
566 (catMaybes
568 (catMaybes
567 [("downloadType" .=) <$> _uDownloadType,
569 [("downloadType" .=) <$> _uDownloadType,
@@ -1420,42 +1422,42 @@ instance ToJSON ExperimentParentLink where
1420
1422
1421-- | Download details for a file stored in Google Drive.
1423-- | Download details for a file stored in Google Drive.
1422--
1424--
1423−-- /See:/ 'unsampledReportDriveDownloadDetails' smart constructor.
1425+-- /See:/ 'unSampledReportDriveDownloadDetails' smart constructor.
1424−newtype UnsampledReportDriveDownloadDetails = UnsampledReportDriveDownloadDetails
1426+newtype UnSampledReportDriveDownloadDetails = UnSampledReportDriveDownloadDetails
1425− { _urdddDocumentId :: Maybe Text
1427+ { _usrdddDocumentId :: Maybe Text
1426 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1428 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1427
1429
1428−-- | Creates a value of 'UnsampledReportDriveDownloadDetails' with the minimum fields required to make a request.
1430+-- | Creates a value of 'UnSampledReportDriveDownloadDetails' with the minimum fields required to make a request.
1429--
1431--
1430-- Use one of the following lenses to modify other fields as desired:
1432-- Use one of the following lenses to modify other fields as desired:
1431--
1433--
1432−-- * 'urdddDocumentId'
1434+-- * 'usrdddDocumentId'
1433−unsampledReportDriveDownloadDetails
1435+unSampledReportDriveDownloadDetails
1434− :: UnsampledReportDriveDownloadDetails
1436+ :: UnSampledReportDriveDownloadDetails
1435−unsampledReportDriveDownloadDetails =
1437+unSampledReportDriveDownloadDetails =
1436− UnsampledReportDriveDownloadDetails
1438+ UnSampledReportDriveDownloadDetails
1437− { _urdddDocumentId = Nothing
1439+ { _usrdddDocumentId = Nothing
1438 }
1440 }
1439
1441
1440-- | Id of the document\/file containing the report data.
1442-- | Id of the document\/file containing the report data.
1441−urdddDocumentId :: Lens' UnsampledReportDriveDownloadDetails (Maybe Text)
1443+usrdddDocumentId :: Lens' UnSampledReportDriveDownloadDetails (Maybe Text)
1442−urdddDocumentId
1444+usrdddDocumentId
1443− = lens _urdddDocumentId
1445+ = lens _usrdddDocumentId
1444− (\ s a -> s{_urdddDocumentId = a})
1446+ (\ s a -> s{_usrdddDocumentId = a})
1445
1447
1446−instance FromJSON UnsampledReportDriveDownloadDetails
1448+instance FromJSON UnSampledReportDriveDownloadDetails
1447 where
1449 where
1448 parseJSON
1450 parseJSON
1449− = withObject "UnsampledReportDriveDownloadDetails"
1451+ = withObject "UnSampledReportDriveDownloadDetails"
1450 (\ o ->
1452 (\ o ->
1451− UnsampledReportDriveDownloadDetails <$>
1453+ UnSampledReportDriveDownloadDetails <$>
1452 (o .:? "documentId"))
1454 (o .:? "documentId"))
1453
1455
1454−instance ToJSON UnsampledReportDriveDownloadDetails
1456+instance ToJSON UnSampledReportDriveDownloadDetails
1455 where
1457 where
1456− toJSON UnsampledReportDriveDownloadDetails{..}
1458+ toJSON UnSampledReportDriveDownloadDetails{..}
1457 = object
1459 = object
1458− (catMaybes [("documentId" .=) <$> _urdddDocumentId])
1460+ (catMaybes [("documentId" .=) <$> _usrdddDocumentId])
1459
1461
1460-- | Child link for this web property. Points to the list of views (profiles)
1462-- | Child link for this web property. Points to the list of views (profiles)
1461-- for this web property.
1463-- for this web property.
@@ -2336,39 +2338,39 @@ instance ToJSON Profiles where
2336--
2338--
2337-- /See:/ 'userRef' smart constructor.
2339-- /See:/ 'userRef' smart constructor.
2338data UserRef = UserRef
2340data UserRef = UserRef
2339− { _useEmail :: !(Maybe Text)
2341+ { _urEmail :: !(Maybe Text)
2340− , _useKind :: !Text
2342+ , _urKind :: !Text
2341− , _useId :: !(Maybe Text)
2343+ , _urId :: !(Maybe Text)
2342 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2344 } deriving (Eq,Read,Show,Data,Typeable,Generic)
2343
2345
2344-- | Creates a value of 'UserRef' with the minimum fields required to make a request.
2346-- | Creates a value of 'UserRef' with the minimum fields required to make a request.
2345--
2347--
2346-- Use one of the following lenses to modify other fields as desired:
2348-- Use one of the following lenses to modify other fields as desired:
2347--
2349--
2348−-- * 'useEmail'
2350+-- * 'urEmail'
2349--
2351--
2350−-- * 'useKind'
2352+-- * 'urKind'
2351--
2353--
2352−-- * 'useId'
2354+-- * 'urId'
2353userRef
2355userRef
2354 :: UserRef
2356 :: UserRef
2355userRef =
2357userRef =
2356 UserRef
2358 UserRef
2357− { _useEmail = Nothing
2359+ { _urEmail = Nothing
2358− , _useKind = "analytics#userRef"
2360+ , _urKind = "analytics#userRef"
2359− , _useId = Nothing
2361+ , _urId = Nothing
2360 }
2362 }
2361
2363
2362-- | Email ID of this user.
2364-- | Email ID of this user.
2363−useEmail :: Lens' UserRef (Maybe Text)
2365+urEmail :: Lens' UserRef (Maybe Text)
2364−useEmail = lens _useEmail (\ s a -> s{_useEmail = a})
2366+urEmail = lens _urEmail (\ s a -> s{_urEmail = a})
2365
2367
2366−useKind :: Lens' UserRef Text
2368+urKind :: Lens' UserRef Text
2367−useKind = lens _useKind (\ s a -> s{_useKind = a})
2369+urKind = lens _urKind (\ s a -> s{_urKind = a})
2368
2370
2369-- | User ID.
2371-- | User ID.
2370−useId :: Lens' UserRef (Maybe Text)
2372+urId :: Lens' UserRef (Maybe Text)
2371−useId = lens _useId (\ s a -> s{_useId = a})
2373+urId = lens _urId (\ s a -> s{_urId = a})
2372
2374
2373instance FromJSON UserRef where
2375instance FromJSON UserRef where
2374 parseJSON
2376 parseJSON
@@ -2383,8 +2385,8 @@ instance ToJSON UserRef where
2383 toJSON UserRef{..}
2385 toJSON UserRef{..}
2384 = object
2386 = object
2385 (catMaybes
2387 (catMaybes
2386− [("email" .=) <$> _useEmail,
2388+ [("email" .=) <$> _urEmail, Just ("kind" .= _urKind),
2387− Just ("kind" .= _useKind), ("id" .=) <$> _useId])
2389+ ("id" .=) <$> _urId])
2388
2390
2389-- | Permissions the user has for this view (profile).
2391-- | Permissions the user has for this view (profile).
2390--
2392--
@@ -9082,55 +9084,55 @@ instance ToJSON McfDataTotalsForAllResults where
9082
9084
9083-- | Download details for a file stored in Google Cloud Storage.
9085-- | Download details for a file stored in Google Cloud Storage.
9084--
9086--
9085−-- /See:/ 'unsampledReportCloudStorageDownloadDetails' smart constructor.
9087+-- /See:/ 'unSampledReportCloudStorageDownloadDetails' smart constructor.
9086−data UnsampledReportCloudStorageDownloadDetails = UnsampledReportCloudStorageDownloadDetails
9088+data UnSampledReportCloudStorageDownloadDetails = UnSampledReportCloudStorageDownloadDetails
9087− { _urcsddObjectId :: !(Maybe Text)
9089+ { _usrcsddObjectId :: !(Maybe Text)
9088− , _urcsddBucketId :: !(Maybe Text)
9090+ , _usrcsddBucketId :: !(Maybe Text)
9089 } deriving (Eq,Read,Show,Data,Typeable,Generic)
9091 } deriving (Eq,Read,Show,Data,Typeable,Generic)
9090
9092
9091−-- | Creates a value of 'UnsampledReportCloudStorageDownloadDetails' with the minimum fields required to make a request.
9093+-- | Creates a value of 'UnSampledReportCloudStorageDownloadDetails' with the minimum fields required to make a request.
9092--
9094--
9093-- Use one of the following lenses to modify other fields as desired:
9095-- Use one of the following lenses to modify other fields as desired:
9094--
9096--
9095−-- * 'urcsddObjectId'
9097+-- * 'usrcsddObjectId'
9096--
9098--
9097−-- * 'urcsddBucketId'
9099+-- * 'usrcsddBucketId'
9098−unsampledReportCloudStorageDownloadDetails
9100+unSampledReportCloudStorageDownloadDetails
9099− :: UnsampledReportCloudStorageDownloadDetails
9101+ :: UnSampledReportCloudStorageDownloadDetails
9100−unsampledReportCloudStorageDownloadDetails =
9102+unSampledReportCloudStorageDownloadDetails =
9101− UnsampledReportCloudStorageDownloadDetails
9103+ UnSampledReportCloudStorageDownloadDetails
9102− { _urcsddObjectId = Nothing
9104+ { _usrcsddObjectId = Nothing
9103− , _urcsddBucketId = Nothing
9105+ , _usrcsddBucketId = Nothing
9104 }
9106 }
9105
9107
9106-- | Id of the file object containing the report data.
9108-- | Id of the file object containing the report data.
9107−urcsddObjectId :: Lens' UnsampledReportCloudStorageDownloadDetails (Maybe Text)
9109+usrcsddObjectId :: Lens' UnSampledReportCloudStorageDownloadDetails (Maybe Text)
9108−urcsddObjectId
9110+usrcsddObjectId
9109− = lens _urcsddObjectId
9111+ = lens _usrcsddObjectId
9110− (\ s a -> s{_urcsddObjectId = a})
9112+ (\ s a -> s{_usrcsddObjectId = a})
9111
9113
9112-- | Id of the bucket the file object is stored in.
9114-- | Id of the bucket the file object is stored in.
9113−urcsddBucketId :: Lens' UnsampledReportCloudStorageDownloadDetails (Maybe Text)
9115+usrcsddBucketId :: Lens' UnSampledReportCloudStorageDownloadDetails (Maybe Text)
9114−urcsddBucketId
9116+usrcsddBucketId
9115− = lens _urcsddBucketId
9117+ = lens _usrcsddBucketId
9116− (\ s a -> s{_urcsddBucketId = a})
9118+ (\ s a -> s{_usrcsddBucketId = a})
9117
9119
9118instance FromJSON
9120instance FromJSON
9119− UnsampledReportCloudStorageDownloadDetails where
9121+ UnSampledReportCloudStorageDownloadDetails where
9120 parseJSON
9122 parseJSON
9121 = withObject
9123 = withObject
9122− "UnsampledReportCloudStorageDownloadDetails"
9124+ "UnSampledReportCloudStorageDownloadDetails"
9123 (\ o ->
9125 (\ o ->
9124− UnsampledReportCloudStorageDownloadDetails <$>
9126+ UnSampledReportCloudStorageDownloadDetails <$>
9125 (o .:? "objectId") <*> (o .:? "bucketId"))
9127 (o .:? "objectId") <*> (o .:? "bucketId"))
9126
9128
9127instance ToJSON
9129instance ToJSON
9128− UnsampledReportCloudStorageDownloadDetails where
9130+ UnSampledReportCloudStorageDownloadDetails where
9129− toJSON UnsampledReportCloudStorageDownloadDetails{..}
9131+ toJSON UnSampledReportCloudStorageDownloadDetails{..}
9130 = object
9132 = object
9131 (catMaybes
9133 (catMaybes
9132− [("objectId" .=) <$> _urcsddObjectId,
9134+ [("objectId" .=) <$> _usrcsddObjectId,
9133− ("bucketId" .=) <$> _urcsddBucketId])
9135+ ("bucketId" .=) <$> _usrcsddBucketId])
9134
9136
9135--
9137--
9136-- /See:/ 'goalURLDestinationDetailsSteps' smart constructor.
9138-- /See:/ 'goalURLDestinationDetailsSteps' smart constructor.
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Get.hsnew file+216
@@ -0,0 +1,216 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
5+{-# LANGUAGE RecordWildCards #-}
6+{-# LANGUAGE TypeFamilies #-}
7+{-# LANGUAGE TypeOperators #-}
8+
9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11+
12+-- |
13+-- Module : Network.Google.Resource.Analytics.Management.UnSampledReports.Get
14+-- Copyright : (c) 2015 Brendan Hay
15+-- License : Mozilla Public License, v. 2.0.
16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
17+-- Stability : auto-generated
18+-- Portability : non-portable (GHC extensions)
19+--
20+-- | Returns a single unsampled report.
21+--
22+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @AnalyticsManagementUnSampledReportsGet@.
23+module Network.Google.Resource.Analytics.Management.UnSampledReports.Get
24+ (
25+ -- * REST Resource
26+ ManagementUnSampledReportsGetResource
27+
28+ -- * Creating a Request
29+ , managementUnSampledReportsGet'
30+ , ManagementUnSampledReportsGet'
31+
32+ -- * Request Lenses
33+ , musrgQuotaUser
34+ , musrgPrettyPrint
35+ , musrgWebPropertyId
36+ , musrgUserIP
37+ , musrgProfileId
38+ , musrgAccountId
39+ , musrgKey
40+ , musrgUnSampledReportId
41+ , musrgOAuthToken
42+ , musrgFields
43+ ) where
44+
45+import Network.Google.Analytics.Types
46+import Network.Google.Prelude
47+
48+-- | A resource alias for @AnalyticsManagementUnSampledReportsGet@ which the
49+-- 'ManagementUnSampledReportsGet'' request conforms to.
50+type ManagementUnSampledReportsGetResource =
51+ "management" :>
52+ "accounts" :>
53+ Capture "accountId" Text :>
54+ "webproperties" :>
55+ Capture "webPropertyId" Text :>
56+ "profiles" :>
57+ Capture "profileId" Text :>
58+ "unsampledReports" :>
59+ Capture "unsampledReportId" Text :>
60+ QueryParam "quotaUser" Text :>
61+ QueryParam "prettyPrint" Bool :>
62+ QueryParam "userIp" Text :>
63+ QueryParam "key" Key :>
64+ QueryParam "oauth_token" OAuthToken :>
65+ QueryParam "fields" Text :>
66+ QueryParam "alt" AltJSON :>
67+ Get '[JSON] UnSampledReport
68+
69+-- | Returns a single unsampled report.
70+--
71+-- /See:/ 'managementUnSampledReportsGet'' smart constructor.
72+data ManagementUnSampledReportsGet' = ManagementUnSampledReportsGet'
73+ { _musrgQuotaUser :: !(Maybe Text)
74+ , _musrgPrettyPrint :: !Bool
75+ , _musrgWebPropertyId :: !Text
76+ , _musrgUserIP :: !(Maybe Text)
77+ , _musrgProfileId :: !Text
78+ , _musrgAccountId :: !Text
79+ , _musrgKey :: !(Maybe Key)
80+ , _musrgUnSampledReportId :: !Text
81+ , _musrgOAuthToken :: !(Maybe OAuthToken)
82+ , _musrgFields :: !(Maybe Text)
83+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
84+
85+-- | Creates a value of 'ManagementUnSampledReportsGet'' with the minimum fields required to make a request.
86+--
87+-- Use one of the following lenses to modify other fields as desired:
88+--
89+-- * 'musrgQuotaUser'
90+--
91+-- * 'musrgPrettyPrint'
92+--
93+-- * 'musrgWebPropertyId'
94+--
95+-- * 'musrgUserIP'
96+--
97+-- * 'musrgProfileId'
98+--
99+-- * 'musrgAccountId'
100+--
101+-- * 'musrgKey'
102+--
103+-- * 'musrgUnSampledReportId'
104+--
105+-- * 'musrgOAuthToken'
106+--
107+-- * 'musrgFields'
108+managementUnSampledReportsGet'
109+ :: Text -- ^ 'webPropertyId'
110+ -> Text -- ^ 'profileId'
111+ -> Text -- ^ 'accountId'
112+ -> Text -- ^ 'unsampledReportId'
113+ -> ManagementUnSampledReportsGet'
114+managementUnSampledReportsGet' pMusrgWebPropertyId_ pMusrgProfileId_ pMusrgAccountId_ pMusrgUnSampledReportId_ =
115+ ManagementUnSampledReportsGet'
116+ { _musrgQuotaUser = Nothing
117+ , _musrgPrettyPrint = False
118+ , _musrgWebPropertyId = pMusrgWebPropertyId_
119+ , _musrgUserIP = Nothing
120+ , _musrgProfileId = pMusrgProfileId_
121+ , _musrgAccountId = pMusrgAccountId_
122+ , _musrgKey = Nothing
123+ , _musrgUnSampledReportId = pMusrgUnSampledReportId_
124+ , _musrgOAuthToken = Nothing
125+ , _musrgFields = Nothing
126+ }
127+
128+-- | Available to use for quota purposes for server-side applications. Can be
129+-- any arbitrary string assigned to a user, but should not exceed 40
130+-- characters. Overrides userIp if both are provided.
131+musrgQuotaUser :: Lens' ManagementUnSampledReportsGet' (Maybe Text)
132+musrgQuotaUser
133+ = lens _musrgQuotaUser
134+ (\ s a -> s{_musrgQuotaUser = a})
135+
136+-- | Returns response with indentations and line breaks.
137+musrgPrettyPrint :: Lens' ManagementUnSampledReportsGet' Bool
138+musrgPrettyPrint
139+ = lens _musrgPrettyPrint
140+ (\ s a -> s{_musrgPrettyPrint = a})
141+
142+-- | Web property ID to retrieve unsampled reports for.
143+musrgWebPropertyId :: Lens' ManagementUnSampledReportsGet' Text
144+musrgWebPropertyId
145+ = lens _musrgWebPropertyId
146+ (\ s a -> s{_musrgWebPropertyId = a})
147+
148+-- | IP address of the site where the request originates. Use this if you
149+-- want to enforce per-user limits.
150+musrgUserIP :: Lens' ManagementUnSampledReportsGet' (Maybe Text)
151+musrgUserIP
152+ = lens _musrgUserIP (\ s a -> s{_musrgUserIP = a})
153+
154+-- | View (Profile) ID to retrieve unsampled report for.
155+musrgProfileId :: Lens' ManagementUnSampledReportsGet' Text
156+musrgProfileId
157+ = lens _musrgProfileId
158+ (\ s a -> s{_musrgProfileId = a})
159+
160+-- | Account ID to retrieve unsampled report for.
161+musrgAccountId :: Lens' ManagementUnSampledReportsGet' Text
162+musrgAccountId
163+ = lens _musrgAccountId
164+ (\ s a -> s{_musrgAccountId = a})
165+
166+-- | API key. Your API key identifies your project and provides you with API
167+-- access, quota, and reports. Required unless you provide an OAuth 2.0
168+-- token.
169+musrgKey :: Lens' ManagementUnSampledReportsGet' (Maybe Key)
170+musrgKey = lens _musrgKey (\ s a -> s{_musrgKey = a})
171+
172+-- | ID of the unsampled report to retrieve.
173+musrgUnSampledReportId :: Lens' ManagementUnSampledReportsGet' Text
174+musrgUnSampledReportId
175+ = lens _musrgUnSampledReportId
176+ (\ s a -> s{_musrgUnSampledReportId = a})
177+
178+-- | OAuth 2.0 token for the current user.
179+musrgOAuthToken :: Lens' ManagementUnSampledReportsGet' (Maybe OAuthToken)
180+musrgOAuthToken
181+ = lens _musrgOAuthToken
182+ (\ s a -> s{_musrgOAuthToken = a})
183+
184+-- | Selector specifying which fields to include in a partial response.
185+musrgFields :: Lens' ManagementUnSampledReportsGet' (Maybe Text)
186+musrgFields
187+ = lens _musrgFields (\ s a -> s{_musrgFields = a})
188+
189+instance GoogleAuth ManagementUnSampledReportsGet'
190+ where
191+ authKey = musrgKey . _Just
192+ authToken = musrgOAuthToken . _Just
193+
194+instance GoogleRequest ManagementUnSampledReportsGet'
195+ where
196+ type Rs ManagementUnSampledReportsGet' =
197+ UnSampledReport
198+ request = requestWithRoute defReq analyticsURL
199+ requestWithRoute r u
200+ ManagementUnSampledReportsGet'{..}
201+ = go _musrgQuotaUser (Just _musrgPrettyPrint)
202+ _musrgWebPropertyId
203+ _musrgUserIP
204+ _musrgProfileId
205+ _musrgAccountId
206+ _musrgKey
207+ _musrgUnSampledReportId
208+ _musrgOAuthToken
209+ _musrgFields
210+ (Just AltJSON)
211+ where go
212+ = clientWithRoute
213+ (Proxy ::
214+ Proxy ManagementUnSampledReportsGetResource)
215+ r
216+ u
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/Insert.hsnew file+216
@@ -0,0 +1,216 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
5+{-# LANGUAGE RecordWildCards #-}
6+{-# LANGUAGE TypeFamilies #-}
7+{-# LANGUAGE TypeOperators #-}
8+
9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11+
12+-- |
13+-- Module : Network.Google.Resource.Analytics.Management.UnSampledReports.Insert
14+-- Copyright : (c) 2015 Brendan Hay
15+-- License : Mozilla Public License, v. 2.0.
16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
17+-- Stability : auto-generated
18+-- Portability : non-portable (GHC extensions)
19+--
20+-- | Create a new unsampled report.
21+--
22+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @AnalyticsManagementUnSampledReportsInsert@.
23+module Network.Google.Resource.Analytics.Management.UnSampledReports.Insert
24+ (
25+ -- * REST Resource
26+ ManagementUnSampledReportsInsertResource
27+
28+ -- * Creating a Request
29+ , managementUnSampledReportsInsert'
30+ , ManagementUnSampledReportsInsert'
31+
32+ -- * Request Lenses
33+ , musriQuotaUser
34+ , musriUnSampledReport
35+ , musriPrettyPrint
36+ , musriWebPropertyId
37+ , musriUserIP
38+ , musriProfileId
39+ , musriAccountId
40+ , musriKey
41+ , musriOAuthToken
42+ , musriFields
43+ ) where
44+
45+import Network.Google.Analytics.Types
46+import Network.Google.Prelude
47+
48+-- | A resource alias for @AnalyticsManagementUnSampledReportsInsert@ which the
49+-- 'ManagementUnSampledReportsInsert'' request conforms to.
50+type ManagementUnSampledReportsInsertResource =
51+ "management" :>
52+ "accounts" :>
53+ Capture "accountId" Text :>
54+ "webproperties" :>
55+ Capture "webPropertyId" Text :>
56+ "profiles" :>
57+ Capture "profileId" Text :>
58+ "unsampledReports" :>
59+ QueryParam "quotaUser" Text :>
60+ QueryParam "prettyPrint" Bool :>
61+ QueryParam "userIp" Text :>
62+ QueryParam "key" Key :>
63+ QueryParam "oauth_token" OAuthToken :>
64+ QueryParam "fields" Text :>
65+ QueryParam "alt" AltJSON :>
66+ ReqBody '[JSON] UnSampledReport :>
67+ Post '[JSON] UnSampledReport
68+
69+-- | Create a new unsampled report.
70+--
71+-- /See:/ 'managementUnSampledReportsInsert'' smart constructor.
72+data ManagementUnSampledReportsInsert' = ManagementUnSampledReportsInsert'
73+ { _musriQuotaUser :: !(Maybe Text)
74+ , _musriUnSampledReport :: !UnSampledReport
75+ , _musriPrettyPrint :: !Bool
76+ , _musriWebPropertyId :: !Text
77+ , _musriUserIP :: !(Maybe Text)
78+ , _musriProfileId :: !Text
79+ , _musriAccountId :: !Text
80+ , _musriKey :: !(Maybe Key)
81+ , _musriOAuthToken :: !(Maybe OAuthToken)
82+ , _musriFields :: !(Maybe Text)
83+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
84+
85+-- | Creates a value of 'ManagementUnSampledReportsInsert'' with the minimum fields required to make a request.
86+--
87+-- Use one of the following lenses to modify other fields as desired:
88+--
89+-- * 'musriQuotaUser'
90+--
91+-- * 'musriUnSampledReport'
92+--
93+-- * 'musriPrettyPrint'
94+--
95+-- * 'musriWebPropertyId'
96+--
97+-- * 'musriUserIP'
98+--
99+-- * 'musriProfileId'
100+--
101+-- * 'musriAccountId'
102+--
103+-- * 'musriKey'
104+--
105+-- * 'musriOAuthToken'
106+--
107+-- * 'musriFields'
108+managementUnSampledReportsInsert'
109+ :: UnSampledReport -- ^ 'UnSampledReport'
110+ -> Text -- ^ 'webPropertyId'
111+ -> Text -- ^ 'profileId'
112+ -> Text -- ^ 'accountId'
113+ -> ManagementUnSampledReportsInsert'
114+managementUnSampledReportsInsert' pMusriUnSampledReport_ pMusriWebPropertyId_ pMusriProfileId_ pMusriAccountId_ =
115+ ManagementUnSampledReportsInsert'
116+ { _musriQuotaUser = Nothing
117+ , _musriUnSampledReport = pMusriUnSampledReport_
118+ , _musriPrettyPrint = False
119+ , _musriWebPropertyId = pMusriWebPropertyId_
120+ , _musriUserIP = Nothing
121+ , _musriProfileId = pMusriProfileId_
122+ , _musriAccountId = pMusriAccountId_
123+ , _musriKey = Nothing
124+ , _musriOAuthToken = Nothing
125+ , _musriFields = Nothing
126+ }
127+
128+-- | Available to use for quota purposes for server-side applications. Can be
129+-- any arbitrary string assigned to a user, but should not exceed 40
130+-- characters. Overrides userIp if both are provided.
131+musriQuotaUser :: Lens' ManagementUnSampledReportsInsert' (Maybe Text)
132+musriQuotaUser
133+ = lens _musriQuotaUser
134+ (\ s a -> s{_musriQuotaUser = a})
135+
136+-- | Multipart request metadata.
137+musriUnSampledReport :: Lens' ManagementUnSampledReportsInsert' UnSampledReport
138+musriUnSampledReport
139+ = lens _musriUnSampledReport
140+ (\ s a -> s{_musriUnSampledReport = a})
141+
142+-- | Returns response with indentations and line breaks.
143+musriPrettyPrint :: Lens' ManagementUnSampledReportsInsert' Bool
144+musriPrettyPrint
145+ = lens _musriPrettyPrint
146+ (\ s a -> s{_musriPrettyPrint = a})
147+
148+-- | Web property ID to create the unsampled report for.
149+musriWebPropertyId :: Lens' ManagementUnSampledReportsInsert' Text
150+musriWebPropertyId
151+ = lens _musriWebPropertyId
152+ (\ s a -> s{_musriWebPropertyId = a})
153+
154+-- | IP address of the site where the request originates. Use this if you
155+-- want to enforce per-user limits.
156+musriUserIP :: Lens' ManagementUnSampledReportsInsert' (Maybe Text)
157+musriUserIP
158+ = lens _musriUserIP (\ s a -> s{_musriUserIP = a})
159+
160+-- | View (Profile) ID to create the unsampled report for.
161+musriProfileId :: Lens' ManagementUnSampledReportsInsert' Text
162+musriProfileId
163+ = lens _musriProfileId
164+ (\ s a -> s{_musriProfileId = a})
165+
166+-- | Account ID to create the unsampled report for.
167+musriAccountId :: Lens' ManagementUnSampledReportsInsert' Text
168+musriAccountId
169+ = lens _musriAccountId
170+ (\ s a -> s{_musriAccountId = a})
171+
172+-- | API key. Your API key identifies your project and provides you with API
173+-- access, quota, and reports. Required unless you provide an OAuth 2.0
174+-- token.
175+musriKey :: Lens' ManagementUnSampledReportsInsert' (Maybe Key)
176+musriKey = lens _musriKey (\ s a -> s{_musriKey = a})
177+
178+-- | OAuth 2.0 token for the current user.
179+musriOAuthToken :: Lens' ManagementUnSampledReportsInsert' (Maybe OAuthToken)
180+musriOAuthToken
181+ = lens _musriOAuthToken
182+ (\ s a -> s{_musriOAuthToken = a})
183+
184+-- | Selector specifying which fields to include in a partial response.
185+musriFields :: Lens' ManagementUnSampledReportsInsert' (Maybe Text)
186+musriFields
187+ = lens _musriFields (\ s a -> s{_musriFields = a})
188+
189+instance GoogleAuth ManagementUnSampledReportsInsert'
190+ where
191+ authKey = musriKey . _Just
192+ authToken = musriOAuthToken . _Just
193+
194+instance GoogleRequest
195+ ManagementUnSampledReportsInsert' where
196+ type Rs ManagementUnSampledReportsInsert' =
197+ UnSampledReport
198+ request = requestWithRoute defReq analyticsURL
199+ requestWithRoute r u
200+ ManagementUnSampledReportsInsert'{..}
201+ = go _musriQuotaUser (Just _musriPrettyPrint)
202+ _musriWebPropertyId
203+ _musriUserIP
204+ _musriProfileId
205+ _musriAccountId
206+ _musriKey
207+ _musriOAuthToken
208+ _musriFields
209+ (Just AltJSON)
210+ _musriUnSampledReport
211+ where go
212+ = clientWithRoute
213+ (Proxy ::
214+ Proxy ManagementUnSampledReportsInsertResource)
215+ r
216+ u
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/UnSampledReports/List.hsnew file+232
@@ -0,0 +1,232 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
5+{-# LANGUAGE RecordWildCards #-}
6+{-# LANGUAGE TypeFamilies #-}
7+{-# LANGUAGE TypeOperators #-}
8+
9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11+
12+-- |
13+-- Module : Network.Google.Resource.Analytics.Management.UnSampledReports.List
14+-- Copyright : (c) 2015 Brendan Hay
15+-- License : Mozilla Public License, v. 2.0.
16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
17+-- Stability : auto-generated
18+-- Portability : non-portable (GHC extensions)
19+--
20+-- | Lists unsampled reports to which the user has access.
21+--
22+-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @AnalyticsManagementUnSampledReportsList@.
23+module Network.Google.Resource.Analytics.Management.UnSampledReports.List
24+ (
25+ -- * REST Resource
26+ ManagementUnSampledReportsListResource
27+
28+ -- * Creating a Request
29+ , managementUnSampledReportsList'
30+ , ManagementUnSampledReportsList'
31+
32+ -- * Request Lenses
33+ , musrlQuotaUser
34+ , musrlPrettyPrint
35+ , musrlWebPropertyId
36+ , musrlUserIP
37+ , musrlProfileId
38+ , musrlAccountId
39+ , musrlKey
40+ , musrlOAuthToken
41+ , musrlStartIndex
42+ , musrlMaxResults
43+ , musrlFields
44+ ) where
45+
46+import Network.Google.Analytics.Types
47+import Network.Google.Prelude
48+
49+-- | A resource alias for @AnalyticsManagementUnSampledReportsList@ which the
50+-- 'ManagementUnSampledReportsList'' request conforms to.
51+type ManagementUnSampledReportsListResource =
52+ "management" :>
53+ "accounts" :>
54+ Capture "accountId" Text :>
55+ "webproperties" :>
56+ Capture "webPropertyId" Text :>
57+ "profiles" :>
58+ Capture "profileId" Text :>
59+ "unsampledReports" :>
60+ QueryParam "quotaUser" Text :>
61+ QueryParam "prettyPrint" Bool :>
62+ QueryParam "userIp" Text :>
63+ QueryParam "key" Key :>
64+ QueryParam "oauth_token" OAuthToken :>
65+ QueryParam "start-index" Int32 :>
66+ QueryParam "max-results" Int32 :>
67+ QueryParam "fields" Text :>
68+ QueryParam "alt" AltJSON :>
69+ Get '[JSON] UnSampledReports
70+
71+-- | Lists unsampled reports to which the user has access.
72+--
73+-- /See:/ 'managementUnSampledReportsList'' smart constructor.
74+data ManagementUnSampledReportsList' = ManagementUnSampledReportsList'
75+ { _musrlQuotaUser :: !(Maybe Text)
76+ , _musrlPrettyPrint :: !Bool
77+ , _musrlWebPropertyId :: !Text
78+ , _musrlUserIP :: !(Maybe Text)
79+ , _musrlProfileId :: !Text
80+ , _musrlAccountId :: !Text
81+ , _musrlKey :: !(Maybe Key)
82+ , _musrlOAuthToken :: !(Maybe OAuthToken)
83+ , _musrlStartIndex :: !(Maybe Int32)
84+ , _musrlMaxResults :: !(Maybe Int32)
85+ , _musrlFields :: !(Maybe Text)
86+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
87+
88+-- | Creates a value of 'ManagementUnSampledReportsList'' with the minimum fields required to make a request.
89+--
90+-- Use one of the following lenses to modify other fields as desired:
91+--
92+-- * 'musrlQuotaUser'
93+--
94+-- * 'musrlPrettyPrint'
95+--
96+-- * 'musrlWebPropertyId'
97+--
98+-- * 'musrlUserIP'
99+--
100+-- * 'musrlProfileId'
101+--
102+-- * 'musrlAccountId'
103+--
104+-- * 'musrlKey'
105+--
106+-- * 'musrlOAuthToken'
107+--
108+-- * 'musrlStartIndex'
109+--
110+-- * 'musrlMaxResults'
111+--
112+-- * 'musrlFields'
113+managementUnSampledReportsList'
114+ :: Text -- ^ 'webPropertyId'
115+ -> Text -- ^ 'profileId'
116+ -> Text -- ^ 'accountId'
117+ -> ManagementUnSampledReportsList'
118+managementUnSampledReportsList' pMusrlWebPropertyId_ pMusrlProfileId_ pMusrlAccountId_ =
119+ ManagementUnSampledReportsList'
120+ { _musrlQuotaUser = Nothing
121+ , _musrlPrettyPrint = False
122+ , _musrlWebPropertyId = pMusrlWebPropertyId_
123+ , _musrlUserIP = Nothing
124+ , _musrlProfileId = pMusrlProfileId_
125+ , _musrlAccountId = pMusrlAccountId_
126+ , _musrlKey = Nothing
127+ , _musrlOAuthToken = Nothing
128+ , _musrlStartIndex = Nothing
129+ , _musrlMaxResults = Nothing
130+ , _musrlFields = Nothing
131+ }
132+
133+-- | Available to use for quota purposes for server-side applications. Can be
134+-- any arbitrary string assigned to a user, but should not exceed 40
135+-- characters. Overrides userIp if both are provided.
136+musrlQuotaUser :: Lens' ManagementUnSampledReportsList' (Maybe Text)
137+musrlQuotaUser
138+ = lens _musrlQuotaUser
139+ (\ s a -> s{_musrlQuotaUser = a})
140+
141+-- | Returns response with indentations and line breaks.
142+musrlPrettyPrint :: Lens' ManagementUnSampledReportsList' Bool
143+musrlPrettyPrint
144+ = lens _musrlPrettyPrint
145+ (\ s a -> s{_musrlPrettyPrint = a})
146+
147+-- | Web property ID to retrieve unsampled reports for. Must be a specific
148+-- web property ID, ~all is not supported.
149+musrlWebPropertyId :: Lens' ManagementUnSampledReportsList' Text
150+musrlWebPropertyId
151+ = lens _musrlWebPropertyId
152+ (\ s a -> s{_musrlWebPropertyId = a})
153+
154+-- | IP address of the site where the request originates. Use this if you
155+-- want to enforce per-user limits.
156+musrlUserIP :: Lens' ManagementUnSampledReportsList' (Maybe Text)
157+musrlUserIP
158+ = lens _musrlUserIP (\ s a -> s{_musrlUserIP = a})
159+
160+-- | View (Profile) ID to retrieve unsampled reports for. Must be a specific
161+-- view (profile) ID, ~all is not supported.
162+musrlProfileId :: Lens' ManagementUnSampledReportsList' Text
163+musrlProfileId
164+ = lens _musrlProfileId
165+ (\ s a -> s{_musrlProfileId = a})
166+
167+-- | Account ID to retrieve unsampled reports for. Must be a specific account
168+-- ID, ~all is not supported.
169+musrlAccountId :: Lens' ManagementUnSampledReportsList' Text
170+musrlAccountId
171+ = lens _musrlAccountId
172+ (\ s a -> s{_musrlAccountId = a})
173+
174+-- | API key. Your API key identifies your project and provides you with API
175+-- access, quota, and reports. Required unless you provide an OAuth 2.0
176+-- token.
177+musrlKey :: Lens' ManagementUnSampledReportsList' (Maybe Key)
178+musrlKey = lens _musrlKey (\ s a -> s{_musrlKey = a})
179+
180+-- | OAuth 2.0 token for the current user.
181+musrlOAuthToken :: Lens' ManagementUnSampledReportsList' (Maybe OAuthToken)
182+musrlOAuthToken
183+ = lens _musrlOAuthToken
184+ (\ s a -> s{_musrlOAuthToken = a})
185+
186+-- | An index of the first unsampled report to retrieve. Use this parameter
187+-- as a pagination mechanism along with the max-results parameter.
188+musrlStartIndex :: Lens' ManagementUnSampledReportsList' (Maybe Int32)
189+musrlStartIndex
190+ = lens _musrlStartIndex
191+ (\ s a -> s{_musrlStartIndex = a})
192+
193+-- | The maximum number of unsampled reports to include in this response.
194+musrlMaxResults :: Lens' ManagementUnSampledReportsList' (Maybe Int32)
195+musrlMaxResults
196+ = lens _musrlMaxResults
197+ (\ s a -> s{_musrlMaxResults = a})
198+
199+-- | Selector specifying which fields to include in a partial response.
200+musrlFields :: Lens' ManagementUnSampledReportsList' (Maybe Text)
201+musrlFields
202+ = lens _musrlFields (\ s a -> s{_musrlFields = a})
203+
204+instance GoogleAuth ManagementUnSampledReportsList'
205+ where
206+ authKey = musrlKey . _Just
207+ authToken = musrlOAuthToken . _Just
208+
209+instance GoogleRequest
210+ ManagementUnSampledReportsList' where
211+ type Rs ManagementUnSampledReportsList' =
212+ UnSampledReports
213+ request = requestWithRoute defReq analyticsURL
214+ requestWithRoute r u
215+ ManagementUnSampledReportsList'{..}
216+ = go _musrlQuotaUser (Just _musrlPrettyPrint)
217+ _musrlWebPropertyId
218+ _musrlUserIP
219+ _musrlProfileId
220+ _musrlAccountId
221+ _musrlKey
222+ _musrlOAuthToken
223+ _musrlStartIndex
224+ _musrlMaxResults
225+ _musrlFields
226+ (Just AltJSON)
227+ where go
228+ = clientWithRoute
229+ (Proxy ::
230+ Proxy ManagementUnSampledReportsListResource)
231+ r
232+ u
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/UnsampledReports/Get.hsdeleted−216
@@ -1,216 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE OverloadedStrings #-}
5−{-# LANGUAGE RecordWildCards #-}
6−{-# LANGUAGE TypeFamilies #-}
7−{-# LANGUAGE TypeOperators #-}
8−
9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11−
12−-- |
13−-- Module : Network.Google.Resource.Analytics.Management.UnsampledReports.Get
14−-- Copyright : (c) 2015 Brendan Hay
15−-- License : Mozilla Public License, v. 2.0.
16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
17−-- Stability : auto-generated
18−-- Portability : non-portable (GHC extensions)
19−--
20−-- | Returns a single unsampled report.
21−--
22−-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @AnalyticsManagementUnsampledReportsGet@.
23−module Network.Google.Resource.Analytics.Management.UnsampledReports.Get
24− (
25− -- * REST Resource
26− ManagementUnsampledReportsGetResource
27−
28− -- * Creating a Request
29− , managementUnsampledReportsGet'
30− , ManagementUnsampledReportsGet'
31−
32− -- * Request Lenses
33− , murgQuotaUser
34− , murgPrettyPrint
35− , murgWebPropertyId
36− , murgUserIP
37− , murgProfileId
38− , murgAccountId
39− , murgKey
40− , murgUnsampledReportId
41− , murgOAuthToken
42− , murgFields
43− ) where
44−
45−import Network.Google.Analytics.Types
46−import Network.Google.Prelude
47−
48−-- | A resource alias for @AnalyticsManagementUnsampledReportsGet@ which the
49−-- 'ManagementUnsampledReportsGet'' request conforms to.
50−type ManagementUnsampledReportsGetResource =
51− "management" :>
52− "accounts" :>
53− Capture "accountId" Text :>
54− "webproperties" :>
55− Capture "webPropertyId" Text :>
56− "profiles" :>
57− Capture "profileId" Text :>
58− "unsampledReports" :>
59− Capture "unsampledReportId" Text :>
60− QueryParam "quotaUser" Text :>
61− QueryParam "prettyPrint" Bool :>
62− QueryParam "userIp" Text :>
63− QueryParam "key" Key :>
64− QueryParam "oauth_token" OAuthToken :>
65− QueryParam "fields" Text :>
66− QueryParam "alt" AltJSON :>
67− Get '[JSON] UnsampledReport
68−
69−-- | Returns a single unsampled report.
70−--
71−-- /See:/ 'managementUnsampledReportsGet'' smart constructor.
72−data ManagementUnsampledReportsGet' = ManagementUnsampledReportsGet'
73− { _murgQuotaUser :: !(Maybe Text)
74− , _murgPrettyPrint :: !Bool
75− , _murgWebPropertyId :: !Text
76− , _murgUserIP :: !(Maybe Text)
77− , _murgProfileId :: !Text
78− , _murgAccountId :: !Text
79− , _murgKey :: !(Maybe Key)
80− , _murgUnsampledReportId :: !Text
81− , _murgOAuthToken :: !(Maybe OAuthToken)
82− , _murgFields :: !(Maybe Text)
83− } deriving (Eq,Read,Show,Data,Typeable,Generic)
84−
85−-- | Creates a value of 'ManagementUnsampledReportsGet'' with the minimum fields required to make a request.
86−--
87−-- Use one of the following lenses to modify other fields as desired:
88−--
89−-- * 'murgQuotaUser'
90−--
91−-- * 'murgPrettyPrint'
92−--
93−-- * 'murgWebPropertyId'
94−--
95−-- * 'murgUserIP'
96−--
97−-- * 'murgProfileId'
98−--
99−-- * 'murgAccountId'
100−--
101−-- * 'murgKey'
102−--
103−-- * 'murgUnsampledReportId'
104−--
105−-- * 'murgOAuthToken'
106−--
107−-- * 'murgFields'
108−managementUnsampledReportsGet'
109− :: Text -- ^ 'webPropertyId'
110− -> Text -- ^ 'profileId'
111− -> Text -- ^ 'accountId'
112− -> Text -- ^ 'unsampledReportId'
113− -> ManagementUnsampledReportsGet'
114−managementUnsampledReportsGet' pMurgWebPropertyId_ pMurgProfileId_ pMurgAccountId_ pMurgUnsampledReportId_ =
115− ManagementUnsampledReportsGet'
116− { _murgQuotaUser = Nothing
117− , _murgPrettyPrint = False
118− , _murgWebPropertyId = pMurgWebPropertyId_
119− , _murgUserIP = Nothing
120− , _murgProfileId = pMurgProfileId_
121− , _murgAccountId = pMurgAccountId_
122− , _murgKey = Nothing
123− , _murgUnsampledReportId = pMurgUnsampledReportId_
124− , _murgOAuthToken = Nothing
125− , _murgFields = Nothing
126− }
127−
128−-- | Available to use for quota purposes for server-side applications. Can be
129−-- any arbitrary string assigned to a user, but should not exceed 40
130−-- characters. Overrides userIp if both are provided.
131−murgQuotaUser :: Lens' ManagementUnsampledReportsGet' (Maybe Text)
132−murgQuotaUser
133− = lens _murgQuotaUser
134− (\ s a -> s{_murgQuotaUser = a})
135−
136−-- | Returns response with indentations and line breaks.
137−murgPrettyPrint :: Lens' ManagementUnsampledReportsGet' Bool
138−murgPrettyPrint
139− = lens _murgPrettyPrint
140− (\ s a -> s{_murgPrettyPrint = a})
141−
142−-- | Web property ID to retrieve unsampled reports for.
143−murgWebPropertyId :: Lens' ManagementUnsampledReportsGet' Text
144−murgWebPropertyId
145− = lens _murgWebPropertyId
146− (\ s a -> s{_murgWebPropertyId = a})
147−
148−-- | IP address of the site where the request originates. Use this if you
149−-- want to enforce per-user limits.
150−murgUserIP :: Lens' ManagementUnsampledReportsGet' (Maybe Text)
151−murgUserIP
152− = lens _murgUserIP (\ s a -> s{_murgUserIP = a})
153−
154−-- | View (Profile) ID to retrieve unsampled report for.
155−murgProfileId :: Lens' ManagementUnsampledReportsGet' Text
156−murgProfileId
157− = lens _murgProfileId
158− (\ s a -> s{_murgProfileId = a})
159−
160−-- | Account ID to retrieve unsampled report for.
161−murgAccountId :: Lens' ManagementUnsampledReportsGet' Text
162−murgAccountId
163− = lens _murgAccountId
164− (\ s a -> s{_murgAccountId = a})
165−
166−-- | API key. Your API key identifies your project and provides you with API
167−-- access, quota, and reports. Required unless you provide an OAuth 2.0
168−-- token.
169−murgKey :: Lens' ManagementUnsampledReportsGet' (Maybe Key)
170−murgKey = lens _murgKey (\ s a -> s{_murgKey = a})
171−
172−-- | ID of the unsampled report to retrieve.
173−murgUnsampledReportId :: Lens' ManagementUnsampledReportsGet' Text
174−murgUnsampledReportId
175− = lens _murgUnsampledReportId
176− (\ s a -> s{_murgUnsampledReportId = a})
177−
178−-- | OAuth 2.0 token for the current user.
179−murgOAuthToken :: Lens' ManagementUnsampledReportsGet' (Maybe OAuthToken)
180−murgOAuthToken
181− = lens _murgOAuthToken
182− (\ s a -> s{_murgOAuthToken = a})
183−
184−-- | Selector specifying which fields to include in a partial response.
185−murgFields :: Lens' ManagementUnsampledReportsGet' (Maybe Text)
186−murgFields
187− = lens _murgFields (\ s a -> s{_murgFields = a})
188−
189−instance GoogleAuth ManagementUnsampledReportsGet'
190− where
191− authKey = murgKey . _Just
192− authToken = murgOAuthToken . _Just
193−
194−instance GoogleRequest ManagementUnsampledReportsGet'
195− where
196− type Rs ManagementUnsampledReportsGet' =
197− UnsampledReport
198− request = requestWithRoute defReq analyticsURL
199− requestWithRoute r u
200− ManagementUnsampledReportsGet'{..}
201− = go _murgQuotaUser (Just _murgPrettyPrint)
202− _murgWebPropertyId
203− _murgUserIP
204− _murgProfileId
205− _murgAccountId
206− _murgKey
207− _murgUnsampledReportId
208− _murgOAuthToken
209− _murgFields
210− (Just AltJSON)
211− where go
212− = clientWithRoute
213− (Proxy ::
214− Proxy ManagementUnsampledReportsGetResource)
215− r
216− u
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/UnsampledReports/Insert.hsdeleted−216
@@ -1,216 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE OverloadedStrings #-}
5−{-# LANGUAGE RecordWildCards #-}
6−{-# LANGUAGE TypeFamilies #-}
7−{-# LANGUAGE TypeOperators #-}
8−
9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11−
12−-- |
13−-- Module : Network.Google.Resource.Analytics.Management.UnsampledReports.Insert
14−-- Copyright : (c) 2015 Brendan Hay
15−-- License : Mozilla Public License, v. 2.0.
16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
17−-- Stability : auto-generated
18−-- Portability : non-portable (GHC extensions)
19−--
20−-- | Create a new unsampled report.
21−--
22−-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @AnalyticsManagementUnsampledReportsInsert@.
23−module Network.Google.Resource.Analytics.Management.UnsampledReports.Insert
24− (
25− -- * REST Resource
26− ManagementUnsampledReportsInsertResource
27−
28− -- * Creating a Request
29− , managementUnsampledReportsInsert'
30− , ManagementUnsampledReportsInsert'
31−
32− -- * Request Lenses
33− , muriQuotaUser
34− , muriUnsampledReport
35− , muriPrettyPrint
36− , muriWebPropertyId
37− , muriUserIP
38− , muriProfileId
39− , muriAccountId
40− , muriKey
41− , muriOAuthToken
42− , muriFields
43− ) where
44−
45−import Network.Google.Analytics.Types
46−import Network.Google.Prelude
47−
48−-- | A resource alias for @AnalyticsManagementUnsampledReportsInsert@ which the
49−-- 'ManagementUnsampledReportsInsert'' request conforms to.
50−type ManagementUnsampledReportsInsertResource =
51− "management" :>
52− "accounts" :>
53− Capture "accountId" Text :>
54− "webproperties" :>
55− Capture "webPropertyId" Text :>
56− "profiles" :>
57− Capture "profileId" Text :>
58− "unsampledReports" :>
59− QueryParam "quotaUser" Text :>
60− QueryParam "prettyPrint" Bool :>
61− QueryParam "userIp" Text :>
62− QueryParam "key" Key :>
63− QueryParam "oauth_token" OAuthToken :>
64− QueryParam "fields" Text :>
65− QueryParam "alt" AltJSON :>
66− ReqBody '[JSON] UnsampledReport :>
67− Post '[JSON] UnsampledReport
68−
69−-- | Create a new unsampled report.
70−--
71−-- /See:/ 'managementUnsampledReportsInsert'' smart constructor.
72−data ManagementUnsampledReportsInsert' = ManagementUnsampledReportsInsert'
73− { _muriQuotaUser :: !(Maybe Text)
74− , _muriUnsampledReport :: !UnsampledReport
75− , _muriPrettyPrint :: !Bool
76− , _muriWebPropertyId :: !Text
77− , _muriUserIP :: !(Maybe Text)
78− , _muriProfileId :: !Text
79− , _muriAccountId :: !Text
80− , _muriKey :: !(Maybe Key)
81− , _muriOAuthToken :: !(Maybe OAuthToken)
82− , _muriFields :: !(Maybe Text)
83− } deriving (Eq,Read,Show,Data,Typeable,Generic)
84−
85−-- | Creates a value of 'ManagementUnsampledReportsInsert'' with the minimum fields required to make a request.
86−--
87−-- Use one of the following lenses to modify other fields as desired:
88−--
89−-- * 'muriQuotaUser'
90−--
91−-- * 'muriUnsampledReport'
92−--
93−-- * 'muriPrettyPrint'
94−--
95−-- * 'muriWebPropertyId'
96−--
97−-- * 'muriUserIP'
98−--
99−-- * 'muriProfileId'
100−--
101−-- * 'muriAccountId'
102−--
103−-- * 'muriKey'
104−--
105−-- * 'muriOAuthToken'
106−--
107−-- * 'muriFields'
108−managementUnsampledReportsInsert'
109− :: UnsampledReport -- ^ 'UnsampledReport'
110− -> Text -- ^ 'webPropertyId'
111− -> Text -- ^ 'profileId'
112− -> Text -- ^ 'accountId'
113− -> ManagementUnsampledReportsInsert'
114−managementUnsampledReportsInsert' pMuriUnsampledReport_ pMuriWebPropertyId_ pMuriProfileId_ pMuriAccountId_ =
115− ManagementUnsampledReportsInsert'
116− { _muriQuotaUser = Nothing
117− , _muriUnsampledReport = pMuriUnsampledReport_
118− , _muriPrettyPrint = False
119− , _muriWebPropertyId = pMuriWebPropertyId_
120− , _muriUserIP = Nothing
121− , _muriProfileId = pMuriProfileId_
122− , _muriAccountId = pMuriAccountId_
123− , _muriKey = Nothing
124− , _muriOAuthToken = Nothing
125− , _muriFields = Nothing
126− }
127−
128−-- | Available to use for quota purposes for server-side applications. Can be
129−-- any arbitrary string assigned to a user, but should not exceed 40
130−-- characters. Overrides userIp if both are provided.
131−muriQuotaUser :: Lens' ManagementUnsampledReportsInsert' (Maybe Text)
132−muriQuotaUser
133− = lens _muriQuotaUser
134− (\ s a -> s{_muriQuotaUser = a})
135−
136−-- | Multipart request metadata.
137−muriUnsampledReport :: Lens' ManagementUnsampledReportsInsert' UnsampledReport
138−muriUnsampledReport
139− = lens _muriUnsampledReport
140− (\ s a -> s{_muriUnsampledReport = a})
141−
142−-- | Returns response with indentations and line breaks.
143−muriPrettyPrint :: Lens' ManagementUnsampledReportsInsert' Bool
144−muriPrettyPrint
145− = lens _muriPrettyPrint
146− (\ s a -> s{_muriPrettyPrint = a})
147−
148−-- | Web property ID to create the unsampled report for.
149−muriWebPropertyId :: Lens' ManagementUnsampledReportsInsert' Text
150−muriWebPropertyId
151− = lens _muriWebPropertyId
152− (\ s a -> s{_muriWebPropertyId = a})
153−
154−-- | IP address of the site where the request originates. Use this if you
155−-- want to enforce per-user limits.
156−muriUserIP :: Lens' ManagementUnsampledReportsInsert' (Maybe Text)
157−muriUserIP
158− = lens _muriUserIP (\ s a -> s{_muriUserIP = a})
159−
160−-- | View (Profile) ID to create the unsampled report for.
161−muriProfileId :: Lens' ManagementUnsampledReportsInsert' Text
162−muriProfileId
163− = lens _muriProfileId
164− (\ s a -> s{_muriProfileId = a})
165−
166−-- | Account ID to create the unsampled report for.
167−muriAccountId :: Lens' ManagementUnsampledReportsInsert' Text
168−muriAccountId
169− = lens _muriAccountId
170− (\ s a -> s{_muriAccountId = a})
171−
172−-- | API key. Your API key identifies your project and provides you with API
173−-- access, quota, and reports. Required unless you provide an OAuth 2.0
174−-- token.
175−muriKey :: Lens' ManagementUnsampledReportsInsert' (Maybe Key)
176−muriKey = lens _muriKey (\ s a -> s{_muriKey = a})
177−
178−-- | OAuth 2.0 token for the current user.
179−muriOAuthToken :: Lens' ManagementUnsampledReportsInsert' (Maybe OAuthToken)
180−muriOAuthToken
181− = lens _muriOAuthToken
182− (\ s a -> s{_muriOAuthToken = a})
183−
184−-- | Selector specifying which fields to include in a partial response.
185−muriFields :: Lens' ManagementUnsampledReportsInsert' (Maybe Text)
186−muriFields
187− = lens _muriFields (\ s a -> s{_muriFields = a})
188−
189−instance GoogleAuth ManagementUnsampledReportsInsert'
190− where
191− authKey = muriKey . _Just
192− authToken = muriOAuthToken . _Just
193−
194−instance GoogleRequest
195− ManagementUnsampledReportsInsert' where
196− type Rs ManagementUnsampledReportsInsert' =
197− UnsampledReport
198− request = requestWithRoute defReq analyticsURL
199− requestWithRoute r u
200− ManagementUnsampledReportsInsert'{..}
201− = go _muriQuotaUser (Just _muriPrettyPrint)
202− _muriWebPropertyId
203− _muriUserIP
204− _muriProfileId
205− _muriAccountId
206− _muriKey
207− _muriOAuthToken
208− _muriFields
209− (Just AltJSON)
210− _muriUnsampledReport
211− where go
212− = clientWithRoute
213− (Proxy ::
214− Proxy ManagementUnsampledReportsInsertResource)
215− r
216− u
gogol-analytics/gen/Network/Google/Resource/Analytics/Management/UnsampledReports/List.hsdeleted−232
@@ -1,232 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE OverloadedStrings #-}
5−{-# LANGUAGE RecordWildCards #-}
6−{-# LANGUAGE TypeFamilies #-}
7−{-# LANGUAGE TypeOperators #-}
8−
9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11−
12−-- |
13−-- Module : Network.Google.Resource.Analytics.Management.UnsampledReports.List
14−-- Copyright : (c) 2015 Brendan Hay
15−-- License : Mozilla Public License, v. 2.0.
16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
17−-- Stability : auto-generated
18−-- Portability : non-portable (GHC extensions)
19−--
20−-- | Lists unsampled reports to which the user has access.
21−--
22−-- /See:/ <https://developers.google.com/analytics/ Google Analytics API Reference> for @AnalyticsManagementUnsampledReportsList@.
23−module Network.Google.Resource.Analytics.Management.UnsampledReports.List
24− (
25− -- * REST Resource
26− ManagementUnsampledReportsListResource
27−
28− -- * Creating a Request
29− , managementUnsampledReportsList'
30− , ManagementUnsampledReportsList'
31−
32− -- * Request Lenses
33− , murlQuotaUser
34− , murlPrettyPrint
35− , murlWebPropertyId
36− , murlUserIP
37− , murlProfileId
38− , murlAccountId
39− , murlKey
40− , murlOAuthToken
41− , murlStartIndex
42− , murlMaxResults
43− , murlFields
44− ) where
45−
46−import Network.Google.Analytics.Types
47−import Network.Google.Prelude
48−
49−-- | A resource alias for @AnalyticsManagementUnsampledReportsList@ which the
50−-- 'ManagementUnsampledReportsList'' request conforms to.
51−type ManagementUnsampledReportsListResource =
52− "management" :>
53− "accounts" :>
54− Capture "accountId" Text :>
55− "webproperties" :>
56− Capture "webPropertyId" Text :>
57− "profiles" :>
58− Capture "profileId" Text :>
59− "unsampledReports" :>
60− QueryParam "quotaUser" Text :>
61− QueryParam "prettyPrint" Bool :>
62− QueryParam "userIp" Text :>
63− QueryParam "key" Key :>
64− QueryParam "oauth_token" OAuthToken :>
65− QueryParam "start-index" Int32 :>
66− QueryParam "max-results" Int32 :>
67− QueryParam "fields" Text :>
68− QueryParam "alt" AltJSON :>
69− Get '[JSON] UnsampledReports
70−
71−-- | Lists unsampled reports to which the user has access.
72−--
73−-- /See:/ 'managementUnsampledReportsList'' smart constructor.
74−data ManagementUnsampledReportsList' = ManagementUnsampledReportsList'
75− { _murlQuotaUser :: !(Maybe Text)
76− , _murlPrettyPrint :: !Bool
77− , _murlWebPropertyId :: !Text
78− , _murlUserIP :: !(Maybe Text)
79− , _murlProfileId :: !Text
80− , _murlAccountId :: !Text
81− , _murlKey :: !(Maybe Key)
82− , _murlOAuthToken :: !(Maybe OAuthToken)
83− , _murlStartIndex :: !(Maybe Int32)
84− , _murlMaxResults :: !(Maybe Int32)
85− , _murlFields :: !(Maybe Text)
86− } deriving (Eq,Read,Show,Data,Typeable,Generic)
87−
88−-- | Creates a value of 'ManagementUnsampledReportsList'' with the minimum fields required to make a request.
89−--
90−-- Use one of the following lenses to modify other fields as desired:
91−--
92−-- * 'murlQuotaUser'
93−--
94−-- * 'murlPrettyPrint'
95−--
96−-- * 'murlWebPropertyId'
97−--
98−-- * 'murlUserIP'
99−--
100−-- * 'murlProfileId'
101−--
102−-- * 'murlAccountId'
103−--
104−-- * 'murlKey'
105−--
106−-- * 'murlOAuthToken'
107−--
108−-- * 'murlStartIndex'
109−--
110−-- * 'murlMaxResults'
111−--
112−-- * 'murlFields'
113−managementUnsampledReportsList'
114− :: Text -- ^ 'webPropertyId'
115− -> Text -- ^ 'profileId'
116− -> Text -- ^ 'accountId'
117− -> ManagementUnsampledReportsList'
118−managementUnsampledReportsList' pMurlWebPropertyId_ pMurlProfileId_ pMurlAccountId_ =
119− ManagementUnsampledReportsList'
120− { _murlQuotaUser = Nothing
121− , _murlPrettyPrint = False
122− , _murlWebPropertyId = pMurlWebPropertyId_
123− , _murlUserIP = Nothing
124− , _murlProfileId = pMurlProfileId_
125− , _murlAccountId = pMurlAccountId_
126− , _murlKey = Nothing
127− , _murlOAuthToken = Nothing
128− , _murlStartIndex = Nothing
129− , _murlMaxResults = Nothing
130− , _murlFields = Nothing
131− }
132−
133−-- | Available to use for quota purposes for server-side applications. Can be
134−-- any arbitrary string assigned to a user, but should not exceed 40
135−-- characters. Overrides userIp if both are provided.
136−murlQuotaUser :: Lens' ManagementUnsampledReportsList' (Maybe Text)
137−murlQuotaUser
138− = lens _murlQuotaUser
139− (\ s a -> s{_murlQuotaUser = a})
140−
141−-- | Returns response with indentations and line breaks.
142−murlPrettyPrint :: Lens' ManagementUnsampledReportsList' Bool
143−murlPrettyPrint
144− = lens _murlPrettyPrint
145− (\ s a -> s{_murlPrettyPrint = a})
146−
147−-- | Web property ID to retrieve unsampled reports for. Must be a specific
148−-- web property ID, ~all is not supported.
149−murlWebPropertyId :: Lens' ManagementUnsampledReportsList' Text
150−murlWebPropertyId
151− = lens _murlWebPropertyId
152− (\ s a -> s{_murlWebPropertyId = a})
153−
154−-- | IP address of the site where the request originates. Use this if you
155−-- want to enforce per-user limits.
156−murlUserIP :: Lens' ManagementUnsampledReportsList' (Maybe Text)
157−murlUserIP
158− = lens _murlUserIP (\ s a -> s{_murlUserIP = a})
159−
160−-- | View (Profile) ID to retrieve unsampled reports for. Must be a specific
161−-- view (profile) ID, ~all is not supported.
162−murlProfileId :: Lens' ManagementUnsampledReportsList' Text
163−murlProfileId
164− = lens _murlProfileId
165− (\ s a -> s{_murlProfileId = a})
166−
167−-- | Account ID to retrieve unsampled reports for. Must be a specific account
168−-- ID, ~all is not supported.
169−murlAccountId :: Lens' ManagementUnsampledReportsList' Text
170−murlAccountId
171− = lens _murlAccountId
172− (\ s a -> s{_murlAccountId = a})
173−
174−-- | API key. Your API key identifies your project and provides you with API
175−-- access, quota, and reports. Required unless you provide an OAuth 2.0
176−-- token.
177−murlKey :: Lens' ManagementUnsampledReportsList' (Maybe Key)
178−murlKey = lens _murlKey (\ s a -> s{_murlKey = a})
179−
180−-- | OAuth 2.0 token for the current user.
181−murlOAuthToken :: Lens' ManagementUnsampledReportsList' (Maybe OAuthToken)
182−murlOAuthToken
183− = lens _murlOAuthToken
184− (\ s a -> s{_murlOAuthToken = a})
185−
186−-- | An index of the first unsampled report to retrieve. Use this parameter
187−-- as a pagination mechanism along with the max-results parameter.
188−murlStartIndex :: Lens' ManagementUnsampledReportsList' (Maybe Int32)
189−murlStartIndex
190− = lens _murlStartIndex
191− (\ s a -> s{_murlStartIndex = a})
192−
193−-- | The maximum number of unsampled reports to include in this response.
194−murlMaxResults :: Lens' ManagementUnsampledReportsList' (Maybe Int32)
195−murlMaxResults
196− = lens _murlMaxResults
197− (\ s a -> s{_murlMaxResults = a})
198−
199−-- | Selector specifying which fields to include in a partial response.
200−murlFields :: Lens' ManagementUnsampledReportsList' (Maybe Text)
201−murlFields
202− = lens _murlFields (\ s a -> s{_murlFields = a})
203−
204−instance GoogleAuth ManagementUnsampledReportsList'
205− where
206− authKey = murlKey . _Just
207− authToken = murlOAuthToken . _Just
208−
209−instance GoogleRequest
210− ManagementUnsampledReportsList' where
211− type Rs ManagementUnsampledReportsList' =
212− UnsampledReports
213− request = requestWithRoute defReq analyticsURL
214− requestWithRoute r u
215− ManagementUnsampledReportsList'{..}
216− = go _murlQuotaUser (Just _murlPrettyPrint)
217− _murlWebPropertyId
218− _murlUserIP
219− _murlProfileId
220− _murlAccountId
221− _murlKey
222− _murlOAuthToken
223− _murlStartIndex
224− _murlMaxResults
225− _murlFields
226− (Just AltJSON)
227− where go
228− = clientWithRoute
229− (Proxy ::
230− Proxy ManagementUnsampledReportsListResource)
231− r
232− u
gogol-analytics/gogol-analytics.cabal+3−3
@@ -86,9 +86,9 @@ library
86 , Network.Google.Resource.Analytics.Management.Profiles.Patch
86 , Network.Google.Resource.Analytics.Management.Profiles.Patch
87 , Network.Google.Resource.Analytics.Management.Profiles.Update
87 , Network.Google.Resource.Analytics.Management.Profiles.Update
88 , Network.Google.Resource.Analytics.Management.Segments.List
88 , Network.Google.Resource.Analytics.Management.Segments.List
89− , Network.Google.Resource.Analytics.Management.UnsampledReports.Get
89+ , Network.Google.Resource.Analytics.Management.UnSampledReports.Get
90− , Network.Google.Resource.Analytics.Management.UnsampledReports.Insert
90+ , Network.Google.Resource.Analytics.Management.UnSampledReports.Insert
91− , Network.Google.Resource.Analytics.Management.UnsampledReports.List
91+ , Network.Google.Resource.Analytics.Management.UnSampledReports.List
92 , Network.Google.Resource.Analytics.Management.Uploads.DeleteUploadData
92 , Network.Google.Resource.Analytics.Management.Uploads.DeleteUploadData
93 , Network.Google.Resource.Analytics.Management.Uploads.Get
93 , Network.Google.Resource.Analytics.Management.Uploads.Get
94 , Network.Google.Resource.Analytics.Management.Uploads.List
94 , Network.Google.Resource.Analytics.Management.Uploads.List
gogol-android-enterprise/gen/Network/Google/AndroidEnterprise.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Allows MDMs\/EMMs and enterprises to manage the deployment of apps to
15+-- | Allows MDMs\/EMMs and enterprises to manage the deployment of apps to
16-- Android for Work users.
16-- Android for Work users.
17--
17--
18-- /See:/ <https://developers.google.com/play/enterprise Google Play EMM API Reference>
18-- /See:/ <https://developers.google.com/play/enterprise Google Play EMM API Reference>
gogol-android-publisher/gen/Network/Google/AndroidPublisher.hs+10−10
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets Android application developers access their Google Play accounts.
15+-- | Lets Android application developers access their Google Play accounts.
16--
16--
17-- /See:/ <https://developers.google.com/android-publisher Google Play Developer API Reference>
17-- /See:/ <https://developers.google.com/android-publisher Google Play Developer API Reference>
18module Network.Google.AndroidPublisher
18module Network.Google.AndroidPublisher
@@ -619,15 +619,15 @@ type AndroidPublisherAPI =
619 :<|> EditsDetailsPatchResource
619 :<|> EditsDetailsPatchResource
620 :<|> EditsDetailsGetResource
620 :<|> EditsDetailsGetResource
621 :<|> EditsDetailsUpdateResource
621 :<|> EditsDetailsUpdateResource
622− :<|> EditsApkListingsListResource
622+ :<|> EditsAPKListingsListResource
623− :<|> EditsApkListingsDeleteallResource
623+ :<|> EditsAPKListingsDeleteallResource
624− :<|> EditsApkListingsPatchResource
624+ :<|> EditsAPKListingsPatchResource
625− :<|> EditsApkListingsGetResource
625+ :<|> EditsAPKListingsGetResource
626− :<|> EditsApkListingsDeleteResource
626+ :<|> EditsAPKListingsDeleteResource
627− :<|> EditsApkListingsUpdateResource
627+ :<|> EditsAPKListingsUpdateResource
628− :<|> EditsApksListResource
628+ :<|> EditsAPKsListResource
629− :<|> EditsApksAddexternallyhostedResource
629+ :<|> EditsAPKsAddexternallyhostedResource
630− :<|> EditsApksUploadResource
630+ :<|> EditsAPKsUploadResource
631 :<|> EditsListingsListResource
631 :<|> EditsListingsListResource
632 :<|> EditsListingsDeleteallResource
632 :<|> EditsListingsDeleteallResource
633 :<|> EditsListingsPatchResource
633 :<|> EditsListingsPatchResource
gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/APKListings/Delete.hs+3−3
@@ -24,7 +24,7 @@
24module Network.Google.Resource.AndroidPublisher.Edits.APKListings.Delete
24module Network.Google.Resource.AndroidPublisher.Edits.APKListings.Delete
25 (
25 (
26 -- * REST Resource
26 -- * REST Resource
27− EditsApkListingsDeleteResource
27+ EditsAPKListingsDeleteResource
28
28
29 -- * Creating a Request
29 -- * Creating a Request
30 , editsAPKListingsDelete'
30 , editsAPKListingsDelete'
@@ -48,7 +48,7 @@ import Network.Google.Prelude
48
48
49-- | A resource alias for @AndroidPublisherEditsAPKListingsDelete@ which the
49-- | A resource alias for @AndroidPublisherEditsAPKListingsDelete@ which the
50-- 'EditsAPKListingsDelete'' request conforms to.
50-- 'EditsAPKListingsDelete'' request conforms to.
51−type EditsApkListingsDeleteResource =
51+type EditsAPKListingsDeleteResource =
52 Capture "packageName" Text :>
52 Capture "packageName" Text :>
53 "edits" :>
53 "edits" :>
54 Capture "editId" Text :>
54 Capture "editId" Text :>
@@ -209,6 +209,6 @@ instance GoogleRequest EditsAPKListingsDelete' where
209 (Just AltJSON)
209 (Just AltJSON)
210 where go
210 where go
211 = clientWithRoute
211 = clientWithRoute
212− (Proxy :: Proxy EditsApkListingsDeleteResource)
212+ (Proxy :: Proxy EditsAPKListingsDeleteResource)
213 r
213 r
214 u
214 u
gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/APKListings/Deleteall.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.AndroidPublisher.Edits.APKListings.Deleteall
23module Network.Google.Resource.AndroidPublisher.Edits.APKListings.Deleteall
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− EditsApkListingsDeleteallResource
26+ EditsAPKListingsDeleteallResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , editsAPKListingsDeleteall'
29 , editsAPKListingsDeleteall'
@@ -46,7 +46,7 @@ import Network.Google.Prelude
46
46
47-- | A resource alias for @AndroidPublisherEditsAPKListingsDeleteall@ which the
47-- | A resource alias for @AndroidPublisherEditsAPKListingsDeleteall@ which the
48-- 'EditsAPKListingsDeleteall'' request conforms to.
48-- 'EditsAPKListingsDeleteall'' request conforms to.
49−type EditsApkListingsDeleteallResource =
49+type EditsAPKListingsDeleteallResource =
50 Capture "packageName" Text :>
50 Capture "packageName" Text :>
51 "edits" :>
51 "edits" :>
52 Capture "editId" Text :>
52 Capture "editId" Text :>
@@ -195,6 +195,6 @@ instance GoogleRequest EditsAPKListingsDeleteall'
195 (Just AltJSON)
195 (Just AltJSON)
196 where go
196 where go
197 = clientWithRoute
197 = clientWithRoute
198− (Proxy :: Proxy EditsApkListingsDeleteallResource)
198+ (Proxy :: Proxy EditsAPKListingsDeleteallResource)
199 r
199 r
200 u
200 u
gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/APKListings/Get.hs+3−3
@@ -24,7 +24,7 @@
24module Network.Google.Resource.AndroidPublisher.Edits.APKListings.Get
24module Network.Google.Resource.AndroidPublisher.Edits.APKListings.Get
25 (
25 (
26 -- * REST Resource
26 -- * REST Resource
27− EditsApkListingsGetResource
27+ EditsAPKListingsGetResource
28
28
29 -- * Creating a Request
29 -- * Creating a Request
30 , editsAPKListingsGet'
30 , editsAPKListingsGet'
@@ -48,7 +48,7 @@ import Network.Google.Prelude
48
48
49-- | A resource alias for @AndroidPublisherEditsAPKListingsGet@ which the
49-- | A resource alias for @AndroidPublisherEditsAPKListingsGet@ which the
50-- 'EditsAPKListingsGet'' request conforms to.
50-- 'EditsAPKListingsGet'' request conforms to.
51−type EditsApkListingsGetResource =
51+type EditsAPKListingsGetResource =
52 Capture "packageName" Text :>
52 Capture "packageName" Text :>
53 "edits" :>
53 "edits" :>
54 Capture "editId" Text :>
54 Capture "editId" Text :>
@@ -210,6 +210,6 @@ instance GoogleRequest EditsAPKListingsGet' where
210 (Just AltJSON)
210 (Just AltJSON)
211 where go
211 where go
212 = clientWithRoute
212 = clientWithRoute
213− (Proxy :: Proxy EditsApkListingsGetResource)
213+ (Proxy :: Proxy EditsAPKListingsGetResource)
214 r
214 r
215 u
215 u
gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/APKListings/List.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.AndroidPublisher.Edits.APKListings.List
23module Network.Google.Resource.AndroidPublisher.Edits.APKListings.List
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− EditsApkListingsListResource
26+ EditsAPKListingsListResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , editsAPKListingsList'
29 , editsAPKListingsList'
@@ -46,7 +46,7 @@ import Network.Google.Prelude
46
46
47-- | A resource alias for @AndroidPublisherEditsAPKListingsList@ which the
47-- | A resource alias for @AndroidPublisherEditsAPKListingsList@ which the
48-- 'EditsAPKListingsList'' request conforms to.
48-- 'EditsAPKListingsList'' request conforms to.
49−type EditsApkListingsListResource =
49+type EditsAPKListingsListResource =
50 Capture "packageName" Text :>
50 Capture "packageName" Text :>
51 "edits" :>
51 "edits" :>
52 Capture "editId" Text :>
52 Capture "editId" Text :>
@@ -193,6 +193,6 @@ instance GoogleRequest EditsAPKListingsList' where
193 (Just AltJSON)
193 (Just AltJSON)
194 where go
194 where go
195 = clientWithRoute
195 = clientWithRoute
196− (Proxy :: Proxy EditsApkListingsListResource)
196+ (Proxy :: Proxy EditsAPKListingsListResource)
197 r
197 r
198 u
198 u
gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/APKListings/Patch.hs+3−3
@@ -24,7 +24,7 @@
24module Network.Google.Resource.AndroidPublisher.Edits.APKListings.Patch
24module Network.Google.Resource.AndroidPublisher.Edits.APKListings.Patch
25 (
25 (
26 -- * REST Resource
26 -- * REST Resource
27− EditsApkListingsPatchResource
27+ EditsAPKListingsPatchResource
28
28
29 -- * Creating a Request
29 -- * Creating a Request
30 , editsAPKListingsPatch'
30 , editsAPKListingsPatch'
@@ -49,7 +49,7 @@ import Network.Google.Prelude
49
49
50-- | A resource alias for @AndroidPublisherEditsAPKListingsPatch@ which the
50-- | A resource alias for @AndroidPublisherEditsAPKListingsPatch@ which the
51-- 'EditsAPKListingsPatch'' request conforms to.
51-- 'EditsAPKListingsPatch'' request conforms to.
52−type EditsApkListingsPatchResource =
52+type EditsAPKListingsPatchResource =
53 Capture "packageName" Text :>
53 Capture "packageName" Text :>
54 "edits" :>
54 "edits" :>
55 Capture "editId" Text :>
55 Capture "editId" Text :>
@@ -224,6 +224,6 @@ instance GoogleRequest EditsAPKListingsPatch' where
224 _eapklpAPKListing
224 _eapklpAPKListing
225 where go
225 where go
226 = clientWithRoute
226 = clientWithRoute
227− (Proxy :: Proxy EditsApkListingsPatchResource)
227+ (Proxy :: Proxy EditsAPKListingsPatchResource)
228 r
228 r
229 u
229 u
gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/APKListings/Update.hs+3−3
@@ -24,7 +24,7 @@
24module Network.Google.Resource.AndroidPublisher.Edits.APKListings.Update
24module Network.Google.Resource.AndroidPublisher.Edits.APKListings.Update
25 (
25 (
26 -- * REST Resource
26 -- * REST Resource
27− EditsApkListingsUpdateResource
27+ EditsAPKListingsUpdateResource
28
28
29 -- * Creating a Request
29 -- * Creating a Request
30 , editsAPKListingsUpdate'
30 , editsAPKListingsUpdate'
@@ -49,7 +49,7 @@ import Network.Google.Prelude
49
49
50-- | A resource alias for @AndroidPublisherEditsAPKListingsUpdate@ which the
50-- | A resource alias for @AndroidPublisherEditsAPKListingsUpdate@ which the
51-- 'EditsAPKListingsUpdate'' request conforms to.
51-- 'EditsAPKListingsUpdate'' request conforms to.
52−type EditsApkListingsUpdateResource =
52+type EditsAPKListingsUpdateResource =
53 Capture "packageName" Text :>
53 Capture "packageName" Text :>
54 "edits" :>
54 "edits" :>
55 Capture "editId" Text :>
55 Capture "editId" Text :>
@@ -224,6 +224,6 @@ instance GoogleRequest EditsAPKListingsUpdate' where
224 _eapkluAPKListing
224 _eapkluAPKListing
225 where go
225 where go
226 = clientWithRoute
226 = clientWithRoute
227− (Proxy :: Proxy EditsApkListingsUpdateResource)
227+ (Proxy :: Proxy EditsAPKListingsUpdateResource)
228 r
228 r
229 u
229 u
gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/Addexternallyhosted.hs+3−3
@@ -26,7 +26,7 @@
26module Network.Google.Resource.AndroidPublisher.Edits.APKs.Addexternallyhosted
26module Network.Google.Resource.AndroidPublisher.Edits.APKs.Addexternallyhosted
27 (
27 (
28 -- * REST Resource
28 -- * REST Resource
29− EditsApksAddexternallyhostedResource
29+ EditsAPKsAddexternallyhostedResource
30
30
31 -- * Creating a Request
31 -- * Creating a Request
32 , editsAPKsAddexternallyhosted'
32 , editsAPKsAddexternallyhosted'
@@ -49,7 +49,7 @@ import Network.Google.Prelude
49
49
50-- | A resource alias for @AndroidPublisherEditsAPKsAddexternallyhosted@ which the
50-- | A resource alias for @AndroidPublisherEditsAPKsAddexternallyhosted@ which the
51-- 'EditsAPKsAddexternallyhosted'' request conforms to.
51-- 'EditsAPKsAddexternallyhosted'' request conforms to.
52−type EditsApksAddexternallyhostedResource =
52+type EditsAPKsAddexternallyhostedResource =
53 Capture "packageName" Text :>
53 Capture "packageName" Text :>
54 "edits" :>
54 "edits" :>
55 Capture "editId" Text :>
55 Capture "editId" Text :>
@@ -201,6 +201,6 @@ instance GoogleRequest EditsAPKsAddexternallyhosted'
201 _eapkaAPKsAddExternallyHostedRequest
201 _eapkaAPKsAddExternallyHostedRequest
202 where go
202 where go
203 = clientWithRoute
203 = clientWithRoute
204− (Proxy :: Proxy EditsApksAddexternallyhostedResource)
204+ (Proxy :: Proxy EditsAPKsAddexternallyhostedResource)
205 r
205 r
206 u
206 u
gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/List.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.AndroidPublisher.Edits.APKs.List
23module Network.Google.Resource.AndroidPublisher.Edits.APKs.List
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− EditsApksListResource
26+ EditsAPKsListResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , editsAPKsList'
29 , editsAPKsList'
@@ -45,7 +45,7 @@ import Network.Google.Prelude
45
45
46-- | A resource alias for @AndroidPublisherEditsAPKsList@ which the
46-- | A resource alias for @AndroidPublisherEditsAPKsList@ which the
47-- 'EditsAPKsList'' request conforms to.
47-- 'EditsAPKsList'' request conforms to.
48−type EditsApksListResource =
48+type EditsAPKsListResource =
49 Capture "packageName" Text :>
49 Capture "packageName" Text :>
50 "edits" :>
50 "edits" :>
51 Capture "editId" Text :>
51 Capture "editId" Text :>
@@ -174,6 +174,6 @@ instance GoogleRequest EditsAPKsList' where
174 (Just AltJSON)
174 (Just AltJSON)
175 where go
175 where go
176 = clientWithRoute
176 = clientWithRoute
177− (Proxy :: Proxy EditsApksListResource)
177+ (Proxy :: Proxy EditsAPKsListResource)
178 r
178 r
179 u
179 u
gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/APKs/Upload.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.AndroidPublisher.Edits.APKs.Upload
23module Network.Google.Resource.AndroidPublisher.Edits.APKs.Upload
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− EditsApksUploadResource
26+ EditsAPKsUploadResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , editsAPKsUpload'
29 , editsAPKsUpload'
@@ -46,7 +46,7 @@ import Network.Google.Prelude
46
46
47-- | A resource alias for @AndroidPublisherEditsAPKsUpload@ which the
47-- | A resource alias for @AndroidPublisherEditsAPKsUpload@ which the
48-- 'EditsAPKsUpload'' request conforms to.
48-- 'EditsAPKsUpload'' request conforms to.
49−type EditsApksUploadResource =
49+type EditsAPKsUploadResource =
50 Capture "packageName" Text :>
50 Capture "packageName" Text :>
51 "edits" :>
51 "edits" :>
52 Capture "editId" Text :>
52 Capture "editId" Text :>
@@ -184,6 +184,6 @@ instance GoogleRequest EditsAPKsUpload' where
184 (Just AltJSON)
184 (Just AltJSON)
185 where go
185 where go
186 = clientWithRoute
186 = clientWithRoute
187− (Proxy :: Proxy EditsApksUploadResource)
187+ (Proxy :: Proxy EditsAPKsUploadResource)
188 r
188 r
189 u
189 u
gogol-appengine-taskqueue/gen/Network/Google/AppEngineTaskQueue.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets you access a Google App Engine Pull Task Queue over REST.
15+-- | Lets you access a Google App Engine Pull Task Queue over REST.
16--
16--
17-- /See:/ <https://developers.google.com/appengine/docs/python/taskqueue/rest TaskQueue API Reference>
17-- /See:/ <https://developers.google.com/appengine/docs/python/taskqueue/rest TaskQueue API Reference>
18module Network.Google.AppEngineTaskQueue
18module Network.Google.AppEngineTaskQueue
gogol-appengine/gen/Network/Google/AppEngine.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | The Google App Engine Admin API enables developers to provision and
15+-- | The Google App Engine Admin API enables developers to provision and
16-- manage their App Engine applications.
16-- manage their App Engine applications.
17--
17--
18-- /See:/ <https://developers.google.com/appengine/ Google App Engine Admin API Reference>
18-- /See:/ <https://developers.google.com/appengine/ Google App Engine Admin API Reference>
gogol-apps-activity/gen/Network/Google/AppsActivity.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Provides a historical view of activity.
15+-- | Provides a historical view of activity.
16--
16--
17-- /See:/ <https://developers.google.com/google-apps/activity/ Google Apps Activity API Reference>
17-- /See:/ <https://developers.google.com/google-apps/activity/ Google Apps Activity API Reference>
18module Network.Google.AppsActivity
18module Network.Google.AppsActivity
gogol-apps-activity/gen/Network/Google/AppsActivity/Types/Sum.hs+45−45
@@ -19,27 +19,27 @@ import Network.Google.Prelude
19
19
20-- | The main type of event that occurred.
20-- | The main type of event that occurred.
21data EventPrimaryEventType
21data EventPrimaryEventType
22− = Comment
22+ = EPETComment
23 -- ^ @comment@
23 -- ^ @comment@
24− | Create
24+ | EPETCreate
25 -- ^ @create@
25 -- ^ @create@
26− | Edit
26+ | EPETEdit
27 -- ^ @edit@
27 -- ^ @edit@
28− | EmptyTrash
28+ | EPETEmptyTrash
29 -- ^ @emptyTrash@
29 -- ^ @emptyTrash@
30− | Move
30+ | EPETMove
31 -- ^ @move@
31 -- ^ @move@
32− | PermissionChange
32+ | EPETPermissionChange
33 -- ^ @permissionChange@
33 -- ^ @permissionChange@
34− | Rename
34+ | EPETRename
35 -- ^ @rename@
35 -- ^ @rename@
36− | Trash
36+ | EPETTrash
37 -- ^ @trash@
37 -- ^ @trash@
38− | Unknown
38+ | EPETUnknown
39 -- ^ @unknown@
39 -- ^ @unknown@
40− | Untrash
40+ | EPETUntrash
41 -- ^ @untrash@
41 -- ^ @untrash@
42− | Upload
42+ | EPETUpload
43 -- ^ @upload@
43 -- ^ @upload@
44 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
44 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
45
45
@@ -47,32 +47,32 @@ instance Hashable EventPrimaryEventType
47
47
48instance FromText EventPrimaryEventType where
48instance FromText EventPrimaryEventType where
49 fromText = \case
49 fromText = \case
50− "comment" -> Just Comment
50+ "comment" -> Just EPETComment
51− "create" -> Just Create
51+ "create" -> Just EPETCreate
52− "edit" -> Just Edit
52+ "edit" -> Just EPETEdit
53− "emptyTrash" -> Just EmptyTrash
53+ "emptyTrash" -> Just EPETEmptyTrash
54− "move" -> Just Move
54+ "move" -> Just EPETMove
55− "permissionChange" -> Just PermissionChange
55+ "permissionChange" -> Just EPETPermissionChange
56− "rename" -> Just Rename
56+ "rename" -> Just EPETRename
57− "trash" -> Just Trash
57+ "trash" -> Just EPETTrash
58− "unknown" -> Just Unknown
58+ "unknown" -> Just EPETUnknown
59− "untrash" -> Just Untrash
59+ "untrash" -> Just EPETUntrash
60− "upload" -> Just Upload
60+ "upload" -> Just EPETUpload
61 _ -> Nothing
61 _ -> Nothing
62
62
63instance ToText EventPrimaryEventType where
63instance ToText EventPrimaryEventType where
64 toText = \case
64 toText = \case
65− Comment -> "comment"
65+ EPETComment -> "comment"
66− Create -> "create"
66+ EPETCreate -> "create"
67− Edit -> "edit"
67+ EPETEdit -> "edit"
68− EmptyTrash -> "emptyTrash"
68+ EPETEmptyTrash -> "emptyTrash"
69− Move -> "move"
69+ EPETMove -> "move"
70− PermissionChange -> "permissionChange"
70+ EPETPermissionChange -> "permissionChange"
71− Rename -> "rename"
71+ EPETRename -> "rename"
72− Trash -> "trash"
72+ EPETTrash -> "trash"
73− Unknown -> "unknown"
73+ EPETUnknown -> "unknown"
74− Untrash -> "untrash"
74+ EPETUntrash -> "untrash"
75− Upload -> "upload"
75+ EPETUpload -> "upload"
76
76
77instance FromJSON EventPrimaryEventType where
77instance FromJSON EventPrimaryEventType where
78 parseJSON = parseJSONText "EventPrimaryEventType"
78 parseJSON = parseJSONText "EventPrimaryEventType"
@@ -208,13 +208,13 @@ instance ToJSON AppsactivityActivitiesListGroupingStrategy where
208
208
209-- | Indicates how widely permissions are granted.
209-- | Indicates how widely permissions are granted.
210data PermissionType
210data PermissionType
211− = Anyone
211+ = PTAnyone
212 -- ^ @anyone@
212 -- ^ @anyone@
213− | Domain
213+ | PTDomain
214 -- ^ @domain@
214 -- ^ @domain@
215− | Group
215+ | PTGroup
216 -- ^ @group@
216 -- ^ @group@
217− | User
217+ | PTUser
218 -- ^ @user@
218 -- ^ @user@
219 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
219 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
220
220
@@ -222,18 +222,18 @@ instance Hashable PermissionType
222
222
223instance FromText PermissionType where
223instance FromText PermissionType where
224 fromText = \case
224 fromText = \case
225− "anyone" -> Just Anyone
225+ "anyone" -> Just PTAnyone
226− "domain" -> Just Domain
226+ "domain" -> Just PTDomain
227− "group" -> Just Group
227+ "group" -> Just PTGroup
228− "user" -> Just User
228+ "user" -> Just PTUser
229 _ -> Nothing
229 _ -> Nothing
230
230
231instance ToText PermissionType where
231instance ToText PermissionType where
232 toText = \case
232 toText = \case
233− Anyone -> "anyone"
233+ PTAnyone -> "anyone"
234− Domain -> "domain"
234+ PTDomain -> "domain"
235− Group -> "group"
235+ PTGroup -> "group"
236− User -> "user"
236+ PTUser -> "user"
237
237
238instance FromJSON PermissionType where
238instance FromJSON PermissionType where
239 parseJSON = parseJSONText "PermissionType"
239 parseJSON = parseJSONText "PermissionType"
gogol-apps-calendar/gen/Network/Google/AppsCalendar.hs+8−8
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets you manipulate events and other calendar data.
15+-- | Lets you manipulate events and other calendar data.
16--
16--
17-- /See:/ <https://developers.google.com/google-apps/calendar/firstapp Calendar API Reference>
17-- /See:/ <https://developers.google.com/google-apps/calendar/firstapp Calendar API Reference>
18module Network.Google.AppsCalendar
18module Network.Google.AppsCalendar
@@ -564,13 +564,13 @@ type AppsCalendarAPI =
564 :<|> CalendarListDeleteResource
564 :<|> CalendarListDeleteResource
565 :<|> CalendarListUpdateResource
565 :<|> CalendarListUpdateResource
566 :<|> CalendarListWatchResource
566 :<|> CalendarListWatchResource
567− :<|> AclInsertResource
567+ :<|> ACLInsertResource
568− :<|> AclListResource
568+ :<|> ACLListResource
569− :<|> AclPatchResource
569+ :<|> ACLPatchResource
570− :<|> AclGetResource
570+ :<|> ACLGetResource
571− :<|> AclDeleteResource
571+ :<|> ACLDeleteResource
572− :<|> AclUpdateResource
572+ :<|> ACLUpdateResource
573− :<|> AclWatchResource
573+ :<|> ACLWatchResource
574 :<|> ColorsGetResource
574 :<|> ColorsGetResource
575 :<|> FreeBusyQueryResource
575 :<|> FreeBusyQueryResource
576
576
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/Delete.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.Calendar.ACL.Delete
23module Network.Google.Resource.Calendar.ACL.Delete
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− AclDeleteResource
26+ ACLDeleteResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , aCLDelete'
29 , aCLDelete'
@@ -45,7 +45,7 @@ import Network.Google.Prelude
45
45
46-- | A resource alias for @CalendarACLDelete@ which the
46-- | A resource alias for @CalendarACLDelete@ which the
47-- 'ACLDelete'' request conforms to.
47-- 'ACLDelete'' request conforms to.
48−type AclDeleteResource =
48+type ACLDeleteResource =
49 "calendars" :>
49 "calendars" :>
50 Capture "calendarId" Text :>
50 Capture "calendarId" Text :>
51 "acl" :>
51 "acl" :>
@@ -167,6 +167,6 @@ instance GoogleRequest ACLDelete' where
167 _adFields
167 _adFields
168 (Just AltJSON)
168 (Just AltJSON)
169 where go
169 where go
170− = clientWithRoute (Proxy :: Proxy AclDeleteResource)
170+ = clientWithRoute (Proxy :: Proxy ACLDeleteResource)
171 r
171 r
172 u
172 u
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/Get.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.Calendar.ACL.Get
23module Network.Google.Resource.Calendar.ACL.Get
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− AclGetResource
26+ ACLGetResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , aCLGet'
29 , aCLGet'
@@ -45,7 +45,7 @@ import Network.Google.Prelude
45
45
46-- | A resource alias for @CalendarACLGet@ which the
46-- | A resource alias for @CalendarACLGet@ which the
47-- 'ACLGet'' request conforms to.
47-- 'ACLGet'' request conforms to.
48−type AclGetResource =
48+type ACLGetResource =
49 "calendars" :>
49 "calendars" :>
50 Capture "calendarId" Text :>
50 Capture "calendarId" Text :>
51 "acl" :>
51 "acl" :>
@@ -167,4 +167,4 @@ instance GoogleRequest ACLGet' where
167 _agFields
167 _agFields
168 (Just AltJSON)
168 (Just AltJSON)
169 where go
169 where go
170− = clientWithRoute (Proxy :: Proxy AclGetResource) r u
170+ = clientWithRoute (Proxy :: Proxy ACLGetResource) r u
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/Insert.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.Calendar.ACL.Insert
23module Network.Google.Resource.Calendar.ACL.Insert
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− AclInsertResource
26+ ACLInsertResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , aCLInsert'
29 , aCLInsert'
@@ -45,7 +45,7 @@ import Network.Google.Prelude
45
45
46-- | A resource alias for @CalendarACLInsert@ which the
46-- | A resource alias for @CalendarACLInsert@ which the
47-- 'ACLInsert'' request conforms to.
47-- 'ACLInsert'' request conforms to.
48−type AclInsertResource =
48+type ACLInsertResource =
49 "calendars" :>
49 "calendars" :>
50 Capture "calendarId" Text :>
50 Capture "calendarId" Text :>
51 "acl" :>
51 "acl" :>
@@ -168,6 +168,6 @@ instance GoogleRequest ACLInsert' where
168 (Just AltJSON)
168 (Just AltJSON)
169 _aiACLRule
169 _aiACLRule
170 where go
170 where go
171− = clientWithRoute (Proxy :: Proxy AclInsertResource)
171+ = clientWithRoute (Proxy :: Proxy ACLInsertResource)
172 r
172 r
173 u
173 u
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/List.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.Calendar.ACL.List
23module Network.Google.Resource.Calendar.ACL.List
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− AclListResource
26+ ACLListResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , aCLList'
29 , aCLList'
@@ -48,7 +48,7 @@ import Network.Google.Prelude
48
48
49-- | A resource alias for @CalendarACLList@ which the
49-- | A resource alias for @CalendarACLList@ which the
50-- 'ACLList'' request conforms to.
50-- 'ACLList'' request conforms to.
51−type AclListResource =
51+type ACLListResource =
52 "calendars" :>
52 "calendars" :>
53 Capture "calendarId" Text :>
53 Capture "calendarId" Text :>
54 "acl" :>
54 "acl" :>
@@ -216,5 +216,5 @@ instance GoogleRequest ACLList' where
216 _alFields
216 _alFields
217 (Just AltJSON)
217 (Just AltJSON)
218 where go
218 where go
219− = clientWithRoute (Proxy :: Proxy AclListResource) r
219+ = clientWithRoute (Proxy :: Proxy ACLListResource) r
220 u
220 u
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/Patch.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.Calendar.ACL.Patch
23module Network.Google.Resource.Calendar.ACL.Patch
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− AclPatchResource
26+ ACLPatchResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , aCLPatch'
29 , aCLPatch'
@@ -46,7 +46,7 @@ import Network.Google.Prelude
46
46
47-- | A resource alias for @CalendarACLPatch@ which the
47-- | A resource alias for @CalendarACLPatch@ which the
48-- 'ACLPatch'' request conforms to.
48-- 'ACLPatch'' request conforms to.
49−type AclPatchResource =
49+type ACLPatchResource =
50 "calendars" :>
50 "calendars" :>
51 Capture "calendarId" Text :>
51 Capture "calendarId" Text :>
52 "acl" :>
52 "acl" :>
@@ -180,5 +180,5 @@ instance GoogleRequest ACLPatch' where
180 (Just AltJSON)
180 (Just AltJSON)
181 _apACLRule
181 _apACLRule
182 where go
182 where go
183− = clientWithRoute (Proxy :: Proxy AclPatchResource) r
183+ = clientWithRoute (Proxy :: Proxy ACLPatchResource) r
184 u
184 u
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/Update.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.Calendar.ACL.Update
23module Network.Google.Resource.Calendar.ACL.Update
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− AclUpdateResource
26+ ACLUpdateResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , aCLUpdate'
29 , aCLUpdate'
@@ -46,7 +46,7 @@ import Network.Google.Prelude
46
46
47-- | A resource alias for @CalendarACLUpdate@ which the
47-- | A resource alias for @CalendarACLUpdate@ which the
48-- 'ACLUpdate'' request conforms to.
48-- 'ACLUpdate'' request conforms to.
49−type AclUpdateResource =
49+type ACLUpdateResource =
50 "calendars" :>
50 "calendars" :>
51 Capture "calendarId" Text :>
51 Capture "calendarId" Text :>
52 "acl" :>
52 "acl" :>
@@ -180,6 +180,6 @@ instance GoogleRequest ACLUpdate' where
180 (Just AltJSON)
180 (Just AltJSON)
181 _auACLRule
181 _auACLRule
182 where go
182 where go
183− = clientWithRoute (Proxy :: Proxy AclUpdateResource)
183+ = clientWithRoute (Proxy :: Proxy ACLUpdateResource)
184 r
184 r
185 u
185 u
gogol-apps-calendar/gen/Network/Google/Resource/Calendar/ACL/Watch.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.Calendar.ACL.Watch
23module Network.Google.Resource.Calendar.ACL.Watch
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− AclWatchResource
26+ ACLWatchResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , aCLWatch'
29 , aCLWatch'
@@ -49,7 +49,7 @@ import Network.Google.Prelude
49
49
50-- | A resource alias for @CalendarACLWatch@ which the
50-- | A resource alias for @CalendarACLWatch@ which the
51-- 'ACLWatch'' request conforms to.
51-- 'ACLWatch'' request conforms to.
52−type AclWatchResource =
52+type ACLWatchResource =
53 "calendars" :>
53 "calendars" :>
54 Capture "calendarId" Text :>
54 Capture "calendarId" Text :>
55 "acl" :>
55 "acl" :>
@@ -231,5 +231,5 @@ instance GoogleRequest ACLWatch' where
231 (Just AltJSON)
231 (Just AltJSON)
232 _awChannel
232 _awChannel
233 where go
233 where go
234− = clientWithRoute (Proxy :: Proxy AclWatchResource) r
234+ = clientWithRoute (Proxy :: Proxy ACLWatchResource) r
235 u
235 u
gogol-apps-licensing/gen/Network/Google/AppsLicensing.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Licensing API to view and manage license for your domain.
15+-- | Licensing API to view and manage license for your domain.
16--
16--
17-- /See:/ <https://developers.google.com/google-apps/licensing/ Enterprise License Manager API Reference>
17-- /See:/ <https://developers.google.com/google-apps/licensing/ Enterprise License Manager API Reference>
18module Network.Google.AppsLicensing
18module Network.Google.AppsLicensing
gogol-apps-reseller/gen/Network/Google/AppsReseller.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets you create and manage your customers and their subscriptions.
15+-- | Lets you create and manage your customers and their subscriptions.
16--
16--
17-- /See:/ <https://developers.google.com/google-apps/reseller/ Enterprise Apps Reseller API Reference>
17-- /See:/ <https://developers.google.com/google-apps/reseller/ Enterprise Apps Reseller API Reference>
18module Network.Google.AppsReseller
18module Network.Google.AppsReseller
gogol-apps-tasks/gen/Network/Google/AppsTasks.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets you manage your tasks and task lists.
15+-- | Lets you manage your tasks and task lists.
16--
16--
17-- /See:/ <https://developers.google.com/google-apps/tasks/firstapp Tasks API Reference>
17-- /See:/ <https://developers.google.com/google-apps/tasks/firstapp Tasks API Reference>
18module Network.Google.AppsTasks
18module Network.Google.AppsTasks
gogol-autoscaler/gen/Network/Google/Autoscaler.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | The Google Compute Engine Autoscaler API provides autoscaling for groups
15+-- | The Google Compute Engine Autoscaler API provides autoscaling for groups
16-- of Cloud VMs.
16-- of Cloud VMs.
17--
17--
18-- /See:/ <http://developers.google.com/compute/docs/autoscaler Google Compute Engine Autoscaler API Reference>
18-- /See:/ <http://developers.google.com/compute/docs/autoscaler Google Compute Engine Autoscaler API Reference>
gogol-bigquery/gen/Network/Google/BigQuery.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | A data platform for customers to create, manage, share and query data.
15+-- | A data platform for customers to create, manage, share and query data.
16--
16--
17-- /See:/ <https://cloud.google.com/bigquery/ BigQuery API Reference>
17-- /See:/ <https://cloud.google.com/bigquery/ BigQuery API Reference>
18module Network.Google.BigQuery
18module Network.Google.BigQuery
gogol-billing/gen/Network/Google/Billing.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Retrieves Google Developers Console billing accounts and associates them
15+-- | Retrieves Google Developers Console billing accounts and associates them
16-- with projects.
16-- with projects.
17--
17--
18-- /See:/ <https://cloud.google.com/billing/ Google Cloud Billing API Reference>
18-- /See:/ <https://cloud.google.com/billing/ Google Cloud Billing API Reference>
gogol-blogger/gen/Network/Google/Blogger.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | API for access to the data within Blogger.
15+-- | API for access to the data within Blogger.
16--
16--
17-- /See:/ <https://developers.google.com/blogger/docs/3.0/getting_started Blogger API Reference>
17-- /See:/ <https://developers.google.com/blogger/docs/3.0/getting_started Blogger API Reference>
18module Network.Google.Blogger
18module Network.Google.Blogger
gogol-books/gen/Network/Google/Books.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets you search for books and manage your Google Books library.
15+-- | Lets you search for books and manage your Google Books library.
16--
16--
17-- /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference>
17-- /See:/ <https://developers.google.com/books/docs/v1/getting_started Books API Reference>
18module Network.Google.Books
18module Network.Google.Books
gogol-civicinfo/gen/Network/Google/CivicInfo.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | An API for accessing civic information.
15+-- | An API for accessing civic information.
16--
16--
17-- /See:/ <https://developers.google.com/civic-information Google Civic Information API Reference>
17-- /See:/ <https://developers.google.com/civic-information Google Civic Information API Reference>
18module Network.Google.CivicInfo
18module Network.Google.CivicInfo
gogol-classroom/gen/Network/Google/Classroom.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Google Classroom API
15+-- | Google Classroom API
16--
16--
17-- /See:/ <https://developers.google.com/classroom/ Google Classroom API Reference>
17-- /See:/ <https://developers.google.com/classroom/ Google Classroom API Reference>
18module Network.Google.Classroom
18module Network.Google.Classroom
gogol-compute/gen/Network/Google/Compute.hs+19−19
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | API for the Google Compute Engine service.
15+-- | API for the Google Compute Engine service.
16--
16--
17-- /See:/ <https://developers.google.com/compute/docs/reference/latest/ Compute Engine API Reference>
17-- /See:/ <https://developers.google.com/compute/docs/reference/latest/ Compute Engine API Reference>
18module Network.Google.Compute
18module Network.Google.Compute
@@ -2462,13 +2462,13 @@ type ComputeAPI =
2462 ImagesGetResource
2462 ImagesGetResource
2463 :<|> ImagesDeprecateResource
2463 :<|> ImagesDeprecateResource
2464 :<|> ImagesDeleteResource
2464 :<|> ImagesDeleteResource
2465− :<|> UrlMapsInsertResource
2465+ :<|> URLMapsInsertResource
2466− :<|> UrlMapsListResource
2466+ :<|> URLMapsListResource
2467− :<|> UrlMapsPatchResource
2467+ :<|> URLMapsPatchResource
2468− :<|> UrlMapsGetResource
2468+ :<|> URLMapsGetResource
2469− :<|> UrlMapsValidateResource
2469+ :<|> URLMapsValidateResource
2470− :<|> UrlMapsDeleteResource
2470+ :<|> URLMapsDeleteResource
2471− :<|> UrlMapsUpdateResource
2471+ :<|> URLMapsUpdateResource
2472 :<|> InstanceTemplatesInsertResource
2472 :<|> InstanceTemplatesInsertResource
2473 :<|> InstanceTemplatesListResource
2473 :<|> InstanceTemplatesListResource
2474 :<|> InstanceTemplatesGetResource
2474 :<|> InstanceTemplatesGetResource
@@ -2498,11 +2498,11 @@ type ComputeAPI =
2498 :<|> AddressesListResource
2498 :<|> AddressesListResource
2499 :<|> AddressesGetResource
2499 :<|> AddressesGetResource
2500 :<|> AddressesDeleteResource
2500 :<|> AddressesDeleteResource
2501− :<|> VpnTunnelsAggregatedListResource
2501+ :<|> VPNTunnelsAggregatedListResource
2502− :<|> VpnTunnelsInsertResource
2502+ :<|> VPNTunnelsInsertResource
2503− :<|> VpnTunnelsListResource
2503+ :<|> VPNTunnelsListResource
2504− :<|> VpnTunnelsGetResource
2504+ :<|> VPNTunnelsGetResource
2505− :<|> VpnTunnelsDeleteResource
2505+ :<|> VPNTunnelsDeleteResource
2506 :<|> RegionsListResource
2506 :<|> RegionsListResource
2507 :<|> RegionsGetResource
2507 :<|> RegionsGetResource
2508 :<|> GlobalAddressesInsertResource
2508 :<|> GlobalAddressesInsertResource
@@ -2530,12 +2530,12 @@ type ComputeAPI =
2530 :<|> MachineTypesAggregatedListResource
2530 :<|> MachineTypesAggregatedListResource
2531 :<|> MachineTypesListResource
2531 :<|> MachineTypesListResource
2532 :<|> MachineTypesGetResource
2532 :<|> MachineTypesGetResource
2533− :<|> HttpHealthChecksInsertResource
2533+ :<|> HTTPHealthChecksInsertResource
2534− :<|> HttpHealthChecksListResource
2534+ :<|> HTTPHealthChecksListResource
2535− :<|> HttpHealthChecksPatchResource
2535+ :<|> HTTPHealthChecksPatchResource
2536− :<|> HttpHealthChecksGetResource
2536+ :<|> HTTPHealthChecksGetResource
2537− :<|> HttpHealthChecksDeleteResource
2537+ :<|> HTTPHealthChecksDeleteResource
2538− :<|> HttpHealthChecksUpdateResource
2538+ :<|> HTTPHealthChecksUpdateResource
2539 :<|> SnapshotsListResource
2539 :<|> SnapshotsListResource
2540 :<|> SnapshotsGetResource
2540 :<|> SnapshotsGetResource
2541 :<|> SnapshotsDeleteResource
2541 :<|> SnapshotsDeleteResource
gogol-compute/gen/Network/Google/Resource/Compute/HTTPHealthChecks/Delete.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.Compute.HTTPHealthChecks.Delete
23module Network.Google.Resource.Compute.HTTPHealthChecks.Delete
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− HttpHealthChecksDeleteResource
26+ HTTPHealthChecksDeleteResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , hTTPHealthChecksDelete'
29 , hTTPHealthChecksDelete'
@@ -45,7 +45,7 @@ import Network.Google.Prelude
45
45
46-- | A resource alias for @ComputeHTTPHealthChecksDelete@ which the
46-- | A resource alias for @ComputeHTTPHealthChecksDelete@ which the
47-- 'HTTPHealthChecksDelete'' request conforms to.
47-- 'HTTPHealthChecksDelete'' request conforms to.
48−type HttpHealthChecksDeleteResource =
48+type HTTPHealthChecksDeleteResource =
49 Capture "project" Text :>
49 Capture "project" Text :>
50 "global" :>
50 "global" :>
51 "httpHealthChecks" :>
51 "httpHealthChecks" :>
@@ -177,6 +177,6 @@ instance GoogleRequest HTTPHealthChecksDelete' where
177 (Just AltJSON)
177 (Just AltJSON)
178 where go
178 where go
179 = clientWithRoute
179 = clientWithRoute
180− (Proxy :: Proxy HttpHealthChecksDeleteResource)
180+ (Proxy :: Proxy HTTPHealthChecksDeleteResource)
181 r
181 r
182 u
182 u
gogol-compute/gen/Network/Google/Resource/Compute/HTTPHealthChecks/Get.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.Compute.HTTPHealthChecks.Get
23module Network.Google.Resource.Compute.HTTPHealthChecks.Get
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− HttpHealthChecksGetResource
26+ HTTPHealthChecksGetResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , hTTPHealthChecksGet'
29 , hTTPHealthChecksGet'
@@ -45,7 +45,7 @@ import Network.Google.Prelude
45
45
46-- | A resource alias for @ComputeHTTPHealthChecksGet@ which the
46-- | A resource alias for @ComputeHTTPHealthChecksGet@ which the
47-- 'HTTPHealthChecksGet'' request conforms to.
47-- 'HTTPHealthChecksGet'' request conforms to.
48−type HttpHealthChecksGetResource =
48+type HTTPHealthChecksGetResource =
49 Capture "project" Text :>
49 Capture "project" Text :>
50 "global" :>
50 "global" :>
51 "httpHealthChecks" :>
51 "httpHealthChecks" :>
@@ -178,6 +178,6 @@ instance GoogleRequest HTTPHealthChecksGet' where
178 (Just AltJSON)
178 (Just AltJSON)
179 where go
179 where go
180 = clientWithRoute
180 = clientWithRoute
181− (Proxy :: Proxy HttpHealthChecksGetResource)
181+ (Proxy :: Proxy HTTPHealthChecksGetResource)
182 r
182 r
183 u
183 u
gogol-compute/gen/Network/Google/Resource/Compute/HTTPHealthChecks/Insert.hs+3−3
@@ -24,7 +24,7 @@
24module Network.Google.Resource.Compute.HTTPHealthChecks.Insert
24module Network.Google.Resource.Compute.HTTPHealthChecks.Insert
25 (
25 (
26 -- * REST Resource
26 -- * REST Resource
27− HttpHealthChecksInsertResource
27+ HTTPHealthChecksInsertResource
28
28
29 -- * Creating a Request
29 -- * Creating a Request
30 , hTTPHealthChecksInsert'
30 , hTTPHealthChecksInsert'
@@ -46,7 +46,7 @@ import Network.Google.Prelude
46
46
47-- | A resource alias for @ComputeHTTPHealthChecksInsert@ which the
47-- | A resource alias for @ComputeHTTPHealthChecksInsert@ which the
48-- 'HTTPHealthChecksInsert'' request conforms to.
48-- 'HTTPHealthChecksInsert'' request conforms to.
49−type HttpHealthChecksInsertResource =
49+type HTTPHealthChecksInsertResource =
50 Capture "project" Text :>
50 Capture "project" Text :>
51 "global" :>
51 "global" :>
52 "httpHealthChecks" :>
52 "httpHealthChecks" :>
@@ -180,6 +180,6 @@ instance GoogleRequest HTTPHealthChecksInsert' where
180 _httphciHTTPHealthCheck
180 _httphciHTTPHealthCheck
181 where go
181 where go
182 = clientWithRoute
182 = clientWithRoute
183− (Proxy :: Proxy HttpHealthChecksInsertResource)
183+ (Proxy :: Proxy HTTPHealthChecksInsertResource)
184 r
184 r
185 u
185 u
gogol-compute/gen/Network/Google/Resource/Compute/HTTPHealthChecks/List.hs+3−3
@@ -24,7 +24,7 @@
24module Network.Google.Resource.Compute.HTTPHealthChecks.List
24module Network.Google.Resource.Compute.HTTPHealthChecks.List
25 (
25 (
26 -- * REST Resource
26 -- * REST Resource
27− HttpHealthChecksListResource
27+ HTTPHealthChecksListResource
28
28
29 -- * Creating a Request
29 -- * Creating a Request
30 , hTTPHealthChecksList'
30 , hTTPHealthChecksList'
@@ -48,7 +48,7 @@ import Network.Google.Prelude
48
48
49-- | A resource alias for @ComputeHTTPHealthChecksList@ which the
49-- | A resource alias for @ComputeHTTPHealthChecksList@ which the
50-- 'HTTPHealthChecksList'' request conforms to.
50-- 'HTTPHealthChecksList'' request conforms to.
51−type HttpHealthChecksListResource =
51+type HTTPHealthChecksListResource =
52 Capture "project" Text :>
52 Capture "project" Text :>
53 "global" :>
53 "global" :>
54 "httpHealthChecks" :>
54 "httpHealthChecks" :>
@@ -217,6 +217,6 @@ instance GoogleRequest HTTPHealthChecksList' where
217 (Just AltJSON)
217 (Just AltJSON)
218 where go
218 where go
219 = clientWithRoute
219 = clientWithRoute
220− (Proxy :: Proxy HttpHealthChecksListResource)
220+ (Proxy :: Proxy HTTPHealthChecksListResource)
221 r
221 r
222 u
222 u
gogol-compute/gen/Network/Google/Resource/Compute/HTTPHealthChecks/Patch.hs+3−3
@@ -24,7 +24,7 @@
24module Network.Google.Resource.Compute.HTTPHealthChecks.Patch
24module Network.Google.Resource.Compute.HTTPHealthChecks.Patch
25 (
25 (
26 -- * REST Resource
26 -- * REST Resource
27− HttpHealthChecksPatchResource
27+ HTTPHealthChecksPatchResource
28
28
29 -- * Creating a Request
29 -- * Creating a Request
30 , hTTPHealthChecksPatch'
30 , hTTPHealthChecksPatch'
@@ -47,7 +47,7 @@ import Network.Google.Prelude
47
47
48-- | A resource alias for @ComputeHTTPHealthChecksPatch@ which the
48-- | A resource alias for @ComputeHTTPHealthChecksPatch@ which the
49-- 'HTTPHealthChecksPatch'' request conforms to.
49-- 'HTTPHealthChecksPatch'' request conforms to.
50−type HttpHealthChecksPatchResource =
50+type HTTPHealthChecksPatchResource =
51 Capture "project" Text :>
51 Capture "project" Text :>
52 "global" :>
52 "global" :>
53 "httpHealthChecks" :>
53 "httpHealthChecks" :>
@@ -194,6 +194,6 @@ instance GoogleRequest HTTPHealthChecksPatch' where
194 _httphcpHTTPHealthCheck
194 _httphcpHTTPHealthCheck
195 where go
195 where go
196 = clientWithRoute
196 = clientWithRoute
197− (Proxy :: Proxy HttpHealthChecksPatchResource)
197+ (Proxy :: Proxy HTTPHealthChecksPatchResource)
198 r
198 r
199 u
199 u
gogol-compute/gen/Network/Google/Resource/Compute/HTTPHealthChecks/Update.hs+3−3
@@ -24,7 +24,7 @@
24module Network.Google.Resource.Compute.HTTPHealthChecks.Update
24module Network.Google.Resource.Compute.HTTPHealthChecks.Update
25 (
25 (
26 -- * REST Resource
26 -- * REST Resource
27− HttpHealthChecksUpdateResource
27+ HTTPHealthChecksUpdateResource
28
28
29 -- * Creating a Request
29 -- * Creating a Request
30 , hTTPHealthChecksUpdate'
30 , hTTPHealthChecksUpdate'
@@ -47,7 +47,7 @@ import Network.Google.Prelude
47
47
48-- | A resource alias for @ComputeHTTPHealthChecksUpdate@ which the
48-- | A resource alias for @ComputeHTTPHealthChecksUpdate@ which the
49-- 'HTTPHealthChecksUpdate'' request conforms to.
49-- 'HTTPHealthChecksUpdate'' request conforms to.
50−type HttpHealthChecksUpdateResource =
50+type HTTPHealthChecksUpdateResource =
51 Capture "project" Text :>
51 Capture "project" Text :>
52 "global" :>
52 "global" :>
53 "httpHealthChecks" :>
53 "httpHealthChecks" :>
@@ -194,6 +194,6 @@ instance GoogleRequest HTTPHealthChecksUpdate' where
194 _httphcuHTTPHealthCheck
194 _httphcuHTTPHealthCheck
195 where go
195 where go
196 = clientWithRoute
196 = clientWithRoute
197− (Proxy :: Proxy HttpHealthChecksUpdateResource)
197+ (Proxy :: Proxy HTTPHealthChecksUpdateResource)
198 r
198 r
199 u
199 u
gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/Delete.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.Compute.URLMaps.Delete
23module Network.Google.Resource.Compute.URLMaps.Delete
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− UrlMapsDeleteResource
26+ URLMapsDeleteResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , uRLMapsDelete'
29 , uRLMapsDelete'
@@ -45,7 +45,7 @@ import Network.Google.Prelude
45
45
46-- | A resource alias for @ComputeURLMapsDelete@ which the
46-- | A resource alias for @ComputeURLMapsDelete@ which the
47-- 'URLMapsDelete'' request conforms to.
47-- 'URLMapsDelete'' request conforms to.
48−type UrlMapsDeleteResource =
48+type URLMapsDeleteResource =
49 Capture "project" Text :>
49 Capture "project" Text :>
50 "global" :>
50 "global" :>
51 "urlMaps" :>
51 "urlMaps" :>
@@ -170,6 +170,6 @@ instance GoogleRequest URLMapsDelete' where
170 (Just AltJSON)
170 (Just AltJSON)
171 where go
171 where go
172 = clientWithRoute
172 = clientWithRoute
173− (Proxy :: Proxy UrlMapsDeleteResource)
173+ (Proxy :: Proxy URLMapsDeleteResource)
174 r
174 r
175 u
175 u
gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/Get.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.Compute.URLMaps.Get
23module Network.Google.Resource.Compute.URLMaps.Get
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− UrlMapsGetResource
26+ URLMapsGetResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , uRLMapsGet'
29 , uRLMapsGet'
@@ -45,7 +45,7 @@ import Network.Google.Prelude
45
45
46-- | A resource alias for @ComputeURLMapsGet@ which the
46-- | A resource alias for @ComputeURLMapsGet@ which the
47-- 'URLMapsGet'' request conforms to.
47-- 'URLMapsGet'' request conforms to.
48−type UrlMapsGetResource =
48+type URLMapsGetResource =
49 Capture "project" Text :>
49 Capture "project" Text :>
50 "global" :>
50 "global" :>
51 "urlMaps" :>
51 "urlMaps" :>
@@ -169,6 +169,6 @@ instance GoogleRequest URLMapsGet' where
169 _umgFields
169 _umgFields
170 (Just AltJSON)
170 (Just AltJSON)
171 where go
171 where go
172− = clientWithRoute (Proxy :: Proxy UrlMapsGetResource)
172+ = clientWithRoute (Proxy :: Proxy URLMapsGetResource)
173 r
173 r
174 u
174 u
gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/Insert.hs+3−3
@@ -24,7 +24,7 @@
24module Network.Google.Resource.Compute.URLMaps.Insert
24module Network.Google.Resource.Compute.URLMaps.Insert
25 (
25 (
26 -- * REST Resource
26 -- * REST Resource
27− UrlMapsInsertResource
27+ URLMapsInsertResource
28
28
29 -- * Creating a Request
29 -- * Creating a Request
30 , uRLMapsInsert'
30 , uRLMapsInsert'
@@ -46,7 +46,7 @@ import Network.Google.Prelude
46
46
47-- | A resource alias for @ComputeURLMapsInsert@ which the
47-- | A resource alias for @ComputeURLMapsInsert@ which the
48-- 'URLMapsInsert'' request conforms to.
48-- 'URLMapsInsert'' request conforms to.
49−type UrlMapsInsertResource =
49+type URLMapsInsertResource =
50 Capture "project" Text :>
50 Capture "project" Text :>
51 "global" :>
51 "global" :>
52 "urlMaps" :>
52 "urlMaps" :>
@@ -172,6 +172,6 @@ instance GoogleRequest URLMapsInsert' where
172 _umiURLMap
172 _umiURLMap
173 where go
173 where go
174 = clientWithRoute
174 = clientWithRoute
175− (Proxy :: Proxy UrlMapsInsertResource)
175+ (Proxy :: Proxy URLMapsInsertResource)
176 r
176 r
177 u
177 u
gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/List.hs+3−3
@@ -24,7 +24,7 @@
24module Network.Google.Resource.Compute.URLMaps.List
24module Network.Google.Resource.Compute.URLMaps.List
25 (
25 (
26 -- * REST Resource
26 -- * REST Resource
27− UrlMapsListResource
27+ URLMapsListResource
28
28
29 -- * Creating a Request
29 -- * Creating a Request
30 , uRLMapsList'
30 , uRLMapsList'
@@ -48,7 +48,7 @@ import Network.Google.Prelude
48
48
49-- | A resource alias for @ComputeURLMapsList@ which the
49-- | A resource alias for @ComputeURLMapsList@ which the
50-- 'URLMapsList'' request conforms to.
50-- 'URLMapsList'' request conforms to.
51−type UrlMapsListResource =
51+type URLMapsListResource =
52 Capture "project" Text :>
52 Capture "project" Text :>
53 "global" :>
53 "global" :>
54 "urlMaps" :>
54 "urlMaps" :>
@@ -208,6 +208,6 @@ instance GoogleRequest URLMapsList' where
208 (Just AltJSON)
208 (Just AltJSON)
209 where go
209 where go
210 = clientWithRoute
210 = clientWithRoute
211− (Proxy :: Proxy UrlMapsListResource)
211+ (Proxy :: Proxy URLMapsListResource)
212 r
212 r
213 u
213 u
gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/Patch.hs+3−3
@@ -24,7 +24,7 @@
24module Network.Google.Resource.Compute.URLMaps.Patch
24module Network.Google.Resource.Compute.URLMaps.Patch
25 (
25 (
26 -- * REST Resource
26 -- * REST Resource
27− UrlMapsPatchResource
27+ URLMapsPatchResource
28
28
29 -- * Creating a Request
29 -- * Creating a Request
30 , uRLMapsPatch'
30 , uRLMapsPatch'
@@ -47,7 +47,7 @@ import Network.Google.Prelude
47
47
48-- | A resource alias for @ComputeURLMapsPatch@ which the
48-- | A resource alias for @ComputeURLMapsPatch@ which the
49-- 'URLMapsPatch'' request conforms to.
49-- 'URLMapsPatch'' request conforms to.
50−type UrlMapsPatchResource =
50+type URLMapsPatchResource =
51 Capture "project" Text :>
51 Capture "project" Text :>
52 "global" :>
52 "global" :>
53 "urlMaps" :>
53 "urlMaps" :>
@@ -185,6 +185,6 @@ instance GoogleRequest URLMapsPatch' where
185 _umpURLMap
185 _umpURLMap
186 where go
186 where go
187 = clientWithRoute
187 = clientWithRoute
188− (Proxy :: Proxy UrlMapsPatchResource)
188+ (Proxy :: Proxy URLMapsPatchResource)
189 r
189 r
190 u
190 u
gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/Update.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.Compute.URLMaps.Update
23module Network.Google.Resource.Compute.URLMaps.Update
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− UrlMapsUpdateResource
26+ URLMapsUpdateResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , uRLMapsUpdate'
29 , uRLMapsUpdate'
@@ -46,7 +46,7 @@ import Network.Google.Prelude
46
46
47-- | A resource alias for @ComputeURLMapsUpdate@ which the
47-- | A resource alias for @ComputeURLMapsUpdate@ which the
48-- 'URLMapsUpdate'' request conforms to.
48-- 'URLMapsUpdate'' request conforms to.
49−type UrlMapsUpdateResource =
49+type URLMapsUpdateResource =
50 Capture "project" Text :>
50 Capture "project" Text :>
51 "global" :>
51 "global" :>
52 "urlMaps" :>
52 "urlMaps" :>
@@ -183,6 +183,6 @@ instance GoogleRequest URLMapsUpdate' where
183 _umuURLMap
183 _umuURLMap
184 where go
184 where go
185 = clientWithRoute
185 = clientWithRoute
186− (Proxy :: Proxy UrlMapsUpdateResource)
186+ (Proxy :: Proxy URLMapsUpdateResource)
187 r
187 r
188 u
188 u
gogol-compute/gen/Network/Google/Resource/Compute/URLMaps/Validate.hs+3−3
@@ -25,7 +25,7 @@
25module Network.Google.Resource.Compute.URLMaps.Validate
25module Network.Google.Resource.Compute.URLMaps.Validate
26 (
26 (
27 -- * REST Resource
27 -- * REST Resource
28− UrlMapsValidateResource
28+ URLMapsValidateResource
29
29
30 -- * Creating a Request
30 -- * Creating a Request
31 , uRLMapsValidate'
31 , uRLMapsValidate'
@@ -48,7 +48,7 @@ import Network.Google.Prelude
48
48
49-- | A resource alias for @ComputeURLMapsValidate@ which the
49-- | A resource alias for @ComputeURLMapsValidate@ which the
50-- 'URLMapsValidate'' request conforms to.
50-- 'URLMapsValidate'' request conforms to.
51−type UrlMapsValidateResource =
51+type URLMapsValidateResource =
52 Capture "project" Text :>
52 Capture "project" Text :>
53 "global" :>
53 "global" :>
54 "urlMaps" :>
54 "urlMaps" :>
@@ -190,6 +190,6 @@ instance GoogleRequest URLMapsValidate' where
190 _umvURLMapsValidateRequest
190 _umvURLMapsValidateRequest
191 where go
191 where go
192 = clientWithRoute
192 = clientWithRoute
193− (Proxy :: Proxy UrlMapsValidateResource)
193+ (Proxy :: Proxy URLMapsValidateResource)
194 r
194 r
195 u
195 u
gogol-compute/gen/Network/Google/Resource/Compute/VPNTunnels/AggregatedList.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.Compute.VPNTunnels.AggregatedList
23module Network.Google.Resource.Compute.VPNTunnels.AggregatedList
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− VpnTunnelsAggregatedListResource
26+ VPNTunnelsAggregatedListResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , vPNTunnelsAggregatedList'
29 , vPNTunnelsAggregatedList'
@@ -47,7 +47,7 @@ import Network.Google.Prelude
47
47
48-- | A resource alias for @ComputeVPNTunnelsAggregatedList@ which the
48-- | A resource alias for @ComputeVPNTunnelsAggregatedList@ which the
49-- 'VPNTunnelsAggregatedList'' request conforms to.
49-- 'VPNTunnelsAggregatedList'' request conforms to.
50−type VpnTunnelsAggregatedListResource =
50+type VPNTunnelsAggregatedListResource =
51 Capture "project" Text :>
51 Capture "project" Text :>
52 "aggregated" :>
52 "aggregated" :>
53 "vpnTunnels" :>
53 "vpnTunnels" :>
@@ -212,6 +212,6 @@ instance GoogleRequest VPNTunnelsAggregatedList'
212 (Just AltJSON)
212 (Just AltJSON)
213 where go
213 where go
214 = clientWithRoute
214 = clientWithRoute
215− (Proxy :: Proxy VpnTunnelsAggregatedListResource)
215+ (Proxy :: Proxy VPNTunnelsAggregatedListResource)
216 r
216 r
217 u
217 u
gogol-compute/gen/Network/Google/Resource/Compute/VPNTunnels/Delete.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.Compute.VPNTunnels.Delete
23module Network.Google.Resource.Compute.VPNTunnels.Delete
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− VpnTunnelsDeleteResource
26+ VPNTunnelsDeleteResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , vPNTunnelsDelete'
29 , vPNTunnelsDelete'
@@ -46,7 +46,7 @@ import Network.Google.Prelude
46
46
47-- | A resource alias for @ComputeVPNTunnelsDelete@ which the
47-- | A resource alias for @ComputeVPNTunnelsDelete@ which the
48-- 'VPNTunnelsDelete'' request conforms to.
48-- 'VPNTunnelsDelete'' request conforms to.
49−type VpnTunnelsDeleteResource =
49+type VPNTunnelsDeleteResource =
50 Capture "project" Text :>
50 Capture "project" Text :>
51 "regions" :>
51 "regions" :>
52 Capture "region" Text :>
52 Capture "region" Text :>
@@ -183,6 +183,6 @@ instance GoogleRequest VPNTunnelsDelete' where
183 (Just AltJSON)
183 (Just AltJSON)
184 where go
184 where go
185 = clientWithRoute
185 = clientWithRoute
186− (Proxy :: Proxy VpnTunnelsDeleteResource)
186+ (Proxy :: Proxy VPNTunnelsDeleteResource)
187 r
187 r
188 u
188 u
gogol-compute/gen/Network/Google/Resource/Compute/VPNTunnels/Get.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.Compute.VPNTunnels.Get
23module Network.Google.Resource.Compute.VPNTunnels.Get
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− VpnTunnelsGetResource
26+ VPNTunnelsGetResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , vPNTunnelsGet'
29 , vPNTunnelsGet'
@@ -46,7 +46,7 @@ import Network.Google.Prelude
46
46
47-- | A resource alias for @ComputeVPNTunnelsGet@ which the
47-- | A resource alias for @ComputeVPNTunnelsGet@ which the
48-- 'VPNTunnelsGet'' request conforms to.
48-- 'VPNTunnelsGet'' request conforms to.
49−type VpnTunnelsGetResource =
49+type VPNTunnelsGetResource =
50 Capture "project" Text :>
50 Capture "project" Text :>
51 "regions" :>
51 "regions" :>
52 Capture "region" Text :>
52 Capture "region" Text :>
@@ -183,6 +183,6 @@ instance GoogleRequest VPNTunnelsGet' where
183 (Just AltJSON)
183 (Just AltJSON)
184 where go
184 where go
185 = clientWithRoute
185 = clientWithRoute
186− (Proxy :: Proxy VpnTunnelsGetResource)
186+ (Proxy :: Proxy VPNTunnelsGetResource)
187 r
187 r
188 u
188 u
gogol-compute/gen/Network/Google/Resource/Compute/VPNTunnels/Insert.hs+3−3
@@ -24,7 +24,7 @@
24module Network.Google.Resource.Compute.VPNTunnels.Insert
24module Network.Google.Resource.Compute.VPNTunnels.Insert
25 (
25 (
26 -- * REST Resource
26 -- * REST Resource
27− VpnTunnelsInsertResource
27+ VPNTunnelsInsertResource
28
28
29 -- * Creating a Request
29 -- * Creating a Request
30 , vPNTunnelsInsert'
30 , vPNTunnelsInsert'
@@ -47,7 +47,7 @@ import Network.Google.Prelude
47
47
48-- | A resource alias for @ComputeVPNTunnelsInsert@ which the
48-- | A resource alias for @ComputeVPNTunnelsInsert@ which the
49-- 'VPNTunnelsInsert'' request conforms to.
49-- 'VPNTunnelsInsert'' request conforms to.
50−type VpnTunnelsInsertResource =
50+type VPNTunnelsInsertResource =
51 Capture "project" Text :>
51 Capture "project" Text :>
52 "regions" :>
52 "regions" :>
53 Capture "region" Text :>
53 Capture "region" Text :>
@@ -185,6 +185,6 @@ instance GoogleRequest VPNTunnelsInsert' where
185 _vtiVPNTunnel
185 _vtiVPNTunnel
186 where go
186 where go
187 = clientWithRoute
187 = clientWithRoute
188− (Proxy :: Proxy VpnTunnelsInsertResource)
188+ (Proxy :: Proxy VPNTunnelsInsertResource)
189 r
189 r
190 u
190 u
gogol-compute/gen/Network/Google/Resource/Compute/VPNTunnels/List.hs+3−3
@@ -24,7 +24,7 @@
24module Network.Google.Resource.Compute.VPNTunnels.List
24module Network.Google.Resource.Compute.VPNTunnels.List
25 (
25 (
26 -- * REST Resource
26 -- * REST Resource
27− VpnTunnelsListResource
27+ VPNTunnelsListResource
28
28
29 -- * Creating a Request
29 -- * Creating a Request
30 , vPNTunnelsList'
30 , vPNTunnelsList'
@@ -49,7 +49,7 @@ import Network.Google.Prelude
49
49
50-- | A resource alias for @ComputeVPNTunnelsList@ which the
50-- | A resource alias for @ComputeVPNTunnelsList@ which the
51-- 'VPNTunnelsList'' request conforms to.
51-- 'VPNTunnelsList'' request conforms to.
52−type VpnTunnelsListResource =
52+type VPNTunnelsListResource =
53 Capture "project" Text :>
53 Capture "project" Text :>
54 "regions" :>
54 "regions" :>
55 Capture "region" Text :>
55 Capture "region" Text :>
@@ -222,6 +222,6 @@ instance GoogleRequest VPNTunnelsList' where
222 (Just AltJSON)
222 (Just AltJSON)
223 where go
223 where go
224 = clientWithRoute
224 = clientWithRoute
225− (Proxy :: Proxy VpnTunnelsListResource)
225+ (Proxy :: Proxy VPNTunnelsListResource)
226 r
226 r
227 u
227 u
gogol-container/gen/Network/Google/Container.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | The Google Container Engine API is used for building and managing
15+-- | The Google Container Engine API is used for building and managing
16-- container based applications, powered by the open source Kubernetes
16-- container based applications, powered by the open source Kubernetes
17-- technology.
17-- technology.
18--
18--
gogol-customsearch/gen/Network/Google/CustomSearch.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets you search over a website or collection of websites
15+-- | Lets you search over a website or collection of websites
16--
16--
17-- /See:/ <https://developers.google.com/custom-search/v1/using_rest CustomSearch API Reference>
17-- /See:/ <https://developers.google.com/custom-search/v1/using_rest CustomSearch API Reference>
18module Network.Google.CustomSearch
18module Network.Google.CustomSearch
gogol-customsearch/gen/Network/Google/CustomSearch/Types/Sum.hs+3−3
@@ -85,7 +85,7 @@ instance ToJSON SearchCseListImgColorType where
85-- | Returns images of a type, which can be one of: clipart, face, lineart,
85-- | Returns images of a type, which can be one of: clipart, face, lineart,
86-- news, and photo.
86-- news, and photo.
87data SearchCseListImgType
87data SearchCseListImgType
88− = CliParty
88+ = CliPart
89 -- ^ @clipart@
89 -- ^ @clipart@
90 -- clipart
90 -- clipart
91 | Face
91 | Face
@@ -106,7 +106,7 @@ instance Hashable SearchCseListImgType
106
106
107instance FromText SearchCseListImgType where
107instance FromText SearchCseListImgType where
108 fromText = \case
108 fromText = \case
109− "clipart" -> Just CliParty
109+ "clipart" -> Just CliPart
110 "face" -> Just Face
110 "face" -> Just Face
111 "lineart" -> Just Lineart
111 "lineart" -> Just Lineart
112 "news" -> Just News
112 "news" -> Just News
@@ -115,7 +115,7 @@ instance FromText SearchCseListImgType where
115
115
116instance ToText SearchCseListImgType where
116instance ToText SearchCseListImgType where
117 toText = \case
117 toText = \case
118− CliParty -> "clipart"
118+ CliPart -> "clipart"
119 Face -> "face"
119 Face -> "face"
120 Lineart -> "lineart"
120 Lineart -> "lineart"
121 News -> "news"
121 News -> "news"
gogol-dataflow/gen/Network/Google/Dataflow.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Google Dataflow API.
15+-- | Google Dataflow API.
16--
16--
17-- /See:/ <https://cloud.google.com/dataflow Google Dataflow API Reference>
17-- /See:/ <https://cloud.google.com/dataflow Google Dataflow API Reference>
18module Network.Google.Dataflow
18module Network.Google.Dataflow
gogol-datastore/gen/Network/Google/Datastore.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | API for accessing Google Cloud Datastore.
15+-- | API for accessing Google Cloud Datastore.
16--
16--
17-- /See:/ <https://developers.google.com/datastore/ Google Cloud Datastore API Reference>
17-- /See:/ <https://developers.google.com/datastore/ Google Cloud Datastore API Reference>
18module Network.Google.Datastore
18module Network.Google.Datastore
gogol-debugger/gen/Network/Google/Debugger.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets you examine the stack and variables of your running application
15+-- | Lets you examine the stack and variables of your running application
16-- without stopping or slowing it down.
16-- without stopping or slowing it down.
17--
17--
18-- /See:/ <https://cloud.google.com/tools/cloud-debugger Google Cloud Debugger API Reference>
18-- /See:/ <https://cloud.google.com/tools/cloud-debugger Google Cloud Debugger API Reference>
gogol-deploymentmanager/gen/Network/Google/DeploymentManager.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | The Deployment Manager API allows users to declaratively configure,
15+-- | The Deployment Manager API allows users to declaratively configure,
16-- deploy and run complex solutions on the Google Cloud Platform.
16-- deploy and run complex solutions on the Google Cloud Platform.
17--
17--
18-- /See:/ <https://developers.google.com/deployment-manager/ Google Cloud Deployment Manager API Reference>
18-- /See:/ <https://developers.google.com/deployment-manager/ Google Cloud Deployment Manager API Reference>
gogol-dfareporting/gen/Network/Google/DFAReporting.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Manage your DoubleClick Campaign Manager ad campaigns and reports.
15+-- | Manage your DoubleClick Campaign Manager ad campaigns and reports.
16--
16--
17-- /See:/ <https://developers.google.com/doubleclick-advertisers/reporting/ DCM/DFA Reporting And Trafficking API Reference>
17-- /See:/ <https://developers.google.com/doubleclick-advertisers/reporting/ DCM/DFA Reporting And Trafficking API Reference>
18module Network.Google.DFAReporting
18module Network.Google.DFAReporting
gogol-dfareporting/gen/Network/Google/DFAReporting/Types/Sum.hs+12−12
@@ -6747,13 +6747,13 @@ instance ToJSON CreativeCustomEventAdvertiserCustomEventType where
6747
6747
6748-- | The dimension option.
6748-- | The dimension option.
6749data ReportCrossDimensionReachCriteriaDimension
6749data ReportCrossDimensionReachCriteriaDimension
6750− = Advertiser
6750+ = RCDRCDAdvertiser
6751 -- ^ @ADVERTISER@
6751 -- ^ @ADVERTISER@
6752− | Campaign
6752+ | RCDRCDCampaign
6753 -- ^ @CAMPAIGN@
6753 -- ^ @CAMPAIGN@
6754− | SiteByAdvertiser
6754+ | RCDRCDSiteByAdvertiser
6755 -- ^ @SITE_BY_ADVERTISER@
6755 -- ^ @SITE_BY_ADVERTISER@
6756− | SiteByCampaign
6756+ | RCDRCDSiteByCampaign
6757 -- ^ @SITE_BY_CAMPAIGN@
6757 -- ^ @SITE_BY_CAMPAIGN@
6758 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
6758 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
6759
6759
@@ -6761,18 +6761,18 @@ instance Hashable ReportCrossDimensionReachCriteriaDimension
6761
6761
6762instance FromText ReportCrossDimensionReachCriteriaDimension where
6762instance FromText ReportCrossDimensionReachCriteriaDimension where
6763 fromText = \case
6763 fromText = \case
6764− "ADVERTISER" -> Just Advertiser
6764+ "ADVERTISER" -> Just RCDRCDAdvertiser
6765− "CAMPAIGN" -> Just Campaign
6765+ "CAMPAIGN" -> Just RCDRCDCampaign
6766− "SITE_BY_ADVERTISER" -> Just SiteByAdvertiser
6766+ "SITE_BY_ADVERTISER" -> Just RCDRCDSiteByAdvertiser
6767− "SITE_BY_CAMPAIGN" -> Just SiteByCampaign
6767+ "SITE_BY_CAMPAIGN" -> Just RCDRCDSiteByCampaign
6768 _ -> Nothing
6768 _ -> Nothing
6769
6769
6770instance ToText ReportCrossDimensionReachCriteriaDimension where
6770instance ToText ReportCrossDimensionReachCriteriaDimension where
6771 toText = \case
6771 toText = \case
6772− Advertiser -> "ADVERTISER"
6772+ RCDRCDAdvertiser -> "ADVERTISER"
6773− Campaign -> "CAMPAIGN"
6773+ RCDRCDCampaign -> "CAMPAIGN"
6774− SiteByAdvertiser -> "SITE_BY_ADVERTISER"
6774+ RCDRCDSiteByAdvertiser -> "SITE_BY_ADVERTISER"
6775− SiteByCampaign -> "SITE_BY_CAMPAIGN"
6775+ RCDRCDSiteByCampaign -> "SITE_BY_CAMPAIGN"
6776
6776
6777instance FromJSON ReportCrossDimensionReachCriteriaDimension where
6777instance FromJSON ReportCrossDimensionReachCriteriaDimension where
6778 parseJSON = parseJSONText "ReportCrossDimensionReachCriteriaDimension"
6778 parseJSON = parseJSONText "ReportCrossDimensionReachCriteriaDimension"
gogol-discovery/gen/Network/Google/Discovery.hs+4−4
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets you discover information about other Google APIs, such as what APIs
15+-- | Lets you discover information about other Google APIs, such as what APIs
16-- are available, the resource and method details for each API.
16-- are available, the resource and method details for each API.
17--
17--
18-- /See:/ <https://developers.google.com/discovery/ APIs Discovery Service Reference>
18-- /See:/ <https://developers.google.com/discovery/ APIs Discovery Service Reference>
@@ -97,7 +97,7 @@ module Network.Google.Discovery
97 , RestMethodMediaUploadProtocolsSimple
97 , RestMethodMediaUploadProtocolsSimple
98 , restMethodMediaUploadProtocolsSimple
98 , restMethodMediaUploadProtocolsSimple
99 , rmmupsPath
99 , rmmupsPath
100− , rmmupsMultiParty
100+ , rmmupsMultiPart
101
101
102 -- ** RestDescriptionAuthOAuth2
102 -- ** RestDescriptionAuthOAuth2
103 , RestDescriptionAuthOAuth2
103 , RestDescriptionAuthOAuth2
@@ -243,7 +243,7 @@ module Network.Google.Discovery
243 , RestMethodMediaUploadProtocolsResumable
243 , RestMethodMediaUploadProtocolsResumable
244 , restMethodMediaUploadProtocolsResumable
244 , restMethodMediaUploadProtocolsResumable
245 , rmmuprPath
245 , rmmuprPath
246− , rmmuprMultiParty
246+ , rmmuprMultiPart
247
247
248 -- ** RestMethodRequest
248 -- ** RestMethodRequest
249 , RestMethodRequest
249 , RestMethodRequest
@@ -262,7 +262,7 @@ TODO
262-}
262-}
263
263
264type DiscoveryAPI =
264type DiscoveryAPI =
265− ApisListResource :<|> ApisGetRestResource
265+ APIsListResource :<|> APIsGetRestResource
266
266
267discoveryAPI :: Proxy DiscoveryAPI
267discoveryAPI :: Proxy DiscoveryAPI
268discoveryAPI = Proxy
268discoveryAPI = Proxy
gogol-discovery/gen/Network/Google/Discovery/Types.hs+2−2
@@ -79,7 +79,7 @@ module Network.Google.Discovery.Types
79 , RestMethodMediaUploadProtocolsSimple
79 , RestMethodMediaUploadProtocolsSimple
80 , restMethodMediaUploadProtocolsSimple
80 , restMethodMediaUploadProtocolsSimple
81 , rmmupsPath
81 , rmmupsPath
82− , rmmupsMultiParty
82+ , rmmupsMultiPart
83
83
84 -- * RestDescriptionAuthOAuth2
84 -- * RestDescriptionAuthOAuth2
85 , RestDescriptionAuthOAuth2
85 , RestDescriptionAuthOAuth2
@@ -225,7 +225,7 @@ module Network.Google.Discovery.Types
225 , RestMethodMediaUploadProtocolsResumable
225 , RestMethodMediaUploadProtocolsResumable
226 , restMethodMediaUploadProtocolsResumable
226 , restMethodMediaUploadProtocolsResumable
227 , rmmuprPath
227 , rmmuprPath
228− , rmmuprMultiParty
228+ , rmmuprMultiPart
229
229
230 -- * RestMethodRequest
230 -- * RestMethodRequest
231 , RestMethodRequest
231 , RestMethodRequest
gogol-discovery/gen/Network/Google/Discovery/Types/Product.hs+18−18
@@ -484,8 +484,8 @@ instance ToJSON RestResourceResources where
484--
484--
485-- /See:/ 'restMethodMediaUploadProtocolsSimple' smart constructor.
485-- /See:/ 'restMethodMediaUploadProtocolsSimple' smart constructor.
486data RestMethodMediaUploadProtocolsSimple = RestMethodMediaUploadProtocolsSimple
486data RestMethodMediaUploadProtocolsSimple = RestMethodMediaUploadProtocolsSimple
487− { _rmmupsPath :: !(Maybe Text)
487+ { _rmmupsPath :: !(Maybe Text)
488− , _rmmupsMultiParty :: !Bool
488+ , _rmmupsMultiPart :: !Bool
489 } deriving (Eq,Read,Show,Data,Typeable,Generic)
489 } deriving (Eq,Read,Show,Data,Typeable,Generic)
490
490
491-- | Creates a value of 'RestMethodMediaUploadProtocolsSimple' with the minimum fields required to make a request.
491-- | Creates a value of 'RestMethodMediaUploadProtocolsSimple' with the minimum fields required to make a request.
@@ -494,13 +494,13 @@ data RestMethodMediaUploadProtocolsSimple = RestMethodMediaUploadProtocolsSimple
494--
494--
495-- * 'rmmupsPath'
495-- * 'rmmupsPath'
496--
496--
497−-- * 'rmmupsMultiParty'
497+-- * 'rmmupsMultiPart'
498restMethodMediaUploadProtocolsSimple
498restMethodMediaUploadProtocolsSimple
499 :: RestMethodMediaUploadProtocolsSimple
499 :: RestMethodMediaUploadProtocolsSimple
500restMethodMediaUploadProtocolsSimple =
500restMethodMediaUploadProtocolsSimple =
501 RestMethodMediaUploadProtocolsSimple
501 RestMethodMediaUploadProtocolsSimple
502 { _rmmupsPath = Nothing
502 { _rmmupsPath = Nothing
503− , _rmmupsMultiParty = True
503+ , _rmmupsMultiPart = True
504 }
504 }
505
505
506-- | The URI path to be used for upload. Should be used in conjunction with
506-- | The URI path to be used for upload. Should be used in conjunction with
@@ -510,10 +510,10 @@ rmmupsPath
510 = lens _rmmupsPath (\ s a -> s{_rmmupsPath = a})
510 = lens _rmmupsPath (\ s a -> s{_rmmupsPath = a})
511
511
512-- | True if this endpoint supports upload multipart media.
512-- | True if this endpoint supports upload multipart media.
513−rmmupsMultiParty :: Lens' RestMethodMediaUploadProtocolsSimple Bool
513+rmmupsMultiPart :: Lens' RestMethodMediaUploadProtocolsSimple Bool
514−rmmupsMultiParty
514+rmmupsMultiPart
515− = lens _rmmupsMultiParty
515+ = lens _rmmupsMultiPart
516− (\ s a -> s{_rmmupsMultiParty = a})
516+ (\ s a -> s{_rmmupsMultiPart = a})
517
517
518instance FromJSON
518instance FromJSON
519 RestMethodMediaUploadProtocolsSimple where
519 RestMethodMediaUploadProtocolsSimple where
@@ -529,7 +529,7 @@ instance ToJSON RestMethodMediaUploadProtocolsSimple
529 = object
529 = object
530 (catMaybes
530 (catMaybes
531 [("path" .=) <$> _rmmupsPath,
531 [("path" .=) <$> _rmmupsPath,
532− Just ("multipart" .= _rmmupsMultiParty)])
532+ Just ("multipart" .= _rmmupsMultiPart)])
533
533
534-- | OAuth 2.0 authentication information.
534-- | OAuth 2.0 authentication information.
535--
535--
@@ -1774,8 +1774,8 @@ instance ToJSON DirectoryList where
1774--
1774--
1775-- /See:/ 'restMethodMediaUploadProtocolsResumable' smart constructor.
1775-- /See:/ 'restMethodMediaUploadProtocolsResumable' smart constructor.
1776data RestMethodMediaUploadProtocolsResumable = RestMethodMediaUploadProtocolsResumable
1776data RestMethodMediaUploadProtocolsResumable = RestMethodMediaUploadProtocolsResumable
1777− { _rmmuprPath :: !(Maybe Text)
1777+ { _rmmuprPath :: !(Maybe Text)
1778− , _rmmuprMultiParty :: !Bool
1778+ , _rmmuprMultiPart :: !Bool
1779 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1779 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1780
1780
1781-- | Creates a value of 'RestMethodMediaUploadProtocolsResumable' with the minimum fields required to make a request.
1781-- | Creates a value of 'RestMethodMediaUploadProtocolsResumable' with the minimum fields required to make a request.
@@ -1784,13 +1784,13 @@ data RestMethodMediaUploadProtocolsResumable = RestMethodMediaUploadProtocolsRes
1784--
1784--
1785-- * 'rmmuprPath'
1785-- * 'rmmuprPath'
1786--
1786--
1787−-- * 'rmmuprMultiParty'
1787+-- * 'rmmuprMultiPart'
1788restMethodMediaUploadProtocolsResumable
1788restMethodMediaUploadProtocolsResumable
1789 :: RestMethodMediaUploadProtocolsResumable
1789 :: RestMethodMediaUploadProtocolsResumable
1790restMethodMediaUploadProtocolsResumable =
1790restMethodMediaUploadProtocolsResumable =
1791 RestMethodMediaUploadProtocolsResumable
1791 RestMethodMediaUploadProtocolsResumable
1792 { _rmmuprPath = Nothing
1792 { _rmmuprPath = Nothing
1793− , _rmmuprMultiParty = True
1793+ , _rmmuprMultiPart = True
1794 }
1794 }
1795
1795
1796-- | The URI path to be used for upload. Should be used in conjunction with
1796-- | The URI path to be used for upload. Should be used in conjunction with
@@ -1800,10 +1800,10 @@ rmmuprPath
1800 = lens _rmmuprPath (\ s a -> s{_rmmuprPath = a})
1800 = lens _rmmuprPath (\ s a -> s{_rmmuprPath = a})
1801
1801
1802-- | True if this endpoint supports uploading multipart media.
1802-- | True if this endpoint supports uploading multipart media.
1803−rmmuprMultiParty :: Lens' RestMethodMediaUploadProtocolsResumable Bool
1803+rmmuprMultiPart :: Lens' RestMethodMediaUploadProtocolsResumable Bool
1804−rmmuprMultiParty
1804+rmmuprMultiPart
1805− = lens _rmmuprMultiParty
1805+ = lens _rmmuprMultiPart
1806− (\ s a -> s{_rmmuprMultiParty = a})
1806+ (\ s a -> s{_rmmuprMultiPart = a})
1807
1807
1808instance FromJSON
1808instance FromJSON
1809 RestMethodMediaUploadProtocolsResumable where
1809 RestMethodMediaUploadProtocolsResumable where
@@ -1820,7 +1820,7 @@ instance ToJSON
1820 = object
1820 = object
1821 (catMaybes
1821 (catMaybes
1822 [("path" .=) <$> _rmmuprPath,
1822 [("path" .=) <$> _rmmuprPath,
1823− Just ("multipart" .= _rmmuprMultiParty)])
1823+ Just ("multipart" .= _rmmuprMultiPart)])
1824
1824
1825-- | The schema for the request.
1825-- | The schema for the request.
1826--
1826--
gogol-discovery/gen/Network/Google/Resource/Discovery/APIs/GetRest.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.Discovery.APIs.GetRest
23module Network.Google.Resource.Discovery.APIs.GetRest
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− ApisGetRestResource
26+ APIsGetRestResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , aPIsGetRest'
29 , aPIsGetRest'
@@ -45,7 +45,7 @@ import Network.Google.Prelude
45
45
46-- | A resource alias for @DiscoveryAPIsGetRest@ which the
46-- | A resource alias for @DiscoveryAPIsGetRest@ which the
47-- 'APIsGetRest'' request conforms to.
47-- 'APIsGetRest'' request conforms to.
48−type ApisGetRestResource =
48+type APIsGetRestResource =
49 "apis" :>
49 "apis" :>
50 Capture "api" Text :>
50 Capture "api" Text :>
51 Capture "version" Text :>
51 Capture "version" Text :>
@@ -170,6 +170,6 @@ instance GoogleRequest APIsGetRest' where
170 (Just AltJSON)
170 (Just AltJSON)
171 where go
171 where go
172 = clientWithRoute
172 = clientWithRoute
173− (Proxy :: Proxy ApisGetRestResource)
173+ (Proxy :: Proxy APIsGetRestResource)
174 r
174 r
175 u
175 u
gogol-discovery/gen/Network/Google/Resource/Discovery/APIs/List.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.Discovery.APIs.List
23module Network.Google.Resource.Discovery.APIs.List
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− ApisListResource
26+ APIsListResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , aPIsList'
29 , aPIsList'
@@ -45,7 +45,7 @@ import Network.Google.Prelude
45
45
46-- | A resource alias for @DiscoveryAPIsList@ which the
46-- | A resource alias for @DiscoveryAPIsList@ which the
47-- 'APIsList'' request conforms to.
47-- 'APIsList'' request conforms to.
48−type ApisListResource =
48+type APIsListResource =
49 "apis" :>
49 "apis" :>
50 QueryParam "quotaUser" Text :>
50 QueryParam "quotaUser" Text :>
51 QueryParam "prettyPrint" Bool :>
51 QueryParam "prettyPrint" Bool :>
@@ -163,5 +163,5 @@ instance GoogleRequest APIsList' where
163 _alFields
163 _alFields
164 (Just AltJSON)
164 (Just AltJSON)
165 where go
165 where go
166− = clientWithRoute (Proxy :: Proxy ApisListResource) r
166+ = clientWithRoute (Proxy :: Proxy APIsListResource) r
167 u
167 u
gogol-dns/gen/Network/Google/DNS.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | The Google Cloud DNS API provides services for configuring and serving
15+-- | The Google Cloud DNS API provides services for configuring and serving
16-- authoritative DNS records.
16-- authoritative DNS records.
17--
17--
18-- /See:/ <https://developers.google.com/cloud-dns Google Cloud DNS API Reference>
18-- /See:/ <https://developers.google.com/cloud-dns Google Cloud DNS API Reference>
gogol-doubleclick-bids/gen/Network/Google/DoubleClickBids.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | API for viewing and managing your reports in DoubleClick Bid Manager.
15+-- | API for viewing and managing your reports in DoubleClick Bid Manager.
16--
16--
17-- /See:/ <https://developers.google.com/bid-manager/ DoubleClick Bid Manager API Reference>
17-- /See:/ <https://developers.google.com/bid-manager/ DoubleClick Bid Manager API Reference>
18module Network.Google.DoubleClickBids
18module Network.Google.DoubleClickBids
gogol-doubleclick-search/gen/Network/Google/DoubleClickSearch.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Report and modify your advertising data in DoubleClick Search (for
15+-- | Report and modify your advertising data in DoubleClick Search (for
16-- example, campaigns, ad groups, keywords, and conversions).
16-- example, campaigns, ad groups, keywords, and conversions).
17--
17--
18-- /See:/ <https://developers.google.com/doubleclick-search/ DoubleClick Search API Reference>
18-- /See:/ <https://developers.google.com/doubleclick-search/ DoubleClick Search API Reference>
gogol-drive/gen/Network/Google/Drive.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | The API to interact with Drive.
15+-- | The API to interact with Drive.
16--
16--
17-- /See:/ <https://developers.google.com/drive/ Drive API Reference>
17-- /See:/ <https://developers.google.com/drive/ Drive API Reference>
18module Network.Google.Drive
18module Network.Google.Drive
gogol-fitness/gen/Network/Google/Fitness.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Google Fit API
15+-- | Google Fit API
16--
16--
17-- /See:/ <https://developers.google.com/fit/rest/ Fitness Reference>
17-- /See:/ <https://developers.google.com/fit/rest/ Fitness Reference>
18module Network.Google.Fitness
18module Network.Google.Fitness
gogol-fitness/gen/Network/Google/Fitness/Types/Sum.hs+33−33
@@ -20,15 +20,15 @@ import Network.Google.Prelude
20-- | The type of a bucket signifies how the data aggregation is performed in
20-- | The type of a bucket signifies how the data aggregation is performed in
21-- the bucket.
21-- the bucket.
22data AggregateBucketType
22data AggregateBucketType
23− = ActivitySegment
23+ = ABTActivitySegment
24 -- ^ @activitySegment@
24 -- ^ @activitySegment@
25− | ActivityType
25+ | ABTActivityType
26 -- ^ @activityType@
26 -- ^ @activityType@
27− | Session
27+ | ABTSession
28 -- ^ @session@
28 -- ^ @session@
29− | Time
29+ | ABTTime
30 -- ^ @time@
30 -- ^ @time@
31− | Unknown
31+ | ABTUnknown
32 -- ^ @unknown@
32 -- ^ @unknown@
33 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
33 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
34
34
@@ -36,20 +36,20 @@ instance Hashable AggregateBucketType
36
36
37instance FromText AggregateBucketType where
37instance FromText AggregateBucketType where
38 fromText = \case
38 fromText = \case
39− "activitySegment" -> Just ActivitySegment
39+ "activitySegment" -> Just ABTActivitySegment
40− "activityType" -> Just ActivityType
40+ "activityType" -> Just ABTActivityType
41− "session" -> Just Session
41+ "session" -> Just ABTSession
42− "time" -> Just Time
42+ "time" -> Just ABTTime
43− "unknown" -> Just Unknown
43+ "unknown" -> Just ABTUnknown
44 _ -> Nothing
44 _ -> Nothing
45
45
46instance ToText AggregateBucketType where
46instance ToText AggregateBucketType where
47 toText = \case
47 toText = \case
48− ActivitySegment -> "activitySegment"
48+ ABTActivitySegment -> "activitySegment"
49− ActivityType -> "activityType"
49+ ABTActivityType -> "activityType"
50− Session -> "session"
50+ ABTSession -> "session"
51− Time -> "time"
51+ ABTTime -> "time"
52− Unknown -> "unknown"
52+ ABTUnknown -> "unknown"
53
53
54instance FromJSON AggregateBucketType where
54instance FromJSON AggregateBucketType where
55 parseJSON = parseJSONText "AggregateBucketType"
55 parseJSON = parseJSONText "AggregateBucketType"
@@ -87,17 +87,17 @@ instance ToJSON DataSourceType where
87
87
88-- | A constant representing the type of the device.
88-- | A constant representing the type of the device.
89data DeviceType
89data DeviceType
90− = DTChestStrap
90+ = ChestStrap
91 -- ^ @chestStrap@
91 -- ^ @chestStrap@
92− | DTPhone
92+ | Phone
93 -- ^ @phone@
93 -- ^ @phone@
94− | DTScale
94+ | Scale
95 -- ^ @scale@
95 -- ^ @scale@
96− | DTTablet
96+ | Tablet
97 -- ^ @tablet@
97 -- ^ @tablet@
98− | DTUnknown
98+ | Unknown
99 -- ^ @unknown@
99 -- ^ @unknown@
100− | DTWatch
100+ | Watch
101 -- ^ @watch@
101 -- ^ @watch@
102 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
102 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
103
103
@@ -105,22 +105,22 @@ instance Hashable DeviceType
105
105
106instance FromText DeviceType where
106instance FromText DeviceType where
107 fromText = \case
107 fromText = \case
108− "chestStrap" -> Just DTChestStrap
108+ "chestStrap" -> Just ChestStrap
109− "phone" -> Just DTPhone
109+ "phone" -> Just Phone
110− "scale" -> Just DTScale
110+ "scale" -> Just Scale
111− "tablet" -> Just DTTablet
111+ "tablet" -> Just Tablet
112− "unknown" -> Just DTUnknown
112+ "unknown" -> Just Unknown
113− "watch" -> Just DTWatch
113+ "watch" -> Just Watch
114 _ -> Nothing
114 _ -> Nothing
115
115
116instance ToText DeviceType where
116instance ToText DeviceType where
117 toText = \case
117 toText = \case
118− DTChestStrap -> "chestStrap"
118+ ChestStrap -> "chestStrap"
119− DTPhone -> "phone"
119+ Phone -> "phone"
120− DTScale -> "scale"
120+ Scale -> "scale"
121− DTTablet -> "tablet"
121+ Tablet -> "tablet"
122− DTUnknown -> "unknown"
122+ Unknown -> "unknown"
123− DTWatch -> "watch"
123+ Watch -> "watch"
124
124
125instance FromJSON DeviceType where
125instance FromJSON DeviceType where
126 parseJSON = parseJSONText "DeviceType"
126 parseJSON = parseJSONText "DeviceType"
gogol-fonts/gen/Network/Google/Fonts.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | The Google Fonts Developer API.
15+-- | The Google Fonts Developer API.
16--
16--
17-- /See:/ <https://developers.google.com/fonts/docs/developer_api Google Fonts Developer API Reference>
17-- /See:/ <https://developers.google.com/fonts/docs/developer_api Google Fonts Developer API Reference>
18module Network.Google.Fonts
18module Network.Google.Fonts
gogol-freebasesearch/gen/Network/Google/FreebaseSearch.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Find Freebase entities using textual queries and other constraints.
15+-- | Find Freebase entities using textual queries and other constraints.
16--
16--
17-- /See:/ <https://developers.google.com/freebase/ Freebase Search Reference>
17-- /See:/ <https://developers.google.com/freebase/ Freebase Search Reference>
18module Network.Google.FreebaseSearch
18module Network.Google.FreebaseSearch
gogol-fusiontables/gen/Network/Google/FusionTables.hs+3−3
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | API for working with Fusion Tables data.
15+-- | API for working with Fusion Tables data.
16--
16--
17-- /See:/ <https://developers.google.com/fusiontables Fusion Tables API Reference>
17-- /See:/ <https://developers.google.com/fusiontables Fusion Tables API Reference>
18module Network.Google.FusionTables
18module Network.Google.FusionTables
@@ -378,8 +378,8 @@ type FusionTablesAPI =
378 :<|> StyleGetResource
378 :<|> StyleGetResource
379 :<|> StyleDeleteResource
379 :<|> StyleDeleteResource
380 :<|> StyleUpdateResource
380 :<|> StyleUpdateResource
381− :<|> QuerySqlGetResource
381+ :<|> QuerySQLGetResource
382− :<|> QuerySqlResource
382+ :<|> QuerySQLResource
383 :<|> TaskListResource
383 :<|> TaskListResource
384 :<|> TaskGetResource
384 :<|> TaskGetResource
385 :<|> TaskDeleteResource
385 :<|> TaskDeleteResource
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Query/SQL.hs+4−4
@@ -24,7 +24,7 @@
24module Network.Google.Resource.FusionTables.Query.SQL
24module Network.Google.Resource.FusionTables.Query.SQL
25 (
25 (
26 -- * REST Resource
26 -- * REST Resource
27− QuerySqlResource
27+ QuerySQLResource
28
28
29 -- * Creating a Request
29 -- * Creating a Request
30 , querySQL'
30 , querySQL'
@@ -47,7 +47,7 @@ import Network.Google.Prelude
47
47
48-- | A resource alias for @FusiontablesQuerySQL@ which the
48-- | A resource alias for @FusiontablesQuerySQL@ which the
49-- 'QuerySQL'' request conforms to.
49-- 'QuerySQL'' request conforms to.
50−type QuerySqlResource =
50+type QuerySQLResource =
51 "query" :>
51 "query" :>
52 QueryParam "typed" Bool :>
52 QueryParam "typed" Bool :>
53 QueryParam "quotaUser" Text :>
53 QueryParam "quotaUser" Text :>
@@ -195,7 +195,7 @@ instance GoogleRequest QuerySQL' where
195 _qsqlFields
195 _qsqlFields
196 (Just AltJSON)
196 (Just AltJSON)
197 where go :<|> _
197 where go :<|> _
198− = clientWithRoute (Proxy :: Proxy QuerySqlResource) r
198+ = clientWithRoute (Proxy :: Proxy QuerySQLResource) r
199 u
199 u
200
200
201instance GoogleRequest QuerySQL' where
201instance GoogleRequest QuerySQL' where
@@ -212,5 +212,5 @@ instance GoogleRequest QuerySQL' where
212 _qsqlFields
212 _qsqlFields
213 (Just Media)
213 (Just Media)
214 where go :<|> _
214 where go :<|> _
215− = clientWithRoute (Proxy :: Proxy QuerySqlResource) r
215+ = clientWithRoute (Proxy :: Proxy QuerySQLResource) r
216 u
216 u
gogol-fusiontables/gen/Network/Google/Resource/FusionTables/Query/SQLGet.hs+4−4
@@ -23,7 +23,7 @@
23module Network.Google.Resource.FusionTables.Query.SQLGet
23module Network.Google.Resource.FusionTables.Query.SQLGet
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− QuerySqlGetResource
26+ QuerySQLGetResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , querySQLGet'
29 , querySQLGet'
@@ -46,7 +46,7 @@ import Network.Google.Prelude
46
46
47-- | A resource alias for @FusiontablesQuerySQLGet@ which the
47-- | A resource alias for @FusiontablesQuerySQLGet@ which the
48-- 'QuerySQLGet'' request conforms to.
48-- 'QuerySQLGet'' request conforms to.
49−type QuerySqlGetResource =
49+type QuerySQLGetResource =
50 "query" :>
50 "query" :>
51 QueryParam "typed" Bool :>
51 QueryParam "typed" Bool :>
52 QueryParam "quotaUser" Text :>
52 QueryParam "quotaUser" Text :>
@@ -194,7 +194,7 @@ instance GoogleRequest QuerySQLGet' where
194 (Just AltJSON)
194 (Just AltJSON)
195 where go :<|> _
195 where go :<|> _
196 = clientWithRoute
196 = clientWithRoute
197− (Proxy :: Proxy QuerySqlGetResource)
197+ (Proxy :: Proxy QuerySQLGetResource)
198 r
198 r
199 u
199 u
200
200
@@ -213,6 +213,6 @@ instance GoogleRequest QuerySQLGet' where
213 (Just Media)
213 (Just Media)
214 where go :<|> _
214 where go :<|> _
215 = clientWithRoute
215 = clientWithRoute
216− (Proxy :: Proxy QuerySqlGetResource)
216+ (Proxy :: Proxy QuerySQLGetResource)
217 r
217 r
218 u
218 u
gogol-games-appstate/gen/Network/Google/AppState.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | The Google App State API.
15+-- | The Google App State API.
16--
16--
17-- /See:/ <https://developers.google.com/games/services/web/api/states Google App State API Reference>
17-- /See:/ <https://developers.google.com/games/services/web/api/states Google App State API Reference>
18module Network.Google.AppState
18module Network.Google.AppState
gogol-games-configuration/gen/Network/Google/GamesConfiguration.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | The Publishing API for Google Play Game Services.
15+-- | The Publishing API for Google Play Game Services.
16--
16--
17-- /See:/ <https://developers.google.com/games/services Google Play Game Services Publishing API Reference>
17-- /See:/ <https://developers.google.com/games/services Google Play Game Services Publishing API Reference>
18module Network.Google.GamesConfiguration
18module Network.Google.GamesConfiguration
gogol-games-management/gen/Network/Google/GamesManagement.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | The Management API for Google Play Game Services.
15+-- | The Management API for Google Play Game Services.
16--
16--
17-- /See:/ <https://developers.google.com/games/services Google Play Game Services Management API Reference>
17-- /See:/ <https://developers.google.com/games/services Google Play Game Services Management API Reference>
18module Network.Google.GamesManagement
18module Network.Google.GamesManagement
gogol-games/gen/Network/Google/Games.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | The API for Google Play Game Services.
15+-- | The API for Google Play Game Services.
16--
16--
17-- /See:/ <https://developers.google.com/games/services/ Google Play Game Services API Reference>
17-- /See:/ <https://developers.google.com/games/services/ Google Play Game Services API Reference>
18module Network.Google.Games
18module Network.Google.Games
gogol-genomics/gen/Network/Google/Genomics.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Provides access to Genomics data.
15+-- | Provides access to Genomics data.
16--
16--
17-- /See:/ <https://developers.google.com/genomics/v1beta2/reference Genomics API Reference>
17-- /See:/ <https://developers.google.com/genomics/v1beta2/reference Genomics API Reference>
18module Network.Google.Genomics
18module Network.Google.Genomics
gogol-genomics/gen/Network/Google/Genomics/Types/Sum.hs+12−12
@@ -120,13 +120,13 @@ instance ToJSON SearchJobsRequestStatus where
120
120
121-- | The type of annotations contained within this set.
121-- | The type of annotations contained within this set.
122data AnnotationSetType
122data AnnotationSetType
123− = Gene
123+ = ASTGene
124 -- ^ @GENE@
124 -- ^ @GENE@
125− | Generic
125+ | ASTGeneric
126 -- ^ @GENERIC@
126 -- ^ @GENERIC@
127− | Transcript
127+ | ASTTranscript
128 -- ^ @TRANSCRIPT@
128 -- ^ @TRANSCRIPT@
129− | Variant
129+ | ASTVariant
130 -- ^ @VARIANT@
130 -- ^ @VARIANT@
131 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
131 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
132
132
@@ -134,18 +134,18 @@ instance Hashable AnnotationSetType
134
134
135instance FromText AnnotationSetType where
135instance FromText AnnotationSetType where
136 fromText = \case
136 fromText = \case
137− "GENE" -> Just Gene
137+ "GENE" -> Just ASTGene
138− "GENERIC" -> Just Generic
138+ "GENERIC" -> Just ASTGeneric
139− "TRANSCRIPT" -> Just Transcript
139+ "TRANSCRIPT" -> Just ASTTranscript
140− "VARIANT" -> Just Variant
140+ "VARIANT" -> Just ASTVariant
141 _ -> Nothing
141 _ -> Nothing
142
142
143instance ToText AnnotationSetType where
143instance ToText AnnotationSetType where
144 toText = \case
144 toText = \case
145− Gene -> "GENE"
145+ ASTGene -> "GENE"
146− Generic -> "GENERIC"
146+ ASTGeneric -> "GENERIC"
147− Transcript -> "TRANSCRIPT"
147+ ASTTranscript -> "TRANSCRIPT"
148− Variant -> "VARIANT"
148+ ASTVariant -> "VARIANT"
149
149
150instance FromJSON AnnotationSetType where
150instance FromJSON AnnotationSetType where
151 parseJSON = parseJSONText "AnnotationSetType"
151 parseJSON = parseJSONText "AnnotationSetType"
gogol-gmail/gen/Network/Google/Gmail.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | The Gmail REST API.
15+-- | The Gmail REST API.
16--
16--
17-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference>
17-- /See:/ <https://developers.google.com/gmail/api/ Gmail API Reference>
18module Network.Google.Gmail
18module Network.Google.Gmail
gogol-groups-migration/gen/Network/Google/GroupsMigration.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Groups Migration Api.
15+-- | Groups Migration Api.
16--
16--
17-- /See:/ <https://developers.google.com/google-apps/groups-migration/ Groups Migration API Reference>
17-- /See:/ <https://developers.google.com/google-apps/groups-migration/ Groups Migration API Reference>
18module Network.Google.GroupsMigration
18module Network.Google.GroupsMigration
gogol-groups-migration/gen/Network/Google/GroupsSettings.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets you manage permission levels and related settings of a group.
15+-- | Lets you manage permission levels and related settings of a group.
16--
16--
17-- /See:/ <https://developers.google.com/google-apps/groups-settings/get_started Groups Settings API Reference>
17-- /See:/ <https://developers.google.com/google-apps/groups-settings/get_started Groups Settings API Reference>
18module Network.Google.GroupsSettings
18module Network.Google.GroupsSettings
gogol-identity-toolkit/gen/Network/Google/IdentityToolkit.hs+89−89
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Help the third party sites to implement federated login.
15+-- | Help the third party sites to implement federated login.
16--
16--
17-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference>
17-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference>
18module Network.Google.IdentityToolkit
18module Network.Google.IdentityToolkit
@@ -26,41 +26,41 @@ module Network.Google.IdentityToolkit
26
26
27 -- * REST Resources
27 -- * REST Resources
28
28
29− -- ** IdentitytoolkitRelyingPartyyCreateAuthURI
29+ -- ** IdentitytoolkitRelyingPartyCreateAuthURI
30− , module Network.Google.Resource.IdentityToolkit.RelyingPartyy.CreateAuthURI
30+ , module Network.Google.Resource.IdentityToolkit.RelyingParty.CreateAuthURI
31
31
32− -- ** IdentitytoolkitRelyingPartyyDeleteAccount
32+ -- ** IdentitytoolkitRelyingPartyDeleteAccount
33− , module Network.Google.Resource.IdentityToolkit.RelyingPartyy.DeleteAccount
33+ , module Network.Google.Resource.IdentityToolkit.RelyingParty.DeleteAccount
34
34
35− -- ** IdentitytoolkitRelyingPartyyDownloadAccount
35+ -- ** IdentitytoolkitRelyingPartyDownloadAccount
36− , module Network.Google.Resource.IdentityToolkit.RelyingPartyy.DownloadAccount
36+ , module Network.Google.Resource.IdentityToolkit.RelyingParty.DownloadAccount
37
37
38− -- ** IdentitytoolkitRelyingPartyyGetAccountInfo
38+ -- ** IdentitytoolkitRelyingPartyGetAccountInfo
39− , module Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetAccountInfo
39+ , module Network.Google.Resource.IdentityToolkit.RelyingParty.GetAccountInfo
40
40
41− -- ** IdentitytoolkitRelyingPartyyGetOobConfirmationCode
41+ -- ** IdentitytoolkitRelyingPartyGetOOBConfirmationCode
42− , module Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetOobConfirmationCode
42+ , module Network.Google.Resource.IdentityToolkit.RelyingParty.GetOOBConfirmationCode
43
43
44− -- ** IdentitytoolkitRelyingPartyyGetPublicKeys
44+ -- ** IdentitytoolkitRelyingPartyGetPublicKeys
45− , module Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetPublicKeys
45+ , module Network.Google.Resource.IdentityToolkit.RelyingParty.GetPublicKeys
46
46
47− -- ** IdentitytoolkitRelyingPartyyGetRecaptchaParam
47+ -- ** IdentitytoolkitRelyingPartyGetRecaptchaParam
48− , module Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetRecaptchaParam
48+ , module Network.Google.Resource.IdentityToolkit.RelyingParty.GetRecaptchaParam
49
49
50− -- ** IdentitytoolkitRelyingPartyyResetPassword
50+ -- ** IdentitytoolkitRelyingPartyResetPassword
51− , module Network.Google.Resource.IdentityToolkit.RelyingPartyy.ResetPassword
51+ , module Network.Google.Resource.IdentityToolkit.RelyingParty.ResetPassword
52
52
53− -- ** IdentitytoolkitRelyingPartyySetAccountInfo
53+ -- ** IdentitytoolkitRelyingPartySetAccountInfo
54− , module Network.Google.Resource.IdentityToolkit.RelyingPartyy.SetAccountInfo
54+ , module Network.Google.Resource.IdentityToolkit.RelyingParty.SetAccountInfo
55
55
56− -- ** IdentitytoolkitRelyingPartyyUploadAccount
56+ -- ** IdentitytoolkitRelyingPartyUploadAccount
57− , module Network.Google.Resource.IdentityToolkit.RelyingPartyy.UploadAccount
57+ , module Network.Google.Resource.IdentityToolkit.RelyingParty.UploadAccount
58
58
59− -- ** IdentitytoolkitRelyingPartyyVerifyAssertion
59+ -- ** IdentitytoolkitRelyingPartyVerifyAssertion
60− , module Network.Google.Resource.IdentityToolkit.RelyingPartyy.VerifyAssertion
60+ , module Network.Google.Resource.IdentityToolkit.RelyingParty.VerifyAssertion
61
61
62− -- ** IdentitytoolkitRelyingPartyyVerifyPassword
62+ -- ** IdentitytoolkitRelyingPartyVerifyPassword
63− , module Network.Google.Resource.IdentityToolkit.RelyingPartyy.VerifyPassword
63+ , module Network.Google.Resource.IdentityToolkit.RelyingParty.VerifyPassword
64
64
65 -- * Types
65 -- * Types
66
66
@@ -80,31 +80,31 @@ module Network.Google.IdentityToolkit
80 , uiPasswordHash
80 , uiPasswordHash
81 , uiLocalId
81 , uiLocalId
82
82
83− -- ** IdentitytoolkitRelyingPartyyVerifyPasswordRequest
83+ -- ** IdentitytoolkitRelyingPartyVerifyPasswordRequest
84− , IdentitytoolkitRelyingPartyyVerifyPasswordRequest
84+ , IdentitytoolkitRelyingPartyVerifyPasswordRequest
85− , identitytoolkitRelyingPartyyVerifyPasswordRequest
85+ , identitytoolkitRelyingPartyVerifyPasswordRequest
86 , irpvprEmail
86 , irpvprEmail
87 , irpvprCaptchaChallenge
87 , irpvprCaptchaChallenge
88 , irpvprPassword
88 , irpvprPassword
89 , irpvprCaptchaResponse
89 , irpvprCaptchaResponse
90 , irpvprPendingIdToken
90 , irpvprPendingIdToken
91
91
92− -- ** IdentitytoolkitRelyingPartyyVerifyAssertionRequest
92+ -- ** IdentitytoolkitRelyingPartyVerifyAssertionRequest
93− , IdentitytoolkitRelyingPartyyVerifyAssertionRequest
93+ , IdentitytoolkitRelyingPartyVerifyAssertionRequest
94− , identitytoolkitRelyingPartyyVerifyAssertionRequest
94+ , identitytoolkitRelyingPartyVerifyAssertionRequest
95 , irpvarPostBody
95 , irpvarPostBody
96 , irpvarReturnRefreshToken
96 , irpvarReturnRefreshToken
97 , irpvarRequestURI
97 , irpvarRequestURI
98 , irpvarPendingIdToken
98 , irpvarPendingIdToken
99
99
100− -- ** IdentitytoolkitRelyingPartyySetAccountInfoRequest
100+ -- ** IdentitytoolkitRelyingPartySetAccountInfoRequest
101− , IdentitytoolkitRelyingPartyySetAccountInfoRequest
101+ , IdentitytoolkitRelyingPartySetAccountInfoRequest
102− , identitytoolkitRelyingPartyySetAccountInfoRequest
102+ , identitytoolkitRelyingPartySetAccountInfoRequest
103 , irpsairUpgradeToFederatedLogin
103 , irpsairUpgradeToFederatedLogin
104 , irpsairEmail
104 , irpsairEmail
105 , irpsairCaptchaChallenge
105 , irpsairCaptchaChallenge
106 , irpsairValidSince
106 , irpsairValidSince
107− , irpsairOobCode
107+ , irpsairOOBCode
108 , irpsairPassword
108 , irpsairPassword
109 , irpsairCaptchaResponse
109 , irpsairCaptchaResponse
110 , irpsairEmailVerified
110 , irpsairEmailVerified
@@ -148,9 +148,9 @@ module Network.Google.IdentityToolkit
148 , caurRegistered
148 , caurRegistered
149 , caurForExistingProvider
149 , caurForExistingProvider
150
150
151− -- ** RelyingPartyy
151+ -- ** RelyingParty
152− , RelyingPartyy
152+ , RelyingParty
153− , relyingPartyy
153+ , relyingParty
154 , rpEmail
154 , rpEmail
155 , rpKind
155 , rpKind
156 , rpUserIP
156 , rpUserIP
@@ -160,20 +160,20 @@ module Network.Google.IdentityToolkit
160 , rpChallenge
160 , rpChallenge
161 , rpIdToken
161 , rpIdToken
162
162
163− -- ** IdentitytoolkitRelyingPartyyGetAccountInfoRequest
163+ -- ** IdentitytoolkitRelyingPartyGetAccountInfoRequest
164− , IdentitytoolkitRelyingPartyyGetAccountInfoRequest
164+ , IdentitytoolkitRelyingPartyGetAccountInfoRequest
165− , identitytoolkitRelyingPartyyGetAccountInfoRequest
165+ , identitytoolkitRelyingPartyGetAccountInfoRequest
166 , irpgairEmail
166 , irpgairEmail
167 , irpgairLocalId
167 , irpgairLocalId
168 , irpgairIdToken
168 , irpgairIdToken
169
169
170− -- ** IdentitytoolkitRelyingPartyyGetPublicKeysResponse
170+ -- ** IdentitytoolkitRelyingPartyGetPublicKeysResponse
171− , IdentitytoolkitRelyingPartyyGetPublicKeysResponse
171+ , IdentitytoolkitRelyingPartyGetPublicKeysResponse
172− , identitytoolkitRelyingPartyyGetPublicKeysResponse
172+ , identitytoolkitRelyingPartyGetPublicKeysResponse
173
173
174− -- ** IdentitytoolkitRelyingPartyyCreateAuthURIRequest
174+ -- ** IdentitytoolkitRelyingPartyCreateAuthURIRequest
175− , IdentitytoolkitRelyingPartyyCreateAuthURIRequest
175+ , IdentitytoolkitRelyingPartyCreateAuthURIRequest
176− , identitytoolkitRelyingPartyyCreateAuthURIRequest
176+ , identitytoolkitRelyingPartyCreateAuthURIRequest
177 , irpcaurProviderId
177 , irpcaurProviderId
178 , irpcaurClientId
178 , irpcaurClientId
179 , irpcaurContext
179 , irpcaurContext
@@ -185,9 +185,9 @@ module Network.Google.IdentityToolkit
185 , irpcaurOAuthScope
185 , irpcaurOAuthScope
186 , irpcaurOpenidRealm
186 , irpcaurOpenidRealm
187
187
188− -- ** IdentitytoolkitRelyingPartyyUploadAccountRequest
188+ -- ** IdentitytoolkitRelyingPartyUploadAccountRequest
189− , IdentitytoolkitRelyingPartyyUploadAccountRequest
189+ , IdentitytoolkitRelyingPartyUploadAccountRequest
190− , identitytoolkitRelyingPartyyUploadAccountRequest
190+ , identitytoolkitRelyingPartyUploadAccountRequest
191 , irpuarUsers
191 , irpuarUsers
192 , irpuarMemoryCost
192 , irpuarMemoryCost
193 , irpuarSaltSeparator
193 , irpuarSaltSeparator
@@ -195,12 +195,12 @@ module Network.Google.IdentityToolkit
195 , irpuarSignerKey
195 , irpuarSignerKey
196 , irpuarRounds
196 , irpuarRounds
197
197
198− -- ** IdentitytoolkitRelyingPartyyResetPasswordRequest
198+ -- ** IdentitytoolkitRelyingPartyResetPasswordRequest
199− , IdentitytoolkitRelyingPartyyResetPasswordRequest
199+ , IdentitytoolkitRelyingPartyResetPasswordRequest
200− , identitytoolkitRelyingPartyyResetPasswordRequest
200+ , identitytoolkitRelyingPartyResetPasswordRequest
201 , irprprEmail
201 , irprprEmail
202 , irprprNewPassword
202 , irprprNewPassword
203− , irprprOobCode
203+ , irprprOOBCode
204 , irprprOldPassword
204 , irprprOldPassword
205
205
206 -- ** GetAccountInfoResponse
206 -- ** GetAccountInfoResponse
@@ -209,15 +209,15 @@ module Network.Google.IdentityToolkit
209 , gairUsers
209 , gairUsers
210 , gairKind
210 , gairKind
211
211
212− -- ** GetOobConfirmationCodeResponse
212+ -- ** GetOOBConfirmationCodeResponse
213− , GetOobConfirmationCodeResponse
213+ , GetOOBConfirmationCodeResponse
214− , getOobConfirmationCodeResponse
214+ , getOOBConfirmationCodeResponse
215− , goccrKind
215+ , goobccrKind
216− , goccrOobCode
216+ , goobccrOOBCode
217
217
218− -- ** IdentitytoolkitRelyingPartyyDeleteAccountRequest
218+ -- ** IdentitytoolkitRelyingPartyDeleteAccountRequest
219− , IdentitytoolkitRelyingPartyyDeleteAccountRequest
219+ , IdentitytoolkitRelyingPartyDeleteAccountRequest
220− , identitytoolkitRelyingPartyyDeleteAccountRequest
220+ , identitytoolkitRelyingPartyDeleteAccountRequest
221 , irpdarLocalId
221 , irpdarLocalId
222
222
223 -- ** SetAccountInfoResponseProviderUserInfo
223 -- ** SetAccountInfoResponseProviderUserInfo
@@ -227,9 +227,9 @@ module Network.Google.IdentityToolkit
227 , sairpuiPhotoURL
227 , sairpuiPhotoURL
228 , sairpuiDisplayName
228 , sairpuiDisplayName
229
229
230− -- ** IdentitytoolkitRelyingPartyyDownloadAccountRequest
230+ -- ** IdentitytoolkitRelyingPartyDownloadAccountRequest
231− , IdentitytoolkitRelyingPartyyDownloadAccountRequest
231+ , IdentitytoolkitRelyingPartyDownloadAccountRequest
232− , identitytoolkitRelyingPartyyDownloadAccountRequest
232+ , identitytoolkitRelyingPartyDownloadAccountRequest
233 , irpdarNextPageToken
233 , irpdarNextPageToken
234 , irpdarMaxResults
234 , irpdarMaxResults
235
235
@@ -315,36 +315,36 @@ module Network.Google.IdentityToolkit
315
315
316import Network.Google.IdentityToolkit.Types
316import Network.Google.IdentityToolkit.Types
317import Network.Google.Prelude
317import Network.Google.Prelude
318−import Network.Google.Resource.IdentityToolkit.RelyingPartyy.CreateAuthURI
318+import Network.Google.Resource.IdentityToolkit.RelyingParty.CreateAuthURI
319−import Network.Google.Resource.IdentityToolkit.RelyingPartyy.DeleteAccount
319+import Network.Google.Resource.IdentityToolkit.RelyingParty.DeleteAccount
320−import Network.Google.Resource.IdentityToolkit.RelyingPartyy.DownloadAccount
320+import Network.Google.Resource.IdentityToolkit.RelyingParty.DownloadAccount
321−import Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetAccountInfo
321+import Network.Google.Resource.IdentityToolkit.RelyingParty.GetAccountInfo
322−import Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetOobConfirmationCode
322+import Network.Google.Resource.IdentityToolkit.RelyingParty.GetOOBConfirmationCode
323−import Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetPublicKeys
323+import Network.Google.Resource.IdentityToolkit.RelyingParty.GetPublicKeys
324−import Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetRecaptchaParam
324+import Network.Google.Resource.IdentityToolkit.RelyingParty.GetRecaptchaParam
325−import Network.Google.Resource.IdentityToolkit.RelyingPartyy.ResetPassword
325+import Network.Google.Resource.IdentityToolkit.RelyingParty.ResetPassword
326−import Network.Google.Resource.IdentityToolkit.RelyingPartyy.SetAccountInfo
326+import Network.Google.Resource.IdentityToolkit.RelyingParty.SetAccountInfo
327−import Network.Google.Resource.IdentityToolkit.RelyingPartyy.UploadAccount
327+import Network.Google.Resource.IdentityToolkit.RelyingParty.UploadAccount
328−import Network.Google.Resource.IdentityToolkit.RelyingPartyy.VerifyAssertion
328+import Network.Google.Resource.IdentityToolkit.RelyingParty.VerifyAssertion
329−import Network.Google.Resource.IdentityToolkit.RelyingPartyy.VerifyPassword
329+import Network.Google.Resource.IdentityToolkit.RelyingParty.VerifyPassword
330
330
331{- $resources
331{- $resources
332TODO
332TODO
333-}
333-}
334
334
335type IdentityToolkitAPI =
335type IdentityToolkitAPI =
336− RelyingPartyyCreateAuthURIResource :<|>
336+ RelyingPartyCreateAuthURIResource :<|>
337− RelyingPartyyUploadAccountResource
337+ RelyingPartyUploadAccountResource
338− :<|> RelyingPartyyResetPasswordResource
338+ :<|> RelyingPartyResetPasswordResource
339− :<|> RelyingPartyySetAccountInfoResource
339+ :<|> RelyingPartySetAccountInfoResource
340− :<|> RelyingPartyyVerifyAssertionResource
340+ :<|> RelyingPartyVerifyAssertionResource
341− :<|> RelyingPartyyDeleteAccountResource
341+ :<|> RelyingPartyDeleteAccountResource
342− :<|> RelyingPartyyGetOobConfirmationCodeResource
342+ :<|> RelyingPartyGetOOBConfirmationCodeResource
343− :<|> RelyingPartyyGetRecaptchaParamResource
343+ :<|> RelyingPartyGetRecaptchaParamResource
344− :<|> RelyingPartyyDownloadAccountResource
344+ :<|> RelyingPartyDownloadAccountResource
345− :<|> RelyingPartyyVerifyPasswordResource
345+ :<|> RelyingPartyVerifyPasswordResource
346− :<|> RelyingPartyyGetPublicKeysResource
346+ :<|> RelyingPartyGetPublicKeysResource
347− :<|> RelyingPartyyGetAccountInfoResource
347+ :<|> RelyingPartyGetAccountInfoResource
348
348
349identityToolkitAPI :: Proxy IdentityToolkitAPI
349identityToolkitAPI :: Proxy IdentityToolkitAPI
350identityToolkitAPI = Proxy
350identityToolkitAPI = Proxy
gogol-identity-toolkit/gen/Network/Google/IdentityToolkit/Types.hs+40−40
@@ -33,31 +33,31 @@ module Network.Google.IdentityToolkit.Types
33 , uiPasswordHash
33 , uiPasswordHash
34 , uiLocalId
34 , uiLocalId
35
35
36− -- * IdentitytoolkitRelyingPartyyVerifyPasswordRequest
36+ -- * IdentitytoolkitRelyingPartyVerifyPasswordRequest
37− , IdentitytoolkitRelyingPartyyVerifyPasswordRequest
37+ , IdentitytoolkitRelyingPartyVerifyPasswordRequest
38− , identitytoolkitRelyingPartyyVerifyPasswordRequest
38+ , identitytoolkitRelyingPartyVerifyPasswordRequest
39 , irpvprEmail
39 , irpvprEmail
40 , irpvprCaptchaChallenge
40 , irpvprCaptchaChallenge
41 , irpvprPassword
41 , irpvprPassword
42 , irpvprCaptchaResponse
42 , irpvprCaptchaResponse
43 , irpvprPendingIdToken
43 , irpvprPendingIdToken
44
44
45− -- * IdentitytoolkitRelyingPartyyVerifyAssertionRequest
45+ -- * IdentitytoolkitRelyingPartyVerifyAssertionRequest
46− , IdentitytoolkitRelyingPartyyVerifyAssertionRequest
46+ , IdentitytoolkitRelyingPartyVerifyAssertionRequest
47− , identitytoolkitRelyingPartyyVerifyAssertionRequest
47+ , identitytoolkitRelyingPartyVerifyAssertionRequest
48 , irpvarPostBody
48 , irpvarPostBody
49 , irpvarReturnRefreshToken
49 , irpvarReturnRefreshToken
50 , irpvarRequestURI
50 , irpvarRequestURI
51 , irpvarPendingIdToken
51 , irpvarPendingIdToken
52
52
53− -- * IdentitytoolkitRelyingPartyySetAccountInfoRequest
53+ -- * IdentitytoolkitRelyingPartySetAccountInfoRequest
54− , IdentitytoolkitRelyingPartyySetAccountInfoRequest
54+ , IdentitytoolkitRelyingPartySetAccountInfoRequest
55− , identitytoolkitRelyingPartyySetAccountInfoRequest
55+ , identitytoolkitRelyingPartySetAccountInfoRequest
56 , irpsairUpgradeToFederatedLogin
56 , irpsairUpgradeToFederatedLogin
57 , irpsairEmail
57 , irpsairEmail
58 , irpsairCaptchaChallenge
58 , irpsairCaptchaChallenge
59 , irpsairValidSince
59 , irpsairValidSince
60− , irpsairOobCode
60+ , irpsairOOBCode
61 , irpsairPassword
61 , irpsairPassword
62 , irpsairCaptchaResponse
62 , irpsairCaptchaResponse
63 , irpsairEmailVerified
63 , irpsairEmailVerified
@@ -101,9 +101,9 @@ module Network.Google.IdentityToolkit.Types
101 , caurRegistered
101 , caurRegistered
102 , caurForExistingProvider
102 , caurForExistingProvider
103
103
104− -- * RelyingPartyy
104+ -- * RelyingParty
105− , RelyingPartyy
105+ , RelyingParty
106− , relyingPartyy
106+ , relyingParty
107 , rpEmail
107 , rpEmail
108 , rpKind
108 , rpKind
109 , rpUserIP
109 , rpUserIP
@@ -113,20 +113,20 @@ module Network.Google.IdentityToolkit.Types
113 , rpChallenge
113 , rpChallenge
114 , rpIdToken
114 , rpIdToken
115
115
116− -- * IdentitytoolkitRelyingPartyyGetAccountInfoRequest
116+ -- * IdentitytoolkitRelyingPartyGetAccountInfoRequest
117− , IdentitytoolkitRelyingPartyyGetAccountInfoRequest
117+ , IdentitytoolkitRelyingPartyGetAccountInfoRequest
118− , identitytoolkitRelyingPartyyGetAccountInfoRequest
118+ , identitytoolkitRelyingPartyGetAccountInfoRequest
119 , irpgairEmail
119 , irpgairEmail
120 , irpgairLocalId
120 , irpgairLocalId
121 , irpgairIdToken
121 , irpgairIdToken
122
122
123− -- * IdentitytoolkitRelyingPartyyGetPublicKeysResponse
123+ -- * IdentitytoolkitRelyingPartyGetPublicKeysResponse
124− , IdentitytoolkitRelyingPartyyGetPublicKeysResponse
124+ , IdentitytoolkitRelyingPartyGetPublicKeysResponse
125− , identitytoolkitRelyingPartyyGetPublicKeysResponse
125+ , identitytoolkitRelyingPartyGetPublicKeysResponse
126
126
127− -- * IdentitytoolkitRelyingPartyyCreateAuthURIRequest
127+ -- * IdentitytoolkitRelyingPartyCreateAuthURIRequest
128− , IdentitytoolkitRelyingPartyyCreateAuthURIRequest
128+ , IdentitytoolkitRelyingPartyCreateAuthURIRequest
129− , identitytoolkitRelyingPartyyCreateAuthURIRequest
129+ , identitytoolkitRelyingPartyCreateAuthURIRequest
130 , irpcaurProviderId
130 , irpcaurProviderId
131 , irpcaurClientId
131 , irpcaurClientId
132 , irpcaurContext
132 , irpcaurContext
@@ -138,9 +138,9 @@ module Network.Google.IdentityToolkit.Types
138 , irpcaurOAuthScope
138 , irpcaurOAuthScope
139 , irpcaurOpenidRealm
139 , irpcaurOpenidRealm
140
140
141− -- * IdentitytoolkitRelyingPartyyUploadAccountRequest
141+ -- * IdentitytoolkitRelyingPartyUploadAccountRequest
142− , IdentitytoolkitRelyingPartyyUploadAccountRequest
142+ , IdentitytoolkitRelyingPartyUploadAccountRequest
143− , identitytoolkitRelyingPartyyUploadAccountRequest
143+ , identitytoolkitRelyingPartyUploadAccountRequest
144 , irpuarUsers
144 , irpuarUsers
145 , irpuarMemoryCost
145 , irpuarMemoryCost
146 , irpuarSaltSeparator
146 , irpuarSaltSeparator
@@ -148,12 +148,12 @@ module Network.Google.IdentityToolkit.Types
148 , irpuarSignerKey
148 , irpuarSignerKey
149 , irpuarRounds
149 , irpuarRounds
150
150
151− -- * IdentitytoolkitRelyingPartyyResetPasswordRequest
151+ -- * IdentitytoolkitRelyingPartyResetPasswordRequest
152− , IdentitytoolkitRelyingPartyyResetPasswordRequest
152+ , IdentitytoolkitRelyingPartyResetPasswordRequest
153− , identitytoolkitRelyingPartyyResetPasswordRequest
153+ , identitytoolkitRelyingPartyResetPasswordRequest
154 , irprprEmail
154 , irprprEmail
155 , irprprNewPassword
155 , irprprNewPassword
156− , irprprOobCode
156+ , irprprOOBCode
157 , irprprOldPassword
157 , irprprOldPassword
158
158
159 -- * GetAccountInfoResponse
159 -- * GetAccountInfoResponse
@@ -162,15 +162,15 @@ module Network.Google.IdentityToolkit.Types
162 , gairUsers
162 , gairUsers
163 , gairKind
163 , gairKind
164
164
165− -- * GetOobConfirmationCodeResponse
165+ -- * GetOOBConfirmationCodeResponse
166− , GetOobConfirmationCodeResponse
166+ , GetOOBConfirmationCodeResponse
167− , getOobConfirmationCodeResponse
167+ , getOOBConfirmationCodeResponse
168− , goccrKind
168+ , goobccrKind
169− , goccrOobCode
169+ , goobccrOOBCode
170
170
171− -- * IdentitytoolkitRelyingPartyyDeleteAccountRequest
171+ -- * IdentitytoolkitRelyingPartyDeleteAccountRequest
172− , IdentitytoolkitRelyingPartyyDeleteAccountRequest
172+ , IdentitytoolkitRelyingPartyDeleteAccountRequest
173− , identitytoolkitRelyingPartyyDeleteAccountRequest
173+ , identitytoolkitRelyingPartyDeleteAccountRequest
174 , irpdarLocalId
174 , irpdarLocalId
175
175
176 -- * SetAccountInfoResponseProviderUserInfo
176 -- * SetAccountInfoResponseProviderUserInfo
@@ -180,9 +180,9 @@ module Network.Google.IdentityToolkit.Types
180 , sairpuiPhotoURL
180 , sairpuiPhotoURL
181 , sairpuiDisplayName
181 , sairpuiDisplayName
182
182
183− -- * IdentitytoolkitRelyingPartyyDownloadAccountRequest
183+ -- * IdentitytoolkitRelyingPartyDownloadAccountRequest
184− , IdentitytoolkitRelyingPartyyDownloadAccountRequest
184+ , IdentitytoolkitRelyingPartyDownloadAccountRequest
185− , identitytoolkitRelyingPartyyDownloadAccountRequest
185+ , identitytoolkitRelyingPartyDownloadAccountRequest
186 , irpdarNextPageToken
186 , irpdarNextPageToken
187 , irpdarMaxResults
187 , irpdarMaxResults
188
188
gogol-identity-toolkit/gen/Network/Google/IdentityToolkit/Types/Product.hs+230−238
@@ -182,8 +182,8 @@ instance ToJSON UserInfo where
182
182
183-- | Request to verify the password.
183-- | Request to verify the password.
184--
184--
185−-- /See:/ 'identitytoolkitRelyingPartyyVerifyPasswordRequest' smart constructor.
185+-- /See:/ 'identitytoolkitRelyingPartyVerifyPasswordRequest' smart constructor.
186−data IdentitytoolkitRelyingPartyyVerifyPasswordRequest = IdentitytoolkitRelyingPartyyVerifyPasswordRequest
186+data IdentitytoolkitRelyingPartyVerifyPasswordRequest = IdentitytoolkitRelyingPartyVerifyPasswordRequest
187 { _irpvprEmail :: !(Maybe Text)
187 { _irpvprEmail :: !(Maybe Text)
188 , _irpvprCaptchaChallenge :: !(Maybe Text)
188 , _irpvprCaptchaChallenge :: !(Maybe Text)
189 , _irpvprPassword :: !(Maybe Text)
189 , _irpvprPassword :: !(Maybe Text)
@@ -191,7 +191,7 @@ data IdentitytoolkitRelyingPartyyVerifyPasswordRequest = IdentitytoolkitRelyingP
191 , _irpvprPendingIdToken :: !(Maybe Text)
191 , _irpvprPendingIdToken :: !(Maybe Text)
192 } deriving (Eq,Read,Show,Data,Typeable,Generic)
192 } deriving (Eq,Read,Show,Data,Typeable,Generic)
193
193
194−-- | Creates a value of 'IdentitytoolkitRelyingPartyyVerifyPasswordRequest' with the minimum fields required to make a request.
194+-- | Creates a value of 'IdentitytoolkitRelyingPartyVerifyPasswordRequest' with the minimum fields required to make a request.
195--
195--
196-- Use one of the following lenses to modify other fields as desired:
196-- Use one of the following lenses to modify other fields as desired:
197--
197--
@@ -204,10 +204,10 @@ data IdentitytoolkitRelyingPartyyVerifyPasswordRequest = IdentitytoolkitRelyingP
204-- * 'irpvprCaptchaResponse'
204-- * 'irpvprCaptchaResponse'
205--
205--
206-- * 'irpvprPendingIdToken'
206-- * 'irpvprPendingIdToken'
207−identitytoolkitRelyingPartyyVerifyPasswordRequest
207+identitytoolkitRelyingPartyVerifyPasswordRequest
208− :: IdentitytoolkitRelyingPartyyVerifyPasswordRequest
208+ :: IdentitytoolkitRelyingPartyVerifyPasswordRequest
209−identitytoolkitRelyingPartyyVerifyPasswordRequest =
209+identitytoolkitRelyingPartyVerifyPasswordRequest =
210− IdentitytoolkitRelyingPartyyVerifyPasswordRequest
210+ IdentitytoolkitRelyingPartyVerifyPasswordRequest
211 { _irpvprEmail = Nothing
211 { _irpvprEmail = Nothing
212 , _irpvprCaptchaChallenge = Nothing
212 , _irpvprCaptchaChallenge = Nothing
213 , _irpvprPassword = Nothing
213 , _irpvprPassword = Nothing
@@ -216,53 +216,53 @@ identitytoolkitRelyingPartyyVerifyPasswordRequest =
216 }
216 }
217
217
218-- | The email of the user.
218-- | The email of the user.
219−irpvprEmail :: Lens' IdentitytoolkitRelyingPartyyVerifyPasswordRequest (Maybe Text)
219+irpvprEmail :: Lens' IdentitytoolkitRelyingPartyVerifyPasswordRequest (Maybe Text)
220irpvprEmail
220irpvprEmail
221 = lens _irpvprEmail (\ s a -> s{_irpvprEmail = a})
221 = lens _irpvprEmail (\ s a -> s{_irpvprEmail = a})
222
222
223-- | The captcha challenge.
223-- | The captcha challenge.
224−irpvprCaptchaChallenge :: Lens' IdentitytoolkitRelyingPartyyVerifyPasswordRequest (Maybe Text)
224+irpvprCaptchaChallenge :: Lens' IdentitytoolkitRelyingPartyVerifyPasswordRequest (Maybe Text)
225irpvprCaptchaChallenge
225irpvprCaptchaChallenge
226 = lens _irpvprCaptchaChallenge
226 = lens _irpvprCaptchaChallenge
227 (\ s a -> s{_irpvprCaptchaChallenge = a})
227 (\ s a -> s{_irpvprCaptchaChallenge = a})
228
228
229-- | The password inputed by the user.
229-- | The password inputed by the user.
230−irpvprPassword :: Lens' IdentitytoolkitRelyingPartyyVerifyPasswordRequest (Maybe Text)
230+irpvprPassword :: Lens' IdentitytoolkitRelyingPartyVerifyPasswordRequest (Maybe Text)
231irpvprPassword
231irpvprPassword
232 = lens _irpvprPassword
232 = lens _irpvprPassword
233 (\ s a -> s{_irpvprPassword = a})
233 (\ s a -> s{_irpvprPassword = a})
234
234
235-- | Response to the captcha.
235-- | Response to the captcha.
236−irpvprCaptchaResponse :: Lens' IdentitytoolkitRelyingPartyyVerifyPasswordRequest (Maybe Text)
236+irpvprCaptchaResponse :: Lens' IdentitytoolkitRelyingPartyVerifyPasswordRequest (Maybe Text)
237irpvprCaptchaResponse
237irpvprCaptchaResponse
238 = lens _irpvprCaptchaResponse
238 = lens _irpvprCaptchaResponse
239 (\ s a -> s{_irpvprCaptchaResponse = a})
239 (\ s a -> s{_irpvprCaptchaResponse = a})
240
240
241-- | The GITKit token for the non-trusted IDP, which is to be confirmed by
241-- | The GITKit token for the non-trusted IDP, which is to be confirmed by
242-- the user.
242-- the user.
243−irpvprPendingIdToken :: Lens' IdentitytoolkitRelyingPartyyVerifyPasswordRequest (Maybe Text)
243+irpvprPendingIdToken :: Lens' IdentitytoolkitRelyingPartyVerifyPasswordRequest (Maybe Text)
244irpvprPendingIdToken
244irpvprPendingIdToken
245 = lens _irpvprPendingIdToken
245 = lens _irpvprPendingIdToken
246 (\ s a -> s{_irpvprPendingIdToken = a})
246 (\ s a -> s{_irpvprPendingIdToken = a})
247
247
248instance FromJSON
248instance FromJSON
249− IdentitytoolkitRelyingPartyyVerifyPasswordRequest
249+ IdentitytoolkitRelyingPartyVerifyPasswordRequest
250 where
250 where
251 parseJSON
251 parseJSON
252 = withObject
252 = withObject
253− "IdentitytoolkitRelyingPartyyVerifyPasswordRequest"
253+ "IdentitytoolkitRelyingPartyVerifyPasswordRequest"
254 (\ o ->
254 (\ o ->
255− IdentitytoolkitRelyingPartyyVerifyPasswordRequest <$>
255+ IdentitytoolkitRelyingPartyVerifyPasswordRequest <$>
256 (o .:? "email") <*> (o .:? "captchaChallenge") <*>
256 (o .:? "email") <*> (o .:? "captchaChallenge") <*>
257 (o .:? "password")
257 (o .:? "password")
258 <*> (o .:? "captchaResponse")
258 <*> (o .:? "captchaResponse")
259 <*> (o .:? "pendingIdToken"))
259 <*> (o .:? "pendingIdToken"))
260
260
261instance ToJSON
261instance ToJSON
262− IdentitytoolkitRelyingPartyyVerifyPasswordRequest
262+ IdentitytoolkitRelyingPartyVerifyPasswordRequest
263 where
263 where
264 toJSON
264 toJSON
265− IdentitytoolkitRelyingPartyyVerifyPasswordRequest{..}
265+ IdentitytoolkitRelyingPartyVerifyPasswordRequest{..}
266 = object
266 = object
267 (catMaybes
267 (catMaybes
268 [("email" .=) <$> _irpvprEmail,
268 [("email" .=) <$> _irpvprEmail,
@@ -273,15 +273,15 @@ instance ToJSON
273
273
274-- | Request to verify the IDP assertion.
274-- | Request to verify the IDP assertion.
275--
275--
276−-- /See:/ 'identitytoolkitRelyingPartyyVerifyAssertionRequest' smart constructor.
276+-- /See:/ 'identitytoolkitRelyingPartyVerifyAssertionRequest' smart constructor.
277−data IdentitytoolkitRelyingPartyyVerifyAssertionRequest = IdentitytoolkitRelyingPartyyVerifyAssertionRequest
277+data IdentitytoolkitRelyingPartyVerifyAssertionRequest = IdentitytoolkitRelyingPartyVerifyAssertionRequest
278 { _irpvarPostBody :: !(Maybe Text)
278 { _irpvarPostBody :: !(Maybe Text)
279 , _irpvarReturnRefreshToken :: !(Maybe Bool)
279 , _irpvarReturnRefreshToken :: !(Maybe Bool)
280 , _irpvarRequestURI :: !(Maybe Text)
280 , _irpvarRequestURI :: !(Maybe Text)
281 , _irpvarPendingIdToken :: !(Maybe Text)
281 , _irpvarPendingIdToken :: !(Maybe Text)
282 } deriving (Eq,Read,Show,Data,Typeable,Generic)
282 } deriving (Eq,Read,Show,Data,Typeable,Generic)
283
283
284−-- | Creates a value of 'IdentitytoolkitRelyingPartyyVerifyAssertionRequest' with the minimum fields required to make a request.
284+-- | Creates a value of 'IdentitytoolkitRelyingPartyVerifyAssertionRequest' with the minimum fields required to make a request.
285--
285--
286-- Use one of the following lenses to modify other fields as desired:
286-- Use one of the following lenses to modify other fields as desired:
287--
287--
@@ -292,10 +292,10 @@ data IdentitytoolkitRelyingPartyyVerifyAssertionRequest = IdentitytoolkitRelying
292-- * 'irpvarRequestURI'
292-- * 'irpvarRequestURI'
293--
293--
294-- * 'irpvarPendingIdToken'
294-- * 'irpvarPendingIdToken'
295−identitytoolkitRelyingPartyyVerifyAssertionRequest
295+identitytoolkitRelyingPartyVerifyAssertionRequest
296− :: IdentitytoolkitRelyingPartyyVerifyAssertionRequest
296+ :: IdentitytoolkitRelyingPartyVerifyAssertionRequest
297−identitytoolkitRelyingPartyyVerifyAssertionRequest =
297+identitytoolkitRelyingPartyVerifyAssertionRequest =
298− IdentitytoolkitRelyingPartyyVerifyAssertionRequest
298+ IdentitytoolkitRelyingPartyVerifyAssertionRequest
299 { _irpvarPostBody = Nothing
299 { _irpvarPostBody = Nothing
300 , _irpvarReturnRefreshToken = Nothing
300 , _irpvarReturnRefreshToken = Nothing
301 , _irpvarRequestURI = Nothing
301 , _irpvarRequestURI = Nothing
@@ -303,49 +303,48 @@ identitytoolkitRelyingPartyyVerifyAssertionRequest =
303 }
303 }
304
304
305-- | The post body if the request is a HTTP POST.
305-- | The post body if the request is a HTTP POST.
306−irpvarPostBody :: Lens' IdentitytoolkitRelyingPartyyVerifyAssertionRequest (Maybe Text)
306+irpvarPostBody :: Lens' IdentitytoolkitRelyingPartyVerifyAssertionRequest (Maybe Text)
307irpvarPostBody
307irpvarPostBody
308 = lens _irpvarPostBody
308 = lens _irpvarPostBody
309 (\ s a -> s{_irpvarPostBody = a})
309 (\ s a -> s{_irpvarPostBody = a})
310
310
311-- | Whether to return refresh tokens.
311-- | Whether to return refresh tokens.
312−irpvarReturnRefreshToken :: Lens' IdentitytoolkitRelyingPartyyVerifyAssertionRequest (Maybe Bool)
312+irpvarReturnRefreshToken :: Lens' IdentitytoolkitRelyingPartyVerifyAssertionRequest (Maybe Bool)
313irpvarReturnRefreshToken
313irpvarReturnRefreshToken
314 = lens _irpvarReturnRefreshToken
314 = lens _irpvarReturnRefreshToken
315 (\ s a -> s{_irpvarReturnRefreshToken = a})
315 (\ s a -> s{_irpvarReturnRefreshToken = a})
316
316
317-- | The URI to which the IDP redirects the user back. It may contain
317-- | The URI to which the IDP redirects the user back. It may contain
318-- federated login result params added by the IDP.
318-- federated login result params added by the IDP.
319−irpvarRequestURI :: Lens' IdentitytoolkitRelyingPartyyVerifyAssertionRequest (Maybe Text)
319+irpvarRequestURI :: Lens' IdentitytoolkitRelyingPartyVerifyAssertionRequest (Maybe Text)
320irpvarRequestURI
320irpvarRequestURI
321 = lens _irpvarRequestURI
321 = lens _irpvarRequestURI
322 (\ s a -> s{_irpvarRequestURI = a})
322 (\ s a -> s{_irpvarRequestURI = a})
323
323
324-- | The GITKit token for the non-trusted IDP pending to be confirmed by the
324-- | The GITKit token for the non-trusted IDP pending to be confirmed by the
325-- user.
325-- user.
326−irpvarPendingIdToken :: Lens' IdentitytoolkitRelyingPartyyVerifyAssertionRequest (Maybe Text)
326+irpvarPendingIdToken :: Lens' IdentitytoolkitRelyingPartyVerifyAssertionRequest (Maybe Text)
327irpvarPendingIdToken
327irpvarPendingIdToken
328 = lens _irpvarPendingIdToken
328 = lens _irpvarPendingIdToken
329 (\ s a -> s{_irpvarPendingIdToken = a})
329 (\ s a -> s{_irpvarPendingIdToken = a})
330
330
331instance FromJSON
331instance FromJSON
332− IdentitytoolkitRelyingPartyyVerifyAssertionRequest
332+ IdentitytoolkitRelyingPartyVerifyAssertionRequest
333 where
333 where
334 parseJSON
334 parseJSON
335 = withObject
335 = withObject
336− "IdentitytoolkitRelyingPartyyVerifyAssertionRequest"
336+ "IdentitytoolkitRelyingPartyVerifyAssertionRequest"
337 (\ o ->
337 (\ o ->
338− IdentitytoolkitRelyingPartyyVerifyAssertionRequest
338+ IdentitytoolkitRelyingPartyVerifyAssertionRequest <$>
339− <$>
340 (o .:? "postBody") <*> (o .:? "returnRefreshToken")
339 (o .:? "postBody") <*> (o .:? "returnRefreshToken")
341 <*> (o .:? "requestUri")
340 <*> (o .:? "requestUri")
342 <*> (o .:? "pendingIdToken"))
341 <*> (o .:? "pendingIdToken"))
343
342
344instance ToJSON
343instance ToJSON
345− IdentitytoolkitRelyingPartyyVerifyAssertionRequest
344+ IdentitytoolkitRelyingPartyVerifyAssertionRequest
346 where
345 where
347 toJSON
346 toJSON
348− IdentitytoolkitRelyingPartyyVerifyAssertionRequest{..}
347+ IdentitytoolkitRelyingPartyVerifyAssertionRequest{..}
349 = object
348 = object
350 (catMaybes
349 (catMaybes
351 [("postBody" .=) <$> _irpvarPostBody,
350 [("postBody" .=) <$> _irpvarPostBody,
@@ -356,13 +355,13 @@ instance ToJSON
356
355
357-- | Request to set the account information.
356-- | Request to set the account information.
358--
357--
359−-- /See:/ 'identitytoolkitRelyingPartyySetAccountInfoRequest' smart constructor.
358+-- /See:/ 'identitytoolkitRelyingPartySetAccountInfoRequest' smart constructor.
360−data IdentitytoolkitRelyingPartyySetAccountInfoRequest = IdentitytoolkitRelyingPartyySetAccountInfoRequest
359+data IdentitytoolkitRelyingPartySetAccountInfoRequest = IdentitytoolkitRelyingPartySetAccountInfoRequest
361 { _irpsairUpgradeToFederatedLogin :: !(Maybe Bool)
360 { _irpsairUpgradeToFederatedLogin :: !(Maybe Bool)
362 , _irpsairEmail :: !(Maybe Text)
361 , _irpsairEmail :: !(Maybe Text)
363 , _irpsairCaptchaChallenge :: !(Maybe Text)
362 , _irpsairCaptchaChallenge :: !(Maybe Text)
364 , _irpsairValidSince :: !(Maybe Int64)
363 , _irpsairValidSince :: !(Maybe Int64)
365− , _irpsairOobCode :: !(Maybe Text)
364+ , _irpsairOOBCode :: !(Maybe Text)
366 , _irpsairPassword :: !(Maybe Text)
365 , _irpsairPassword :: !(Maybe Text)
367 , _irpsairCaptchaResponse :: !(Maybe Text)
366 , _irpsairCaptchaResponse :: !(Maybe Text)
368 , _irpsairEmailVerified :: !(Maybe Bool)
367 , _irpsairEmailVerified :: !(Maybe Bool)
@@ -373,7 +372,7 @@ data IdentitytoolkitRelyingPartyySetAccountInfoRequest = IdentitytoolkitRelyingP
373 , _irpsairProvider :: !(Maybe [Text])
372 , _irpsairProvider :: !(Maybe [Text])
374 } deriving (Eq,Read,Show,Data,Typeable,Generic)
373 } deriving (Eq,Read,Show,Data,Typeable,Generic)
375
374
376−-- | Creates a value of 'IdentitytoolkitRelyingPartyySetAccountInfoRequest' with the minimum fields required to make a request.
375+-- | Creates a value of 'IdentitytoolkitRelyingPartySetAccountInfoRequest' with the minimum fields required to make a request.
377--
376--
378-- Use one of the following lenses to modify other fields as desired:
377-- Use one of the following lenses to modify other fields as desired:
379--
378--
@@ -385,7 +384,7 @@ data IdentitytoolkitRelyingPartyySetAccountInfoRequest = IdentitytoolkitRelyingP
385--
384--
386-- * 'irpsairValidSince'
385-- * 'irpsairValidSince'
387--
386--
388−-- * 'irpsairOobCode'
387+-- * 'irpsairOOBCode'
389--
388--
390-- * 'irpsairPassword'
389-- * 'irpsairPassword'
391--
390--
@@ -402,15 +401,15 @@ data IdentitytoolkitRelyingPartyySetAccountInfoRequest = IdentitytoolkitRelyingP
402-- * 'irpsairIdToken'
401-- * 'irpsairIdToken'
403--
402--
404-- * 'irpsairProvider'
403-- * 'irpsairProvider'
405−identitytoolkitRelyingPartyySetAccountInfoRequest
404+identitytoolkitRelyingPartySetAccountInfoRequest
406− :: IdentitytoolkitRelyingPartyySetAccountInfoRequest
405+ :: IdentitytoolkitRelyingPartySetAccountInfoRequest
407−identitytoolkitRelyingPartyySetAccountInfoRequest =
406+identitytoolkitRelyingPartySetAccountInfoRequest =
408− IdentitytoolkitRelyingPartyySetAccountInfoRequest
407+ IdentitytoolkitRelyingPartySetAccountInfoRequest
409 { _irpsairUpgradeToFederatedLogin = Nothing
408 { _irpsairUpgradeToFederatedLogin = Nothing
410 , _irpsairEmail = Nothing
409 , _irpsairEmail = Nothing
411 , _irpsairCaptchaChallenge = Nothing
410 , _irpsairCaptchaChallenge = Nothing
412 , _irpsairValidSince = Nothing
411 , _irpsairValidSince = Nothing
413− , _irpsairOobCode = Nothing
412+ , _irpsairOOBCode = Nothing
414 , _irpsairPassword = Nothing
413 , _irpsairPassword = Nothing
415 , _irpsairCaptchaResponse = Nothing
414 , _irpsairCaptchaResponse = Nothing
416 , _irpsairEmailVerified = Nothing
415 , _irpsairEmailVerified = Nothing
@@ -422,78 +421,78 @@ identitytoolkitRelyingPartyySetAccountInfoRequest =
422 }
421 }
423
422
424-- | Mark the user to upgrade to federated login.
423-- | Mark the user to upgrade to federated login.
425−irpsairUpgradeToFederatedLogin :: Lens' IdentitytoolkitRelyingPartyySetAccountInfoRequest (Maybe Bool)
424+irpsairUpgradeToFederatedLogin :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Bool)
426irpsairUpgradeToFederatedLogin
425irpsairUpgradeToFederatedLogin
427 = lens _irpsairUpgradeToFederatedLogin
426 = lens _irpsairUpgradeToFederatedLogin
428 (\ s a -> s{_irpsairUpgradeToFederatedLogin = a})
427 (\ s a -> s{_irpsairUpgradeToFederatedLogin = a})
429
428
430-- | The email of the user.
429-- | The email of the user.
431−irpsairEmail :: Lens' IdentitytoolkitRelyingPartyySetAccountInfoRequest (Maybe Text)
430+irpsairEmail :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Text)
432irpsairEmail
431irpsairEmail
433 = lens _irpsairEmail (\ s a -> s{_irpsairEmail = a})
432 = lens _irpsairEmail (\ s a -> s{_irpsairEmail = a})
434
433
435-- | The captcha challenge.
434-- | The captcha challenge.
436−irpsairCaptchaChallenge :: Lens' IdentitytoolkitRelyingPartyySetAccountInfoRequest (Maybe Text)
435+irpsairCaptchaChallenge :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Text)
437irpsairCaptchaChallenge
436irpsairCaptchaChallenge
438 = lens _irpsairCaptchaChallenge
437 = lens _irpsairCaptchaChallenge
439 (\ s a -> s{_irpsairCaptchaChallenge = a})
438 (\ s a -> s{_irpsairCaptchaChallenge = a})
440
439
441-- | Timestamp in seconds for valid login token.
440-- | Timestamp in seconds for valid login token.
442−irpsairValidSince :: Lens' IdentitytoolkitRelyingPartyySetAccountInfoRequest (Maybe Int64)
441+irpsairValidSince :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Int64)
443irpsairValidSince
442irpsairValidSince
444 = lens _irpsairValidSince
443 = lens _irpsairValidSince
445 (\ s a -> s{_irpsairValidSince = a})
444 (\ s a -> s{_irpsairValidSince = a})
446
445
447-- | The out-of-band code of the change email request.
446-- | The out-of-band code of the change email request.
448−irpsairOobCode :: Lens' IdentitytoolkitRelyingPartyySetAccountInfoRequest (Maybe Text)
447+irpsairOOBCode :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Text)
449−irpsairOobCode
448+irpsairOOBCode
450− = lens _irpsairOobCode
449+ = lens _irpsairOOBCode
451− (\ s a -> s{_irpsairOobCode = a})
450+ (\ s a -> s{_irpsairOOBCode = a})
452
451
453-- | The new password of the user.
452-- | The new password of the user.
454−irpsairPassword :: Lens' IdentitytoolkitRelyingPartyySetAccountInfoRequest (Maybe Text)
453+irpsairPassword :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Text)
455irpsairPassword
454irpsairPassword
456 = lens _irpsairPassword
455 = lens _irpsairPassword
457 (\ s a -> s{_irpsairPassword = a})
456 (\ s a -> s{_irpsairPassword = a})
458
457
459-- | Response to the captcha.
458-- | Response to the captcha.
460−irpsairCaptchaResponse :: Lens' IdentitytoolkitRelyingPartyySetAccountInfoRequest (Maybe Text)
459+irpsairCaptchaResponse :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Text)
461irpsairCaptchaResponse
460irpsairCaptchaResponse
462 = lens _irpsairCaptchaResponse
461 = lens _irpsairCaptchaResponse
463 (\ s a -> s{_irpsairCaptchaResponse = a})
462 (\ s a -> s{_irpsairCaptchaResponse = a})
464
463
465-- | Mark the email as verified or not.
464-- | Mark the email as verified or not.
466−irpsairEmailVerified :: Lens' IdentitytoolkitRelyingPartyySetAccountInfoRequest (Maybe Bool)
465+irpsairEmailVerified :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Bool)
467irpsairEmailVerified
466irpsairEmailVerified
468 = lens _irpsairEmailVerified
467 = lens _irpsairEmailVerified
469 (\ s a -> s{_irpsairEmailVerified = a})
468 (\ s a -> s{_irpsairEmailVerified = a})
470
469
471-- | The name of the user.
470-- | The name of the user.
472−irpsairDisplayName :: Lens' IdentitytoolkitRelyingPartyySetAccountInfoRequest (Maybe Text)
471+irpsairDisplayName :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Text)
473irpsairDisplayName
472irpsairDisplayName
474 = lens _irpsairDisplayName
473 = lens _irpsairDisplayName
475 (\ s a -> s{_irpsairDisplayName = a})
474 (\ s a -> s{_irpsairDisplayName = a})
476
475
477-- | Whether to disable the user.
476-- | Whether to disable the user.
478−irpsairDisableUser :: Lens' IdentitytoolkitRelyingPartyySetAccountInfoRequest (Maybe Bool)
477+irpsairDisableUser :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Bool)
479irpsairDisableUser
478irpsairDisableUser
480 = lens _irpsairDisableUser
479 = lens _irpsairDisableUser
481 (\ s a -> s{_irpsairDisableUser = a})
480 (\ s a -> s{_irpsairDisableUser = a})
482
481
483-- | The local ID of the user.
482-- | The local ID of the user.
484−irpsairLocalId :: Lens' IdentitytoolkitRelyingPartyySetAccountInfoRequest (Maybe Text)
483+irpsairLocalId :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Text)
485irpsairLocalId
484irpsairLocalId
486 = lens _irpsairLocalId
485 = lens _irpsairLocalId
487 (\ s a -> s{_irpsairLocalId = a})
486 (\ s a -> s{_irpsairLocalId = a})
488
487
489-- | The GITKit token of the authenticated user.
488-- | The GITKit token of the authenticated user.
490−irpsairIdToken :: Lens' IdentitytoolkitRelyingPartyySetAccountInfoRequest (Maybe Text)
489+irpsairIdToken :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest (Maybe Text)
491irpsairIdToken
490irpsairIdToken
492 = lens _irpsairIdToken
491 = lens _irpsairIdToken
493 (\ s a -> s{_irpsairIdToken = a})
492 (\ s a -> s{_irpsairIdToken = a})
494
493
495-- | The associated IDPs of the user.
494-- | The associated IDPs of the user.
496−irpsairProvider :: Lens' IdentitytoolkitRelyingPartyySetAccountInfoRequest [Text]
495+irpsairProvider :: Lens' IdentitytoolkitRelyingPartySetAccountInfoRequest [Text]
497irpsairProvider
496irpsairProvider
498 = lens _irpsairProvider
497 = lens _irpsairProvider
499 (\ s a -> s{_irpsairProvider = a})
498 (\ s a -> s{_irpsairProvider = a})
@@ -501,13 +500,13 @@ irpsairProvider
501 . _Coerce
500 . _Coerce
502
501
503instance FromJSON
502instance FromJSON
504− IdentitytoolkitRelyingPartyySetAccountInfoRequest
503+ IdentitytoolkitRelyingPartySetAccountInfoRequest
505 where
504 where
506 parseJSON
505 parseJSON
507 = withObject
506 = withObject
508− "IdentitytoolkitRelyingPartyySetAccountInfoRequest"
507+ "IdentitytoolkitRelyingPartySetAccountInfoRequest"
509 (\ o ->
508 (\ o ->
510− IdentitytoolkitRelyingPartyySetAccountInfoRequest <$>
509+ IdentitytoolkitRelyingPartySetAccountInfoRequest <$>
511 (o .:? "upgradeToFederatedLogin") <*> (o .:? "email")
510 (o .:? "upgradeToFederatedLogin") <*> (o .:? "email")
512 <*> (o .:? "captchaChallenge")
511 <*> (o .:? "captchaChallenge")
513 <*> (o .:? "validSince")
512 <*> (o .:? "validSince")
@@ -522,10 +521,10 @@ instance FromJSON
522 <*> (o .:? "provider" .!= mempty))
521 <*> (o .:? "provider" .!= mempty))
523
522
524instance ToJSON
523instance ToJSON
525− IdentitytoolkitRelyingPartyySetAccountInfoRequest
524+ IdentitytoolkitRelyingPartySetAccountInfoRequest
526 where
525 where
527 toJSON
526 toJSON
528− IdentitytoolkitRelyingPartyySetAccountInfoRequest{..}
527+ IdentitytoolkitRelyingPartySetAccountInfoRequest{..}
529 = object
528 = object
530 (catMaybes
529 (catMaybes
531 [("upgradeToFederatedLogin" .=) <$>
530 [("upgradeToFederatedLogin" .=) <$>
@@ -533,7 +532,7 @@ instance ToJSON
533 ("email" .=) <$> _irpsairEmail,
532 ("email" .=) <$> _irpsairEmail,
534 ("captchaChallenge" .=) <$> _irpsairCaptchaChallenge,
533 ("captchaChallenge" .=) <$> _irpsairCaptchaChallenge,
535 ("validSince" .=) <$> _irpsairValidSince,
534 ("validSince" .=) <$> _irpsairValidSince,
536− ("oobCode" .=) <$> _irpsairOobCode,
535+ ("oobCode" .=) <$> _irpsairOOBCode,
537 ("password" .=) <$> _irpsairPassword,
536 ("password" .=) <$> _irpsairPassword,
538 ("captchaResponse" .=) <$> _irpsairCaptchaResponse,
537 ("captchaResponse" .=) <$> _irpsairCaptchaResponse,
539 ("emailVerified" .=) <$> _irpsairEmailVerified,
538 ("emailVerified" .=) <$> _irpsairEmailVerified,
@@ -837,8 +836,8 @@ instance ToJSON CreateAuthURIResponse where
837-- | Request of getting a code for user confirmation (reset password, change
836-- | Request of getting a code for user confirmation (reset password, change
838-- email etc.)
837-- email etc.)
839--
838--
840−-- /See:/ 'relyingPartyy' smart constructor.
839+-- /See:/ 'relyingParty' smart constructor.
841−data RelyingPartyy = RelyingPartyy
840+data RelyingParty = RelyingParty
842 { _rpEmail :: !(Maybe Text)
841 { _rpEmail :: !(Maybe Text)
843 , _rpKind :: !Text
842 , _rpKind :: !Text
844 , _rpUserIP :: !(Maybe Text)
843 , _rpUserIP :: !(Maybe Text)
@@ -849,7 +848,7 @@ data RelyingPartyy = RelyingPartyy
849 , _rpIdToken :: !(Maybe Text)
848 , _rpIdToken :: !(Maybe Text)
850 } deriving (Eq,Read,Show,Data,Typeable,Generic)
849 } deriving (Eq,Read,Show,Data,Typeable,Generic)
851
850
852−-- | Creates a value of 'RelyingPartyy' with the minimum fields required to make a request.
851+-- | Creates a value of 'RelyingParty' with the minimum fields required to make a request.
853--
852--
854-- Use one of the following lenses to modify other fields as desired:
853-- Use one of the following lenses to modify other fields as desired:
855--
854--
@@ -868,10 +867,10 @@ data RelyingPartyy = RelyingPartyy
868-- * 'rpChallenge'
867-- * 'rpChallenge'
869--
868--
870-- * 'rpIdToken'
869-- * 'rpIdToken'
871−relyingPartyy
870+relyingParty
872− :: RelyingPartyy
871+ :: RelyingParty
873−relyingPartyy =
872+relyingParty =
874− RelyingPartyy
873+ RelyingParty
875 { _rpEmail = Nothing
874 { _rpEmail = Nothing
876 , _rpKind = "identitytoolkit#relyingparty"
875 , _rpKind = "identitytoolkit#relyingparty"
877 , _rpUserIP = Nothing
876 , _rpUserIP = Nothing
@@ -883,49 +882,49 @@ relyingPartyy =
883 }
882 }
884
883
885-- | The email of the user.
884-- | The email of the user.
886−rpEmail :: Lens' RelyingPartyy (Maybe Text)
885+rpEmail :: Lens' RelyingParty (Maybe Text)
887rpEmail = lens _rpEmail (\ s a -> s{_rpEmail = a})
886rpEmail = lens _rpEmail (\ s a -> s{_rpEmail = a})
888
887
889-- | The fixed string \"identitytoolkit#relyingparty\".
888-- | The fixed string \"identitytoolkit#relyingparty\".
890−rpKind :: Lens' RelyingPartyy Text
889+rpKind :: Lens' RelyingParty Text
891rpKind = lens _rpKind (\ s a -> s{_rpKind = a})
890rpKind = lens _rpKind (\ s a -> s{_rpKind = a})
892
891
893-- | The IP address of the user.
892-- | The IP address of the user.
894−rpUserIP :: Lens' RelyingPartyy (Maybe Text)
893+rpUserIP :: Lens' RelyingParty (Maybe Text)
895rpUserIP = lens _rpUserIP (\ s a -> s{_rpUserIP = a})
894rpUserIP = lens _rpUserIP (\ s a -> s{_rpUserIP = a})
896
895
897-- | The request type.
896-- | The request type.
898−rpRequestType :: Lens' RelyingPartyy (Maybe Text)
897+rpRequestType :: Lens' RelyingParty (Maybe Text)
899rpRequestType
898rpRequestType
900 = lens _rpRequestType
899 = lens _rpRequestType
901 (\ s a -> s{_rpRequestType = a})
900 (\ s a -> s{_rpRequestType = a})
902
901
903-- | The recaptcha response from the user.
902-- | The recaptcha response from the user.
904−rpCaptchaResp :: Lens' RelyingPartyy (Maybe Text)
903+rpCaptchaResp :: Lens' RelyingParty (Maybe Text)
905rpCaptchaResp
904rpCaptchaResp
906 = lens _rpCaptchaResp
905 = lens _rpCaptchaResp
907 (\ s a -> s{_rpCaptchaResp = a})
906 (\ s a -> s{_rpCaptchaResp = a})
908
907
909-- | The new email if the code is for email change.
908-- | The new email if the code is for email change.
910−rpNewEmail :: Lens' RelyingPartyy (Maybe Text)
909+rpNewEmail :: Lens' RelyingParty (Maybe Text)
911rpNewEmail
910rpNewEmail
912 = lens _rpNewEmail (\ s a -> s{_rpNewEmail = a})
911 = lens _rpNewEmail (\ s a -> s{_rpNewEmail = a})
913
912
914-- | The recaptcha challenge presented to the user.
913-- | The recaptcha challenge presented to the user.
915−rpChallenge :: Lens' RelyingPartyy (Maybe Text)
914+rpChallenge :: Lens' RelyingParty (Maybe Text)
916rpChallenge
915rpChallenge
917 = lens _rpChallenge (\ s a -> s{_rpChallenge = a})
916 = lens _rpChallenge (\ s a -> s{_rpChallenge = a})
918
917
919-- | The user\'s Gitkit login token for email change.
918-- | The user\'s Gitkit login token for email change.
920−rpIdToken :: Lens' RelyingPartyy (Maybe Text)
919+rpIdToken :: Lens' RelyingParty (Maybe Text)
921rpIdToken
920rpIdToken
922 = lens _rpIdToken (\ s a -> s{_rpIdToken = a})
921 = lens _rpIdToken (\ s a -> s{_rpIdToken = a})
923
922
924−instance FromJSON RelyingPartyy where
923+instance FromJSON RelyingParty where
925 parseJSON
924 parseJSON
926− = withObject "RelyingPartyy"
925+ = withObject "RelyingParty"
927 (\ o ->
926 (\ o ->
928− RelyingPartyy <$>
927+ RelyingParty <$>
929 (o .:? "email") <*>
928 (o .:? "email") <*>
930 (o .:? "kind" .!= "identitytoolkit#relyingparty")
929 (o .:? "kind" .!= "identitytoolkit#relyingparty")
931 <*> (o .:? "userIp")
930 <*> (o .:? "userIp")
@@ -935,8 +934,8 @@ instance FromJSON RelyingPartyy where
935 <*> (o .:? "challenge")
934 <*> (o .:? "challenge")
936 <*> (o .:? "idToken"))
935 <*> (o .:? "idToken"))
937
936
938−instance ToJSON RelyingPartyy where
937+instance ToJSON RelyingParty where
939− toJSON RelyingPartyy{..}
938+ toJSON RelyingParty{..}
940 = object
939 = object
941 (catMaybes
940 (catMaybes
942 [("email" .=) <$> _rpEmail, Just ("kind" .= _rpKind),
941 [("email" .=) <$> _rpEmail, Just ("kind" .= _rpKind),
@@ -949,14 +948,14 @@ instance ToJSON RelyingPartyy where
949
948
950-- | Request to get the account information.
949-- | Request to get the account information.
951--
950--
952−-- /See:/ 'identitytoolkitRelyingPartyyGetAccountInfoRequest' smart constructor.
951+-- /See:/ 'identitytoolkitRelyingPartyGetAccountInfoRequest' smart constructor.
953−data IdentitytoolkitRelyingPartyyGetAccountInfoRequest = IdentitytoolkitRelyingPartyyGetAccountInfoRequest
952+data IdentitytoolkitRelyingPartyGetAccountInfoRequest = IdentitytoolkitRelyingPartyGetAccountInfoRequest
954 { _irpgairEmail :: !(Maybe [Text])
953 { _irpgairEmail :: !(Maybe [Text])
955 , _irpgairLocalId :: !(Maybe [Text])
954 , _irpgairLocalId :: !(Maybe [Text])
956 , _irpgairIdToken :: !(Maybe Text)
955 , _irpgairIdToken :: !(Maybe Text)
957 } deriving (Eq,Read,Show,Data,Typeable,Generic)
956 } deriving (Eq,Read,Show,Data,Typeable,Generic)
958
957
959−-- | Creates a value of 'IdentitytoolkitRelyingPartyyGetAccountInfoRequest' with the minimum fields required to make a request.
958+-- | Creates a value of 'IdentitytoolkitRelyingPartyGetAccountInfoRequest' with the minimum fields required to make a request.
960--
959--
961-- Use one of the following lenses to modify other fields as desired:
960-- Use one of the following lenses to modify other fields as desired:
962--
961--
@@ -965,24 +964,24 @@ data IdentitytoolkitRelyingPartyyGetAccountInfoRequest = IdentitytoolkitRelyingP
965-- * 'irpgairLocalId'
964-- * 'irpgairLocalId'
966--
965--
967-- * 'irpgairIdToken'
966-- * 'irpgairIdToken'
968−identitytoolkitRelyingPartyyGetAccountInfoRequest
967+identitytoolkitRelyingPartyGetAccountInfoRequest
969− :: IdentitytoolkitRelyingPartyyGetAccountInfoRequest
968+ :: IdentitytoolkitRelyingPartyGetAccountInfoRequest
970−identitytoolkitRelyingPartyyGetAccountInfoRequest =
969+identitytoolkitRelyingPartyGetAccountInfoRequest =
971− IdentitytoolkitRelyingPartyyGetAccountInfoRequest
970+ IdentitytoolkitRelyingPartyGetAccountInfoRequest
972 { _irpgairEmail = Nothing
971 { _irpgairEmail = Nothing
973 , _irpgairLocalId = Nothing
972 , _irpgairLocalId = Nothing
974 , _irpgairIdToken = Nothing
973 , _irpgairIdToken = Nothing
975 }
974 }
976
975
977-- | The list of emails of the users to inquiry.
976-- | The list of emails of the users to inquiry.
978−irpgairEmail :: Lens' IdentitytoolkitRelyingPartyyGetAccountInfoRequest [Text]
977+irpgairEmail :: Lens' IdentitytoolkitRelyingPartyGetAccountInfoRequest [Text]
979irpgairEmail
978irpgairEmail
980 = lens _irpgairEmail (\ s a -> s{_irpgairEmail = a})
979 = lens _irpgairEmail (\ s a -> s{_irpgairEmail = a})
981 . _Default
980 . _Default
982 . _Coerce
981 . _Coerce
983
982
984-- | The list of local ID\'s of the users to inquiry.
983-- | The list of local ID\'s of the users to inquiry.
985−irpgairLocalId :: Lens' IdentitytoolkitRelyingPartyyGetAccountInfoRequest [Text]
984+irpgairLocalId :: Lens' IdentitytoolkitRelyingPartyGetAccountInfoRequest [Text]
986irpgairLocalId
985irpgairLocalId
987 = lens _irpgairLocalId
986 = lens _irpgairLocalId
988 (\ s a -> s{_irpgairLocalId = a})
987 (\ s a -> s{_irpgairLocalId = a})
@@ -990,28 +989,28 @@ irpgairLocalId
990 . _Coerce
989 . _Coerce
991
990
992-- | The GITKit token of the authenticated user.
991-- | The GITKit token of the authenticated user.
993−irpgairIdToken :: Lens' IdentitytoolkitRelyingPartyyGetAccountInfoRequest (Maybe Text)
992+irpgairIdToken :: Lens' IdentitytoolkitRelyingPartyGetAccountInfoRequest (Maybe Text)
994irpgairIdToken
993irpgairIdToken
995 = lens _irpgairIdToken
994 = lens _irpgairIdToken
996 (\ s a -> s{_irpgairIdToken = a})
995 (\ s a -> s{_irpgairIdToken = a})
997
996
998instance FromJSON
997instance FromJSON
999− IdentitytoolkitRelyingPartyyGetAccountInfoRequest
998+ IdentitytoolkitRelyingPartyGetAccountInfoRequest
1000 where
999 where
1001 parseJSON
1000 parseJSON
1002 = withObject
1001 = withObject
1003− "IdentitytoolkitRelyingPartyyGetAccountInfoRequest"
1002+ "IdentitytoolkitRelyingPartyGetAccountInfoRequest"
1004 (\ o ->
1003 (\ o ->
1005− IdentitytoolkitRelyingPartyyGetAccountInfoRequest <$>
1004+ IdentitytoolkitRelyingPartyGetAccountInfoRequest <$>
1006 (o .:? "email" .!= mempty) <*>
1005 (o .:? "email" .!= mempty) <*>
1007 (o .:? "localId" .!= mempty)
1006 (o .:? "localId" .!= mempty)
1008 <*> (o .:? "idToken"))
1007 <*> (o .:? "idToken"))
1009
1008
1010instance ToJSON
1009instance ToJSON
1011− IdentitytoolkitRelyingPartyyGetAccountInfoRequest
1010+ IdentitytoolkitRelyingPartyGetAccountInfoRequest
1012 where
1011 where
1013 toJSON
1012 toJSON
1014− IdentitytoolkitRelyingPartyyGetAccountInfoRequest{..}
1013+ IdentitytoolkitRelyingPartyGetAccountInfoRequest{..}
1015 = object
1014 = object
1016 (catMaybes
1015 (catMaybes
1017 [("email" .=) <$> _irpgairEmail,
1016 [("email" .=) <$> _irpgairEmail,
@@ -1020,37 +1019,37 @@ instance ToJSON
1020
1019
1021-- | Respone of getting public keys.
1020-- | Respone of getting public keys.
1022--
1021--
1023−-- /See:/ 'identitytoolkitRelyingPartyyGetPublicKeysResponse' smart constructor.
1022+-- /See:/ 'identitytoolkitRelyingPartyGetPublicKeysResponse' smart constructor.
1024−data IdentitytoolkitRelyingPartyyGetPublicKeysResponse =
1023+data IdentitytoolkitRelyingPartyGetPublicKeysResponse =
1025− IdentitytoolkitRelyingPartyyGetPublicKeysResponse
1024+ IdentitytoolkitRelyingPartyGetPublicKeysResponse
1026 deriving (Eq,Read,Show,Data,Typeable,Generic)
1025 deriving (Eq,Read,Show,Data,Typeable,Generic)
1027
1026
1028−-- | Creates a value of 'IdentitytoolkitRelyingPartyyGetPublicKeysResponse' with the minimum fields required to make a request.
1027+-- | Creates a value of 'IdentitytoolkitRelyingPartyGetPublicKeysResponse' with the minimum fields required to make a request.
1029--
1028--
1030−identitytoolkitRelyingPartyyGetPublicKeysResponse
1029+identitytoolkitRelyingPartyGetPublicKeysResponse
1031− :: IdentitytoolkitRelyingPartyyGetPublicKeysResponse
1030+ :: IdentitytoolkitRelyingPartyGetPublicKeysResponse
1032−identitytoolkitRelyingPartyyGetPublicKeysResponse =
1031+identitytoolkitRelyingPartyGetPublicKeysResponse =
1033− IdentitytoolkitRelyingPartyyGetPublicKeysResponse
1032+ IdentitytoolkitRelyingPartyGetPublicKeysResponse
1034
1033
1035instance FromJSON
1034instance FromJSON
1036− IdentitytoolkitRelyingPartyyGetPublicKeysResponse
1035+ IdentitytoolkitRelyingPartyGetPublicKeysResponse
1037 where
1036 where
1038 parseJSON
1037 parseJSON
1039 = withObject
1038 = withObject
1040− "IdentitytoolkitRelyingPartyyGetPublicKeysResponse"
1039+ "IdentitytoolkitRelyingPartyGetPublicKeysResponse"
1041 (\ o ->
1040 (\ o ->
1042 pure
1041 pure
1043− IdentitytoolkitRelyingPartyyGetPublicKeysResponse)
1042+ IdentitytoolkitRelyingPartyGetPublicKeysResponse)
1044
1043
1045instance ToJSON
1044instance ToJSON
1046− IdentitytoolkitRelyingPartyyGetPublicKeysResponse
1045+ IdentitytoolkitRelyingPartyGetPublicKeysResponse
1047 where
1046 where
1048 toJSON = const (Object mempty)
1047 toJSON = const (Object mempty)
1049
1048
1050-- | Request to get the IDP authentication URL.
1049-- | Request to get the IDP authentication URL.
1051--
1050--
1052−-- /See:/ 'identitytoolkitRelyingPartyyCreateAuthURIRequest' smart constructor.
1051+-- /See:/ 'identitytoolkitRelyingPartyCreateAuthURIRequest' smart constructor.
1053−data IdentitytoolkitRelyingPartyyCreateAuthURIRequest = IdentitytoolkitRelyingPartyyCreateAuthURIRequest
1052+data IdentitytoolkitRelyingPartyCreateAuthURIRequest = IdentitytoolkitRelyingPartyCreateAuthURIRequest
1054 { _irpcaurProviderId :: !(Maybe Text)
1053 { _irpcaurProviderId :: !(Maybe Text)
1055 , _irpcaurClientId :: !(Maybe Text)
1054 , _irpcaurClientId :: !(Maybe Text)
1056 , _irpcaurContext :: !(Maybe Text)
1055 , _irpcaurContext :: !(Maybe Text)
@@ -1063,7 +1062,7 @@ data IdentitytoolkitRelyingPartyyCreateAuthURIRequest = IdentitytoolkitRelyingPa
1063 , _irpcaurOpenidRealm :: !(Maybe Text)
1062 , _irpcaurOpenidRealm :: !(Maybe Text)
1064 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1063 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1065
1064
1066−-- | Creates a value of 'IdentitytoolkitRelyingPartyyCreateAuthURIRequest' with the minimum fields required to make a request.
1065+-- | Creates a value of 'IdentitytoolkitRelyingPartyCreateAuthURIRequest' with the minimum fields required to make a request.
1067--
1066--
1068-- Use one of the following lenses to modify other fields as desired:
1067-- Use one of the following lenses to modify other fields as desired:
1069--
1068--
@@ -1086,10 +1085,10 @@ data IdentitytoolkitRelyingPartyyCreateAuthURIRequest = IdentitytoolkitRelyingPa
1086-- * 'irpcaurOAuthScope'
1085-- * 'irpcaurOAuthScope'
1087--
1086--
1088-- * 'irpcaurOpenidRealm'
1087-- * 'irpcaurOpenidRealm'
1089−identitytoolkitRelyingPartyyCreateAuthURIRequest
1088+identitytoolkitRelyingPartyCreateAuthURIRequest
1090− :: IdentitytoolkitRelyingPartyyCreateAuthURIRequest
1089+ :: IdentitytoolkitRelyingPartyCreateAuthURIRequest
1091−identitytoolkitRelyingPartyyCreateAuthURIRequest =
1090+identitytoolkitRelyingPartyCreateAuthURIRequest =
1092− IdentitytoolkitRelyingPartyyCreateAuthURIRequest
1091+ IdentitytoolkitRelyingPartyCreateAuthURIRequest
1093 { _irpcaurProviderId = Nothing
1092 { _irpcaurProviderId = Nothing
1094 , _irpcaurClientId = Nothing
1093 , _irpcaurClientId = Nothing
1095 , _irpcaurContext = Nothing
1094 , _irpcaurContext = Nothing
@@ -1105,58 +1104,58 @@ identitytoolkitRelyingPartyyCreateAuthURIRequest =
1105-- | The IdP ID. For white listed IdPs it\'s a short domain name e.g.
1104-- | The IdP ID. For white listed IdPs it\'s a short domain name e.g.
1106-- google.com, aol.com, live.net and yahoo.com. For other OpenID IdPs it\'s
1105-- google.com, aol.com, live.net and yahoo.com. For other OpenID IdPs it\'s
1107-- the OP identifier.
1106-- the OP identifier.
1108−irpcaurProviderId :: Lens' IdentitytoolkitRelyingPartyyCreateAuthURIRequest (Maybe Text)
1107+irpcaurProviderId :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
1109irpcaurProviderId
1108irpcaurProviderId
1110 = lens _irpcaurProviderId
1109 = lens _irpcaurProviderId
1111 (\ s a -> s{_irpcaurProviderId = a})
1110 (\ s a -> s{_irpcaurProviderId = a})
1112
1111
1113-- | The relying party OAuth client ID.
1112-- | The relying party OAuth client ID.
1114−irpcaurClientId :: Lens' IdentitytoolkitRelyingPartyyCreateAuthURIRequest (Maybe Text)
1113+irpcaurClientId :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
1115irpcaurClientId
1114irpcaurClientId
1116 = lens _irpcaurClientId
1115 = lens _irpcaurClientId
1117 (\ s a -> s{_irpcaurClientId = a})
1116 (\ s a -> s{_irpcaurClientId = a})
1118
1117
1119-- | The opaque value used by the client to maintain context info between the
1118-- | The opaque value used by the client to maintain context info between the
1120-- authentication request and the IDP callback.
1119-- authentication request and the IDP callback.
1121−irpcaurContext :: Lens' IdentitytoolkitRelyingPartyyCreateAuthURIRequest (Maybe Text)
1120+irpcaurContext :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
1122irpcaurContext
1121irpcaurContext
1123 = lens _irpcaurContext
1122 = lens _irpcaurContext
1124 (\ s a -> s{_irpcaurContext = a})
1123 (\ s a -> s{_irpcaurContext = a})
1125
1124
1126-- | The email or federated ID of the user.
1125-- | The email or federated ID of the user.
1127−irpcaurIdentifier :: Lens' IdentitytoolkitRelyingPartyyCreateAuthURIRequest (Maybe Text)
1126+irpcaurIdentifier :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
1128irpcaurIdentifier
1127irpcaurIdentifier
1129 = lens _irpcaurIdentifier
1128 = lens _irpcaurIdentifier
1130 (\ s a -> s{_irpcaurIdentifier = a})
1129 (\ s a -> s{_irpcaurIdentifier = a})
1131
1130
1132-- | The native app package for OTA installation.
1131-- | The native app package for OTA installation.
1133−irpcaurOtaApp :: Lens' IdentitytoolkitRelyingPartyyCreateAuthURIRequest (Maybe Text)
1132+irpcaurOtaApp :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
1134irpcaurOtaApp
1133irpcaurOtaApp
1135 = lens _irpcaurOtaApp
1134 = lens _irpcaurOtaApp
1136 (\ s a -> s{_irpcaurOtaApp = a})
1135 (\ s a -> s{_irpcaurOtaApp = a})
1137
1136
1138-- | The developer\'s consumer key for OpenId OAuth Extension
1137-- | The developer\'s consumer key for OpenId OAuth Extension
1139−irpcaurOAuthConsumerKey :: Lens' IdentitytoolkitRelyingPartyyCreateAuthURIRequest (Maybe Text)
1138+irpcaurOAuthConsumerKey :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
1140irpcaurOAuthConsumerKey
1139irpcaurOAuthConsumerKey
1141 = lens _irpcaurOAuthConsumerKey
1140 = lens _irpcaurOAuthConsumerKey
1142 (\ s a -> s{_irpcaurOAuthConsumerKey = a})
1141 (\ s a -> s{_irpcaurOAuthConsumerKey = a})
1143
1142
1144-- | The app ID of the mobile app, base64(CERT_SHA1):PACKAGE_NAME for
1143-- | The app ID of the mobile app, base64(CERT_SHA1):PACKAGE_NAME for
1145-- Android, BUNDLE_ID for iOS.
1144-- Android, BUNDLE_ID for iOS.
1146−irpcaurAppId :: Lens' IdentitytoolkitRelyingPartyyCreateAuthURIRequest (Maybe Text)
1145+irpcaurAppId :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
1147irpcaurAppId
1146irpcaurAppId
1148 = lens _irpcaurAppId (\ s a -> s{_irpcaurAppId = a})
1147 = lens _irpcaurAppId (\ s a -> s{_irpcaurAppId = a})
1149
1148
1150-- | The URI to which the IDP redirects the user after the federated login
1149-- | The URI to which the IDP redirects the user after the federated login
1151-- flow.
1150-- flow.
1152−irpcaurContinueURI :: Lens' IdentitytoolkitRelyingPartyyCreateAuthURIRequest (Maybe Text)
1151+irpcaurContinueURI :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
1153irpcaurContinueURI
1152irpcaurContinueURI
1154 = lens _irpcaurContinueURI
1153 = lens _irpcaurContinueURI
1155 (\ s a -> s{_irpcaurContinueURI = a})
1154 (\ s a -> s{_irpcaurContinueURI = a})
1156
1155
1157-- | Additional oauth scopes, beyond the basid user profile, that the user
1156-- | Additional oauth scopes, beyond the basid user profile, that the user
1158-- would be prompted to grant
1157-- would be prompted to grant
1159−irpcaurOAuthScope :: Lens' IdentitytoolkitRelyingPartyyCreateAuthURIRequest (Maybe Text)
1158+irpcaurOAuthScope :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
1160irpcaurOAuthScope
1159irpcaurOAuthScope
1161 = lens _irpcaurOAuthScope
1160 = lens _irpcaurOAuthScope
1162 (\ s a -> s{_irpcaurOAuthScope = a})
1161 (\ s a -> s{_irpcaurOAuthScope = a})
@@ -1164,19 +1163,18 @@ irpcaurOAuthScope
1164-- | Optional realm for OpenID protocol. The sub string
1163-- | Optional realm for OpenID protocol. The sub string
1165-- \"scheme:\/\/domain:port\" of the param \"continueUri\" is used if this
1164-- \"scheme:\/\/domain:port\" of the param \"continueUri\" is used if this
1166-- is not set.
1165-- is not set.
1167−irpcaurOpenidRealm :: Lens' IdentitytoolkitRelyingPartyyCreateAuthURIRequest (Maybe Text)
1166+irpcaurOpenidRealm :: Lens' IdentitytoolkitRelyingPartyCreateAuthURIRequest (Maybe Text)
1168irpcaurOpenidRealm
1167irpcaurOpenidRealm
1169 = lens _irpcaurOpenidRealm
1168 = lens _irpcaurOpenidRealm
1170 (\ s a -> s{_irpcaurOpenidRealm = a})
1169 (\ s a -> s{_irpcaurOpenidRealm = a})
1171
1170
1172instance FromJSON
1171instance FromJSON
1173− IdentitytoolkitRelyingPartyyCreateAuthURIRequest
1172+ IdentitytoolkitRelyingPartyCreateAuthURIRequest where
1174− where
1175 parseJSON
1173 parseJSON
1176 = withObject
1174 = withObject
1177− "IdentitytoolkitRelyingPartyyCreateAuthURIRequest"
1175+ "IdentitytoolkitRelyingPartyCreateAuthURIRequest"
1178 (\ o ->
1176 (\ o ->
1179− IdentitytoolkitRelyingPartyyCreateAuthURIRequest <$>
1177+ IdentitytoolkitRelyingPartyCreateAuthURIRequest <$>
1180 (o .:? "providerId") <*> (o .:? "clientId") <*>
1178 (o .:? "providerId") <*> (o .:? "clientId") <*>
1181 (o .:? "context")
1179 (o .:? "context")
1182 <*> (o .:? "identifier")
1180 <*> (o .:? "identifier")
@@ -1188,10 +1186,9 @@ instance FromJSON
1188 <*> (o .:? "openidRealm"))
1186 <*> (o .:? "openidRealm"))
1189
1187
1190instance ToJSON
1188instance ToJSON
1191− IdentitytoolkitRelyingPartyyCreateAuthURIRequest
1189+ IdentitytoolkitRelyingPartyCreateAuthURIRequest where
1192− where
1193 toJSON
1190 toJSON
1194− IdentitytoolkitRelyingPartyyCreateAuthURIRequest{..}
1191+ IdentitytoolkitRelyingPartyCreateAuthURIRequest{..}
1195 = object
1192 = object
1196 (catMaybes
1193 (catMaybes
1197 [("providerId" .=) <$> _irpcaurProviderId,
1194 [("providerId" .=) <$> _irpcaurProviderId,
@@ -1207,8 +1204,8 @@ instance ToJSON
1207
1204
1208-- | Request to upload user account in batch.
1205-- | Request to upload user account in batch.
1209--
1206--
1210−-- /See:/ 'identitytoolkitRelyingPartyyUploadAccountRequest' smart constructor.
1207+-- /See:/ 'identitytoolkitRelyingPartyUploadAccountRequest' smart constructor.
1211−data IdentitytoolkitRelyingPartyyUploadAccountRequest = IdentitytoolkitRelyingPartyyUploadAccountRequest
1208+data IdentitytoolkitRelyingPartyUploadAccountRequest = IdentitytoolkitRelyingPartyUploadAccountRequest
1212 { _irpuarUsers :: !(Maybe [UserInfo])
1209 { _irpuarUsers :: !(Maybe [UserInfo])
1213 , _irpuarMemoryCost :: !(Maybe Int32)
1210 , _irpuarMemoryCost :: !(Maybe Int32)
1214 , _irpuarSaltSeparator :: !(Maybe Word8)
1211 , _irpuarSaltSeparator :: !(Maybe Word8)
@@ -1217,7 +1214,7 @@ data IdentitytoolkitRelyingPartyyUploadAccountRequest = IdentitytoolkitRelyingPa
1217 , _irpuarRounds :: !(Maybe Int32)
1214 , _irpuarRounds :: !(Maybe Int32)
1218 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1215 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1219
1216
1220−-- | Creates a value of 'IdentitytoolkitRelyingPartyyUploadAccountRequest' with the minimum fields required to make a request.
1217+-- | Creates a value of 'IdentitytoolkitRelyingPartyUploadAccountRequest' with the minimum fields required to make a request.
1221--
1218--
1222-- Use one of the following lenses to modify other fields as desired:
1219-- Use one of the following lenses to modify other fields as desired:
1223--
1220--
@@ -1232,10 +1229,10 @@ data IdentitytoolkitRelyingPartyyUploadAccountRequest = IdentitytoolkitRelyingPa
1232-- * 'irpuarSignerKey'
1229-- * 'irpuarSignerKey'
1233--
1230--
1234-- * 'irpuarRounds'
1231-- * 'irpuarRounds'
1235−identitytoolkitRelyingPartyyUploadAccountRequest
1232+identitytoolkitRelyingPartyUploadAccountRequest
1236− :: IdentitytoolkitRelyingPartyyUploadAccountRequest
1233+ :: IdentitytoolkitRelyingPartyUploadAccountRequest
1237−identitytoolkitRelyingPartyyUploadAccountRequest =
1234+identitytoolkitRelyingPartyUploadAccountRequest =
1238− IdentitytoolkitRelyingPartyyUploadAccountRequest
1235+ IdentitytoolkitRelyingPartyUploadAccountRequest
1239 { _irpuarUsers = Nothing
1236 { _irpuarUsers = Nothing
1240 , _irpuarMemoryCost = Nothing
1237 , _irpuarMemoryCost = Nothing
1241 , _irpuarSaltSeparator = Nothing
1238 , _irpuarSaltSeparator = Nothing
@@ -1245,49 +1242,48 @@ identitytoolkitRelyingPartyyUploadAccountRequest =
1245 }
1242 }
1246
1243
1247-- | The account info to be stored.
1244-- | The account info to be stored.
1248−irpuarUsers :: Lens' IdentitytoolkitRelyingPartyyUploadAccountRequest [UserInfo]
1245+irpuarUsers :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest [UserInfo]
1249irpuarUsers
1246irpuarUsers
1250 = lens _irpuarUsers (\ s a -> s{_irpuarUsers = a}) .
1247 = lens _irpuarUsers (\ s a -> s{_irpuarUsers = a}) .
1251 _Default
1248 _Default
1252 . _Coerce
1249 . _Coerce
1253
1250
1254-- | Memory cost for hash calculation. Used by scrypt similar algorithms.
1251-- | Memory cost for hash calculation. Used by scrypt similar algorithms.
1255−irpuarMemoryCost :: Lens' IdentitytoolkitRelyingPartyyUploadAccountRequest (Maybe Int32)
1252+irpuarMemoryCost :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe Int32)
1256irpuarMemoryCost
1253irpuarMemoryCost
1257 = lens _irpuarMemoryCost
1254 = lens _irpuarMemoryCost
1258 (\ s a -> s{_irpuarMemoryCost = a})
1255 (\ s a -> s{_irpuarMemoryCost = a})
1259
1256
1260-- | The salt separator.
1257-- | The salt separator.
1261−irpuarSaltSeparator :: Lens' IdentitytoolkitRelyingPartyyUploadAccountRequest (Maybe Word8)
1258+irpuarSaltSeparator :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe Word8)
1262irpuarSaltSeparator
1259irpuarSaltSeparator
1263 = lens _irpuarSaltSeparator
1260 = lens _irpuarSaltSeparator
1264 (\ s a -> s{_irpuarSaltSeparator = a})
1261 (\ s a -> s{_irpuarSaltSeparator = a})
1265
1262
1266-- | The password hash algorithm.
1263-- | The password hash algorithm.
1267−irpuarHashAlgorithm :: Lens' IdentitytoolkitRelyingPartyyUploadAccountRequest (Maybe Text)
1264+irpuarHashAlgorithm :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe Text)
1268irpuarHashAlgorithm
1265irpuarHashAlgorithm
1269 = lens _irpuarHashAlgorithm
1266 = lens _irpuarHashAlgorithm
1270 (\ s a -> s{_irpuarHashAlgorithm = a})
1267 (\ s a -> s{_irpuarHashAlgorithm = a})
1271
1268
1272-- | The key for to hash the password.
1269-- | The key for to hash the password.
1273−irpuarSignerKey :: Lens' IdentitytoolkitRelyingPartyyUploadAccountRequest (Maybe Word8)
1270+irpuarSignerKey :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe Word8)
1274irpuarSignerKey
1271irpuarSignerKey
1275 = lens _irpuarSignerKey
1272 = lens _irpuarSignerKey
1276 (\ s a -> s{_irpuarSignerKey = a})
1273 (\ s a -> s{_irpuarSignerKey = a})
1277
1274
1278-- | Rounds for hash calculation. Used by scrypt and similar algorithms.
1275-- | Rounds for hash calculation. Used by scrypt and similar algorithms.
1279−irpuarRounds :: Lens' IdentitytoolkitRelyingPartyyUploadAccountRequest (Maybe Int32)
1276+irpuarRounds :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe Int32)
1280irpuarRounds
1277irpuarRounds
1281 = lens _irpuarRounds (\ s a -> s{_irpuarRounds = a})
1278 = lens _irpuarRounds (\ s a -> s{_irpuarRounds = a})
1282
1279
1283instance FromJSON
1280instance FromJSON
1284− IdentitytoolkitRelyingPartyyUploadAccountRequest
1281+ IdentitytoolkitRelyingPartyUploadAccountRequest where
1285− where
1286 parseJSON
1282 parseJSON
1287 = withObject
1283 = withObject
1288− "IdentitytoolkitRelyingPartyyUploadAccountRequest"
1284+ "IdentitytoolkitRelyingPartyUploadAccountRequest"
1289 (\ o ->
1285 (\ o ->
1290− IdentitytoolkitRelyingPartyyUploadAccountRequest <$>
1286+ IdentitytoolkitRelyingPartyUploadAccountRequest <$>
1291 (o .:? "users" .!= mempty) <*> (o .:? "memoryCost")
1287 (o .:? "users" .!= mempty) <*> (o .:? "memoryCost")
1292 <*> (o .:? "saltSeparator")
1288 <*> (o .:? "saltSeparator")
1293 <*> (o .:? "hashAlgorithm")
1289 <*> (o .:? "hashAlgorithm")
@@ -1295,10 +1291,9 @@ instance FromJSON
1295 <*> (o .:? "rounds"))
1291 <*> (o .:? "rounds"))
1296
1292
1297instance ToJSON
1293instance ToJSON
1298− IdentitytoolkitRelyingPartyyUploadAccountRequest
1294+ IdentitytoolkitRelyingPartyUploadAccountRequest where
1299− where
1300 toJSON
1295 toJSON
1301− IdentitytoolkitRelyingPartyyUploadAccountRequest{..}
1296+ IdentitytoolkitRelyingPartyUploadAccountRequest{..}
1302 = object
1297 = object
1303 (catMaybes
1298 (catMaybes
1304 [("users" .=) <$> _irpuarUsers,
1299 [("users" .=) <$> _irpuarUsers,
@@ -1310,15 +1305,15 @@ instance ToJSON
1310
1305
1311-- | Request to reset the password.
1306-- | Request to reset the password.
1312--
1307--
1313−-- /See:/ 'identitytoolkitRelyingPartyyResetPasswordRequest' smart constructor.
1308+-- /See:/ 'identitytoolkitRelyingPartyResetPasswordRequest' smart constructor.
1314−data IdentitytoolkitRelyingPartyyResetPasswordRequest = IdentitytoolkitRelyingPartyyResetPasswordRequest
1309+data IdentitytoolkitRelyingPartyResetPasswordRequest = IdentitytoolkitRelyingPartyResetPasswordRequest
1315 { _irprprEmail :: !(Maybe Text)
1310 { _irprprEmail :: !(Maybe Text)
1316 , _irprprNewPassword :: !(Maybe Text)
1311 , _irprprNewPassword :: !(Maybe Text)
1317− , _irprprOobCode :: !(Maybe Text)
1312+ , _irprprOOBCode :: !(Maybe Text)
1318 , _irprprOldPassword :: !(Maybe Text)
1313 , _irprprOldPassword :: !(Maybe Text)
1319 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1314 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1320
1315
1321−-- | Creates a value of 'IdentitytoolkitRelyingPartyyResetPasswordRequest' with the minimum fields required to make a request.
1316+-- | Creates a value of 'IdentitytoolkitRelyingPartyResetPasswordRequest' with the minimum fields required to make a request.
1322--
1317--
1323-- Use one of the following lenses to modify other fields as desired:
1318-- Use one of the following lenses to modify other fields as desired:
1324--
1319--
@@ -1326,64 +1321,62 @@ data IdentitytoolkitRelyingPartyyResetPasswordRequest = IdentitytoolkitRelyingPa
1326--
1321--
1327-- * 'irprprNewPassword'
1322-- * 'irprprNewPassword'
1328--
1323--
1329−-- * 'irprprOobCode'
1324+-- * 'irprprOOBCode'
1330--
1325--
1331-- * 'irprprOldPassword'
1326-- * 'irprprOldPassword'
1332−identitytoolkitRelyingPartyyResetPasswordRequest
1327+identitytoolkitRelyingPartyResetPasswordRequest
1333− :: IdentitytoolkitRelyingPartyyResetPasswordRequest
1328+ :: IdentitytoolkitRelyingPartyResetPasswordRequest
1334−identitytoolkitRelyingPartyyResetPasswordRequest =
1329+identitytoolkitRelyingPartyResetPasswordRequest =
1335− IdentitytoolkitRelyingPartyyResetPasswordRequest
1330+ IdentitytoolkitRelyingPartyResetPasswordRequest
1336 { _irprprEmail = Nothing
1331 { _irprprEmail = Nothing
1337 , _irprprNewPassword = Nothing
1332 , _irprprNewPassword = Nothing
1338− , _irprprOobCode = Nothing
1333+ , _irprprOOBCode = Nothing
1339 , _irprprOldPassword = Nothing
1334 , _irprprOldPassword = Nothing
1340 }
1335 }
1341
1336
1342-- | The email address of the user.
1337-- | The email address of the user.
1343−irprprEmail :: Lens' IdentitytoolkitRelyingPartyyResetPasswordRequest (Maybe Text)
1338+irprprEmail :: Lens' IdentitytoolkitRelyingPartyResetPasswordRequest (Maybe Text)
1344irprprEmail
1339irprprEmail
1345 = lens _irprprEmail (\ s a -> s{_irprprEmail = a})
1340 = lens _irprprEmail (\ s a -> s{_irprprEmail = a})
1346
1341
1347-- | The new password inputted by the user.
1342-- | The new password inputted by the user.
1348−irprprNewPassword :: Lens' IdentitytoolkitRelyingPartyyResetPasswordRequest (Maybe Text)
1343+irprprNewPassword :: Lens' IdentitytoolkitRelyingPartyResetPasswordRequest (Maybe Text)
1349irprprNewPassword
1344irprprNewPassword
1350 = lens _irprprNewPassword
1345 = lens _irprprNewPassword
1351 (\ s a -> s{_irprprNewPassword = a})
1346 (\ s a -> s{_irprprNewPassword = a})
1352
1347
1353-- | The confirmation code.
1348-- | The confirmation code.
1354−irprprOobCode :: Lens' IdentitytoolkitRelyingPartyyResetPasswordRequest (Maybe Text)
1349+irprprOOBCode :: Lens' IdentitytoolkitRelyingPartyResetPasswordRequest (Maybe Text)
1355−irprprOobCode
1350+irprprOOBCode
1356− = lens _irprprOobCode
1351+ = lens _irprprOOBCode
1357− (\ s a -> s{_irprprOobCode = a})
1352+ (\ s a -> s{_irprprOOBCode = a})
1358
1353
1359-- | The old password inputted by the user.
1354-- | The old password inputted by the user.
1360−irprprOldPassword :: Lens' IdentitytoolkitRelyingPartyyResetPasswordRequest (Maybe Text)
1355+irprprOldPassword :: Lens' IdentitytoolkitRelyingPartyResetPasswordRequest (Maybe Text)
1361irprprOldPassword
1356irprprOldPassword
1362 = lens _irprprOldPassword
1357 = lens _irprprOldPassword
1363 (\ s a -> s{_irprprOldPassword = a})
1358 (\ s a -> s{_irprprOldPassword = a})
1364
1359
1365instance FromJSON
1360instance FromJSON
1366− IdentitytoolkitRelyingPartyyResetPasswordRequest
1361+ IdentitytoolkitRelyingPartyResetPasswordRequest where
1367− where
1368 parseJSON
1362 parseJSON
1369 = withObject
1363 = withObject
1370− "IdentitytoolkitRelyingPartyyResetPasswordRequest"
1364+ "IdentitytoolkitRelyingPartyResetPasswordRequest"
1371 (\ o ->
1365 (\ o ->
1372− IdentitytoolkitRelyingPartyyResetPasswordRequest <$>
1366+ IdentitytoolkitRelyingPartyResetPasswordRequest <$>
1373 (o .:? "email") <*> (o .:? "newPassword") <*>
1367 (o .:? "email") <*> (o .:? "newPassword") <*>
1374 (o .:? "oobCode")
1368 (o .:? "oobCode")
1375 <*> (o .:? "oldPassword"))
1369 <*> (o .:? "oldPassword"))
1376
1370
1377instance ToJSON
1371instance ToJSON
1378− IdentitytoolkitRelyingPartyyResetPasswordRequest
1372+ IdentitytoolkitRelyingPartyResetPasswordRequest where
1379− where
1380 toJSON
1373 toJSON
1381− IdentitytoolkitRelyingPartyyResetPasswordRequest{..}
1374+ IdentitytoolkitRelyingPartyResetPasswordRequest{..}
1382 = object
1375 = object
1383 (catMaybes
1376 (catMaybes
1384 [("email" .=) <$> _irprprEmail,
1377 [("email" .=) <$> _irprprEmail,
1385 ("newPassword" .=) <$> _irprprNewPassword,
1378 ("newPassword" .=) <$> _irprprNewPassword,
1386− ("oobCode" .=) <$> _irprprOobCode,
1379+ ("oobCode" .=) <$> _irprprOOBCode,
1387 ("oldPassword" .=) <$> _irprprOldPassword])
1380 ("oldPassword" .=) <$> _irprprOldPassword])
1388
1381
1389-- | Response of getting account information.
1382-- | Response of getting account information.
@@ -1439,94 +1432,93 @@ instance ToJSON GetAccountInfoResponse where
1439-- | Response of getting a code for user confirmation (reset password, change
1432-- | Response of getting a code for user confirmation (reset password, change
1440-- email etc.).
1433-- email etc.).
1441--
1434--
1442−-- /See:/ 'getOobConfirmationCodeResponse' smart constructor.
1435+-- /See:/ 'getOOBConfirmationCodeResponse' smart constructor.
1443−data GetOobConfirmationCodeResponse = GetOobConfirmationCodeResponse
1436+data GetOOBConfirmationCodeResponse = GetOOBConfirmationCodeResponse
1444− { _goccrKind :: !Text
1437+ { _goobccrKind :: !Text
1445− , _goccrOobCode :: !(Maybe Text)
1438+ , _goobccrOOBCode :: !(Maybe Text)
1446 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1439 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1447
1440
1448−-- | Creates a value of 'GetOobConfirmationCodeResponse' with the minimum fields required to make a request.
1441+-- | Creates a value of 'GetOOBConfirmationCodeResponse' with the minimum fields required to make a request.
1449--
1442--
1450-- Use one of the following lenses to modify other fields as desired:
1443-- Use one of the following lenses to modify other fields as desired:
1451--
1444--
1452−-- * 'goccrKind'
1445+-- * 'goobccrKind'
1453--
1446--
1454−-- * 'goccrOobCode'
1447+-- * 'goobccrOOBCode'
1455−getOobConfirmationCodeResponse
1448+getOOBConfirmationCodeResponse
1456− :: GetOobConfirmationCodeResponse
1449+ :: GetOOBConfirmationCodeResponse
1457−getOobConfirmationCodeResponse =
1450+getOOBConfirmationCodeResponse =
1458− GetOobConfirmationCodeResponse
1451+ GetOOBConfirmationCodeResponse
1459− { _goccrKind = "identitytoolkit#GetOobConfirmationCodeResponse"
1452+ { _goobccrKind = "identitytoolkit#GetOobConfirmationCodeResponse"
1460− , _goccrOobCode = Nothing
1453+ , _goobccrOOBCode = Nothing
1461 }
1454 }
1462
1455
1463-- | The fixed string \"identitytoolkit#GetOobConfirmationCodeResponse\".
1456-- | The fixed string \"identitytoolkit#GetOobConfirmationCodeResponse\".
1464−goccrKind :: Lens' GetOobConfirmationCodeResponse Text
1457+goobccrKind :: Lens' GetOOBConfirmationCodeResponse Text
1465−goccrKind
1458+goobccrKind
1466− = lens _goccrKind (\ s a -> s{_goccrKind = a})
1459+ = lens _goobccrKind (\ s a -> s{_goobccrKind = a})
1467
1460
1468-- | The code to be send to the user.
1461-- | The code to be send to the user.
1469−goccrOobCode :: Lens' GetOobConfirmationCodeResponse (Maybe Text)
1462+goobccrOOBCode :: Lens' GetOOBConfirmationCodeResponse (Maybe Text)
1470−goccrOobCode
1463+goobccrOOBCode
1471− = lens _goccrOobCode (\ s a -> s{_goccrOobCode = a})
1464+ = lens _goobccrOOBCode
1465+ (\ s a -> s{_goobccrOOBCode = a})
1472
1466
1473−instance FromJSON GetOobConfirmationCodeResponse
1467+instance FromJSON GetOOBConfirmationCodeResponse
1474 where
1468 where
1475 parseJSON
1469 parseJSON
1476− = withObject "GetOobConfirmationCodeResponse"
1470+ = withObject "GetOOBConfirmationCodeResponse"
1477 (\ o ->
1471 (\ o ->
1478− GetOobConfirmationCodeResponse <$>
1472+ GetOOBConfirmationCodeResponse <$>
1479 (o .:? "kind" .!=
1473 (o .:? "kind" .!=
1480 "identitytoolkit#GetOobConfirmationCodeResponse")
1474 "identitytoolkit#GetOobConfirmationCodeResponse")
1481 <*> (o .:? "oobCode"))
1475 <*> (o .:? "oobCode"))
1482
1476
1483−instance ToJSON GetOobConfirmationCodeResponse where
1477+instance ToJSON GetOOBConfirmationCodeResponse where
1484− toJSON GetOobConfirmationCodeResponse{..}
1478+ toJSON GetOOBConfirmationCodeResponse{..}
1485 = object
1479 = object
1486 (catMaybes
1480 (catMaybes
1487− [Just ("kind" .= _goccrKind),
1481+ [Just ("kind" .= _goobccrKind),
1488− ("oobCode" .=) <$> _goccrOobCode])
1482+ ("oobCode" .=) <$> _goobccrOOBCode])
1489
1483
1490-- | Request to delete account.
1484-- | Request to delete account.
1491--
1485--
1492−-- /See:/ 'identitytoolkitRelyingPartyyDeleteAccountRequest' smart constructor.
1486+-- /See:/ 'identitytoolkitRelyingPartyDeleteAccountRequest' smart constructor.
1493−newtype IdentitytoolkitRelyingPartyyDeleteAccountRequest = IdentitytoolkitRelyingPartyyDeleteAccountRequest
1487+newtype IdentitytoolkitRelyingPartyDeleteAccountRequest = IdentitytoolkitRelyingPartyDeleteAccountRequest
1494 { _irpdarLocalId :: Maybe Text
1488 { _irpdarLocalId :: Maybe Text
1495 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1489 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1496
1490
1497−-- | Creates a value of 'IdentitytoolkitRelyingPartyyDeleteAccountRequest' with the minimum fields required to make a request.
1491+-- | Creates a value of 'IdentitytoolkitRelyingPartyDeleteAccountRequest' with the minimum fields required to make a request.
1498--
1492--
1499-- Use one of the following lenses to modify other fields as desired:
1493-- Use one of the following lenses to modify other fields as desired:
1500--
1494--
1501-- * 'irpdarLocalId'
1495-- * 'irpdarLocalId'
1502−identitytoolkitRelyingPartyyDeleteAccountRequest
1496+identitytoolkitRelyingPartyDeleteAccountRequest
1503− :: IdentitytoolkitRelyingPartyyDeleteAccountRequest
1497+ :: IdentitytoolkitRelyingPartyDeleteAccountRequest
1504−identitytoolkitRelyingPartyyDeleteAccountRequest =
1498+identitytoolkitRelyingPartyDeleteAccountRequest =
1505− IdentitytoolkitRelyingPartyyDeleteAccountRequest
1499+ IdentitytoolkitRelyingPartyDeleteAccountRequest
1506 { _irpdarLocalId = Nothing
1500 { _irpdarLocalId = Nothing
1507 }
1501 }
1508
1502
1509-- | The local ID of the user.
1503-- | The local ID of the user.
1510−irpdarLocalId :: Lens' IdentitytoolkitRelyingPartyyDeleteAccountRequest (Maybe Text)
1504+irpdarLocalId :: Lens' IdentitytoolkitRelyingPartyDeleteAccountRequest (Maybe Text)
1511irpdarLocalId
1505irpdarLocalId
1512 = lens _irpdarLocalId
1506 = lens _irpdarLocalId
1513 (\ s a -> s{_irpdarLocalId = a})
1507 (\ s a -> s{_irpdarLocalId = a})
1514
1508
1515instance FromJSON
1509instance FromJSON
1516− IdentitytoolkitRelyingPartyyDeleteAccountRequest
1510+ IdentitytoolkitRelyingPartyDeleteAccountRequest where
1517− where
1518 parseJSON
1511 parseJSON
1519 = withObject
1512 = withObject
1520− "IdentitytoolkitRelyingPartyyDeleteAccountRequest"
1513+ "IdentitytoolkitRelyingPartyDeleteAccountRequest"
1521 (\ o ->
1514 (\ o ->
1522− IdentitytoolkitRelyingPartyyDeleteAccountRequest <$>
1515+ IdentitytoolkitRelyingPartyDeleteAccountRequest <$>
1523 (o .:? "localId"))
1516 (o .:? "localId"))
1524
1517
1525instance ToJSON
1518instance ToJSON
1526− IdentitytoolkitRelyingPartyyDeleteAccountRequest
1519+ IdentitytoolkitRelyingPartyDeleteAccountRequest where
1527− where
1528 toJSON
1520 toJSON
1529− IdentitytoolkitRelyingPartyyDeleteAccountRequest{..}
1521+ IdentitytoolkitRelyingPartyDeleteAccountRequest{..}
1530 = object
1522 = object
1531 (catMaybes [("localId" .=) <$> _irpdarLocalId])
1523 (catMaybes [("localId" .=) <$> _irpdarLocalId])
1532
1524
@@ -1596,55 +1588,55 @@ instance ToJSON
1596
1588
1597-- | Request to download user account in batch.
1589-- | Request to download user account in batch.
1598--
1590--
1599−-- /See:/ 'identitytoolkitRelyingPartyyDownloadAccountRequest' smart constructor.
1591+-- /See:/ 'identitytoolkitRelyingPartyDownloadAccountRequest' smart constructor.
1600−data IdentitytoolkitRelyingPartyyDownloadAccountRequest = IdentitytoolkitRelyingPartyyDownloadAccountRequest
1592+data IdentitytoolkitRelyingPartyDownloadAccountRequest = IdentitytoolkitRelyingPartyDownloadAccountRequest
1601 { _irpdarNextPageToken :: !(Maybe Text)
1593 { _irpdarNextPageToken :: !(Maybe Text)
1602 , _irpdarMaxResults :: !(Maybe Word32)
1594 , _irpdarMaxResults :: !(Maybe Word32)
1603 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1595 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1604
1596
1605−-- | Creates a value of 'IdentitytoolkitRelyingPartyyDownloadAccountRequest' with the minimum fields required to make a request.
1597+-- | Creates a value of 'IdentitytoolkitRelyingPartyDownloadAccountRequest' with the minimum fields required to make a request.
1606--
1598--
1607-- Use one of the following lenses to modify other fields as desired:
1599-- Use one of the following lenses to modify other fields as desired:
1608--
1600--
1609-- * 'irpdarNextPageToken'
1601-- * 'irpdarNextPageToken'
1610--
1602--
1611-- * 'irpdarMaxResults'
1603-- * 'irpdarMaxResults'
1612−identitytoolkitRelyingPartyyDownloadAccountRequest
1604+identitytoolkitRelyingPartyDownloadAccountRequest
1613− :: IdentitytoolkitRelyingPartyyDownloadAccountRequest
1605+ :: IdentitytoolkitRelyingPartyDownloadAccountRequest
1614−identitytoolkitRelyingPartyyDownloadAccountRequest =
1606+identitytoolkitRelyingPartyDownloadAccountRequest =
1615− IdentitytoolkitRelyingPartyyDownloadAccountRequest
1607+ IdentitytoolkitRelyingPartyDownloadAccountRequest
1616 { _irpdarNextPageToken = Nothing
1608 { _irpdarNextPageToken = Nothing
1617 , _irpdarMaxResults = Nothing
1609 , _irpdarMaxResults = Nothing
1618 }
1610 }
1619
1611
1620-- | The token for the next page. This should be taken from the previous
1612-- | The token for the next page. This should be taken from the previous
1621-- response.
1613-- response.
1622−irpdarNextPageToken :: Lens' IdentitytoolkitRelyingPartyyDownloadAccountRequest (Maybe Text)
1614+irpdarNextPageToken :: Lens' IdentitytoolkitRelyingPartyDownloadAccountRequest (Maybe Text)
1623irpdarNextPageToken
1615irpdarNextPageToken
1624 = lens _irpdarNextPageToken
1616 = lens _irpdarNextPageToken
1625 (\ s a -> s{_irpdarNextPageToken = a})
1617 (\ s a -> s{_irpdarNextPageToken = a})
1626
1618
1627-- | The max number of results to return in the response.
1619-- | The max number of results to return in the response.
1628−irpdarMaxResults :: Lens' IdentitytoolkitRelyingPartyyDownloadAccountRequest (Maybe Word32)
1620+irpdarMaxResults :: Lens' IdentitytoolkitRelyingPartyDownloadAccountRequest (Maybe Word32)
1629irpdarMaxResults
1621irpdarMaxResults
1630 = lens _irpdarMaxResults
1622 = lens _irpdarMaxResults
1631 (\ s a -> s{_irpdarMaxResults = a})
1623 (\ s a -> s{_irpdarMaxResults = a})
1632
1624
1633instance FromJSON
1625instance FromJSON
1634− IdentitytoolkitRelyingPartyyDownloadAccountRequest
1626+ IdentitytoolkitRelyingPartyDownloadAccountRequest
1635 where
1627 where
1636 parseJSON
1628 parseJSON
1637 = withObject
1629 = withObject
1638− "IdentitytoolkitRelyingPartyyDownloadAccountRequest"
1630+ "IdentitytoolkitRelyingPartyDownloadAccountRequest"
1639 (\ o ->
1631 (\ o ->
1640− IdentitytoolkitRelyingPartyyDownloadAccountRequest
1632+ IdentitytoolkitRelyingPartyDownloadAccountRequest <$>
1641− <$> (o .:? "nextPageToken") <*> (o .:? "maxResults"))
1633+ (o .:? "nextPageToken") <*> (o .:? "maxResults"))
1642
1634
1643instance ToJSON
1635instance ToJSON
1644− IdentitytoolkitRelyingPartyyDownloadAccountRequest
1636+ IdentitytoolkitRelyingPartyDownloadAccountRequest
1645 where
1637 where
1646 toJSON
1638 toJSON
1647− IdentitytoolkitRelyingPartyyDownloadAccountRequest{..}
1639+ IdentitytoolkitRelyingPartyDownloadAccountRequest{..}
1648 = object
1640 = object
1649 (catMaybes
1641 (catMaybes
1650 [("nextPageToken" .=) <$> _irpdarNextPageToken,
1642 [("nextPageToken" .=) <$> _irpdarNextPageToken,
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingPartyy/CreateAuthURI.hs → gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/CreateAuthURI.hsrenamed+50−50
@@ -10,7 +10,7 @@
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11
11
12-- |
12-- |
13−-- Module : Network.Google.Resource.IdentityToolkit.RelyingPartyy.CreateAuthURI
13+-- Module : Network.Google.Resource.IdentityToolkit.RelyingParty.CreateAuthURI
14-- Copyright : (c) 2015 Brendan Hay
14-- Copyright : (c) 2015 Brendan Hay
15-- License : Mozilla Public License, v. 2.0.
15-- License : Mozilla Public License, v. 2.0.
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -19,32 +19,32 @@
19--
19--
20-- | Creates the URI used by the IdP to authenticate the user.
20-- | Creates the URI used by the IdP to authenticate the user.
21--
21--
22−-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyyCreateAuthURI@.
22+-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyCreateAuthURI@.
23−module Network.Google.Resource.IdentityToolkit.RelyingPartyy.CreateAuthURI
23+module Network.Google.Resource.IdentityToolkit.RelyingParty.CreateAuthURI
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− RelyingPartyyCreateAuthURIResource
26+ RelyingPartyCreateAuthURIResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29− , relyingPartyyCreateAuthURI'
29+ , relyingPartyCreateAuthURI'
30− , RelyingPartyyCreateAuthURI'
30+ , RelyingPartyCreateAuthURI'
31
31
32 -- * Request Lenses
32 -- * Request Lenses
33 , rpcauQuotaUser
33 , rpcauQuotaUser
34 , rpcauPrettyPrint
34 , rpcauPrettyPrint
35 , rpcauUserIP
35 , rpcauUserIP
36 , rpcauKey
36 , rpcauKey
37+ , rpcauIdentitytoolkitRelyingPartyCreateAuthURIRequest
37 , rpcauOAuthToken
38 , rpcauOAuthToken
38− , rpcauIdentitytoolkitRelyingPartyyCreateAuthURIRequest
39 , rpcauFields
39 , rpcauFields
40 ) where
40 ) where
41
41
42import Network.Google.IdentityToolkit.Types
42import Network.Google.IdentityToolkit.Types
43import Network.Google.Prelude
43import Network.Google.Prelude
44
44
45−-- | A resource alias for @IdentitytoolkitRelyingPartyyCreateAuthURI@ which the
45+-- | A resource alias for @IdentitytoolkitRelyingPartyCreateAuthURI@ which the
46−-- 'RelyingPartyyCreateAuthURI'' request conforms to.
46+-- 'RelyingPartyCreateAuthURI'' request conforms to.
47−type RelyingPartyyCreateAuthURIResource =
47+type RelyingPartyCreateAuthURIResource =
48 "createAuthUri" :>
48 "createAuthUri" :>
49 QueryParam "quotaUser" Text :>
49 QueryParam "quotaUser" Text :>
50 QueryParam "prettyPrint" Bool :>
50 QueryParam "prettyPrint" Bool :>
@@ -54,23 +54,23 @@ type RelyingPartyyCreateAuthURIResource =
54 QueryParam "fields" Text :>
54 QueryParam "fields" Text :>
55 QueryParam "alt" AltJSON :>
55 QueryParam "alt" AltJSON :>
56 ReqBody '[JSON]
56 ReqBody '[JSON]
57− IdentitytoolkitRelyingPartyyCreateAuthURIRequest
57+ IdentitytoolkitRelyingPartyCreateAuthURIRequest
58 :> Post '[JSON] CreateAuthURIResponse
58 :> Post '[JSON] CreateAuthURIResponse
59
59
60-- | Creates the URI used by the IdP to authenticate the user.
60-- | Creates the URI used by the IdP to authenticate the user.
61--
61--
62−-- /See:/ 'relyingPartyyCreateAuthURI'' smart constructor.
62+-- /See:/ 'relyingPartyCreateAuthURI'' smart constructor.
63−data RelyingPartyyCreateAuthURI' = RelyingPartyyCreateAuthURI'
63+data RelyingPartyCreateAuthURI' = RelyingPartyCreateAuthURI'
64− { _rpcauQuotaUser :: !(Maybe Text)
64+ { _rpcauQuotaUser :: !(Maybe Text)
65− , _rpcauPrettyPrint :: !Bool
65+ , _rpcauPrettyPrint :: !Bool
66− , _rpcauUserIP :: !(Maybe Text)
66+ , _rpcauUserIP :: !(Maybe Text)
67− , _rpcauKey :: !(Maybe Key)
67+ , _rpcauKey :: !(Maybe Key)
68+ , _rpcauIdentitytoolkitRelyingPartyCreateAuthURIRequest :: !IdentitytoolkitRelyingPartyCreateAuthURIRequest
68− , _rpcauOAuthToken :: !(Maybe OAuthToken)
69+ , _rpcauOAuthToken :: !(Maybe OAuthToken)
69− , _rpcauIdentitytoolkitRelyingPartyyCreateAuthURIRequest :: !IdentitytoolkitRelyingPartyyCreateAuthURIRequest
70− , _rpcauFields :: !(Maybe Text)
70+ , _rpcauFields :: !(Maybe Text)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72
72
73−-- | Creates a value of 'RelyingPartyyCreateAuthURI'' with the minimum fields required to make a request.
73+-- | Creates a value of 'RelyingPartyCreateAuthURI'' with the minimum fields required to make a request.
74--
74--
75-- Use one of the following lenses to modify other fields as desired:
75-- Use one of the following lenses to modify other fields as desired:
76--
76--
@@ -82,90 +82,90 @@ data RelyingPartyyCreateAuthURI' = RelyingPartyyCreateAuthURI'
82--
82--
83-- * 'rpcauKey'
83-- * 'rpcauKey'
84--
84--
85−-- * 'rpcauOAuthToken'
85+-- * 'rpcauIdentitytoolkitRelyingPartyCreateAuthURIRequest'
86--
86--
87−-- * 'rpcauIdentitytoolkitRelyingPartyyCreateAuthURIRequest'
87+-- * 'rpcauOAuthToken'
88--
88--
89-- * 'rpcauFields'
89-- * 'rpcauFields'
90−relyingPartyyCreateAuthURI'
90+relyingPartyCreateAuthURI'
91− :: IdentitytoolkitRelyingPartyyCreateAuthURIRequest -- ^ 'IdentitytoolkitRelyingPartyyCreateAuthURIRequest'
91+ :: IdentitytoolkitRelyingPartyCreateAuthURIRequest -- ^ 'IdentitytoolkitRelyingPartyCreateAuthURIRequest'
92− -> RelyingPartyyCreateAuthURI'
92+ -> RelyingPartyCreateAuthURI'
93−relyingPartyyCreateAuthURI' pRpcauIdentitytoolkitRelyingPartyyCreateAuthURIRequest_ =
93+relyingPartyCreateAuthURI' pRpcauIdentitytoolkitRelyingPartyCreateAuthURIRequest_ =
94− RelyingPartyyCreateAuthURI'
94+ RelyingPartyCreateAuthURI'
95 { _rpcauQuotaUser = Nothing
95 { _rpcauQuotaUser = Nothing
96 , _rpcauPrettyPrint = True
96 , _rpcauPrettyPrint = True
97 , _rpcauUserIP = Nothing
97 , _rpcauUserIP = Nothing
98 , _rpcauKey = Nothing
98 , _rpcauKey = Nothing
99+ , _rpcauIdentitytoolkitRelyingPartyCreateAuthURIRequest = pRpcauIdentitytoolkitRelyingPartyCreateAuthURIRequest_
99 , _rpcauOAuthToken = Nothing
100 , _rpcauOAuthToken = Nothing
100− , _rpcauIdentitytoolkitRelyingPartyyCreateAuthURIRequest = pRpcauIdentitytoolkitRelyingPartyyCreateAuthURIRequest_
101 , _rpcauFields = Nothing
101 , _rpcauFields = Nothing
102 }
102 }
103
103
104-- | Available to use for quota purposes for server-side applications. Can be
104-- | Available to use for quota purposes for server-side applications. Can be
105-- any arbitrary string assigned to a user, but should not exceed 40
105-- any arbitrary string assigned to a user, but should not exceed 40
106-- characters. Overrides userIp if both are provided.
106-- characters. Overrides userIp if both are provided.
107−rpcauQuotaUser :: Lens' RelyingPartyyCreateAuthURI' (Maybe Text)
107+rpcauQuotaUser :: Lens' RelyingPartyCreateAuthURI' (Maybe Text)
108rpcauQuotaUser
108rpcauQuotaUser
109 = lens _rpcauQuotaUser
109 = lens _rpcauQuotaUser
110 (\ s a -> s{_rpcauQuotaUser = a})
110 (\ s a -> s{_rpcauQuotaUser = a})
111
111
112-- | Returns response with indentations and line breaks.
112-- | Returns response with indentations and line breaks.
113−rpcauPrettyPrint :: Lens' RelyingPartyyCreateAuthURI' Bool
113+rpcauPrettyPrint :: Lens' RelyingPartyCreateAuthURI' Bool
114rpcauPrettyPrint
114rpcauPrettyPrint
115 = lens _rpcauPrettyPrint
115 = lens _rpcauPrettyPrint
116 (\ s a -> s{_rpcauPrettyPrint = a})
116 (\ s a -> s{_rpcauPrettyPrint = a})
117
117
118-- | IP address of the site where the request originates. Use this if you
118-- | IP address of the site where the request originates. Use this if you
119-- want to enforce per-user limits.
119-- want to enforce per-user limits.
120−rpcauUserIP :: Lens' RelyingPartyyCreateAuthURI' (Maybe Text)
120+rpcauUserIP :: Lens' RelyingPartyCreateAuthURI' (Maybe Text)
121rpcauUserIP
121rpcauUserIP
122 = lens _rpcauUserIP (\ s a -> s{_rpcauUserIP = a})
122 = lens _rpcauUserIP (\ s a -> s{_rpcauUserIP = a})
123
123
124-- | API key. Your API key identifies your project and provides you with API
124-- | API key. Your API key identifies your project and provides you with API
125-- access, quota, and reports. Required unless you provide an OAuth 2.0
125-- access, quota, and reports. Required unless you provide an OAuth 2.0
126-- token.
126-- token.
127−rpcauKey :: Lens' RelyingPartyyCreateAuthURI' (Maybe Key)
127+rpcauKey :: Lens' RelyingPartyCreateAuthURI' (Maybe Key)
128rpcauKey = lens _rpcauKey (\ s a -> s{_rpcauKey = a})
128rpcauKey = lens _rpcauKey (\ s a -> s{_rpcauKey = a})
129
129
130−-- | OAuth 2.0 token for the current user.
131−rpcauOAuthToken :: Lens' RelyingPartyyCreateAuthURI' (Maybe OAuthToken)
132−rpcauOAuthToken
133− = lens _rpcauOAuthToken
134− (\ s a -> s{_rpcauOAuthToken = a})
135−
136-- | Multipart request metadata.
130-- | Multipart request metadata.
137−rpcauIdentitytoolkitRelyingPartyyCreateAuthURIRequest :: Lens' RelyingPartyyCreateAuthURI' IdentitytoolkitRelyingPartyyCreateAuthURIRequest
131+rpcauIdentitytoolkitRelyingPartyCreateAuthURIRequest :: Lens' RelyingPartyCreateAuthURI' IdentitytoolkitRelyingPartyCreateAuthURIRequest
138−rpcauIdentitytoolkitRelyingPartyyCreateAuthURIRequest
132+rpcauIdentitytoolkitRelyingPartyCreateAuthURIRequest
139 = lens
133 = lens
140− _rpcauIdentitytoolkitRelyingPartyyCreateAuthURIRequest
134+ _rpcauIdentitytoolkitRelyingPartyCreateAuthURIRequest
141 (\ s a ->
135 (\ s a ->
142− s{_rpcauIdentitytoolkitRelyingPartyyCreateAuthURIRequest
136+ s{_rpcauIdentitytoolkitRelyingPartyCreateAuthURIRequest
143 = a})
137 = a})
144
138
139+-- | OAuth 2.0 token for the current user.
140+rpcauOAuthToken :: Lens' RelyingPartyCreateAuthURI' (Maybe OAuthToken)
141+rpcauOAuthToken
142+ = lens _rpcauOAuthToken
143+ (\ s a -> s{_rpcauOAuthToken = a})
144+
145-- | Selector specifying which fields to include in a partial response.
145-- | Selector specifying which fields to include in a partial response.
146−rpcauFields :: Lens' RelyingPartyyCreateAuthURI' (Maybe Text)
146+rpcauFields :: Lens' RelyingPartyCreateAuthURI' (Maybe Text)
147rpcauFields
147rpcauFields
148 = lens _rpcauFields (\ s a -> s{_rpcauFields = a})
148 = lens _rpcauFields (\ s a -> s{_rpcauFields = a})
149
149
150−instance GoogleAuth RelyingPartyyCreateAuthURI' where
150+instance GoogleAuth RelyingPartyCreateAuthURI' where
151 authKey = rpcauKey . _Just
151 authKey = rpcauKey . _Just
152 authToken = rpcauOAuthToken . _Just
152 authToken = rpcauOAuthToken . _Just
153
153
154−instance GoogleRequest RelyingPartyyCreateAuthURI'
154+instance GoogleRequest RelyingPartyCreateAuthURI'
155 where
155 where
156− type Rs RelyingPartyyCreateAuthURI' =
156+ type Rs RelyingPartyCreateAuthURI' =
157 CreateAuthURIResponse
157 CreateAuthURIResponse
158 request = requestWithRoute defReq identityToolkitURL
158 request = requestWithRoute defReq identityToolkitURL
159− requestWithRoute r u RelyingPartyyCreateAuthURI'{..}
159+ requestWithRoute r u RelyingPartyCreateAuthURI'{..}
160 = go _rpcauQuotaUser (Just _rpcauPrettyPrint)
160 = go _rpcauQuotaUser (Just _rpcauPrettyPrint)
161 _rpcauUserIP
161 _rpcauUserIP
162 _rpcauKey
162 _rpcauKey
163 _rpcauOAuthToken
163 _rpcauOAuthToken
164 _rpcauFields
164 _rpcauFields
165 (Just AltJSON)
165 (Just AltJSON)
166− _rpcauIdentitytoolkitRelyingPartyyCreateAuthURIRequest
166+ _rpcauIdentitytoolkitRelyingPartyCreateAuthURIRequest
167 where go
167 where go
168 = clientWithRoute
168 = clientWithRoute
169− (Proxy :: Proxy RelyingPartyyCreateAuthURIResource)
169+ (Proxy :: Proxy RelyingPartyCreateAuthURIResource)
170 r
170 r
171 u
171 u
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingPartyy/DeleteAccount.hs → gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/DeleteAccount.hsrenamed+51−51
@@ -10,7 +10,7 @@
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11
11
12-- |
12-- |
13−-- Module : Network.Google.Resource.IdentityToolkit.RelyingPartyy.DeleteAccount
13+-- Module : Network.Google.Resource.IdentityToolkit.RelyingParty.DeleteAccount
14-- Copyright : (c) 2015 Brendan Hay
14-- Copyright : (c) 2015 Brendan Hay
15-- License : Mozilla Public License, v. 2.0.
15-- License : Mozilla Public License, v. 2.0.
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -19,22 +19,22 @@
19--
19--
20-- | Delete user account.
20-- | Delete user account.
21--
21--
22−-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyyDeleteAccount@.
22+-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyDeleteAccount@.
23−module Network.Google.Resource.IdentityToolkit.RelyingPartyy.DeleteAccount
23+module Network.Google.Resource.IdentityToolkit.RelyingParty.DeleteAccount
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− RelyingPartyyDeleteAccountResource
26+ RelyingPartyDeleteAccountResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29− , relyingPartyyDeleteAccount'
29+ , relyingPartyDeleteAccount'
30− , RelyingPartyyDeleteAccount'
30+ , RelyingPartyDeleteAccount'
31
31
32 -- * Request Lenses
32 -- * Request Lenses
33− , rIdentitytoolkitRelyingPartyyDeleteAccountRequest
34 , rQuotaUser
33 , rQuotaUser
35 , rPrettyPrint
34 , rPrettyPrint
36 , rUserIP
35 , rUserIP
37 , rKey
36 , rKey
37+ , rIdentitytoolkitRelyingPartyDeleteAccountRequest
38 , rOAuthToken
38 , rOAuthToken
39 , rFields
39 , rFields
40 ) where
40 ) where
@@ -42,9 +42,9 @@ module Network.Google.Resource.IdentityToolkit.RelyingPartyy.DeleteAccount
42import Network.Google.IdentityToolkit.Types
42import Network.Google.IdentityToolkit.Types
43import Network.Google.Prelude
43import Network.Google.Prelude
44
44
45−-- | A resource alias for @IdentitytoolkitRelyingPartyyDeleteAccount@ which the
45+-- | A resource alias for @IdentitytoolkitRelyingPartyDeleteAccount@ which the
46−-- 'RelyingPartyyDeleteAccount'' request conforms to.
46+-- 'RelyingPartyDeleteAccount'' request conforms to.
47−type RelyingPartyyDeleteAccountResource =
47+type RelyingPartyDeleteAccountResource =
48 "deleteAccount" :>
48 "deleteAccount" :>
49 QueryParam "quotaUser" Text :>
49 QueryParam "quotaUser" Text :>
50 QueryParam "prettyPrint" Bool :>
50 QueryParam "prettyPrint" Bool :>
@@ -54,28 +54,26 @@ type RelyingPartyyDeleteAccountResource =
54 QueryParam "fields" Text :>
54 QueryParam "fields" Text :>
55 QueryParam "alt" AltJSON :>
55 QueryParam "alt" AltJSON :>
56 ReqBody '[JSON]
56 ReqBody '[JSON]
57− IdentitytoolkitRelyingPartyyDeleteAccountRequest
57+ IdentitytoolkitRelyingPartyDeleteAccountRequest
58 :> Post '[JSON] DeleteAccountResponse
58 :> Post '[JSON] DeleteAccountResponse
59
59
60-- | Delete user account.
60-- | Delete user account.
61--
61--
62−-- /See:/ 'relyingPartyyDeleteAccount'' smart constructor.
62+-- /See:/ 'relyingPartyDeleteAccount'' smart constructor.
63−data RelyingPartyyDeleteAccount' = RelyingPartyyDeleteAccount'
63+data RelyingPartyDeleteAccount' = RelyingPartyDeleteAccount'
64− { _rIdentitytoolkitRelyingPartyyDeleteAccountRequest :: !IdentitytoolkitRelyingPartyyDeleteAccountRequest
65− , _rQuotaUser :: !(Maybe Text)
64+ { _rQuotaUser :: !(Maybe Text)
66− , _rPrettyPrint :: !Bool
65+ , _rPrettyPrint :: !Bool
67− , _rUserIP :: !(Maybe Text)
66+ , _rUserIP :: !(Maybe Text)
68− , _rKey :: !(Maybe Key)
67+ , _rKey :: !(Maybe Key)
68+ , _rIdentitytoolkitRelyingPartyDeleteAccountRequest :: !IdentitytoolkitRelyingPartyDeleteAccountRequest
69− , _rOAuthToken :: !(Maybe OAuthToken)
69+ , _rOAuthToken :: !(Maybe OAuthToken)
70− , _rFields :: !(Maybe Text)
70+ , _rFields :: !(Maybe Text)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72
72
73−-- | Creates a value of 'RelyingPartyyDeleteAccount'' with the minimum fields required to make a request.
73+-- | Creates a value of 'RelyingPartyDeleteAccount'' with the minimum fields required to make a request.
74--
74--
75-- Use one of the following lenses to modify other fields as desired:
75-- Use one of the following lenses to modify other fields as desired:
76--
76--
77−-- * 'rIdentitytoolkitRelyingPartyyDeleteAccountRequest'
78−--
79-- * 'rQuotaUser'
77-- * 'rQuotaUser'
80--
78--
81-- * 'rPrettyPrint'
79-- * 'rPrettyPrint'
@@ -84,81 +82,83 @@ data RelyingPartyyDeleteAccount' = RelyingPartyyDeleteAccount'
84--
82--
85-- * 'rKey'
83-- * 'rKey'
86--
84--
85+-- * 'rIdentitytoolkitRelyingPartyDeleteAccountRequest'
86+--
87-- * 'rOAuthToken'
87-- * 'rOAuthToken'
88--
88--
89-- * 'rFields'
89-- * 'rFields'
90−relyingPartyyDeleteAccount'
90+relyingPartyDeleteAccount'
91− :: IdentitytoolkitRelyingPartyyDeleteAccountRequest -- ^ 'IdentitytoolkitRelyingPartyyDeleteAccountRequest'
91+ :: IdentitytoolkitRelyingPartyDeleteAccountRequest -- ^ 'IdentitytoolkitRelyingPartyDeleteAccountRequest'
92− -> RelyingPartyyDeleteAccount'
92+ -> RelyingPartyDeleteAccount'
93−relyingPartyyDeleteAccount' pRIdentitytoolkitRelyingPartyyDeleteAccountRequest_ =
93+relyingPartyDeleteAccount' pRIdentitytoolkitRelyingPartyDeleteAccountRequest_ =
94− RelyingPartyyDeleteAccount'
94+ RelyingPartyDeleteAccount'
95− { _rIdentitytoolkitRelyingPartyyDeleteAccountRequest = pRIdentitytoolkitRelyingPartyyDeleteAccountRequest_
96− , _rQuotaUser = Nothing
95+ { _rQuotaUser = Nothing
97 , _rPrettyPrint = True
96 , _rPrettyPrint = True
98 , _rUserIP = Nothing
97 , _rUserIP = Nothing
99 , _rKey = Nothing
98 , _rKey = Nothing
99+ , _rIdentitytoolkitRelyingPartyDeleteAccountRequest = pRIdentitytoolkitRelyingPartyDeleteAccountRequest_
100 , _rOAuthToken = Nothing
100 , _rOAuthToken = Nothing
101 , _rFields = Nothing
101 , _rFields = Nothing
102 }
102 }
103
103
104−-- | Multipart request metadata.
105−rIdentitytoolkitRelyingPartyyDeleteAccountRequest :: Lens' RelyingPartyyDeleteAccount' IdentitytoolkitRelyingPartyyDeleteAccountRequest
106−rIdentitytoolkitRelyingPartyyDeleteAccountRequest
107− = lens
108− _rIdentitytoolkitRelyingPartyyDeleteAccountRequest
109− (\ s a ->
110− s{_rIdentitytoolkitRelyingPartyyDeleteAccountRequest
111− = a})
112−
113-- | Available to use for quota purposes for server-side applications. Can be
104-- | Available to use for quota purposes for server-side applications. Can be
114-- any arbitrary string assigned to a user, but should not exceed 40
105-- any arbitrary string assigned to a user, but should not exceed 40
115-- characters. Overrides userIp if both are provided.
106-- characters. Overrides userIp if both are provided.
116−rQuotaUser :: Lens' RelyingPartyyDeleteAccount' (Maybe Text)
107+rQuotaUser :: Lens' RelyingPartyDeleteAccount' (Maybe Text)
117rQuotaUser
108rQuotaUser
118 = lens _rQuotaUser (\ s a -> s{_rQuotaUser = a})
109 = lens _rQuotaUser (\ s a -> s{_rQuotaUser = a})
119
110
120-- | Returns response with indentations and line breaks.
111-- | Returns response with indentations and line breaks.
121−rPrettyPrint :: Lens' RelyingPartyyDeleteAccount' Bool
112+rPrettyPrint :: Lens' RelyingPartyDeleteAccount' Bool
122rPrettyPrint
113rPrettyPrint
123 = lens _rPrettyPrint (\ s a -> s{_rPrettyPrint = a})
114 = lens _rPrettyPrint (\ s a -> s{_rPrettyPrint = a})
124
115
125-- | IP address of the site where the request originates. Use this if you
116-- | IP address of the site where the request originates. Use this if you
126-- want to enforce per-user limits.
117-- want to enforce per-user limits.
127−rUserIP :: Lens' RelyingPartyyDeleteAccount' (Maybe Text)
118+rUserIP :: Lens' RelyingPartyDeleteAccount' (Maybe Text)
128rUserIP = lens _rUserIP (\ s a -> s{_rUserIP = a})
119rUserIP = lens _rUserIP (\ s a -> s{_rUserIP = a})
129
120
130-- | API key. Your API key identifies your project and provides you with API
121-- | API key. Your API key identifies your project and provides you with API
131-- access, quota, and reports. Required unless you provide an OAuth 2.0
122-- access, quota, and reports. Required unless you provide an OAuth 2.0
132-- token.
123-- token.
133−rKey :: Lens' RelyingPartyyDeleteAccount' (Maybe Key)
124+rKey :: Lens' RelyingPartyDeleteAccount' (Maybe Key)
134rKey = lens _rKey (\ s a -> s{_rKey = a})
125rKey = lens _rKey (\ s a -> s{_rKey = a})
135
126
127+-- | Multipart request metadata.
128+rIdentitytoolkitRelyingPartyDeleteAccountRequest :: Lens' RelyingPartyDeleteAccount' IdentitytoolkitRelyingPartyDeleteAccountRequest
129+rIdentitytoolkitRelyingPartyDeleteAccountRequest
130+ = lens
131+ _rIdentitytoolkitRelyingPartyDeleteAccountRequest
132+ (\ s a ->
133+ s{_rIdentitytoolkitRelyingPartyDeleteAccountRequest =
134+ a})
135+
136-- | OAuth 2.0 token for the current user.
136-- | OAuth 2.0 token for the current user.
137−rOAuthToken :: Lens' RelyingPartyyDeleteAccount' (Maybe OAuthToken)
137+rOAuthToken :: Lens' RelyingPartyDeleteAccount' (Maybe OAuthToken)
138rOAuthToken
138rOAuthToken
139 = lens _rOAuthToken (\ s a -> s{_rOAuthToken = a})
139 = lens _rOAuthToken (\ s a -> s{_rOAuthToken = a})
140
140
141-- | Selector specifying which fields to include in a partial response.
141-- | Selector specifying which fields to include in a partial response.
142−rFields :: Lens' RelyingPartyyDeleteAccount' (Maybe Text)
142+rFields :: Lens' RelyingPartyDeleteAccount' (Maybe Text)
143rFields = lens _rFields (\ s a -> s{_rFields = a})
143rFields = lens _rFields (\ s a -> s{_rFields = a})
144
144
145−instance GoogleAuth RelyingPartyyDeleteAccount' where
145+instance GoogleAuth RelyingPartyDeleteAccount' where
146 authKey = rKey . _Just
146 authKey = rKey . _Just
147 authToken = rOAuthToken . _Just
147 authToken = rOAuthToken . _Just
148
148
149−instance GoogleRequest RelyingPartyyDeleteAccount'
149+instance GoogleRequest RelyingPartyDeleteAccount'
150 where
150 where
151− type Rs RelyingPartyyDeleteAccount' =
151+ type Rs RelyingPartyDeleteAccount' =
152 DeleteAccountResponse
152 DeleteAccountResponse
153 request = requestWithRoute defReq identityToolkitURL
153 request = requestWithRoute defReq identityToolkitURL
154− requestWithRoute r u RelyingPartyyDeleteAccount'{..}
154+ requestWithRoute r u RelyingPartyDeleteAccount'{..}
155 = go _rQuotaUser (Just _rPrettyPrint) _rUserIP _rKey
155 = go _rQuotaUser (Just _rPrettyPrint) _rUserIP _rKey
156 _rOAuthToken
156 _rOAuthToken
157 _rFields
157 _rFields
158 (Just AltJSON)
158 (Just AltJSON)
159− _rIdentitytoolkitRelyingPartyyDeleteAccountRequest
159+ _rIdentitytoolkitRelyingPartyDeleteAccountRequest
160 where go
160 where go
161 = clientWithRoute
161 = clientWithRoute
162− (Proxy :: Proxy RelyingPartyyDeleteAccountResource)
162+ (Proxy :: Proxy RelyingPartyDeleteAccountResource)
163 r
163 r
164 u
164 u
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingPartyy/DownloadAccount.hs → gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/DownloadAccount.hsrenamed+50−51
@@ -10,7 +10,7 @@
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11
11
12-- |
12-- |
13−-- Module : Network.Google.Resource.IdentityToolkit.RelyingPartyy.DownloadAccount
13+-- Module : Network.Google.Resource.IdentityToolkit.RelyingParty.DownloadAccount
14-- Copyright : (c) 2015 Brendan Hay
14-- Copyright : (c) 2015 Brendan Hay
15-- License : Mozilla Public License, v. 2.0.
15-- License : Mozilla Public License, v. 2.0.
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -19,22 +19,22 @@
19--
19--
20-- | Batch download user accounts.
20-- | Batch download user accounts.
21--
21--
22−-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyyDownloadAccount@.
22+-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyDownloadAccount@.
23−module Network.Google.Resource.IdentityToolkit.RelyingPartyy.DownloadAccount
23+module Network.Google.Resource.IdentityToolkit.RelyingParty.DownloadAccount
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− RelyingPartyyDownloadAccountResource
26+ RelyingPartyDownloadAccountResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29− , relyingPartyyDownloadAccount'
29+ , relyingPartyDownloadAccount'
30− , RelyingPartyyDownloadAccount'
30+ , RelyingPartyDownloadAccount'
31
31
32 -- * Request Lenses
32 -- * Request Lenses
33 , rpdaQuotaUser
33 , rpdaQuotaUser
34 , rpdaPrettyPrint
34 , rpdaPrettyPrint
35 , rpdaUserIP
35 , rpdaUserIP
36− , rpdaIdentitytoolkitRelyingPartyyDownloadAccountRequest
37 , rpdaKey
36 , rpdaKey
37+ , rpdaIdentitytoolkitRelyingPartyDownloadAccountRequest
38 , rpdaOAuthToken
38 , rpdaOAuthToken
39 , rpdaFields
39 , rpdaFields
40 ) where
40 ) where
@@ -42,9 +42,9 @@ module Network.Google.Resource.IdentityToolkit.RelyingPartyy.DownloadAccount
42import Network.Google.IdentityToolkit.Types
42import Network.Google.IdentityToolkit.Types
43import Network.Google.Prelude
43import Network.Google.Prelude
44
44
45−-- | A resource alias for @IdentitytoolkitRelyingPartyyDownloadAccount@ which the
45+-- | A resource alias for @IdentitytoolkitRelyingPartyDownloadAccount@ which the
46−-- 'RelyingPartyyDownloadAccount'' request conforms to.
46+-- 'RelyingPartyDownloadAccount'' request conforms to.
47−type RelyingPartyyDownloadAccountResource =
47+type RelyingPartyDownloadAccountResource =
48 "downloadAccount" :>
48 "downloadAccount" :>
49 QueryParam "quotaUser" Text :>
49 QueryParam "quotaUser" Text :>
50 QueryParam "prettyPrint" Bool :>
50 QueryParam "prettyPrint" Bool :>
@@ -54,23 +54,23 @@ type RelyingPartyyDownloadAccountResource =
54 QueryParam "fields" Text :>
54 QueryParam "fields" Text :>
55 QueryParam "alt" AltJSON :>
55 QueryParam "alt" AltJSON :>
56 ReqBody '[JSON]
56 ReqBody '[JSON]
57− IdentitytoolkitRelyingPartyyDownloadAccountRequest
57+ IdentitytoolkitRelyingPartyDownloadAccountRequest
58 :> Post '[JSON] DownloadAccountResponse
58 :> Post '[JSON] DownloadAccountResponse
59
59
60-- | Batch download user accounts.
60-- | Batch download user accounts.
61--
61--
62−-- /See:/ 'relyingPartyyDownloadAccount'' smart constructor.
62+-- /See:/ 'relyingPartyDownloadAccount'' smart constructor.
63−data RelyingPartyyDownloadAccount' = RelyingPartyyDownloadAccount'
63+data RelyingPartyDownloadAccount' = RelyingPartyDownloadAccount'
64− { _rpdaQuotaUser :: !(Maybe Text)
64+ { _rpdaQuotaUser :: !(Maybe Text)
65− , _rpdaPrettyPrint :: !Bool
65+ , _rpdaPrettyPrint :: !Bool
66− , _rpdaUserIP :: !(Maybe Text)
66+ , _rpdaUserIP :: !(Maybe Text)
67− , _rpdaIdentitytoolkitRelyingPartyyDownloadAccountRequest :: !IdentitytoolkitRelyingPartyyDownloadAccountRequest
68− , _rpdaKey :: !(Maybe Key)
67+ , _rpdaKey :: !(Maybe Key)
68+ , _rpdaIdentitytoolkitRelyingPartyDownloadAccountRequest :: !IdentitytoolkitRelyingPartyDownloadAccountRequest
69− , _rpdaOAuthToken :: !(Maybe OAuthToken)
69+ , _rpdaOAuthToken :: !(Maybe OAuthToken)
70− , _rpdaFields :: !(Maybe Text)
70+ , _rpdaFields :: !(Maybe Text)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72
72
73−-- | Creates a value of 'RelyingPartyyDownloadAccount'' with the minimum fields required to make a request.
73+-- | Creates a value of 'RelyingPartyDownloadAccount'' with the minimum fields required to make a request.
74--
74--
75-- Use one of the following lenses to modify other fields as desired:
75-- Use one of the following lenses to modify other fields as desired:
76--
76--
@@ -80,23 +80,23 @@ data RelyingPartyyDownloadAccount' = RelyingPartyyDownloadAccount'
80--
80--
81-- * 'rpdaUserIP'
81-- * 'rpdaUserIP'
82--
82--
83−-- * 'rpdaIdentitytoolkitRelyingPartyyDownloadAccountRequest'
84−--
85-- * 'rpdaKey'
83-- * 'rpdaKey'
86--
84--
85+-- * 'rpdaIdentitytoolkitRelyingPartyDownloadAccountRequest'
86+--
87-- * 'rpdaOAuthToken'
87-- * 'rpdaOAuthToken'
88--
88--
89-- * 'rpdaFields'
89-- * 'rpdaFields'
90−relyingPartyyDownloadAccount'
90+relyingPartyDownloadAccount'
91− :: IdentitytoolkitRelyingPartyyDownloadAccountRequest -- ^ 'IdentitytoolkitRelyingPartyyDownloadAccountRequest'
91+ :: IdentitytoolkitRelyingPartyDownloadAccountRequest -- ^ 'IdentitytoolkitRelyingPartyDownloadAccountRequest'
92− -> RelyingPartyyDownloadAccount'
92+ -> RelyingPartyDownloadAccount'
93−relyingPartyyDownloadAccount' pRpdaIdentitytoolkitRelyingPartyyDownloadAccountRequest_ =
93+relyingPartyDownloadAccount' pRpdaIdentitytoolkitRelyingPartyDownloadAccountRequest_ =
94− RelyingPartyyDownloadAccount'
94+ RelyingPartyDownloadAccount'
95 { _rpdaQuotaUser = Nothing
95 { _rpdaQuotaUser = Nothing
96 , _rpdaPrettyPrint = True
96 , _rpdaPrettyPrint = True
97 , _rpdaUserIP = Nothing
97 , _rpdaUserIP = Nothing
98− , _rpdaIdentitytoolkitRelyingPartyyDownloadAccountRequest = pRpdaIdentitytoolkitRelyingPartyyDownloadAccountRequest_
99 , _rpdaKey = Nothing
98 , _rpdaKey = Nothing
99+ , _rpdaIdentitytoolkitRelyingPartyDownloadAccountRequest = pRpdaIdentitytoolkitRelyingPartyDownloadAccountRequest_
100 , _rpdaOAuthToken = Nothing
100 , _rpdaOAuthToken = Nothing
101 , _rpdaFields = Nothing
101 , _rpdaFields = Nothing
102 }
102 }
@@ -104,70 +104,69 @@ relyingPartyyDownloadAccount' pRpdaIdentitytoolkitRelyingPartyyDownloadAccountRe
104-- | Available to use for quota purposes for server-side applications. Can be
104-- | Available to use for quota purposes for server-side applications. Can be
105-- any arbitrary string assigned to a user, but should not exceed 40
105-- any arbitrary string assigned to a user, but should not exceed 40
106-- characters. Overrides userIp if both are provided.
106-- characters. Overrides userIp if both are provided.
107−rpdaQuotaUser :: Lens' RelyingPartyyDownloadAccount' (Maybe Text)
107+rpdaQuotaUser :: Lens' RelyingPartyDownloadAccount' (Maybe Text)
108rpdaQuotaUser
108rpdaQuotaUser
109 = lens _rpdaQuotaUser
109 = lens _rpdaQuotaUser
110 (\ s a -> s{_rpdaQuotaUser = a})
110 (\ s a -> s{_rpdaQuotaUser = a})
111
111
112-- | Returns response with indentations and line breaks.
112-- | Returns response with indentations and line breaks.
113−rpdaPrettyPrint :: Lens' RelyingPartyyDownloadAccount' Bool
113+rpdaPrettyPrint :: Lens' RelyingPartyDownloadAccount' Bool
114rpdaPrettyPrint
114rpdaPrettyPrint
115 = lens _rpdaPrettyPrint
115 = lens _rpdaPrettyPrint
116 (\ s a -> s{_rpdaPrettyPrint = a})
116 (\ s a -> s{_rpdaPrettyPrint = a})
117
117
118-- | IP address of the site where the request originates. Use this if you
118-- | IP address of the site where the request originates. Use this if you
119-- want to enforce per-user limits.
119-- want to enforce per-user limits.
120−rpdaUserIP :: Lens' RelyingPartyyDownloadAccount' (Maybe Text)
120+rpdaUserIP :: Lens' RelyingPartyDownloadAccount' (Maybe Text)
121rpdaUserIP
121rpdaUserIP
122 = lens _rpdaUserIP (\ s a -> s{_rpdaUserIP = a})
122 = lens _rpdaUserIP (\ s a -> s{_rpdaUserIP = a})
123
123
124−-- | Multipart request metadata.
125−rpdaIdentitytoolkitRelyingPartyyDownloadAccountRequest :: Lens' RelyingPartyyDownloadAccount' IdentitytoolkitRelyingPartyyDownloadAccountRequest
126−rpdaIdentitytoolkitRelyingPartyyDownloadAccountRequest
127− = lens
128− _rpdaIdentitytoolkitRelyingPartyyDownloadAccountRequest
129− (\ s a ->
130− s{_rpdaIdentitytoolkitRelyingPartyyDownloadAccountRequest
131− = a})
132−
133-- | API key. Your API key identifies your project and provides you with API
124-- | API key. Your API key identifies your project and provides you with API
134-- access, quota, and reports. Required unless you provide an OAuth 2.0
125-- access, quota, and reports. Required unless you provide an OAuth 2.0
135-- token.
126-- token.
136−rpdaKey :: Lens' RelyingPartyyDownloadAccount' (Maybe Key)
127+rpdaKey :: Lens' RelyingPartyDownloadAccount' (Maybe Key)
137rpdaKey = lens _rpdaKey (\ s a -> s{_rpdaKey = a})
128rpdaKey = lens _rpdaKey (\ s a -> s{_rpdaKey = a})
138
129
130+-- | Multipart request metadata.
131+rpdaIdentitytoolkitRelyingPartyDownloadAccountRequest :: Lens' RelyingPartyDownloadAccount' IdentitytoolkitRelyingPartyDownloadAccountRequest
132+rpdaIdentitytoolkitRelyingPartyDownloadAccountRequest
133+ = lens
134+ _rpdaIdentitytoolkitRelyingPartyDownloadAccountRequest
135+ (\ s a ->
136+ s{_rpdaIdentitytoolkitRelyingPartyDownloadAccountRequest
137+ = a})
138+
139-- | OAuth 2.0 token for the current user.
139-- | OAuth 2.0 token for the current user.
140−rpdaOAuthToken :: Lens' RelyingPartyyDownloadAccount' (Maybe OAuthToken)
140+rpdaOAuthToken :: Lens' RelyingPartyDownloadAccount' (Maybe OAuthToken)
141rpdaOAuthToken
141rpdaOAuthToken
142 = lens _rpdaOAuthToken
142 = lens _rpdaOAuthToken
143 (\ s a -> s{_rpdaOAuthToken = a})
143 (\ s a -> s{_rpdaOAuthToken = a})
144
144
145-- | Selector specifying which fields to include in a partial response.
145-- | Selector specifying which fields to include in a partial response.
146−rpdaFields :: Lens' RelyingPartyyDownloadAccount' (Maybe Text)
146+rpdaFields :: Lens' RelyingPartyDownloadAccount' (Maybe Text)
147rpdaFields
147rpdaFields
148 = lens _rpdaFields (\ s a -> s{_rpdaFields = a})
148 = lens _rpdaFields (\ s a -> s{_rpdaFields = a})
149
149
150−instance GoogleAuth RelyingPartyyDownloadAccount'
150+instance GoogleAuth RelyingPartyDownloadAccount'
151 where
151 where
152 authKey = rpdaKey . _Just
152 authKey = rpdaKey . _Just
153 authToken = rpdaOAuthToken . _Just
153 authToken = rpdaOAuthToken . _Just
154
154
155−instance GoogleRequest RelyingPartyyDownloadAccount'
155+instance GoogleRequest RelyingPartyDownloadAccount'
156 where
156 where
157− type Rs RelyingPartyyDownloadAccount' =
157+ type Rs RelyingPartyDownloadAccount' =
158 DownloadAccountResponse
158 DownloadAccountResponse
159 request = requestWithRoute defReq identityToolkitURL
159 request = requestWithRoute defReq identityToolkitURL
160− requestWithRoute r u
160+ requestWithRoute r u RelyingPartyDownloadAccount'{..}
161− RelyingPartyyDownloadAccount'{..}
162 = go _rpdaQuotaUser (Just _rpdaPrettyPrint)
161 = go _rpdaQuotaUser (Just _rpdaPrettyPrint)
163 _rpdaUserIP
162 _rpdaUserIP
164 _rpdaKey
163 _rpdaKey
165 _rpdaOAuthToken
164 _rpdaOAuthToken
166 _rpdaFields
165 _rpdaFields
167 (Just AltJSON)
166 (Just AltJSON)
168− _rpdaIdentitytoolkitRelyingPartyyDownloadAccountRequest
167+ _rpdaIdentitytoolkitRelyingPartyDownloadAccountRequest
169 where go
168 where go
170 = clientWithRoute
169 = clientWithRoute
171− (Proxy :: Proxy RelyingPartyyDownloadAccountResource)
170+ (Proxy :: Proxy RelyingPartyDownloadAccountResource)
172 r
171 r
173 u
172 u
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingPartyy/GetAccountInfo.hs → gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/GetAccountInfo.hsrenamed+50−51
@@ -10,7 +10,7 @@
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11
11
12-- |
12-- |
13−-- Module : Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetAccountInfo
13+-- Module : Network.Google.Resource.IdentityToolkit.RelyingParty.GetAccountInfo
14-- Copyright : (c) 2015 Brendan Hay
14-- Copyright : (c) 2015 Brendan Hay
15-- License : Mozilla Public License, v. 2.0.
15-- License : Mozilla Public License, v. 2.0.
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -19,22 +19,22 @@
19--
19--
20-- | Returns the account info.
20-- | Returns the account info.
21--
21--
22−-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyyGetAccountInfo@.
22+-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyGetAccountInfo@.
23−module Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetAccountInfo
23+module Network.Google.Resource.IdentityToolkit.RelyingParty.GetAccountInfo
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− RelyingPartyyGetAccountInfoResource
26+ RelyingPartyGetAccountInfoResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29− , relyingPartyyGetAccountInfo'
29+ , relyingPartyGetAccountInfo'
30− , RelyingPartyyGetAccountInfo'
30+ , RelyingPartyGetAccountInfo'
31
31
32 -- * Request Lenses
32 -- * Request Lenses
33 , rpgaiQuotaUser
33 , rpgaiQuotaUser
34 , rpgaiPrettyPrint
34 , rpgaiPrettyPrint
35 , rpgaiUserIP
35 , rpgaiUserIP
36+ , rpgaiIdentitytoolkitRelyingPartyGetAccountInfoRequest
36 , rpgaiKey
37 , rpgaiKey
37− , rpgaiIdentitytoolkitRelyingPartyyGetAccountInfoRequest
38 , rpgaiOAuthToken
38 , rpgaiOAuthToken
39 , rpgaiFields
39 , rpgaiFields
40 ) where
40 ) where
@@ -42,9 +42,9 @@ module Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetAccountInfo
42import Network.Google.IdentityToolkit.Types
42import Network.Google.IdentityToolkit.Types
43import Network.Google.Prelude
43import Network.Google.Prelude
44
44
45−-- | A resource alias for @IdentitytoolkitRelyingPartyyGetAccountInfo@ which the
45+-- | A resource alias for @IdentitytoolkitRelyingPartyGetAccountInfo@ which the
46−-- 'RelyingPartyyGetAccountInfo'' request conforms to.
46+-- 'RelyingPartyGetAccountInfo'' request conforms to.
47−type RelyingPartyyGetAccountInfoResource =
47+type RelyingPartyGetAccountInfoResource =
48 "getAccountInfo" :>
48 "getAccountInfo" :>
49 QueryParam "quotaUser" Text :>
49 QueryParam "quotaUser" Text :>
50 QueryParam "prettyPrint" Bool :>
50 QueryParam "prettyPrint" Bool :>
@@ -54,23 +54,23 @@ type RelyingPartyyGetAccountInfoResource =
54 QueryParam "fields" Text :>
54 QueryParam "fields" Text :>
55 QueryParam "alt" AltJSON :>
55 QueryParam "alt" AltJSON :>
56 ReqBody '[JSON]
56 ReqBody '[JSON]
57− IdentitytoolkitRelyingPartyyGetAccountInfoRequest
57+ IdentitytoolkitRelyingPartyGetAccountInfoRequest
58 :> Post '[JSON] GetAccountInfoResponse
58 :> Post '[JSON] GetAccountInfoResponse
59
59
60-- | Returns the account info.
60-- | Returns the account info.
61--
61--
62−-- /See:/ 'relyingPartyyGetAccountInfo'' smart constructor.
62+-- /See:/ 'relyingPartyGetAccountInfo'' smart constructor.
63−data RelyingPartyyGetAccountInfo' = RelyingPartyyGetAccountInfo'
63+data RelyingPartyGetAccountInfo' = RelyingPartyGetAccountInfo'
64− { _rpgaiQuotaUser :: !(Maybe Text)
64+ { _rpgaiQuotaUser :: !(Maybe Text)
65− , _rpgaiPrettyPrint :: !Bool
65+ , _rpgaiPrettyPrint :: !Bool
66− , _rpgaiUserIP :: !(Maybe Text)
66+ , _rpgaiUserIP :: !(Maybe Text)
67+ , _rpgaiIdentitytoolkitRelyingPartyGetAccountInfoRequest :: !IdentitytoolkitRelyingPartyGetAccountInfoRequest
67− , _rpgaiKey :: !(Maybe Key)
68+ , _rpgaiKey :: !(Maybe Key)
68− , _rpgaiIdentitytoolkitRelyingPartyyGetAccountInfoRequest :: !IdentitytoolkitRelyingPartyyGetAccountInfoRequest
69− , _rpgaiOAuthToken :: !(Maybe OAuthToken)
69+ , _rpgaiOAuthToken :: !(Maybe OAuthToken)
70− , _rpgaiFields :: !(Maybe Text)
70+ , _rpgaiFields :: !(Maybe Text)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72
72
73−-- | Creates a value of 'RelyingPartyyGetAccountInfo'' with the minimum fields required to make a request.
73+-- | Creates a value of 'RelyingPartyGetAccountInfo'' with the minimum fields required to make a request.
74--
74--
75-- Use one of the following lenses to modify other fields as desired:
75-- Use one of the following lenses to modify other fields as desired:
76--
76--
@@ -80,23 +80,23 @@ data RelyingPartyyGetAccountInfo' = RelyingPartyyGetAccountInfo'
80--
80--
81-- * 'rpgaiUserIP'
81-- * 'rpgaiUserIP'
82--
82--
83−-- * 'rpgaiKey'
83+-- * 'rpgaiIdentitytoolkitRelyingPartyGetAccountInfoRequest'
84--
84--
85−-- * 'rpgaiIdentitytoolkitRelyingPartyyGetAccountInfoRequest'
85+-- * 'rpgaiKey'
86--
86--
87-- * 'rpgaiOAuthToken'
87-- * 'rpgaiOAuthToken'
88--
88--
89-- * 'rpgaiFields'
89-- * 'rpgaiFields'
90−relyingPartyyGetAccountInfo'
90+relyingPartyGetAccountInfo'
91− :: IdentitytoolkitRelyingPartyyGetAccountInfoRequest -- ^ 'IdentitytoolkitRelyingPartyyGetAccountInfoRequest'
91+ :: IdentitytoolkitRelyingPartyGetAccountInfoRequest -- ^ 'IdentitytoolkitRelyingPartyGetAccountInfoRequest'
92− -> RelyingPartyyGetAccountInfo'
92+ -> RelyingPartyGetAccountInfo'
93−relyingPartyyGetAccountInfo' pRpgaiIdentitytoolkitRelyingPartyyGetAccountInfoRequest_ =
93+relyingPartyGetAccountInfo' pRpgaiIdentitytoolkitRelyingPartyGetAccountInfoRequest_ =
94− RelyingPartyyGetAccountInfo'
94+ RelyingPartyGetAccountInfo'
95 { _rpgaiQuotaUser = Nothing
95 { _rpgaiQuotaUser = Nothing
96 , _rpgaiPrettyPrint = True
96 , _rpgaiPrettyPrint = True
97 , _rpgaiUserIP = Nothing
97 , _rpgaiUserIP = Nothing
98+ , _rpgaiIdentitytoolkitRelyingPartyGetAccountInfoRequest = pRpgaiIdentitytoolkitRelyingPartyGetAccountInfoRequest_
98 , _rpgaiKey = Nothing
99 , _rpgaiKey = Nothing
99− , _rpgaiIdentitytoolkitRelyingPartyyGetAccountInfoRequest = pRpgaiIdentitytoolkitRelyingPartyyGetAccountInfoRequest_
100 , _rpgaiOAuthToken = Nothing
100 , _rpgaiOAuthToken = Nothing
101 , _rpgaiFields = Nothing
101 , _rpgaiFields = Nothing
102 }
102 }
@@ -104,69 +104,68 @@ relyingPartyyGetAccountInfo' pRpgaiIdentitytoolkitRelyingPartyyGetAccountInfoReq
104-- | Available to use for quota purposes for server-side applications. Can be
104-- | Available to use for quota purposes for server-side applications. Can be
105-- any arbitrary string assigned to a user, but should not exceed 40
105-- any arbitrary string assigned to a user, but should not exceed 40
106-- characters. Overrides userIp if both are provided.
106-- characters. Overrides userIp if both are provided.
107−rpgaiQuotaUser :: Lens' RelyingPartyyGetAccountInfo' (Maybe Text)
107+rpgaiQuotaUser :: Lens' RelyingPartyGetAccountInfo' (Maybe Text)
108rpgaiQuotaUser
108rpgaiQuotaUser
109 = lens _rpgaiQuotaUser
109 = lens _rpgaiQuotaUser
110 (\ s a -> s{_rpgaiQuotaUser = a})
110 (\ s a -> s{_rpgaiQuotaUser = a})
111
111
112-- | Returns response with indentations and line breaks.
112-- | Returns response with indentations and line breaks.
113−rpgaiPrettyPrint :: Lens' RelyingPartyyGetAccountInfo' Bool
113+rpgaiPrettyPrint :: Lens' RelyingPartyGetAccountInfo' Bool
114rpgaiPrettyPrint
114rpgaiPrettyPrint
115 = lens _rpgaiPrettyPrint
115 = lens _rpgaiPrettyPrint
116 (\ s a -> s{_rpgaiPrettyPrint = a})
116 (\ s a -> s{_rpgaiPrettyPrint = a})
117
117
118-- | IP address of the site where the request originates. Use this if you
118-- | IP address of the site where the request originates. Use this if you
119-- want to enforce per-user limits.
119-- want to enforce per-user limits.
120−rpgaiUserIP :: Lens' RelyingPartyyGetAccountInfo' (Maybe Text)
120+rpgaiUserIP :: Lens' RelyingPartyGetAccountInfo' (Maybe Text)
121rpgaiUserIP
121rpgaiUserIP
122 = lens _rpgaiUserIP (\ s a -> s{_rpgaiUserIP = a})
122 = lens _rpgaiUserIP (\ s a -> s{_rpgaiUserIP = a})
123
123
124−-- | API key. Your API key identifies your project and provides you with API
125−-- access, quota, and reports. Required unless you provide an OAuth 2.0
126−-- token.
127−rpgaiKey :: Lens' RelyingPartyyGetAccountInfo' (Maybe Key)
128−rpgaiKey = lens _rpgaiKey (\ s a -> s{_rpgaiKey = a})
129−
130-- | Multipart request metadata.
124-- | Multipart request metadata.
131−rpgaiIdentitytoolkitRelyingPartyyGetAccountInfoRequest :: Lens' RelyingPartyyGetAccountInfo' IdentitytoolkitRelyingPartyyGetAccountInfoRequest
125+rpgaiIdentitytoolkitRelyingPartyGetAccountInfoRequest :: Lens' RelyingPartyGetAccountInfo' IdentitytoolkitRelyingPartyGetAccountInfoRequest
132−rpgaiIdentitytoolkitRelyingPartyyGetAccountInfoRequest
126+rpgaiIdentitytoolkitRelyingPartyGetAccountInfoRequest
133 = lens
127 = lens
134− _rpgaiIdentitytoolkitRelyingPartyyGetAccountInfoRequest
128+ _rpgaiIdentitytoolkitRelyingPartyGetAccountInfoRequest
135 (\ s a ->
129 (\ s a ->
136− s{_rpgaiIdentitytoolkitRelyingPartyyGetAccountInfoRequest
130+ s{_rpgaiIdentitytoolkitRelyingPartyGetAccountInfoRequest
137 = a})
131 = a})
138
132
133+-- | API key. Your API key identifies your project and provides you with API
134+-- access, quota, and reports. Required unless you provide an OAuth 2.0
135+-- token.
136+rpgaiKey :: Lens' RelyingPartyGetAccountInfo' (Maybe Key)
137+rpgaiKey = lens _rpgaiKey (\ s a -> s{_rpgaiKey = a})
138+
139-- | OAuth 2.0 token for the current user.
139-- | OAuth 2.0 token for the current user.
140−rpgaiOAuthToken :: Lens' RelyingPartyyGetAccountInfo' (Maybe OAuthToken)
140+rpgaiOAuthToken :: Lens' RelyingPartyGetAccountInfo' (Maybe OAuthToken)
141rpgaiOAuthToken
141rpgaiOAuthToken
142 = lens _rpgaiOAuthToken
142 = lens _rpgaiOAuthToken
143 (\ s a -> s{_rpgaiOAuthToken = a})
143 (\ s a -> s{_rpgaiOAuthToken = a})
144
144
145-- | Selector specifying which fields to include in a partial response.
145-- | Selector specifying which fields to include in a partial response.
146−rpgaiFields :: Lens' RelyingPartyyGetAccountInfo' (Maybe Text)
146+rpgaiFields :: Lens' RelyingPartyGetAccountInfo' (Maybe Text)
147rpgaiFields
147rpgaiFields
148 = lens _rpgaiFields (\ s a -> s{_rpgaiFields = a})
148 = lens _rpgaiFields (\ s a -> s{_rpgaiFields = a})
149
149
150−instance GoogleAuth RelyingPartyyGetAccountInfo'
150+instance GoogleAuth RelyingPartyGetAccountInfo' where
151− where
152 authKey = rpgaiKey . _Just
151 authKey = rpgaiKey . _Just
153 authToken = rpgaiOAuthToken . _Just
152 authToken = rpgaiOAuthToken . _Just
154
153
155−instance GoogleRequest RelyingPartyyGetAccountInfo'
154+instance GoogleRequest RelyingPartyGetAccountInfo'
156 where
155 where
157− type Rs RelyingPartyyGetAccountInfo' =
156+ type Rs RelyingPartyGetAccountInfo' =
158 GetAccountInfoResponse
157 GetAccountInfoResponse
159 request = requestWithRoute defReq identityToolkitURL
158 request = requestWithRoute defReq identityToolkitURL
160− requestWithRoute r u RelyingPartyyGetAccountInfo'{..}
159+ requestWithRoute r u RelyingPartyGetAccountInfo'{..}
161 = go _rpgaiQuotaUser (Just _rpgaiPrettyPrint)
160 = go _rpgaiQuotaUser (Just _rpgaiPrettyPrint)
162 _rpgaiUserIP
161 _rpgaiUserIP
163 _rpgaiKey
162 _rpgaiKey
164 _rpgaiOAuthToken
163 _rpgaiOAuthToken
165 _rpgaiFields
164 _rpgaiFields
166 (Just AltJSON)
165 (Just AltJSON)
167− _rpgaiIdentitytoolkitRelyingPartyyGetAccountInfoRequest
166+ _rpgaiIdentitytoolkitRelyingPartyGetAccountInfoRequest
168 where go
167 where go
169 = clientWithRoute
168 = clientWithRoute
170− (Proxy :: Proxy RelyingPartyyGetAccountInfoResource)
169+ (Proxy :: Proxy RelyingPartyGetAccountInfoResource)
171 r
170 r
172 u
171 u
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/GetOOBConfirmationCode.hsnew file+173
@@ -0,0 +1,173 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
5+{-# LANGUAGE RecordWildCards #-}
6+{-# LANGUAGE TypeFamilies #-}
7+{-# LANGUAGE TypeOperators #-}
8+
9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11+
12+-- |
13+-- Module : Network.Google.Resource.IdentityToolkit.RelyingParty.GetOOBConfirmationCode
14+-- Copyright : (c) 2015 Brendan Hay
15+-- License : Mozilla Public License, v. 2.0.
16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
17+-- Stability : auto-generated
18+-- Portability : non-portable (GHC extensions)
19+--
20+-- | Get a code for user action confirmation.
21+--
22+-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyGetOOBConfirmationCode@.
23+module Network.Google.Resource.IdentityToolkit.RelyingParty.GetOOBConfirmationCode
24+ (
25+ -- * REST Resource
26+ RelyingPartyGetOOBConfirmationCodeResource
27+
28+ -- * Creating a Request
29+ , relyingPartyGetOOBConfirmationCode'
30+ , RelyingPartyGetOOBConfirmationCode'
31+
32+ -- * Request Lenses
33+ , rpgoobccQuotaUser
34+ , rpgoobccPrettyPrint
35+ , rpgoobccUserIP
36+ , rpgoobccRelyingParty
37+ , rpgoobccKey
38+ , rpgoobccOAuthToken
39+ , rpgoobccFields
40+ ) where
41+
42+import Network.Google.IdentityToolkit.Types
43+import Network.Google.Prelude
44+
45+-- | A resource alias for @IdentitytoolkitRelyingPartyGetOOBConfirmationCode@ which the
46+-- 'RelyingPartyGetOOBConfirmationCode'' request conforms to.
47+type RelyingPartyGetOOBConfirmationCodeResource =
48+ "getOobConfirmationCode" :>
49+ QueryParam "quotaUser" Text :>
50+ QueryParam "prettyPrint" Bool :>
51+ QueryParam "userIp" Text :>
52+ QueryParam "key" Key :>
53+ QueryParam "oauth_token" OAuthToken :>
54+ QueryParam "fields" Text :>
55+ QueryParam "alt" AltJSON :>
56+ ReqBody '[JSON] RelyingParty :>
57+ Post '[JSON] GetOOBConfirmationCodeResponse
58+
59+-- | Get a code for user action confirmation.
60+--
61+-- /See:/ 'relyingPartyGetOOBConfirmationCode'' smart constructor.
62+data RelyingPartyGetOOBConfirmationCode' = RelyingPartyGetOOBConfirmationCode'
63+ { _rpgoobccQuotaUser :: !(Maybe Text)
64+ , _rpgoobccPrettyPrint :: !Bool
65+ , _rpgoobccUserIP :: !(Maybe Text)
66+ , _rpgoobccRelyingParty :: !RelyingParty
67+ , _rpgoobccKey :: !(Maybe Key)
68+ , _rpgoobccOAuthToken :: !(Maybe OAuthToken)
69+ , _rpgoobccFields :: !(Maybe Text)
70+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
71+
72+-- | Creates a value of 'RelyingPartyGetOOBConfirmationCode'' with the minimum fields required to make a request.
73+--
74+-- Use one of the following lenses to modify other fields as desired:
75+--
76+-- * 'rpgoobccQuotaUser'
77+--
78+-- * 'rpgoobccPrettyPrint'
79+--
80+-- * 'rpgoobccUserIP'
81+--
82+-- * 'rpgoobccRelyingParty'
83+--
84+-- * 'rpgoobccKey'
85+--
86+-- * 'rpgoobccOAuthToken'
87+--
88+-- * 'rpgoobccFields'
89+relyingPartyGetOOBConfirmationCode'
90+ :: RelyingParty -- ^ 'RelyingParty'
91+ -> RelyingPartyGetOOBConfirmationCode'
92+relyingPartyGetOOBConfirmationCode' pRpgoobccRelyingParty_ =
93+ RelyingPartyGetOOBConfirmationCode'
94+ { _rpgoobccQuotaUser = Nothing
95+ , _rpgoobccPrettyPrint = True
96+ , _rpgoobccUserIP = Nothing
97+ , _rpgoobccRelyingParty = pRpgoobccRelyingParty_
98+ , _rpgoobccKey = Nothing
99+ , _rpgoobccOAuthToken = Nothing
100+ , _rpgoobccFields = Nothing
101+ }
102+
103+-- | Available to use for quota purposes for server-side applications. Can be
104+-- any arbitrary string assigned to a user, but should not exceed 40
105+-- characters. Overrides userIp if both are provided.
106+rpgoobccQuotaUser :: Lens' RelyingPartyGetOOBConfirmationCode' (Maybe Text)
107+rpgoobccQuotaUser
108+ = lens _rpgoobccQuotaUser
109+ (\ s a -> s{_rpgoobccQuotaUser = a})
110+
111+-- | Returns response with indentations and line breaks.
112+rpgoobccPrettyPrint :: Lens' RelyingPartyGetOOBConfirmationCode' Bool
113+rpgoobccPrettyPrint
114+ = lens _rpgoobccPrettyPrint
115+ (\ s a -> s{_rpgoobccPrettyPrint = a})
116+
117+-- | IP address of the site where the request originates. Use this if you
118+-- want to enforce per-user limits.
119+rpgoobccUserIP :: Lens' RelyingPartyGetOOBConfirmationCode' (Maybe Text)
120+rpgoobccUserIP
121+ = lens _rpgoobccUserIP
122+ (\ s a -> s{_rpgoobccUserIP = a})
123+
124+-- | Multipart request metadata.
125+rpgoobccRelyingParty :: Lens' RelyingPartyGetOOBConfirmationCode' RelyingParty
126+rpgoobccRelyingParty
127+ = lens _rpgoobccRelyingParty
128+ (\ s a -> s{_rpgoobccRelyingParty = a})
129+
130+-- | API key. Your API key identifies your project and provides you with API
131+-- access, quota, and reports. Required unless you provide an OAuth 2.0
132+-- token.
133+rpgoobccKey :: Lens' RelyingPartyGetOOBConfirmationCode' (Maybe Key)
134+rpgoobccKey
135+ = lens _rpgoobccKey (\ s a -> s{_rpgoobccKey = a})
136+
137+-- | OAuth 2.0 token for the current user.
138+rpgoobccOAuthToken :: Lens' RelyingPartyGetOOBConfirmationCode' (Maybe OAuthToken)
139+rpgoobccOAuthToken
140+ = lens _rpgoobccOAuthToken
141+ (\ s a -> s{_rpgoobccOAuthToken = a})
142+
143+-- | Selector specifying which fields to include in a partial response.
144+rpgoobccFields :: Lens' RelyingPartyGetOOBConfirmationCode' (Maybe Text)
145+rpgoobccFields
146+ = lens _rpgoobccFields
147+ (\ s a -> s{_rpgoobccFields = a})
148+
149+instance GoogleAuth
150+ RelyingPartyGetOOBConfirmationCode' where
151+ authKey = rpgoobccKey . _Just
152+ authToken = rpgoobccOAuthToken . _Just
153+
154+instance GoogleRequest
155+ RelyingPartyGetOOBConfirmationCode' where
156+ type Rs RelyingPartyGetOOBConfirmationCode' =
157+ GetOOBConfirmationCodeResponse
158+ request = requestWithRoute defReq identityToolkitURL
159+ requestWithRoute r u
160+ RelyingPartyGetOOBConfirmationCode'{..}
161+ = go _rpgoobccQuotaUser (Just _rpgoobccPrettyPrint)
162+ _rpgoobccUserIP
163+ _rpgoobccKey
164+ _rpgoobccOAuthToken
165+ _rpgoobccFields
166+ (Just AltJSON)
167+ _rpgoobccRelyingParty
168+ where go
169+ = clientWithRoute
170+ (Proxy ::
171+ Proxy RelyingPartyGetOOBConfirmationCodeResource)
172+ r
173+ u
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingPartyy/GetPublicKeys.hs → gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/GetPublicKeys.hsrenamed+29−29
@@ -10,7 +10,7 @@
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11
11
12-- |
12-- |
13−-- Module : Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetPublicKeys
13+-- Module : Network.Google.Resource.IdentityToolkit.RelyingParty.GetPublicKeys
14-- Copyright : (c) 2015 Brendan Hay
14-- Copyright : (c) 2015 Brendan Hay
15-- License : Mozilla Public License, v. 2.0.
15-- License : Mozilla Public License, v. 2.0.
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -19,15 +19,15 @@
19--
19--
20-- | Get token signing public key.
20-- | Get token signing public key.
21--
21--
22−-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyyGetPublicKeys@.
22+-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyGetPublicKeys@.
23−module Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetPublicKeys
23+module Network.Google.Resource.IdentityToolkit.RelyingParty.GetPublicKeys
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− RelyingPartyyGetPublicKeysResource
26+ RelyingPartyGetPublicKeysResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29− , relyingPartyyGetPublicKeys'
29+ , relyingPartyGetPublicKeys'
30− , RelyingPartyyGetPublicKeys'
30+ , RelyingPartyGetPublicKeys'
31
31
32 -- * Request Lenses
32 -- * Request Lenses
33 , rpgpkQuotaUser
33 , rpgpkQuotaUser
@@ -41,9 +41,9 @@ module Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetPublicKeys
41import Network.Google.IdentityToolkit.Types
41import Network.Google.IdentityToolkit.Types
42import Network.Google.Prelude
42import Network.Google.Prelude
43
43
44−-- | A resource alias for @IdentitytoolkitRelyingPartyyGetPublicKeys@ which the
44+-- | A resource alias for @IdentitytoolkitRelyingPartyGetPublicKeys@ which the
45−-- 'RelyingPartyyGetPublicKeys'' request conforms to.
45+-- 'RelyingPartyGetPublicKeys'' request conforms to.
46−type RelyingPartyyGetPublicKeysResource =
46+type RelyingPartyGetPublicKeysResource =
47 "publicKeys" :>
47 "publicKeys" :>
48 QueryParam "quotaUser" Text :>
48 QueryParam "quotaUser" Text :>
49 QueryParam "prettyPrint" Bool :>
49 QueryParam "prettyPrint" Bool :>
@@ -53,12 +53,12 @@ type RelyingPartyyGetPublicKeysResource =
53 QueryParam "fields" Text :>
53 QueryParam "fields" Text :>
54 QueryParam "alt" AltJSON :>
54 QueryParam "alt" AltJSON :>
55 Get '[JSON]
55 Get '[JSON]
56− IdentitytoolkitRelyingPartyyGetPublicKeysResponse
56+ IdentitytoolkitRelyingPartyGetPublicKeysResponse
57
57
58-- | Get token signing public key.
58-- | Get token signing public key.
59--
59--
60−-- /See:/ 'relyingPartyyGetPublicKeys'' smart constructor.
60+-- /See:/ 'relyingPartyGetPublicKeys'' smart constructor.
61−data RelyingPartyyGetPublicKeys' = RelyingPartyyGetPublicKeys'
61+data RelyingPartyGetPublicKeys' = RelyingPartyGetPublicKeys'
62 { _rpgpkQuotaUser :: !(Maybe Text)
62 { _rpgpkQuotaUser :: !(Maybe Text)
63 , _rpgpkPrettyPrint :: !Bool
63 , _rpgpkPrettyPrint :: !Bool
64 , _rpgpkUserIP :: !(Maybe Text)
64 , _rpgpkUserIP :: !(Maybe Text)
@@ -67,7 +67,7 @@ data RelyingPartyyGetPublicKeys' = RelyingPartyyGetPublicKeys'
67 , _rpgpkFields :: !(Maybe Text)
67 , _rpgpkFields :: !(Maybe Text)
68 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68 } deriving (Eq,Read,Show,Data,Typeable,Generic)
69
69
70−-- | Creates a value of 'RelyingPartyyGetPublicKeys'' with the minimum fields required to make a request.
70+-- | Creates a value of 'RelyingPartyGetPublicKeys'' with the minimum fields required to make a request.
71--
71--
72-- Use one of the following lenses to modify other fields as desired:
72-- Use one of the following lenses to modify other fields as desired:
73--
73--
@@ -82,10 +82,10 @@ data RelyingPartyyGetPublicKeys' = RelyingPartyyGetPublicKeys'
82-- * 'rpgpkOAuthToken'
82-- * 'rpgpkOAuthToken'
83--
83--
84-- * 'rpgpkFields'
84-- * 'rpgpkFields'
85−relyingPartyyGetPublicKeys'
85+relyingPartyGetPublicKeys'
86− :: RelyingPartyyGetPublicKeys'
86+ :: RelyingPartyGetPublicKeys'
87−relyingPartyyGetPublicKeys' =
87+relyingPartyGetPublicKeys' =
88− RelyingPartyyGetPublicKeys'
88+ RelyingPartyGetPublicKeys'
89 { _rpgpkQuotaUser = Nothing
89 { _rpgpkQuotaUser = Nothing
90 , _rpgpkPrettyPrint = True
90 , _rpgpkPrettyPrint = True
91 , _rpgpkUserIP = Nothing
91 , _rpgpkUserIP = Nothing
@@ -97,50 +97,50 @@ relyingPartyyGetPublicKeys' =
97-- | Available to use for quota purposes for server-side applications. Can be
97-- | Available to use for quota purposes for server-side applications. Can be
98-- any arbitrary string assigned to a user, but should not exceed 40
98-- any arbitrary string assigned to a user, but should not exceed 40
99-- characters. Overrides userIp if both are provided.
99-- characters. Overrides userIp if both are provided.
100−rpgpkQuotaUser :: Lens' RelyingPartyyGetPublicKeys' (Maybe Text)
100+rpgpkQuotaUser :: Lens' RelyingPartyGetPublicKeys' (Maybe Text)
101rpgpkQuotaUser
101rpgpkQuotaUser
102 = lens _rpgpkQuotaUser
102 = lens _rpgpkQuotaUser
103 (\ s a -> s{_rpgpkQuotaUser = a})
103 (\ s a -> s{_rpgpkQuotaUser = a})
104
104
105-- | Returns response with indentations and line breaks.
105-- | Returns response with indentations and line breaks.
106−rpgpkPrettyPrint :: Lens' RelyingPartyyGetPublicKeys' Bool
106+rpgpkPrettyPrint :: Lens' RelyingPartyGetPublicKeys' Bool
107rpgpkPrettyPrint
107rpgpkPrettyPrint
108 = lens _rpgpkPrettyPrint
108 = lens _rpgpkPrettyPrint
109 (\ s a -> s{_rpgpkPrettyPrint = a})
109 (\ s a -> s{_rpgpkPrettyPrint = a})
110
110
111-- | IP address of the site where the request originates. Use this if you
111-- | IP address of the site where the request originates. Use this if you
112-- want to enforce per-user limits.
112-- want to enforce per-user limits.
113−rpgpkUserIP :: Lens' RelyingPartyyGetPublicKeys' (Maybe Text)
113+rpgpkUserIP :: Lens' RelyingPartyGetPublicKeys' (Maybe Text)
114rpgpkUserIP
114rpgpkUserIP
115 = lens _rpgpkUserIP (\ s a -> s{_rpgpkUserIP = a})
115 = lens _rpgpkUserIP (\ s a -> s{_rpgpkUserIP = a})
116
116
117-- | API key. Your API key identifies your project and provides you with API
117-- | API key. Your API key identifies your project and provides you with API
118-- access, quota, and reports. Required unless you provide an OAuth 2.0
118-- access, quota, and reports. Required unless you provide an OAuth 2.0
119-- token.
119-- token.
120−rpgpkKey :: Lens' RelyingPartyyGetPublicKeys' (Maybe Key)
120+rpgpkKey :: Lens' RelyingPartyGetPublicKeys' (Maybe Key)
121rpgpkKey = lens _rpgpkKey (\ s a -> s{_rpgpkKey = a})
121rpgpkKey = lens _rpgpkKey (\ s a -> s{_rpgpkKey = a})
122
122
123-- | OAuth 2.0 token for the current user.
123-- | OAuth 2.0 token for the current user.
124−rpgpkOAuthToken :: Lens' RelyingPartyyGetPublicKeys' (Maybe OAuthToken)
124+rpgpkOAuthToken :: Lens' RelyingPartyGetPublicKeys' (Maybe OAuthToken)
125rpgpkOAuthToken
125rpgpkOAuthToken
126 = lens _rpgpkOAuthToken
126 = lens _rpgpkOAuthToken
127 (\ s a -> s{_rpgpkOAuthToken = a})
127 (\ s a -> s{_rpgpkOAuthToken = a})
128
128
129-- | Selector specifying which fields to include in a partial response.
129-- | Selector specifying which fields to include in a partial response.
130−rpgpkFields :: Lens' RelyingPartyyGetPublicKeys' (Maybe Text)
130+rpgpkFields :: Lens' RelyingPartyGetPublicKeys' (Maybe Text)
131rpgpkFields
131rpgpkFields
132 = lens _rpgpkFields (\ s a -> s{_rpgpkFields = a})
132 = lens _rpgpkFields (\ s a -> s{_rpgpkFields = a})
133
133
134−instance GoogleAuth RelyingPartyyGetPublicKeys' where
134+instance GoogleAuth RelyingPartyGetPublicKeys' where
135 authKey = rpgpkKey . _Just
135 authKey = rpgpkKey . _Just
136 authToken = rpgpkOAuthToken . _Just
136 authToken = rpgpkOAuthToken . _Just
137
137
138−instance GoogleRequest RelyingPartyyGetPublicKeys'
138+instance GoogleRequest RelyingPartyGetPublicKeys'
139 where
139 where
140− type Rs RelyingPartyyGetPublicKeys' =
140+ type Rs RelyingPartyGetPublicKeys' =
141− IdentitytoolkitRelyingPartyyGetPublicKeysResponse
141+ IdentitytoolkitRelyingPartyGetPublicKeysResponse
142 request = requestWithRoute defReq identityToolkitURL
142 request = requestWithRoute defReq identityToolkitURL
143− requestWithRoute r u RelyingPartyyGetPublicKeys'{..}
143+ requestWithRoute r u RelyingPartyGetPublicKeys'{..}
144 = go _rpgpkQuotaUser (Just _rpgpkPrettyPrint)
144 = go _rpgpkQuotaUser (Just _rpgpkPrettyPrint)
145 _rpgpkUserIP
145 _rpgpkUserIP
146 _rpgpkKey
146 _rpgpkKey
@@ -149,6 +149,6 @@ instance GoogleRequest RelyingPartyyGetPublicKeys'
149 (Just AltJSON)
149 (Just AltJSON)
150 where go
150 where go
151 = clientWithRoute
151 = clientWithRoute
152− (Proxy :: Proxy RelyingPartyyGetPublicKeysResource)
152+ (Proxy :: Proxy RelyingPartyGetPublicKeysResource)
153 r
153 r
154 u
154 u
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingPartyy/GetRecaptchaParam.hs → gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/GetRecaptchaParam.hsrenamed+28−28
@@ -10,7 +10,7 @@
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11
11
12-- |
12-- |
13−-- Module : Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetRecaptchaParam
13+-- Module : Network.Google.Resource.IdentityToolkit.RelyingParty.GetRecaptchaParam
14-- Copyright : (c) 2015 Brendan Hay
14-- Copyright : (c) 2015 Brendan Hay
15-- License : Mozilla Public License, v. 2.0.
15-- License : Mozilla Public License, v. 2.0.
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -19,15 +19,15 @@
19--
19--
20-- | Get recaptcha secure param.
20-- | Get recaptcha secure param.
21--
21--
22−-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyyGetRecaptchaParam@.
22+-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyGetRecaptchaParam@.
23−module Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetRecaptchaParam
23+module Network.Google.Resource.IdentityToolkit.RelyingParty.GetRecaptchaParam
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− RelyingPartyyGetRecaptchaParamResource
26+ RelyingPartyGetRecaptchaParamResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29− , relyingPartyyGetRecaptchaParam'
29+ , relyingPartyGetRecaptchaParam'
30− , RelyingPartyyGetRecaptchaParam'
30+ , RelyingPartyGetRecaptchaParam'
31
31
32 -- * Request Lenses
32 -- * Request Lenses
33 , rpgrpQuotaUser
33 , rpgrpQuotaUser
@@ -41,9 +41,9 @@ module Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetRecaptchaParam
41import Network.Google.IdentityToolkit.Types
41import Network.Google.IdentityToolkit.Types
42import Network.Google.Prelude
42import Network.Google.Prelude
43
43
44−-- | A resource alias for @IdentitytoolkitRelyingPartyyGetRecaptchaParam@ which the
44+-- | A resource alias for @IdentitytoolkitRelyingPartyGetRecaptchaParam@ which the
45−-- 'RelyingPartyyGetRecaptchaParam'' request conforms to.
45+-- 'RelyingPartyGetRecaptchaParam'' request conforms to.
46−type RelyingPartyyGetRecaptchaParamResource =
46+type RelyingPartyGetRecaptchaParamResource =
47 "getRecaptchaParam" :>
47 "getRecaptchaParam" :>
48 QueryParam "quotaUser" Text :>
48 QueryParam "quotaUser" Text :>
49 QueryParam "prettyPrint" Bool :>
49 QueryParam "prettyPrint" Bool :>
@@ -56,8 +56,8 @@ type RelyingPartyyGetRecaptchaParamResource =
56
56
57-- | Get recaptcha secure param.
57-- | Get recaptcha secure param.
58--
58--
59−-- /See:/ 'relyingPartyyGetRecaptchaParam'' smart constructor.
59+-- /See:/ 'relyingPartyGetRecaptchaParam'' smart constructor.
60−data RelyingPartyyGetRecaptchaParam' = RelyingPartyyGetRecaptchaParam'
60+data RelyingPartyGetRecaptchaParam' = RelyingPartyGetRecaptchaParam'
61 { _rpgrpQuotaUser :: !(Maybe Text)
61 { _rpgrpQuotaUser :: !(Maybe Text)
62 , _rpgrpPrettyPrint :: !Bool
62 , _rpgrpPrettyPrint :: !Bool
63 , _rpgrpUserIP :: !(Maybe Text)
63 , _rpgrpUserIP :: !(Maybe Text)
@@ -66,7 +66,7 @@ data RelyingPartyyGetRecaptchaParam' = RelyingPartyyGetRecaptchaParam'
66 , _rpgrpFields :: !(Maybe Text)
66 , _rpgrpFields :: !(Maybe Text)
67 } deriving (Eq,Read,Show,Data,Typeable,Generic)
67 } deriving (Eq,Read,Show,Data,Typeable,Generic)
68
68
69−-- | Creates a value of 'RelyingPartyyGetRecaptchaParam'' with the minimum fields required to make a request.
69+-- | Creates a value of 'RelyingPartyGetRecaptchaParam'' with the minimum fields required to make a request.
70--
70--
71-- Use one of the following lenses to modify other fields as desired:
71-- Use one of the following lenses to modify other fields as desired:
72--
72--
@@ -81,10 +81,10 @@ data RelyingPartyyGetRecaptchaParam' = RelyingPartyyGetRecaptchaParam'
81-- * 'rpgrpOAuthToken'
81-- * 'rpgrpOAuthToken'
82--
82--
83-- * 'rpgrpFields'
83-- * 'rpgrpFields'
84−relyingPartyyGetRecaptchaParam'
84+relyingPartyGetRecaptchaParam'
85− :: RelyingPartyyGetRecaptchaParam'
85+ :: RelyingPartyGetRecaptchaParam'
86−relyingPartyyGetRecaptchaParam' =
86+relyingPartyGetRecaptchaParam' =
87− RelyingPartyyGetRecaptchaParam'
87+ RelyingPartyGetRecaptchaParam'
88 { _rpgrpQuotaUser = Nothing
88 { _rpgrpQuotaUser = Nothing
89 , _rpgrpPrettyPrint = True
89 , _rpgrpPrettyPrint = True
90 , _rpgrpUserIP = Nothing
90 , _rpgrpUserIP = Nothing
@@ -96,52 +96,52 @@ relyingPartyyGetRecaptchaParam' =
96-- | Available to use for quota purposes for server-side applications. Can be
96-- | Available to use for quota purposes for server-side applications. Can be
97-- any arbitrary string assigned to a user, but should not exceed 40
97-- any arbitrary string assigned to a user, but should not exceed 40
98-- characters. Overrides userIp if both are provided.
98-- characters. Overrides userIp if both are provided.
99−rpgrpQuotaUser :: Lens' RelyingPartyyGetRecaptchaParam' (Maybe Text)
99+rpgrpQuotaUser :: Lens' RelyingPartyGetRecaptchaParam' (Maybe Text)
100rpgrpQuotaUser
100rpgrpQuotaUser
101 = lens _rpgrpQuotaUser
101 = lens _rpgrpQuotaUser
102 (\ s a -> s{_rpgrpQuotaUser = a})
102 (\ s a -> s{_rpgrpQuotaUser = a})
103
103
104-- | Returns response with indentations and line breaks.
104-- | Returns response with indentations and line breaks.
105−rpgrpPrettyPrint :: Lens' RelyingPartyyGetRecaptchaParam' Bool
105+rpgrpPrettyPrint :: Lens' RelyingPartyGetRecaptchaParam' Bool
106rpgrpPrettyPrint
106rpgrpPrettyPrint
107 = lens _rpgrpPrettyPrint
107 = lens _rpgrpPrettyPrint
108 (\ s a -> s{_rpgrpPrettyPrint = a})
108 (\ s a -> s{_rpgrpPrettyPrint = a})
109
109
110-- | IP address of the site where the request originates. Use this if you
110-- | IP address of the site where the request originates. Use this if you
111-- want to enforce per-user limits.
111-- want to enforce per-user limits.
112−rpgrpUserIP :: Lens' RelyingPartyyGetRecaptchaParam' (Maybe Text)
112+rpgrpUserIP :: Lens' RelyingPartyGetRecaptchaParam' (Maybe Text)
113rpgrpUserIP
113rpgrpUserIP
114 = lens _rpgrpUserIP (\ s a -> s{_rpgrpUserIP = a})
114 = lens _rpgrpUserIP (\ s a -> s{_rpgrpUserIP = a})
115
115
116-- | API key. Your API key identifies your project and provides you with API
116-- | API key. Your API key identifies your project and provides you with API
117-- access, quota, and reports. Required unless you provide an OAuth 2.0
117-- access, quota, and reports. Required unless you provide an OAuth 2.0
118-- token.
118-- token.
119−rpgrpKey :: Lens' RelyingPartyyGetRecaptchaParam' (Maybe Key)
119+rpgrpKey :: Lens' RelyingPartyGetRecaptchaParam' (Maybe Key)
120rpgrpKey = lens _rpgrpKey (\ s a -> s{_rpgrpKey = a})
120rpgrpKey = lens _rpgrpKey (\ s a -> s{_rpgrpKey = a})
121
121
122-- | OAuth 2.0 token for the current user.
122-- | OAuth 2.0 token for the current user.
123−rpgrpOAuthToken :: Lens' RelyingPartyyGetRecaptchaParam' (Maybe OAuthToken)
123+rpgrpOAuthToken :: Lens' RelyingPartyGetRecaptchaParam' (Maybe OAuthToken)
124rpgrpOAuthToken
124rpgrpOAuthToken
125 = lens _rpgrpOAuthToken
125 = lens _rpgrpOAuthToken
126 (\ s a -> s{_rpgrpOAuthToken = a})
126 (\ s a -> s{_rpgrpOAuthToken = a})
127
127
128-- | Selector specifying which fields to include in a partial response.
128-- | Selector specifying which fields to include in a partial response.
129−rpgrpFields :: Lens' RelyingPartyyGetRecaptchaParam' (Maybe Text)
129+rpgrpFields :: Lens' RelyingPartyGetRecaptchaParam' (Maybe Text)
130rpgrpFields
130rpgrpFields
131 = lens _rpgrpFields (\ s a -> s{_rpgrpFields = a})
131 = lens _rpgrpFields (\ s a -> s{_rpgrpFields = a})
132
132
133−instance GoogleAuth RelyingPartyyGetRecaptchaParam'
133+instance GoogleAuth RelyingPartyGetRecaptchaParam'
134 where
134 where
135 authKey = rpgrpKey . _Just
135 authKey = rpgrpKey . _Just
136 authToken = rpgrpOAuthToken . _Just
136 authToken = rpgrpOAuthToken . _Just
137
137
138−instance GoogleRequest
138+instance GoogleRequest RelyingPartyGetRecaptchaParam'
139− RelyingPartyyGetRecaptchaParam' where
139+ where
140− type Rs RelyingPartyyGetRecaptchaParam' =
140+ type Rs RelyingPartyGetRecaptchaParam' =
141 GetRecaptchaParamResponse
141 GetRecaptchaParamResponse
142 request = requestWithRoute defReq identityToolkitURL
142 request = requestWithRoute defReq identityToolkitURL
143 requestWithRoute r u
143 requestWithRoute r u
144− RelyingPartyyGetRecaptchaParam'{..}
144+ RelyingPartyGetRecaptchaParam'{..}
145 = go _rpgrpQuotaUser (Just _rpgrpPrettyPrint)
145 = go _rpgrpQuotaUser (Just _rpgrpPrettyPrint)
146 _rpgrpUserIP
146 _rpgrpUserIP
147 _rpgrpKey
147 _rpgrpKey
@@ -151,6 +151,6 @@ instance GoogleRequest
151 where go
151 where go
152 = clientWithRoute
152 = clientWithRoute
153 (Proxy ::
153 (Proxy ::
154− Proxy RelyingPartyyGetRecaptchaParamResource)
154+ Proxy RelyingPartyGetRecaptchaParamResource)
155 r
155 r
156 u
156 u
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingPartyy/ResetPassword.hs → gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/ResetPassword.hsrenamed+50−50
@@ -10,7 +10,7 @@
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11
11
12-- |
12-- |
13−-- Module : Network.Google.Resource.IdentityToolkit.RelyingPartyy.ResetPassword
13+-- Module : Network.Google.Resource.IdentityToolkit.RelyingParty.ResetPassword
14-- Copyright : (c) 2015 Brendan Hay
14-- Copyright : (c) 2015 Brendan Hay
15-- License : Mozilla Public License, v. 2.0.
15-- License : Mozilla Public License, v. 2.0.
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -19,32 +19,32 @@
19--
19--
20-- | Reset password for a user.
20-- | Reset password for a user.
21--
21--
22−-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyyResetPassword@.
22+-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyResetPassword@.
23−module Network.Google.Resource.IdentityToolkit.RelyingPartyy.ResetPassword
23+module Network.Google.Resource.IdentityToolkit.RelyingParty.ResetPassword
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− RelyingPartyyResetPasswordResource
26+ RelyingPartyResetPasswordResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29− , relyingPartyyResetPassword'
29+ , relyingPartyResetPassword'
30− , RelyingPartyyResetPassword'
30+ , RelyingPartyResetPassword'
31
31
32 -- * Request Lenses
32 -- * Request Lenses
33 , rprpQuotaUser
33 , rprpQuotaUser
34 , rprpPrettyPrint
34 , rprpPrettyPrint
35 , rprpUserIP
35 , rprpUserIP
36 , rprpKey
36 , rprpKey
37+ , rprpIdentitytoolkitRelyingPartyResetPasswordRequest
37 , rprpOAuthToken
38 , rprpOAuthToken
38− , rprpIdentitytoolkitRelyingPartyyResetPasswordRequest
39 , rprpFields
39 , rprpFields
40 ) where
40 ) where
41
41
42import Network.Google.IdentityToolkit.Types
42import Network.Google.IdentityToolkit.Types
43import Network.Google.Prelude
43import Network.Google.Prelude
44
44
45−-- | A resource alias for @IdentitytoolkitRelyingPartyyResetPassword@ which the
45+-- | A resource alias for @IdentitytoolkitRelyingPartyResetPassword@ which the
46−-- 'RelyingPartyyResetPassword'' request conforms to.
46+-- 'RelyingPartyResetPassword'' request conforms to.
47−type RelyingPartyyResetPasswordResource =
47+type RelyingPartyResetPasswordResource =
48 "resetPassword" :>
48 "resetPassword" :>
49 QueryParam "quotaUser" Text :>
49 QueryParam "quotaUser" Text :>
50 QueryParam "prettyPrint" Bool :>
50 QueryParam "prettyPrint" Bool :>
@@ -54,23 +54,23 @@ type RelyingPartyyResetPasswordResource =
54 QueryParam "fields" Text :>
54 QueryParam "fields" Text :>
55 QueryParam "alt" AltJSON :>
55 QueryParam "alt" AltJSON :>
56 ReqBody '[JSON]
56 ReqBody '[JSON]
57− IdentitytoolkitRelyingPartyyResetPasswordRequest
57+ IdentitytoolkitRelyingPartyResetPasswordRequest
58 :> Post '[JSON] ResetPasswordResponse
58 :> Post '[JSON] ResetPasswordResponse
59
59
60-- | Reset password for a user.
60-- | Reset password for a user.
61--
61--
62−-- /See:/ 'relyingPartyyResetPassword'' smart constructor.
62+-- /See:/ 'relyingPartyResetPassword'' smart constructor.
63−data RelyingPartyyResetPassword' = RelyingPartyyResetPassword'
63+data RelyingPartyResetPassword' = RelyingPartyResetPassword'
64− { _rprpQuotaUser :: !(Maybe Text)
64+ { _rprpQuotaUser :: !(Maybe Text)
65− , _rprpPrettyPrint :: !Bool
65+ , _rprpPrettyPrint :: !Bool
66− , _rprpUserIP :: !(Maybe Text)
66+ , _rprpUserIP :: !(Maybe Text)
67− , _rprpKey :: !(Maybe Key)
67+ , _rprpKey :: !(Maybe Key)
68+ , _rprpIdentitytoolkitRelyingPartyResetPasswordRequest :: !IdentitytoolkitRelyingPartyResetPasswordRequest
68− , _rprpOAuthToken :: !(Maybe OAuthToken)
69+ , _rprpOAuthToken :: !(Maybe OAuthToken)
69− , _rprpIdentitytoolkitRelyingPartyyResetPasswordRequest :: !IdentitytoolkitRelyingPartyyResetPasswordRequest
70− , _rprpFields :: !(Maybe Text)
70+ , _rprpFields :: !(Maybe Text)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72
72
73−-- | Creates a value of 'RelyingPartyyResetPassword'' with the minimum fields required to make a request.
73+-- | Creates a value of 'RelyingPartyResetPassword'' with the minimum fields required to make a request.
74--
74--
75-- Use one of the following lenses to modify other fields as desired:
75-- Use one of the following lenses to modify other fields as desired:
76--
76--
@@ -82,90 +82,90 @@ data RelyingPartyyResetPassword' = RelyingPartyyResetPassword'
82--
82--
83-- * 'rprpKey'
83-- * 'rprpKey'
84--
84--
85−-- * 'rprpOAuthToken'
85+-- * 'rprpIdentitytoolkitRelyingPartyResetPasswordRequest'
86--
86--
87−-- * 'rprpIdentitytoolkitRelyingPartyyResetPasswordRequest'
87+-- * 'rprpOAuthToken'
88--
88--
89-- * 'rprpFields'
89-- * 'rprpFields'
90−relyingPartyyResetPassword'
90+relyingPartyResetPassword'
91− :: IdentitytoolkitRelyingPartyyResetPasswordRequest -- ^ 'IdentitytoolkitRelyingPartyyResetPasswordRequest'
91+ :: IdentitytoolkitRelyingPartyResetPasswordRequest -- ^ 'IdentitytoolkitRelyingPartyResetPasswordRequest'
92− -> RelyingPartyyResetPassword'
92+ -> RelyingPartyResetPassword'
93−relyingPartyyResetPassword' pRprpIdentitytoolkitRelyingPartyyResetPasswordRequest_ =
93+relyingPartyResetPassword' pRprpIdentitytoolkitRelyingPartyResetPasswordRequest_ =
94− RelyingPartyyResetPassword'
94+ RelyingPartyResetPassword'
95 { _rprpQuotaUser = Nothing
95 { _rprpQuotaUser = Nothing
96 , _rprpPrettyPrint = True
96 , _rprpPrettyPrint = True
97 , _rprpUserIP = Nothing
97 , _rprpUserIP = Nothing
98 , _rprpKey = Nothing
98 , _rprpKey = Nothing
99+ , _rprpIdentitytoolkitRelyingPartyResetPasswordRequest = pRprpIdentitytoolkitRelyingPartyResetPasswordRequest_
99 , _rprpOAuthToken = Nothing
100 , _rprpOAuthToken = Nothing
100− , _rprpIdentitytoolkitRelyingPartyyResetPasswordRequest = pRprpIdentitytoolkitRelyingPartyyResetPasswordRequest_
101 , _rprpFields = Nothing
101 , _rprpFields = Nothing
102 }
102 }
103
103
104-- | Available to use for quota purposes for server-side applications. Can be
104-- | Available to use for quota purposes for server-side applications. Can be
105-- any arbitrary string assigned to a user, but should not exceed 40
105-- any arbitrary string assigned to a user, but should not exceed 40
106-- characters. Overrides userIp if both are provided.
106-- characters. Overrides userIp if both are provided.
107−rprpQuotaUser :: Lens' RelyingPartyyResetPassword' (Maybe Text)
107+rprpQuotaUser :: Lens' RelyingPartyResetPassword' (Maybe Text)
108rprpQuotaUser
108rprpQuotaUser
109 = lens _rprpQuotaUser
109 = lens _rprpQuotaUser
110 (\ s a -> s{_rprpQuotaUser = a})
110 (\ s a -> s{_rprpQuotaUser = a})
111
111
112-- | Returns response with indentations and line breaks.
112-- | Returns response with indentations and line breaks.
113−rprpPrettyPrint :: Lens' RelyingPartyyResetPassword' Bool
113+rprpPrettyPrint :: Lens' RelyingPartyResetPassword' Bool
114rprpPrettyPrint
114rprpPrettyPrint
115 = lens _rprpPrettyPrint
115 = lens _rprpPrettyPrint
116 (\ s a -> s{_rprpPrettyPrint = a})
116 (\ s a -> s{_rprpPrettyPrint = a})
117
117
118-- | IP address of the site where the request originates. Use this if you
118-- | IP address of the site where the request originates. Use this if you
119-- want to enforce per-user limits.
119-- want to enforce per-user limits.
120−rprpUserIP :: Lens' RelyingPartyyResetPassword' (Maybe Text)
120+rprpUserIP :: Lens' RelyingPartyResetPassword' (Maybe Text)
121rprpUserIP
121rprpUserIP
122 = lens _rprpUserIP (\ s a -> s{_rprpUserIP = a})
122 = lens _rprpUserIP (\ s a -> s{_rprpUserIP = a})
123
123
124-- | API key. Your API key identifies your project and provides you with API
124-- | API key. Your API key identifies your project and provides you with API
125-- access, quota, and reports. Required unless you provide an OAuth 2.0
125-- access, quota, and reports. Required unless you provide an OAuth 2.0
126-- token.
126-- token.
127−rprpKey :: Lens' RelyingPartyyResetPassword' (Maybe Key)
127+rprpKey :: Lens' RelyingPartyResetPassword' (Maybe Key)
128rprpKey = lens _rprpKey (\ s a -> s{_rprpKey = a})
128rprpKey = lens _rprpKey (\ s a -> s{_rprpKey = a})
129
129
130−-- | OAuth 2.0 token for the current user.
131−rprpOAuthToken :: Lens' RelyingPartyyResetPassword' (Maybe OAuthToken)
132−rprpOAuthToken
133− = lens _rprpOAuthToken
134− (\ s a -> s{_rprpOAuthToken = a})
135−
136-- | Multipart request metadata.
130-- | Multipart request metadata.
137−rprpIdentitytoolkitRelyingPartyyResetPasswordRequest :: Lens' RelyingPartyyResetPassword' IdentitytoolkitRelyingPartyyResetPasswordRequest
131+rprpIdentitytoolkitRelyingPartyResetPasswordRequest :: Lens' RelyingPartyResetPassword' IdentitytoolkitRelyingPartyResetPasswordRequest
138−rprpIdentitytoolkitRelyingPartyyResetPasswordRequest
132+rprpIdentitytoolkitRelyingPartyResetPasswordRequest
139 = lens
133 = lens
140− _rprpIdentitytoolkitRelyingPartyyResetPasswordRequest
134+ _rprpIdentitytoolkitRelyingPartyResetPasswordRequest
141 (\ s a ->
135 (\ s a ->
142− s{_rprpIdentitytoolkitRelyingPartyyResetPasswordRequest
136+ s{_rprpIdentitytoolkitRelyingPartyResetPasswordRequest
143 = a})
137 = a})
144
138
139+-- | OAuth 2.0 token for the current user.
140+rprpOAuthToken :: Lens' RelyingPartyResetPassword' (Maybe OAuthToken)
141+rprpOAuthToken
142+ = lens _rprpOAuthToken
143+ (\ s a -> s{_rprpOAuthToken = a})
144+
145-- | Selector specifying which fields to include in a partial response.
145-- | Selector specifying which fields to include in a partial response.
146−rprpFields :: Lens' RelyingPartyyResetPassword' (Maybe Text)
146+rprpFields :: Lens' RelyingPartyResetPassword' (Maybe Text)
147rprpFields
147rprpFields
148 = lens _rprpFields (\ s a -> s{_rprpFields = a})
148 = lens _rprpFields (\ s a -> s{_rprpFields = a})
149
149
150−instance GoogleAuth RelyingPartyyResetPassword' where
150+instance GoogleAuth RelyingPartyResetPassword' where
151 authKey = rprpKey . _Just
151 authKey = rprpKey . _Just
152 authToken = rprpOAuthToken . _Just
152 authToken = rprpOAuthToken . _Just
153
153
154−instance GoogleRequest RelyingPartyyResetPassword'
154+instance GoogleRequest RelyingPartyResetPassword'
155 where
155 where
156− type Rs RelyingPartyyResetPassword' =
156+ type Rs RelyingPartyResetPassword' =
157 ResetPasswordResponse
157 ResetPasswordResponse
158 request = requestWithRoute defReq identityToolkitURL
158 request = requestWithRoute defReq identityToolkitURL
159− requestWithRoute r u RelyingPartyyResetPassword'{..}
159+ requestWithRoute r u RelyingPartyResetPassword'{..}
160 = go _rprpQuotaUser (Just _rprpPrettyPrint)
160 = go _rprpQuotaUser (Just _rprpPrettyPrint)
161 _rprpUserIP
161 _rprpUserIP
162 _rprpKey
162 _rprpKey
163 _rprpOAuthToken
163 _rprpOAuthToken
164 _rprpFields
164 _rprpFields
165 (Just AltJSON)
165 (Just AltJSON)
166− _rprpIdentitytoolkitRelyingPartyyResetPasswordRequest
166+ _rprpIdentitytoolkitRelyingPartyResetPasswordRequest
167 where go
167 where go
168 = clientWithRoute
168 = clientWithRoute
169− (Proxy :: Proxy RelyingPartyyResetPasswordResource)
169+ (Proxy :: Proxy RelyingPartyResetPasswordResource)
170 r
170 r
171 u
171 u
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingPartyy/SetAccountInfo.hs → gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/SetAccountInfo.hsrenamed+44−45
@@ -10,7 +10,7 @@
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11
11
12-- |
12-- |
13−-- Module : Network.Google.Resource.IdentityToolkit.RelyingPartyy.SetAccountInfo
13+-- Module : Network.Google.Resource.IdentityToolkit.RelyingParty.SetAccountInfo
14-- Copyright : (c) 2015 Brendan Hay
14-- Copyright : (c) 2015 Brendan Hay
15-- License : Mozilla Public License, v. 2.0.
15-- License : Mozilla Public License, v. 2.0.
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -19,21 +19,21 @@
19--
19--
20-- | Set account info for a user.
20-- | Set account info for a user.
21--
21--
22−-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyySetAccountInfo@.
22+-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartySetAccountInfo@.
23−module Network.Google.Resource.IdentityToolkit.RelyingPartyy.SetAccountInfo
23+module Network.Google.Resource.IdentityToolkit.RelyingParty.SetAccountInfo
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− RelyingPartyySetAccountInfoResource
26+ RelyingPartySetAccountInfoResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29− , relyingPartyySetAccountInfo'
29+ , relyingPartySetAccountInfo'
30− , RelyingPartyySetAccountInfo'
30+ , RelyingPartySetAccountInfo'
31
31
32 -- * Request Lenses
32 -- * Request Lenses
33 , rpsaiQuotaUser
33 , rpsaiQuotaUser
34 , rpsaiPrettyPrint
34 , rpsaiPrettyPrint
35 , rpsaiUserIP
35 , rpsaiUserIP
36− , rpsaiIdentitytoolkitRelyingPartyySetAccountInfoRequest
36+ , rpsaiIdentitytoolkitRelyingPartySetAccountInfoRequest
37 , rpsaiKey
37 , rpsaiKey
38 , rpsaiOAuthToken
38 , rpsaiOAuthToken
39 , rpsaiFields
39 , rpsaiFields
@@ -42,9 +42,9 @@ module Network.Google.Resource.IdentityToolkit.RelyingPartyy.SetAccountInfo
42import Network.Google.IdentityToolkit.Types
42import Network.Google.IdentityToolkit.Types
43import Network.Google.Prelude
43import Network.Google.Prelude
44
44
45−-- | A resource alias for @IdentitytoolkitRelyingPartyySetAccountInfo@ which the
45+-- | A resource alias for @IdentitytoolkitRelyingPartySetAccountInfo@ which the
46−-- 'RelyingPartyySetAccountInfo'' request conforms to.
46+-- 'RelyingPartySetAccountInfo'' request conforms to.
47−type RelyingPartyySetAccountInfoResource =
47+type RelyingPartySetAccountInfoResource =
48 "setAccountInfo" :>
48 "setAccountInfo" :>
49 QueryParam "quotaUser" Text :>
49 QueryParam "quotaUser" Text :>
50 QueryParam "prettyPrint" Bool :>
50 QueryParam "prettyPrint" Bool :>
@@ -54,23 +54,23 @@ type RelyingPartyySetAccountInfoResource =
54 QueryParam "fields" Text :>
54 QueryParam "fields" Text :>
55 QueryParam "alt" AltJSON :>
55 QueryParam "alt" AltJSON :>
56 ReqBody '[JSON]
56 ReqBody '[JSON]
57− IdentitytoolkitRelyingPartyySetAccountInfoRequest
57+ IdentitytoolkitRelyingPartySetAccountInfoRequest
58 :> Post '[JSON] SetAccountInfoResponse
58 :> Post '[JSON] SetAccountInfoResponse
59
59
60-- | Set account info for a user.
60-- | Set account info for a user.
61--
61--
62−-- /See:/ 'relyingPartyySetAccountInfo'' smart constructor.
62+-- /See:/ 'relyingPartySetAccountInfo'' smart constructor.
63−data RelyingPartyySetAccountInfo' = RelyingPartyySetAccountInfo'
63+data RelyingPartySetAccountInfo' = RelyingPartySetAccountInfo'
64− { _rpsaiQuotaUser :: !(Maybe Text)
64+ { _rpsaiQuotaUser :: !(Maybe Text)
65− , _rpsaiPrettyPrint :: !Bool
65+ , _rpsaiPrettyPrint :: !Bool
66− , _rpsaiUserIP :: !(Maybe Text)
66+ , _rpsaiUserIP :: !(Maybe Text)
67− , _rpsaiIdentitytoolkitRelyingPartyySetAccountInfoRequest :: !IdentitytoolkitRelyingPartyySetAccountInfoRequest
67+ , _rpsaiIdentitytoolkitRelyingPartySetAccountInfoRequest :: !IdentitytoolkitRelyingPartySetAccountInfoRequest
68− , _rpsaiKey :: !(Maybe Key)
68+ , _rpsaiKey :: !(Maybe Key)
69− , _rpsaiOAuthToken :: !(Maybe OAuthToken)
69+ , _rpsaiOAuthToken :: !(Maybe OAuthToken)
70− , _rpsaiFields :: !(Maybe Text)
70+ , _rpsaiFields :: !(Maybe Text)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72
72
73−-- | Creates a value of 'RelyingPartyySetAccountInfo'' with the minimum fields required to make a request.
73+-- | Creates a value of 'RelyingPartySetAccountInfo'' with the minimum fields required to make a request.
74--
74--
75-- Use one of the following lenses to modify other fields as desired:
75-- Use one of the following lenses to modify other fields as desired:
76--
76--
@@ -80,22 +80,22 @@ data RelyingPartyySetAccountInfo' = RelyingPartyySetAccountInfo'
80--
80--
81-- * 'rpsaiUserIP'
81-- * 'rpsaiUserIP'
82--
82--
83−-- * 'rpsaiIdentitytoolkitRelyingPartyySetAccountInfoRequest'
83+-- * 'rpsaiIdentitytoolkitRelyingPartySetAccountInfoRequest'
84--
84--
85-- * 'rpsaiKey'
85-- * 'rpsaiKey'
86--
86--
87-- * 'rpsaiOAuthToken'
87-- * 'rpsaiOAuthToken'
88--
88--
89-- * 'rpsaiFields'
89-- * 'rpsaiFields'
90−relyingPartyySetAccountInfo'
90+relyingPartySetAccountInfo'
91− :: IdentitytoolkitRelyingPartyySetAccountInfoRequest -- ^ 'IdentitytoolkitRelyingPartyySetAccountInfoRequest'
91+ :: IdentitytoolkitRelyingPartySetAccountInfoRequest -- ^ 'IdentitytoolkitRelyingPartySetAccountInfoRequest'
92− -> RelyingPartyySetAccountInfo'
92+ -> RelyingPartySetAccountInfo'
93−relyingPartyySetAccountInfo' pRpsaiIdentitytoolkitRelyingPartyySetAccountInfoRequest_ =
93+relyingPartySetAccountInfo' pRpsaiIdentitytoolkitRelyingPartySetAccountInfoRequest_ =
94− RelyingPartyySetAccountInfo'
94+ RelyingPartySetAccountInfo'
95 { _rpsaiQuotaUser = Nothing
95 { _rpsaiQuotaUser = Nothing
96 , _rpsaiPrettyPrint = True
96 , _rpsaiPrettyPrint = True
97 , _rpsaiUserIP = Nothing
97 , _rpsaiUserIP = Nothing
98− , _rpsaiIdentitytoolkitRelyingPartyySetAccountInfoRequest = pRpsaiIdentitytoolkitRelyingPartyySetAccountInfoRequest_
98+ , _rpsaiIdentitytoolkitRelyingPartySetAccountInfoRequest = pRpsaiIdentitytoolkitRelyingPartySetAccountInfoRequest_
99 , _rpsaiKey = Nothing
99 , _rpsaiKey = Nothing
100 , _rpsaiOAuthToken = Nothing
100 , _rpsaiOAuthToken = Nothing
101 , _rpsaiFields = Nothing
101 , _rpsaiFields = Nothing
@@ -104,69 +104,68 @@ relyingPartyySetAccountInfo' pRpsaiIdentitytoolkitRelyingPartyySetAccountInfoReq
104-- | Available to use for quota purposes for server-side applications. Can be
104-- | Available to use for quota purposes for server-side applications. Can be
105-- any arbitrary string assigned to a user, but should not exceed 40
105-- any arbitrary string assigned to a user, but should not exceed 40
106-- characters. Overrides userIp if both are provided.
106-- characters. Overrides userIp if both are provided.
107−rpsaiQuotaUser :: Lens' RelyingPartyySetAccountInfo' (Maybe Text)
107+rpsaiQuotaUser :: Lens' RelyingPartySetAccountInfo' (Maybe Text)
108rpsaiQuotaUser
108rpsaiQuotaUser
109 = lens _rpsaiQuotaUser
109 = lens _rpsaiQuotaUser
110 (\ s a -> s{_rpsaiQuotaUser = a})
110 (\ s a -> s{_rpsaiQuotaUser = a})
111
111
112-- | Returns response with indentations and line breaks.
112-- | Returns response with indentations and line breaks.
113−rpsaiPrettyPrint :: Lens' RelyingPartyySetAccountInfo' Bool
113+rpsaiPrettyPrint :: Lens' RelyingPartySetAccountInfo' Bool
114rpsaiPrettyPrint
114rpsaiPrettyPrint
115 = lens _rpsaiPrettyPrint
115 = lens _rpsaiPrettyPrint
116 (\ s a -> s{_rpsaiPrettyPrint = a})
116 (\ s a -> s{_rpsaiPrettyPrint = a})
117
117
118-- | IP address of the site where the request originates. Use this if you
118-- | IP address of the site where the request originates. Use this if you
119-- want to enforce per-user limits.
119-- want to enforce per-user limits.
120−rpsaiUserIP :: Lens' RelyingPartyySetAccountInfo' (Maybe Text)
120+rpsaiUserIP :: Lens' RelyingPartySetAccountInfo' (Maybe Text)
121rpsaiUserIP
121rpsaiUserIP
122 = lens _rpsaiUserIP (\ s a -> s{_rpsaiUserIP = a})
122 = lens _rpsaiUserIP (\ s a -> s{_rpsaiUserIP = a})
123
123
124-- | Multipart request metadata.
124-- | Multipart request metadata.
125−rpsaiIdentitytoolkitRelyingPartyySetAccountInfoRequest :: Lens' RelyingPartyySetAccountInfo' IdentitytoolkitRelyingPartyySetAccountInfoRequest
125+rpsaiIdentitytoolkitRelyingPartySetAccountInfoRequest :: Lens' RelyingPartySetAccountInfo' IdentitytoolkitRelyingPartySetAccountInfoRequest
126−rpsaiIdentitytoolkitRelyingPartyySetAccountInfoRequest
126+rpsaiIdentitytoolkitRelyingPartySetAccountInfoRequest
127 = lens
127 = lens
128− _rpsaiIdentitytoolkitRelyingPartyySetAccountInfoRequest
128+ _rpsaiIdentitytoolkitRelyingPartySetAccountInfoRequest
129 (\ s a ->
129 (\ s a ->
130− s{_rpsaiIdentitytoolkitRelyingPartyySetAccountInfoRequest
130+ s{_rpsaiIdentitytoolkitRelyingPartySetAccountInfoRequest
131 = a})
131 = a})
132
132
133-- | API key. Your API key identifies your project and provides you with API
133-- | API key. Your API key identifies your project and provides you with API
134-- access, quota, and reports. Required unless you provide an OAuth 2.0
134-- access, quota, and reports. Required unless you provide an OAuth 2.0
135-- token.
135-- token.
136−rpsaiKey :: Lens' RelyingPartyySetAccountInfo' (Maybe Key)
136+rpsaiKey :: Lens' RelyingPartySetAccountInfo' (Maybe Key)
137rpsaiKey = lens _rpsaiKey (\ s a -> s{_rpsaiKey = a})
137rpsaiKey = lens _rpsaiKey (\ s a -> s{_rpsaiKey = a})
138
138
139-- | OAuth 2.0 token for the current user.
139-- | OAuth 2.0 token for the current user.
140−rpsaiOAuthToken :: Lens' RelyingPartyySetAccountInfo' (Maybe OAuthToken)
140+rpsaiOAuthToken :: Lens' RelyingPartySetAccountInfo' (Maybe OAuthToken)
141rpsaiOAuthToken
141rpsaiOAuthToken
142 = lens _rpsaiOAuthToken
142 = lens _rpsaiOAuthToken
143 (\ s a -> s{_rpsaiOAuthToken = a})
143 (\ s a -> s{_rpsaiOAuthToken = a})
144
144
145-- | Selector specifying which fields to include in a partial response.
145-- | Selector specifying which fields to include in a partial response.
146−rpsaiFields :: Lens' RelyingPartyySetAccountInfo' (Maybe Text)
146+rpsaiFields :: Lens' RelyingPartySetAccountInfo' (Maybe Text)
147rpsaiFields
147rpsaiFields
148 = lens _rpsaiFields (\ s a -> s{_rpsaiFields = a})
148 = lens _rpsaiFields (\ s a -> s{_rpsaiFields = a})
149
149
150−instance GoogleAuth RelyingPartyySetAccountInfo'
150+instance GoogleAuth RelyingPartySetAccountInfo' where
151− where
152 authKey = rpsaiKey . _Just
151 authKey = rpsaiKey . _Just
153 authToken = rpsaiOAuthToken . _Just
152 authToken = rpsaiOAuthToken . _Just
154
153
155−instance GoogleRequest RelyingPartyySetAccountInfo'
154+instance GoogleRequest RelyingPartySetAccountInfo'
156 where
155 where
157− type Rs RelyingPartyySetAccountInfo' =
156+ type Rs RelyingPartySetAccountInfo' =
158 SetAccountInfoResponse
157 SetAccountInfoResponse
159 request = requestWithRoute defReq identityToolkitURL
158 request = requestWithRoute defReq identityToolkitURL
160− requestWithRoute r u RelyingPartyySetAccountInfo'{..}
159+ requestWithRoute r u RelyingPartySetAccountInfo'{..}
161 = go _rpsaiQuotaUser (Just _rpsaiPrettyPrint)
160 = go _rpsaiQuotaUser (Just _rpsaiPrettyPrint)
162 _rpsaiUserIP
161 _rpsaiUserIP
163 _rpsaiKey
162 _rpsaiKey
164 _rpsaiOAuthToken
163 _rpsaiOAuthToken
165 _rpsaiFields
164 _rpsaiFields
166 (Just AltJSON)
165 (Just AltJSON)
167− _rpsaiIdentitytoolkitRelyingPartyySetAccountInfoRequest
166+ _rpsaiIdentitytoolkitRelyingPartySetAccountInfoRequest
168 where go
167 where go
169 = clientWithRoute
168 = clientWithRoute
170− (Proxy :: Proxy RelyingPartyySetAccountInfoResource)
169+ (Proxy :: Proxy RelyingPartySetAccountInfoResource)
171 r
170 r
172 u
171 u
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingPartyy/UploadAccount.hs → gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/UploadAccount.hsrenamed+50−50
@@ -10,7 +10,7 @@
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11
11
12-- |
12-- |
13−-- Module : Network.Google.Resource.IdentityToolkit.RelyingPartyy.UploadAccount
13+-- Module : Network.Google.Resource.IdentityToolkit.RelyingParty.UploadAccount
14-- Copyright : (c) 2015 Brendan Hay
14-- Copyright : (c) 2015 Brendan Hay
15-- License : Mozilla Public License, v. 2.0.
15-- License : Mozilla Public License, v. 2.0.
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -19,32 +19,32 @@
19--
19--
20-- | Batch upload existing user accounts.
20-- | Batch upload existing user accounts.
21--
21--
22−-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyyUploadAccount@.
22+-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyUploadAccount@.
23−module Network.Google.Resource.IdentityToolkit.RelyingPartyy.UploadAccount
23+module Network.Google.Resource.IdentityToolkit.RelyingParty.UploadAccount
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− RelyingPartyyUploadAccountResource
26+ RelyingPartyUploadAccountResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29− , relyingPartyyUploadAccount'
29+ , relyingPartyUploadAccount'
30− , RelyingPartyyUploadAccount'
30+ , RelyingPartyUploadAccount'
31
31
32 -- * Request Lenses
32 -- * Request Lenses
33 , rpuaQuotaUser
33 , rpuaQuotaUser
34 , rpuaPrettyPrint
34 , rpuaPrettyPrint
35 , rpuaUserIP
35 , rpuaUserIP
36 , rpuaKey
36 , rpuaKey
37+ , rpuaIdentitytoolkitRelyingPartyUploadAccountRequest
37 , rpuaOAuthToken
38 , rpuaOAuthToken
38− , rpuaIdentitytoolkitRelyingPartyyUploadAccountRequest
39 , rpuaFields
39 , rpuaFields
40 ) where
40 ) where
41
41
42import Network.Google.IdentityToolkit.Types
42import Network.Google.IdentityToolkit.Types
43import Network.Google.Prelude
43import Network.Google.Prelude
44
44
45−-- | A resource alias for @IdentitytoolkitRelyingPartyyUploadAccount@ which the
45+-- | A resource alias for @IdentitytoolkitRelyingPartyUploadAccount@ which the
46−-- 'RelyingPartyyUploadAccount'' request conforms to.
46+-- 'RelyingPartyUploadAccount'' request conforms to.
47−type RelyingPartyyUploadAccountResource =
47+type RelyingPartyUploadAccountResource =
48 "uploadAccount" :>
48 "uploadAccount" :>
49 QueryParam "quotaUser" Text :>
49 QueryParam "quotaUser" Text :>
50 QueryParam "prettyPrint" Bool :>
50 QueryParam "prettyPrint" Bool :>
@@ -54,23 +54,23 @@ type RelyingPartyyUploadAccountResource =
54 QueryParam "fields" Text :>
54 QueryParam "fields" Text :>
55 QueryParam "alt" AltJSON :>
55 QueryParam "alt" AltJSON :>
56 ReqBody '[JSON]
56 ReqBody '[JSON]
57− IdentitytoolkitRelyingPartyyUploadAccountRequest
57+ IdentitytoolkitRelyingPartyUploadAccountRequest
58 :> Post '[JSON] UploadAccountResponse
58 :> Post '[JSON] UploadAccountResponse
59
59
60-- | Batch upload existing user accounts.
60-- | Batch upload existing user accounts.
61--
61--
62−-- /See:/ 'relyingPartyyUploadAccount'' smart constructor.
62+-- /See:/ 'relyingPartyUploadAccount'' smart constructor.
63−data RelyingPartyyUploadAccount' = RelyingPartyyUploadAccount'
63+data RelyingPartyUploadAccount' = RelyingPartyUploadAccount'
64− { _rpuaQuotaUser :: !(Maybe Text)
64+ { _rpuaQuotaUser :: !(Maybe Text)
65− , _rpuaPrettyPrint :: !Bool
65+ , _rpuaPrettyPrint :: !Bool
66− , _rpuaUserIP :: !(Maybe Text)
66+ , _rpuaUserIP :: !(Maybe Text)
67− , _rpuaKey :: !(Maybe Key)
67+ , _rpuaKey :: !(Maybe Key)
68+ , _rpuaIdentitytoolkitRelyingPartyUploadAccountRequest :: !IdentitytoolkitRelyingPartyUploadAccountRequest
68− , _rpuaOAuthToken :: !(Maybe OAuthToken)
69+ , _rpuaOAuthToken :: !(Maybe OAuthToken)
69− , _rpuaIdentitytoolkitRelyingPartyyUploadAccountRequest :: !IdentitytoolkitRelyingPartyyUploadAccountRequest
70− , _rpuaFields :: !(Maybe Text)
70+ , _rpuaFields :: !(Maybe Text)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72
72
73−-- | Creates a value of 'RelyingPartyyUploadAccount'' with the minimum fields required to make a request.
73+-- | Creates a value of 'RelyingPartyUploadAccount'' with the minimum fields required to make a request.
74--
74--
75-- Use one of the following lenses to modify other fields as desired:
75-- Use one of the following lenses to modify other fields as desired:
76--
76--
@@ -82,90 +82,90 @@ data RelyingPartyyUploadAccount' = RelyingPartyyUploadAccount'
82--
82--
83-- * 'rpuaKey'
83-- * 'rpuaKey'
84--
84--
85−-- * 'rpuaOAuthToken'
85+-- * 'rpuaIdentitytoolkitRelyingPartyUploadAccountRequest'
86--
86--
87−-- * 'rpuaIdentitytoolkitRelyingPartyyUploadAccountRequest'
87+-- * 'rpuaOAuthToken'
88--
88--
89-- * 'rpuaFields'
89-- * 'rpuaFields'
90−relyingPartyyUploadAccount'
90+relyingPartyUploadAccount'
91− :: IdentitytoolkitRelyingPartyyUploadAccountRequest -- ^ 'IdentitytoolkitRelyingPartyyUploadAccountRequest'
91+ :: IdentitytoolkitRelyingPartyUploadAccountRequest -- ^ 'IdentitytoolkitRelyingPartyUploadAccountRequest'
92− -> RelyingPartyyUploadAccount'
92+ -> RelyingPartyUploadAccount'
93−relyingPartyyUploadAccount' pRpuaIdentitytoolkitRelyingPartyyUploadAccountRequest_ =
93+relyingPartyUploadAccount' pRpuaIdentitytoolkitRelyingPartyUploadAccountRequest_ =
94− RelyingPartyyUploadAccount'
94+ RelyingPartyUploadAccount'
95 { _rpuaQuotaUser = Nothing
95 { _rpuaQuotaUser = Nothing
96 , _rpuaPrettyPrint = True
96 , _rpuaPrettyPrint = True
97 , _rpuaUserIP = Nothing
97 , _rpuaUserIP = Nothing
98 , _rpuaKey = Nothing
98 , _rpuaKey = Nothing
99+ , _rpuaIdentitytoolkitRelyingPartyUploadAccountRequest = pRpuaIdentitytoolkitRelyingPartyUploadAccountRequest_
99 , _rpuaOAuthToken = Nothing
100 , _rpuaOAuthToken = Nothing
100− , _rpuaIdentitytoolkitRelyingPartyyUploadAccountRequest = pRpuaIdentitytoolkitRelyingPartyyUploadAccountRequest_
101 , _rpuaFields = Nothing
101 , _rpuaFields = Nothing
102 }
102 }
103
103
104-- | Available to use for quota purposes for server-side applications. Can be
104-- | Available to use for quota purposes for server-side applications. Can be
105-- any arbitrary string assigned to a user, but should not exceed 40
105-- any arbitrary string assigned to a user, but should not exceed 40
106-- characters. Overrides userIp if both are provided.
106-- characters. Overrides userIp if both are provided.
107−rpuaQuotaUser :: Lens' RelyingPartyyUploadAccount' (Maybe Text)
107+rpuaQuotaUser :: Lens' RelyingPartyUploadAccount' (Maybe Text)
108rpuaQuotaUser
108rpuaQuotaUser
109 = lens _rpuaQuotaUser
109 = lens _rpuaQuotaUser
110 (\ s a -> s{_rpuaQuotaUser = a})
110 (\ s a -> s{_rpuaQuotaUser = a})
111
111
112-- | Returns response with indentations and line breaks.
112-- | Returns response with indentations and line breaks.
113−rpuaPrettyPrint :: Lens' RelyingPartyyUploadAccount' Bool
113+rpuaPrettyPrint :: Lens' RelyingPartyUploadAccount' Bool
114rpuaPrettyPrint
114rpuaPrettyPrint
115 = lens _rpuaPrettyPrint
115 = lens _rpuaPrettyPrint
116 (\ s a -> s{_rpuaPrettyPrint = a})
116 (\ s a -> s{_rpuaPrettyPrint = a})
117
117
118-- | IP address of the site where the request originates. Use this if you
118-- | IP address of the site where the request originates. Use this if you
119-- want to enforce per-user limits.
119-- want to enforce per-user limits.
120−rpuaUserIP :: Lens' RelyingPartyyUploadAccount' (Maybe Text)
120+rpuaUserIP :: Lens' RelyingPartyUploadAccount' (Maybe Text)
121rpuaUserIP
121rpuaUserIP
122 = lens _rpuaUserIP (\ s a -> s{_rpuaUserIP = a})
122 = lens _rpuaUserIP (\ s a -> s{_rpuaUserIP = a})
123
123
124-- | API key. Your API key identifies your project and provides you with API
124-- | API key. Your API key identifies your project and provides you with API
125-- access, quota, and reports. Required unless you provide an OAuth 2.0
125-- access, quota, and reports. Required unless you provide an OAuth 2.0
126-- token.
126-- token.
127−rpuaKey :: Lens' RelyingPartyyUploadAccount' (Maybe Key)
127+rpuaKey :: Lens' RelyingPartyUploadAccount' (Maybe Key)
128rpuaKey = lens _rpuaKey (\ s a -> s{_rpuaKey = a})
128rpuaKey = lens _rpuaKey (\ s a -> s{_rpuaKey = a})
129
129
130−-- | OAuth 2.0 token for the current user.
131−rpuaOAuthToken :: Lens' RelyingPartyyUploadAccount' (Maybe OAuthToken)
132−rpuaOAuthToken
133− = lens _rpuaOAuthToken
134− (\ s a -> s{_rpuaOAuthToken = a})
135−
136-- | Multipart request metadata.
130-- | Multipart request metadata.
137−rpuaIdentitytoolkitRelyingPartyyUploadAccountRequest :: Lens' RelyingPartyyUploadAccount' IdentitytoolkitRelyingPartyyUploadAccountRequest
131+rpuaIdentitytoolkitRelyingPartyUploadAccountRequest :: Lens' RelyingPartyUploadAccount' IdentitytoolkitRelyingPartyUploadAccountRequest
138−rpuaIdentitytoolkitRelyingPartyyUploadAccountRequest
132+rpuaIdentitytoolkitRelyingPartyUploadAccountRequest
139 = lens
133 = lens
140− _rpuaIdentitytoolkitRelyingPartyyUploadAccountRequest
134+ _rpuaIdentitytoolkitRelyingPartyUploadAccountRequest
141 (\ s a ->
135 (\ s a ->
142− s{_rpuaIdentitytoolkitRelyingPartyyUploadAccountRequest
136+ s{_rpuaIdentitytoolkitRelyingPartyUploadAccountRequest
143 = a})
137 = a})
144
138
139+-- | OAuth 2.0 token for the current user.
140+rpuaOAuthToken :: Lens' RelyingPartyUploadAccount' (Maybe OAuthToken)
141+rpuaOAuthToken
142+ = lens _rpuaOAuthToken
143+ (\ s a -> s{_rpuaOAuthToken = a})
144+
145-- | Selector specifying which fields to include in a partial response.
145-- | Selector specifying which fields to include in a partial response.
146−rpuaFields :: Lens' RelyingPartyyUploadAccount' (Maybe Text)
146+rpuaFields :: Lens' RelyingPartyUploadAccount' (Maybe Text)
147rpuaFields
147rpuaFields
148 = lens _rpuaFields (\ s a -> s{_rpuaFields = a})
148 = lens _rpuaFields (\ s a -> s{_rpuaFields = a})
149
149
150−instance GoogleAuth RelyingPartyyUploadAccount' where
150+instance GoogleAuth RelyingPartyUploadAccount' where
151 authKey = rpuaKey . _Just
151 authKey = rpuaKey . _Just
152 authToken = rpuaOAuthToken . _Just
152 authToken = rpuaOAuthToken . _Just
153
153
154−instance GoogleRequest RelyingPartyyUploadAccount'
154+instance GoogleRequest RelyingPartyUploadAccount'
155 where
155 where
156− type Rs RelyingPartyyUploadAccount' =
156+ type Rs RelyingPartyUploadAccount' =
157 UploadAccountResponse
157 UploadAccountResponse
158 request = requestWithRoute defReq identityToolkitURL
158 request = requestWithRoute defReq identityToolkitURL
159− requestWithRoute r u RelyingPartyyUploadAccount'{..}
159+ requestWithRoute r u RelyingPartyUploadAccount'{..}
160 = go _rpuaQuotaUser (Just _rpuaPrettyPrint)
160 = go _rpuaQuotaUser (Just _rpuaPrettyPrint)
161 _rpuaUserIP
161 _rpuaUserIP
162 _rpuaKey
162 _rpuaKey
163 _rpuaOAuthToken
163 _rpuaOAuthToken
164 _rpuaFields
164 _rpuaFields
165 (Just AltJSON)
165 (Just AltJSON)
166− _rpuaIdentitytoolkitRelyingPartyyUploadAccountRequest
166+ _rpuaIdentitytoolkitRelyingPartyUploadAccountRequest
167 where go
167 where go
168 = clientWithRoute
168 = clientWithRoute
169− (Proxy :: Proxy RelyingPartyyUploadAccountResource)
169+ (Proxy :: Proxy RelyingPartyUploadAccountResource)
170 r
170 r
171 u
171 u
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingPartyy/VerifyAssertion.hs → gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/VerifyAssertion.hsrenamed+50−51
@@ -10,7 +10,7 @@
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11
11
12-- |
12-- |
13−-- Module : Network.Google.Resource.IdentityToolkit.RelyingPartyy.VerifyAssertion
13+-- Module : Network.Google.Resource.IdentityToolkit.RelyingParty.VerifyAssertion
14-- Copyright : (c) 2015 Brendan Hay
14-- Copyright : (c) 2015 Brendan Hay
15-- License : Mozilla Public License, v. 2.0.
15-- License : Mozilla Public License, v. 2.0.
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -19,32 +19,32 @@
19--
19--
20-- | Verifies the assertion returned by the IdP.
20-- | Verifies the assertion returned by the IdP.
21--
21--
22−-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyyVerifyAssertion@.
22+-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyVerifyAssertion@.
23−module Network.Google.Resource.IdentityToolkit.RelyingPartyy.VerifyAssertion
23+module Network.Google.Resource.IdentityToolkit.RelyingParty.VerifyAssertion
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− RelyingPartyyVerifyAssertionResource
26+ RelyingPartyVerifyAssertionResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29− , relyingPartyyVerifyAssertion'
29+ , relyingPartyVerifyAssertion'
30− , RelyingPartyyVerifyAssertion'
30+ , RelyingPartyVerifyAssertion'
31
31
32 -- * Request Lenses
32 -- * Request Lenses
33 , rpvaQuotaUser
33 , rpvaQuotaUser
34 , rpvaPrettyPrint
34 , rpvaPrettyPrint
35 , rpvaUserIP
35 , rpvaUserIP
36+ , rpvaIdentitytoolkitRelyingPartyVerifyAssertionRequest
36 , rpvaKey
37 , rpvaKey
37 , rpvaOAuthToken
38 , rpvaOAuthToken
38− , rpvaIdentitytoolkitRelyingPartyyVerifyAssertionRequest
39 , rpvaFields
39 , rpvaFields
40 ) where
40 ) where
41
41
42import Network.Google.IdentityToolkit.Types
42import Network.Google.IdentityToolkit.Types
43import Network.Google.Prelude
43import Network.Google.Prelude
44
44
45−-- | A resource alias for @IdentitytoolkitRelyingPartyyVerifyAssertion@ which the
45+-- | A resource alias for @IdentitytoolkitRelyingPartyVerifyAssertion@ which the
46−-- 'RelyingPartyyVerifyAssertion'' request conforms to.
46+-- 'RelyingPartyVerifyAssertion'' request conforms to.
47−type RelyingPartyyVerifyAssertionResource =
47+type RelyingPartyVerifyAssertionResource =
48 "verifyAssertion" :>
48 "verifyAssertion" :>
49 QueryParam "quotaUser" Text :>
49 QueryParam "quotaUser" Text :>
50 QueryParam "prettyPrint" Bool :>
50 QueryParam "prettyPrint" Bool :>
@@ -54,23 +54,23 @@ type RelyingPartyyVerifyAssertionResource =
54 QueryParam "fields" Text :>
54 QueryParam "fields" Text :>
55 QueryParam "alt" AltJSON :>
55 QueryParam "alt" AltJSON :>
56 ReqBody '[JSON]
56 ReqBody '[JSON]
57− IdentitytoolkitRelyingPartyyVerifyAssertionRequest
57+ IdentitytoolkitRelyingPartyVerifyAssertionRequest
58 :> Post '[JSON] VerifyAssertionResponse
58 :> Post '[JSON] VerifyAssertionResponse
59
59
60-- | Verifies the assertion returned by the IdP.
60-- | Verifies the assertion returned by the IdP.
61--
61--
62−-- /See:/ 'relyingPartyyVerifyAssertion'' smart constructor.
62+-- /See:/ 'relyingPartyVerifyAssertion'' smart constructor.
63−data RelyingPartyyVerifyAssertion' = RelyingPartyyVerifyAssertion'
63+data RelyingPartyVerifyAssertion' = RelyingPartyVerifyAssertion'
64− { _rpvaQuotaUser :: !(Maybe Text)
64+ { _rpvaQuotaUser :: !(Maybe Text)
65− , _rpvaPrettyPrint :: !Bool
65+ , _rpvaPrettyPrint :: !Bool
66− , _rpvaUserIP :: !(Maybe Text)
66+ , _rpvaUserIP :: !(Maybe Text)
67+ , _rpvaIdentitytoolkitRelyingPartyVerifyAssertionRequest :: !IdentitytoolkitRelyingPartyVerifyAssertionRequest
67− , _rpvaKey :: !(Maybe Key)
68+ , _rpvaKey :: !(Maybe Key)
68− , _rpvaOAuthToken :: !(Maybe OAuthToken)
69+ , _rpvaOAuthToken :: !(Maybe OAuthToken)
69− , _rpvaIdentitytoolkitRelyingPartyyVerifyAssertionRequest :: !IdentitytoolkitRelyingPartyyVerifyAssertionRequest
70− , _rpvaFields :: !(Maybe Text)
70+ , _rpvaFields :: !(Maybe Text)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72
72
73−-- | Creates a value of 'RelyingPartyyVerifyAssertion'' with the minimum fields required to make a request.
73+-- | Creates a value of 'RelyingPartyVerifyAssertion'' with the minimum fields required to make a request.
74--
74--
75-- Use one of the following lenses to modify other fields as desired:
75-- Use one of the following lenses to modify other fields as desired:
76--
76--
@@ -80,94 +80,93 @@ data RelyingPartyyVerifyAssertion' = RelyingPartyyVerifyAssertion'
80--
80--
81-- * 'rpvaUserIP'
81-- * 'rpvaUserIP'
82--
82--
83+-- * 'rpvaIdentitytoolkitRelyingPartyVerifyAssertionRequest'
84+--
83-- * 'rpvaKey'
85-- * 'rpvaKey'
84--
86--
85-- * 'rpvaOAuthToken'
87-- * 'rpvaOAuthToken'
86--
88--
87−-- * 'rpvaIdentitytoolkitRelyingPartyyVerifyAssertionRequest'
88−--
89-- * 'rpvaFields'
89-- * 'rpvaFields'
90−relyingPartyyVerifyAssertion'
90+relyingPartyVerifyAssertion'
91− :: IdentitytoolkitRelyingPartyyVerifyAssertionRequest -- ^ 'IdentitytoolkitRelyingPartyyVerifyAssertionRequest'
91+ :: IdentitytoolkitRelyingPartyVerifyAssertionRequest -- ^ 'IdentitytoolkitRelyingPartyVerifyAssertionRequest'
92− -> RelyingPartyyVerifyAssertion'
92+ -> RelyingPartyVerifyAssertion'
93−relyingPartyyVerifyAssertion' pRpvaIdentitytoolkitRelyingPartyyVerifyAssertionRequest_ =
93+relyingPartyVerifyAssertion' pRpvaIdentitytoolkitRelyingPartyVerifyAssertionRequest_ =
94− RelyingPartyyVerifyAssertion'
94+ RelyingPartyVerifyAssertion'
95 { _rpvaQuotaUser = Nothing
95 { _rpvaQuotaUser = Nothing
96 , _rpvaPrettyPrint = True
96 , _rpvaPrettyPrint = True
97 , _rpvaUserIP = Nothing
97 , _rpvaUserIP = Nothing
98+ , _rpvaIdentitytoolkitRelyingPartyVerifyAssertionRequest = pRpvaIdentitytoolkitRelyingPartyVerifyAssertionRequest_
98 , _rpvaKey = Nothing
99 , _rpvaKey = Nothing
99 , _rpvaOAuthToken = Nothing
100 , _rpvaOAuthToken = Nothing
100− , _rpvaIdentitytoolkitRelyingPartyyVerifyAssertionRequest = pRpvaIdentitytoolkitRelyingPartyyVerifyAssertionRequest_
101 , _rpvaFields = Nothing
101 , _rpvaFields = Nothing
102 }
102 }
103
103
104-- | Available to use for quota purposes for server-side applications. Can be
104-- | Available to use for quota purposes for server-side applications. Can be
105-- any arbitrary string assigned to a user, but should not exceed 40
105-- any arbitrary string assigned to a user, but should not exceed 40
106-- characters. Overrides userIp if both are provided.
106-- characters. Overrides userIp if both are provided.
107−rpvaQuotaUser :: Lens' RelyingPartyyVerifyAssertion' (Maybe Text)
107+rpvaQuotaUser :: Lens' RelyingPartyVerifyAssertion' (Maybe Text)
108rpvaQuotaUser
108rpvaQuotaUser
109 = lens _rpvaQuotaUser
109 = lens _rpvaQuotaUser
110 (\ s a -> s{_rpvaQuotaUser = a})
110 (\ s a -> s{_rpvaQuotaUser = a})
111
111
112-- | Returns response with indentations and line breaks.
112-- | Returns response with indentations and line breaks.
113−rpvaPrettyPrint :: Lens' RelyingPartyyVerifyAssertion' Bool
113+rpvaPrettyPrint :: Lens' RelyingPartyVerifyAssertion' Bool
114rpvaPrettyPrint
114rpvaPrettyPrint
115 = lens _rpvaPrettyPrint
115 = lens _rpvaPrettyPrint
116 (\ s a -> s{_rpvaPrettyPrint = a})
116 (\ s a -> s{_rpvaPrettyPrint = a})
117
117
118-- | IP address of the site where the request originates. Use this if you
118-- | IP address of the site where the request originates. Use this if you
119-- want to enforce per-user limits.
119-- want to enforce per-user limits.
120−rpvaUserIP :: Lens' RelyingPartyyVerifyAssertion' (Maybe Text)
120+rpvaUserIP :: Lens' RelyingPartyVerifyAssertion' (Maybe Text)
121rpvaUserIP
121rpvaUserIP
122 = lens _rpvaUserIP (\ s a -> s{_rpvaUserIP = a})
122 = lens _rpvaUserIP (\ s a -> s{_rpvaUserIP = a})
123
123
124+-- | Multipart request metadata.
125+rpvaIdentitytoolkitRelyingPartyVerifyAssertionRequest :: Lens' RelyingPartyVerifyAssertion' IdentitytoolkitRelyingPartyVerifyAssertionRequest
126+rpvaIdentitytoolkitRelyingPartyVerifyAssertionRequest
127+ = lens
128+ _rpvaIdentitytoolkitRelyingPartyVerifyAssertionRequest
129+ (\ s a ->
130+ s{_rpvaIdentitytoolkitRelyingPartyVerifyAssertionRequest
131+ = a})
132+
124-- | API key. Your API key identifies your project and provides you with API
133-- | API key. Your API key identifies your project and provides you with API
125-- access, quota, and reports. Required unless you provide an OAuth 2.0
134-- access, quota, and reports. Required unless you provide an OAuth 2.0
126-- token.
135-- token.
127−rpvaKey :: Lens' RelyingPartyyVerifyAssertion' (Maybe Key)
136+rpvaKey :: Lens' RelyingPartyVerifyAssertion' (Maybe Key)
128rpvaKey = lens _rpvaKey (\ s a -> s{_rpvaKey = a})
137rpvaKey = lens _rpvaKey (\ s a -> s{_rpvaKey = a})
129
138
130-- | OAuth 2.0 token for the current user.
139-- | OAuth 2.0 token for the current user.
131−rpvaOAuthToken :: Lens' RelyingPartyyVerifyAssertion' (Maybe OAuthToken)
140+rpvaOAuthToken :: Lens' RelyingPartyVerifyAssertion' (Maybe OAuthToken)
132rpvaOAuthToken
141rpvaOAuthToken
133 = lens _rpvaOAuthToken
142 = lens _rpvaOAuthToken
134 (\ s a -> s{_rpvaOAuthToken = a})
143 (\ s a -> s{_rpvaOAuthToken = a})
135
144
136−-- | Multipart request metadata.
137−rpvaIdentitytoolkitRelyingPartyyVerifyAssertionRequest :: Lens' RelyingPartyyVerifyAssertion' IdentitytoolkitRelyingPartyyVerifyAssertionRequest
138−rpvaIdentitytoolkitRelyingPartyyVerifyAssertionRequest
139− = lens
140− _rpvaIdentitytoolkitRelyingPartyyVerifyAssertionRequest
141− (\ s a ->
142− s{_rpvaIdentitytoolkitRelyingPartyyVerifyAssertionRequest
143− = a})
144−
145-- | Selector specifying which fields to include in a partial response.
145-- | Selector specifying which fields to include in a partial response.
146−rpvaFields :: Lens' RelyingPartyyVerifyAssertion' (Maybe Text)
146+rpvaFields :: Lens' RelyingPartyVerifyAssertion' (Maybe Text)
147rpvaFields
147rpvaFields
148 = lens _rpvaFields (\ s a -> s{_rpvaFields = a})
148 = lens _rpvaFields (\ s a -> s{_rpvaFields = a})
149
149
150−instance GoogleAuth RelyingPartyyVerifyAssertion'
150+instance GoogleAuth RelyingPartyVerifyAssertion'
151 where
151 where
152 authKey = rpvaKey . _Just
152 authKey = rpvaKey . _Just
153 authToken = rpvaOAuthToken . _Just
153 authToken = rpvaOAuthToken . _Just
154
154
155−instance GoogleRequest RelyingPartyyVerifyAssertion'
155+instance GoogleRequest RelyingPartyVerifyAssertion'
156 where
156 where
157− type Rs RelyingPartyyVerifyAssertion' =
157+ type Rs RelyingPartyVerifyAssertion' =
158 VerifyAssertionResponse
158 VerifyAssertionResponse
159 request = requestWithRoute defReq identityToolkitURL
159 request = requestWithRoute defReq identityToolkitURL
160− requestWithRoute r u
160+ requestWithRoute r u RelyingPartyVerifyAssertion'{..}
161− RelyingPartyyVerifyAssertion'{..}
162 = go _rpvaQuotaUser (Just _rpvaPrettyPrint)
161 = go _rpvaQuotaUser (Just _rpvaPrettyPrint)
163 _rpvaUserIP
162 _rpvaUserIP
164 _rpvaKey
163 _rpvaKey
165 _rpvaOAuthToken
164 _rpvaOAuthToken
166 _rpvaFields
165 _rpvaFields
167 (Just AltJSON)
166 (Just AltJSON)
168− _rpvaIdentitytoolkitRelyingPartyyVerifyAssertionRequest
167+ _rpvaIdentitytoolkitRelyingPartyVerifyAssertionRequest
169 where go
168 where go
170 = clientWithRoute
169 = clientWithRoute
171− (Proxy :: Proxy RelyingPartyyVerifyAssertionResource)
170+ (Proxy :: Proxy RelyingPartyVerifyAssertionResource)
172 r
171 r
173 u
172 u
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingPartyy/VerifyPassword.hs → gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingParty/VerifyPassword.hsrenamed+51−52
@@ -10,7 +10,7 @@
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11
11
12-- |
12-- |
13−-- Module : Network.Google.Resource.IdentityToolkit.RelyingPartyy.VerifyPassword
13+-- Module : Network.Google.Resource.IdentityToolkit.RelyingParty.VerifyPassword
14-- Copyright : (c) 2015 Brendan Hay
14-- Copyright : (c) 2015 Brendan Hay
15-- License : Mozilla Public License, v. 2.0.
15-- License : Mozilla Public License, v. 2.0.
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -19,20 +19,20 @@
19--
19--
20-- | Verifies the user entered password.
20-- | Verifies the user entered password.
21--
21--
22−-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyyVerifyPassword@.
22+-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyVerifyPassword@.
23−module Network.Google.Resource.IdentityToolkit.RelyingPartyy.VerifyPassword
23+module Network.Google.Resource.IdentityToolkit.RelyingParty.VerifyPassword
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− RelyingPartyyVerifyPasswordResource
26+ RelyingPartyVerifyPasswordResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29− , relyingPartyyVerifyPassword'
29+ , relyingPartyVerifyPassword'
30− , RelyingPartyyVerifyPassword'
30+ , RelyingPartyVerifyPassword'
31
31
32 -- * Request Lenses
32 -- * Request Lenses
33− , rpvpIdentitytoolkitRelyingPartyyVerifyPasswordRequest
34 , rpvpQuotaUser
33 , rpvpQuotaUser
35 , rpvpPrettyPrint
34 , rpvpPrettyPrint
35+ , rpvpIdentitytoolkitRelyingPartyVerifyPasswordRequest
36 , rpvpUserIP
36 , rpvpUserIP
37 , rpvpKey
37 , rpvpKey
38 , rpvpOAuthToken
38 , rpvpOAuthToken
@@ -42,9 +42,9 @@ module Network.Google.Resource.IdentityToolkit.RelyingPartyy.VerifyPassword
42import Network.Google.IdentityToolkit.Types
42import Network.Google.IdentityToolkit.Types
43import Network.Google.Prelude
43import Network.Google.Prelude
44
44
45−-- | A resource alias for @IdentitytoolkitRelyingPartyyVerifyPassword@ which the
45+-- | A resource alias for @IdentitytoolkitRelyingPartyVerifyPassword@ which the
46−-- 'RelyingPartyyVerifyPassword'' request conforms to.
46+-- 'RelyingPartyVerifyPassword'' request conforms to.
47−type RelyingPartyyVerifyPasswordResource =
47+type RelyingPartyVerifyPasswordResource =
48 "verifyPassword" :>
48 "verifyPassword" :>
49 QueryParam "quotaUser" Text :>
49 QueryParam "quotaUser" Text :>
50 QueryParam "prettyPrint" Bool :>
50 QueryParam "prettyPrint" Bool :>
@@ -54,32 +54,32 @@ type RelyingPartyyVerifyPasswordResource =
54 QueryParam "fields" Text :>
54 QueryParam "fields" Text :>
55 QueryParam "alt" AltJSON :>
55 QueryParam "alt" AltJSON :>
56 ReqBody '[JSON]
56 ReqBody '[JSON]
57− IdentitytoolkitRelyingPartyyVerifyPasswordRequest
57+ IdentitytoolkitRelyingPartyVerifyPasswordRequest
58 :> Post '[JSON] VerifyPasswordResponse
58 :> Post '[JSON] VerifyPasswordResponse
59
59
60-- | Verifies the user entered password.
60-- | Verifies the user entered password.
61--
61--
62−-- /See:/ 'relyingPartyyVerifyPassword'' smart constructor.
62+-- /See:/ 'relyingPartyVerifyPassword'' smart constructor.
63−data RelyingPartyyVerifyPassword' = RelyingPartyyVerifyPassword'
63+data RelyingPartyVerifyPassword' = RelyingPartyVerifyPassword'
64− { _rpvpIdentitytoolkitRelyingPartyyVerifyPasswordRequest :: !IdentitytoolkitRelyingPartyyVerifyPasswordRequest
65− , _rpvpQuotaUser :: !(Maybe Text)
64+ { _rpvpQuotaUser :: !(Maybe Text)
66− , _rpvpPrettyPrint :: !Bool
65+ , _rpvpPrettyPrint :: !Bool
66+ , _rpvpIdentitytoolkitRelyingPartyVerifyPasswordRequest :: !IdentitytoolkitRelyingPartyVerifyPasswordRequest
67− , _rpvpUserIP :: !(Maybe Text)
67+ , _rpvpUserIP :: !(Maybe Text)
68− , _rpvpKey :: !(Maybe Key)
68+ , _rpvpKey :: !(Maybe Key)
69− , _rpvpOAuthToken :: !(Maybe OAuthToken)
69+ , _rpvpOAuthToken :: !(Maybe OAuthToken)
70− , _rpvpFields :: !(Maybe Text)
70+ , _rpvpFields :: !(Maybe Text)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
71 } deriving (Eq,Read,Show,Data,Typeable,Generic)
72
72
73−-- | Creates a value of 'RelyingPartyyVerifyPassword'' with the minimum fields required to make a request.
73+-- | Creates a value of 'RelyingPartyVerifyPassword'' with the minimum fields required to make a request.
74--
74--
75-- Use one of the following lenses to modify other fields as desired:
75-- Use one of the following lenses to modify other fields as desired:
76--
76--
77−-- * 'rpvpIdentitytoolkitRelyingPartyyVerifyPasswordRequest'
78−--
79-- * 'rpvpQuotaUser'
77-- * 'rpvpQuotaUser'
80--
78--
81-- * 'rpvpPrettyPrint'
79-- * 'rpvpPrettyPrint'
82--
80--
81+-- * 'rpvpIdentitytoolkitRelyingPartyVerifyPasswordRequest'
82+--
83-- * 'rpvpUserIP'
83-- * 'rpvpUserIP'
84--
84--
85-- * 'rpvpKey'
85-- * 'rpvpKey'
@@ -87,86 +87,85 @@ data RelyingPartyyVerifyPassword' = RelyingPartyyVerifyPassword'
87-- * 'rpvpOAuthToken'
87-- * 'rpvpOAuthToken'
88--
88--
89-- * 'rpvpFields'
89-- * 'rpvpFields'
90−relyingPartyyVerifyPassword'
90+relyingPartyVerifyPassword'
91− :: IdentitytoolkitRelyingPartyyVerifyPasswordRequest -- ^ 'IdentitytoolkitRelyingPartyyVerifyPasswordRequest'
91+ :: IdentitytoolkitRelyingPartyVerifyPasswordRequest -- ^ 'IdentitytoolkitRelyingPartyVerifyPasswordRequest'
92− -> RelyingPartyyVerifyPassword'
92+ -> RelyingPartyVerifyPassword'
93−relyingPartyyVerifyPassword' pRpvpIdentitytoolkitRelyingPartyyVerifyPasswordRequest_ =
93+relyingPartyVerifyPassword' pRpvpIdentitytoolkitRelyingPartyVerifyPasswordRequest_ =
94− RelyingPartyyVerifyPassword'
94+ RelyingPartyVerifyPassword'
95− { _rpvpIdentitytoolkitRelyingPartyyVerifyPasswordRequest = pRpvpIdentitytoolkitRelyingPartyyVerifyPasswordRequest_
96− , _rpvpQuotaUser = Nothing
95+ { _rpvpQuotaUser = Nothing
97 , _rpvpPrettyPrint = True
96 , _rpvpPrettyPrint = True
97+ , _rpvpIdentitytoolkitRelyingPartyVerifyPasswordRequest = pRpvpIdentitytoolkitRelyingPartyVerifyPasswordRequest_
98 , _rpvpUserIP = Nothing
98 , _rpvpUserIP = Nothing
99 , _rpvpKey = Nothing
99 , _rpvpKey = Nothing
100 , _rpvpOAuthToken = Nothing
100 , _rpvpOAuthToken = Nothing
101 , _rpvpFields = Nothing
101 , _rpvpFields = Nothing
102 }
102 }
103
103
104−-- | Multipart request metadata.
105−rpvpIdentitytoolkitRelyingPartyyVerifyPasswordRequest :: Lens' RelyingPartyyVerifyPassword' IdentitytoolkitRelyingPartyyVerifyPasswordRequest
106−rpvpIdentitytoolkitRelyingPartyyVerifyPasswordRequest
107− = lens
108− _rpvpIdentitytoolkitRelyingPartyyVerifyPasswordRequest
109− (\ s a ->
110− s{_rpvpIdentitytoolkitRelyingPartyyVerifyPasswordRequest
111− = a})
112−
113-- | Available to use for quota purposes for server-side applications. Can be
104-- | Available to use for quota purposes for server-side applications. Can be
114-- any arbitrary string assigned to a user, but should not exceed 40
105-- any arbitrary string assigned to a user, but should not exceed 40
115-- characters. Overrides userIp if both are provided.
106-- characters. Overrides userIp if both are provided.
116−rpvpQuotaUser :: Lens' RelyingPartyyVerifyPassword' (Maybe Text)
107+rpvpQuotaUser :: Lens' RelyingPartyVerifyPassword' (Maybe Text)
117rpvpQuotaUser
108rpvpQuotaUser
118 = lens _rpvpQuotaUser
109 = lens _rpvpQuotaUser
119 (\ s a -> s{_rpvpQuotaUser = a})
110 (\ s a -> s{_rpvpQuotaUser = a})
120
111
121-- | Returns response with indentations and line breaks.
112-- | Returns response with indentations and line breaks.
122−rpvpPrettyPrint :: Lens' RelyingPartyyVerifyPassword' Bool
113+rpvpPrettyPrint :: Lens' RelyingPartyVerifyPassword' Bool
123rpvpPrettyPrint
114rpvpPrettyPrint
124 = lens _rpvpPrettyPrint
115 = lens _rpvpPrettyPrint
125 (\ s a -> s{_rpvpPrettyPrint = a})
116 (\ s a -> s{_rpvpPrettyPrint = a})
126
117
118+-- | Multipart request metadata.
119+rpvpIdentitytoolkitRelyingPartyVerifyPasswordRequest :: Lens' RelyingPartyVerifyPassword' IdentitytoolkitRelyingPartyVerifyPasswordRequest
120+rpvpIdentitytoolkitRelyingPartyVerifyPasswordRequest
121+ = lens
122+ _rpvpIdentitytoolkitRelyingPartyVerifyPasswordRequest
123+ (\ s a ->
124+ s{_rpvpIdentitytoolkitRelyingPartyVerifyPasswordRequest
125+ = a})
126+
127-- | IP address of the site where the request originates. Use this if you
127-- | IP address of the site where the request originates. Use this if you
128-- want to enforce per-user limits.
128-- want to enforce per-user limits.
129−rpvpUserIP :: Lens' RelyingPartyyVerifyPassword' (Maybe Text)
129+rpvpUserIP :: Lens' RelyingPartyVerifyPassword' (Maybe Text)
130rpvpUserIP
130rpvpUserIP
131 = lens _rpvpUserIP (\ s a -> s{_rpvpUserIP = a})
131 = lens _rpvpUserIP (\ s a -> s{_rpvpUserIP = a})
132
132
133-- | API key. Your API key identifies your project and provides you with API
133-- | API key. Your API key identifies your project and provides you with API
134-- access, quota, and reports. Required unless you provide an OAuth 2.0
134-- access, quota, and reports. Required unless you provide an OAuth 2.0
135-- token.
135-- token.
136−rpvpKey :: Lens' RelyingPartyyVerifyPassword' (Maybe Key)
136+rpvpKey :: Lens' RelyingPartyVerifyPassword' (Maybe Key)
137rpvpKey = lens _rpvpKey (\ s a -> s{_rpvpKey = a})
137rpvpKey = lens _rpvpKey (\ s a -> s{_rpvpKey = a})
138
138
139-- | OAuth 2.0 token for the current user.
139-- | OAuth 2.0 token for the current user.
140−rpvpOAuthToken :: Lens' RelyingPartyyVerifyPassword' (Maybe OAuthToken)
140+rpvpOAuthToken :: Lens' RelyingPartyVerifyPassword' (Maybe OAuthToken)
141rpvpOAuthToken
141rpvpOAuthToken
142 = lens _rpvpOAuthToken
142 = lens _rpvpOAuthToken
143 (\ s a -> s{_rpvpOAuthToken = a})
143 (\ s a -> s{_rpvpOAuthToken = a})
144
144
145-- | Selector specifying which fields to include in a partial response.
145-- | Selector specifying which fields to include in a partial response.
146−rpvpFields :: Lens' RelyingPartyyVerifyPassword' (Maybe Text)
146+rpvpFields :: Lens' RelyingPartyVerifyPassword' (Maybe Text)
147rpvpFields
147rpvpFields
148 = lens _rpvpFields (\ s a -> s{_rpvpFields = a})
148 = lens _rpvpFields (\ s a -> s{_rpvpFields = a})
149
149
150−instance GoogleAuth RelyingPartyyVerifyPassword'
150+instance GoogleAuth RelyingPartyVerifyPassword' where
151− where
152 authKey = rpvpKey . _Just
151 authKey = rpvpKey . _Just
153 authToken = rpvpOAuthToken . _Just
152 authToken = rpvpOAuthToken . _Just
154
153
155−instance GoogleRequest RelyingPartyyVerifyPassword'
154+instance GoogleRequest RelyingPartyVerifyPassword'
156 where
155 where
157− type Rs RelyingPartyyVerifyPassword' =
156+ type Rs RelyingPartyVerifyPassword' =
158 VerifyPasswordResponse
157 VerifyPasswordResponse
159 request = requestWithRoute defReq identityToolkitURL
158 request = requestWithRoute defReq identityToolkitURL
160− requestWithRoute r u RelyingPartyyVerifyPassword'{..}
159+ requestWithRoute r u RelyingPartyVerifyPassword'{..}
161 = go _rpvpQuotaUser (Just _rpvpPrettyPrint)
160 = go _rpvpQuotaUser (Just _rpvpPrettyPrint)
162 _rpvpUserIP
161 _rpvpUserIP
163 _rpvpKey
162 _rpvpKey
164 _rpvpOAuthToken
163 _rpvpOAuthToken
165 _rpvpFields
164 _rpvpFields
166 (Just AltJSON)
165 (Just AltJSON)
167− _rpvpIdentitytoolkitRelyingPartyyVerifyPasswordRequest
166+ _rpvpIdentitytoolkitRelyingPartyVerifyPasswordRequest
168 where go
167 where go
169 = clientWithRoute
168 = clientWithRoute
170− (Proxy :: Proxy RelyingPartyyVerifyPasswordResource)
169+ (Proxy :: Proxy RelyingPartyVerifyPasswordResource)
171 r
170 r
172 u
171 u
gogol-identity-toolkit/gen/Network/Google/Resource/IdentityToolkit/RelyingPartyy/GetOobConfirmationCode.hsdeleted−171
@@ -1,171 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE OverloadedStrings #-}
5−{-# LANGUAGE RecordWildCards #-}
6−{-# LANGUAGE TypeFamilies #-}
7−{-# LANGUAGE TypeOperators #-}
8−
9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11−
12−-- |
13−-- Module : Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetOobConfirmationCode
14−-- Copyright : (c) 2015 Brendan Hay
15−-- License : Mozilla Public License, v. 2.0.
16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
17−-- Stability : auto-generated
18−-- Portability : non-portable (GHC extensions)
19−--
20−-- | Get a code for user action confirmation.
21−--
22−-- /See:/ <https://developers.google.com/identity-toolkit/v3/ Google Identity Toolkit API Reference> for @IdentitytoolkitRelyingPartyyGetOobConfirmationCode@.
23−module Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetOobConfirmationCode
24− (
25− -- * REST Resource
26− RelyingPartyyGetOobConfirmationCodeResource
27−
28− -- * Creating a Request
29− , relyingPartyyGetOobConfirmationCode'
30− , RelyingPartyyGetOobConfirmationCode'
31−
32− -- * Request Lenses
33− , rpgoccQuotaUser
34− , rpgoccPrettyPrint
35− , rpgoccRelyingPartyy
36− , rpgoccUserIP
37− , rpgoccKey
38− , rpgoccOAuthToken
39− , rpgoccFields
40− ) where
41−
42−import Network.Google.IdentityToolkit.Types
43−import Network.Google.Prelude
44−
45−-- | A resource alias for @IdentitytoolkitRelyingPartyyGetOobConfirmationCode@ which the
46−-- 'RelyingPartyyGetOobConfirmationCode'' request conforms to.
47−type RelyingPartyyGetOobConfirmationCodeResource =
48− "getOobConfirmationCode" :>
49− QueryParam "quotaUser" Text :>
50− QueryParam "prettyPrint" Bool :>
51− QueryParam "userIp" Text :>
52− QueryParam "key" Key :>
53− QueryParam "oauth_token" OAuthToken :>
54− QueryParam "fields" Text :>
55− QueryParam "alt" AltJSON :>
56− ReqBody '[JSON] RelyingPartyy :>
57− Post '[JSON] GetOobConfirmationCodeResponse
58−
59−-- | Get a code for user action confirmation.
60−--
61−-- /See:/ 'relyingPartyyGetOobConfirmationCode'' smart constructor.
62−data RelyingPartyyGetOobConfirmationCode' = RelyingPartyyGetOobConfirmationCode'
63− { _rpgoccQuotaUser :: !(Maybe Text)
64− , _rpgoccPrettyPrint :: !Bool
65− , _rpgoccRelyingPartyy :: !RelyingPartyy
66− , _rpgoccUserIP :: !(Maybe Text)
67− , _rpgoccKey :: !(Maybe Key)
68− , _rpgoccOAuthToken :: !(Maybe OAuthToken)
69− , _rpgoccFields :: !(Maybe Text)
70− } deriving (Eq,Read,Show,Data,Typeable,Generic)
71−
72−-- | Creates a value of 'RelyingPartyyGetOobConfirmationCode'' with the minimum fields required to make a request.
73−--
74−-- Use one of the following lenses to modify other fields as desired:
75−--
76−-- * 'rpgoccQuotaUser'
77−--
78−-- * 'rpgoccPrettyPrint'
79−--
80−-- * 'rpgoccRelyingPartyy'
81−--
82−-- * 'rpgoccUserIP'
83−--
84−-- * 'rpgoccKey'
85−--
86−-- * 'rpgoccOAuthToken'
87−--
88−-- * 'rpgoccFields'
89−relyingPartyyGetOobConfirmationCode'
90− :: RelyingPartyy -- ^ 'RelyingPartyy'
91− -> RelyingPartyyGetOobConfirmationCode'
92−relyingPartyyGetOobConfirmationCode' pRpgoccRelyingPartyy_ =
93− RelyingPartyyGetOobConfirmationCode'
94− { _rpgoccQuotaUser = Nothing
95− , _rpgoccPrettyPrint = True
96− , _rpgoccRelyingPartyy = pRpgoccRelyingPartyy_
97− , _rpgoccUserIP = Nothing
98− , _rpgoccKey = Nothing
99− , _rpgoccOAuthToken = Nothing
100− , _rpgoccFields = Nothing
101− }
102−
103−-- | Available to use for quota purposes for server-side applications. Can be
104−-- any arbitrary string assigned to a user, but should not exceed 40
105−-- characters. Overrides userIp if both are provided.
106−rpgoccQuotaUser :: Lens' RelyingPartyyGetOobConfirmationCode' (Maybe Text)
107−rpgoccQuotaUser
108− = lens _rpgoccQuotaUser
109− (\ s a -> s{_rpgoccQuotaUser = a})
110−
111−-- | Returns response with indentations and line breaks.
112−rpgoccPrettyPrint :: Lens' RelyingPartyyGetOobConfirmationCode' Bool
113−rpgoccPrettyPrint
114− = lens _rpgoccPrettyPrint
115− (\ s a -> s{_rpgoccPrettyPrint = a})
116−
117−-- | Multipart request metadata.
118−rpgoccRelyingPartyy :: Lens' RelyingPartyyGetOobConfirmationCode' RelyingPartyy
119−rpgoccRelyingPartyy
120− = lens _rpgoccRelyingPartyy
121− (\ s a -> s{_rpgoccRelyingPartyy = a})
122−
123−-- | IP address of the site where the request originates. Use this if you
124−-- want to enforce per-user limits.
125−rpgoccUserIP :: Lens' RelyingPartyyGetOobConfirmationCode' (Maybe Text)
126−rpgoccUserIP
127− = lens _rpgoccUserIP (\ s a -> s{_rpgoccUserIP = a})
128−
129−-- | API key. Your API key identifies your project and provides you with API
130−-- access, quota, and reports. Required unless you provide an OAuth 2.0
131−-- token.
132−rpgoccKey :: Lens' RelyingPartyyGetOobConfirmationCode' (Maybe Key)
133−rpgoccKey
134− = lens _rpgoccKey (\ s a -> s{_rpgoccKey = a})
135−
136−-- | OAuth 2.0 token for the current user.
137−rpgoccOAuthToken :: Lens' RelyingPartyyGetOobConfirmationCode' (Maybe OAuthToken)
138−rpgoccOAuthToken
139− = lens _rpgoccOAuthToken
140− (\ s a -> s{_rpgoccOAuthToken = a})
141−
142−-- | Selector specifying which fields to include in a partial response.
143−rpgoccFields :: Lens' RelyingPartyyGetOobConfirmationCode' (Maybe Text)
144−rpgoccFields
145− = lens _rpgoccFields (\ s a -> s{_rpgoccFields = a})
146−
147−instance GoogleAuth
148− RelyingPartyyGetOobConfirmationCode' where
149− authKey = rpgoccKey . _Just
150− authToken = rpgoccOAuthToken . _Just
151−
152−instance GoogleRequest
153− RelyingPartyyGetOobConfirmationCode' where
154− type Rs RelyingPartyyGetOobConfirmationCode' =
155− GetOobConfirmationCodeResponse
156− request = requestWithRoute defReq identityToolkitURL
157− requestWithRoute r u
158− RelyingPartyyGetOobConfirmationCode'{..}
159− = go _rpgoccQuotaUser (Just _rpgoccPrettyPrint)
160− _rpgoccUserIP
161− _rpgoccKey
162− _rpgoccOAuthToken
163− _rpgoccFields
164− (Just AltJSON)
165− _rpgoccRelyingPartyy
166− where go
167− = clientWithRoute
168− (Proxy ::
169− Proxy RelyingPartyyGetOobConfirmationCodeResource)
170− r
171− u
gogol-identity-toolkit/gogol-identity-toolkit.cabal+12−12
@@ -32,18 +32,18 @@ library
32 exposed-modules:
32 exposed-modules:
33 Network.Google.IdentityToolkit
33 Network.Google.IdentityToolkit
34 , Network.Google.IdentityToolkit.Types
34 , Network.Google.IdentityToolkit.Types
35− , Network.Google.Resource.IdentityToolkit.RelyingPartyy.CreateAuthURI
35+ , Network.Google.Resource.IdentityToolkit.RelyingParty.CreateAuthURI
36− , Network.Google.Resource.IdentityToolkit.RelyingPartyy.DeleteAccount
36+ , Network.Google.Resource.IdentityToolkit.RelyingParty.DeleteAccount
37− , Network.Google.Resource.IdentityToolkit.RelyingPartyy.DownloadAccount
37+ , Network.Google.Resource.IdentityToolkit.RelyingParty.DownloadAccount
38− , Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetAccountInfo
38+ , Network.Google.Resource.IdentityToolkit.RelyingParty.GetAccountInfo
39− , Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetOobConfirmationCode
39+ , Network.Google.Resource.IdentityToolkit.RelyingParty.GetOOBConfirmationCode
40− , Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetPublicKeys
40+ , Network.Google.Resource.IdentityToolkit.RelyingParty.GetPublicKeys
41− , Network.Google.Resource.IdentityToolkit.RelyingPartyy.GetRecaptchaParam
41+ , Network.Google.Resource.IdentityToolkit.RelyingParty.GetRecaptchaParam
42− , Network.Google.Resource.IdentityToolkit.RelyingPartyy.ResetPassword
42+ , Network.Google.Resource.IdentityToolkit.RelyingParty.ResetPassword
43− , Network.Google.Resource.IdentityToolkit.RelyingPartyy.SetAccountInfo
43+ , Network.Google.Resource.IdentityToolkit.RelyingParty.SetAccountInfo
44− , Network.Google.Resource.IdentityToolkit.RelyingPartyy.UploadAccount
44+ , Network.Google.Resource.IdentityToolkit.RelyingParty.UploadAccount
45− , Network.Google.Resource.IdentityToolkit.RelyingPartyy.VerifyAssertion
45+ , Network.Google.Resource.IdentityToolkit.RelyingParty.VerifyAssertion
46− , Network.Google.Resource.IdentityToolkit.RelyingPartyy.VerifyPassword
46+ , Network.Google.Resource.IdentityToolkit.RelyingParty.VerifyPassword
47
47
48 other-modules:
48 other-modules:
49 Network.Google.IdentityToolkit.Types.Product
49 Network.Google.IdentityToolkit.Types.Product
gogol-latencytest/gen/Network/Google/LatencyTest.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | A Test API to report latency data.
15+-- | A Test API to report latency data.
16--
16--
17-- /See:/ < Google Cloud Network Performance Monitoring API Reference>
17-- /See:/ < Google Cloud Network Performance Monitoring API Reference>
18module Network.Google.LatencyTest
18module Network.Google.LatencyTest
gogol-logging/gen/Network/Google/Logging.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Google Cloud Logging API lets you create logs, ingest log entries, and
15+-- | Google Cloud Logging API lets you create logs, ingest log entries, and
16-- manage log sinks.
16-- manage log sinks.
17--
17--
18-- /See:/ <https://cloud.google.com/logging/docs/ Google Cloud Logging API Reference>
18-- /See:/ <https://cloud.google.com/logging/docs/ Google Cloud Logging API Reference>
gogol-maps-coordinate/gen/Network/Google/MapsCoordinate.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets you view and manage jobs in a Coordinate team.
15+-- | Lets you view and manage jobs in a Coordinate team.
16--
16--
17-- /See:/ <https://developers.google.com/coordinate/ Google Maps Coordinate API Reference>
17-- /See:/ <https://developers.google.com/coordinate/ Google Maps Coordinate API Reference>
18module Network.Google.MapsCoordinate
18module Network.Google.MapsCoordinate
gogol-maps-engine/gen/Network/Google/MapsEngine.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | The Google Maps Engine API allows developers to store and query
15+-- | The Google Maps Engine API allows developers to store and query
16-- geospatial vector and raster data.
16-- geospatial vector and raster data.
17--
17--
18-- /See:/ <https://developers.google.com/maps-engine/ Google Maps Engine API Reference>
18-- /See:/ <https://developers.google.com/maps-engine/ Google Maps Engine API Reference>
gogol-maps-engine/gen/Network/Google/MapsEngine/Types/Sum.hs+6−6
@@ -658,7 +658,7 @@ instance ToJSON GeoJSONLineStringType where
658
658
659-- | The type of the vector style. Currently, only displayRule is supported.
659-- | The type of the vector style. Currently, only displayRule is supported.
660data VectorStyleType
660data VectorStyleType
661− = DisplayRule
661+ = VSTDisplayRule
662 -- ^ @displayRule@
662 -- ^ @displayRule@
663 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
663 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
664
664
@@ -666,12 +666,12 @@ instance Hashable VectorStyleType
666
666
667instance FromText VectorStyleType where
667instance FromText VectorStyleType where
668 fromText = \case
668 fromText = \case
669− "displayRule" -> Just DisplayRule
669+ "displayRule" -> Just VSTDisplayRule
670 _ -> Nothing
670 _ -> Nothing
671
671
672instance ToText VectorStyleType where
672instance ToText VectorStyleType where
673 toText = \case
673 toText = \case
674− DisplayRule -> "displayRule"
674+ VSTDisplayRule -> "displayRule"
675
675
676instance FromJSON VectorStyleType where
676instance FromJSON VectorStyleType where
677 parseJSON = parseJSONText "VectorStyleType"
677 parseJSON = parseJSONText "VectorStyleType"
@@ -907,7 +907,7 @@ instance ToJSON MapsEngineAssetsListRole where
907
907
908-- | Identifies this object as a MapLayer.
908-- | Identifies this object as a MapLayer.
909data MapLayerType
909data MapLayerType
910− = Layer
910+ = MLTLayer
911 -- ^ @layer@
911 -- ^ @layer@
912 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
912 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
913
913
@@ -915,12 +915,12 @@ instance Hashable MapLayerType
915
915
916instance FromText MapLayerType where
916instance FromText MapLayerType where
917 fromText = \case
917 fromText = \case
918− "layer" -> Just Layer
918+ "layer" -> Just MLTLayer
919 _ -> Nothing
919 _ -> Nothing
920
920
921instance ToText MapLayerType where
921instance ToText MapLayerType where
922 toText = \case
922 toText = \case
923− Layer -> "layer"
923+ MLTLayer -> "layer"
924
924
925instance FromJSON MapLayerType where
925instance FromJSON MapLayerType where
926 parseJSON = parseJSONText "MapLayerType"
926 parseJSON = parseJSONText "MapLayerType"
gogol-mirror/gen/Network/Google/Mirror.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | API for interacting with Glass users via the timeline.
15+-- | API for interacting with Glass users via the timeline.
16--
16--
17-- /See:/ <https://developers.google.com/glass Google Mirror API Reference>
17-- /See:/ <https://developers.google.com/glass Google Mirror API Reference>
18module Network.Google.Mirror
18module Network.Google.Mirror
gogol-monitoring/gen/Network/Google/Monitoring.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | API for accessing Google Cloud and API monitoring data.
15+-- | API for accessing Google Cloud and API monitoring data.
16--
16--
17-- /See:/ <https://cloud.google.com/monitoring/v2beta2/ Cloud Monitoring API Reference>
17-- /See:/ <https://cloud.google.com/monitoring/v2beta2/ Cloud Monitoring API Reference>
18module Network.Google.Monitoring
18module Network.Google.Monitoring
gogol-oauth2/gen/Network/Google/OAuth2.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets you access OAuth2 protocol related APIs.
15+-- | Lets you access OAuth2 protocol related APIs.
16--
16--
17-- /See:/ <https://developers.google.com/accounts/docs/OAuth2 Google OAuth2 API Reference>
17-- /See:/ <https://developers.google.com/accounts/docs/OAuth2 Google OAuth2 API Reference>
18module Network.Google.OAuth2
18module Network.Google.OAuth2
gogol-pagespeed/gen/Network/Google/PageSpeed.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets you analyze the performance of a web page and get tailored
15+-- | Lets you analyze the performance of a web page and get tailored
16-- suggestions to make that page faster.
16-- suggestions to make that page faster.
17--
17--
18-- /See:/ <https://developers.google.com/speed/docs/insights/v2/getting-started PageSpeed Insights API Reference>
18-- /See:/ <https://developers.google.com/speed/docs/insights/v2/getting-started PageSpeed Insights API Reference>
gogol-partners/gen/Network/Google/Partners.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets advertisers search certified companies and create contact leads
15+-- | Lets advertisers search certified companies and create contact leads
16-- with them, and also audits the usage of clients.
16-- with them, and also audits the usage of clients.
17--
17--
18-- /See:/ <https://developers.google.com/partners/ Google Partners API Reference>
18-- /See:/ <https://developers.google.com/partners/ Google Partners API Reference>
gogol-play-moviespartner/gen/Network/Google/PlayMoviesPartner.hs+8−8
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets Google Play Movies Partners get the delivery status of their
15+-- | Lets Google Play Movies Partners get the delivery status of their
16-- titles.
16-- titles.
17--
17--
18-- /See:/ <https://developers.google.com/playmoviespartner/ Google Play Movies Partner API Reference>
18-- /See:/ <https://developers.google.com/playmoviespartner/ Google Play Movies Partner API Reference>
@@ -27,25 +27,25 @@ module Network.Google.PlayMoviesPartner
27
27
28 -- * REST Resources
28 -- * REST Resources
29
29
30− -- ** PlaymoviesPartynerAccountsAvailsList
30+ -- ** PlaymoviesPartnerAccountsAvailsList
31 , module Network.Google.Resource.PlayMoviesPartner.Accounts.Avails.List
31 , module Network.Google.Resource.PlayMoviesPartner.Accounts.Avails.List
32
32
33− -- ** PlaymoviesPartynerAccountsExperienceLocalesGet
33+ -- ** PlaymoviesPartnerAccountsExperienceLocalesGet
34 , module Network.Google.Resource.PlayMoviesPartner.Accounts.ExperienceLocales.Get
34 , module Network.Google.Resource.PlayMoviesPartner.Accounts.ExperienceLocales.Get
35
35
36− -- ** PlaymoviesPartynerAccountsExperienceLocalesList
36+ -- ** PlaymoviesPartnerAccountsExperienceLocalesList
37 , module Network.Google.Resource.PlayMoviesPartner.Accounts.ExperienceLocales.List
37 , module Network.Google.Resource.PlayMoviesPartner.Accounts.ExperienceLocales.List
38
38
39− -- ** PlaymoviesPartynerAccountsOrdersGet
39+ -- ** PlaymoviesPartnerAccountsOrdersGet
40 , module Network.Google.Resource.PlayMoviesPartner.Accounts.Orders.Get
40 , module Network.Google.Resource.PlayMoviesPartner.Accounts.Orders.Get
41
41
42− -- ** PlaymoviesPartynerAccountsOrdersList
42+ -- ** PlaymoviesPartnerAccountsOrdersList
43 , module Network.Google.Resource.PlayMoviesPartner.Accounts.Orders.List
43 , module Network.Google.Resource.PlayMoviesPartner.Accounts.Orders.List
44
44
45− -- ** PlaymoviesPartynerAccountsStoreInfosCountryGet
45+ -- ** PlaymoviesPartnerAccountsStoreInfosCountryGet
46 , module Network.Google.Resource.PlayMoviesPartner.Accounts.StoreInfos.Country.Get
46 , module Network.Google.Resource.PlayMoviesPartner.Accounts.StoreInfos.Country.Get
47
47
48− -- ** PlaymoviesPartynerAccountsStoreInfosList
48+ -- ** PlaymoviesPartnerAccountsStoreInfosList
49 , module Network.Google.Resource.PlayMoviesPartner.Accounts.StoreInfos.List
49 , module Network.Google.Resource.PlayMoviesPartner.Accounts.StoreInfos.List
50
50
51 -- * Types
51 -- * Types
gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/Avails/List.hs+2−2
@@ -21,7 +21,7 @@
21-- Authorization rules_ and _List methods rules_ for more information about
21-- Authorization rules_ and _List methods rules_ for more information about
22-- this method.
22-- this method.
23--
23--
24−-- /See:/ <https://developers.google.com/playmoviespartner/ Google Play Movies Partner API Reference> for @PlaymoviesPartynerAccountsAvailsList@.
24+-- /See:/ <https://developers.google.com/playmoviespartner/ Google Play Movies Partner API Reference> for @PlaymoviesPartnerAccountsAvailsList@.
25module Network.Google.Resource.PlayMoviesPartner.Accounts.Avails.List
25module Network.Google.Resource.PlayMoviesPartner.Accounts.Avails.List
26 (
26 (
27 -- * REST Resource
27 -- * REST Resource
@@ -58,7 +58,7 @@ module Network.Google.Resource.PlayMoviesPartner.Accounts.Avails.List
58import Network.Google.PlayMoviesPartner.Types
58import Network.Google.PlayMoviesPartner.Types
59import Network.Google.Prelude
59import Network.Google.Prelude
60
60
61−-- | A resource alias for @PlaymoviesPartynerAccountsAvailsList@ which the
61+-- | A resource alias for @PlaymoviesPartnerAccountsAvailsList@ which the
62-- 'AccountsAvailsList'' request conforms to.
62-- 'AccountsAvailsList'' request conforms to.
63type AccountsAvailsListResource =
63type AccountsAvailsListResource =
64 "v1" :>
64 "v1" :>
gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/ExperienceLocales/Get.hs+2−2
@@ -21,7 +21,7 @@
21-- Authorization rules_ and _Get methods rules_ for more information about
21-- Authorization rules_ and _Get methods rules_ for more information about
22-- this method.
22-- this method.
23--
23--
24−-- /See:/ <https://developers.google.com/playmoviespartner/ Google Play Movies Partner API Reference> for @PlaymoviesPartynerAccountsExperienceLocalesGet@.
24+-- /See:/ <https://developers.google.com/playmoviespartner/ Google Play Movies Partner API Reference> for @PlaymoviesPartnerAccountsExperienceLocalesGet@.
25module Network.Google.Resource.PlayMoviesPartner.Accounts.ExperienceLocales.Get
25module Network.Google.Resource.PlayMoviesPartner.Accounts.ExperienceLocales.Get
26 (
26 (
27 -- * REST Resource
27 -- * REST Resource
@@ -51,7 +51,7 @@ module Network.Google.Resource.PlayMoviesPartner.Accounts.ExperienceLocales.Get
51import Network.Google.PlayMoviesPartner.Types
51import Network.Google.PlayMoviesPartner.Types
52import Network.Google.Prelude
52import Network.Google.Prelude
53
53
54−-- | A resource alias for @PlaymoviesPartynerAccountsExperienceLocalesGet@ which the
54+-- | A resource alias for @PlaymoviesPartnerAccountsExperienceLocalesGet@ which the
55-- 'AccountsExperienceLocalesGet'' request conforms to.
55-- 'AccountsExperienceLocalesGet'' request conforms to.
56type AccountsExperienceLocalesGetResource =
56type AccountsExperienceLocalesGetResource =
57 "v1" :>
57 "v1" :>
gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/ExperienceLocales/List.hs+2−2
@@ -21,7 +21,7 @@
21-- _Authentication and Authorization rules_ and _List methods rules_ for
21-- _Authentication and Authorization rules_ and _List methods rules_ for
22-- more information about this method.
22-- more information about this method.
23--
23--
24−-- /See:/ <https://developers.google.com/playmoviespartner/ Google Play Movies Partner API Reference> for @PlaymoviesPartynerAccountsExperienceLocalesList@.
24+-- /See:/ <https://developers.google.com/playmoviespartner/ Google Play Movies Partner API Reference> for @PlaymoviesPartnerAccountsExperienceLocalesList@.
25module Network.Google.Resource.PlayMoviesPartner.Accounts.ExperienceLocales.List
25module Network.Google.Resource.PlayMoviesPartner.Accounts.ExperienceLocales.List
26 (
26 (
27 -- * REST Resource
27 -- * REST Resource
@@ -59,7 +59,7 @@ module Network.Google.Resource.PlayMoviesPartner.Accounts.ExperienceLocales.List
59import Network.Google.PlayMoviesPartner.Types
59import Network.Google.PlayMoviesPartner.Types
60import Network.Google.Prelude
60import Network.Google.Prelude
61
61
62−-- | A resource alias for @PlaymoviesPartynerAccountsExperienceLocalesList@ which the
62+-- | A resource alias for @PlaymoviesPartnerAccountsExperienceLocalesList@ which the
63-- 'AccountsExperienceLocalesList'' request conforms to.
63-- 'AccountsExperienceLocalesList'' request conforms to.
64type AccountsExperienceLocalesListResource =
64type AccountsExperienceLocalesListResource =
65 "v1" :>
65 "v1" :>
gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/Orders/Get.hs+2−2
@@ -20,7 +20,7 @@
20-- | Get an Order given its id. See _Authentication and Authorization rules_
20-- | Get an Order given its id. See _Authentication and Authorization rules_
21-- and _Get methods rules_ for more information about this method.
21-- and _Get methods rules_ for more information about this method.
22--
22--
23−-- /See:/ <https://developers.google.com/playmoviespartner/ Google Play Movies Partner API Reference> for @PlaymoviesPartynerAccountsOrdersGet@.
23+-- /See:/ <https://developers.google.com/playmoviespartner/ Google Play Movies Partner API Reference> for @PlaymoviesPartnerAccountsOrdersGet@.
24module Network.Google.Resource.PlayMoviesPartner.Accounts.Orders.Get
24module Network.Google.Resource.PlayMoviesPartner.Accounts.Orders.Get
25 (
25 (
26 -- * REST Resource
26 -- * REST Resource
@@ -50,7 +50,7 @@ module Network.Google.Resource.PlayMoviesPartner.Accounts.Orders.Get
50import Network.Google.PlayMoviesPartner.Types
50import Network.Google.PlayMoviesPartner.Types
51import Network.Google.Prelude
51import Network.Google.Prelude
52
52
53−-- | A resource alias for @PlaymoviesPartynerAccountsOrdersGet@ which the
53+-- | A resource alias for @PlaymoviesPartnerAccountsOrdersGet@ which the
54-- 'AccountsOrdersGet'' request conforms to.
54-- 'AccountsOrdersGet'' request conforms to.
55type AccountsOrdersGetResource =
55type AccountsOrdersGetResource =
56 "v1" :>
56 "v1" :>
gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/Orders/List.hs+2−2
@@ -21,7 +21,7 @@
21-- Authorization rules_ and _List methods rules_ for more information about
21-- Authorization rules_ and _List methods rules_ for more information about
22-- this method.
22-- this method.
23--
23--
24−-- /See:/ <https://developers.google.com/playmoviespartner/ Google Play Movies Partner API Reference> for @PlaymoviesPartynerAccountsOrdersList@.
24+-- /See:/ <https://developers.google.com/playmoviespartner/ Google Play Movies Partner API Reference> for @PlaymoviesPartnerAccountsOrdersList@.
25module Network.Google.Resource.PlayMoviesPartner.Accounts.Orders.List
25module Network.Google.Resource.PlayMoviesPartner.Accounts.Orders.List
26 (
26 (
27 -- * REST Resource
27 -- * REST Resource
@@ -57,7 +57,7 @@ module Network.Google.Resource.PlayMoviesPartner.Accounts.Orders.List
57import Network.Google.PlayMoviesPartner.Types
57import Network.Google.PlayMoviesPartner.Types
58import Network.Google.Prelude
58import Network.Google.Prelude
59
59
60−-- | A resource alias for @PlaymoviesPartynerAccountsOrdersList@ which the
60+-- | A resource alias for @PlaymoviesPartnerAccountsOrdersList@ which the
61-- 'AccountsOrdersList'' request conforms to.
61-- 'AccountsOrdersList'' request conforms to.
62type AccountsOrdersListResource =
62type AccountsOrdersListResource =
63 "v1" :>
63 "v1" :>
gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/StoreInfos/Country/Get.hs+2−2
@@ -21,7 +21,7 @@
21-- Authorization rules_ and _Get methods rules_ for more information about
21-- Authorization rules_ and _Get methods rules_ for more information about
22-- this method.
22-- this method.
23--
23--
24−-- /See:/ <https://developers.google.com/playmoviespartner/ Google Play Movies Partner API Reference> for @PlaymoviesPartynerAccountsStoreInfosCountryGet@.
24+-- /See:/ <https://developers.google.com/playmoviespartner/ Google Play Movies Partner API Reference> for @PlaymoviesPartnerAccountsStoreInfosCountryGet@.
25module Network.Google.Resource.PlayMoviesPartner.Accounts.StoreInfos.Country.Get
25module Network.Google.Resource.PlayMoviesPartner.Accounts.StoreInfos.Country.Get
26 (
26 (
27 -- * REST Resource
27 -- * REST Resource
@@ -52,7 +52,7 @@ module Network.Google.Resource.PlayMoviesPartner.Accounts.StoreInfos.Country.Get
52import Network.Google.PlayMoviesPartner.Types
52import Network.Google.PlayMoviesPartner.Types
53import Network.Google.Prelude
53import Network.Google.Prelude
54
54
55−-- | A resource alias for @PlaymoviesPartynerAccountsStoreInfosCountryGet@ which the
55+-- | A resource alias for @PlaymoviesPartnerAccountsStoreInfosCountryGet@ which the
56-- 'AccountsStoreInfosCountryGet'' request conforms to.
56-- 'AccountsStoreInfosCountryGet'' request conforms to.
57type AccountsStoreInfosCountryGetResource =
57type AccountsStoreInfosCountryGetResource =
58 "v1" :>
58 "v1" :>
gogol-play-moviespartner/gen/Network/Google/Resource/PlayMoviesPartner/Accounts/StoreInfos/List.hs+2−2
@@ -21,7 +21,7 @@
21-- Authorization rules_ and _List methods rules_ for more information about
21-- Authorization rules_ and _List methods rules_ for more information about
22-- this method.
22-- this method.
23--
23--
24−-- /See:/ <https://developers.google.com/playmoviespartner/ Google Play Movies Partner API Reference> for @PlaymoviesPartynerAccountsStoreInfosList@.
24+-- /See:/ <https://developers.google.com/playmoviespartner/ Google Play Movies Partner API Reference> for @PlaymoviesPartnerAccountsStoreInfosList@.
25module Network.Google.Resource.PlayMoviesPartner.Accounts.StoreInfos.List
25module Network.Google.Resource.PlayMoviesPartner.Accounts.StoreInfos.List
26 (
26 (
27 -- * REST Resource
27 -- * REST Resource
@@ -58,7 +58,7 @@ module Network.Google.Resource.PlayMoviesPartner.Accounts.StoreInfos.List
58import Network.Google.PlayMoviesPartner.Types
58import Network.Google.PlayMoviesPartner.Types
59import Network.Google.Prelude
59import Network.Google.Prelude
60
60
61−-- | A resource alias for @PlaymoviesPartynerAccountsStoreInfosList@ which the
61+-- | A resource alias for @PlaymoviesPartnerAccountsStoreInfosList@ which the
62-- 'AccountsStoreInfosList'' request conforms to.
62-- 'AccountsStoreInfosList'' request conforms to.
63type AccountsStoreInfosListResource =
63type AccountsStoreInfosListResource =
64 "v1" :>
64 "v1" :>
gogol-plus-domains/gen/Network/Google/PlusDomains.hs+2−2
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | The Google+ API enables developers to build on top of the Google+
15+-- | The Google+ API enables developers to build on top of the Google+
16-- platform.
16-- platform.
17--
17--
18-- /See:/ <https://developers.google.com/+/domains/ Google+ Domains API Reference>
18-- /See:/ <https://developers.google.com/+/domains/ Google+ Domains API Reference>
@@ -222,7 +222,7 @@ module Network.Google.PlusDomains
222 -- ** PersonOrganizations
222 -- ** PersonOrganizations
223 , PersonOrganizations
223 , PersonOrganizations
224 , personOrganizations
224 , personOrganizations
225− , poDePartyment
225+ , poDePartment
226 , poLocation
226 , poLocation
227 , poEndDate
227 , poEndDate
228 , poPrimary
228 , poPrimary
gogol-plus-domains/gen/Network/Google/PlusDomains/Types.hs+1−1
@@ -150,7 +150,7 @@ module Network.Google.PlusDomains.Types
150 -- * PersonOrganizations
150 -- * PersonOrganizations
151 , PersonOrganizations
151 , PersonOrganizations
152 , personOrganizations
152 , personOrganizations
153− , poDePartyment
153+ , poDePartment
154 , poLocation
154 , poLocation
155 , poEndDate
155 , poEndDate
156 , poPrimary
156 , poPrimary
gogol-plus-domains/gen/Network/Google/PlusDomains/Types/Product.hs+7−8
@@ -1151,7 +1151,7 @@ instance ToJSON CommentInReplyTo where
1151--
1151--
1152-- /See:/ 'personOrganizations' smart constructor.
1152-- /See:/ 'personOrganizations' smart constructor.
1153data PersonOrganizations = PersonOrganizations
1153data PersonOrganizations = PersonOrganizations
1154− { _poDePartyment :: !(Maybe Text)
1154+ { _poDePartment :: !(Maybe Text)
1155 , _poLocation :: !(Maybe Text)
1155 , _poLocation :: !(Maybe Text)
1156 , _poEndDate :: !(Maybe Text)
1156 , _poEndDate :: !(Maybe Text)
1157 , _poPrimary :: !(Maybe Bool)
1157 , _poPrimary :: !(Maybe Bool)
@@ -1166,7 +1166,7 @@ data PersonOrganizations = PersonOrganizations
1166--
1166--
1167-- Use one of the following lenses to modify other fields as desired:
1167-- Use one of the following lenses to modify other fields as desired:
1168--
1168--
1169−-- * 'poDePartyment'
1169+-- * 'poDePartment'
1170--
1170--
1171-- * 'poLocation'
1171-- * 'poLocation'
1172--
1172--
@@ -1187,7 +1187,7 @@ personOrganizations
1187 :: PersonOrganizations
1187 :: PersonOrganizations
1188personOrganizations =
1188personOrganizations =
1189 PersonOrganizations
1189 PersonOrganizations
1190− { _poDePartyment = Nothing
1190+ { _poDePartment = Nothing
1191 , _poLocation = Nothing
1191 , _poLocation = Nothing
1192 , _poEndDate = Nothing
1192 , _poEndDate = Nothing
1193 , _poPrimary = Nothing
1193 , _poPrimary = Nothing
@@ -1199,10 +1199,9 @@ personOrganizations =
1199 }
1199 }
1200
1200
1201-- | The department within the organization. Deprecated.
1201-- | The department within the organization. Deprecated.
1202−poDePartyment :: Lens' PersonOrganizations (Maybe Text)
1202+poDePartment :: Lens' PersonOrganizations (Maybe Text)
1203−poDePartyment
1203+poDePartment
1204− = lens _poDePartyment
1204+ = lens _poDePartment (\ s a -> s{_poDePartment = a})
1205− (\ s a -> s{_poDePartyment = a})
1206
1205
1207-- | The location of this organization. Deprecated.
1206-- | The location of this organization. Deprecated.
1208poLocation :: Lens' PersonOrganizations (Maybe Text)
1207poLocation :: Lens' PersonOrganizations (Maybe Text)
@@ -1263,7 +1262,7 @@ instance ToJSON PersonOrganizations where
1263 toJSON PersonOrganizations{..}
1262 toJSON PersonOrganizations{..}
1264 = object
1263 = object
1265 (catMaybes
1264 (catMaybes
1266− [("department" .=) <$> _poDePartyment,
1265+ [("department" .=) <$> _poDePartment,
1267 ("location" .=) <$> _poLocation,
1266 ("location" .=) <$> _poLocation,
1268 ("endDate" .=) <$> _poEndDate,
1267 ("endDate" .=) <$> _poEndDate,
1269 ("primary" .=) <$> _poPrimary,
1268 ("primary" .=) <$> _poPrimary,
gogol-plus/gen/Network/Google/Plus.hs+2−2
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | The Google+ API enables developers to build on top of the Google+
15+-- | The Google+ API enables developers to build on top of the Google+
16-- platform.
16-- platform.
17--
17--
18-- /See:/ <https://developers.google.com/+/api/ Google+ API Reference>
18-- /See:/ <https://developers.google.com/+/api/ Google+ API Reference>
@@ -169,7 +169,7 @@ module Network.Google.Plus
169 -- ** PersonOrganizations
169 -- ** PersonOrganizations
170 , PersonOrganizations
170 , PersonOrganizations
171 , personOrganizations
171 , personOrganizations
172− , poDePartyment
172+ , poDePartment
173 , poLocation
173 , poLocation
174 , poEndDate
174 , poEndDate
175 , poPrimary
175 , poPrimary
gogol-plus/gen/Network/Google/Plus/Types.hs+1−1
@@ -124,7 +124,7 @@ module Network.Google.Plus.Types
124 -- * PersonOrganizations
124 -- * PersonOrganizations
125 , PersonOrganizations
125 , PersonOrganizations
126 , personOrganizations
126 , personOrganizations
127− , poDePartyment
127+ , poDePartment
128 , poLocation
128 , poLocation
129 , poEndDate
129 , poEndDate
130 , poPrimary
130 , poPrimary
gogol-plus/gen/Network/Google/Plus/Types/Product.hs+7−8
@@ -885,7 +885,7 @@ instance ToJSON CommentInReplyTo where
885--
885--
886-- /See:/ 'personOrganizations' smart constructor.
886-- /See:/ 'personOrganizations' smart constructor.
887data PersonOrganizations = PersonOrganizations
887data PersonOrganizations = PersonOrganizations
888− { _poDePartyment :: !(Maybe Text)
888+ { _poDePartment :: !(Maybe Text)
889 , _poLocation :: !(Maybe Text)
889 , _poLocation :: !(Maybe Text)
890 , _poEndDate :: !(Maybe Text)
890 , _poEndDate :: !(Maybe Text)
891 , _poPrimary :: !(Maybe Bool)
891 , _poPrimary :: !(Maybe Bool)
@@ -900,7 +900,7 @@ data PersonOrganizations = PersonOrganizations
900--
900--
901-- Use one of the following lenses to modify other fields as desired:
901-- Use one of the following lenses to modify other fields as desired:
902--
902--
903−-- * 'poDePartyment'
903+-- * 'poDePartment'
904--
904--
905-- * 'poLocation'
905-- * 'poLocation'
906--
906--
@@ -921,7 +921,7 @@ personOrganizations
921 :: PersonOrganizations
921 :: PersonOrganizations
922personOrganizations =
922personOrganizations =
923 PersonOrganizations
923 PersonOrganizations
924− { _poDePartyment = Nothing
924+ { _poDePartment = Nothing
925 , _poLocation = Nothing
925 , _poLocation = Nothing
926 , _poEndDate = Nothing
926 , _poEndDate = Nothing
927 , _poPrimary = Nothing
927 , _poPrimary = Nothing
@@ -933,10 +933,9 @@ personOrganizations =
933 }
933 }
934
934
935-- | The department within the organization. Deprecated.
935-- | The department within the organization. Deprecated.
936−poDePartyment :: Lens' PersonOrganizations (Maybe Text)
936+poDePartment :: Lens' PersonOrganizations (Maybe Text)
937−poDePartyment
937+poDePartment
938− = lens _poDePartyment
938+ = lens _poDePartment (\ s a -> s{_poDePartment = a})
939− (\ s a -> s{_poDePartyment = a})
940
939
941-- | The location of this organization. Deprecated.
940-- | The location of this organization. Deprecated.
942poLocation :: Lens' PersonOrganizations (Maybe Text)
941poLocation :: Lens' PersonOrganizations (Maybe Text)
@@ -997,7 +996,7 @@ instance ToJSON PersonOrganizations where
997 toJSON PersonOrganizations{..}
996 toJSON PersonOrganizations{..}
998 = object
997 = object
999 (catMaybes
998 (catMaybes
1000− [("department" .=) <$> _poDePartyment,
999+ [("department" .=) <$> _poDePartment,
1001 ("location" .=) <$> _poLocation,
1000 ("location" .=) <$> _poLocation,
1002 ("endDate" .=) <$> _poEndDate,
1001 ("endDate" .=) <$> _poEndDate,
1003 ("primary" .=) <$> _poPrimary,
1002 ("primary" .=) <$> _poPrimary,
gogol-prediction/gen/Network/Google/Prediction.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets you access a cloud hosted machine learning service that makes it
15+-- | Lets you access a cloud hosted machine learning service that makes it
16-- easy to build smart apps
16-- easy to build smart apps
17--
17--
18-- /See:/ <https://developers.google.com/prediction/docs/developer-guide Prediction API Reference>
18-- /See:/ <https://developers.google.com/prediction/docs/developer-guide Prediction API Reference>
gogol-proximitybeacon/gen/Network/Google/ProximityBeacon.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | This API provides services to register, manage, index, and search
15+-- | This API provides services to register, manage, index, and search
16-- beacons.
16-- beacons.
17--
17--
18-- /See:/ <https://developers.google.com/beacons/proximity/ Google Proximity Beacon API Reference>
18-- /See:/ <https://developers.google.com/beacons/proximity/ Google Proximity Beacon API Reference>
gogol-pubsub/gen/Network/Google/PubSub.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Provides reliable, many-to-many, asynchronous messaging between
15+-- | Provides reliable, many-to-many, asynchronous messaging between
16-- applications.
16-- applications.
17--
17--
18-- /See:/ <https://cloud.google.com/pubsub/docs Google Cloud Pub/Sub API Reference>
18-- /See:/ <https://cloud.google.com/pubsub/docs Google Cloud Pub/Sub API Reference>
gogol-qpxexpress/gen/Network/Google/QPXExpress.hs+3−3
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets you find the least expensive flights between an origin and a
15+-- | Lets you find the least expensive flights between an origin and a
16-- destination.
16-- destination.
17--
17--
18-- /See:/ <http://developers.google.com/qpx-express QPX Express API Reference>
18-- /See:/ <http://developers.google.com/qpx-express QPX Express API Reference>
@@ -100,7 +100,7 @@ module Network.Google.QPXExpress
100 , liConnectionDuration
100 , liConnectionDuration
101 , liDuration
101 , liDuration
102 , liMileage
102 , liMileage
103− , liDePartyureTime
103+ , liDePartureTime
104
104
105 -- ** AirportData
105 -- ** AirportData
106 , AirportData
106 , AirportData
@@ -249,7 +249,7 @@ module Network.Google.QPXExpress
249 , sliDate
249 , sliDate
250 , sliMaxConnectionDuration
250 , sliMaxConnectionDuration
251 , sliPreferredCabin
251 , sliPreferredCabin
252− , sliPermittedDePartyureTime
252+ , sliPermittedDePartureTime
253 , sliPermittedCarrier
253 , sliPermittedCarrier
254 , sliAlliance
254 , sliAlliance
255
255
gogol-qpxexpress/gen/Network/Google/QPXExpress/Types.hs+2−2
@@ -85,7 +85,7 @@ module Network.Google.QPXExpress.Types
85 , liConnectionDuration
85 , liConnectionDuration
86 , liDuration
86 , liDuration
87 , liMileage
87 , liMileage
88− , liDePartyureTime
88+ , liDePartureTime
89
89
90 -- * AirportData
90 -- * AirportData
91 , AirportData
91 , AirportData
@@ -234,7 +234,7 @@ module Network.Google.QPXExpress.Types
234 , sliDate
234 , sliDate
235 , sliMaxConnectionDuration
235 , sliMaxConnectionDuration
236 , sliPreferredCabin
236 , sliPreferredCabin
237− , sliPermittedDePartyureTime
237+ , sliPermittedDePartureTime
238 , sliPermittedCarrier
238 , sliPermittedCarrier
239 , sliAlliance
239 , sliAlliance
240
240
gogol-qpxexpress/gen/Network/Google/QPXExpress/Types/Product.hs+26−26
@@ -486,7 +486,7 @@ data LegInfo = LegInfo
486 , _liConnectionDuration :: !(Maybe Int32)
486 , _liConnectionDuration :: !(Maybe Int32)
487 , _liDuration :: !(Maybe Int32)
487 , _liDuration :: !(Maybe Int32)
488 , _liMileage :: !(Maybe Int32)
488 , _liMileage :: !(Maybe Int32)
489− , _liDePartyureTime :: !(Maybe Text)
489+ , _liDePartureTime :: !(Maybe Text)
490 } deriving (Eq,Read,Show,Data,Typeable,Generic)
490 } deriving (Eq,Read,Show,Data,Typeable,Generic)
491
491
492-- | Creates a value of 'LegInfo' with the minimum fields required to make a request.
492-- | Creates a value of 'LegInfo' with the minimum fields required to make a request.
@@ -525,7 +525,7 @@ data LegInfo = LegInfo
525--
525--
526-- * 'liMileage'
526-- * 'liMileage'
527--
527--
528−-- * 'liDePartyureTime'
528+-- * 'liDePartureTime'
529legInfo
529legInfo
530 :: LegInfo
530 :: LegInfo
531legInfo =
531legInfo =
@@ -546,7 +546,7 @@ legInfo =
546 , _liConnectionDuration = Nothing
546 , _liConnectionDuration = Nothing
547 , _liDuration = Nothing
547 , _liDuration = Nothing
548 , _liMileage = Nothing
548 , _liMileage = Nothing
549− , _liDePartyureTime = Nothing
549+ , _liDePartureTime = Nothing
550 }
550 }
551
551
552-- | The leg destination as a city and airport.
552-- | The leg destination as a city and airport.
@@ -646,10 +646,10 @@ liMileage
646
646
647-- | The scheduled departure time of the leg, local to the point of
647-- | The scheduled departure time of the leg, local to the point of
648-- departure.
648-- departure.
649−liDePartyureTime :: Lens' LegInfo (Maybe Text)
649+liDePartureTime :: Lens' LegInfo (Maybe Text)
650−liDePartyureTime
650+liDePartureTime
651− = lens _liDePartyureTime
651+ = lens _liDePartureTime
652− (\ s a -> s{_liDePartyureTime = a})
652+ (\ s a -> s{_liDePartureTime = a})
653
653
654instance FromJSON LegInfo where
654instance FromJSON LegInfo where
655 parseJSON
655 parseJSON
@@ -694,7 +694,7 @@ instance ToJSON LegInfo where
694 ("connectionDuration" .=) <$> _liConnectionDuration,
694 ("connectionDuration" .=) <$> _liConnectionDuration,
695 ("duration" .=) <$> _liDuration,
695 ("duration" .=) <$> _liDuration,
696 ("mileage" .=) <$> _liMileage,
696 ("mileage" .=) <$> _liMileage,
697− ("departureTime" .=) <$> _liDePartyureTime])
697+ ("departureTime" .=) <$> _liDePartureTime])
698
698
699-- | An airport.
699-- | An airport.
700--
700--
@@ -1976,17 +1976,17 @@ instance ToJSON FareInfo where
1976--
1976--
1977-- /See:/ 'sliceInput' smart constructor.
1977-- /See:/ 'sliceInput' smart constructor.
1978data SliceInput = SliceInput
1978data SliceInput = SliceInput
1979− { _sliDestination :: !(Maybe Text)
1979+ { _sliDestination :: !(Maybe Text)
1980− , _sliOrigin :: !(Maybe Text)
1980+ , _sliOrigin :: !(Maybe Text)
1981− , _sliMaxStops :: !(Maybe Int32)
1981+ , _sliMaxStops :: !(Maybe Int32)
1982− , _sliKind :: !Text
1982+ , _sliKind :: !Text
1983− , _sliProhibitedCarrier :: !(Maybe [Text])
1983+ , _sliProhibitedCarrier :: !(Maybe [Text])
1984− , _sliDate :: !(Maybe Text)
1984+ , _sliDate :: !(Maybe Text)
1985− , _sliMaxConnectionDuration :: !(Maybe Int32)
1985+ , _sliMaxConnectionDuration :: !(Maybe Int32)
1986− , _sliPreferredCabin :: !(Maybe Text)
1986+ , _sliPreferredCabin :: !(Maybe Text)
1987− , _sliPermittedDePartyureTime :: !(Maybe TimeOfDayRange)
1987+ , _sliPermittedDePartureTime :: !(Maybe TimeOfDayRange)
1988− , _sliPermittedCarrier :: !(Maybe [Text])
1988+ , _sliPermittedCarrier :: !(Maybe [Text])
1989− , _sliAlliance :: !(Maybe Text)
1989+ , _sliAlliance :: !(Maybe Text)
1990 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1990 } deriving (Eq,Read,Show,Data,Typeable,Generic)
1991
1991
1992-- | Creates a value of 'SliceInput' with the minimum fields required to make a request.
1992-- | Creates a value of 'SliceInput' with the minimum fields required to make a request.
@@ -2009,7 +2009,7 @@ data SliceInput = SliceInput
2009--
2009--
2010-- * 'sliPreferredCabin'
2010-- * 'sliPreferredCabin'
2011--
2011--
2012−-- * 'sliPermittedDePartyureTime'
2012+-- * 'sliPermittedDePartureTime'
2013--
2013--
2014-- * 'sliPermittedCarrier'
2014-- * 'sliPermittedCarrier'
2015--
2015--
@@ -2026,7 +2026,7 @@ sliceInput =
2026 , _sliDate = Nothing
2026 , _sliDate = Nothing
2027 , _sliMaxConnectionDuration = Nothing
2027 , _sliMaxConnectionDuration = Nothing
2028 , _sliPreferredCabin = Nothing
2028 , _sliPreferredCabin = Nothing
2029− , _sliPermittedDePartyureTime = Nothing
2029+ , _sliPermittedDePartureTime = Nothing
2030 , _sliPermittedCarrier = Nothing
2030 , _sliPermittedCarrier = Nothing
2031 , _sliAlliance = Nothing
2031 , _sliAlliance = Nothing
2032 }
2032 }
@@ -2082,10 +2082,10 @@ sliPreferredCabin
2082
2082
2083-- | Slices must depart in this time of day range, local to the point of
2083-- | Slices must depart in this time of day range, local to the point of
2084-- departure.
2084-- departure.
2085−sliPermittedDePartyureTime :: Lens' SliceInput (Maybe TimeOfDayRange)
2085+sliPermittedDePartureTime :: Lens' SliceInput (Maybe TimeOfDayRange)
2086−sliPermittedDePartyureTime
2086+sliPermittedDePartureTime
2087− = lens _sliPermittedDePartyureTime
2087+ = lens _sliPermittedDePartureTime
2088− (\ s a -> s{_sliPermittedDePartyureTime = a})
2088+ (\ s a -> s{_sliPermittedDePartureTime = a})
2089
2089
2090-- | A list of 2-letter IATA airline designators. Slices with only these
2090-- | A list of 2-letter IATA airline designators. Slices with only these
2091-- carriers should be returned.
2091-- carriers should be returned.
@@ -2133,7 +2133,7 @@ instance ToJSON SliceInput where
2133 _sliMaxConnectionDuration,
2133 _sliMaxConnectionDuration,
2134 ("preferredCabin" .=) <$> _sliPreferredCabin,
2134 ("preferredCabin" .=) <$> _sliPreferredCabin,
2135 ("permittedDepartureTime" .=) <$>
2135 ("permittedDepartureTime" .=) <$>
2136− _sliPermittedDePartyureTime,
2136+ _sliPermittedDePartureTime,
2137 ("permittedCarrier" .=) <$> _sliPermittedCarrier,
2137 ("permittedCarrier" .=) <$> _sliPermittedCarrier,
2138 ("alliance" .=) <$> _sliAlliance])
2138 ("alliance" .=) <$> _sliAlliance])
2139
2139
gogol-replicapool-updater/gen/Network/Google/ReplicaPoolUpdater.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | The Google Compute Engine Instance Group Updater API provides services
15+-- | The Google Compute Engine Instance Group Updater API provides services
16-- for updating groups of Compute Engine Instances.
16-- for updating groups of Compute Engine Instances.
17--
17--
18-- /See:/ <https://cloud.google.com/compute/docs/instance-groups/manager/#applying_rolling_updates_using_the_updater_service Google Compute Engine Instance Group Updater API Reference>
18-- /See:/ <https://cloud.google.com/compute/docs/instance-groups/manager/#applying_rolling_updates_using_the_updater_service Google Compute Engine Instance Group Updater API Reference>
gogol-replicapool/gen/Network/Google/ReplicaPool.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | The Google Compute Engine Instance Group Manager API provides groups of
15+-- | The Google Compute Engine Instance Group Manager API provides groups of
16-- homogenous Compute Engine Instances.
16-- homogenous Compute Engine Instances.
17--
17--
18-- /See:/ <https://developers.google.com/compute/docs/instance-groups/manager/v1beta2 Google Compute Engine Instance Group Manager API Reference>
18-- /See:/ <https://developers.google.com/compute/docs/instance-groups/manager/v1beta2 Google Compute Engine Instance Group Manager API Reference>
gogol-resourcemanager/gen/Network/Google/ResourceManager.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | The Google Cloud Resource Manager API provides methods for creating,
15+-- | The Google Cloud Resource Manager API provides methods for creating,
16-- reading, and updating of project metadata.
16-- reading, and updating of project metadata.
17--
17--
18-- /See:/ <https://cloud.google.com/resource-manager Google Cloud Resource Manager API Reference>
18-- /See:/ <https://cloud.google.com/resource-manager Google Cloud Resource Manager API Reference>
gogol-resourceviews/gen/Network/Google/ResourceViews.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | The Resource View API allows users to create and manage logical sets of
15+-- | The Resource View API allows users to create and manage logical sets of
16-- Google Compute Engine instances.
16-- Google Compute Engine instances.
17--
17--
18-- /See:/ <https://developers.google.com/compute/ Google Compute Engine Instance Groups API Reference>
18-- /See:/ <https://developers.google.com/compute/ Google Compute Engine Instance Groups API Reference>
gogol-shopping-content/gen/Network/Google/ShoppingContent.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Manage product items, inventory, and Merchant Center accounts for Google
15+-- | Manage product items, inventory, and Merchant Center accounts for Google
16-- Shopping.
16-- Shopping.
17--
17--
18-- /See:/ <https://developers.google.com/shopping-content Content API for Shopping Reference>
18-- /See:/ <https://developers.google.com/shopping-content Content API for Shopping Reference>
gogol-siteverification/gen/Network/Google/SiteVerification.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets you programatically verify ownership of websites or domains with
15+-- | Lets you programatically verify ownership of websites or domains with
16-- Google.
16-- Google.
17--
17--
18-- /See:/ <https://developers.google.com/site-verification/ Google Site Verification API Reference>
18-- /See:/ <https://developers.google.com/site-verification/ Google Site Verification API Reference>
gogol-spectrum/gen/Network/Google/Spectrum.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | API for spectrum-management functions.
15+-- | API for spectrum-management functions.
16--
16--
17-- /See:/ <http://developers.google.com/spectrum Google Spectrum Database API Reference>
17-- /See:/ <http://developers.google.com/spectrum Google Spectrum Database API Reference>
18module Network.Google.Spectrum
18module Network.Google.Spectrum
gogol-sqladmin/gen/Network/Google/Resource/SQL/SSLCerts/CreateEphemeral.hs+3−3
@@ -26,7 +26,7 @@
26module Network.Google.Resource.SQL.SSLCerts.CreateEphemeral
26module Network.Google.Resource.SQL.SSLCerts.CreateEphemeral
27 (
27 (
28 -- * REST Resource
28 -- * REST Resource
29− SslCertsCreateEphemeralResource
29+ SSLCertsCreateEphemeralResource
30
30
31 -- * Creating a Request
31 -- * Creating a Request
32 , sSLCertsCreateEphemeral'
32 , sSLCertsCreateEphemeral'
@@ -49,7 +49,7 @@ import Network.Google.SQLAdmin.Types
49
49
50-- | A resource alias for @SQLSSLCertsCreateEphemeral@ which the
50-- | A resource alias for @SQLSSLCertsCreateEphemeral@ which the
51-- 'SSLCertsCreateEphemeral'' request conforms to.
51-- 'SSLCertsCreateEphemeral'' request conforms to.
52−type SslCertsCreateEphemeralResource =
52+type SSLCertsCreateEphemeralResource =
53 "projects" :>
53 "projects" :>
54 Capture "project" Text :>
54 Capture "project" Text :>
55 "instances" :>
55 "instances" :>
@@ -194,6 +194,6 @@ instance GoogleRequest SSLCertsCreateEphemeral' where
194 _scceSSLCertsCreateEphemeralRequest
194 _scceSSLCertsCreateEphemeralRequest
195 where go
195 where go
196 = clientWithRoute
196 = clientWithRoute
197− (Proxy :: Proxy SslCertsCreateEphemeralResource)
197+ (Proxy :: Proxy SSLCertsCreateEphemeralResource)
198 r
198 r
199 u
199 u
gogol-sqladmin/gen/Network/Google/Resource/SQL/SSLCerts/Delete.hs+3−3
@@ -24,7 +24,7 @@
24module Network.Google.Resource.SQL.SSLCerts.Delete
24module Network.Google.Resource.SQL.SSLCerts.Delete
25 (
25 (
26 -- * REST Resource
26 -- * REST Resource
27− SslCertsDeleteResource
27+ SSLCertsDeleteResource
28
28
29 -- * Creating a Request
29 -- * Creating a Request
30 , sSLCertsDelete'
30 , sSLCertsDelete'
@@ -47,7 +47,7 @@ import Network.Google.SQLAdmin.Types
47
47
48-- | A resource alias for @SQLSSLCertsDelete@ which the
48-- | A resource alias for @SQLSSLCertsDelete@ which the
49-- 'SSLCertsDelete'' request conforms to.
49-- 'SSLCertsDelete'' request conforms to.
50−type SslCertsDeleteResource =
50+type SSLCertsDeleteResource =
51 "projects" :>
51 "projects" :>
52 Capture "project" Text :>
52 Capture "project" Text :>
53 "instances" :>
53 "instances" :>
@@ -188,6 +188,6 @@ instance GoogleRequest SSLCertsDelete' where
188 (Just AltJSON)
188 (Just AltJSON)
189 where go
189 where go
190 = clientWithRoute
190 = clientWithRoute
191− (Proxy :: Proxy SslCertsDeleteResource)
191+ (Proxy :: Proxy SSLCertsDeleteResource)
192 r
192 r
193 u
193 u
gogol-sqladmin/gen/Network/Google/Resource/SQL/SSLCerts/Get.hs+3−3
@@ -25,7 +25,7 @@
25module Network.Google.Resource.SQL.SSLCerts.Get
25module Network.Google.Resource.SQL.SSLCerts.Get
26 (
26 (
27 -- * REST Resource
27 -- * REST Resource
28− SslCertsGetResource
28+ SSLCertsGetResource
29
29
30 -- * Creating a Request
30 -- * Creating a Request
31 , sSLCertsGet'
31 , sSLCertsGet'
@@ -48,7 +48,7 @@ import Network.Google.SQLAdmin.Types
48
48
49-- | A resource alias for @SQLSSLCertsGet@ which the
49-- | A resource alias for @SQLSSLCertsGet@ which the
50-- 'SSLCertsGet'' request conforms to.
50-- 'SSLCertsGet'' request conforms to.
51−type SslCertsGetResource =
51+type SSLCertsGetResource =
52 "projects" :>
52 "projects" :>
53 Capture "project" Text :>
53 Capture "project" Text :>
54 "instances" :>
54 "instances" :>
@@ -189,6 +189,6 @@ instance GoogleRequest SSLCertsGet' where
189 (Just AltJSON)
189 (Just AltJSON)
190 where go
190 where go
191 = clientWithRoute
191 = clientWithRoute
192− (Proxy :: Proxy SslCertsGetResource)
192+ (Proxy :: Proxy SSLCertsGetResource)
193 r
193 r
194 u
194 u
gogol-sqladmin/gen/Network/Google/Resource/SQL/SSLCerts/Insert.hs+3−3
@@ -25,7 +25,7 @@
25module Network.Google.Resource.SQL.SSLCerts.Insert
25module Network.Google.Resource.SQL.SSLCerts.Insert
26 (
26 (
27 -- * REST Resource
27 -- * REST Resource
28− SslCertsInsertResource
28+ SSLCertsInsertResource
29
29
30 -- * Creating a Request
30 -- * Creating a Request
31 , sSLCertsInsert'
31 , sSLCertsInsert'
@@ -48,7 +48,7 @@ import Network.Google.SQLAdmin.Types
48
48
49-- | A resource alias for @SQLSSLCertsInsert@ which the
49-- | A resource alias for @SQLSSLCertsInsert@ which the
50-- 'SSLCertsInsert'' request conforms to.
50-- 'SSLCertsInsert'' request conforms to.
51−type SslCertsInsertResource =
51+type SSLCertsInsertResource =
52 "projects" :>
52 "projects" :>
53 Capture "project" Text :>
53 Capture "project" Text :>
54 "instances" :>
54 "instances" :>
@@ -191,6 +191,6 @@ instance GoogleRequest SSLCertsInsert' where
191 _sciSSLCertsInsertRequest
191 _sciSSLCertsInsertRequest
192 where go
192 where go
193 = clientWithRoute
193 = clientWithRoute
194− (Proxy :: Proxy SslCertsInsertResource)
194+ (Proxy :: Proxy SSLCertsInsertResource)
195 r
195 r
196 u
196 u
gogol-sqladmin/gen/Network/Google/Resource/SQL/SSLCerts/List.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.SQL.SSLCerts.List
23module Network.Google.Resource.SQL.SSLCerts.List
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− SslCertsListResource
26+ SSLCertsListResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , sSLCertsList'
29 , sSLCertsList'
@@ -45,7 +45,7 @@ import Network.Google.SQLAdmin.Types
45
45
46-- | A resource alias for @SQLSSLCertsList@ which the
46-- | A resource alias for @SQLSSLCertsList@ which the
47-- 'SSLCertsList'' request conforms to.
47-- 'SSLCertsList'' request conforms to.
48−type SslCertsListResource =
48+type SSLCertsListResource =
49 "projects" :>
49 "projects" :>
50 Capture "project" Text :>
50 Capture "project" Text :>
51 "instances" :>
51 "instances" :>
@@ -172,6 +172,6 @@ instance GoogleRequest SSLCertsList' where
172 (Just AltJSON)
172 (Just AltJSON)
173 where go
173 where go
174 = clientWithRoute
174 = clientWithRoute
175− (Proxy :: Proxy SslCertsListResource)
175+ (Proxy :: Proxy SSLCertsListResource)
176 r
176 r
177 u
177 u
gogol-sqladmin/gen/Network/Google/SQLAdmin.hs+6−6
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | API for Cloud SQL database instance management.
15+-- | API for Cloud SQL database instance management.
16--
16--
17-- /See:/ <https://cloud.google.com/sql/docs/reference/latest Cloud SQL Administration API Reference>
17-- /See:/ <https://cloud.google.com/sql/docs/reference/latest Cloud SQL Administration API Reference>
18module Network.Google.SQLAdmin
18module Network.Google.SQLAdmin
@@ -557,11 +557,11 @@ type SQLAdminAPI =
557 :<|> BackupRunsListResource
557 :<|> BackupRunsListResource
558 :<|> BackupRunsGetResource
558 :<|> BackupRunsGetResource
559 :<|> BackupRunsDeleteResource
559 :<|> BackupRunsDeleteResource
560− :<|> SslCertsInsertResource
560+ :<|> SSLCertsInsertResource
561− :<|> SslCertsListResource
561+ :<|> SSLCertsListResource
562− :<|> SslCertsGetResource
562+ :<|> SSLCertsGetResource
563− :<|> SslCertsCreateEphemeralResource
563+ :<|> SSLCertsCreateEphemeralResource
564− :<|> SslCertsDeleteResource
564+ :<|> SSLCertsDeleteResource
565 :<|> InstancesExportResource
565 :<|> InstancesExportResource
566 :<|> InstancesInsertResource
566 :<|> InstancesInsertResource
567 :<|> InstancesListResource
567 :<|> InstancesListResource
gogol-storage-transfer/gen/Network/Google/StorageTransfer.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Transfers data from external data sources to a Google Cloud Storage
15+-- | Transfers data from external data sources to a Google Cloud Storage
16-- bucket or between Google Cloud Storage buckets.
16-- bucket or between Google Cloud Storage buckets.
17--
17--
18-- /See:/ <https://cloud.google.com/storage/transfer Google Storage Transfer API Reference>
18-- /See:/ <https://cloud.google.com/storage/transfer Google Storage Transfer API Reference>
gogol-storage/gen/Network/Google/Storage.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets you store and retrieve potentially-large, immutable data objects.
15+-- | Lets you store and retrieve potentially-large, immutable data objects.
16--
16--
17-- /See:/ <https://developers.google.com/storage/docs/json_api/ Cloud Storage API Reference>
17-- /See:/ <https://developers.google.com/storage/docs/json_api/ Cloud Storage API Reference>
18module Network.Google.Storage
18module Network.Google.Storage
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Macros/Update.hs+95−95
@@ -30,17 +30,17 @@ module Network.Google.Resource.TagManager.Accounts.Containers.Macros.Update
30 , AccountsContainersMacrosUpdate'
30 , AccountsContainersMacrosUpdate'
31
31
32 -- * Request Lenses
32 -- * Request Lenses
33− , acmucQuotaUser
33+ , acmuQuotaUser
34− , acmucPrettyPrint
34+ , acmuPrettyPrint
35− , acmucMacro
35+ , acmuMacro
36− , acmucContainerId
36+ , acmuContainerId
37− , acmucUserIP
37+ , acmuUserIP
38− , acmucFingerprint
38+ , acmuFingerprint
39− , acmucAccountId
39+ , acmuAccountId
40− , acmucKey
40+ , acmuKey
41− , acmucMacroId
41+ , acmuMacroId
42− , acmucOAuthToken
42+ , acmuOAuthToken
43− , acmucFields
43+ , acmuFields
44 ) where
44 ) where
45
45
46import Network.Google.Prelude
46import Network.Google.Prelude
@@ -69,135 +69,135 @@ type AccountsContainersMacrosUpdateResource =
69--
69--
70-- /See:/ 'accountsContainersMacrosUpdate'' smart constructor.
70-- /See:/ 'accountsContainersMacrosUpdate'' smart constructor.
71data AccountsContainersMacrosUpdate' = AccountsContainersMacrosUpdate'
71data AccountsContainersMacrosUpdate' = AccountsContainersMacrosUpdate'
72− { _acmucQuotaUser :: !(Maybe Text)
72+ { _acmuQuotaUser :: !(Maybe Text)
73− , _acmucPrettyPrint :: !Bool
73+ , _acmuPrettyPrint :: !Bool
74− , _acmucMacro :: !Macro
74+ , _acmuMacro :: !Macro
75− , _acmucContainerId :: !Text
75+ , _acmuContainerId :: !Text
76− , _acmucUserIP :: !(Maybe Text)
76+ , _acmuUserIP :: !(Maybe Text)
77− , _acmucFingerprint :: !(Maybe Text)
77+ , _acmuFingerprint :: !(Maybe Text)
78− , _acmucAccountId :: !Text
78+ , _acmuAccountId :: !Text
79− , _acmucKey :: !(Maybe Key)
79+ , _acmuKey :: !(Maybe Key)
80− , _acmucMacroId :: !Text
80+ , _acmuMacroId :: !Text
81− , _acmucOAuthToken :: !(Maybe OAuthToken)
81+ , _acmuOAuthToken :: !(Maybe OAuthToken)
82− , _acmucFields :: !(Maybe Text)
82+ , _acmuFields :: !(Maybe Text)
83 } deriving (Eq,Read,Show,Data,Typeable,Generic)
83 } deriving (Eq,Read,Show,Data,Typeable,Generic)
84
84
85-- | Creates a value of 'AccountsContainersMacrosUpdate'' with the minimum fields required to make a request.
85-- | Creates a value of 'AccountsContainersMacrosUpdate'' with the minimum fields required to make a request.
86--
86--
87-- Use one of the following lenses to modify other fields as desired:
87-- Use one of the following lenses to modify other fields as desired:
88--
88--
89−-- * 'acmucQuotaUser'
89+-- * 'acmuQuotaUser'
90--
90--
91−-- * 'acmucPrettyPrint'
91+-- * 'acmuPrettyPrint'
92--
92--
93−-- * 'acmucMacro'
93+-- * 'acmuMacro'
94--
94--
95−-- * 'acmucContainerId'
95+-- * 'acmuContainerId'
96--
96--
97−-- * 'acmucUserIP'
97+-- * 'acmuUserIP'
98--
98--
99−-- * 'acmucFingerprint'
99+-- * 'acmuFingerprint'
100--
100--
101−-- * 'acmucAccountId'
101+-- * 'acmuAccountId'
102--
102--
103−-- * 'acmucKey'
103+-- * 'acmuKey'
104--
104--
105−-- * 'acmucMacroId'
105+-- * 'acmuMacroId'
106--
106--
107−-- * 'acmucOAuthToken'
107+-- * 'acmuOAuthToken'
108--
108--
109−-- * 'acmucFields'
109+-- * 'acmuFields'
110accountsContainersMacrosUpdate'
110accountsContainersMacrosUpdate'
111 :: Macro -- ^ 'Macro'
111 :: Macro -- ^ 'Macro'
112 -> Text -- ^ 'containerId'
112 -> Text -- ^ 'containerId'
113 -> Text -- ^ 'accountId'
113 -> Text -- ^ 'accountId'
114 -> Text -- ^ 'macroId'
114 -> Text -- ^ 'macroId'
115 -> AccountsContainersMacrosUpdate'
115 -> AccountsContainersMacrosUpdate'
116−accountsContainersMacrosUpdate' pAcmucMacro_ pAcmucContainerId_ pAcmucAccountId_ pAcmucMacroId_ =
116+accountsContainersMacrosUpdate' pAcmuMacro_ pAcmuContainerId_ pAcmuAccountId_ pAcmuMacroId_ =
117 AccountsContainersMacrosUpdate'
117 AccountsContainersMacrosUpdate'
118− { _acmucQuotaUser = Nothing
118+ { _acmuQuotaUser = Nothing
119− , _acmucPrettyPrint = True
119+ , _acmuPrettyPrint = True
120− , _acmucMacro = pAcmucMacro_
120+ , _acmuMacro = pAcmuMacro_
121− , _acmucContainerId = pAcmucContainerId_
121+ , _acmuContainerId = pAcmuContainerId_
122− , _acmucUserIP = Nothing
122+ , _acmuUserIP = Nothing
123− , _acmucFingerprint = Nothing
123+ , _acmuFingerprint = Nothing
124− , _acmucAccountId = pAcmucAccountId_
124+ , _acmuAccountId = pAcmuAccountId_
125− , _acmucKey = Nothing
125+ , _acmuKey = Nothing
126− , _acmucMacroId = pAcmucMacroId_
126+ , _acmuMacroId = pAcmuMacroId_
127− , _acmucOAuthToken = Nothing
127+ , _acmuOAuthToken = Nothing
128− , _acmucFields = Nothing
128+ , _acmuFields = Nothing
129 }
129 }
130
130
131-- | Available to use for quota purposes for server-side applications. Can be
131-- | Available to use for quota purposes for server-side applications. Can be
132-- any arbitrary string assigned to a user, but should not exceed 40
132-- any arbitrary string assigned to a user, but should not exceed 40
133-- characters. Overrides userIp if both are provided.
133-- characters. Overrides userIp if both are provided.
134−acmucQuotaUser :: Lens' AccountsContainersMacrosUpdate' (Maybe Text)
134+acmuQuotaUser :: Lens' AccountsContainersMacrosUpdate' (Maybe Text)
135−acmucQuotaUser
135+acmuQuotaUser
136− = lens _acmucQuotaUser
136+ = lens _acmuQuotaUser
137− (\ s a -> s{_acmucQuotaUser = a})
137+ (\ s a -> s{_acmuQuotaUser = a})
138
138
139-- | Returns response with indentations and line breaks.
139-- | Returns response with indentations and line breaks.
140−acmucPrettyPrint :: Lens' AccountsContainersMacrosUpdate' Bool
140+acmuPrettyPrint :: Lens' AccountsContainersMacrosUpdate' Bool
141−acmucPrettyPrint
141+acmuPrettyPrint
142− = lens _acmucPrettyPrint
142+ = lens _acmuPrettyPrint
143− (\ s a -> s{_acmucPrettyPrint = a})
143+ (\ s a -> s{_acmuPrettyPrint = a})
144
144
145-- | Multipart request metadata.
145-- | Multipart request metadata.
146−acmucMacro :: Lens' AccountsContainersMacrosUpdate' Macro
146+acmuMacro :: Lens' AccountsContainersMacrosUpdate' Macro
147−acmucMacro
147+acmuMacro
148− = lens _acmucMacro (\ s a -> s{_acmucMacro = a})
148+ = lens _acmuMacro (\ s a -> s{_acmuMacro = a})
149
149
150-- | The GTM Container ID.
150-- | The GTM Container ID.
151−acmucContainerId :: Lens' AccountsContainersMacrosUpdate' Text
151+acmuContainerId :: Lens' AccountsContainersMacrosUpdate' Text
152−acmucContainerId
152+acmuContainerId
153− = lens _acmucContainerId
153+ = lens _acmuContainerId
154− (\ s a -> s{_acmucContainerId = a})
154+ (\ s a -> s{_acmuContainerId = a})
155
155
156-- | IP address of the site where the request originates. Use this if you
156-- | IP address of the site where the request originates. Use this if you
157-- want to enforce per-user limits.
157-- want to enforce per-user limits.
158−acmucUserIP :: Lens' AccountsContainersMacrosUpdate' (Maybe Text)
158+acmuUserIP :: Lens' AccountsContainersMacrosUpdate' (Maybe Text)
159−acmucUserIP
159+acmuUserIP
160− = lens _acmucUserIP (\ s a -> s{_acmucUserIP = a})
160+ = lens _acmuUserIP (\ s a -> s{_acmuUserIP = a})
161
161
162-- | When provided, this fingerprint must match the fingerprint of the macro
162-- | When provided, this fingerprint must match the fingerprint of the macro
163-- in storage.
163-- in storage.
164−acmucFingerprint :: Lens' AccountsContainersMacrosUpdate' (Maybe Text)
164+acmuFingerprint :: Lens' AccountsContainersMacrosUpdate' (Maybe Text)
165−acmucFingerprint
165+acmuFingerprint
166− = lens _acmucFingerprint
166+ = lens _acmuFingerprint
167− (\ s a -> s{_acmucFingerprint = a})
167+ (\ s a -> s{_acmuFingerprint = a})
168
168
169-- | The GTM Account ID.
169-- | The GTM Account ID.
170−acmucAccountId :: Lens' AccountsContainersMacrosUpdate' Text
170+acmuAccountId :: Lens' AccountsContainersMacrosUpdate' Text
171−acmucAccountId
171+acmuAccountId
172− = lens _acmucAccountId
172+ = lens _acmuAccountId
173− (\ s a -> s{_acmucAccountId = a})
173+ (\ s a -> s{_acmuAccountId = a})
174
174
175-- | API key. Your API key identifies your project and provides you with API
175-- | API key. Your API key identifies your project and provides you with API
176-- access, quota, and reports. Required unless you provide an OAuth 2.0
176-- access, quota, and reports. Required unless you provide an OAuth 2.0
177-- token.
177-- token.
178−acmucKey :: Lens' AccountsContainersMacrosUpdate' (Maybe Key)
178+acmuKey :: Lens' AccountsContainersMacrosUpdate' (Maybe Key)
179−acmucKey = lens _acmucKey (\ s a -> s{_acmucKey = a})
179+acmuKey = lens _acmuKey (\ s a -> s{_acmuKey = a})
180
180
181-- | The GTM Macro ID.
181-- | The GTM Macro ID.
182−acmucMacroId :: Lens' AccountsContainersMacrosUpdate' Text
182+acmuMacroId :: Lens' AccountsContainersMacrosUpdate' Text
183−acmucMacroId
183+acmuMacroId
184− = lens _acmucMacroId (\ s a -> s{_acmucMacroId = a})
184+ = lens _acmuMacroId (\ s a -> s{_acmuMacroId = a})
185
185
186-- | OAuth 2.0 token for the current user.
186-- | OAuth 2.0 token for the current user.
187−acmucOAuthToken :: Lens' AccountsContainersMacrosUpdate' (Maybe OAuthToken)
187+acmuOAuthToken :: Lens' AccountsContainersMacrosUpdate' (Maybe OAuthToken)
188−acmucOAuthToken
188+acmuOAuthToken
189− = lens _acmucOAuthToken
189+ = lens _acmuOAuthToken
190− (\ s a -> s{_acmucOAuthToken = a})
190+ (\ s a -> s{_acmuOAuthToken = a})
191
191
192-- | Selector specifying which fields to include in a partial response.
192-- | Selector specifying which fields to include in a partial response.
193−acmucFields :: Lens' AccountsContainersMacrosUpdate' (Maybe Text)
193+acmuFields :: Lens' AccountsContainersMacrosUpdate' (Maybe Text)
194−acmucFields
194+acmuFields
195− = lens _acmucFields (\ s a -> s{_acmucFields = a})
195+ = lens _acmuFields (\ s a -> s{_acmuFields = a})
196
196
197instance GoogleAuth AccountsContainersMacrosUpdate'
197instance GoogleAuth AccountsContainersMacrosUpdate'
198 where
198 where
199− authKey = acmucKey . _Just
199+ authKey = acmuKey . _Just
200− authToken = acmucOAuthToken . _Just
200+ authToken = acmuOAuthToken . _Just
201
201
202instance GoogleRequest
202instance GoogleRequest
203 AccountsContainersMacrosUpdate' where
203 AccountsContainersMacrosUpdate' where
@@ -205,17 +205,17 @@ instance GoogleRequest
205 request = requestWithRoute defReq tagManagerURL
205 request = requestWithRoute defReq tagManagerURL
206 requestWithRoute r u
206 requestWithRoute r u
207 AccountsContainersMacrosUpdate'{..}
207 AccountsContainersMacrosUpdate'{..}
208− = go _acmucQuotaUser (Just _acmucPrettyPrint)
208+ = go _acmuQuotaUser (Just _acmuPrettyPrint)
209− _acmucContainerId
209+ _acmuContainerId
210− _acmucUserIP
210+ _acmuUserIP
211− _acmucFingerprint
211+ _acmuFingerprint
212− _acmucAccountId
212+ _acmuAccountId
213− _acmucKey
213+ _acmuKey
214− _acmucMacroId
214+ _acmuMacroId
215− _acmucOAuthToken
215+ _acmuOAuthToken
216− _acmucFields
216+ _acmuFields
217 (Just AltJSON)
217 (Just AltJSON)
218− _acmucMacro
218+ _acmuMacro
219 where go
219 where go
220 = clientWithRoute
220 = clientWithRoute
221 (Proxy ::
221 (Proxy ::
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/MoveFolders/Update.hsnew file+236
@@ -0,0 +1,236 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
5+{-# LANGUAGE RecordWildCards #-}
6+{-# LANGUAGE TypeFamilies #-}
7+{-# LANGUAGE TypeOperators #-}
8+
9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11+
12+-- |
13+-- Module : Network.Google.Resource.TagManager.Accounts.Containers.MoveFolders.Update
14+-- Copyright : (c) 2015 Brendan Hay
15+-- License : Mozilla Public License, v. 2.0.
16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
17+-- Stability : auto-generated
18+-- Portability : non-portable (GHC extensions)
19+--
20+-- | Moves entities to a GTM Folder.
21+--
22+-- /See:/ <https://developers.google.com/tag-manager/api/v1/ Tag Manager API Reference> for @TagManagerAccountsContainersMove_foldersUpdate@.
23+module Network.Google.Resource.TagManager.Accounts.Containers.MoveFolders.Update
24+ (
25+ -- * REST Resource
26+ AccountsContainersMoveFoldersUpdateResource
27+
28+ -- * Creating a Request
29+ , accountsContainersMoveFoldersUpdate'
30+ , AccountsContainersMoveFoldersUpdate'
31+
32+ -- * Request Lenses
33+ , acmfuQuotaUser
34+ , acmfuPrettyPrint
35+ , acmfuContainerId
36+ , acmfuTriggerId
37+ , acmfuUserIP
38+ , acmfuVariableId
39+ , acmfuFolderId
40+ , acmfuAccountId
41+ , acmfuTagId
42+ , acmfuKey
43+ , acmfuOAuthToken
44+ , acmfuFields
45+ ) where
46+
47+import Network.Google.Prelude
48+import Network.Google.TagManager.Types
49+
50+-- | A resource alias for @TagManagerAccountsContainersMove_foldersUpdate@ which the
51+-- 'AccountsContainersMoveFoldersUpdate'' request conforms to.
52+type AccountsContainersMoveFoldersUpdateResource =
53+ "accounts" :>
54+ Capture "accountId" Text :>
55+ "containers" :>
56+ Capture "containerId" Text :>
57+ "move_folders" :>
58+ Capture "folderId" Text :>
59+ QueryParam "quotaUser" Text :>
60+ QueryParam "prettyPrint" Bool :>
61+ QueryParams "triggerId" Text :>
62+ QueryParam "userIp" Text :>
63+ QueryParams "variableId" Text :>
64+ QueryParams "tagId" Text :>
65+ QueryParam "key" Key :>
66+ QueryParam "oauth_token" OAuthToken :>
67+ QueryParam "fields" Text :>
68+ QueryParam "alt" AltJSON :> Put '[JSON] ()
69+
70+-- | Moves entities to a GTM Folder.
71+--
72+-- /See:/ 'accountsContainersMoveFoldersUpdate'' smart constructor.
73+data AccountsContainersMoveFoldersUpdate' = AccountsContainersMoveFoldersUpdate'
74+ { _acmfuQuotaUser :: !(Maybe Text)
75+ , _acmfuPrettyPrint :: !Bool
76+ , _acmfuContainerId :: !Text
77+ , _acmfuTriggerId :: !(Maybe Text)
78+ , _acmfuUserIP :: !(Maybe Text)
79+ , _acmfuVariableId :: !(Maybe Text)
80+ , _acmfuFolderId :: !Text
81+ , _acmfuAccountId :: !Text
82+ , _acmfuTagId :: !(Maybe Text)
83+ , _acmfuKey :: !(Maybe Key)
84+ , _acmfuOAuthToken :: !(Maybe OAuthToken)
85+ , _acmfuFields :: !(Maybe Text)
86+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
87+
88+-- | Creates a value of 'AccountsContainersMoveFoldersUpdate'' with the minimum fields required to make a request.
89+--
90+-- Use one of the following lenses to modify other fields as desired:
91+--
92+-- * 'acmfuQuotaUser'
93+--
94+-- * 'acmfuPrettyPrint'
95+--
96+-- * 'acmfuContainerId'
97+--
98+-- * 'acmfuTriggerId'
99+--
100+-- * 'acmfuUserIP'
101+--
102+-- * 'acmfuVariableId'
103+--
104+-- * 'acmfuFolderId'
105+--
106+-- * 'acmfuAccountId'
107+--
108+-- * 'acmfuTagId'
109+--
110+-- * 'acmfuKey'
111+--
112+-- * 'acmfuOAuthToken'
113+--
114+-- * 'acmfuFields'
115+accountsContainersMoveFoldersUpdate'
116+ :: Text -- ^ 'containerId'
117+ -> Text -- ^ 'folderId'
118+ -> Text -- ^ 'accountId'
119+ -> AccountsContainersMoveFoldersUpdate'
120+accountsContainersMoveFoldersUpdate' pAcmfuContainerId_ pAcmfuFolderId_ pAcmfuAccountId_ =
121+ AccountsContainersMoveFoldersUpdate'
122+ { _acmfuQuotaUser = Nothing
123+ , _acmfuPrettyPrint = True
124+ , _acmfuContainerId = pAcmfuContainerId_
125+ , _acmfuTriggerId = Nothing
126+ , _acmfuUserIP = Nothing
127+ , _acmfuVariableId = Nothing
128+ , _acmfuFolderId = pAcmfuFolderId_
129+ , _acmfuAccountId = pAcmfuAccountId_
130+ , _acmfuTagId = Nothing
131+ , _acmfuKey = Nothing
132+ , _acmfuOAuthToken = Nothing
133+ , _acmfuFields = Nothing
134+ }
135+
136+-- | Available to use for quota purposes for server-side applications. Can be
137+-- any arbitrary string assigned to a user, but should not exceed 40
138+-- characters. Overrides userIp if both are provided.
139+acmfuQuotaUser :: Lens' AccountsContainersMoveFoldersUpdate' (Maybe Text)
140+acmfuQuotaUser
141+ = lens _acmfuQuotaUser
142+ (\ s a -> s{_acmfuQuotaUser = a})
143+
144+-- | Returns response with indentations and line breaks.
145+acmfuPrettyPrint :: Lens' AccountsContainersMoveFoldersUpdate' Bool
146+acmfuPrettyPrint
147+ = lens _acmfuPrettyPrint
148+ (\ s a -> s{_acmfuPrettyPrint = a})
149+
150+-- | The GTM Container ID.
151+acmfuContainerId :: Lens' AccountsContainersMoveFoldersUpdate' Text
152+acmfuContainerId
153+ = lens _acmfuContainerId
154+ (\ s a -> s{_acmfuContainerId = a})
155+
156+-- | The triggers to be moved to the folder.
157+acmfuTriggerId :: Lens' AccountsContainersMoveFoldersUpdate' (Maybe Text)
158+acmfuTriggerId
159+ = lens _acmfuTriggerId
160+ (\ s a -> s{_acmfuTriggerId = a})
161+
162+-- | IP address of the site where the request originates. Use this if you
163+-- want to enforce per-user limits.
164+acmfuUserIP :: Lens' AccountsContainersMoveFoldersUpdate' (Maybe Text)
165+acmfuUserIP
166+ = lens _acmfuUserIP (\ s a -> s{_acmfuUserIP = a})
167+
168+-- | The variables to be moved to the folder.
169+acmfuVariableId :: Lens' AccountsContainersMoveFoldersUpdate' (Maybe Text)
170+acmfuVariableId
171+ = lens _acmfuVariableId
172+ (\ s a -> s{_acmfuVariableId = a})
173+
174+-- | The GTM Folder ID.
175+acmfuFolderId :: Lens' AccountsContainersMoveFoldersUpdate' Text
176+acmfuFolderId
177+ = lens _acmfuFolderId
178+ (\ s a -> s{_acmfuFolderId = a})
179+
180+-- | The GTM Account ID.
181+acmfuAccountId :: Lens' AccountsContainersMoveFoldersUpdate' Text
182+acmfuAccountId
183+ = lens _acmfuAccountId
184+ (\ s a -> s{_acmfuAccountId = a})
185+
186+-- | The tags to be moved to the folder.
187+acmfuTagId :: Lens' AccountsContainersMoveFoldersUpdate' (Maybe Text)
188+acmfuTagId
189+ = lens _acmfuTagId (\ s a -> s{_acmfuTagId = a})
190+
191+-- | API key. Your API key identifies your project and provides you with API
192+-- access, quota, and reports. Required unless you provide an OAuth 2.0
193+-- token.
194+acmfuKey :: Lens' AccountsContainersMoveFoldersUpdate' (Maybe Key)
195+acmfuKey = lens _acmfuKey (\ s a -> s{_acmfuKey = a})
196+
197+-- | OAuth 2.0 token for the current user.
198+acmfuOAuthToken :: Lens' AccountsContainersMoveFoldersUpdate' (Maybe OAuthToken)
199+acmfuOAuthToken
200+ = lens _acmfuOAuthToken
201+ (\ s a -> s{_acmfuOAuthToken = a})
202+
203+-- | Selector specifying which fields to include in a partial response.
204+acmfuFields :: Lens' AccountsContainersMoveFoldersUpdate' (Maybe Text)
205+acmfuFields
206+ = lens _acmfuFields (\ s a -> s{_acmfuFields = a})
207+
208+instance GoogleAuth
209+ AccountsContainersMoveFoldersUpdate' where
210+ authKey = acmfuKey . _Just
211+ authToken = acmfuOAuthToken . _Just
212+
213+instance GoogleRequest
214+ AccountsContainersMoveFoldersUpdate' where
215+ type Rs AccountsContainersMoveFoldersUpdate' = ()
216+ request = requestWithRoute defReq tagManagerURL
217+ requestWithRoute r u
218+ AccountsContainersMoveFoldersUpdate'{..}
219+ = go _acmfuQuotaUser (Just _acmfuPrettyPrint)
220+ _acmfuContainerId
221+ _acmfuTriggerId
222+ _acmfuUserIP
223+ _acmfuVariableId
224+ _acmfuFolderId
225+ _acmfuAccountId
226+ _acmfuTagId
227+ _acmfuKey
228+ _acmfuOAuthToken
229+ _acmfuFields
230+ (Just AltJSON)
231+ where go
232+ = clientWithRoute
233+ (Proxy ::
234+ Proxy AccountsContainersMoveFoldersUpdateResource)
235+ r
236+ u
gogol-tagmanager/gen/Network/Google/Resource/TagManager/Accounts/Containers/Move_folders/Update.hsdeleted−235
@@ -1,235 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE OverloadedStrings #-}
5−{-# LANGUAGE RecordWildCards #-}
6−{-# LANGUAGE TypeFamilies #-}
7−{-# LANGUAGE TypeOperators #-}
8−
9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11−
12−-- |
13−-- Module : Network.Google.Resource.TagManager.Accounts.Containers.Move_folders.Update
14−-- Copyright : (c) 2015 Brendan Hay
15−-- License : Mozilla Public License, v. 2.0.
16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
17−-- Stability : auto-generated
18−-- Portability : non-portable (GHC extensions)
19−--
20−-- | Moves entities to a GTM Folder.
21−--
22−-- /See:/ <https://developers.google.com/tag-manager/api/v1/ Tag Manager API Reference> for @TagManagerAccountsContainersMove_foldersUpdate@.
23−module Network.Google.Resource.TagManager.Accounts.Containers.Move_folders.Update
24− (
25− -- * REST Resource
26− AccountsContainersMove_foldersUpdateResource
27−
28− -- * Creating a Request
29− , accountsContainersMove_foldersUpdate'
30− , AccountsContainersMove_foldersUpdate'
31−
32− -- * Request Lenses
33− , acmuQuotaUser
34− , acmuPrettyPrint
35− , acmuContainerId
36− , acmuTriggerId
37− , acmuUserIP
38− , acmuVariableId
39− , acmuFolderId
40− , acmuAccountId
41− , acmuTagId
42− , acmuKey
43− , acmuOAuthToken
44− , acmuFields
45− ) where
46−
47−import Network.Google.Prelude
48−import Network.Google.TagManager.Types
49−
50−-- | A resource alias for @TagManagerAccountsContainersMove_foldersUpdate@ which the
51−-- 'AccountsContainersMove_foldersUpdate'' request conforms to.
52−type AccountsContainersMove_foldersUpdateResource =
53− "accounts" :>
54− Capture "accountId" Text :>
55− "containers" :>
56− Capture "containerId" Text :>
57− "move_folders" :>
58− Capture "folderId" Text :>
59− QueryParam "quotaUser" Text :>
60− QueryParam "prettyPrint" Bool :>
61− QueryParams "triggerId" Text :>
62− QueryParam "userIp" Text :>
63− QueryParams "variableId" Text :>
64− QueryParams "tagId" Text :>
65− QueryParam "key" Key :>
66− QueryParam "oauth_token" OAuthToken :>
67− QueryParam "fields" Text :>
68− QueryParam "alt" AltJSON :> Put '[JSON] ()
69−
70−-- | Moves entities to a GTM Folder.
71−--
72−-- /See:/ 'accountsContainersMove_foldersUpdate'' smart constructor.
73−data AccountsContainersMove_foldersUpdate' = AccountsContainersMove_foldersUpdate'
74− { _acmuQuotaUser :: !(Maybe Text)
75− , _acmuPrettyPrint :: !Bool
76− , _acmuContainerId :: !Text
77− , _acmuTriggerId :: !(Maybe Text)
78− , _acmuUserIP :: !(Maybe Text)
79− , _acmuVariableId :: !(Maybe Text)
80− , _acmuFolderId :: !Text
81− , _acmuAccountId :: !Text
82− , _acmuTagId :: !(Maybe Text)
83− , _acmuKey :: !(Maybe Key)
84− , _acmuOAuthToken :: !(Maybe OAuthToken)
85− , _acmuFields :: !(Maybe Text)
86− } deriving (Eq,Read,Show,Data,Typeable,Generic)
87−
88−-- | Creates a value of 'AccountsContainersMove_foldersUpdate'' with the minimum fields required to make a request.
89−--
90−-- Use one of the following lenses to modify other fields as desired:
91−--
92−-- * 'acmuQuotaUser'
93−--
94−-- * 'acmuPrettyPrint'
95−--
96−-- * 'acmuContainerId'
97−--
98−-- * 'acmuTriggerId'
99−--
100−-- * 'acmuUserIP'
101−--
102−-- * 'acmuVariableId'
103−--
104−-- * 'acmuFolderId'
105−--
106−-- * 'acmuAccountId'
107−--
108−-- * 'acmuTagId'
109−--
110−-- * 'acmuKey'
111−--
112−-- * 'acmuOAuthToken'
113−--
114−-- * 'acmuFields'
115−accountsContainersMove_foldersUpdate'
116− :: Text -- ^ 'containerId'
117− -> Text -- ^ 'folderId'
118− -> Text -- ^ 'accountId'
119− -> AccountsContainersMove_foldersUpdate'
120−accountsContainersMove_foldersUpdate' pAcmuContainerId_ pAcmuFolderId_ pAcmuAccountId_ =
121− AccountsContainersMove_foldersUpdate'
122− { _acmuQuotaUser = Nothing
123− , _acmuPrettyPrint = True
124− , _acmuContainerId = pAcmuContainerId_
125− , _acmuTriggerId = Nothing
126− , _acmuUserIP = Nothing
127− , _acmuVariableId = Nothing
128− , _acmuFolderId = pAcmuFolderId_
129− , _acmuAccountId = pAcmuAccountId_
130− , _acmuTagId = Nothing
131− , _acmuKey = Nothing
132− , _acmuOAuthToken = Nothing
133− , _acmuFields = Nothing
134− }
135−
136−-- | Available to use for quota purposes for server-side applications. Can be
137−-- any arbitrary string assigned to a user, but should not exceed 40
138−-- characters. Overrides userIp if both are provided.
139−acmuQuotaUser :: Lens' AccountsContainersMove_foldersUpdate' (Maybe Text)
140−acmuQuotaUser
141− = lens _acmuQuotaUser
142− (\ s a -> s{_acmuQuotaUser = a})
143−
144−-- | Returns response with indentations and line breaks.
145−acmuPrettyPrint :: Lens' AccountsContainersMove_foldersUpdate' Bool
146−acmuPrettyPrint
147− = lens _acmuPrettyPrint
148− (\ s a -> s{_acmuPrettyPrint = a})
149−
150−-- | The GTM Container ID.
151−acmuContainerId :: Lens' AccountsContainersMove_foldersUpdate' Text
152−acmuContainerId
153− = lens _acmuContainerId
154− (\ s a -> s{_acmuContainerId = a})
155−
156−-- | The triggers to be moved to the folder.
157−acmuTriggerId :: Lens' AccountsContainersMove_foldersUpdate' (Maybe Text)
158−acmuTriggerId
159− = lens _acmuTriggerId
160− (\ s a -> s{_acmuTriggerId = a})
161−
162−-- | IP address of the site where the request originates. Use this if you
163−-- want to enforce per-user limits.
164−acmuUserIP :: Lens' AccountsContainersMove_foldersUpdate' (Maybe Text)
165−acmuUserIP
166− = lens _acmuUserIP (\ s a -> s{_acmuUserIP = a})
167−
168−-- | The variables to be moved to the folder.
169−acmuVariableId :: Lens' AccountsContainersMove_foldersUpdate' (Maybe Text)
170−acmuVariableId
171− = lens _acmuVariableId
172− (\ s a -> s{_acmuVariableId = a})
173−
174−-- | The GTM Folder ID.
175−acmuFolderId :: Lens' AccountsContainersMove_foldersUpdate' Text
176−acmuFolderId
177− = lens _acmuFolderId (\ s a -> s{_acmuFolderId = a})
178−
179−-- | The GTM Account ID.
180−acmuAccountId :: Lens' AccountsContainersMove_foldersUpdate' Text
181−acmuAccountId
182− = lens _acmuAccountId
183− (\ s a -> s{_acmuAccountId = a})
184−
185−-- | The tags to be moved to the folder.
186−acmuTagId :: Lens' AccountsContainersMove_foldersUpdate' (Maybe Text)
187−acmuTagId
188− = lens _acmuTagId (\ s a -> s{_acmuTagId = a})
189−
190−-- | API key. Your API key identifies your project and provides you with API
191−-- access, quota, and reports. Required unless you provide an OAuth 2.0
192−-- token.
193−acmuKey :: Lens' AccountsContainersMove_foldersUpdate' (Maybe Key)
194−acmuKey = lens _acmuKey (\ s a -> s{_acmuKey = a})
195−
196−-- | OAuth 2.0 token for the current user.
197−acmuOAuthToken :: Lens' AccountsContainersMove_foldersUpdate' (Maybe OAuthToken)
198−acmuOAuthToken
199− = lens _acmuOAuthToken
200− (\ s a -> s{_acmuOAuthToken = a})
201−
202−-- | Selector specifying which fields to include in a partial response.
203−acmuFields :: Lens' AccountsContainersMove_foldersUpdate' (Maybe Text)
204−acmuFields
205− = lens _acmuFields (\ s a -> s{_acmuFields = a})
206−
207−instance GoogleAuth
208− AccountsContainersMove_foldersUpdate' where
209− authKey = acmuKey . _Just
210− authToken = acmuOAuthToken . _Just
211−
212−instance GoogleRequest
213− AccountsContainersMove_foldersUpdate' where
214− type Rs AccountsContainersMove_foldersUpdate' = ()
215− request = requestWithRoute defReq tagManagerURL
216− requestWithRoute r u
217− AccountsContainersMove_foldersUpdate'{..}
218− = go _acmuQuotaUser (Just _acmuPrettyPrint)
219− _acmuContainerId
220− _acmuTriggerId
221− _acmuUserIP
222− _acmuVariableId
223− _acmuFolderId
224− _acmuAccountId
225− _acmuTagId
226− _acmuKey
227− _acmuOAuthToken
228− _acmuFields
229− (Just AltJSON)
230− where go
231− = clientWithRoute
232− (Proxy ::
233− Proxy AccountsContainersMove_foldersUpdateResource)
234− r
235− u
gogol-tagmanager/gen/Network/Google/TagManager.hs+4−4
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | API for accessing Tag Manager accounts and containers.
15+-- | API for accessing Tag Manager accounts and containers.
16--
16--
17-- /See:/ <https://developers.google.com/tag-manager/api/v1/ Tag Manager API Reference>
17-- /See:/ <https://developers.google.com/tag-manager/api/v1/ Tag Manager API Reference>
18module Network.Google.TagManager
18module Network.Google.TagManager
@@ -72,7 +72,7 @@ module Network.Google.TagManager
72 , module Network.Google.Resource.TagManager.Accounts.Containers.Macros.Update
72 , module Network.Google.Resource.TagManager.Accounts.Containers.Macros.Update
73
73
74 -- ** TagManagerAccountsContainersMove_foldersUpdate
74 -- ** TagManagerAccountsContainersMove_foldersUpdate
75− , module Network.Google.Resource.TagManager.Accounts.Containers.Move_folders.Update
75+ , module Network.Google.Resource.TagManager.Accounts.Containers.MoveFolders.Update
76
76
77 -- ** TagManagerAccountsContainersRulesCreate
77 -- ** TagManagerAccountsContainersRulesCreate
78 , module Network.Google.Resource.TagManager.Accounts.Containers.Rules.Create
78 , module Network.Google.Resource.TagManager.Accounts.Containers.Rules.Create
@@ -508,7 +508,7 @@ import Network.Google.Resource.TagManager.Accounts.Containers.Macros.D
508import Network.Google.Resource.TagManager.Accounts.Containers.Macros.Get
508import Network.Google.Resource.TagManager.Accounts.Containers.Macros.Get
509import Network.Google.Resource.TagManager.Accounts.Containers.Macros.List
509import Network.Google.Resource.TagManager.Accounts.Containers.Macros.List
510import Network.Google.Resource.TagManager.Accounts.Containers.Macros.Update
510import Network.Google.Resource.TagManager.Accounts.Containers.Macros.Update
511−import Network.Google.Resource.TagManager.Accounts.Containers.Move_folders.Update
511+import Network.Google.Resource.TagManager.Accounts.Containers.MoveFolders.Update
512import Network.Google.Resource.TagManager.Accounts.Containers.Rules.Create
512import Network.Google.Resource.TagManager.Accounts.Containers.Rules.Create
513import Network.Google.Resource.TagManager.Accounts.Containers.Rules.Delete
513import Network.Google.Resource.TagManager.Accounts.Containers.Rules.Delete
514import Network.Google.Resource.TagManager.Accounts.Containers.Rules.Get
514import Network.Google.Resource.TagManager.Accounts.Containers.Rules.Get
@@ -582,7 +582,7 @@ type TagManagerAPI =
582 :<|> AccountsContainersVersionsDeleteResource
582 :<|> AccountsContainersVersionsDeleteResource
583 :<|> AccountsContainersVersionsUpdateResource
583 :<|> AccountsContainersVersionsUpdateResource
584 :<|> AccountsContainersVersionsPublishResource
584 :<|> AccountsContainersVersionsPublishResource
585− :<|> AccountsContainersMove_foldersUpdateResource
585+ :<|> AccountsContainersMoveFoldersUpdateResource
586 :<|> AccountsContainersMacrosListResource
586 :<|> AccountsContainersMacrosListResource
587 :<|> AccountsContainersMacrosGetResource
587 :<|> AccountsContainersMacrosGetResource
588 :<|> AccountsContainersMacrosCreateResource
588 :<|> AccountsContainersMacrosCreateResource
gogol-tagmanager/gen/Network/Google/TagManager/Types/Sum.hs+126−126
@@ -304,89 +304,89 @@ instance ToJSON ParameterType where
304 toJSON = toJSONText
304 toJSON = toJSONText
305
305
306data ContainerEnabledBuiltInVariable
306data ContainerEnabledBuiltInVariable
307− = AdvertiserId
307+ = CEBIVAdvertiserId
308 -- ^ @advertiserId@
308 -- ^ @advertiserId@
309− | AdvertisingTrackingEnabled
309+ | CEBIVAdvertisingTrackingEnabled
310 -- ^ @advertisingTrackingEnabled@
310 -- ^ @advertisingTrackingEnabled@
311− | AppId
311+ | CEBIVAppId
312 -- ^ @appId@
312 -- ^ @appId@
313− | AppName
313+ | CEBIVAppName
314 -- ^ @appName@
314 -- ^ @appName@
315− | AppVersionCode
315+ | CEBIVAppVersionCode
316 -- ^ @appVersionCode@
316 -- ^ @appVersionCode@
317− | AppVersionName
317+ | CEBIVAppVersionName
318 -- ^ @appVersionName@
318 -- ^ @appVersionName@
319− | ClickClasses
319+ | CEBIVClickClasses
320 -- ^ @clickClasses@
320 -- ^ @clickClasses@
321− | ClickElement
321+ | CEBIVClickElement
322 -- ^ @clickElement@
322 -- ^ @clickElement@
323− | ClickId
323+ | CEBIVClickId
324 -- ^ @clickId@
324 -- ^ @clickId@
325− | ClickTarget
325+ | CEBIVClickTarget
326 -- ^ @clickTarget@
326 -- ^ @clickTarget@
327− | ClickText
327+ | CEBIVClickText
328 -- ^ @clickText@
328 -- ^ @clickText@
329− | ClickURL
329+ | CEBIVClickURL
330 -- ^ @clickUrl@
330 -- ^ @clickUrl@
331− | ContainerId
331+ | CEBIVContainerId
332 -- ^ @containerId@
332 -- ^ @containerId@
333− | ContainerVersion
333+ | CEBIVContainerVersion
334 -- ^ @containerVersion@
334 -- ^ @containerVersion@
335− | DebugMode
335+ | CEBIVDebugMode
336 -- ^ @debugMode@
336 -- ^ @debugMode@
337− | DeviceName
337+ | CEBIVDeviceName
338 -- ^ @deviceName@
338 -- ^ @deviceName@
339− | ErrorLine
339+ | CEBIVErrorLine
340 -- ^ @errorLine@
340 -- ^ @errorLine@
341− | ErrorMessage
341+ | CEBIVErrorMessage
342 -- ^ @errorMessage@
342 -- ^ @errorMessage@
343− | ErrorURL
343+ | CEBIVErrorURL
344 -- ^ @errorUrl@
344 -- ^ @errorUrl@
345− | Event
345+ | CEBIVEvent
346 -- ^ @event@
346 -- ^ @event@
347− | FormClasses
347+ | CEBIVFormClasses
348 -- ^ @formClasses@
348 -- ^ @formClasses@
349− | FormElement
349+ | CEBIVFormElement
350 -- ^ @formElement@
350 -- ^ @formElement@
351− | FormId
351+ | CEBIVFormId
352 -- ^ @formId@
352 -- ^ @formId@
353− | FormTarget
353+ | CEBIVFormTarget
354 -- ^ @formTarget@
354 -- ^ @formTarget@
355− | FormText
355+ | CEBIVFormText
356 -- ^ @formText@
356 -- ^ @formText@
357− | FormURL
357+ | CEBIVFormURL
358 -- ^ @formUrl@
358 -- ^ @formUrl@
359− | HistorySource
359+ | CEBIVHistorySource
360 -- ^ @historySource@
360 -- ^ @historySource@
361− | HTMLId
361+ | CEBIVHTMLId
362 -- ^ @htmlId@
362 -- ^ @htmlId@
363− | Language
363+ | CEBIVLanguage
364 -- ^ @language@
364 -- ^ @language@
365− | NewHistoryFragment
365+ | CEBIVNewHistoryFragment
366 -- ^ @newHistoryFragment@
366 -- ^ @newHistoryFragment@
367− | NewHistoryState
367+ | CEBIVNewHistoryState
368 -- ^ @newHistoryState@
368 -- ^ @newHistoryState@
369− | OldHistoryFragment
369+ | CEBIVOldHistoryFragment
370 -- ^ @oldHistoryFragment@
370 -- ^ @oldHistoryFragment@
371− | OldHistoryState
371+ | CEBIVOldHistoryState
372 -- ^ @oldHistoryState@
372 -- ^ @oldHistoryState@
373− | OSVersion
373+ | CEBIVOSVersion
374 -- ^ @osVersion@
374 -- ^ @osVersion@
375− | PageHostname
375+ | CEBIVPageHostname
376 -- ^ @pageHostname@
376 -- ^ @pageHostname@
377− | PagePath
377+ | CEBIVPagePath
378 -- ^ @pagePath@
378 -- ^ @pagePath@
379− | PageURL
379+ | CEBIVPageURL
380 -- ^ @pageUrl@
380 -- ^ @pageUrl@
381− | Platform
381+ | CEBIVPlatform
382 -- ^ @platform@
382 -- ^ @platform@
383− | RandomNumber
383+ | CEBIVRandomNumber
384 -- ^ @randomNumber@
384 -- ^ @randomNumber@
385− | Referrer
385+ | CEBIVReferrer
386 -- ^ @referrer@
386 -- ^ @referrer@
387− | Resolution
387+ | CEBIVResolution
388 -- ^ @resolution@
388 -- ^ @resolution@
389− | SdkVersion
389+ | CEBIVSdkVersion
390 -- ^ @sdkVersion@
390 -- ^ @sdkVersion@
391 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
391 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
392
392
@@ -394,94 +394,94 @@ instance Hashable ContainerEnabledBuiltInVariable
394
394
395instance FromText ContainerEnabledBuiltInVariable where
395instance FromText ContainerEnabledBuiltInVariable where
396 fromText = \case
396 fromText = \case
397− "advertiserId" -> Just AdvertiserId
397+ "advertiserId" -> Just CEBIVAdvertiserId
398− "advertisingTrackingEnabled" -> Just AdvertisingTrackingEnabled
398+ "advertisingTrackingEnabled" -> Just CEBIVAdvertisingTrackingEnabled
399− "appId" -> Just AppId
399+ "appId" -> Just CEBIVAppId
400− "appName" -> Just AppName
400+ "appName" -> Just CEBIVAppName
401− "appVersionCode" -> Just AppVersionCode
401+ "appVersionCode" -> Just CEBIVAppVersionCode
402− "appVersionName" -> Just AppVersionName
402+ "appVersionName" -> Just CEBIVAppVersionName
403− "clickClasses" -> Just ClickClasses
403+ "clickClasses" -> Just CEBIVClickClasses
404− "clickElement" -> Just ClickElement
404+ "clickElement" -> Just CEBIVClickElement
405− "clickId" -> Just ClickId
405+ "clickId" -> Just CEBIVClickId
406− "clickTarget" -> Just ClickTarget
406+ "clickTarget" -> Just CEBIVClickTarget
407− "clickText" -> Just ClickText
407+ "clickText" -> Just CEBIVClickText
408− "clickUrl" -> Just ClickURL
408+ "clickUrl" -> Just CEBIVClickURL
409− "containerId" -> Just ContainerId
409+ "containerId" -> Just CEBIVContainerId
410− "containerVersion" -> Just ContainerVersion
410+ "containerVersion" -> Just CEBIVContainerVersion
411− "debugMode" -> Just DebugMode
411+ "debugMode" -> Just CEBIVDebugMode
412− "deviceName" -> Just DeviceName
412+ "deviceName" -> Just CEBIVDeviceName
413− "errorLine" -> Just ErrorLine
413+ "errorLine" -> Just CEBIVErrorLine
414− "errorMessage" -> Just ErrorMessage
414+ "errorMessage" -> Just CEBIVErrorMessage
415− "errorUrl" -> Just ErrorURL
415+ "errorUrl" -> Just CEBIVErrorURL
416− "event" -> Just Event
416+ "event" -> Just CEBIVEvent
417− "formClasses" -> Just FormClasses
417+ "formClasses" -> Just CEBIVFormClasses
418− "formElement" -> Just FormElement
418+ "formElement" -> Just CEBIVFormElement
419− "formId" -> Just FormId
419+ "formId" -> Just CEBIVFormId
420− "formTarget" -> Just FormTarget
420+ "formTarget" -> Just CEBIVFormTarget
421− "formText" -> Just FormText
421+ "formText" -> Just CEBIVFormText
422− "formUrl" -> Just FormURL
422+ "formUrl" -> Just CEBIVFormURL
423− "historySource" -> Just HistorySource
423+ "historySource" -> Just CEBIVHistorySource
424− "htmlId" -> Just HTMLId
424+ "htmlId" -> Just CEBIVHTMLId
425− "language" -> Just Language
425+ "language" -> Just CEBIVLanguage
426− "newHistoryFragment" -> Just NewHistoryFragment
426+ "newHistoryFragment" -> Just CEBIVNewHistoryFragment
427− "newHistoryState" -> Just NewHistoryState
427+ "newHistoryState" -> Just CEBIVNewHistoryState
428− "oldHistoryFragment" -> Just OldHistoryFragment
428+ "oldHistoryFragment" -> Just CEBIVOldHistoryFragment
429− "oldHistoryState" -> Just OldHistoryState
429+ "oldHistoryState" -> Just CEBIVOldHistoryState
430− "osVersion" -> Just OSVersion
430+ "osVersion" -> Just CEBIVOSVersion
431− "pageHostname" -> Just PageHostname
431+ "pageHostname" -> Just CEBIVPageHostname
432− "pagePath" -> Just PagePath
432+ "pagePath" -> Just CEBIVPagePath
433− "pageUrl" -> Just PageURL
433+ "pageUrl" -> Just CEBIVPageURL
434− "platform" -> Just Platform
434+ "platform" -> Just CEBIVPlatform
435− "randomNumber" -> Just RandomNumber
435+ "randomNumber" -> Just CEBIVRandomNumber
436− "referrer" -> Just Referrer
436+ "referrer" -> Just CEBIVReferrer
437− "resolution" -> Just Resolution
437+ "resolution" -> Just CEBIVResolution
438− "sdkVersion" -> Just SdkVersion
438+ "sdkVersion" -> Just CEBIVSdkVersion
439 _ -> Nothing
439 _ -> Nothing
440
440
441instance ToText ContainerEnabledBuiltInVariable where
441instance ToText ContainerEnabledBuiltInVariable where
442 toText = \case
442 toText = \case
443− AdvertiserId -> "advertiserId"
443+ CEBIVAdvertiserId -> "advertiserId"
444− AdvertisingTrackingEnabled -> "advertisingTrackingEnabled"
444+ CEBIVAdvertisingTrackingEnabled -> "advertisingTrackingEnabled"
445− AppId -> "appId"
445+ CEBIVAppId -> "appId"
446− AppName -> "appName"
446+ CEBIVAppName -> "appName"
447− AppVersionCode -> "appVersionCode"
447+ CEBIVAppVersionCode -> "appVersionCode"
448− AppVersionName -> "appVersionName"
448+ CEBIVAppVersionName -> "appVersionName"
449− ClickClasses -> "clickClasses"
449+ CEBIVClickClasses -> "clickClasses"
450− ClickElement -> "clickElement"
450+ CEBIVClickElement -> "clickElement"
451− ClickId -> "clickId"
451+ CEBIVClickId -> "clickId"
452− ClickTarget -> "clickTarget"
452+ CEBIVClickTarget -> "clickTarget"
453− ClickText -> "clickText"
453+ CEBIVClickText -> "clickText"
454− ClickURL -> "clickUrl"
454+ CEBIVClickURL -> "clickUrl"
455− ContainerId -> "containerId"
455+ CEBIVContainerId -> "containerId"
456− ContainerVersion -> "containerVersion"
456+ CEBIVContainerVersion -> "containerVersion"
457− DebugMode -> "debugMode"
457+ CEBIVDebugMode -> "debugMode"
458− DeviceName -> "deviceName"
458+ CEBIVDeviceName -> "deviceName"
459− ErrorLine -> "errorLine"
459+ CEBIVErrorLine -> "errorLine"
460− ErrorMessage -> "errorMessage"
460+ CEBIVErrorMessage -> "errorMessage"
461− ErrorURL -> "errorUrl"
461+ CEBIVErrorURL -> "errorUrl"
462− Event -> "event"
462+ CEBIVEvent -> "event"
463− FormClasses -> "formClasses"
463+ CEBIVFormClasses -> "formClasses"
464− FormElement -> "formElement"
464+ CEBIVFormElement -> "formElement"
465− FormId -> "formId"
465+ CEBIVFormId -> "formId"
466− FormTarget -> "formTarget"
466+ CEBIVFormTarget -> "formTarget"
467− FormText -> "formText"
467+ CEBIVFormText -> "formText"
468− FormURL -> "formUrl"
468+ CEBIVFormURL -> "formUrl"
469− HistorySource -> "historySource"
469+ CEBIVHistorySource -> "historySource"
470− HTMLId -> "htmlId"
470+ CEBIVHTMLId -> "htmlId"
471− Language -> "language"
471+ CEBIVLanguage -> "language"
472− NewHistoryFragment -> "newHistoryFragment"
472+ CEBIVNewHistoryFragment -> "newHistoryFragment"
473− NewHistoryState -> "newHistoryState"
473+ CEBIVNewHistoryState -> "newHistoryState"
474− OldHistoryFragment -> "oldHistoryFragment"
474+ CEBIVOldHistoryFragment -> "oldHistoryFragment"
475− OldHistoryState -> "oldHistoryState"
475+ CEBIVOldHistoryState -> "oldHistoryState"
476− OSVersion -> "osVersion"
476+ CEBIVOSVersion -> "osVersion"
477− PageHostname -> "pageHostname"
477+ CEBIVPageHostname -> "pageHostname"
478− PagePath -> "pagePath"
478+ CEBIVPagePath -> "pagePath"
479− PageURL -> "pageUrl"
479+ CEBIVPageURL -> "pageUrl"
480− Platform -> "platform"
480+ CEBIVPlatform -> "platform"
481− RandomNumber -> "randomNumber"
481+ CEBIVRandomNumber -> "randomNumber"
482− Referrer -> "referrer"
482+ CEBIVReferrer -> "referrer"
483− Resolution -> "resolution"
483+ CEBIVResolution -> "resolution"
484− SdkVersion -> "sdkVersion"
484+ CEBIVSdkVersion -> "sdkVersion"
485
485
486instance FromJSON ContainerEnabledBuiltInVariable where
486instance FromJSON ContainerEnabledBuiltInVariable where
487 parseJSON = parseJSONText "ContainerEnabledBuiltInVariable"
487 parseJSON = parseJSONText "ContainerEnabledBuiltInVariable"
gogol-tagmanager/gogol-tagmanager.cabal+1−1
@@ -45,7 +45,7 @@ library
45 , Network.Google.Resource.TagManager.Accounts.Containers.Macros.Get
45 , Network.Google.Resource.TagManager.Accounts.Containers.Macros.Get
46 , Network.Google.Resource.TagManager.Accounts.Containers.Macros.List
46 , Network.Google.Resource.TagManager.Accounts.Containers.Macros.List
47 , Network.Google.Resource.TagManager.Accounts.Containers.Macros.Update
47 , Network.Google.Resource.TagManager.Accounts.Containers.Macros.Update
48− , Network.Google.Resource.TagManager.Accounts.Containers.Move_folders.Update
48+ , Network.Google.Resource.TagManager.Accounts.Containers.MoveFolders.Update
49 , Network.Google.Resource.TagManager.Accounts.Containers.Rules.Create
49 , Network.Google.Resource.TagManager.Accounts.Containers.Rules.Create
50 , Network.Google.Resource.TagManager.Accounts.Containers.Rules.Delete
50 , Network.Google.Resource.TagManager.Accounts.Containers.Rules.Delete
51 , Network.Google.Resource.TagManager.Accounts.Containers.Rules.Get
51 , Network.Google.Resource.TagManager.Accounts.Containers.Rules.Get
gogol-translate/gen/Network/Google/Translate.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets you translate text from one language to another
15+-- | Lets you translate text from one language to another
16--
16--
17-- /See:/ <https://developers.google.com/translate/v2/using_rest Translate API Reference>
17-- /See:/ <https://developers.google.com/translate/v2/using_rest Translate API Reference>
18module Network.Google.Translate
18module Network.Google.Translate
gogol-urlshortener/gen/Network/Google/Resource/URLShortener/URL/Get.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.URLShortener.URL.Get
23module Network.Google.Resource.URLShortener.URL.Get
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− UrlGetResource
26+ URLGetResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , uRLGet'
29 , uRLGet'
@@ -45,7 +45,7 @@ import Network.Google.URLShortener.Types
45
45
46-- | A resource alias for @URLshortenerURLGet@ which the
46-- | A resource alias for @URLshortenerURLGet@ which the
47-- 'URLGet'' request conforms to.
47-- 'URLGet'' request conforms to.
48−type UrlGetResource =
48+type URLGetResource =
49 "url" :>
49 "url" :>
50 QueryParam "quotaUser" Text :>
50 QueryParam "quotaUser" Text :>
51 QueryParam "prettyPrint" Bool :>
51 QueryParam "prettyPrint" Bool :>
@@ -165,4 +165,4 @@ instance GoogleRequest URLGet' where
165 _ugFields
165 _ugFields
166 (Just AltJSON)
166 (Just AltJSON)
167 where go
167 where go
168− = clientWithRoute (Proxy :: Proxy UrlGetResource) r u
168+ = clientWithRoute (Proxy :: Proxy URLGetResource) r u
gogol-urlshortener/gen/Network/Google/Resource/URLShortener/URL/Insert.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.URLShortener.URL.Insert
23module Network.Google.Resource.URLShortener.URL.Insert
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− UrlInsertResource
26+ URLInsertResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , uRLInsert'
29 , uRLInsert'
@@ -44,7 +44,7 @@ import Network.Google.URLShortener.Types
44
44
45-- | A resource alias for @URLshortenerURLInsert@ which the
45-- | A resource alias for @URLshortenerURLInsert@ which the
46-- 'URLInsert'' request conforms to.
46-- 'URLInsert'' request conforms to.
47−type UrlInsertResource =
47+type URLInsertResource =
48 "url" :>
48 "url" :>
49 QueryParam "quotaUser" Text :>
49 QueryParam "quotaUser" Text :>
50 QueryParam "prettyPrint" Bool :>
50 QueryParam "prettyPrint" Bool :>
@@ -151,6 +151,6 @@ instance GoogleRequest URLInsert' where
151 (Just AltJSON)
151 (Just AltJSON)
152 _uiURL
152 _uiURL
153 where go
153 where go
154− = clientWithRoute (Proxy :: Proxy UrlInsertResource)
154+ = clientWithRoute (Proxy :: Proxy URLInsertResource)
155 r
155 r
156 u
156 u
gogol-urlshortener/gen/Network/Google/Resource/URLShortener/URL/List.hs+3−3
@@ -23,7 +23,7 @@
23module Network.Google.Resource.URLShortener.URL.List
23module Network.Google.Resource.URLShortener.URL.List
24 (
24 (
25 -- * REST Resource
25 -- * REST Resource
26− UrlListResource
26+ URLListResource
27
27
28 -- * Creating a Request
28 -- * Creating a Request
29 , uRLList'
29 , uRLList'
@@ -45,7 +45,7 @@ import Network.Google.URLShortener.Types
45
45
46-- | A resource alias for @URLshortenerURLList@ which the
46-- | A resource alias for @URLshortenerURLList@ which the
47-- 'URLList'' request conforms to.
47-- 'URLList'' request conforms to.
48−type UrlListResource =
48+type URLListResource =
49 "url" :>
49 "url" :>
50 "history" :>
50 "history" :>
51 QueryParam "quotaUser" Text :>
51 QueryParam "quotaUser" Text :>
@@ -165,5 +165,5 @@ instance GoogleRequest URLList' where
165 _ulFields
165 _ulFields
166 (Just AltJSON)
166 (Just AltJSON)
167 where go
167 where go
168− = clientWithRoute (Proxy :: Proxy UrlListResource) r
168+ = clientWithRoute (Proxy :: Proxy URLListResource) r
169 u
169 u
gogol-urlshortener/gen/Network/Google/URLShortener.hs+3−3
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets you create, inspect, and manage goo.gl short URLs
15+-- | Lets you create, inspect, and manage goo.gl short URLs
16--
16--
17-- /See:/ <https://developers.google.com/url-shortener/v1/getting_started URL Shortener API Reference>
17-- /See:/ <https://developers.google.com/url-shortener/v1/getting_started URL Shortener API Reference>
18module Network.Google.URLShortener
18module Network.Google.URLShortener
@@ -99,8 +99,8 @@ TODO
99-}
99-}
100
100
101type URLShortenerAPI =
101type URLShortenerAPI =
102− UrlInsertResource :<|> UrlListResource :<|>
102+ URLInsertResource :<|> URLListResource :<|>
103− UrlGetResource
103+ URLGetResource
104
104
105uRLShortenerAPI :: Proxy URLShortenerAPI
105uRLShortenerAPI :: Proxy URLShortenerAPI
106uRLShortenerAPI = Proxy
106uRLShortenerAPI = Proxy
gogol-useraccounts/gen/Network/Google/UserAccounts.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | API for the Google Cloud User Accounts service.
15+-- | API for the Google Cloud User Accounts service.
16--
16--
17-- /See:/ <https://cloud.google.com/compute/docs/access/user-accounts/api/latest/ Cloud User Accounts API Reference>
17-- /See:/ <https://cloud.google.com/compute/docs/access/user-accounts/api/latest/ Cloud User Accounts API Reference>
18module Network.Google.UserAccounts
18module Network.Google.UserAccounts
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/URLCrawlErrorsSamples/Get.hsnew file+215
@@ -0,0 +1,215 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
5+{-# LANGUAGE RecordWildCards #-}
6+{-# LANGUAGE TypeFamilies #-}
7+{-# LANGUAGE TypeOperators #-}
8+
9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11+
12+-- |
13+-- Module : Network.Google.Resource.Webmasters.URLCrawlErrorsSamples.Get
14+-- Copyright : (c) 2015 Brendan Hay
15+-- License : Mozilla Public License, v. 2.0.
16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
17+-- Stability : auto-generated
18+-- Portability : non-portable (GHC extensions)
19+--
20+-- | Retrieves details about crawl errors for a site\'s sample URL.
21+--
22+-- /See:/ <https://developers.google.com/webmaster-tools/ Webmaster Tools API Reference> for @WebmastersURLCrawlErrorsSamplesGet@.
23+module Network.Google.Resource.Webmasters.URLCrawlErrorsSamples.Get
24+ (
25+ -- * REST Resource
26+ URLCrawlErrorsSamplesGetResource
27+
28+ -- * Creating a Request
29+ , uRLCrawlErrorsSamplesGet'
30+ , URLCrawlErrorsSamplesGet'
31+
32+ -- * Request Lenses
33+ , ucesgQuotaUser
34+ , ucesgPrettyPrint
35+ , ucesgPlatform
36+ , ucesgUserIP
37+ , ucesgCategory
38+ , ucesgSiteURL
39+ , ucesgURL
40+ , ucesgKey
41+ , ucesgOAuthToken
42+ , ucesgFields
43+ ) where
44+
45+import Network.Google.Prelude
46+import Network.Google.WebmasterTools.Types
47+
48+-- | A resource alias for @WebmastersURLCrawlErrorsSamplesGet@ which the
49+-- 'URLCrawlErrorsSamplesGet'' request conforms to.
50+type URLCrawlErrorsSamplesGetResource =
51+ "sites" :>
52+ Capture "siteUrl" Text :>
53+ "urlCrawlErrorsSamples" :>
54+ Capture "url" Text :>
55+ QueryParam "quotaUser" Text :>
56+ QueryParam "prettyPrint" Bool :>
57+ QueryParam "platform"
58+ WebmastersURLCrawlErrorsSamplesGetPlatform
59+ :>
60+ QueryParam "userIp" Text :>
61+ QueryParam "category"
62+ WebmastersURLCrawlErrorsSamplesGetCategory
63+ :>
64+ QueryParam "key" Key :>
65+ QueryParam "oauth_token" OAuthToken :>
66+ QueryParam "fields" Text :>
67+ QueryParam "alt" AltJSON :>
68+ Get '[JSON] URLCrawlErrorsSample
69+
70+-- | Retrieves details about crawl errors for a site\'s sample URL.
71+--
72+-- /See:/ 'uRLCrawlErrorsSamplesGet'' smart constructor.
73+data URLCrawlErrorsSamplesGet' = URLCrawlErrorsSamplesGet'
74+ { _ucesgQuotaUser :: !(Maybe Text)
75+ , _ucesgPrettyPrint :: !Bool
76+ , _ucesgPlatform :: !WebmastersURLCrawlErrorsSamplesGetPlatform
77+ , _ucesgUserIP :: !(Maybe Text)
78+ , _ucesgCategory :: !WebmastersURLCrawlErrorsSamplesGetCategory
79+ , _ucesgSiteURL :: !Text
80+ , _ucesgURL :: !Text
81+ , _ucesgKey :: !(Maybe Key)
82+ , _ucesgOAuthToken :: !(Maybe OAuthToken)
83+ , _ucesgFields :: !(Maybe Text)
84+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
85+
86+-- | Creates a value of 'URLCrawlErrorsSamplesGet'' with the minimum fields required to make a request.
87+--
88+-- Use one of the following lenses to modify other fields as desired:
89+--
90+-- * 'ucesgQuotaUser'
91+--
92+-- * 'ucesgPrettyPrint'
93+--
94+-- * 'ucesgPlatform'
95+--
96+-- * 'ucesgUserIP'
97+--
98+-- * 'ucesgCategory'
99+--
100+-- * 'ucesgSiteURL'
101+--
102+-- * 'ucesgURL'
103+--
104+-- * 'ucesgKey'
105+--
106+-- * 'ucesgOAuthToken'
107+--
108+-- * 'ucesgFields'
109+uRLCrawlErrorsSamplesGet'
110+ :: WebmastersURLCrawlErrorsSamplesGetPlatform -- ^ 'platform'
111+ -> WebmastersURLCrawlErrorsSamplesGetCategory -- ^ 'category'
112+ -> Text -- ^ 'siteUrl'
113+ -> Text -- ^ 'url'
114+ -> URLCrawlErrorsSamplesGet'
115+uRLCrawlErrorsSamplesGet' pUcesgPlatform_ pUcesgCategory_ pUcesgSiteURL_ pUcesgURL_ =
116+ URLCrawlErrorsSamplesGet'
117+ { _ucesgQuotaUser = Nothing
118+ , _ucesgPrettyPrint = True
119+ , _ucesgPlatform = pUcesgPlatform_
120+ , _ucesgUserIP = Nothing
121+ , _ucesgCategory = pUcesgCategory_
122+ , _ucesgSiteURL = pUcesgSiteURL_
123+ , _ucesgURL = pUcesgURL_
124+ , _ucesgKey = Nothing
125+ , _ucesgOAuthToken = Nothing
126+ , _ucesgFields = Nothing
127+ }
128+
129+-- | Available to use for quota purposes for server-side applications. Can be
130+-- any arbitrary string assigned to a user, but should not exceed 40
131+-- characters. Overrides userIp if both are provided.
132+ucesgQuotaUser :: Lens' URLCrawlErrorsSamplesGet' (Maybe Text)
133+ucesgQuotaUser
134+ = lens _ucesgQuotaUser
135+ (\ s a -> s{_ucesgQuotaUser = a})
136+
137+-- | Returns response with indentations and line breaks.
138+ucesgPrettyPrint :: Lens' URLCrawlErrorsSamplesGet' Bool
139+ucesgPrettyPrint
140+ = lens _ucesgPrettyPrint
141+ (\ s a -> s{_ucesgPrettyPrint = a})
142+
143+-- | The user agent type (platform) that made the request. For example: web
144+ucesgPlatform :: Lens' URLCrawlErrorsSamplesGet' WebmastersURLCrawlErrorsSamplesGetPlatform
145+ucesgPlatform
146+ = lens _ucesgPlatform
147+ (\ s a -> s{_ucesgPlatform = a})
148+
149+-- | IP address of the site where the request originates. Use this if you
150+-- want to enforce per-user limits.
151+ucesgUserIP :: Lens' URLCrawlErrorsSamplesGet' (Maybe Text)
152+ucesgUserIP
153+ = lens _ucesgUserIP (\ s a -> s{_ucesgUserIP = a})
154+
155+-- | The crawl error category. For example: authPermissions
156+ucesgCategory :: Lens' URLCrawlErrorsSamplesGet' WebmastersURLCrawlErrorsSamplesGetCategory
157+ucesgCategory
158+ = lens _ucesgCategory
159+ (\ s a -> s{_ucesgCategory = a})
160+
161+-- | The site\'s URL, including protocol. For example:
162+-- http:\/\/www.example.com\/
163+ucesgSiteURL :: Lens' URLCrawlErrorsSamplesGet' Text
164+ucesgSiteURL
165+ = lens _ucesgSiteURL (\ s a -> s{_ucesgSiteURL = a})
166+
167+-- | The relative path (without the site) of the sample URL. It must be one
168+-- of the URLs returned by list(). For example, for the URL
169+-- https:\/\/www.example.com\/pagename on the site
170+-- https:\/\/www.example.com\/, the url value is pagename
171+ucesgURL :: Lens' URLCrawlErrorsSamplesGet' Text
172+ucesgURL = lens _ucesgURL (\ s a -> s{_ucesgURL = a})
173+
174+-- | API key. Your API key identifies your project and provides you with API
175+-- access, quota, and reports. Required unless you provide an OAuth 2.0
176+-- token.
177+ucesgKey :: Lens' URLCrawlErrorsSamplesGet' (Maybe Key)
178+ucesgKey = lens _ucesgKey (\ s a -> s{_ucesgKey = a})
179+
180+-- | OAuth 2.0 token for the current user.
181+ucesgOAuthToken :: Lens' URLCrawlErrorsSamplesGet' (Maybe OAuthToken)
182+ucesgOAuthToken
183+ = lens _ucesgOAuthToken
184+ (\ s a -> s{_ucesgOAuthToken = a})
185+
186+-- | Selector specifying which fields to include in a partial response.
187+ucesgFields :: Lens' URLCrawlErrorsSamplesGet' (Maybe Text)
188+ucesgFields
189+ = lens _ucesgFields (\ s a -> s{_ucesgFields = a})
190+
191+instance GoogleAuth URLCrawlErrorsSamplesGet' where
192+ authKey = ucesgKey . _Just
193+ authToken = ucesgOAuthToken . _Just
194+
195+instance GoogleRequest URLCrawlErrorsSamplesGet'
196+ where
197+ type Rs URLCrawlErrorsSamplesGet' =
198+ URLCrawlErrorsSample
199+ request = requestWithRoute defReq webmasterToolsURL
200+ requestWithRoute r u URLCrawlErrorsSamplesGet'{..}
201+ = go _ucesgQuotaUser (Just _ucesgPrettyPrint)
202+ (Just _ucesgPlatform)
203+ _ucesgUserIP
204+ (Just _ucesgCategory)
205+ _ucesgSiteURL
206+ _ucesgURL
207+ _ucesgKey
208+ _ucesgOAuthToken
209+ _ucesgFields
210+ (Just AltJSON)
211+ where go
212+ = clientWithRoute
213+ (Proxy :: Proxy URLCrawlErrorsSamplesGetResource)
214+ r
215+ u
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/URLCrawlErrorsSamples/List.hsnew file+202
@@ -0,0 +1,202 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
5+{-# LANGUAGE RecordWildCards #-}
6+{-# LANGUAGE TypeFamilies #-}
7+{-# LANGUAGE TypeOperators #-}
8+
9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11+
12+-- |
13+-- Module : Network.Google.Resource.Webmasters.URLCrawlErrorsSamples.List
14+-- Copyright : (c) 2015 Brendan Hay
15+-- License : Mozilla Public License, v. 2.0.
16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
17+-- Stability : auto-generated
18+-- Portability : non-portable (GHC extensions)
19+--
20+-- | Lists a site\'s sample URLs for the specified crawl error category and
21+-- platform.
22+--
23+-- /See:/ <https://developers.google.com/webmaster-tools/ Webmaster Tools API Reference> for @WebmastersURLCrawlErrorsSamplesList@.
24+module Network.Google.Resource.Webmasters.URLCrawlErrorsSamples.List
25+ (
26+ -- * REST Resource
27+ URLCrawlErrorsSamplesListResource
28+
29+ -- * Creating a Request
30+ , uRLCrawlErrorsSamplesList'
31+ , URLCrawlErrorsSamplesList'
32+
33+ -- * Request Lenses
34+ , uceslQuotaUser
35+ , uceslPrettyPrint
36+ , uceslPlatform
37+ , uceslUserIP
38+ , uceslCategory
39+ , uceslSiteURL
40+ , uceslKey
41+ , uceslOAuthToken
42+ , uceslFields
43+ ) where
44+
45+import Network.Google.Prelude
46+import Network.Google.WebmasterTools.Types
47+
48+-- | A resource alias for @WebmastersURLCrawlErrorsSamplesList@ which the
49+-- 'URLCrawlErrorsSamplesList'' request conforms to.
50+type URLCrawlErrorsSamplesListResource =
51+ "sites" :>
52+ Capture "siteUrl" Text :>
53+ "urlCrawlErrorsSamples" :>
54+ QueryParam "quotaUser" Text :>
55+ QueryParam "prettyPrint" Bool :>
56+ QueryParam "platform"
57+ WebmastersURLCrawlErrorsSamplesListPlatform
58+ :>
59+ QueryParam "userIp" Text :>
60+ QueryParam "category"
61+ WebmastersURLCrawlErrorsSamplesListCategory
62+ :>
63+ QueryParam "key" Key :>
64+ QueryParam "oauth_token" OAuthToken :>
65+ QueryParam "fields" Text :>
66+ QueryParam "alt" AltJSON :>
67+ Get '[JSON] URLCrawlErrorsSamplesListResponse
68+
69+-- | Lists a site\'s sample URLs for the specified crawl error category and
70+-- platform.
71+--
72+-- /See:/ 'uRLCrawlErrorsSamplesList'' smart constructor.
73+data URLCrawlErrorsSamplesList' = URLCrawlErrorsSamplesList'
74+ { _uceslQuotaUser :: !(Maybe Text)
75+ , _uceslPrettyPrint :: !Bool
76+ , _uceslPlatform :: !WebmastersURLCrawlErrorsSamplesListPlatform
77+ , _uceslUserIP :: !(Maybe Text)
78+ , _uceslCategory :: !WebmastersURLCrawlErrorsSamplesListCategory
79+ , _uceslSiteURL :: !Text
80+ , _uceslKey :: !(Maybe Key)
81+ , _uceslOAuthToken :: !(Maybe OAuthToken)
82+ , _uceslFields :: !(Maybe Text)
83+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
84+
85+-- | Creates a value of 'URLCrawlErrorsSamplesList'' with the minimum fields required to make a request.
86+--
87+-- Use one of the following lenses to modify other fields as desired:
88+--
89+-- * 'uceslQuotaUser'
90+--
91+-- * 'uceslPrettyPrint'
92+--
93+-- * 'uceslPlatform'
94+--
95+-- * 'uceslUserIP'
96+--
97+-- * 'uceslCategory'
98+--
99+-- * 'uceslSiteURL'
100+--
101+-- * 'uceslKey'
102+--
103+-- * 'uceslOAuthToken'
104+--
105+-- * 'uceslFields'
106+uRLCrawlErrorsSamplesList'
107+ :: WebmastersURLCrawlErrorsSamplesListPlatform -- ^ 'platform'
108+ -> WebmastersURLCrawlErrorsSamplesListCategory -- ^ 'category'
109+ -> Text -- ^ 'siteUrl'
110+ -> URLCrawlErrorsSamplesList'
111+uRLCrawlErrorsSamplesList' pUceslPlatform_ pUceslCategory_ pUceslSiteURL_ =
112+ URLCrawlErrorsSamplesList'
113+ { _uceslQuotaUser = Nothing
114+ , _uceslPrettyPrint = True
115+ , _uceslPlatform = pUceslPlatform_
116+ , _uceslUserIP = Nothing
117+ , _uceslCategory = pUceslCategory_
118+ , _uceslSiteURL = pUceslSiteURL_
119+ , _uceslKey = Nothing
120+ , _uceslOAuthToken = Nothing
121+ , _uceslFields = Nothing
122+ }
123+
124+-- | Available to use for quota purposes for server-side applications. Can be
125+-- any arbitrary string assigned to a user, but should not exceed 40
126+-- characters. Overrides userIp if both are provided.
127+uceslQuotaUser :: Lens' URLCrawlErrorsSamplesList' (Maybe Text)
128+uceslQuotaUser
129+ = lens _uceslQuotaUser
130+ (\ s a -> s{_uceslQuotaUser = a})
131+
132+-- | Returns response with indentations and line breaks.
133+uceslPrettyPrint :: Lens' URLCrawlErrorsSamplesList' Bool
134+uceslPrettyPrint
135+ = lens _uceslPrettyPrint
136+ (\ s a -> s{_uceslPrettyPrint = a})
137+
138+-- | The user agent type (platform) that made the request. For example: web
139+uceslPlatform :: Lens' URLCrawlErrorsSamplesList' WebmastersURLCrawlErrorsSamplesListPlatform
140+uceslPlatform
141+ = lens _uceslPlatform
142+ (\ s a -> s{_uceslPlatform = a})
143+
144+-- | IP address of the site where the request originates. Use this if you
145+-- want to enforce per-user limits.
146+uceslUserIP :: Lens' URLCrawlErrorsSamplesList' (Maybe Text)
147+uceslUserIP
148+ = lens _uceslUserIP (\ s a -> s{_uceslUserIP = a})
149+
150+-- | The crawl error category. For example: authPermissions
151+uceslCategory :: Lens' URLCrawlErrorsSamplesList' WebmastersURLCrawlErrorsSamplesListCategory
152+uceslCategory
153+ = lens _uceslCategory
154+ (\ s a -> s{_uceslCategory = a})
155+
156+-- | The site\'s URL, including protocol. For example:
157+-- http:\/\/www.example.com\/
158+uceslSiteURL :: Lens' URLCrawlErrorsSamplesList' Text
159+uceslSiteURL
160+ = lens _uceslSiteURL (\ s a -> s{_uceslSiteURL = a})
161+
162+-- | API key. Your API key identifies your project and provides you with API
163+-- access, quota, and reports. Required unless you provide an OAuth 2.0
164+-- token.
165+uceslKey :: Lens' URLCrawlErrorsSamplesList' (Maybe Key)
166+uceslKey = lens _uceslKey (\ s a -> s{_uceslKey = a})
167+
168+-- | OAuth 2.0 token for the current user.
169+uceslOAuthToken :: Lens' URLCrawlErrorsSamplesList' (Maybe OAuthToken)
170+uceslOAuthToken
171+ = lens _uceslOAuthToken
172+ (\ s a -> s{_uceslOAuthToken = a})
173+
174+-- | Selector specifying which fields to include in a partial response.
175+uceslFields :: Lens' URLCrawlErrorsSamplesList' (Maybe Text)
176+uceslFields
177+ = lens _uceslFields (\ s a -> s{_uceslFields = a})
178+
179+instance GoogleAuth URLCrawlErrorsSamplesList' where
180+ authKey = uceslKey . _Just
181+ authToken = uceslOAuthToken . _Just
182+
183+instance GoogleRequest URLCrawlErrorsSamplesList'
184+ where
185+ type Rs URLCrawlErrorsSamplesList' =
186+ URLCrawlErrorsSamplesListResponse
187+ request = requestWithRoute defReq webmasterToolsURL
188+ requestWithRoute r u URLCrawlErrorsSamplesList'{..}
189+ = go _uceslQuotaUser (Just _uceslPrettyPrint)
190+ (Just _uceslPlatform)
191+ _uceslUserIP
192+ (Just _uceslCategory)
193+ _uceslSiteURL
194+ _uceslKey
195+ _uceslOAuthToken
196+ _uceslFields
197+ (Just AltJSON)
198+ where go
199+ = clientWithRoute
200+ (Proxy :: Proxy URLCrawlErrorsSamplesListResource)
201+ r
202+ u
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/URLCrawlErrorsSamples/MarkAsFixed.hsnew file+223
@@ -0,0 +1,223 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
5+{-# LANGUAGE RecordWildCards #-}
6+{-# LANGUAGE TypeFamilies #-}
7+{-# LANGUAGE TypeOperators #-}
8+
9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11+
12+-- |
13+-- Module : Network.Google.Resource.Webmasters.URLCrawlErrorsSamples.MarkAsFixed
14+-- Copyright : (c) 2015 Brendan Hay
15+-- License : Mozilla Public License, v. 2.0.
16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
17+-- Stability : auto-generated
18+-- Portability : non-portable (GHC extensions)
19+--
20+-- | Marks the provided site\'s sample URL as fixed, and removes it from the
21+-- samples list.
22+--
23+-- /See:/ <https://developers.google.com/webmaster-tools/ Webmaster Tools API Reference> for @WebmastersURLCrawlErrorsSamplesMarkAsFixed@.
24+module Network.Google.Resource.Webmasters.URLCrawlErrorsSamples.MarkAsFixed
25+ (
26+ -- * REST Resource
27+ URLCrawlErrorsSamplesMarkAsFixedResource
28+
29+ -- * Creating a Request
30+ , uRLCrawlErrorsSamplesMarkAsFixed'
31+ , URLCrawlErrorsSamplesMarkAsFixed'
32+
33+ -- * Request Lenses
34+ , ucesmafQuotaUser
35+ , ucesmafPrettyPrint
36+ , ucesmafPlatform
37+ , ucesmafUserIP
38+ , ucesmafCategory
39+ , ucesmafSiteURL
40+ , ucesmafURL
41+ , ucesmafKey
42+ , ucesmafOAuthToken
43+ , ucesmafFields
44+ ) where
45+
46+import Network.Google.Prelude
47+import Network.Google.WebmasterTools.Types
48+
49+-- | A resource alias for @WebmastersURLCrawlErrorsSamplesMarkAsFixed@ which the
50+-- 'URLCrawlErrorsSamplesMarkAsFixed'' request conforms to.
51+type URLCrawlErrorsSamplesMarkAsFixedResource =
52+ "sites" :>
53+ Capture "siteUrl" Text :>
54+ "urlCrawlErrorsSamples" :>
55+ Capture "url" Text :>
56+ QueryParam "quotaUser" Text :>
57+ QueryParam "prettyPrint" Bool :>
58+ QueryParam "platform"
59+ WebmastersURLCrawlErrorsSamplesMarkAsFixedPlatform
60+ :>
61+ QueryParam "userIp" Text :>
62+ QueryParam "category"
63+ WebmastersURLCrawlErrorsSamplesMarkAsFixedCategory
64+ :>
65+ QueryParam "key" Key :>
66+ QueryParam "oauth_token" OAuthToken :>
67+ QueryParam "fields" Text :>
68+ QueryParam "alt" AltJSON :> Delete '[JSON] ()
69+
70+-- | Marks the provided site\'s sample URL as fixed, and removes it from the
71+-- samples list.
72+--
73+-- /See:/ 'uRLCrawlErrorsSamplesMarkAsFixed'' smart constructor.
74+data URLCrawlErrorsSamplesMarkAsFixed' = URLCrawlErrorsSamplesMarkAsFixed'
75+ { _ucesmafQuotaUser :: !(Maybe Text)
76+ , _ucesmafPrettyPrint :: !Bool
77+ , _ucesmafPlatform :: !WebmastersURLCrawlErrorsSamplesMarkAsFixedPlatform
78+ , _ucesmafUserIP :: !(Maybe Text)
79+ , _ucesmafCategory :: !WebmastersURLCrawlErrorsSamplesMarkAsFixedCategory
80+ , _ucesmafSiteURL :: !Text
81+ , _ucesmafURL :: !Text
82+ , _ucesmafKey :: !(Maybe Key)
83+ , _ucesmafOAuthToken :: !(Maybe OAuthToken)
84+ , _ucesmafFields :: !(Maybe Text)
85+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
86+
87+-- | Creates a value of 'URLCrawlErrorsSamplesMarkAsFixed'' with the minimum fields required to make a request.
88+--
89+-- Use one of the following lenses to modify other fields as desired:
90+--
91+-- * 'ucesmafQuotaUser'
92+--
93+-- * 'ucesmafPrettyPrint'
94+--
95+-- * 'ucesmafPlatform'
96+--
97+-- * 'ucesmafUserIP'
98+--
99+-- * 'ucesmafCategory'
100+--
101+-- * 'ucesmafSiteURL'
102+--
103+-- * 'ucesmafURL'
104+--
105+-- * 'ucesmafKey'
106+--
107+-- * 'ucesmafOAuthToken'
108+--
109+-- * 'ucesmafFields'
110+uRLCrawlErrorsSamplesMarkAsFixed'
111+ :: WebmastersURLCrawlErrorsSamplesMarkAsFixedPlatform -- ^ 'platform'
112+ -> WebmastersURLCrawlErrorsSamplesMarkAsFixedCategory -- ^ 'category'
113+ -> Text -- ^ 'siteUrl'
114+ -> Text -- ^ 'url'
115+ -> URLCrawlErrorsSamplesMarkAsFixed'
116+uRLCrawlErrorsSamplesMarkAsFixed' pUcesmafPlatform_ pUcesmafCategory_ pUcesmafSiteURL_ pUcesmafURL_ =
117+ URLCrawlErrorsSamplesMarkAsFixed'
118+ { _ucesmafQuotaUser = Nothing
119+ , _ucesmafPrettyPrint = True
120+ , _ucesmafPlatform = pUcesmafPlatform_
121+ , _ucesmafUserIP = Nothing
122+ , _ucesmafCategory = pUcesmafCategory_
123+ , _ucesmafSiteURL = pUcesmafSiteURL_
124+ , _ucesmafURL = pUcesmafURL_
125+ , _ucesmafKey = Nothing
126+ , _ucesmafOAuthToken = Nothing
127+ , _ucesmafFields = Nothing
128+ }
129+
130+-- | Available to use for quota purposes for server-side applications. Can be
131+-- any arbitrary string assigned to a user, but should not exceed 40
132+-- characters. Overrides userIp if both are provided.
133+ucesmafQuotaUser :: Lens' URLCrawlErrorsSamplesMarkAsFixed' (Maybe Text)
134+ucesmafQuotaUser
135+ = lens _ucesmafQuotaUser
136+ (\ s a -> s{_ucesmafQuotaUser = a})
137+
138+-- | Returns response with indentations and line breaks.
139+ucesmafPrettyPrint :: Lens' URLCrawlErrorsSamplesMarkAsFixed' Bool
140+ucesmafPrettyPrint
141+ = lens _ucesmafPrettyPrint
142+ (\ s a -> s{_ucesmafPrettyPrint = a})
143+
144+-- | The user agent type (platform) that made the request. For example: web
145+ucesmafPlatform :: Lens' URLCrawlErrorsSamplesMarkAsFixed' WebmastersURLCrawlErrorsSamplesMarkAsFixedPlatform
146+ucesmafPlatform
147+ = lens _ucesmafPlatform
148+ (\ s a -> s{_ucesmafPlatform = a})
149+
150+-- | IP address of the site where the request originates. Use this if you
151+-- want to enforce per-user limits.
152+ucesmafUserIP :: Lens' URLCrawlErrorsSamplesMarkAsFixed' (Maybe Text)
153+ucesmafUserIP
154+ = lens _ucesmafUserIP
155+ (\ s a -> s{_ucesmafUserIP = a})
156+
157+-- | The crawl error category. For example: authPermissions
158+ucesmafCategory :: Lens' URLCrawlErrorsSamplesMarkAsFixed' WebmastersURLCrawlErrorsSamplesMarkAsFixedCategory
159+ucesmafCategory
160+ = lens _ucesmafCategory
161+ (\ s a -> s{_ucesmafCategory = a})
162+
163+-- | The site\'s URL, including protocol. For example:
164+-- http:\/\/www.example.com\/
165+ucesmafSiteURL :: Lens' URLCrawlErrorsSamplesMarkAsFixed' Text
166+ucesmafSiteURL
167+ = lens _ucesmafSiteURL
168+ (\ s a -> s{_ucesmafSiteURL = a})
169+
170+-- | The relative path (without the site) of the sample URL. It must be one
171+-- of the URLs returned by list(). For example, for the URL
172+-- https:\/\/www.example.com\/pagename on the site
173+-- https:\/\/www.example.com\/, the url value is pagename
174+ucesmafURL :: Lens' URLCrawlErrorsSamplesMarkAsFixed' Text
175+ucesmafURL
176+ = lens _ucesmafURL (\ s a -> s{_ucesmafURL = a})
177+
178+-- | API key. Your API key identifies your project and provides you with API
179+-- access, quota, and reports. Required unless you provide an OAuth 2.0
180+-- token.
181+ucesmafKey :: Lens' URLCrawlErrorsSamplesMarkAsFixed' (Maybe Key)
182+ucesmafKey
183+ = lens _ucesmafKey (\ s a -> s{_ucesmafKey = a})
184+
185+-- | OAuth 2.0 token for the current user.
186+ucesmafOAuthToken :: Lens' URLCrawlErrorsSamplesMarkAsFixed' (Maybe OAuthToken)
187+ucesmafOAuthToken
188+ = lens _ucesmafOAuthToken
189+ (\ s a -> s{_ucesmafOAuthToken = a})
190+
191+-- | Selector specifying which fields to include in a partial response.
192+ucesmafFields :: Lens' URLCrawlErrorsSamplesMarkAsFixed' (Maybe Text)
193+ucesmafFields
194+ = lens _ucesmafFields
195+ (\ s a -> s{_ucesmafFields = a})
196+
197+instance GoogleAuth URLCrawlErrorsSamplesMarkAsFixed'
198+ where
199+ authKey = ucesmafKey . _Just
200+ authToken = ucesmafOAuthToken . _Just
201+
202+instance GoogleRequest
203+ URLCrawlErrorsSamplesMarkAsFixed' where
204+ type Rs URLCrawlErrorsSamplesMarkAsFixed' = ()
205+ request = requestWithRoute defReq webmasterToolsURL
206+ requestWithRoute r u
207+ URLCrawlErrorsSamplesMarkAsFixed'{..}
208+ = go _ucesmafQuotaUser (Just _ucesmafPrettyPrint)
209+ (Just _ucesmafPlatform)
210+ _ucesmafUserIP
211+ (Just _ucesmafCategory)
212+ _ucesmafSiteURL
213+ _ucesmafURL
214+ _ucesmafKey
215+ _ucesmafOAuthToken
216+ _ucesmafFields
217+ (Just AltJSON)
218+ where go
219+ = clientWithRoute
220+ (Proxy ::
221+ Proxy URLCrawlErrorsSamplesMarkAsFixedResource)
222+ r
223+ u
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/URLCrawlErrorscounts/Query.hsnew file+214
@@ -0,0 +1,214 @@
1+{-# LANGUAGE DataKinds #-}
2+{-# LANGUAGE DeriveDataTypeable #-}
3+{-# LANGUAGE DeriveGeneric #-}
4+{-# LANGUAGE OverloadedStrings #-}
5+{-# LANGUAGE RecordWildCards #-}
6+{-# LANGUAGE TypeFamilies #-}
7+{-# LANGUAGE TypeOperators #-}
8+
9+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
10+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11+
12+-- |
13+-- Module : Network.Google.Resource.Webmasters.URLCrawlErrorscounts.Query
14+-- Copyright : (c) 2015 Brendan Hay
15+-- License : Mozilla Public License, v. 2.0.
16+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
17+-- Stability : auto-generated
18+-- Portability : non-portable (GHC extensions)
19+--
20+-- | Retrieves a time series of the number of URL crawl errors per error
21+-- category and platform.
22+--
23+-- /See:/ <https://developers.google.com/webmaster-tools/ Webmaster Tools API Reference> for @WebmastersURLCrawlErrorscountsQuery@.
24+module Network.Google.Resource.Webmasters.URLCrawlErrorscounts.Query
25+ (
26+ -- * REST Resource
27+ URLCrawlErrorscountsQueryResource
28+
29+ -- * Creating a Request
30+ , uRLCrawlErrorscountsQuery'
31+ , URLCrawlErrorscountsQuery'
32+
33+ -- * Request Lenses
34+ , uceqQuotaUser
35+ , uceqPrettyPrint
36+ , uceqPlatform
37+ , uceqUserIP
38+ , uceqCategory
39+ , uceqSiteURL
40+ , uceqKey
41+ , uceqLatestCountsOnly
42+ , uceqOAuthToken
43+ , uceqFields
44+ ) where
45+
46+import Network.Google.Prelude
47+import Network.Google.WebmasterTools.Types
48+
49+-- | A resource alias for @WebmastersURLCrawlErrorscountsQuery@ which the
50+-- 'URLCrawlErrorscountsQuery'' request conforms to.
51+type URLCrawlErrorscountsQueryResource =
52+ "sites" :>
53+ Capture "siteUrl" Text :>
54+ "urlCrawlErrorsCounts" :>
55+ "query" :>
56+ QueryParam "quotaUser" Text :>
57+ QueryParam "prettyPrint" Bool :>
58+ QueryParam "platform"
59+ WebmastersURLCrawlErrorscountsQueryPlatform
60+ :>
61+ QueryParam "userIp" Text :>
62+ QueryParam "category"
63+ WebmastersURLCrawlErrorscountsQueryCategory
64+ :>
65+ QueryParam "key" Key :>
66+ QueryParam "latestCountsOnly" Bool :>
67+ QueryParam "oauth_token" OAuthToken :>
68+ QueryParam "fields" Text :>
69+ QueryParam "alt" AltJSON :>
70+ Get '[JSON] URLCrawlErrorsCountsQueryResponse
71+
72+-- | Retrieves a time series of the number of URL crawl errors per error
73+-- category and platform.
74+--
75+-- /See:/ 'uRLCrawlErrorscountsQuery'' smart constructor.
76+data URLCrawlErrorscountsQuery' = URLCrawlErrorscountsQuery'
77+ { _uceqQuotaUser :: !(Maybe Text)
78+ , _uceqPrettyPrint :: !Bool
79+ , _uceqPlatform :: !(Maybe WebmastersURLCrawlErrorscountsQueryPlatform)
80+ , _uceqUserIP :: !(Maybe Text)
81+ , _uceqCategory :: !(Maybe WebmastersURLCrawlErrorscountsQueryCategory)
82+ , _uceqSiteURL :: !Text
83+ , _uceqKey :: !(Maybe Key)
84+ , _uceqLatestCountsOnly :: !Bool
85+ , _uceqOAuthToken :: !(Maybe OAuthToken)
86+ , _uceqFields :: !(Maybe Text)
87+ } deriving (Eq,Read,Show,Data,Typeable,Generic)
88+
89+-- | Creates a value of 'URLCrawlErrorscountsQuery'' with the minimum fields required to make a request.
90+--
91+-- Use one of the following lenses to modify other fields as desired:
92+--
93+-- * 'uceqQuotaUser'
94+--
95+-- * 'uceqPrettyPrint'
96+--
97+-- * 'uceqPlatform'
98+--
99+-- * 'uceqUserIP'
100+--
101+-- * 'uceqCategory'
102+--
103+-- * 'uceqSiteURL'
104+--
105+-- * 'uceqKey'
106+--
107+-- * 'uceqLatestCountsOnly'
108+--
109+-- * 'uceqOAuthToken'
110+--
111+-- * 'uceqFields'
112+uRLCrawlErrorscountsQuery'
113+ :: Text -- ^ 'siteUrl'
114+ -> URLCrawlErrorscountsQuery'
115+uRLCrawlErrorscountsQuery' pUceqSiteURL_ =
116+ URLCrawlErrorscountsQuery'
117+ { _uceqQuotaUser = Nothing
118+ , _uceqPrettyPrint = True
119+ , _uceqPlatform = Nothing
120+ , _uceqUserIP = Nothing
121+ , _uceqCategory = Nothing
122+ , _uceqSiteURL = pUceqSiteURL_
123+ , _uceqKey = Nothing
124+ , _uceqLatestCountsOnly = True
125+ , _uceqOAuthToken = Nothing
126+ , _uceqFields = Nothing
127+ }
128+
129+-- | Available to use for quota purposes for server-side applications. Can be
130+-- any arbitrary string assigned to a user, but should not exceed 40
131+-- characters. Overrides userIp if both are provided.
132+uceqQuotaUser :: Lens' URLCrawlErrorscountsQuery' (Maybe Text)
133+uceqQuotaUser
134+ = lens _uceqQuotaUser
135+ (\ s a -> s{_uceqQuotaUser = a})
136+
137+-- | Returns response with indentations and line breaks.
138+uceqPrettyPrint :: Lens' URLCrawlErrorscountsQuery' Bool
139+uceqPrettyPrint
140+ = lens _uceqPrettyPrint
141+ (\ s a -> s{_uceqPrettyPrint = a})
142+
143+-- | The user agent type (platform) that made the request. For example: web.
144+-- If not specified, returns results for all platforms.
145+uceqPlatform :: Lens' URLCrawlErrorscountsQuery' (Maybe WebmastersURLCrawlErrorscountsQueryPlatform)
146+uceqPlatform
147+ = lens _uceqPlatform (\ s a -> s{_uceqPlatform = a})
148+
149+-- | IP address of the site where the request originates. Use this if you
150+-- want to enforce per-user limits.
151+uceqUserIP :: Lens' URLCrawlErrorscountsQuery' (Maybe Text)
152+uceqUserIP
153+ = lens _uceqUserIP (\ s a -> s{_uceqUserIP = a})
154+
155+-- | The crawl error category. For example: serverError. If not specified,
156+-- returns results for all categories.
157+uceqCategory :: Lens' URLCrawlErrorscountsQuery' (Maybe WebmastersURLCrawlErrorscountsQueryCategory)
158+uceqCategory
159+ = lens _uceqCategory (\ s a -> s{_uceqCategory = a})
160+
161+-- | The site\'s URL, including protocol. For example:
162+-- http:\/\/www.example.com\/
163+uceqSiteURL :: Lens' URLCrawlErrorscountsQuery' Text
164+uceqSiteURL
165+ = lens _uceqSiteURL (\ s a -> s{_uceqSiteURL = a})
166+
167+-- | API key. Your API key identifies your project and provides you with API
168+-- access, quota, and reports. Required unless you provide an OAuth 2.0
169+-- token.
170+uceqKey :: Lens' URLCrawlErrorscountsQuery' (Maybe Key)
171+uceqKey = lens _uceqKey (\ s a -> s{_uceqKey = a})
172+
173+-- | If true, returns only the latest crawl error counts.
174+uceqLatestCountsOnly :: Lens' URLCrawlErrorscountsQuery' Bool
175+uceqLatestCountsOnly
176+ = lens _uceqLatestCountsOnly
177+ (\ s a -> s{_uceqLatestCountsOnly = a})
178+
179+-- | OAuth 2.0 token for the current user.
180+uceqOAuthToken :: Lens' URLCrawlErrorscountsQuery' (Maybe OAuthToken)
181+uceqOAuthToken
182+ = lens _uceqOAuthToken
183+ (\ s a -> s{_uceqOAuthToken = a})
184+
185+-- | Selector specifying which fields to include in a partial response.
186+uceqFields :: Lens' URLCrawlErrorscountsQuery' (Maybe Text)
187+uceqFields
188+ = lens _uceqFields (\ s a -> s{_uceqFields = a})
189+
190+instance GoogleAuth URLCrawlErrorscountsQuery' where
191+ authKey = uceqKey . _Just
192+ authToken = uceqOAuthToken . _Just
193+
194+instance GoogleRequest URLCrawlErrorscountsQuery'
195+ where
196+ type Rs URLCrawlErrorscountsQuery' =
197+ URLCrawlErrorsCountsQueryResponse
198+ request = requestWithRoute defReq webmasterToolsURL
199+ requestWithRoute r u URLCrawlErrorscountsQuery'{..}
200+ = go _uceqQuotaUser (Just _uceqPrettyPrint)
201+ _uceqPlatform
202+ _uceqUserIP
203+ _uceqCategory
204+ _uceqSiteURL
205+ _uceqKey
206+ (Just _uceqLatestCountsOnly)
207+ _uceqOAuthToken
208+ _uceqFields
209+ (Just AltJSON)
210+ where go
211+ = clientWithRoute
212+ (Proxy :: Proxy URLCrawlErrorscountsQueryResource)
213+ r
214+ u
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/URLcrawlerrorscounts/Query.hsdeleted−209
@@ -1,209 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE OverloadedStrings #-}
5−{-# LANGUAGE RecordWildCards #-}
6−{-# LANGUAGE TypeFamilies #-}
7−{-# LANGUAGE TypeOperators #-}
8−
9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11−
12−-- |
13−-- Module : Network.Google.Resource.Webmasters.URLcrawlerrorscounts.Query
14−-- Copyright : (c) 2015 Brendan Hay
15−-- License : Mozilla Public License, v. 2.0.
16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
17−-- Stability : auto-generated
18−-- Portability : non-portable (GHC extensions)
19−--
20−-- | Retrieves a time series of the number of URL crawl errors per error
21−-- category and platform.
22−--
23−-- /See:/ <https://developers.google.com/webmaster-tools/ Webmaster Tools API Reference> for @WebmastersURLcrawlerrorscountsQuery@.
24−module Network.Google.Resource.Webmasters.URLcrawlerrorscounts.Query
25− (
26− -- * REST Resource
27− UrlcrawlerrorscountsQueryResource
28−
29− -- * Creating a Request
30− , uRLcrawlerrorscountsQuery'
31− , URLcrawlerrorscountsQuery'
32−
33− -- * Request Lenses
34− , uqQuotaUser
35− , uqPrettyPrint
36− , uqPlatform
37− , uqUserIP
38− , uqCategory
39− , uqSiteURL
40− , uqKey
41− , uqLatestCountsOnly
42− , uqOAuthToken
43− , uqFields
44− ) where
45−
46−import Network.Google.Prelude
47−import Network.Google.WebmasterTools.Types
48−
49−-- | A resource alias for @WebmastersURLcrawlerrorscountsQuery@ which the
50−-- 'URLcrawlerrorscountsQuery'' request conforms to.
51−type UrlcrawlerrorscountsQueryResource =
52− "sites" :>
53− Capture "siteUrl" Text :>
54− "urlCrawlErrorsCounts" :>
55− "query" :>
56− QueryParam "quotaUser" Text :>
57− QueryParam "prettyPrint" Bool :>
58− QueryParam "platform"
59− WebmastersURLcrawlerrorscountsQueryPlatform
60− :>
61− QueryParam "userIp" Text :>
62− QueryParam "category"
63− WebmastersURLcrawlerrorscountsQueryCategory
64− :>
65− QueryParam "key" Key :>
66− QueryParam "latestCountsOnly" Bool :>
67− QueryParam "oauth_token" OAuthToken :>
68− QueryParam "fields" Text :>
69− QueryParam "alt" AltJSON :>
70− Get '[JSON] URLCrawlErrorsCountsQueryResponse
71−
72−-- | Retrieves a time series of the number of URL crawl errors per error
73−-- category and platform.
74−--
75−-- /See:/ 'uRLcrawlerrorscountsQuery'' smart constructor.
76−data URLcrawlerrorscountsQuery' = URLcrawlerrorscountsQuery'
77− { _uqQuotaUser :: !(Maybe Text)
78− , _uqPrettyPrint :: !Bool
79− , _uqPlatform :: !(Maybe WebmastersURLcrawlerrorscountsQueryPlatform)
80− , _uqUserIP :: !(Maybe Text)
81− , _uqCategory :: !(Maybe WebmastersURLcrawlerrorscountsQueryCategory)
82− , _uqSiteURL :: !Text
83− , _uqKey :: !(Maybe Key)
84− , _uqLatestCountsOnly :: !Bool
85− , _uqOAuthToken :: !(Maybe OAuthToken)
86− , _uqFields :: !(Maybe Text)
87− } deriving (Eq,Read,Show,Data,Typeable,Generic)
88−
89−-- | Creates a value of 'URLcrawlerrorscountsQuery'' with the minimum fields required to make a request.
90−--
91−-- Use one of the following lenses to modify other fields as desired:
92−--
93−-- * 'uqQuotaUser'
94−--
95−-- * 'uqPrettyPrint'
96−--
97−-- * 'uqPlatform'
98−--
99−-- * 'uqUserIP'
100−--
101−-- * 'uqCategory'
102−--
103−-- * 'uqSiteURL'
104−--
105−-- * 'uqKey'
106−--
107−-- * 'uqLatestCountsOnly'
108−--
109−-- * 'uqOAuthToken'
110−--
111−-- * 'uqFields'
112−uRLcrawlerrorscountsQuery'
113− :: Text -- ^ 'siteUrl'
114− -> URLcrawlerrorscountsQuery'
115−uRLcrawlerrorscountsQuery' pUqSiteURL_ =
116− URLcrawlerrorscountsQuery'
117− { _uqQuotaUser = Nothing
118− , _uqPrettyPrint = True
119− , _uqPlatform = Nothing
120− , _uqUserIP = Nothing
121− , _uqCategory = Nothing
122− , _uqSiteURL = pUqSiteURL_
123− , _uqKey = Nothing
124− , _uqLatestCountsOnly = True
125− , _uqOAuthToken = Nothing
126− , _uqFields = Nothing
127− }
128−
129−-- | Available to use for quota purposes for server-side applications. Can be
130−-- any arbitrary string assigned to a user, but should not exceed 40
131−-- characters. Overrides userIp if both are provided.
132−uqQuotaUser :: Lens' URLcrawlerrorscountsQuery' (Maybe Text)
133−uqQuotaUser
134− = lens _uqQuotaUser (\ s a -> s{_uqQuotaUser = a})
135−
136−-- | Returns response with indentations and line breaks.
137−uqPrettyPrint :: Lens' URLcrawlerrorscountsQuery' Bool
138−uqPrettyPrint
139− = lens _uqPrettyPrint
140− (\ s a -> s{_uqPrettyPrint = a})
141−
142−-- | The user agent type (platform) that made the request. For example: web.
143−-- If not specified, returns results for all platforms.
144−uqPlatform :: Lens' URLcrawlerrorscountsQuery' (Maybe WebmastersURLcrawlerrorscountsQueryPlatform)
145−uqPlatform
146− = lens _uqPlatform (\ s a -> s{_uqPlatform = a})
147−
148−-- | IP address of the site where the request originates. Use this if you
149−-- want to enforce per-user limits.
150−uqUserIP :: Lens' URLcrawlerrorscountsQuery' (Maybe Text)
151−uqUserIP = lens _uqUserIP (\ s a -> s{_uqUserIP = a})
152−
153−-- | The crawl error category. For example: serverError. If not specified,
154−-- returns results for all categories.
155−uqCategory :: Lens' URLcrawlerrorscountsQuery' (Maybe WebmastersURLcrawlerrorscountsQueryCategory)
156−uqCategory
157− = lens _uqCategory (\ s a -> s{_uqCategory = a})
158−
159−-- | The site\'s URL, including protocol. For example:
160−-- http:\/\/www.example.com\/
161−uqSiteURL :: Lens' URLcrawlerrorscountsQuery' Text
162−uqSiteURL
163− = lens _uqSiteURL (\ s a -> s{_uqSiteURL = a})
164−
165−-- | API key. Your API key identifies your project and provides you with API
166−-- access, quota, and reports. Required unless you provide an OAuth 2.0
167−-- token.
168−uqKey :: Lens' URLcrawlerrorscountsQuery' (Maybe Key)
169−uqKey = lens _uqKey (\ s a -> s{_uqKey = a})
170−
171−-- | If true, returns only the latest crawl error counts.
172−uqLatestCountsOnly :: Lens' URLcrawlerrorscountsQuery' Bool
173−uqLatestCountsOnly
174− = lens _uqLatestCountsOnly
175− (\ s a -> s{_uqLatestCountsOnly = a})
176−
177−-- | OAuth 2.0 token for the current user.
178−uqOAuthToken :: Lens' URLcrawlerrorscountsQuery' (Maybe OAuthToken)
179−uqOAuthToken
180− = lens _uqOAuthToken (\ s a -> s{_uqOAuthToken = a})
181−
182−-- | Selector specifying which fields to include in a partial response.
183−uqFields :: Lens' URLcrawlerrorscountsQuery' (Maybe Text)
184−uqFields = lens _uqFields (\ s a -> s{_uqFields = a})
185−
186−instance GoogleAuth URLcrawlerrorscountsQuery' where
187− authKey = uqKey . _Just
188− authToken = uqOAuthToken . _Just
189−
190−instance GoogleRequest URLcrawlerrorscountsQuery'
191− where
192− type Rs URLcrawlerrorscountsQuery' =
193− URLCrawlErrorsCountsQueryResponse
194− request = requestWithRoute defReq webmasterToolsURL
195− requestWithRoute r u URLcrawlerrorscountsQuery'{..}
196− = go _uqQuotaUser (Just _uqPrettyPrint) _uqPlatform
197− _uqUserIP
198− _uqCategory
199− _uqSiteURL
200− _uqKey
201− (Just _uqLatestCountsOnly)
202− _uqOAuthToken
203− _uqFields
204− (Just AltJSON)
205− where go
206− = clientWithRoute
207− (Proxy :: Proxy UrlcrawlerrorscountsQueryResource)
208− r
209− u
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/URLcrawlerrorssamples/Get.hsdeleted−209
@@ -1,209 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE OverloadedStrings #-}
5−{-# LANGUAGE RecordWildCards #-}
6−{-# LANGUAGE TypeFamilies #-}
7−{-# LANGUAGE TypeOperators #-}
8−
9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11−
12−-- |
13−-- Module : Network.Google.Resource.Webmasters.URLcrawlerrorssamples.Get
14−-- Copyright : (c) 2015 Brendan Hay
15−-- License : Mozilla Public License, v. 2.0.
16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
17−-- Stability : auto-generated
18−-- Portability : non-portable (GHC extensions)
19−--
20−-- | Retrieves details about crawl errors for a site\'s sample URL.
21−--
22−-- /See:/ <https://developers.google.com/webmaster-tools/ Webmaster Tools API Reference> for @WebmastersURLcrawlerrorssamplesGet@.
23−module Network.Google.Resource.Webmasters.URLcrawlerrorssamples.Get
24− (
25− -- * REST Resource
26− UrlcrawlerrorssamplesGetResource
27−
28− -- * Creating a Request
29− , uRLcrawlerrorssamplesGet'
30− , URLcrawlerrorssamplesGet'
31−
32− -- * Request Lenses
33− , ugQuotaUser
34− , ugPrettyPrint
35− , ugPlatform
36− , ugUserIP
37− , ugCategory
38− , ugSiteURL
39− , ugURL
40− , ugKey
41− , ugOAuthToken
42− , ugFields
43− ) where
44−
45−import Network.Google.Prelude
46−import Network.Google.WebmasterTools.Types
47−
48−-- | A resource alias for @WebmastersURLcrawlerrorssamplesGet@ which the
49−-- 'URLcrawlerrorssamplesGet'' request conforms to.
50−type UrlcrawlerrorssamplesGetResource =
51− "sites" :>
52− Capture "siteUrl" Text :>
53− "urlCrawlErrorsSamples" :>
54− Capture "url" Text :>
55− QueryParam "quotaUser" Text :>
56− QueryParam "prettyPrint" Bool :>
57− QueryParam "platform"
58− WebmastersURLcrawlerrorssamplesGetPlatform
59− :>
60− QueryParam "userIp" Text :>
61− QueryParam "category"
62− WebmastersURLcrawlerrorssamplesGetCategory
63− :>
64− QueryParam "key" Key :>
65− QueryParam "oauth_token" OAuthToken :>
66− QueryParam "fields" Text :>
67− QueryParam "alt" AltJSON :>
68− Get '[JSON] URLCrawlErrorsSample
69−
70−-- | Retrieves details about crawl errors for a site\'s sample URL.
71−--
72−-- /See:/ 'uRLcrawlerrorssamplesGet'' smart constructor.
73−data URLcrawlerrorssamplesGet' = URLcrawlerrorssamplesGet'
74− { _ugQuotaUser :: !(Maybe Text)
75− , _ugPrettyPrint :: !Bool
76− , _ugPlatform :: !WebmastersURLcrawlerrorssamplesGetPlatform
77− , _ugUserIP :: !(Maybe Text)
78− , _ugCategory :: !WebmastersURLcrawlerrorssamplesGetCategory
79− , _ugSiteURL :: !Text
80− , _ugURL :: !Text
81− , _ugKey :: !(Maybe Key)
82− , _ugOAuthToken :: !(Maybe OAuthToken)
83− , _ugFields :: !(Maybe Text)
84− } deriving (Eq,Read,Show,Data,Typeable,Generic)
85−
86−-- | Creates a value of 'URLcrawlerrorssamplesGet'' with the minimum fields required to make a request.
87−--
88−-- Use one of the following lenses to modify other fields as desired:
89−--
90−-- * 'ugQuotaUser'
91−--
92−-- * 'ugPrettyPrint'
93−--
94−-- * 'ugPlatform'
95−--
96−-- * 'ugUserIP'
97−--
98−-- * 'ugCategory'
99−--
100−-- * 'ugSiteURL'
101−--
102−-- * 'ugURL'
103−--
104−-- * 'ugKey'
105−--
106−-- * 'ugOAuthToken'
107−--
108−-- * 'ugFields'
109−uRLcrawlerrorssamplesGet'
110− :: WebmastersURLcrawlerrorssamplesGetPlatform -- ^ 'platform'
111− -> WebmastersURLcrawlerrorssamplesGetCategory -- ^ 'category'
112− -> Text -- ^ 'siteUrl'
113− -> Text -- ^ 'url'
114− -> URLcrawlerrorssamplesGet'
115−uRLcrawlerrorssamplesGet' pUgPlatform_ pUgCategory_ pUgSiteURL_ pUgURL_ =
116− URLcrawlerrorssamplesGet'
117− { _ugQuotaUser = Nothing
118− , _ugPrettyPrint = True
119− , _ugPlatform = pUgPlatform_
120− , _ugUserIP = Nothing
121− , _ugCategory = pUgCategory_
122− , _ugSiteURL = pUgSiteURL_
123− , _ugURL = pUgURL_
124− , _ugKey = Nothing
125− , _ugOAuthToken = Nothing
126− , _ugFields = Nothing
127− }
128−
129−-- | Available to use for quota purposes for server-side applications. Can be
130−-- any arbitrary string assigned to a user, but should not exceed 40
131−-- characters. Overrides userIp if both are provided.
132−ugQuotaUser :: Lens' URLcrawlerrorssamplesGet' (Maybe Text)
133−ugQuotaUser
134− = lens _ugQuotaUser (\ s a -> s{_ugQuotaUser = a})
135−
136−-- | Returns response with indentations and line breaks.
137−ugPrettyPrint :: Lens' URLcrawlerrorssamplesGet' Bool
138−ugPrettyPrint
139− = lens _ugPrettyPrint
140− (\ s a -> s{_ugPrettyPrint = a})
141−
142−-- | The user agent type (platform) that made the request. For example: web
143−ugPlatform :: Lens' URLcrawlerrorssamplesGet' WebmastersURLcrawlerrorssamplesGetPlatform
144−ugPlatform
145− = lens _ugPlatform (\ s a -> s{_ugPlatform = a})
146−
147−-- | IP address of the site where the request originates. Use this if you
148−-- want to enforce per-user limits.
149−ugUserIP :: Lens' URLcrawlerrorssamplesGet' (Maybe Text)
150−ugUserIP = lens _ugUserIP (\ s a -> s{_ugUserIP = a})
151−
152−-- | The crawl error category. For example: authPermissions
153−ugCategory :: Lens' URLcrawlerrorssamplesGet' WebmastersURLcrawlerrorssamplesGetCategory
154−ugCategory
155− = lens _ugCategory (\ s a -> s{_ugCategory = a})
156−
157−-- | The site\'s URL, including protocol. For example:
158−-- http:\/\/www.example.com\/
159−ugSiteURL :: Lens' URLcrawlerrorssamplesGet' Text
160−ugSiteURL
161− = lens _ugSiteURL (\ s a -> s{_ugSiteURL = a})
162−
163−-- | The relative path (without the site) of the sample URL. It must be one
164−-- of the URLs returned by list(). For example, for the URL
165−-- https:\/\/www.example.com\/pagename on the site
166−-- https:\/\/www.example.com\/, the url value is pagename
167−ugURL :: Lens' URLcrawlerrorssamplesGet' Text
168−ugURL = lens _ugURL (\ s a -> s{_ugURL = a})
169−
170−-- | API key. Your API key identifies your project and provides you with API
171−-- access, quota, and reports. Required unless you provide an OAuth 2.0
172−-- token.
173−ugKey :: Lens' URLcrawlerrorssamplesGet' (Maybe Key)
174−ugKey = lens _ugKey (\ s a -> s{_ugKey = a})
175−
176−-- | OAuth 2.0 token for the current user.
177−ugOAuthToken :: Lens' URLcrawlerrorssamplesGet' (Maybe OAuthToken)
178−ugOAuthToken
179− = lens _ugOAuthToken (\ s a -> s{_ugOAuthToken = a})
180−
181−-- | Selector specifying which fields to include in a partial response.
182−ugFields :: Lens' URLcrawlerrorssamplesGet' (Maybe Text)
183−ugFields = lens _ugFields (\ s a -> s{_ugFields = a})
184−
185−instance GoogleAuth URLcrawlerrorssamplesGet' where
186− authKey = ugKey . _Just
187− authToken = ugOAuthToken . _Just
188−
189−instance GoogleRequest URLcrawlerrorssamplesGet'
190− where
191− type Rs URLcrawlerrorssamplesGet' =
192− URLCrawlErrorsSample
193− request = requestWithRoute defReq webmasterToolsURL
194− requestWithRoute r u URLcrawlerrorssamplesGet'{..}
195− = go _ugQuotaUser (Just _ugPrettyPrint)
196− (Just _ugPlatform)
197− _ugUserIP
198− (Just _ugCategory)
199− _ugSiteURL
200− _ugURL
201− _ugKey
202− _ugOAuthToken
203− _ugFields
204− (Just AltJSON)
205− where go
206− = clientWithRoute
207− (Proxy :: Proxy UrlcrawlerrorssamplesGetResource)
208− r
209− u
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/URLcrawlerrorssamples/List.hsdeleted−196
@@ -1,196 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE OverloadedStrings #-}
5−{-# LANGUAGE RecordWildCards #-}
6−{-# LANGUAGE TypeFamilies #-}
7−{-# LANGUAGE TypeOperators #-}
8−
9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11−
12−-- |
13−-- Module : Network.Google.Resource.Webmasters.URLcrawlerrorssamples.List
14−-- Copyright : (c) 2015 Brendan Hay
15−-- License : Mozilla Public License, v. 2.0.
16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
17−-- Stability : auto-generated
18−-- Portability : non-portable (GHC extensions)
19−--
20−-- | Lists a site\'s sample URLs for the specified crawl error category and
21−-- platform.
22−--
23−-- /See:/ <https://developers.google.com/webmaster-tools/ Webmaster Tools API Reference> for @WebmastersURLcrawlerrorssamplesList@.
24−module Network.Google.Resource.Webmasters.URLcrawlerrorssamples.List
25− (
26− -- * REST Resource
27− UrlcrawlerrorssamplesListResource
28−
29− -- * Creating a Request
30− , uRLcrawlerrorssamplesList'
31− , URLcrawlerrorssamplesList'
32−
33− -- * Request Lenses
34− , ulQuotaUser
35− , ulPrettyPrint
36− , ulPlatform
37− , ulUserIP
38− , ulCategory
39− , ulSiteURL
40− , ulKey
41− , ulOAuthToken
42− , ulFields
43− ) where
44−
45−import Network.Google.Prelude
46−import Network.Google.WebmasterTools.Types
47−
48−-- | A resource alias for @WebmastersURLcrawlerrorssamplesList@ which the
49−-- 'URLcrawlerrorssamplesList'' request conforms to.
50−type UrlcrawlerrorssamplesListResource =
51− "sites" :>
52− Capture "siteUrl" Text :>
53− "urlCrawlErrorsSamples" :>
54− QueryParam "quotaUser" Text :>
55− QueryParam "prettyPrint" Bool :>
56− QueryParam "platform"
57− WebmastersURLcrawlerrorssamplesListPlatform
58− :>
59− QueryParam "userIp" Text :>
60− QueryParam "category"
61− WebmastersURLcrawlerrorssamplesListCategory
62− :>
63− QueryParam "key" Key :>
64− QueryParam "oauth_token" OAuthToken :>
65− QueryParam "fields" Text :>
66− QueryParam "alt" AltJSON :>
67− Get '[JSON] URLCrawlErrorsSamplesListResponse
68−
69−-- | Lists a site\'s sample URLs for the specified crawl error category and
70−-- platform.
71−--
72−-- /See:/ 'uRLcrawlerrorssamplesList'' smart constructor.
73−data URLcrawlerrorssamplesList' = URLcrawlerrorssamplesList'
74− { _ulQuotaUser :: !(Maybe Text)
75− , _ulPrettyPrint :: !Bool
76− , _ulPlatform :: !WebmastersURLcrawlerrorssamplesListPlatform
77− , _ulUserIP :: !(Maybe Text)
78− , _ulCategory :: !WebmastersURLcrawlerrorssamplesListCategory
79− , _ulSiteURL :: !Text
80− , _ulKey :: !(Maybe Key)
81− , _ulOAuthToken :: !(Maybe OAuthToken)
82− , _ulFields :: !(Maybe Text)
83− } deriving (Eq,Read,Show,Data,Typeable,Generic)
84−
85−-- | Creates a value of 'URLcrawlerrorssamplesList'' with the minimum fields required to make a request.
86−--
87−-- Use one of the following lenses to modify other fields as desired:
88−--
89−-- * 'ulQuotaUser'
90−--
91−-- * 'ulPrettyPrint'
92−--
93−-- * 'ulPlatform'
94−--
95−-- * 'ulUserIP'
96−--
97−-- * 'ulCategory'
98−--
99−-- * 'ulSiteURL'
100−--
101−-- * 'ulKey'
102−--
103−-- * 'ulOAuthToken'
104−--
105−-- * 'ulFields'
106−uRLcrawlerrorssamplesList'
107− :: WebmastersURLcrawlerrorssamplesListPlatform -- ^ 'platform'
108− -> WebmastersURLcrawlerrorssamplesListCategory -- ^ 'category'
109− -> Text -- ^ 'siteUrl'
110− -> URLcrawlerrorssamplesList'
111−uRLcrawlerrorssamplesList' pUlPlatform_ pUlCategory_ pUlSiteURL_ =
112− URLcrawlerrorssamplesList'
113− { _ulQuotaUser = Nothing
114− , _ulPrettyPrint = True
115− , _ulPlatform = pUlPlatform_
116− , _ulUserIP = Nothing
117− , _ulCategory = pUlCategory_
118− , _ulSiteURL = pUlSiteURL_
119− , _ulKey = Nothing
120− , _ulOAuthToken = Nothing
121− , _ulFields = Nothing
122− }
123−
124−-- | Available to use for quota purposes for server-side applications. Can be
125−-- any arbitrary string assigned to a user, but should not exceed 40
126−-- characters. Overrides userIp if both are provided.
127−ulQuotaUser :: Lens' URLcrawlerrorssamplesList' (Maybe Text)
128−ulQuotaUser
129− = lens _ulQuotaUser (\ s a -> s{_ulQuotaUser = a})
130−
131−-- | Returns response with indentations and line breaks.
132−ulPrettyPrint :: Lens' URLcrawlerrorssamplesList' Bool
133−ulPrettyPrint
134− = lens _ulPrettyPrint
135− (\ s a -> s{_ulPrettyPrint = a})
136−
137−-- | The user agent type (platform) that made the request. For example: web
138−ulPlatform :: Lens' URLcrawlerrorssamplesList' WebmastersURLcrawlerrorssamplesListPlatform
139−ulPlatform
140− = lens _ulPlatform (\ s a -> s{_ulPlatform = a})
141−
142−-- | IP address of the site where the request originates. Use this if you
143−-- want to enforce per-user limits.
144−ulUserIP :: Lens' URLcrawlerrorssamplesList' (Maybe Text)
145−ulUserIP = lens _ulUserIP (\ s a -> s{_ulUserIP = a})
146−
147−-- | The crawl error category. For example: authPermissions
148−ulCategory :: Lens' URLcrawlerrorssamplesList' WebmastersURLcrawlerrorssamplesListCategory
149−ulCategory
150− = lens _ulCategory (\ s a -> s{_ulCategory = a})
151−
152−-- | The site\'s URL, including protocol. For example:
153−-- http:\/\/www.example.com\/
154−ulSiteURL :: Lens' URLcrawlerrorssamplesList' Text
155−ulSiteURL
156− = lens _ulSiteURL (\ s a -> s{_ulSiteURL = a})
157−
158−-- | API key. Your API key identifies your project and provides you with API
159−-- access, quota, and reports. Required unless you provide an OAuth 2.0
160−-- token.
161−ulKey :: Lens' URLcrawlerrorssamplesList' (Maybe Key)
162−ulKey = lens _ulKey (\ s a -> s{_ulKey = a})
163−
164−-- | OAuth 2.0 token for the current user.
165−ulOAuthToken :: Lens' URLcrawlerrorssamplesList' (Maybe OAuthToken)
166−ulOAuthToken
167− = lens _ulOAuthToken (\ s a -> s{_ulOAuthToken = a})
168−
169−-- | Selector specifying which fields to include in a partial response.
170−ulFields :: Lens' URLcrawlerrorssamplesList' (Maybe Text)
171−ulFields = lens _ulFields (\ s a -> s{_ulFields = a})
172−
173−instance GoogleAuth URLcrawlerrorssamplesList' where
174− authKey = ulKey . _Just
175− authToken = ulOAuthToken . _Just
176−
177−instance GoogleRequest URLcrawlerrorssamplesList'
178− where
179− type Rs URLcrawlerrorssamplesList' =
180− URLCrawlErrorsSamplesListResponse
181− request = requestWithRoute defReq webmasterToolsURL
182− requestWithRoute r u URLcrawlerrorssamplesList'{..}
183− = go _ulQuotaUser (Just _ulPrettyPrint)
184− (Just _ulPlatform)
185− _ulUserIP
186− (Just _ulCategory)
187− _ulSiteURL
188− _ulKey
189− _ulOAuthToken
190− _ulFields
191− (Just AltJSON)
192− where go
193− = clientWithRoute
194− (Proxy :: Proxy UrlcrawlerrorssamplesListResource)
195− r
196− u
gogol-webmaster-tools/gen/Network/Google/Resource/Webmasters/URLcrawlerrorssamples/MarkAsFixed.hsdeleted−216
@@ -1,216 +0,0 @@
1−{-# LANGUAGE DataKinds #-}
2−{-# LANGUAGE DeriveDataTypeable #-}
3−{-# LANGUAGE DeriveGeneric #-}
4−{-# LANGUAGE OverloadedStrings #-}
5−{-# LANGUAGE RecordWildCards #-}
6−{-# LANGUAGE TypeFamilies #-}
7−{-# LANGUAGE TypeOperators #-}
8−
9−{-# OPTIONS_GHC -fno-warn-unused-imports #-}
10−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11−
12−-- |
13−-- Module : Network.Google.Resource.Webmasters.URLcrawlerrorssamples.MarkAsFixed
14−-- Copyright : (c) 2015 Brendan Hay
15−-- License : Mozilla Public License, v. 2.0.
16−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
17−-- Stability : auto-generated
18−-- Portability : non-portable (GHC extensions)
19−--
20−-- | Marks the provided site\'s sample URL as fixed, and removes it from the
21−-- samples list.
22−--
23−-- /See:/ <https://developers.google.com/webmaster-tools/ Webmaster Tools API Reference> for @WebmastersURLcrawlerrorssamplesMarkAsFixed@.
24−module Network.Google.Resource.Webmasters.URLcrawlerrorssamples.MarkAsFixed
25− (
26− -- * REST Resource
27− UrlcrawlerrorssamplesMarkAsFixedResource
28−
29− -- * Creating a Request
30− , uRLcrawlerrorssamplesMarkAsFixed'
31− , URLcrawlerrorssamplesMarkAsFixed'
32−
33− -- * Request Lenses
34− , umafQuotaUser
35− , umafPrettyPrint
36− , umafPlatform
37− , umafUserIP
38− , umafCategory
39− , umafSiteURL
40− , umafURL
41− , umafKey
42− , umafOAuthToken
43− , umafFields
44− ) where
45−
46−import Network.Google.Prelude
47−import Network.Google.WebmasterTools.Types
48−
49−-- | A resource alias for @WebmastersURLcrawlerrorssamplesMarkAsFixed@ which the
50−-- 'URLcrawlerrorssamplesMarkAsFixed'' request conforms to.
51−type UrlcrawlerrorssamplesMarkAsFixedResource =
52− "sites" :>
53− Capture "siteUrl" Text :>
54− "urlCrawlErrorsSamples" :>
55− Capture "url" Text :>
56− QueryParam "quotaUser" Text :>
57− QueryParam "prettyPrint" Bool :>
58− QueryParam "platform"
59− WebmastersURLcrawlerrorssamplesMarkAsFixedPlatform
60− :>
61− QueryParam "userIp" Text :>
62− QueryParam "category"
63− WebmastersURLcrawlerrorssamplesMarkAsFixedCategory
64− :>
65− QueryParam "key" Key :>
66− QueryParam "oauth_token" OAuthToken :>
67− QueryParam "fields" Text :>
68− QueryParam "alt" AltJSON :> Delete '[JSON] ()
69−
70−-- | Marks the provided site\'s sample URL as fixed, and removes it from the
71−-- samples list.
72−--
73−-- /See:/ 'uRLcrawlerrorssamplesMarkAsFixed'' smart constructor.
74−data URLcrawlerrorssamplesMarkAsFixed' = URLcrawlerrorssamplesMarkAsFixed'
75− { _umafQuotaUser :: !(Maybe Text)
76− , _umafPrettyPrint :: !Bool
77− , _umafPlatform :: !WebmastersURLcrawlerrorssamplesMarkAsFixedPlatform
78− , _umafUserIP :: !(Maybe Text)
79− , _umafCategory :: !WebmastersURLcrawlerrorssamplesMarkAsFixedCategory
80− , _umafSiteURL :: !Text
81− , _umafURL :: !Text
82− , _umafKey :: !(Maybe Key)
83− , _umafOAuthToken :: !(Maybe OAuthToken)
84− , _umafFields :: !(Maybe Text)
85− } deriving (Eq,Read,Show,Data,Typeable,Generic)
86−
87−-- | Creates a value of 'URLcrawlerrorssamplesMarkAsFixed'' with the minimum fields required to make a request.
88−--
89−-- Use one of the following lenses to modify other fields as desired:
90−--
91−-- * 'umafQuotaUser'
92−--
93−-- * 'umafPrettyPrint'
94−--
95−-- * 'umafPlatform'
96−--
97−-- * 'umafUserIP'
98−--
99−-- * 'umafCategory'
100−--
101−-- * 'umafSiteURL'
102−--
103−-- * 'umafURL'
104−--
105−-- * 'umafKey'
106−--
107−-- * 'umafOAuthToken'
108−--
109−-- * 'umafFields'
110−uRLcrawlerrorssamplesMarkAsFixed'
111− :: WebmastersURLcrawlerrorssamplesMarkAsFixedPlatform -- ^ 'platform'
112− -> WebmastersURLcrawlerrorssamplesMarkAsFixedCategory -- ^ 'category'
113− -> Text -- ^ 'siteUrl'
114− -> Text -- ^ 'url'
115− -> URLcrawlerrorssamplesMarkAsFixed'
116−uRLcrawlerrorssamplesMarkAsFixed' pUmafPlatform_ pUmafCategory_ pUmafSiteURL_ pUmafURL_ =
117− URLcrawlerrorssamplesMarkAsFixed'
118− { _umafQuotaUser = Nothing
119− , _umafPrettyPrint = True
120− , _umafPlatform = pUmafPlatform_
121− , _umafUserIP = Nothing
122− , _umafCategory = pUmafCategory_
123− , _umafSiteURL = pUmafSiteURL_
124− , _umafURL = pUmafURL_
125− , _umafKey = Nothing
126− , _umafOAuthToken = Nothing
127− , _umafFields = Nothing
128− }
129−
130−-- | Available to use for quota purposes for server-side applications. Can be
131−-- any arbitrary string assigned to a user, but should not exceed 40
132−-- characters. Overrides userIp if both are provided.
133−umafQuotaUser :: Lens' URLcrawlerrorssamplesMarkAsFixed' (Maybe Text)
134−umafQuotaUser
135− = lens _umafQuotaUser
136− (\ s a -> s{_umafQuotaUser = a})
137−
138−-- | Returns response with indentations and line breaks.
139−umafPrettyPrint :: Lens' URLcrawlerrorssamplesMarkAsFixed' Bool
140−umafPrettyPrint
141− = lens _umafPrettyPrint
142− (\ s a -> s{_umafPrettyPrint = a})
143−
144−-- | The user agent type (platform) that made the request. For example: web
145−umafPlatform :: Lens' URLcrawlerrorssamplesMarkAsFixed' WebmastersURLcrawlerrorssamplesMarkAsFixedPlatform
146−umafPlatform
147− = lens _umafPlatform (\ s a -> s{_umafPlatform = a})
148−
149−-- | IP address of the site where the request originates. Use this if you
150−-- want to enforce per-user limits.
151−umafUserIP :: Lens' URLcrawlerrorssamplesMarkAsFixed' (Maybe Text)
152−umafUserIP
153− = lens _umafUserIP (\ s a -> s{_umafUserIP = a})
154−
155−-- | The crawl error category. For example: authPermissions
156−umafCategory :: Lens' URLcrawlerrorssamplesMarkAsFixed' WebmastersURLcrawlerrorssamplesMarkAsFixedCategory
157−umafCategory
158− = lens _umafCategory (\ s a -> s{_umafCategory = a})
159−
160−-- | The site\'s URL, including protocol. For example:
161−-- http:\/\/www.example.com\/
162−umafSiteURL :: Lens' URLcrawlerrorssamplesMarkAsFixed' Text
163−umafSiteURL
164− = lens _umafSiteURL (\ s a -> s{_umafSiteURL = a})
165−
166−-- | The relative path (without the site) of the sample URL. It must be one
167−-- of the URLs returned by list(). For example, for the URL
168−-- https:\/\/www.example.com\/pagename on the site
169−-- https:\/\/www.example.com\/, the url value is pagename
170−umafURL :: Lens' URLcrawlerrorssamplesMarkAsFixed' Text
171−umafURL = lens _umafURL (\ s a -> s{_umafURL = a})
172−
173−-- | API key. Your API key identifies your project and provides you with API
174−-- access, quota, and reports. Required unless you provide an OAuth 2.0
175−-- token.
176−umafKey :: Lens' URLcrawlerrorssamplesMarkAsFixed' (Maybe Key)
177−umafKey = lens _umafKey (\ s a -> s{_umafKey = a})
178−
179−-- | OAuth 2.0 token for the current user.
180−umafOAuthToken :: Lens' URLcrawlerrorssamplesMarkAsFixed' (Maybe OAuthToken)
181−umafOAuthToken
182− = lens _umafOAuthToken
183− (\ s a -> s{_umafOAuthToken = a})
184−
185−-- | Selector specifying which fields to include in a partial response.
186−umafFields :: Lens' URLcrawlerrorssamplesMarkAsFixed' (Maybe Text)
187−umafFields
188− = lens _umafFields (\ s a -> s{_umafFields = a})
189−
190−instance GoogleAuth URLcrawlerrorssamplesMarkAsFixed'
191− where
192− authKey = umafKey . _Just
193− authToken = umafOAuthToken . _Just
194−
195−instance GoogleRequest
196− URLcrawlerrorssamplesMarkAsFixed' where
197− type Rs URLcrawlerrorssamplesMarkAsFixed' = ()
198− request = requestWithRoute defReq webmasterToolsURL
199− requestWithRoute r u
200− URLcrawlerrorssamplesMarkAsFixed'{..}
201− = go _umafQuotaUser (Just _umafPrettyPrint)
202− (Just _umafPlatform)
203− _umafUserIP
204− (Just _umafCategory)
205− _umafSiteURL
206− _umafURL
207− _umafKey
208− _umafOAuthToken
209− _umafFields
210− (Just AltJSON)
211− where go
212− = clientWithRoute
213− (Proxy ::
214− Proxy UrlcrawlerrorssamplesMarkAsFixedResource)
215− r
216− u
gogol-webmaster-tools/gen/Network/Google/WebmasterTools.hs+33−33
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Lets you view Google Webmaster Tools data for your verified sites.
15+-- | Lets you view Google Webmaster Tools data for your verified sites.
16--
16--
17-- /See:/ <https://developers.google.com/webmaster-tools/ Webmaster Tools API Reference>
17-- /See:/ <https://developers.google.com/webmaster-tools/ Webmaster Tools API Reference>
18module Network.Google.WebmasterTools
18module Network.Google.WebmasterTools
@@ -53,17 +53,17 @@ module Network.Google.WebmasterTools
53 -- ** WebmastersSitesList
53 -- ** WebmastersSitesList
54 , module Network.Google.Resource.Webmasters.Sites.List
54 , module Network.Google.Resource.Webmasters.Sites.List
55
55
56− -- ** WebmastersURLcrawlerrorscountsQuery
56+ -- ** WebmastersURLCrawlErrorscountsQuery
57− , module Network.Google.Resource.Webmasters.URLcrawlerrorscounts.Query
57+ , module Network.Google.Resource.Webmasters.URLCrawlErrorscounts.Query
58
58
59− -- ** WebmastersURLcrawlerrorssamplesGet
59+ -- ** WebmastersURLCrawlErrorsSamplesGet
60− , module Network.Google.Resource.Webmasters.URLcrawlerrorssamples.Get
60+ , module Network.Google.Resource.Webmasters.URLCrawlErrorsSamples.Get
61
61
62− -- ** WebmastersURLcrawlerrorssamplesList
62+ -- ** WebmastersURLCrawlErrorsSamplesList
63− , module Network.Google.Resource.Webmasters.URLcrawlerrorssamples.List
63+ , module Network.Google.Resource.Webmasters.URLCrawlErrorsSamples.List
64
64
65− -- ** WebmastersURLcrawlerrorssamplesMarkAsFixed
65+ -- ** WebmastersURLCrawlErrorsSamplesMarkAsFixed
66− , module Network.Google.Resource.Webmasters.URLcrawlerrorssamples.MarkAsFixed
66+ , module Network.Google.Resource.Webmasters.URLCrawlErrorsSamples.MarkAsFixed
67
67
68 -- * Types
68 -- * Types
69
69
@@ -115,8 +115,8 @@ module Network.Google.WebmasterTools
115 , ucecCount
115 , ucecCount
116 , ucecTimestamp
116 , ucecTimestamp
117
117
118− -- ** WebmastersURLcrawlerrorscountsQueryCategory
118+ -- ** WebmastersURLCrawlErrorscountsQueryCategory
119− , WebmastersURLcrawlerrorscountsQueryCategory (..)
119+ , WebmastersURLCrawlErrorscountsQueryCategory (..)
120
120
121 -- ** SearchAnalyticsQueryResponse
121 -- ** SearchAnalyticsQueryResponse
122 , SearchAnalyticsQueryResponse
122 , SearchAnalyticsQueryResponse
@@ -124,14 +124,14 @@ module Network.Google.WebmasterTools
124 , saqrRows
124 , saqrRows
125 , saqrResponseAggregationType
125 , saqrResponseAggregationType
126
126
127− -- ** WebmastersURLcrawlerrorssamplesListPlatform
127+ -- ** WebmastersURLCrawlErrorsSamplesListPlatform
128− , WebmastersURLcrawlerrorssamplesListPlatform (..)
128+ , WebmastersURLCrawlErrorsSamplesListPlatform (..)
129
129
130− -- ** WebmastersURLcrawlerrorssamplesGetCategory
130+ -- ** WebmastersURLCrawlErrorsSamplesGetCategory
131− , WebmastersURLcrawlerrorssamplesGetCategory (..)
131+ , WebmastersURLCrawlErrorsSamplesGetCategory (..)
132
132
133− -- ** WebmastersURLcrawlerrorssamplesMarkAsFixedPlatform
133+ -- ** WebmastersURLCrawlErrorsSamplesMarkAsFixedPlatform
134− , WebmastersURLcrawlerrorssamplesMarkAsFixedPlatform (..)
134+ , WebmastersURLCrawlErrorsSamplesMarkAsFixedPlatform (..)
135
135
136 -- ** URLCrawlErrorsSamplesListResponse
136 -- ** URLCrawlErrorsSamplesListResponse
137 , URLCrawlErrorsSamplesListResponse
137 , URLCrawlErrorsSamplesListResponse
@@ -170,11 +170,11 @@ module Network.Google.WebmasterTools
170 , wsType
170 , wsType
171 , wsErrors
171 , wsErrors
172
172
173− -- ** WebmastersURLcrawlerrorssamplesMarkAsFixedCategory
173+ -- ** WebmastersURLCrawlErrorsSamplesMarkAsFixedCategory
174− , WebmastersURLcrawlerrorssamplesMarkAsFixedCategory (..)
174+ , WebmastersURLCrawlErrorsSamplesMarkAsFixedCategory (..)
175
175
176− -- ** WebmastersURLcrawlerrorssamplesGetPlatform
176+ -- ** WebmastersURLCrawlErrorsSamplesGetPlatform
177− , WebmastersURLcrawlerrorssamplesGetPlatform (..)
177+ , WebmastersURLCrawlErrorsSamplesGetPlatform (..)
178
178
179 -- ** SearchAnalyticsQueryRequest
179 -- ** SearchAnalyticsQueryRequest
180 , SearchAnalyticsQueryRequest
180 , SearchAnalyticsQueryRequest
@@ -187,8 +187,8 @@ module Network.Google.WebmasterTools
187 , saqrStartDate
187 , saqrStartDate
188 , saqrDimensions
188 , saqrDimensions
189
189
190− -- ** WebmastersURLcrawlerrorssamplesListCategory
190+ -- ** WebmastersURLCrawlErrorsSamplesListCategory
191− , WebmastersURLcrawlerrorssamplesListCategory (..)
191+ , WebmastersURLCrawlErrorsSamplesListCategory (..)
192
192
193 -- ** SitesListResponse
193 -- ** SitesListResponse
194 , SitesListResponse
194 , SitesListResponse
@@ -201,8 +201,8 @@ module Network.Google.WebmasterTools
201 , wsPermissionLevel
201 , wsPermissionLevel
202 , wsSiteURL
202 , wsSiteURL
203
203
204− -- ** WebmastersURLcrawlerrorscountsQueryPlatform
204+ -- ** WebmastersURLCrawlErrorscountsQueryPlatform
205− , WebmastersURLcrawlerrorscountsQueryPlatform (..)
205+ , WebmastersURLCrawlErrorscountsQueryPlatform (..)
206 ) where
206 ) where
207
207
208import Network.Google.Prelude
208import Network.Google.Prelude
@@ -215,10 +215,10 @@ import Network.Google.Resource.Webmasters.Sites.Add
215import Network.Google.Resource.Webmasters.Sites.Delete
215import Network.Google.Resource.Webmasters.Sites.Delete
216import Network.Google.Resource.Webmasters.Sites.Get
216import Network.Google.Resource.Webmasters.Sites.Get
217import Network.Google.Resource.Webmasters.Sites.List
217import Network.Google.Resource.Webmasters.Sites.List
218−import Network.Google.Resource.Webmasters.URLcrawlerrorscounts.Query
218+import Network.Google.Resource.Webmasters.URLCrawlErrorscounts.Query
219−import Network.Google.Resource.Webmasters.URLcrawlerrorssamples.Get
219+import Network.Google.Resource.Webmasters.URLCrawlErrorsSamples.Get
220−import Network.Google.Resource.Webmasters.URLcrawlerrorssamples.List
220+import Network.Google.Resource.Webmasters.URLCrawlErrorsSamples.List
221−import Network.Google.Resource.Webmasters.URLcrawlerrorssamples.MarkAsFixed
221+import Network.Google.Resource.Webmasters.URLCrawlErrorsSamples.MarkAsFixed
222import Network.Google.WebmasterTools.Types
222import Network.Google.WebmasterTools.Types
223
223
224{- $resources
224{- $resources
@@ -226,9 +226,9 @@ TODO
226-}
226-}
227
227
228type WebmasterToolsAPI =
228type WebmasterToolsAPI =
229− UrlcrawlerrorssamplesListResource :<|>
229+ URLCrawlErrorsSamplesListResource :<|>
230− UrlcrawlerrorssamplesGetResource
230+ URLCrawlErrorsSamplesGetResource
231− :<|> UrlcrawlerrorssamplesMarkAsFixedResource
231+ :<|> URLCrawlErrorsSamplesMarkAsFixedResource
232 :<|> SitemapsListResource
232 :<|> SitemapsListResource
233 :<|> SitemapsGetResource
233 :<|> SitemapsGetResource
234 :<|> SitemapsSubmitResource
234 :<|> SitemapsSubmitResource
@@ -238,7 +238,7 @@ type WebmasterToolsAPI =
238 :<|> SitesGetResource
238 :<|> SitesGetResource
239 :<|> SitesAddResource
239 :<|> SitesAddResource
240 :<|> SitesDeleteResource
240 :<|> SitesDeleteResource
241− :<|> UrlcrawlerrorscountsQueryResource
241+ :<|> URLCrawlErrorscountsQueryResource
242
242
243webmasterToolsAPI :: Proxy WebmasterToolsAPI
243webmasterToolsAPI :: Proxy WebmasterToolsAPI
244webmasterToolsAPI = Proxy
244webmasterToolsAPI = Proxy
gogol-webmaster-tools/gen/Network/Google/WebmasterTools/Types.hs+16−16
@@ -65,8 +65,8 @@ module Network.Google.WebmasterTools.Types
65 , ucecCount
65 , ucecCount
66 , ucecTimestamp
66 , ucecTimestamp
67
67
68− -- * WebmastersURLcrawlerrorscountsQueryCategory
68+ -- * WebmastersURLCrawlErrorscountsQueryCategory
69− , WebmastersURLcrawlerrorscountsQueryCategory (..)
69+ , WebmastersURLCrawlErrorscountsQueryCategory (..)
70
70
71 -- * SearchAnalyticsQueryResponse
71 -- * SearchAnalyticsQueryResponse
72 , SearchAnalyticsQueryResponse
72 , SearchAnalyticsQueryResponse
@@ -74,14 +74,14 @@ module Network.Google.WebmasterTools.Types
74 , saqrRows
74 , saqrRows
75 , saqrResponseAggregationType
75 , saqrResponseAggregationType
76
76
77− -- * WebmastersURLcrawlerrorssamplesListPlatform
77+ -- * WebmastersURLCrawlErrorsSamplesListPlatform
78− , WebmastersURLcrawlerrorssamplesListPlatform (..)
78+ , WebmastersURLCrawlErrorsSamplesListPlatform (..)
79
79
80− -- * WebmastersURLcrawlerrorssamplesGetCategory
80+ -- * WebmastersURLCrawlErrorsSamplesGetCategory
81− , WebmastersURLcrawlerrorssamplesGetCategory (..)
81+ , WebmastersURLCrawlErrorsSamplesGetCategory (..)
82
82
83− -- * WebmastersURLcrawlerrorssamplesMarkAsFixedPlatform
83+ -- * WebmastersURLCrawlErrorsSamplesMarkAsFixedPlatform
84− , WebmastersURLcrawlerrorssamplesMarkAsFixedPlatform (..)
84+ , WebmastersURLCrawlErrorsSamplesMarkAsFixedPlatform (..)
85
85
86 -- * URLCrawlErrorsSamplesListResponse
86 -- * URLCrawlErrorsSamplesListResponse
87 , URLCrawlErrorsSamplesListResponse
87 , URLCrawlErrorsSamplesListResponse
@@ -120,11 +120,11 @@ module Network.Google.WebmasterTools.Types
120 , wsType
120 , wsType
121 , wsErrors
121 , wsErrors
122
122
123− -- * WebmastersURLcrawlerrorssamplesMarkAsFixedCategory
123+ -- * WebmastersURLCrawlErrorsSamplesMarkAsFixedCategory
124− , WebmastersURLcrawlerrorssamplesMarkAsFixedCategory (..)
124+ , WebmastersURLCrawlErrorsSamplesMarkAsFixedCategory (..)
125
125
126− -- * WebmastersURLcrawlerrorssamplesGetPlatform
126+ -- * WebmastersURLCrawlErrorsSamplesGetPlatform
127− , WebmastersURLcrawlerrorssamplesGetPlatform (..)
127+ , WebmastersURLCrawlErrorsSamplesGetPlatform (..)
128
128
129 -- * SearchAnalyticsQueryRequest
129 -- * SearchAnalyticsQueryRequest
130 , SearchAnalyticsQueryRequest
130 , SearchAnalyticsQueryRequest
@@ -137,8 +137,8 @@ module Network.Google.WebmasterTools.Types
137 , saqrStartDate
137 , saqrStartDate
138 , saqrDimensions
138 , saqrDimensions
139
139
140− -- * WebmastersURLcrawlerrorssamplesListCategory
140+ -- * WebmastersURLCrawlErrorsSamplesListCategory
141− , WebmastersURLcrawlerrorssamplesListCategory (..)
141+ , WebmastersURLCrawlErrorsSamplesListCategory (..)
142
142
143 -- * SitesListResponse
143 -- * SitesListResponse
144 , SitesListResponse
144 , SitesListResponse
@@ -151,8 +151,8 @@ module Network.Google.WebmasterTools.Types
151 , wsPermissionLevel
151 , wsPermissionLevel
152 , wsSiteURL
152 , wsSiteURL
153
153
154− -- * WebmastersURLcrawlerrorscountsQueryPlatform
154+ -- * WebmastersURLCrawlErrorscountsQueryPlatform
155− , WebmastersURLcrawlerrorscountsQueryPlatform (..)
155+ , WebmastersURLCrawlErrorscountsQueryPlatform (..)
156 ) where
156 ) where
157
157
158import Network.Google.Prelude
158import Network.Google.Prelude
gogol-webmaster-tools/gen/Network/Google/WebmasterTools/Types/Sum.hs+161−161
@@ -19,7 +19,7 @@ import Network.Google.Prelude
19
19
20-- | The crawl error category. For example: serverError. If not specified,
20-- | The crawl error category. For example: serverError. If not specified,
21-- returns results for all categories.
21-- returns results for all categories.
22−data WebmastersURLcrawlerrorscountsQueryCategory
22+data WebmastersURLCrawlErrorscountsQueryCategory
23 = AuthPermissions
23 = AuthPermissions
24 -- ^ @authPermissions@
24 -- ^ @authPermissions@
25 | ManyToOneRedirect
25 | ManyToOneRedirect
@@ -38,9 +38,9 @@ data WebmastersURLcrawlerrorscountsQueryCategory
38 -- ^ @soft404@
38 -- ^ @soft404@
39 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
39 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
40
40
41−instance Hashable WebmastersURLcrawlerrorscountsQueryCategory
41+instance Hashable WebmastersURLCrawlErrorscountsQueryCategory
42
42
43−instance FromText WebmastersURLcrawlerrorscountsQueryCategory where
43+instance FromText WebmastersURLCrawlErrorscountsQueryCategory where
44 fromText = \case
44 fromText = \case
45 "authPermissions" -> Just AuthPermissions
45 "authPermissions" -> Just AuthPermissions
46 "manyToOneRedirect" -> Just ManyToOneRedirect
46 "manyToOneRedirect" -> Just ManyToOneRedirect
@@ -52,7 +52,7 @@ instance FromText WebmastersURLcrawlerrorscountsQueryCategory where
52 "soft404" -> Just SOFT404
52 "soft404" -> Just SOFT404
53 _ -> Nothing
53 _ -> Nothing
54
54
55−instance ToText WebmastersURLcrawlerrorscountsQueryCategory where
55+instance ToText WebmastersURLCrawlErrorscountsQueryCategory where
56 toText = \case
56 toText = \case
57 AuthPermissions -> "authPermissions"
57 AuthPermissions -> "authPermissions"
58 ManyToOneRedirect -> "manyToOneRedirect"
58 ManyToOneRedirect -> "manyToOneRedirect"
@@ -63,14 +63,14 @@ instance ToText WebmastersURLcrawlerrorscountsQueryCategory where
63 ServerError -> "serverError"
63 ServerError -> "serverError"
64 SOFT404 -> "soft404"
64 SOFT404 -> "soft404"
65
65
66−instance FromJSON WebmastersURLcrawlerrorscountsQueryCategory where
66+instance FromJSON WebmastersURLCrawlErrorscountsQueryCategory where
67− parseJSON = parseJSONText "WebmastersURLcrawlerrorscountsQueryCategory"
67+ parseJSON = parseJSONText "WebmastersURLCrawlErrorscountsQueryCategory"
68
68
69−instance ToJSON WebmastersURLcrawlerrorscountsQueryCategory where
69+instance ToJSON WebmastersURLCrawlErrorscountsQueryCategory where
70 toJSON = toJSONText
70 toJSON = toJSONText
71
71
72-- | The user agent type (platform) that made the request. For example: web
72-- | The user agent type (platform) that made the request. For example: web
73−data WebmastersURLcrawlerrorssamplesListPlatform
73+data WebmastersURLCrawlErrorsSamplesListPlatform
74 = Mobile
74 = Mobile
75 -- ^ @mobile@
75 -- ^ @mobile@
76 | SmartphoneOnly
76 | SmartphoneOnly
@@ -79,270 +79,270 @@ data WebmastersURLcrawlerrorssamplesListPlatform
79 -- ^ @web@
79 -- ^ @web@
80 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
80 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
81
81
82−instance Hashable WebmastersURLcrawlerrorssamplesListPlatform
82+instance Hashable WebmastersURLCrawlErrorsSamplesListPlatform
83
83
84−instance FromText WebmastersURLcrawlerrorssamplesListPlatform where
84+instance FromText WebmastersURLCrawlErrorsSamplesListPlatform where
85 fromText = \case
85 fromText = \case
86 "mobile" -> Just Mobile
86 "mobile" -> Just Mobile
87 "smartphoneOnly" -> Just SmartphoneOnly
87 "smartphoneOnly" -> Just SmartphoneOnly
88 "web" -> Just Web
88 "web" -> Just Web
89 _ -> Nothing
89 _ -> Nothing
90
90
91−instance ToText WebmastersURLcrawlerrorssamplesListPlatform where
91+instance ToText WebmastersURLCrawlErrorsSamplesListPlatform where
92 toText = \case
92 toText = \case
93 Mobile -> "mobile"
93 Mobile -> "mobile"
94 SmartphoneOnly -> "smartphoneOnly"
94 SmartphoneOnly -> "smartphoneOnly"
95 Web -> "web"
95 Web -> "web"
96
96
97−instance FromJSON WebmastersURLcrawlerrorssamplesListPlatform where
97+instance FromJSON WebmastersURLCrawlErrorsSamplesListPlatform where
98− parseJSON = parseJSONText "WebmastersURLcrawlerrorssamplesListPlatform"
98+ parseJSON = parseJSONText "WebmastersURLCrawlErrorsSamplesListPlatform"
99
99
100−instance ToJSON WebmastersURLcrawlerrorssamplesListPlatform where
100+instance ToJSON WebmastersURLCrawlErrorsSamplesListPlatform where
101 toJSON = toJSONText
101 toJSON = toJSONText
102
102
103-- | The crawl error category. For example: authPermissions
103-- | The crawl error category. For example: authPermissions
104−data WebmastersURLcrawlerrorssamplesGetCategory
104+data WebmastersURLCrawlErrorsSamplesGetCategory
105− = WUGCAuthPermissions
105+ = WUCESGCAuthPermissions
106 -- ^ @authPermissions@
106 -- ^ @authPermissions@
107− | WUGCManyToOneRedirect
107+ | WUCESGCManyToOneRedirect
108 -- ^ @manyToOneRedirect@
108 -- ^ @manyToOneRedirect@
109− | WUGCNotFollowed
109+ | WUCESGCNotFollowed
110 -- ^ @notFollowed@
110 -- ^ @notFollowed@
111− | WUGCNotFound
111+ | WUCESGCNotFound
112 -- ^ @notFound@
112 -- ^ @notFound@
113− | WUGCOther
113+ | WUCESGCOther
114 -- ^ @other@
114 -- ^ @other@
115− | WUGCRoboted
115+ | WUCESGCRoboted
116 -- ^ @roboted@
116 -- ^ @roboted@
117− | WUGCServerError
117+ | WUCESGCServerError
118 -- ^ @serverError@
118 -- ^ @serverError@
119− | WUGCSOFT404
119+ | WUCESGCSOFT404
120 -- ^ @soft404@
120 -- ^ @soft404@
121 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
121 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
122
122
123−instance Hashable WebmastersURLcrawlerrorssamplesGetCategory
123+instance Hashable WebmastersURLCrawlErrorsSamplesGetCategory
124
124
125−instance FromText WebmastersURLcrawlerrorssamplesGetCategory where
125+instance FromText WebmastersURLCrawlErrorsSamplesGetCategory where
126 fromText = \case
126 fromText = \case
127− "authPermissions" -> Just WUGCAuthPermissions
127+ "authPermissions" -> Just WUCESGCAuthPermissions
128− "manyToOneRedirect" -> Just WUGCManyToOneRedirect
128+ "manyToOneRedirect" -> Just WUCESGCManyToOneRedirect
129− "notFollowed" -> Just WUGCNotFollowed
129+ "notFollowed" -> Just WUCESGCNotFollowed
130− "notFound" -> Just WUGCNotFound
130+ "notFound" -> Just WUCESGCNotFound
131− "other" -> Just WUGCOther
131+ "other" -> Just WUCESGCOther
132− "roboted" -> Just WUGCRoboted
132+ "roboted" -> Just WUCESGCRoboted
133− "serverError" -> Just WUGCServerError
133+ "serverError" -> Just WUCESGCServerError
134− "soft404" -> Just WUGCSOFT404
134+ "soft404" -> Just WUCESGCSOFT404
135 _ -> Nothing
135 _ -> Nothing
136
136
137−instance ToText WebmastersURLcrawlerrorssamplesGetCategory where
137+instance ToText WebmastersURLCrawlErrorsSamplesGetCategory where
138 toText = \case
138 toText = \case
139− WUGCAuthPermissions -> "authPermissions"
139+ WUCESGCAuthPermissions -> "authPermissions"
140− WUGCManyToOneRedirect -> "manyToOneRedirect"
140+ WUCESGCManyToOneRedirect -> "manyToOneRedirect"
141− WUGCNotFollowed -> "notFollowed"
141+ WUCESGCNotFollowed -> "notFollowed"
142− WUGCNotFound -> "notFound"
142+ WUCESGCNotFound -> "notFound"
143− WUGCOther -> "other"
143+ WUCESGCOther -> "other"
144− WUGCRoboted -> "roboted"
144+ WUCESGCRoboted -> "roboted"
145− WUGCServerError -> "serverError"
145+ WUCESGCServerError -> "serverError"
146− WUGCSOFT404 -> "soft404"
146+ WUCESGCSOFT404 -> "soft404"
147−
147+
148−instance FromJSON WebmastersURLcrawlerrorssamplesGetCategory where
148+instance FromJSON WebmastersURLCrawlErrorsSamplesGetCategory where
149− parseJSON = parseJSONText "WebmastersURLcrawlerrorssamplesGetCategory"
149+ parseJSON = parseJSONText "WebmastersURLCrawlErrorsSamplesGetCategory"
150−
150+
151−instance ToJSON WebmastersURLcrawlerrorssamplesGetCategory where
151+instance ToJSON WebmastersURLCrawlErrorsSamplesGetCategory where
152 toJSON = toJSONText
152 toJSON = toJSONText
153
153
154-- | The user agent type (platform) that made the request. For example: web
154-- | The user agent type (platform) that made the request. For example: web
155−data WebmastersURLcrawlerrorssamplesMarkAsFixedPlatform
155+data WebmastersURLCrawlErrorsSamplesMarkAsFixedPlatform
156− = WUMAFPMobile
156+ = WUCESMAFPMobile
157 -- ^ @mobile@
157 -- ^ @mobile@
158− | WUMAFPSmartphoneOnly
158+ | WUCESMAFPSmartphoneOnly
159 -- ^ @smartphoneOnly@
159 -- ^ @smartphoneOnly@
160− | WUMAFPWeb
160+ | WUCESMAFPWeb
161 -- ^ @web@
161 -- ^ @web@
162 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
162 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
163
163
164−instance Hashable WebmastersURLcrawlerrorssamplesMarkAsFixedPlatform
164+instance Hashable WebmastersURLCrawlErrorsSamplesMarkAsFixedPlatform
165
165
166−instance FromText WebmastersURLcrawlerrorssamplesMarkAsFixedPlatform where
166+instance FromText WebmastersURLCrawlErrorsSamplesMarkAsFixedPlatform where
167 fromText = \case
167 fromText = \case
168− "mobile" -> Just WUMAFPMobile
168+ "mobile" -> Just WUCESMAFPMobile
169− "smartphoneOnly" -> Just WUMAFPSmartphoneOnly
169+ "smartphoneOnly" -> Just WUCESMAFPSmartphoneOnly
170− "web" -> Just WUMAFPWeb
170+ "web" -> Just WUCESMAFPWeb
171 _ -> Nothing
171 _ -> Nothing
172
172
173−instance ToText WebmastersURLcrawlerrorssamplesMarkAsFixedPlatform where
173+instance ToText WebmastersURLCrawlErrorsSamplesMarkAsFixedPlatform where
174 toText = \case
174 toText = \case
175− WUMAFPMobile -> "mobile"
175+ WUCESMAFPMobile -> "mobile"
176− WUMAFPSmartphoneOnly -> "smartphoneOnly"
176+ WUCESMAFPSmartphoneOnly -> "smartphoneOnly"
177− WUMAFPWeb -> "web"
177+ WUCESMAFPWeb -> "web"
178
178
179−instance FromJSON WebmastersURLcrawlerrorssamplesMarkAsFixedPlatform where
179+instance FromJSON WebmastersURLCrawlErrorsSamplesMarkAsFixedPlatform where
180− parseJSON = parseJSONText "WebmastersURLcrawlerrorssamplesMarkAsFixedPlatform"
180+ parseJSON = parseJSONText "WebmastersURLCrawlErrorsSamplesMarkAsFixedPlatform"
181
181
182−instance ToJSON WebmastersURLcrawlerrorssamplesMarkAsFixedPlatform where
182+instance ToJSON WebmastersURLCrawlErrorsSamplesMarkAsFixedPlatform where
183 toJSON = toJSONText
183 toJSON = toJSONText
184
184
185-- | The crawl error category. For example: authPermissions
185-- | The crawl error category. For example: authPermissions
186−data WebmastersURLcrawlerrorssamplesMarkAsFixedCategory
186+data WebmastersURLCrawlErrorsSamplesMarkAsFixedCategory
187− = WUMAFCAuthPermissions
187+ = WUCESMAFCAuthPermissions
188 -- ^ @authPermissions@
188 -- ^ @authPermissions@
189− | WUMAFCManyToOneRedirect
189+ | WUCESMAFCManyToOneRedirect
190 -- ^ @manyToOneRedirect@
190 -- ^ @manyToOneRedirect@
191− | WUMAFCNotFollowed
191+ | WUCESMAFCNotFollowed
192 -- ^ @notFollowed@
192 -- ^ @notFollowed@
193− | WUMAFCNotFound
193+ | WUCESMAFCNotFound
194 -- ^ @notFound@
194 -- ^ @notFound@
195− | WUMAFCOther
195+ | WUCESMAFCOther
196 -- ^ @other@
196 -- ^ @other@
197− | WUMAFCRoboted
197+ | WUCESMAFCRoboted
198 -- ^ @roboted@
198 -- ^ @roboted@
199− | WUMAFCServerError
199+ | WUCESMAFCServerError
200 -- ^ @serverError@
200 -- ^ @serverError@
201− | WUMAFCSOFT404
201+ | WUCESMAFCSOFT404
202 -- ^ @soft404@
202 -- ^ @soft404@
203 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
203 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
204
204
205−instance Hashable WebmastersURLcrawlerrorssamplesMarkAsFixedCategory
205+instance Hashable WebmastersURLCrawlErrorsSamplesMarkAsFixedCategory
206
206
207−instance FromText WebmastersURLcrawlerrorssamplesMarkAsFixedCategory where
207+instance FromText WebmastersURLCrawlErrorsSamplesMarkAsFixedCategory where
208 fromText = \case
208 fromText = \case
209− "authPermissions" -> Just WUMAFCAuthPermissions
209+ "authPermissions" -> Just WUCESMAFCAuthPermissions
210− "manyToOneRedirect" -> Just WUMAFCManyToOneRedirect
210+ "manyToOneRedirect" -> Just WUCESMAFCManyToOneRedirect
211− "notFollowed" -> Just WUMAFCNotFollowed
211+ "notFollowed" -> Just WUCESMAFCNotFollowed
212− "notFound" -> Just WUMAFCNotFound
212+ "notFound" -> Just WUCESMAFCNotFound
213− "other" -> Just WUMAFCOther
213+ "other" -> Just WUCESMAFCOther
214− "roboted" -> Just WUMAFCRoboted
214+ "roboted" -> Just WUCESMAFCRoboted
215− "serverError" -> Just WUMAFCServerError
215+ "serverError" -> Just WUCESMAFCServerError
216− "soft404" -> Just WUMAFCSOFT404
216+ "soft404" -> Just WUCESMAFCSOFT404
217 _ -> Nothing
217 _ -> Nothing
218
218
219−instance ToText WebmastersURLcrawlerrorssamplesMarkAsFixedCategory where
219+instance ToText WebmastersURLCrawlErrorsSamplesMarkAsFixedCategory where
220 toText = \case
220 toText = \case
221− WUMAFCAuthPermissions -> "authPermissions"
221+ WUCESMAFCAuthPermissions -> "authPermissions"
222− WUMAFCManyToOneRedirect -> "manyToOneRedirect"
222+ WUCESMAFCManyToOneRedirect -> "manyToOneRedirect"
223− WUMAFCNotFollowed -> "notFollowed"
223+ WUCESMAFCNotFollowed -> "notFollowed"
224− WUMAFCNotFound -> "notFound"
224+ WUCESMAFCNotFound -> "notFound"
225− WUMAFCOther -> "other"
225+ WUCESMAFCOther -> "other"
226− WUMAFCRoboted -> "roboted"
226+ WUCESMAFCRoboted -> "roboted"
227− WUMAFCServerError -> "serverError"
227+ WUCESMAFCServerError -> "serverError"
228− WUMAFCSOFT404 -> "soft404"
228+ WUCESMAFCSOFT404 -> "soft404"
229−
229+
230−instance FromJSON WebmastersURLcrawlerrorssamplesMarkAsFixedCategory where
230+instance FromJSON WebmastersURLCrawlErrorsSamplesMarkAsFixedCategory where
231− parseJSON = parseJSONText "WebmastersURLcrawlerrorssamplesMarkAsFixedCategory"
231+ parseJSON = parseJSONText "WebmastersURLCrawlErrorsSamplesMarkAsFixedCategory"
232−
232+
233−instance ToJSON WebmastersURLcrawlerrorssamplesMarkAsFixedCategory where
233+instance ToJSON WebmastersURLCrawlErrorsSamplesMarkAsFixedCategory where
234 toJSON = toJSONText
234 toJSON = toJSONText
235
235
236-- | The user agent type (platform) that made the request. For example: web
236-- | The user agent type (platform) that made the request. For example: web
237−data WebmastersURLcrawlerrorssamplesGetPlatform
237+data WebmastersURLCrawlErrorsSamplesGetPlatform
238− = WUGPMobile
238+ = WUCESGPMobile
239 -- ^ @mobile@
239 -- ^ @mobile@
240− | WUGPSmartphoneOnly
240+ | WUCESGPSmartphoneOnly
241 -- ^ @smartphoneOnly@
241 -- ^ @smartphoneOnly@
242− | WUGPWeb
242+ | WUCESGPWeb
243 -- ^ @web@
243 -- ^ @web@
244 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
244 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
245
245
246−instance Hashable WebmastersURLcrawlerrorssamplesGetPlatform
246+instance Hashable WebmastersURLCrawlErrorsSamplesGetPlatform
247
247
248−instance FromText WebmastersURLcrawlerrorssamplesGetPlatform where
248+instance FromText WebmastersURLCrawlErrorsSamplesGetPlatform where
249 fromText = \case
249 fromText = \case
250− "mobile" -> Just WUGPMobile
250+ "mobile" -> Just WUCESGPMobile
251− "smartphoneOnly" -> Just WUGPSmartphoneOnly
251+ "smartphoneOnly" -> Just WUCESGPSmartphoneOnly
252− "web" -> Just WUGPWeb
252+ "web" -> Just WUCESGPWeb
253 _ -> Nothing
253 _ -> Nothing
254
254
255−instance ToText WebmastersURLcrawlerrorssamplesGetPlatform where
255+instance ToText WebmastersURLCrawlErrorsSamplesGetPlatform where
256 toText = \case
256 toText = \case
257− WUGPMobile -> "mobile"
257+ WUCESGPMobile -> "mobile"
258− WUGPSmartphoneOnly -> "smartphoneOnly"
258+ WUCESGPSmartphoneOnly -> "smartphoneOnly"
259− WUGPWeb -> "web"
259+ WUCESGPWeb -> "web"
260
260
261−instance FromJSON WebmastersURLcrawlerrorssamplesGetPlatform where
261+instance FromJSON WebmastersURLCrawlErrorsSamplesGetPlatform where
262− parseJSON = parseJSONText "WebmastersURLcrawlerrorssamplesGetPlatform"
262+ parseJSON = parseJSONText "WebmastersURLCrawlErrorsSamplesGetPlatform"
263
263
264−instance ToJSON WebmastersURLcrawlerrorssamplesGetPlatform where
264+instance ToJSON WebmastersURLCrawlErrorsSamplesGetPlatform where
265 toJSON = toJSONText
265 toJSON = toJSONText
266
266
267-- | The crawl error category. For example: authPermissions
267-- | The crawl error category. For example: authPermissions
268−data WebmastersURLcrawlerrorssamplesListCategory
268+data WebmastersURLCrawlErrorsSamplesListCategory
269− = WULCAuthPermissions
269+ = WUCESLCAuthPermissions
270 -- ^ @authPermissions@
270 -- ^ @authPermissions@
271− | WULCManyToOneRedirect
271+ | WUCESLCManyToOneRedirect
272 -- ^ @manyToOneRedirect@
272 -- ^ @manyToOneRedirect@
273− | WULCNotFollowed
273+ | WUCESLCNotFollowed
274 -- ^ @notFollowed@
274 -- ^ @notFollowed@
275− | WULCNotFound
275+ | WUCESLCNotFound
276 -- ^ @notFound@
276 -- ^ @notFound@
277− | WULCOther
277+ | WUCESLCOther
278 -- ^ @other@
278 -- ^ @other@
279− | WULCRoboted
279+ | WUCESLCRoboted
280 -- ^ @roboted@
280 -- ^ @roboted@
281− | WULCServerError
281+ | WUCESLCServerError
282 -- ^ @serverError@
282 -- ^ @serverError@
283− | WULCSOFT404
283+ | WUCESLCSOFT404
284 -- ^ @soft404@
284 -- ^ @soft404@
285 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
285 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
286
286
287−instance Hashable WebmastersURLcrawlerrorssamplesListCategory
287+instance Hashable WebmastersURLCrawlErrorsSamplesListCategory
288
288
289−instance FromText WebmastersURLcrawlerrorssamplesListCategory where
289+instance FromText WebmastersURLCrawlErrorsSamplesListCategory where
290 fromText = \case
290 fromText = \case
291− "authPermissions" -> Just WULCAuthPermissions
291+ "authPermissions" -> Just WUCESLCAuthPermissions
292− "manyToOneRedirect" -> Just WULCManyToOneRedirect
292+ "manyToOneRedirect" -> Just WUCESLCManyToOneRedirect
293− "notFollowed" -> Just WULCNotFollowed
293+ "notFollowed" -> Just WUCESLCNotFollowed
294− "notFound" -> Just WULCNotFound
294+ "notFound" -> Just WUCESLCNotFound
295− "other" -> Just WULCOther
295+ "other" -> Just WUCESLCOther
296− "roboted" -> Just WULCRoboted
296+ "roboted" -> Just WUCESLCRoboted
297− "serverError" -> Just WULCServerError
297+ "serverError" -> Just WUCESLCServerError
298− "soft404" -> Just WULCSOFT404
298+ "soft404" -> Just WUCESLCSOFT404
299 _ -> Nothing
299 _ -> Nothing
300
300
301−instance ToText WebmastersURLcrawlerrorssamplesListCategory where
301+instance ToText WebmastersURLCrawlErrorsSamplesListCategory where
302 toText = \case
302 toText = \case
303− WULCAuthPermissions -> "authPermissions"
303+ WUCESLCAuthPermissions -> "authPermissions"
304− WULCManyToOneRedirect -> "manyToOneRedirect"
304+ WUCESLCManyToOneRedirect -> "manyToOneRedirect"
305− WULCNotFollowed -> "notFollowed"
305+ WUCESLCNotFollowed -> "notFollowed"
306− WULCNotFound -> "notFound"
306+ WUCESLCNotFound -> "notFound"
307− WULCOther -> "other"
307+ WUCESLCOther -> "other"
308− WULCRoboted -> "roboted"
308+ WUCESLCRoboted -> "roboted"
309− WULCServerError -> "serverError"
309+ WUCESLCServerError -> "serverError"
310− WULCSOFT404 -> "soft404"
310+ WUCESLCSOFT404 -> "soft404"
311−
311+
312−instance FromJSON WebmastersURLcrawlerrorssamplesListCategory where
312+instance FromJSON WebmastersURLCrawlErrorsSamplesListCategory where
313− parseJSON = parseJSONText "WebmastersURLcrawlerrorssamplesListCategory"
313+ parseJSON = parseJSONText "WebmastersURLCrawlErrorsSamplesListCategory"
314−
314+
315−instance ToJSON WebmastersURLcrawlerrorssamplesListCategory where
315+instance ToJSON WebmastersURLCrawlErrorsSamplesListCategory where
316 toJSON = toJSONText
316 toJSON = toJSONText
317
317
318-- | The user agent type (platform) that made the request. For example: web.
318-- | The user agent type (platform) that made the request. For example: web.
319-- If not specified, returns results for all platforms.
319-- If not specified, returns results for all platforms.
320−data WebmastersURLcrawlerrorscountsQueryPlatform
320+data WebmastersURLCrawlErrorscountsQueryPlatform
321− = WUQPMobile
321+ = WUCEQPMobile
322 -- ^ @mobile@
322 -- ^ @mobile@
323− | WUQPSmartphoneOnly
323+ | WUCEQPSmartphoneOnly
324 -- ^ @smartphoneOnly@
324 -- ^ @smartphoneOnly@
325− | WUQPWeb
325+ | WUCEQPWeb
326 -- ^ @web@
326 -- ^ @web@
327 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
327 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
328
328
329−instance Hashable WebmastersURLcrawlerrorscountsQueryPlatform
329+instance Hashable WebmastersURLCrawlErrorscountsQueryPlatform
330
330
331−instance FromText WebmastersURLcrawlerrorscountsQueryPlatform where
331+instance FromText WebmastersURLCrawlErrorscountsQueryPlatform where
332 fromText = \case
332 fromText = \case
333− "mobile" -> Just WUQPMobile
333+ "mobile" -> Just WUCEQPMobile
334− "smartphoneOnly" -> Just WUQPSmartphoneOnly
334+ "smartphoneOnly" -> Just WUCEQPSmartphoneOnly
335− "web" -> Just WUQPWeb
335+ "web" -> Just WUCEQPWeb
336 _ -> Nothing
336 _ -> Nothing
337
337
338−instance ToText WebmastersURLcrawlerrorscountsQueryPlatform where
338+instance ToText WebmastersURLCrawlErrorscountsQueryPlatform where
339 toText = \case
339 toText = \case
340− WUQPMobile -> "mobile"
340+ WUCEQPMobile -> "mobile"
341− WUQPSmartphoneOnly -> "smartphoneOnly"
341+ WUCEQPSmartphoneOnly -> "smartphoneOnly"
342− WUQPWeb -> "web"
342+ WUCEQPWeb -> "web"
343
343
344−instance FromJSON WebmastersURLcrawlerrorscountsQueryPlatform where
344+instance FromJSON WebmastersURLCrawlErrorscountsQueryPlatform where
345− parseJSON = parseJSONText "WebmastersURLcrawlerrorscountsQueryPlatform"
345+ parseJSON = parseJSONText "WebmastersURLCrawlErrorscountsQueryPlatform"
346
346
347−instance ToJSON WebmastersURLcrawlerrorscountsQueryPlatform where
347+instance ToJSON WebmastersURLCrawlErrorscountsQueryPlatform where
348 toJSON = toJSONText
348 toJSON = toJSONText
gogol-webmaster-tools/gogol-webmaster-tools.cabal+4−4
@@ -39,10 +39,10 @@ library
39 , Network.Google.Resource.Webmasters.Sites.Delete
39 , Network.Google.Resource.Webmasters.Sites.Delete
40 , Network.Google.Resource.Webmasters.Sites.Get
40 , Network.Google.Resource.Webmasters.Sites.Get
41 , Network.Google.Resource.Webmasters.Sites.List
41 , Network.Google.Resource.Webmasters.Sites.List
42− , Network.Google.Resource.Webmasters.URLcrawlerrorscounts.Query
42+ , Network.Google.Resource.Webmasters.URLCrawlErrorsSamples.Get
43− , Network.Google.Resource.Webmasters.URLcrawlerrorssamples.Get
44− , Network.Google.Resource.Webmasters.URLcrawlerrorssamples.List
43+ , Network.Google.Resource.Webmasters.URLCrawlErrorsSamples.List
45− , Network.Google.Resource.Webmasters.URLcrawlerrorssamples.MarkAsFixed
44+ , Network.Google.Resource.Webmasters.URLCrawlErrorsSamples.MarkAsFixed
45+ , Network.Google.Resource.Webmasters.URLCrawlErrorscounts.Query
46 , Network.Google.WebmasterTools
46 , Network.Google.WebmasterTools
47 , Network.Google.WebmasterTools.Types
47 , Network.Google.WebmasterTools.Types
48
48
gogol-youtube-analytics/gen/Network/Google/YouTubeAnalytics.hs+1−1
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Retrieve your YouTube Analytics reports.
15+-- | Retrieve your YouTube Analytics reports.
16--
16--
17-- /See:/ <http://developers.google.com/youtube/analytics/ YouTube Analytics API Reference>
17-- /See:/ <http://developers.google.com/youtube/analytics/ YouTube Analytics API Reference>
18module Network.Google.YouTubeAnalytics
18module Network.Google.YouTubeAnalytics
gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/Bind_direct.hs → gogol-youtube/gen/Network/Google/Resource/YouTube/LiveBroadcasts/BindDirect.hsrenamed+110−104
@@ -10,7 +10,7 @@
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
10{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
11
11
12-- |
12-- |
13−-- Module : Network.Google.Resource.YouTube.LiveBroadcasts.Bind_direct
13+-- Module : Network.Google.Resource.YouTube.LiveBroadcasts.BindDirect
14-- Copyright : (c) 2015 Brendan Hay
14-- Copyright : (c) 2015 Brendan Hay
15-- License : Mozilla Public License, v. 2.0.
15-- License : Mozilla Public License, v. 2.0.
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
16-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
@@ -23,35 +23,35 @@
23-- broadcast.
23-- broadcast.
24--
24--
25-- /See:/ <https://developers.google.com/youtube/v3 YouTube Data API Reference> for @YouTubeLiveBroadcastsBind_direct@.
25-- /See:/ <https://developers.google.com/youtube/v3 YouTube Data API Reference> for @YouTubeLiveBroadcastsBind_direct@.
26−module Network.Google.Resource.YouTube.LiveBroadcasts.Bind_direct
26+module Network.Google.Resource.YouTube.LiveBroadcasts.BindDirect
27 (
27 (
28 -- * REST Resource
28 -- * REST Resource
29− LiveBroadcastsBind_directResource
29+ LiveBroadcastsBindDirectResource
30
30
31 -- * Creating a Request
31 -- * Creating a Request
32− , liveBroadcastsBind_direct'
32+ , liveBroadcastsBindDirect'
33− , LiveBroadcastsBind_direct'
33+ , LiveBroadcastsBindDirect'
34
34
35 -- * Request Lenses
35 -- * Request Lenses
36− , lQuotaUser
36+ , lbbdQuotaUser
37− , lPart
37+ , lbbdPart
38− , lPrettyPrint
38+ , lbbdPrettyPrint
39− , lUserIP
39+ , lbbdUserIP
40− , lOnBehalfOfContentOwner
40+ , lbbdOnBehalfOfContentOwner
41− , lKey
41+ , lbbdKey
42− , lOnBehalfOfContentOwnerChannel
42+ , lbbdOnBehalfOfContentOwnerChannel
43− , lId
43+ , lbbdId
44− , lOAuthToken
44+ , lbbdOAuthToken
45− , lStreamId
45+ , lbbdStreamId
46− , lFields
46+ , lbbdFields
47 ) where
47 ) where
48
48
49import Network.Google.Prelude
49import Network.Google.Prelude
50import Network.Google.YouTube.Types
50import Network.Google.YouTube.Types
51
51
52-- | A resource alias for @YouTubeLiveBroadcastsBind_direct@ which the
52-- | A resource alias for @YouTubeLiveBroadcastsBind_direct@ which the
53−-- 'LiveBroadcastsBind_direct'' request conforms to.
53+-- 'LiveBroadcastsBindDirect'' request conforms to.
54−type LiveBroadcastsBind_directResource =
54+type LiveBroadcastsBindDirectResource =
55 "liveBroadcasts" :>
55 "liveBroadcasts" :>
56 "bind" :>
56 "bind" :>
57 "direct" :>
57 "direct" :>
@@ -74,88 +74,91 @@ type LiveBroadcastsBind_directResource =
74-- video stream, though a video stream may be bound to more than one
74-- video stream, though a video stream may be bound to more than one
75-- broadcast.
75-- broadcast.
76--
76--
77−-- /See:/ 'liveBroadcastsBind_direct'' smart constructor.
77+-- /See:/ 'liveBroadcastsBindDirect'' smart constructor.
78−data LiveBroadcastsBind_direct' = LiveBroadcastsBind_direct'
78+data LiveBroadcastsBindDirect' = LiveBroadcastsBindDirect'
79− { _lQuotaUser :: !(Maybe Text)
79+ { _lbbdQuotaUser :: !(Maybe Text)
80− , _lPart :: !Text
80+ , _lbbdPart :: !Text
81− , _lPrettyPrint :: !Bool
81+ , _lbbdPrettyPrint :: !Bool
82− , _lUserIP :: !(Maybe Text)
82+ , _lbbdUserIP :: !(Maybe Text)
83− , _lOnBehalfOfContentOwner :: !(Maybe Text)
83+ , _lbbdOnBehalfOfContentOwner :: !(Maybe Text)
84− , _lKey :: !(Maybe Key)
84+ , _lbbdKey :: !(Maybe Key)
85− , _lOnBehalfOfContentOwnerChannel :: !(Maybe Text)
85+ , _lbbdOnBehalfOfContentOwnerChannel :: !(Maybe Text)
86− , _lId :: !Text
86+ , _lbbdId :: !Text
87− , _lOAuthToken :: !(Maybe OAuthToken)
87+ , _lbbdOAuthToken :: !(Maybe OAuthToken)
88− , _lStreamId :: !(Maybe Text)
88+ , _lbbdStreamId :: !(Maybe Text)
89− , _lFields :: !(Maybe Text)
89+ , _lbbdFields :: !(Maybe Text)
90 } deriving (Eq,Read,Show,Data,Typeable,Generic)
90 } deriving (Eq,Read,Show,Data,Typeable,Generic)
91
91
92−-- | Creates a value of 'LiveBroadcastsBind_direct'' with the minimum fields required to make a request.
92+-- | Creates a value of 'LiveBroadcastsBindDirect'' with the minimum fields required to make a request.
93--
93--
94-- Use one of the following lenses to modify other fields as desired:
94-- Use one of the following lenses to modify other fields as desired:
95--
95--
96−-- * 'lQuotaUser'
96+-- * 'lbbdQuotaUser'
97--
97--
98−-- * 'lPart'
98+-- * 'lbbdPart'
99--
99--
100−-- * 'lPrettyPrint'
100+-- * 'lbbdPrettyPrint'
101--
101--
102−-- * 'lUserIP'
102+-- * 'lbbdUserIP'
103--
103--
104−-- * 'lOnBehalfOfContentOwner'
104+-- * 'lbbdOnBehalfOfContentOwner'
105--
105--
106−-- * 'lKey'
106+-- * 'lbbdKey'
107--
107--
108−-- * 'lOnBehalfOfContentOwnerChannel'
108+-- * 'lbbdOnBehalfOfContentOwnerChannel'
109--
109--
110−-- * 'lId'
110+-- * 'lbbdId'
111--
111--
112−-- * 'lOAuthToken'
112+-- * 'lbbdOAuthToken'
113--
113--
114−-- * 'lStreamId'
114+-- * 'lbbdStreamId'
115--
115--
116−-- * 'lFields'
116+-- * 'lbbdFields'
117−liveBroadcastsBind_direct'
117+liveBroadcastsBindDirect'
118 :: Text -- ^ 'part'
118 :: Text -- ^ 'part'
119 -> Text -- ^ 'id'
119 -> Text -- ^ 'id'
120− -> LiveBroadcastsBind_direct'
120+ -> LiveBroadcastsBindDirect'
121−liveBroadcastsBind_direct' pLPart_ pLId_ =
121+liveBroadcastsBindDirect' pLbbdPart_ pLbbdId_ =
122− LiveBroadcastsBind_direct'
122+ LiveBroadcastsBindDirect'
123− { _lQuotaUser = Nothing
123+ { _lbbdQuotaUser = Nothing
124− , _lPart = pLPart_
124+ , _lbbdPart = pLbbdPart_
125− , _lPrettyPrint = True
125+ , _lbbdPrettyPrint = True
126− , _lUserIP = Nothing
126+ , _lbbdUserIP = Nothing
127− , _lOnBehalfOfContentOwner = Nothing
127+ , _lbbdOnBehalfOfContentOwner = Nothing
128− , _lKey = Nothing
128+ , _lbbdKey = Nothing
129− , _lOnBehalfOfContentOwnerChannel = Nothing
129+ , _lbbdOnBehalfOfContentOwnerChannel = Nothing
130− , _lId = pLId_
130+ , _lbbdId = pLbbdId_
131− , _lOAuthToken = Nothing
131+ , _lbbdOAuthToken = Nothing
132− , _lStreamId = Nothing
132+ , _lbbdStreamId = Nothing
133− , _lFields = Nothing
133+ , _lbbdFields = Nothing
134 }
134 }
135
135
136-- | Available to use for quota purposes for server-side applications. Can be
136-- | Available to use for quota purposes for server-side applications. Can be
137-- any arbitrary string assigned to a user, but should not exceed 40
137-- any arbitrary string assigned to a user, but should not exceed 40
138-- characters. Overrides userIp if both are provided.
138-- characters. Overrides userIp if both are provided.
139−lQuotaUser :: Lens' LiveBroadcastsBind_direct' (Maybe Text)
139+lbbdQuotaUser :: Lens' LiveBroadcastsBindDirect' (Maybe Text)
140−lQuotaUser
140+lbbdQuotaUser
141− = lens _lQuotaUser (\ s a -> s{_lQuotaUser = a})
141+ = lens _lbbdQuotaUser
142+ (\ s a -> s{_lbbdQuotaUser = a})
142
143
143-- | The part parameter specifies a comma-separated list of one or more
144-- | The part parameter specifies a comma-separated list of one or more
144-- liveBroadcast resource properties that the API response will include.
145-- liveBroadcast resource properties that the API response will include.
145-- The part names that you can include in the parameter value are id,
146-- The part names that you can include in the parameter value are id,
146-- snippet, contentDetails, and status.
147-- snippet, contentDetails, and status.
147−lPart :: Lens' LiveBroadcastsBind_direct' Text
148+lbbdPart :: Lens' LiveBroadcastsBindDirect' Text
148−lPart = lens _lPart (\ s a -> s{_lPart = a})
149+lbbdPart = lens _lbbdPart (\ s a -> s{_lbbdPart = a})
149
150
150-- | Returns response with indentations and line breaks.
151-- | Returns response with indentations and line breaks.
151−lPrettyPrint :: Lens' LiveBroadcastsBind_direct' Bool
152+lbbdPrettyPrint :: Lens' LiveBroadcastsBindDirect' Bool
152−lPrettyPrint
153+lbbdPrettyPrint
153− = lens _lPrettyPrint (\ s a -> s{_lPrettyPrint = a})
154+ = lens _lbbdPrettyPrint
155+ (\ s a -> s{_lbbdPrettyPrint = a})
154
156
155-- | IP address of the site where the request originates. Use this if you
157-- | IP address of the site where the request originates. Use this if you
156-- want to enforce per-user limits.
158-- want to enforce per-user limits.
157−lUserIP :: Lens' LiveBroadcastsBind_direct' (Maybe Text)
159+lbbdUserIP :: Lens' LiveBroadcastsBindDirect' (Maybe Text)
158−lUserIP = lens _lUserIP (\ s a -> s{_lUserIP = a})
160+lbbdUserIP
161+ = lens _lbbdUserIP (\ s a -> s{_lbbdUserIP = a})
159
162
160-- | Note: This parameter is intended exclusively for YouTube content
163-- | Note: This parameter is intended exclusively for YouTube content
161-- partners. The onBehalfOfContentOwner parameter indicates that the
164-- partners. The onBehalfOfContentOwner parameter indicates that the
@@ -167,16 +170,16 @@ lUserIP = lens _lUserIP (\ s a -> s{_lUserIP = a})
167-- without having to provide authentication credentials for each individual
170-- without having to provide authentication credentials for each individual
168-- channel. The CMS account that the user authenticates with must be linked
171-- channel. The CMS account that the user authenticates with must be linked
169-- to the specified YouTube content owner.
172-- to the specified YouTube content owner.
170−lOnBehalfOfContentOwner :: Lens' LiveBroadcastsBind_direct' (Maybe Text)
173+lbbdOnBehalfOfContentOwner :: Lens' LiveBroadcastsBindDirect' (Maybe Text)
171−lOnBehalfOfContentOwner
174+lbbdOnBehalfOfContentOwner
172− = lens _lOnBehalfOfContentOwner
175+ = lens _lbbdOnBehalfOfContentOwner
173− (\ s a -> s{_lOnBehalfOfContentOwner = a})
176+ (\ s a -> s{_lbbdOnBehalfOfContentOwner = a})
174
177
175-- | API key. Your API key identifies your project and provides you with API
178-- | API key. Your API key identifies your project and provides you with API
176-- access, quota, and reports. Required unless you provide an OAuth 2.0
179-- access, quota, and reports. Required unless you provide an OAuth 2.0
177-- token.
180-- token.
178−lKey :: Lens' LiveBroadcastsBind_direct' (Maybe Key)
181+lbbdKey :: Lens' LiveBroadcastsBindDirect' (Maybe Key)
179−lKey = lens _lKey (\ s a -> s{_lKey = a})
182+lbbdKey = lens _lbbdKey (\ s a -> s{_lbbdKey = a})
180
183
181-- | This parameter can only be used in a properly authorized request. Note:
184-- | This parameter can only be used in a properly authorized request. Note:
182-- This parameter is intended exclusively for YouTube content partners. The
185-- This parameter is intended exclusively for YouTube content partners. The
@@ -194,54 +197,57 @@ lKey = lens _lKey (\ s a -> s{_lKey = a})
194-- actions on behalf of the channel specified in the parameter value,
197-- actions on behalf of the channel specified in the parameter value,
195-- without having to provide authentication credentials for each separate
198-- without having to provide authentication credentials for each separate
196-- channel.
199-- channel.
197−lOnBehalfOfContentOwnerChannel :: Lens' LiveBroadcastsBind_direct' (Maybe Text)
200+lbbdOnBehalfOfContentOwnerChannel :: Lens' LiveBroadcastsBindDirect' (Maybe Text)
198−lOnBehalfOfContentOwnerChannel
201+lbbdOnBehalfOfContentOwnerChannel
199− = lens _lOnBehalfOfContentOwnerChannel
202+ = lens _lbbdOnBehalfOfContentOwnerChannel
200− (\ s a -> s{_lOnBehalfOfContentOwnerChannel = a})
203+ (\ s a -> s{_lbbdOnBehalfOfContentOwnerChannel = a})
201
204
202-- | The id parameter specifies the unique ID of the broadcast that is being
205-- | The id parameter specifies the unique ID of the broadcast that is being
203-- bound to a video stream.
206-- bound to a video stream.
204−lId :: Lens' LiveBroadcastsBind_direct' Text
207+lbbdId :: Lens' LiveBroadcastsBindDirect' Text
205−lId = lens _lId (\ s a -> s{_lId = a})
208+lbbdId = lens _lbbdId (\ s a -> s{_lbbdId = a})
206
209
207-- | OAuth 2.0 token for the current user.
210-- | OAuth 2.0 token for the current user.
208−lOAuthToken :: Lens' LiveBroadcastsBind_direct' (Maybe OAuthToken)
211+lbbdOAuthToken :: Lens' LiveBroadcastsBindDirect' (Maybe OAuthToken)
209−lOAuthToken
212+lbbdOAuthToken
210− = lens _lOAuthToken (\ s a -> s{_lOAuthToken = a})
213+ = lens _lbbdOAuthToken
214+ (\ s a -> s{_lbbdOAuthToken = a})
211
215
212-- | The streamId parameter specifies the unique ID of the video stream that
216-- | The streamId parameter specifies the unique ID of the video stream that
213-- is being bound to a broadcast. If this parameter is omitted, the API
217-- is being bound to a broadcast. If this parameter is omitted, the API
214-- will remove any existing binding between the broadcast and a video
218-- will remove any existing binding between the broadcast and a video
215-- stream.
219-- stream.
216−lStreamId :: Lens' LiveBroadcastsBind_direct' (Maybe Text)
220+lbbdStreamId :: Lens' LiveBroadcastsBindDirect' (Maybe Text)
217−lStreamId
221+lbbdStreamId
218− = lens _lStreamId (\ s a -> s{_lStreamId = a})
222+ = lens _lbbdStreamId (\ s a -> s{_lbbdStreamId = a})
219
223
220-- | Selector specifying which fields to include in a partial response.
224-- | Selector specifying which fields to include in a partial response.
221−lFields :: Lens' LiveBroadcastsBind_direct' (Maybe Text)
225+lbbdFields :: Lens' LiveBroadcastsBindDirect' (Maybe Text)
222−lFields = lens _lFields (\ s a -> s{_lFields = a})
226+lbbdFields
227+ = lens _lbbdFields (\ s a -> s{_lbbdFields = a})
223
228
224−instance GoogleAuth LiveBroadcastsBind_direct' where
229+instance GoogleAuth LiveBroadcastsBindDirect' where
225− authKey = lKey . _Just
230+ authKey = lbbdKey . _Just
226− authToken = lOAuthToken . _Just
231+ authToken = lbbdOAuthToken . _Just
227
232
228−instance GoogleRequest LiveBroadcastsBind_direct'
233+instance GoogleRequest LiveBroadcastsBindDirect'
229 where
234 where
230− type Rs LiveBroadcastsBind_direct' = LiveBroadcast
235+ type Rs LiveBroadcastsBindDirect' = LiveBroadcast
231 request = requestWithRoute defReq youTubeURL
236 request = requestWithRoute defReq youTubeURL
232− requestWithRoute r u LiveBroadcastsBind_direct'{..}
237+ requestWithRoute r u LiveBroadcastsBindDirect'{..}
233− = go _lQuotaUser (Just _lPart) (Just _lPrettyPrint)
238+ = go _lbbdQuotaUser (Just _lbbdPart)
234− _lUserIP
239+ (Just _lbbdPrettyPrint)
235− _lOnBehalfOfContentOwner
240+ _lbbdUserIP
236− _lKey
241+ _lbbdOnBehalfOfContentOwner
237− _lOnBehalfOfContentOwnerChannel
242+ _lbbdKey
243+ _lbbdOnBehalfOfContentOwnerChannel
238− (Just _lId)
244+ (Just _lbbdId)
239− _lOAuthToken
245+ _lbbdOAuthToken
240− _lStreamId
246+ _lbbdStreamId
241− _lFields
247+ _lbbdFields
242 (Just AltJSON)
248 (Just AltJSON)
243 where go
249 where go
244 = clientWithRoute
250 = clientWithRoute
245− (Proxy :: Proxy LiveBroadcastsBind_directResource)
251+ (Proxy :: Proxy LiveBroadcastsBindDirectResource)
246 r
252 r
247 u
253 u
gogol-youtube/gen/Network/Google/YouTube.hs+4−4
@@ -12,7 +12,7 @@
12-- Stability : auto-generated
12-- Stability : auto-generated
13-- Portability : non-portable (GHC extensions)
13-- Portability : non-portable (GHC extensions)
14--
14--
15−-- -- | Programmatic access to YouTube features.
15+-- | Programmatic access to YouTube features.
16--
16--
17-- /See:/ <https://developers.google.com/youtube/v3 YouTube Data API Reference>
17-- /See:/ <https://developers.google.com/youtube/v3 YouTube Data API Reference>
18module Network.Google.YouTube
18module Network.Google.YouTube
@@ -108,7 +108,7 @@ module Network.Google.YouTube
108 , module Network.Google.Resource.YouTube.LiveBroadcasts.Bind
108 , module Network.Google.Resource.YouTube.LiveBroadcasts.Bind
109
109
110 -- ** YouTubeLiveBroadcastsBind_direct
110 -- ** YouTubeLiveBroadcastsBind_direct
111− , module Network.Google.Resource.YouTube.LiveBroadcasts.Bind_direct
111+ , module Network.Google.Resource.YouTube.LiveBroadcasts.BindDirect
112
112
113 -- ** YouTubeLiveBroadcastsControl
113 -- ** YouTubeLiveBroadcastsControl
114 , module Network.Google.Resource.YouTube.LiveBroadcasts.Control
114 , module Network.Google.Resource.YouTube.LiveBroadcasts.Control
@@ -2066,7 +2066,7 @@ import Network.Google.Resource.YouTube.GuideCategories.List
2066import Network.Google.Resource.YouTube.I18nLanguages.List
2066import Network.Google.Resource.YouTube.I18nLanguages.List
2067import Network.Google.Resource.YouTube.I18nRegions.List
2067import Network.Google.Resource.YouTube.I18nRegions.List
2068import Network.Google.Resource.YouTube.LiveBroadcasts.Bind
2068import Network.Google.Resource.YouTube.LiveBroadcasts.Bind
2069−import Network.Google.Resource.YouTube.LiveBroadcasts.Bind_direct
2069+import Network.Google.Resource.YouTube.LiveBroadcasts.BindDirect
2070import Network.Google.Resource.YouTube.LiveBroadcasts.Control
2070import Network.Google.Resource.YouTube.LiveBroadcasts.Control
2071import Network.Google.Resource.YouTube.LiveBroadcasts.Delete
2071import Network.Google.Resource.YouTube.LiveBroadcasts.Delete
2072import Network.Google.Resource.YouTube.LiveBroadcasts.Insert
2072import Network.Google.Resource.YouTube.LiveBroadcasts.Insert
@@ -2123,7 +2123,7 @@ type YouTubeAPI =
2123 :<|> LiveBroadcastsInsertResource
2123 :<|> LiveBroadcastsInsertResource
2124 :<|> LiveBroadcastsListResource
2124 :<|> LiveBroadcastsListResource
2125 :<|> LiveBroadcastsBindResource
2125 :<|> LiveBroadcastsBindResource
2126− :<|> LiveBroadcastsBind_directResource
2126+ :<|> LiveBroadcastsBindDirectResource
2127 :<|> LiveBroadcastsDeleteResource
2127 :<|> LiveBroadcastsDeleteResource
2128 :<|> LiveBroadcastsUpdateResource
2128 :<|> LiveBroadcastsUpdateResource
2129 :<|> CaptionsInsertResource
2129 :<|> CaptionsInsertResource
gogol-youtube/gen/Network/Google/YouTube/Types/Sum.hs+48−48
@@ -1021,11 +1021,11 @@ instance ToJSON ContentRatingAnatelRating where
1021
1021
1022-- | Describes the type of the promoted item.
1022-- | Describes the type of the promoted item.
1023data PromotedItemIdType
1023data PromotedItemIdType
1024− = RecentUpload
1024+ = PIITRecentUpload
1025 -- ^ @recentUpload@
1025 -- ^ @recentUpload@
1026− | Video
1026+ | PIITVideo
1027 -- ^ @video@
1027 -- ^ @video@
1028− | Website
1028+ | PIITWebsite
1029 -- ^ @website@
1029 -- ^ @website@
1030 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
1030 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
1031
1031
@@ -1033,16 +1033,16 @@ instance Hashable PromotedItemIdType
1033
1033
1034instance FromText PromotedItemIdType where
1034instance FromText PromotedItemIdType where
1035 fromText = \case
1035 fromText = \case
1036− "recentUpload" -> Just RecentUpload
1036+ "recentUpload" -> Just PIITRecentUpload
1037− "video" -> Just Video
1037+ "video" -> Just PIITVideo
1038− "website" -> Just Website
1038+ "website" -> Just PIITWebsite
1039 _ -> Nothing
1039 _ -> Nothing
1040
1040
1041instance ToText PromotedItemIdType where
1041instance ToText PromotedItemIdType where
1042 toText = \case
1042 toText = \case
1043− RecentUpload -> "recentUpload"
1043+ PIITRecentUpload -> "recentUpload"
1044− Video -> "video"
1044+ PIITVideo -> "video"
1045− Website -> "website"
1045+ PIITWebsite -> "website"
1046
1046
1047instance FromJSON PromotedItemIdType where
1047instance FromJSON PromotedItemIdType where
1048 parseJSON = parseJSONText "PromotedItemIdType"
1048 parseJSON = parseJSONText "PromotedItemIdType"
@@ -4545,27 +4545,27 @@ instance ToJSON YouTubeSearchListVideoDimension where
4545
4545
4546-- | The type of activity that the resource describes.
4546-- | The type of activity that the resource describes.
4547data ActivitySnippetType
4547data ActivitySnippetType
4548− = Bulletin
4548+ = ASTBulletin
4549 -- ^ @bulletin@
4549 -- ^ @bulletin@
4550− | ChannelItem
4550+ | ASTChannelItem
4551 -- ^ @channelItem@
4551 -- ^ @channelItem@
4552− | Comment
4552+ | ASTComment
4553 -- ^ @comment@
4553 -- ^ @comment@
4554− | Favorite
4554+ | ASTFavorite
4555 -- ^ @favorite@
4555 -- ^ @favorite@
4556− | Like
4556+ | ASTLike
4557 -- ^ @like@
4557 -- ^ @like@
4558− | PlayListItem
4558+ | ASTPlayListItem
4559 -- ^ @playlistItem@
4559 -- ^ @playlistItem@
4560− | PromotedItem
4560+ | ASTPromotedItem
4561 -- ^ @promotedItem@
4561 -- ^ @promotedItem@
4562− | Recommendation
4562+ | ASTRecommendation
4563 -- ^ @recommendation@
4563 -- ^ @recommendation@
4564− | Social
4564+ | ASTSocial
4565 -- ^ @social@
4565 -- ^ @social@
4566− | Subscription
4566+ | ASTSubscription
4567 -- ^ @subscription@
4567 -- ^ @subscription@
4568− | Upload
4568+ | ASTUpload
4569 -- ^ @upload@
4569 -- ^ @upload@
4570 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
4570 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
4571
4571
@@ -4573,32 +4573,32 @@ instance Hashable ActivitySnippetType
4573
4573
4574instance FromText ActivitySnippetType where
4574instance FromText ActivitySnippetType where
4575 fromText = \case
4575 fromText = \case
4576− "bulletin" -> Just Bulletin
4576+ "bulletin" -> Just ASTBulletin
4577− "channelItem" -> Just ChannelItem
4577+ "channelItem" -> Just ASTChannelItem
4578− "comment" -> Just Comment
4578+ "comment" -> Just ASTComment
4579− "favorite" -> Just Favorite
4579+ "favorite" -> Just ASTFavorite
4580− "like" -> Just Like
4580+ "like" -> Just ASTLike
4581− "playlistItem" -> Just PlayListItem
4581+ "playlistItem" -> Just ASTPlayListItem
4582− "promotedItem" -> Just PromotedItem
4582+ "promotedItem" -> Just ASTPromotedItem
4583− "recommendation" -> Just Recommendation
4583+ "recommendation" -> Just ASTRecommendation
4584− "social" -> Just Social
4584+ "social" -> Just ASTSocial
4585− "subscription" -> Just Subscription
4585+ "subscription" -> Just ASTSubscription
4586− "upload" -> Just Upload
4586+ "upload" -> Just ASTUpload
4587 _ -> Nothing
4587 _ -> Nothing
4588
4588
4589instance ToText ActivitySnippetType where
4589instance ToText ActivitySnippetType where
4590 toText = \case
4590 toText = \case
4591− Bulletin -> "bulletin"
4591+ ASTBulletin -> "bulletin"
4592− ChannelItem -> "channelItem"
4592+ ASTChannelItem -> "channelItem"
4593− Comment -> "comment"
4593+ ASTComment -> "comment"
4594− Favorite -> "favorite"
4594+ ASTFavorite -> "favorite"
4595− Like -> "like"
4595+ ASTLike -> "like"
4596− PlayListItem -> "playlistItem"
4596+ ASTPlayListItem -> "playlistItem"
4597− PromotedItem -> "promotedItem"
4597+ ASTPromotedItem -> "promotedItem"
4598− Recommendation -> "recommendation"
4598+ ASTRecommendation -> "recommendation"
4599− Social -> "social"
4599+ ASTSocial -> "social"
4600− Subscription -> "subscription"
4600+ ASTSubscription -> "subscription"
4601− Upload -> "upload"
4601+ ASTUpload -> "upload"
4602
4602
4603instance FromJSON ActivitySnippetType where
4603instance FromJSON ActivitySnippetType where
4604 parseJSON = parseJSONText "ActivitySnippetType"
4604 parseJSON = parseJSONText "ActivitySnippetType"
@@ -5146,10 +5146,10 @@ instance ToJSON VideoSuggestionsProcessingErrors where
5146-- | Set this parameter\'s value to like or dislike to instruct the API to
5146-- | Set this parameter\'s value to like or dislike to instruct the API to
5147-- only return videos liked or disliked by the authenticated user.
5147-- only return videos liked or disliked by the authenticated user.
5148data YouTubeVideosListMyRating
5148data YouTubeVideosListMyRating
5149− = YTVLMRDislike
5149+ = Dislike
5150 -- ^ @dislike@
5150 -- ^ @dislike@
5151 -- Returns only videos disliked by the authenticated user.
5151 -- Returns only videos disliked by the authenticated user.
5152− | YTVLMRLike
5152+ | Like
5153 -- ^ @like@
5153 -- ^ @like@
5154 -- Returns only video liked by the authenticated user.
5154 -- Returns only video liked by the authenticated user.
5155 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
5155 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)
@@ -5158,14 +5158,14 @@ instance Hashable YouTubeVideosListMyRating
5158
5158
5159instance FromText YouTubeVideosListMyRating where
5159instance FromText YouTubeVideosListMyRating where
5160 fromText = \case
5160 fromText = \case
5161− "dislike" -> Just YTVLMRDislike
5161+ "dislike" -> Just Dislike
5162− "like" -> Just YTVLMRLike
5162+ "like" -> Just Like
5163 _ -> Nothing
5163 _ -> Nothing
5164
5164
5165instance ToText YouTubeVideosListMyRating where
5165instance ToText YouTubeVideosListMyRating where
5166 toText = \case
5166 toText = \case
5167− YTVLMRDislike -> "dislike"
5167+ Dislike -> "dislike"
5168− YTVLMRLike -> "like"
5168+ Like -> "like"
5169
5169
5170instance FromJSON YouTubeVideosListMyRating where
5170instance FromJSON YouTubeVideosListMyRating where
5171 parseJSON = parseJSONText "YouTubeVideosListMyRating"
5171 parseJSON = parseJSONText "YouTubeVideosListMyRating"
gogol-youtube/gogol-youtube.cabal+1−1
@@ -57,7 +57,7 @@ library
57 , Network.Google.Resource.YouTube.I18nLanguages.List
57 , Network.Google.Resource.YouTube.I18nLanguages.List
58 , Network.Google.Resource.YouTube.I18nRegions.List
58 , Network.Google.Resource.YouTube.I18nRegions.List
59 , Network.Google.Resource.YouTube.LiveBroadcasts.Bind
59 , Network.Google.Resource.YouTube.LiveBroadcasts.Bind
60− , Network.Google.Resource.YouTube.LiveBroadcasts.Bind_direct
60+ , Network.Google.Resource.YouTube.LiveBroadcasts.BindDirect
61 , Network.Google.Resource.YouTube.LiveBroadcasts.Control
61 , Network.Google.Resource.YouTube.LiveBroadcasts.Control
62 , Network.Google.Resource.YouTube.LiveBroadcasts.Delete
62 , Network.Google.Resource.YouTube.LiveBroadcasts.Delete
63 , Network.Google.Resource.YouTube.LiveBroadcasts.Insert
63 , Network.Google.Resource.YouTube.LiveBroadcasts.Insert