2263e96 · gogol · git.iko.soy

git.iko.soy/gogol

Regenerating all services

commit2263e963c9ed3392f72e803f9db9372a66aca37c authorBrendan Hay <brendan.g.hay@gmail.com> dateSun 4 Oct 2015, 14:21 (11 years ago) parentb8f5fd5

46 files changed+835−772

compare with develop

unifiedsplit

core/src/Network/Google/Prelude.hs+1−1

@@ -48,7 +48,7 @@ import Servant.API as Export

4848import Servant.Client as Export

4949import Servant.Common.Req as Export (Req, defReq)

5050import Servant.Common.Req (appendToPath)

51−import Servant.Utils.Links as Export

51+import Servant.Utils.Links as Export hiding (Link)

5252

5353_Coerce :: (Coercible a b, Coercible b a) => Iso' a b

5454_Coerce = iso coerce coerce

gogol-adsense-host/gen/Network/Google/AdSenseHost.hs+8−8

@@ -69,11 +69,11 @@ module Network.Google.AdSenseHost

6969 -- ** AdsensehostAdClientsList

7070 , module Network.Google.Resource.AdSenseHost.AdClients.List

7171

72− -- ** AdsensehostAssociationsessionsStart

73− , module Network.Google.Resource.AdSenseHost.Associationsessions.Start

72+ -- ** AdsensehostAssociationSessionsStart

73+ , module Network.Google.Resource.AdSenseHost.AssociationSessions.Start

7474

75− -- ** AdsensehostAssociationsessionsVerify

76− , module Network.Google.Resource.AdSenseHost.Associationsessions.Verify

75+ -- ** AdsensehostAssociationSessionsVerify

76+ , module Network.Google.Resource.AdSenseHost.AssociationSessions.Verify

7777

7878 -- ** AdsensehostCustomChannelsDelete

7979 , module Network.Google.Resource.AdSenseHost.CustomChannels.Delete

@@ -292,8 +292,8 @@ import Network.Google.Resource.AdSenseHost.Accounts.List

292292import Network.Google.Resource.AdSenseHost.Accounts.Reports.Generate

293293import Network.Google.Resource.AdSenseHost.AdClients.Get

294294import Network.Google.Resource.AdSenseHost.AdClients.List

295−import Network.Google.Resource.AdSenseHost.Associationsessions.Start

296−import Network.Google.Resource.AdSenseHost.Associationsessions.Verify

295+import Network.Google.Resource.AdSenseHost.AssociationSessions.Start

296+import Network.Google.Resource.AdSenseHost.AssociationSessions.Verify

297297import Network.Google.Resource.AdSenseHost.CustomChannels.Delete

298298import Network.Google.Resource.AdSenseHost.CustomChannels.Get

299299import Network.Google.Resource.AdSenseHost.CustomChannels.Insert

@@ -310,8 +310,8 @@ TODO

310310-}

311311

312312type AdSenseHostAPI =

313− AssociationsessionsVerifyResource :<|>

314− AssociationsessionsStartResource

313+ AssociationSessionsVerifyResource :<|>

314+ AssociationSessionsStartResource

315315 :<|> AdClientsListResource

316316 :<|> AdClientsGetResource

317317 :<|> AccountsAdClientsListResource

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Accounts/List.hs+1−1

@@ -150,7 +150,7 @@ instance GoogleRequest AccountsList' where

150150 type Rs AccountsList' = Accounts

151151 request = requestWithRoute defReq adSenseHostURL

152152 requestWithRoute r u AccountsList'{..}

153− = go (_alFilterAdClientId ^. _Default) _alQuotaUser

153+ = go _alFilterAdClientId _alQuotaUser

154154 (Just _alPrettyPrint)

155155 _alUserIP

156156 _alFields

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/AssociationSessions/Start.hsnew file+211

@@ -0,0 +1,211 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE OverloadedStrings #-}

6+{-# LANGUAGE RecordWildCards #-}

7+{-# LANGUAGE TypeFamilies #-}

8+{-# LANGUAGE TypeOperators #-}

10+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

12+

13+-- |

14+-- Module : Network.Google.Resource.AdSenseHost.AssociationSessions.Start

16+-- License : Mozilla Public License, v. 2.0.

17+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

18+-- Stability : auto-generated

19+-- Portability : non-portable (GHC extensions)

20+--

21+-- | Create an association session for initiating an association with an

22+-- AdSense user.

23+--

24+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @AdsensehostAssociationSessionsStart@.

25+module Network.Google.Resource.AdSenseHost.AssociationSessions.Start

26+ (

27+ -- * REST Resource

28+ AssociationSessionsStartResource

29+

30+ -- * Creating a Request

31+ , associationSessionsStart'

32+ , AssociationSessionsStart'

33+

34+ -- * Request Lenses

35+ , assQuotaUser

36+ , assPrettyPrint

37+ , assUserIP

38+ , assWebsiteLocale

39+ , assUserLocale

40+ , assKey

41+ , assWebsiteURL

42+ , assOAuthToken

43+ , assProductCode

44+ , assFields

45+ ) where

46+

47+import Network.Google.AdSenseHost.Types

48+import Network.Google.Prelude

49+

50+-- | A resource alias for @AdsensehostAssociationSessionsStart@ which the

51+-- 'AssociationSessionsStart'' request conforms to.

52+type AssociationSessionsStartResource =

53+ "associationsessions" :>

54+ "start" :>

55+ QueryParams "productCode" ProductCode :>

56+ QueryParam "websiteUrl" Text :>

57+ QueryParam "websiteLocale" Text :>

58+ QueryParam "userLocale" Text :>

59+ QueryParam "quotaUser" Text :>

60+ QueryParam "prettyPrint" Bool :>

61+ QueryParam "userIp" Text :>

62+ QueryParam "fields" Text :>

63+ QueryParam "key" Key :>

64+ QueryParam "oauth_token" OAuthToken :>

65+ QueryParam "alt" AltJSON :>

66+ Get '[JSON] AssociationSession

67+

68+-- | Create an association session for initiating an association with an

69+-- AdSense user.

70+--

71+-- /See:/ 'associationSessionsStart'' smart constructor.

72+data AssociationSessionsStart' = AssociationSessionsStart'

73+ { _assQuotaUser :: !(Maybe Text)

74+ , _assPrettyPrint :: !Bool

75+ , _assUserIP :: !(Maybe Text)

76+ , _assWebsiteLocale :: !(Maybe Text)

77+ , _assUserLocale :: !(Maybe Text)

78+ , _assKey :: !(Maybe Key)

79+ , _assWebsiteURL :: !Text

80+ , _assOAuthToken :: !(Maybe OAuthToken)

81+ , _assProductCode :: ![ProductCode]

82+ , _assFields :: !(Maybe Text)

83+ } deriving (Eq,Show,Data,Typeable,Generic)

84+

85+-- | Creates a value of 'AssociationSessionsStart'' 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+-- * 'assQuotaUser'

90+--

91+-- * 'assPrettyPrint'

92+--

93+-- * 'assUserIP'

94+--

95+-- * 'assWebsiteLocale'

96+--

97+-- * 'assUserLocale'

98+--

99+-- * 'assKey'

100+--

101+-- * 'assWebsiteURL'

102+--

103+-- * 'assOAuthToken'

104+--

105+-- * 'assProductCode'

106+--

107+-- * 'assFields'

108+associationSessionsStart'

109+ :: Text -- ^ 'websiteUrl'

110+ -> [ProductCode] -- ^ 'productCode'

111+ -> AssociationSessionsStart'

112+associationSessionsStart' pAssWebsiteURL_ pAssProductCode_ =

113+ AssociationSessionsStart'

114+ { _assQuotaUser = Nothing

115+ , _assPrettyPrint = True

116+ , _assUserIP = Nothing

117+ , _assWebsiteLocale = Nothing

118+ , _assUserLocale = Nothing

119+ , _assKey = Nothing

120+ , _assWebsiteURL = pAssWebsiteURL_

121+ , _assOAuthToken = Nothing

122+ , _assProductCode = pAssProductCode_

123+ , _assFields = Nothing

124+ }

125+

126+-- | Available to use for quota purposes for server-side applications. Can be

127+-- any arbitrary string assigned to a user, but should not exceed 40

128+-- characters. Overrides userIp if both are provided.

129+assQuotaUser :: Lens' AssociationSessionsStart' (Maybe Text)

130+assQuotaUser

131+ = lens _assQuotaUser (\ s a -> s{_assQuotaUser = a})

132+

133+-- | Returns response with indentations and line breaks.

134+assPrettyPrint :: Lens' AssociationSessionsStart' Bool

135+assPrettyPrint

136+ = lens _assPrettyPrint

137+ (\ s a -> s{_assPrettyPrint = a})

138+

139+-- | IP address of the site where the request originates. Use this if you

140+-- want to enforce per-user limits.

141+assUserIP :: Lens' AssociationSessionsStart' (Maybe Text)

142+assUserIP

143+ = lens _assUserIP (\ s a -> s{_assUserIP = a})

144+

145+-- | The locale of the user\'s hosted website.

146+assWebsiteLocale :: Lens' AssociationSessionsStart' (Maybe Text)

147+assWebsiteLocale

148+ = lens _assWebsiteLocale

149+ (\ s a -> s{_assWebsiteLocale = a})

150+

151+-- | The preferred locale of the user.

152+assUserLocale :: Lens' AssociationSessionsStart' (Maybe Text)

153+assUserLocale

154+ = lens _assUserLocale

155+ (\ s a -> s{_assUserLocale = a})

156+

157+-- | API key. Your API key identifies your project and provides you with API

158+-- access, quota, and reports. Required unless you provide an OAuth 2.0

159+-- token.

160+assKey :: Lens' AssociationSessionsStart' (Maybe Key)

161+assKey = lens _assKey (\ s a -> s{_assKey = a})

162+

163+-- | The URL of the user\'s hosted website.

164+assWebsiteURL :: Lens' AssociationSessionsStart' Text

165+assWebsiteURL

166+ = lens _assWebsiteURL

167+ (\ s a -> s{_assWebsiteURL = a})

168+

169+-- | OAuth 2.0 token for the current user.

170+assOAuthToken :: Lens' AssociationSessionsStart' (Maybe OAuthToken)

171+assOAuthToken

172+ = lens _assOAuthToken

173+ (\ s a -> s{_assOAuthToken = a})

174+

175+-- | Products to associate with the user.

176+assProductCode :: Lens' AssociationSessionsStart' [ProductCode]

177+assProductCode

178+ = lens _assProductCode

179+ (\ s a -> s{_assProductCode = a})

180+ . _Coerce

181+

182+-- | Selector specifying which fields to include in a partial response.

183+assFields :: Lens' AssociationSessionsStart' (Maybe Text)

184+assFields

185+ = lens _assFields (\ s a -> s{_assFields = a})

186+

187+instance GoogleAuth AssociationSessionsStart' where

188+ authKey = assKey . _Just

189+ authToken = assOAuthToken . _Just

190+

191+instance GoogleRequest AssociationSessionsStart'

192+ where

193+ type Rs AssociationSessionsStart' =

194+ AssociationSession

195+ request = requestWithRoute defReq adSenseHostURL

196+ requestWithRoute r u AssociationSessionsStart'{..}

197+ = go _assProductCode (Just _assWebsiteURL)

198+ _assWebsiteLocale

199+ _assUserLocale

200+ _assQuotaUser

201+ (Just _assPrettyPrint)

202+ _assUserIP

203+ _assFields

204+ _assKey

205+ _assOAuthToken

206+ (Just AltJSON)

207+ where go

208+ = clientWithRoute

209+ (Proxy :: Proxy AssociationSessionsStartResource)

210+ r

211+ u

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/AssociationSessions/Verify.hsnew file+168

@@ -0,0 +1,168 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE OverloadedStrings #-}

6+{-# LANGUAGE RecordWildCards #-}

7+{-# LANGUAGE TypeFamilies #-}

8+{-# LANGUAGE TypeOperators #-}

10+{-# OPTIONS_GHC -fno-warn-unused-imports #-}

11+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

12+

13+-- |

14+-- Module : Network.Google.Resource.AdSenseHost.AssociationSessions.Verify

16+-- License : Mozilla Public License, v. 2.0.

17+-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

18+-- Stability : auto-generated

19+-- Portability : non-portable (GHC extensions)

20+--

21+-- | Verify an association session after the association callback returns

22+-- from AdSense signup.

23+--

24+-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @AdsensehostAssociationSessionsVerify@.

25+module Network.Google.Resource.AdSenseHost.AssociationSessions.Verify

26+ (

27+ -- * REST Resource

28+ AssociationSessionsVerifyResource

29+

30+ -- * Creating a Request

31+ , associationSessionsVerify'

32+ , AssociationSessionsVerify'

33+

34+ -- * Request Lenses

35+ , asvQuotaUser

36+ , asvPrettyPrint

37+ , asvUserIP

38+ , asvToken

39+ , asvKey

40+ , asvOAuthToken

41+ , asvFields

42+ ) where

43+

44+import Network.Google.AdSenseHost.Types

45+import Network.Google.Prelude

46+

47+-- | A resource alias for @AdsensehostAssociationSessionsVerify@ which the

48+-- 'AssociationSessionsVerify'' request conforms to.

49+type AssociationSessionsVerifyResource =

50+ "associationsessions" :>

51+ "verify" :>

52+ QueryParam "token" Text :>

53+ QueryParam "quotaUser" Text :>

54+ QueryParam "prettyPrint" Bool :>

55+ QueryParam "userIp" Text :>

56+ QueryParam "fields" Text :>

57+ QueryParam "key" Key :>

58+ QueryParam "oauth_token" OAuthToken :>

59+ QueryParam "alt" AltJSON :>

60+ Get '[JSON] AssociationSession

61+

62+-- | Verify an association session after the association callback returns

63+-- from AdSense signup.

64+--

65+-- /See:/ 'associationSessionsVerify'' smart constructor.

66+data AssociationSessionsVerify' = AssociationSessionsVerify'

67+ { _asvQuotaUser :: !(Maybe Text)

68+ , _asvPrettyPrint :: !Bool

69+ , _asvUserIP :: !(Maybe Text)

70+ , _asvToken :: !Text

71+ , _asvKey :: !(Maybe Key)

72+ , _asvOAuthToken :: !(Maybe OAuthToken)

73+ , _asvFields :: !(Maybe Text)

74+ } deriving (Eq,Show,Data,Typeable,Generic)

75+

76+-- | Creates a value of 'AssociationSessionsVerify'' with the minimum fields required to make a request.

77+--

78+-- Use one of the following lenses to modify other fields as desired:

79+--

80+-- * 'asvQuotaUser'

81+--

82+-- * 'asvPrettyPrint'

83+--

84+-- * 'asvUserIP'

85+--

86+-- * 'asvToken'

87+--

88+-- * 'asvKey'

89+--

90+-- * 'asvOAuthToken'

91+--

92+-- * 'asvFields'

93+associationSessionsVerify'

94+ :: Text -- ^ 'token'

95+ -> AssociationSessionsVerify'

96+associationSessionsVerify' pAsvToken_ =

97+ AssociationSessionsVerify'

98+ { _asvQuotaUser = Nothing

99+ , _asvPrettyPrint = True

100+ , _asvUserIP = Nothing

101+ , _asvToken = pAsvToken_

102+ , _asvKey = Nothing

103+ , _asvOAuthToken = Nothing

104+ , _asvFields = Nothing

105+ }

106+

107+-- | Available to use for quota purposes for server-side applications. Can be

108+-- any arbitrary string assigned to a user, but should not exceed 40

109+-- characters. Overrides userIp if both are provided.

110+asvQuotaUser :: Lens' AssociationSessionsVerify' (Maybe Text)

111+asvQuotaUser

112+ = lens _asvQuotaUser (\ s a -> s{_asvQuotaUser = a})

113+

114+-- | Returns response with indentations and line breaks.

115+asvPrettyPrint :: Lens' AssociationSessionsVerify' Bool

116+asvPrettyPrint

117+ = lens _asvPrettyPrint

118+ (\ s a -> s{_asvPrettyPrint = a})

119+

120+-- | IP address of the site where the request originates. Use this if you

121+-- want to enforce per-user limits.

122+asvUserIP :: Lens' AssociationSessionsVerify' (Maybe Text)

123+asvUserIP

124+ = lens _asvUserIP (\ s a -> s{_asvUserIP = a})

125+

126+-- | The token returned to the association callback URL.

127+asvToken :: Lens' AssociationSessionsVerify' Text

128+asvToken = lens _asvToken (\ s a -> s{_asvToken = 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+asvKey :: Lens' AssociationSessionsVerify' (Maybe Key)

134+asvKey = lens _asvKey (\ s a -> s{_asvKey = a})

135+

136+-- | OAuth 2.0 token for the current user.

137+asvOAuthToken :: Lens' AssociationSessionsVerify' (Maybe OAuthToken)

138+asvOAuthToken

139+ = lens _asvOAuthToken

140+ (\ s a -> s{_asvOAuthToken = a})

141+

142+-- | Selector specifying which fields to include in a partial response.

143+asvFields :: Lens' AssociationSessionsVerify' (Maybe Text)

144+asvFields

145+ = lens _asvFields (\ s a -> s{_asvFields = a})

146+

147+instance GoogleAuth AssociationSessionsVerify' where

148+ authKey = asvKey . _Just

149+ authToken = asvOAuthToken . _Just

150+

151+instance GoogleRequest AssociationSessionsVerify'

152+ where

153+ type Rs AssociationSessionsVerify' =

154+ AssociationSession

155+ request = requestWithRoute defReq adSenseHostURL

156+ requestWithRoute r u AssociationSessionsVerify'{..}

157+ = go (Just _asvToken) _asvQuotaUser

158+ (Just _asvPrettyPrint)

159+ _asvUserIP

160+ _asvFields

161+ _asvKey

162+ _asvOAuthToken

163+ (Just AltJSON)

164+ where go

165+ = clientWithRoute

166+ (Proxy :: Proxy AssociationSessionsVerifyResource)

167+ r

168+ u

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Associationsessions/Start.hsdeleted−203

@@ -1,203 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE FlexibleInstances #-}

5−{-# LANGUAGE OverloadedStrings #-}

6−{-# LANGUAGE RecordWildCards #-}

7−{-# LANGUAGE TypeFamilies #-}

8−{-# LANGUAGE TypeOperators #-}

9−

10−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

12−

13−-- |

14−-- Module : Network.Google.Resource.AdSenseHost.Associationsessions.Start

16−-- License : Mozilla Public License, v. 2.0.

17−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

18−-- Stability : auto-generated

19−-- Portability : non-portable (GHC extensions)

20−--

21−-- | Create an association session for initiating an association with an

22−-- AdSense user.

23−--

24−-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @AdsensehostAssociationsessionsStart@.

25−module Network.Google.Resource.AdSenseHost.Associationsessions.Start

26− (

27− -- * REST Resource

28− AssociationsessionsStartResource

29−

30− -- * Creating a Request

31− , associationsessionsStart'

32− , AssociationsessionsStart'

33−

34− -- * Request Lenses

35− , aQuotaUser

36− , aPrettyPrint

37− , aUserIP

38− , aWebsiteLocale

39− , aUserLocale

40− , aKey

41− , aWebsiteURL

42− , aOAuthToken

43− , aProductCode

44− , aFields

45− ) where

46−

47−import Network.Google.AdSenseHost.Types

48−import Network.Google.Prelude

49−

50−-- | A resource alias for @AdsensehostAssociationsessionsStart@ which the

51−-- 'AssociationsessionsStart'' request conforms to.

52−type AssociationsessionsStartResource =

53− "associationsessions" :>

54− "start" :>

55− QueryParams "productCode" ProductCode :>

56− QueryParam "websiteUrl" Text :>

57− QueryParam "websiteLocale" Text :>

58− QueryParam "userLocale" Text :>

59− QueryParam "quotaUser" Text :>

60− QueryParam "prettyPrint" Bool :>

61− QueryParam "userIp" Text :>

62− QueryParam "fields" Text :>

63− QueryParam "key" Key :>

64− QueryParam "oauth_token" OAuthToken :>

65− QueryParam "alt" AltJSON :>

66− Get '[JSON] AssociationSession

67−

68−-- | Create an association session for initiating an association with an

69−-- AdSense user.

70−--

71−-- /See:/ 'associationsessionsStart'' smart constructor.

72−data AssociationsessionsStart' = AssociationsessionsStart'

73− { _aQuotaUser :: !(Maybe Text)

74− , _aPrettyPrint :: !Bool

75− , _aUserIP :: !(Maybe Text)

76− , _aWebsiteLocale :: !(Maybe Text)

77− , _aUserLocale :: !(Maybe Text)

78− , _aKey :: !(Maybe Key)

79− , _aWebsiteURL :: !Text

80− , _aOAuthToken :: !(Maybe OAuthToken)

81− , _aProductCode :: !ProductCode

82− , _aFields :: !(Maybe Text)

83− } deriving (Eq,Show,Data,Typeable,Generic)

84−

85−-- | Creates a value of 'AssociationsessionsStart'' 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−-- * 'aQuotaUser'

90−--

91−-- * 'aPrettyPrint'

92−--

93−-- * 'aUserIP'

94−--

95−-- * 'aWebsiteLocale'

96−--

97−-- * 'aUserLocale'

98−--

99−-- * 'aKey'

100−--

101−-- * 'aWebsiteURL'

102−--

103−-- * 'aOAuthToken'

104−--

105−-- * 'aProductCode'

106−--

107−-- * 'aFields'

108−associationsessionsStart'

109− :: Text -- ^ 'websiteUrl'

110− -> ProductCode -- ^ 'productCode'

111− -> AssociationsessionsStart'

112−associationsessionsStart' pAWebsiteURL_ pAProductCode_ =

113− AssociationsessionsStart'

114− { _aQuotaUser = Nothing

115− , _aPrettyPrint = True

116− , _aUserIP = Nothing

117− , _aWebsiteLocale = Nothing

118− , _aUserLocale = Nothing

119− , _aKey = Nothing

120− , _aWebsiteURL = pAWebsiteURL_

121− , _aOAuthToken = Nothing

122− , _aProductCode = pAProductCode_

123− , _aFields = Nothing

124− }

125−

126−-- | Available to use for quota purposes for server-side applications. Can be

127−-- any arbitrary string assigned to a user, but should not exceed 40

128−-- characters. Overrides userIp if both are provided.

129−aQuotaUser :: Lens' AssociationsessionsStart' (Maybe Text)

130−aQuotaUser

131− = lens _aQuotaUser (\ s a -> s{_aQuotaUser = a})

132−

133−-- | Returns response with indentations and line breaks.

134−aPrettyPrint :: Lens' AssociationsessionsStart' Bool

135−aPrettyPrint

136− = lens _aPrettyPrint (\ s a -> s{_aPrettyPrint = a})

137−

138−-- | IP address of the site where the request originates. Use this if you

139−-- want to enforce per-user limits.

140−aUserIP :: Lens' AssociationsessionsStart' (Maybe Text)

141−aUserIP = lens _aUserIP (\ s a -> s{_aUserIP = a})

142−

143−-- | The locale of the user\'s hosted website.

144−aWebsiteLocale :: Lens' AssociationsessionsStart' (Maybe Text)

145−aWebsiteLocale

146− = lens _aWebsiteLocale

147− (\ s a -> s{_aWebsiteLocale = a})

148−

149−-- | The preferred locale of the user.

150−aUserLocale :: Lens' AssociationsessionsStart' (Maybe Text)

151−aUserLocale

152− = lens _aUserLocale (\ s a -> s{_aUserLocale = a})

153−

154−-- | API key. Your API key identifies your project and provides you with API

155−-- access, quota, and reports. Required unless you provide an OAuth 2.0

156−-- token.

157−aKey :: Lens' AssociationsessionsStart' (Maybe Key)

158−aKey = lens _aKey (\ s a -> s{_aKey = a})

159−

160−-- | The URL of the user\'s hosted website.

161−aWebsiteURL :: Lens' AssociationsessionsStart' Text

162−aWebsiteURL

163− = lens _aWebsiteURL (\ s a -> s{_aWebsiteURL = a})

164−

165−-- | OAuth 2.0 token for the current user.

166−aOAuthToken :: Lens' AssociationsessionsStart' (Maybe OAuthToken)

167−aOAuthToken

168− = lens _aOAuthToken (\ s a -> s{_aOAuthToken = a})

169−

170−-- | Products to associate with the user.

171−aProductCode :: Lens' AssociationsessionsStart' ProductCode

172−aProductCode

173− = lens _aProductCode (\ s a -> s{_aProductCode = a})

174−

175−-- | Selector specifying which fields to include in a partial response.

176−aFields :: Lens' AssociationsessionsStart' (Maybe Text)

177−aFields = lens _aFields (\ s a -> s{_aFields = a})

178−

179−instance GoogleAuth AssociationsessionsStart' where

180− authKey = aKey . _Just

181− authToken = aOAuthToken . _Just

182−

183−instance GoogleRequest AssociationsessionsStart'

184− where

185− type Rs AssociationsessionsStart' =

186− AssociationSession

187− request = requestWithRoute defReq adSenseHostURL

188− requestWithRoute r u AssociationsessionsStart'{..}

189− = go (_aProductCode ^. _Default) (Just _aWebsiteURL)

190− _aWebsiteLocale

191− _aUserLocale

192− _aQuotaUser

193− (Just _aPrettyPrint)

194− _aUserIP

195− _aFields

196− _aKey

197− _aOAuthToken

198− (Just AltJSON)

199− where go

200− = clientWithRoute

201− (Proxy :: Proxy AssociationsessionsStartResource)

202− r

203− u

gogol-adsense-host/gen/Network/Google/Resource/AdSenseHost/Associationsessions/Verify.hsdeleted−165

@@ -1,165 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE FlexibleInstances #-}

5−{-# LANGUAGE OverloadedStrings #-}

6−{-# LANGUAGE RecordWildCards #-}

7−{-# LANGUAGE TypeFamilies #-}

8−{-# LANGUAGE TypeOperators #-}

9−

10−{-# OPTIONS_GHC -fno-warn-unused-imports #-}

11−{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

12−

13−-- |

14−-- Module : Network.Google.Resource.AdSenseHost.Associationsessions.Verify

16−-- License : Mozilla Public License, v. 2.0.

17−-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

18−-- Stability : auto-generated

19−-- Portability : non-portable (GHC extensions)

20−--

21−-- | Verify an association session after the association callback returns

22−-- from AdSense signup.

23−--

24−-- /See:/ <https://developers.google.com/adsense/host/ AdSense Host API Reference> for @AdsensehostAssociationsessionsVerify@.

25−module Network.Google.Resource.AdSenseHost.Associationsessions.Verify

26− (

27− -- * REST Resource

28− AssociationsessionsVerifyResource

29−

30− -- * Creating a Request

31− , associationsessionsVerify'

32− , AssociationsessionsVerify'

33−

34− -- * Request Lenses

35− , avQuotaUser

36− , avPrettyPrint

37− , avUserIP

38− , avToken

39− , avKey

40− , avOAuthToken

41− , avFields

42− ) where

43−

44−import Network.Google.AdSenseHost.Types

45−import Network.Google.Prelude

46−

47−-- | A resource alias for @AdsensehostAssociationsessionsVerify@ which the

48−-- 'AssociationsessionsVerify'' request conforms to.

49−type AssociationsessionsVerifyResource =

50− "associationsessions" :>

51− "verify" :>

52− QueryParam "token" Text :>

53− QueryParam "quotaUser" Text :>

54− QueryParam "prettyPrint" Bool :>

55− QueryParam "userIp" Text :>

56− QueryParam "fields" Text :>

57− QueryParam "key" Key :>

58− QueryParam "oauth_token" OAuthToken :>

59− QueryParam "alt" AltJSON :>

60− Get '[JSON] AssociationSession

61−

62−-- | Verify an association session after the association callback returns

63−-- from AdSense signup.

64−--

65−-- /See:/ 'associationsessionsVerify'' smart constructor.

66−data AssociationsessionsVerify' = AssociationsessionsVerify'

67− { _avQuotaUser :: !(Maybe Text)

68− , _avPrettyPrint :: !Bool

69− , _avUserIP :: !(Maybe Text)

70− , _avToken :: !Text

71− , _avKey :: !(Maybe Key)

72− , _avOAuthToken :: !(Maybe OAuthToken)

73− , _avFields :: !(Maybe Text)

74− } deriving (Eq,Show,Data,Typeable,Generic)

75−

76−-- | Creates a value of 'AssociationsessionsVerify'' with the minimum fields required to make a request.

77−--

78−-- Use one of the following lenses to modify other fields as desired:

79−--

80−-- * 'avQuotaUser'

81−--

82−-- * 'avPrettyPrint'

83−--

84−-- * 'avUserIP'

85−--

86−-- * 'avToken'

87−--

88−-- * 'avKey'

89−--

90−-- * 'avOAuthToken'

91−--

92−-- * 'avFields'

93−associationsessionsVerify'

94− :: Text -- ^ 'token'

95− -> AssociationsessionsVerify'

96−associationsessionsVerify' pAvToken_ =

97− AssociationsessionsVerify'

98− { _avQuotaUser = Nothing

99− , _avPrettyPrint = True

100− , _avUserIP = Nothing

101− , _avToken = pAvToken_

102− , _avKey = Nothing

103− , _avOAuthToken = Nothing

104− , _avFields = Nothing

105− }

106−

107−-- | Available to use for quota purposes for server-side applications. Can be

108−-- any arbitrary string assigned to a user, but should not exceed 40

109−-- characters. Overrides userIp if both are provided.

110−avQuotaUser :: Lens' AssociationsessionsVerify' (Maybe Text)

111−avQuotaUser

112− = lens _avQuotaUser (\ s a -> s{_avQuotaUser = a})

113−

114−-- | Returns response with indentations and line breaks.

115−avPrettyPrint :: Lens' AssociationsessionsVerify' Bool

116−avPrettyPrint

117− = lens _avPrettyPrint

118− (\ s a -> s{_avPrettyPrint = a})

119−

120−-- | IP address of the site where the request originates. Use this if you

121−-- want to enforce per-user limits.

122−avUserIP :: Lens' AssociationsessionsVerify' (Maybe Text)

123−avUserIP = lens _avUserIP (\ s a -> s{_avUserIP = a})

124−

125−-- | The token returned to the association callback URL.

126−avToken :: Lens' AssociationsessionsVerify' Text

127−avToken = lens _avToken (\ s a -> s{_avToken = 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−avKey :: Lens' AssociationsessionsVerify' (Maybe Key)

133−avKey = lens _avKey (\ s a -> s{_avKey = a})

134−

135−-- | OAuth 2.0 token for the current user.

136−avOAuthToken :: Lens' AssociationsessionsVerify' (Maybe OAuthToken)

137−avOAuthToken

138− = lens _avOAuthToken (\ s a -> s{_avOAuthToken = a})

139−

140−-- | Selector specifying which fields to include in a partial response.

141−avFields :: Lens' AssociationsessionsVerify' (Maybe Text)

142−avFields = lens _avFields (\ s a -> s{_avFields = a})

143−

144−instance GoogleAuth AssociationsessionsVerify' where

145− authKey = avKey . _Just

146− authToken = avOAuthToken . _Just

147−

148−instance GoogleRequest AssociationsessionsVerify'

149− where

150− type Rs AssociationsessionsVerify' =

151− AssociationSession

152− request = requestWithRoute defReq adSenseHostURL

153− requestWithRoute r u AssociationsessionsVerify'{..}

154− = go (Just _avToken) _avQuotaUser

155− (Just _avPrettyPrint)

156− _avUserIP

157− _avFields

158− _avKey

159− _avOAuthToken

160− (Just AltJSON)

161− where go

162− = clientWithRoute

163− (Proxy :: Proxy AssociationsessionsVerifyResource)

164− r

165− u

gogol-adsense-host/gogol-adsense-host.cabal+2−2

@@ -47,8 +47,8 @@ library

4747 , Network.Google.Resource.AdSenseHost.Accounts.Reports.Generate

4848 , Network.Google.Resource.AdSenseHost.AdClients.Get

4949 , Network.Google.Resource.AdSenseHost.AdClients.List

50− , Network.Google.Resource.AdSenseHost.Associationsessions.Start

51− , Network.Google.Resource.AdSenseHost.Associationsessions.Verify

50+ , Network.Google.Resource.AdSenseHost.AssociationSessions.Start

51+ , Network.Google.Resource.AdSenseHost.AssociationSessions.Verify

5252 , Network.Google.Resource.AdSenseHost.CustomChannels.Delete

5353 , Network.Google.Resource.AdSenseHost.CustomChannels.Get

5454 , Network.Google.Resource.AdSenseHost.CustomChannels.Insert

gogol-affiliates/gen/Network/Google/Affiliates.hs+52−52

@@ -26,35 +26,35 @@ module Network.Google.Affiliates

2626

2727 -- * REST Resources

2828

29− -- ** GanAdvertisersGet

30− , module Network.Google.Resource.Gan.Advertisers.Get

29+ -- ** GANAdvertisersGet

30+ , module Network.Google.Resource.GAN.Advertisers.Get

3131

32− -- ** GanAdvertisersList

33− , module Network.Google.Resource.Gan.Advertisers.List

32+ -- ** GANAdvertisersList

33+ , module Network.Google.Resource.GAN.Advertisers.List

3434

35− -- ** GanCcOffersList

36− , module Network.Google.Resource.Gan.CcOffers.List

35+ -- ** GANCcOffersList

36+ , module Network.Google.Resource.GAN.CcOffers.List

3737

38− -- ** GanEventsList

39− , module Network.Google.Resource.Gan.Events.List

38+ -- ** GANEventsList

39+ , module Network.Google.Resource.GAN.Events.List

4040

41− -- ** GanLinksGet

42− , module Network.Google.Resource.Gan.Links.Get

41+ -- ** GANLinksGet

42+ , module Network.Google.Resource.GAN.Links.Get

4343

44− -- ** GanLinksInsert

45− , module Network.Google.Resource.Gan.Links.Insert

44+ -- ** GANLinksInsert

45+ , module Network.Google.Resource.GAN.Links.Insert

4646

47− -- ** GanLinksList

48− , module Network.Google.Resource.Gan.Links.List

47+ -- ** GANLinksList

48+ , module Network.Google.Resource.GAN.Links.List

4949

50− -- ** GanPublishersGet

51− , module Network.Google.Resource.Gan.Publishers.Get

50+ -- ** GANPublishersGet

51+ , module Network.Google.Resource.GAN.Publishers.Get

5252

53− -- ** GanPublishersList

54− , module Network.Google.Resource.Gan.Publishers.List

53+ -- ** GANPublishersList

54+ , module Network.Google.Resource.GAN.Publishers.List

5555

56− -- ** GanReportsGet

57− , module Network.Google.Resource.Gan.Reports.Get

56+ -- ** GANReportsGet

57+ , module Network.Google.Resource.GAN.Reports.Get

5858

5959 -- * Types

6060

@@ -92,14 +92,14 @@ module Network.Google.Affiliates

9292 -- ** Authorship

9393 , Authorship (..)

9494

95− -- ** GanPublishersGetRole

96− , GanPublishersGetRole (..)

95+ -- ** GANPublishersGetRole

96+ , GANPublishersGetRole (..)

9797

9898 -- ** ChargeType

9999 , ChargeType (..)

100100

101− -- ** GanLinksListRole

102− , GanLinksListRole (..)

101+ -- ** GANLinksListRole

102+ , GANLinksListRole (..)

103103

104104 -- ** ProductsItem

105105 , ProductsItem

@@ -148,11 +148,11 @@ module Network.Google.Affiliates

148148 , mAmount

149149 , mCurrencyCode

150150

151− -- ** GanLinksInsertRole

152− , GanLinksInsertRole (..)

151+ -- ** GANLinksInsertRole

152+ , GANLinksInsertRole (..)

153153

154− -- ** GanAdvertisersListRole

155− , GanAdvertisersListRole (..)

154+ -- ** GANAdvertisersListRole

155+ , GANAdvertisersListRole (..)

156156

157157 -- ** PromotionType

158158 , PromotionType (..)

@@ -163,8 +163,8 @@ module Network.Google.Affiliates

163163 , coKind

164164 , coItems

165165

166− -- ** GanPublishersListRole

167− , GanPublishersListRole (..)

166+ -- ** GANPublishersListRole

167+ , GANPublishersListRole (..)

168168

169169 -- ** Advertisers

170170 , Advertisers

@@ -185,8 +185,8 @@ module Network.Google.Affiliates

185185 , rColumnNames

186186 , rType

187187

188− -- ** GanLinksGetRole

189− , GanLinksGetRole (..)

188+ -- ** GANLinksGetRole

189+ , GANLinksGetRole (..)

190190

191191 -- ** RewardsItem

192192 , RewardsItem

@@ -198,14 +198,14 @@ module Network.Google.Affiliates

198198 , riMaxRewardTier

199199 , riMinRewardTier

200200

201− -- ** GanEventsListRole

202− , GanEventsListRole (..)

201+ -- ** GANEventsListRole

202+ , GANEventsListRole (..)

203203

204204 -- ** Role

205205 , Role (..)

206206

207− -- ** GanAdvertisersGetRole

208− , GanAdvertisersGetRole (..)

207+ -- ** GANAdvertisersGetRole

208+ , GANAdvertisersGetRole (..)

209209

210210 -- ** EventType

211211 , EventType (..)

@@ -217,8 +217,8 @@ module Network.Google.Affiliates

217217 , eveKind

218218 , eveItems

219219

220− -- ** GanPublishersListRelationshipStatus

221− , GanPublishersListRelationshipStatus (..)

220+ -- ** GANPublishersListRelationshipStatus

221+ , GANPublishersListRelationshipStatus (..)

222222

223223 -- ** SpecialOffers

224224 , SpecialOffers

@@ -373,25 +373,25 @@ module Network.Google.Affiliates

373373 , pubEpcNinetyDayAverage

374374 , pubSites

375375

376− -- ** GanLinksListRelationshipStatus

377− , GanLinksListRelationshipStatus (..)

376+ -- ** GANLinksListRelationshipStatus

377+ , GANLinksListRelationshipStatus (..)

378378

379− -- ** GanEventsListStatus

380− , GanEventsListStatus (..)

379+ -- ** GANEventsListStatus

380+ , GANEventsListStatus (..)

381381 ) where

382382

383383import Network.Google.Affiliates.Types

384384import Network.Google.Prelude

385−import Network.Google.Resource.Gan.Advertisers.Get

386−import Network.Google.Resource.Gan.Advertisers.List

387−import Network.Google.Resource.Gan.CcOffers.List

388−import Network.Google.Resource.Gan.Events.List

389−import Network.Google.Resource.Gan.Links.Get

390−import Network.Google.Resource.Gan.Links.Insert

391−import Network.Google.Resource.Gan.Links.List

392−import Network.Google.Resource.Gan.Publishers.Get

393−import Network.Google.Resource.Gan.Publishers.List

394−import Network.Google.Resource.Gan.Reports.Get

385+import Network.Google.Resource.GAN.Advertisers.Get

386+import Network.Google.Resource.GAN.Advertisers.List

387+import Network.Google.Resource.GAN.CcOffers.List

388+import Network.Google.Resource.GAN.Events.List

389+import Network.Google.Resource.GAN.Links.Get

390+import Network.Google.Resource.GAN.Links.Insert

391+import Network.Google.Resource.GAN.Links.List

392+import Network.Google.Resource.GAN.Publishers.Get

393+import Network.Google.Resource.GAN.Publishers.List

394+import Network.Google.Resource.GAN.Reports.Get

395395

396396{- $resources

397397TODO

gogol-affiliates/gen/Network/Google/Affiliates/Types.hs+22−22

@@ -51,14 +51,14 @@ module Network.Google.Affiliates.Types

5151 -- * Authorship

5252 , Authorship (..)

5353

54− -- * GanPublishersGetRole

55− , GanPublishersGetRole (..)

54+ -- * GANPublishersGetRole

55+ , GANPublishersGetRole (..)

5656

5757 -- * ChargeType

5858 , ChargeType (..)

5959

60− -- * GanLinksListRole

61− , GanLinksListRole (..)

60+ -- * GANLinksListRole

61+ , GANLinksListRole (..)

6262

6363 -- * ProductsItem

6464 , ProductsItem

@@ -107,11 +107,11 @@ module Network.Google.Affiliates.Types

107107 , mAmount

108108 , mCurrencyCode

109109

110− -- * GanLinksInsertRole

111− , GanLinksInsertRole (..)

110+ -- * GANLinksInsertRole

111+ , GANLinksInsertRole (..)

112112

113− -- * GanAdvertisersListRole

114− , GanAdvertisersListRole (..)

113+ -- * GANAdvertisersListRole

114+ , GANAdvertisersListRole (..)

115115

116116 -- * PromotionType

117117 , PromotionType (..)

@@ -122,8 +122,8 @@ module Network.Google.Affiliates.Types

122122 , coKind

123123 , coItems

124124

125− -- * GanPublishersListRole

126− , GanPublishersListRole (..)

125+ -- * GANPublishersListRole

126+ , GANPublishersListRole (..)

127127

128128 -- * Advertisers

129129 , Advertisers

@@ -144,8 +144,8 @@ module Network.Google.Affiliates.Types

144144 , rColumnNames

145145 , rType

146146

147− -- * GanLinksGetRole

148− , GanLinksGetRole (..)

147+ -- * GANLinksGetRole

148+ , GANLinksGetRole (..)

149149

150150 -- * RewardsItem

151151 , RewardsItem

@@ -157,14 +157,14 @@ module Network.Google.Affiliates.Types

157157 , riMaxRewardTier

158158 , riMinRewardTier

159159

160− -- * GanEventsListRole

161− , GanEventsListRole (..)

160+ -- * GANEventsListRole

161+ , GANEventsListRole (..)

162162

163163 -- * Role

164164 , Role (..)

165165

166− -- * GanAdvertisersGetRole

167− , GanAdvertisersGetRole (..)

166+ -- * GANAdvertisersGetRole

167+ , GANAdvertisersGetRole (..)

168168

169169 -- * EventType

170170 , EventType (..)

@@ -176,8 +176,8 @@ module Network.Google.Affiliates.Types

176176 , eveKind

177177 , eveItems

178178

179− -- * GanPublishersListRelationshipStatus

180− , GanPublishersListRelationshipStatus (..)

179+ -- * GANPublishersListRelationshipStatus

180+ , GANPublishersListRelationshipStatus (..)

181181

182182 -- * SpecialOffers

183183 , SpecialOffers

@@ -332,11 +332,11 @@ module Network.Google.Affiliates.Types

332332 , pubEpcNinetyDayAverage

333333 , pubSites

334334

335− -- * GanLinksListRelationshipStatus

336− , GanLinksListRelationshipStatus (..)

335+ -- * GANLinksListRelationshipStatus

336+ , GANLinksListRelationshipStatus (..)

337337

338− -- * GanEventsListStatus

339− , GanEventsListStatus (..)

338+ -- * GANEventsListStatus

339+ , GANEventsListStatus (..)

340340 ) where

341341

342342import Network.Google.Affiliates.Types.Product

gogol-affiliates/gen/Network/Google/Affiliates/Types/Sum.hs+152−152

@@ -81,32 +81,32 @@ instance ToJSON Authorship where

8181

8282-- | The role of the requester. Valid values: \'advertisers\' or

8383-- \'publishers\'.

84−data GanPublishersGetRole

85− = GPGRAdvertisers

84+data GANPublishersGetRole

85+ = GANPGRAdvertisers

8686 -- ^ @advertisers@

8787 -- The requester is requesting as an advertiser.

88− | GPGRPublishers

88+ | GANPGRPublishers

8989 -- ^ @publishers@

9090 -- The requester is requesting as a publisher.

9191 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)

9292

93−instance Hashable GanPublishersGetRole

93+instance Hashable GANPublishersGetRole

9494

95−instance FromText GanPublishersGetRole where

95+instance FromText GANPublishersGetRole where

9696 fromText = \case

97− "advertisers" -> Just GPGRAdvertisers

98− "publishers" -> Just GPGRPublishers

97+ "advertisers" -> Just GANPGRAdvertisers

98+ "publishers" -> Just GANPGRPublishers

9999 _ -> Nothing

100100

101−instance ToText GanPublishersGetRole where

101+instance ToText GANPublishersGetRole where

102102 toText = \case

103− GPGRAdvertisers -> "advertisers"

104− GPGRPublishers -> "publishers"

103+ GANPGRAdvertisers -> "advertisers"

104+ GANPGRPublishers -> "publishers"

105105

106−instance FromJSON GanPublishersGetRole where

107− parseJSON = parseJSONText "GanPublishersGetRole"

106+instance FromJSON GANPublishersGetRole where

107+ parseJSON = parseJSONText "GANPublishersGetRole"

108108

109−instance ToJSON GanPublishersGetRole where

109+instance ToJSON GANPublishersGetRole where

110110 toJSON = toJSONText

111111

112112-- | Filters out all charge events that are not of the given charge type.

@@ -166,32 +166,32 @@ instance ToJSON ChargeType where

166166

167167-- | The role of the requester. Valid values: \'advertisers\' or

168168-- \'publishers\'.

169−data GanLinksListRole

170− = GLLRAdvertisers

169+data GANLinksListRole

170+ = GANLLRAdvertisers

171171 -- ^ @advertisers@

172172 -- The requester is requesting as an advertiser.

173− | GLLRPublishers

173+ | GANLLRPublishers

174174 -- ^ @publishers@

175175 -- The requester is requesting as a publisher.

176176 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)

177177

178−instance Hashable GanLinksListRole

178+instance Hashable GANLinksListRole

179179

180−instance FromText GanLinksListRole where

180+instance FromText GANLinksListRole where

181181 fromText = \case

182− "advertisers" -> Just GLLRAdvertisers

183− "publishers" -> Just GLLRPublishers

182+ "advertisers" -> Just GANLLRAdvertisers

183+ "publishers" -> Just GANLLRPublishers

184184 _ -> Nothing

185185

186−instance ToText GanLinksListRole where

186+instance ToText GANLinksListRole where

187187 toText = \case

188− GLLRAdvertisers -> "advertisers"

189− GLLRPublishers -> "publishers"

188+ GANLLRAdvertisers -> "advertisers"

189+ GANLLRPublishers -> "publishers"

190190

191−instance FromJSON GanLinksListRole where

192− parseJSON = parseJSONText "GanLinksListRole"

191+instance FromJSON GANLinksListRole where

192+ parseJSON = parseJSONText "GANLinksListRole"

193193

194−instance ToJSON GanLinksListRole where

194+instance ToJSON GANLinksListRole where

195195 toJSON = toJSONText

196196

197197-- | Filters out all advertisers for which do not have the given relationship

@@ -244,62 +244,62 @@ instance ToJSON RelationshipStatus where

244244

245245-- | The role of the requester. Valid values: \'advertisers\' or

246246-- \'publishers\'.

247−data GanLinksInsertRole

248− = GLIRAdvertisers

247+data GANLinksInsertRole

248+ = GANLIRAdvertisers

249249 -- ^ @advertisers@

250250 -- The requester is requesting as an advertiser.

251− | GLIRPublishers

251+ | GANLIRPublishers

252252 -- ^ @publishers@

253253 -- The requester is requesting as a publisher.

254254 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)

255255

256−instance Hashable GanLinksInsertRole

256+instance Hashable GANLinksInsertRole

257257

258−instance FromText GanLinksInsertRole where

258+instance FromText GANLinksInsertRole where

259259 fromText = \case

260− "advertisers" -> Just GLIRAdvertisers

261− "publishers" -> Just GLIRPublishers

260+ "advertisers" -> Just GANLIRAdvertisers

261+ "publishers" -> Just GANLIRPublishers

262262 _ -> Nothing

263263

264−instance ToText GanLinksInsertRole where

264+instance ToText GANLinksInsertRole where

265265 toText = \case

266− GLIRAdvertisers -> "advertisers"

267− GLIRPublishers -> "publishers"

266+ GANLIRAdvertisers -> "advertisers"

267+ GANLIRPublishers -> "publishers"

268268

269−instance FromJSON GanLinksInsertRole where

270− parseJSON = parseJSONText "GanLinksInsertRole"

269+instance FromJSON GANLinksInsertRole where

270+ parseJSON = parseJSONText "GANLinksInsertRole"

271271

272−instance ToJSON GanLinksInsertRole where

272+instance ToJSON GANLinksInsertRole where

273273 toJSON = toJSONText

274274

275275-- | The role of the requester. Valid values: \'advertisers\' or

276276-- \'publishers\'.

277−data GanAdvertisersListRole

278− = GALRAdvertisers

277+data GANAdvertisersListRole

278+ = GANALRAdvertisers

279279 -- ^ @advertisers@

280280 -- The requester is requesting as an advertiser.

281− | GALRPublishers

281+ | GANALRPublishers

282282 -- ^ @publishers@

283283 -- The requester is requesting as a publisher.

284284 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)

285285

286−instance Hashable GanAdvertisersListRole

286+instance Hashable GANAdvertisersListRole

287287

288−instance FromText GanAdvertisersListRole where

288+instance FromText GANAdvertisersListRole where

289289 fromText = \case

290− "advertisers" -> Just GALRAdvertisers

291− "publishers" -> Just GALRPublishers

290+ "advertisers" -> Just GANALRAdvertisers

291+ "publishers" -> Just GANALRPublishers

292292 _ -> Nothing

293293

294−instance ToText GanAdvertisersListRole where

294+instance ToText GANAdvertisersListRole where

295295 toText = \case

296− GALRAdvertisers -> "advertisers"

297− GALRPublishers -> "publishers"

296+ GANALRAdvertisers -> "advertisers"

297+ GANALRPublishers -> "publishers"

298298

299−instance FromJSON GanAdvertisersListRole where

300− parseJSON = parseJSONText "GanAdvertisersListRole"

299+instance FromJSON GANAdvertisersListRole where

300+ parseJSON = parseJSONText "GANAdvertisersListRole"

301301

302−instance ToJSON GanAdvertisersListRole where

302+instance ToJSON GANAdvertisersListRole where

303303 toJSON = toJSONText

304304

305305-- | The promotion type.

@@ -343,92 +343,92 @@ instance ToJSON PromotionType where

343343

344344-- | The role of the requester. Valid values: \'advertisers\' or

345345-- \'publishers\'.

346−data GanPublishersListRole

347− = GPLRAdvertisers

346+data GANPublishersListRole

347+ = GANPLRAdvertisers

348348 -- ^ @advertisers@

349349 -- The requester is requesting as an advertiser.

350− | GPLRPublishers

350+ | GANPLRPublishers

351351 -- ^ @publishers@

352352 -- The requester is requesting as a publisher.

353353 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)

354354

355−instance Hashable GanPublishersListRole

355+instance Hashable GANPublishersListRole

356356

357−instance FromText GanPublishersListRole where

357+instance FromText GANPublishersListRole where

358358 fromText = \case

359− "advertisers" -> Just GPLRAdvertisers

360− "publishers" -> Just GPLRPublishers

359+ "advertisers" -> Just GANPLRAdvertisers

360+ "publishers" -> Just GANPLRPublishers

361361 _ -> Nothing

362362

363−instance ToText GanPublishersListRole where

363+instance ToText GANPublishersListRole where

364364 toText = \case

365− GPLRAdvertisers -> "advertisers"

366− GPLRPublishers -> "publishers"

365+ GANPLRAdvertisers -> "advertisers"

366+ GANPLRPublishers -> "publishers"

367367

368−instance FromJSON GanPublishersListRole where

369− parseJSON = parseJSONText "GanPublishersListRole"

368+instance FromJSON GANPublishersListRole where

369+ parseJSON = parseJSONText "GANPublishersListRole"

370370

371−instance ToJSON GanPublishersListRole where

371+instance ToJSON GANPublishersListRole where

372372 toJSON = toJSONText

373373

374374-- | The role of the requester. Valid values: \'advertisers\' or

375375-- \'publishers\'.

376−data GanLinksGetRole

377− = GLGRAdvertisers

376+data GANLinksGetRole

377+ = GANLGRAdvertisers

378378 -- ^ @advertisers@

379379 -- The requester is requesting as an advertiser.

380− | GLGRPublishers

380+ | GANLGRPublishers

381381 -- ^ @publishers@

382382 -- The requester is requesting as a publisher.

383383 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)

384384

385−instance Hashable GanLinksGetRole

385+instance Hashable GANLinksGetRole

386386

387−instance FromText GanLinksGetRole where

387+instance FromText GANLinksGetRole where

388388 fromText = \case

389− "advertisers" -> Just GLGRAdvertisers

390− "publishers" -> Just GLGRPublishers

389+ "advertisers" -> Just GANLGRAdvertisers

390+ "publishers" -> Just GANLGRPublishers

391391 _ -> Nothing

392392

393−instance ToText GanLinksGetRole where

393+instance ToText GANLinksGetRole where

394394 toText = \case

395− GLGRAdvertisers -> "advertisers"

396− GLGRPublishers -> "publishers"

395+ GANLGRAdvertisers -> "advertisers"

396+ GANLGRPublishers -> "publishers"

397397

398−instance FromJSON GanLinksGetRole where

399− parseJSON = parseJSONText "GanLinksGetRole"

398+instance FromJSON GANLinksGetRole where

399+ parseJSON = parseJSONText "GANLinksGetRole"

400400

401−instance ToJSON GanLinksGetRole where

401+instance ToJSON GANLinksGetRole where

402402 toJSON = toJSONText

403403

404404-- | The role of the requester. Valid values: \'advertisers\' or

405405-- \'publishers\'.

406−data GanEventsListRole

407− = GELRAdvertisers

406+data GANEventsListRole

407+ = GANELRAdvertisers

408408 -- ^ @advertisers@

409409 -- The requester is requesting as an advertiser.

410− | GELRPublishers

410+ | GANELRPublishers

411411 -- ^ @publishers@

412412 -- The requester is requesting as a publisher.

413413 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)

414414

415−instance Hashable GanEventsListRole

415+instance Hashable GANEventsListRole

416416

417−instance FromText GanEventsListRole where

417+instance FromText GANEventsListRole where

418418 fromText = \case

419− "advertisers" -> Just GELRAdvertisers

420− "publishers" -> Just GELRPublishers

419+ "advertisers" -> Just GANELRAdvertisers

420+ "publishers" -> Just GANELRPublishers

421421 _ -> Nothing

422422

423−instance ToText GanEventsListRole where

423+instance ToText GANEventsListRole where

424424 toText = \case

425− GELRAdvertisers -> "advertisers"

426− GELRPublishers -> "publishers"

425+ GANELRAdvertisers -> "advertisers"

426+ GANELRPublishers -> "publishers"

427427

428−instance FromJSON GanEventsListRole where

429− parseJSON = parseJSONText "GanEventsListRole"

428+instance FromJSON GANEventsListRole where

429+ parseJSON = parseJSONText "GANEventsListRole"

430430

431−instance ToJSON GanEventsListRole where

431+instance ToJSON GANEventsListRole where

432432 toJSON = toJSONText

433433

434434-- | The role of the requester. Valid values: \'advertisers\' or

@@ -463,32 +463,32 @@ instance ToJSON Role where

463463

464464-- | The role of the requester. Valid values: \'advertisers\' or

465465-- \'publishers\'.

466−data GanAdvertisersGetRole

467− = GAGRAdvertisers

466+data GANAdvertisersGetRole

467+ = GANAGRAdvertisers

468468 -- ^ @advertisers@

469469 -- The requester is requesting as an advertiser.

470− | GAGRPublishers

470+ | GANAGRPublishers

471471 -- ^ @publishers@

472472 -- The requester is requesting as a publisher.

473473 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)

474474

475−instance Hashable GanAdvertisersGetRole

475+instance Hashable GANAdvertisersGetRole

476476

477−instance FromText GanAdvertisersGetRole where

477+instance FromText GANAdvertisersGetRole where

478478 fromText = \case

479− "advertisers" -> Just GAGRAdvertisers

480− "publishers" -> Just GAGRPublishers

479+ "advertisers" -> Just GANAGRAdvertisers

480+ "publishers" -> Just GANAGRPublishers

481481 _ -> Nothing

482482

483−instance ToText GanAdvertisersGetRole where

483+instance ToText GANAdvertisersGetRole where

484484 toText = \case

485− GAGRAdvertisers -> "advertisers"

486− GAGRPublishers -> "publishers"

485+ GANAGRAdvertisers -> "advertisers"

486+ GANAGRPublishers -> "publishers"

487487

488−instance FromJSON GanAdvertisersGetRole where

489− parseJSON = parseJSONText "GanAdvertisersGetRole"

488+instance FromJSON GANAdvertisersGetRole where

489+ parseJSON = parseJSONText "GANAdvertisersGetRole"

490490

491−instance ToJSON GanAdvertisersGetRole where

491+instance ToJSON GANAdvertisersGetRole where

492492 toJSON = toJSONText

493493

494494-- | Filters out all events that are not of the given type. Valid values:

@@ -528,49 +528,49 @@ instance ToJSON EventType where

528528

529529-- | Filters out all publishers for which do not have the given relationship

530530-- status with the requesting publisher.

531−data GanPublishersListRelationshipStatus

532− = GPLRSApproved

531+data GANPublishersListRelationshipStatus

532+ = GANPLRSApproved

533533 -- ^ @approved@

534534 -- Publishers you\'ve approved to your program.

535− | GPLRSAvailable

535+ | GANPLRSAvailable

536536 -- ^ @available@

537537 -- Publishers available for you to recruit.

538− | GPLRSDeactivated

538+ | GANPLRSDeactivated

539539 -- ^ @deactivated@

540540 -- A publisher that you terminated from your program. Publishers also have

541541 -- the ability to remove themselves from your program.

542− | GPLRSDeclined

542+ | GANPLRSDeclined

543543 -- ^ @declined@

544544 -- A publisher that you did not approve to your program.

545− | GPLRSPending

545+ | GANPLRSPending

546546 -- ^ @pending@

547547 -- Publishers that have applied to your program. We recommend reviewing and

548548 -- deciding on pending publishers on a weekly basis.

549549 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)

550550

551−instance Hashable GanPublishersListRelationshipStatus

551+instance Hashable GANPublishersListRelationshipStatus

552552

553−instance FromText GanPublishersListRelationshipStatus where

553+instance FromText GANPublishersListRelationshipStatus where

554554 fromText = \case

555− "approved" -> Just GPLRSApproved

556− "available" -> Just GPLRSAvailable

557− "deactivated" -> Just GPLRSDeactivated

558− "declined" -> Just GPLRSDeclined

559− "pending" -> Just GPLRSPending

555+ "approved" -> Just GANPLRSApproved

556+ "available" -> Just GANPLRSAvailable

557+ "deactivated" -> Just GANPLRSDeactivated

558+ "declined" -> Just GANPLRSDeclined

559+ "pending" -> Just GANPLRSPending

560560 _ -> Nothing

561561

562−instance ToText GanPublishersListRelationshipStatus where

562+instance ToText GANPublishersListRelationshipStatus where

563563 toText = \case

564− GPLRSApproved -> "approved"

565− GPLRSAvailable -> "available"

566− GPLRSDeactivated -> "deactivated"

567− GPLRSDeclined -> "declined"

568− GPLRSPending -> "pending"

564+ GANPLRSApproved -> "approved"

565+ GANPLRSAvailable -> "available"

566+ GANPLRSDeactivated -> "deactivated"

567+ GANPLRSDeclined -> "declined"

568+ GANPLRSPending -> "pending"

569569

570−instance FromJSON GanPublishersListRelationshipStatus where

571− parseJSON = parseJSONText "GanPublishersListRelationshipStatus"

570+instance FromJSON GANPublishersListRelationshipStatus where

571+ parseJSON = parseJSONText "GANPublishersListRelationshipStatus"

572572

573−instance ToJSON GanPublishersListRelationshipStatus where

573+instance ToJSON GANPublishersListRelationshipStatus where

574574 toJSON = toJSONText

575575

576576-- | The set of fields to return.

@@ -695,58 +695,58 @@ instance ToJSON ReportType where

695695 toJSON = toJSONText

696696

697697-- | The status of the relationship.

698−data GanLinksListRelationshipStatus

699− = GLLRSApproved

698+data GANLinksListRelationshipStatus

699+ = GANLLRSApproved

700700 -- ^ @approved@

701− | GLLRSAvailable

701+ | GANLLRSAvailable

702702 -- ^ @available@

703703 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)

704704

705−instance Hashable GanLinksListRelationshipStatus

705+instance Hashable GANLinksListRelationshipStatus

706706

707−instance FromText GanLinksListRelationshipStatus where

707+instance FromText GANLinksListRelationshipStatus where

708708 fromText = \case

709− "approved" -> Just GLLRSApproved

710− "available" -> Just GLLRSAvailable

709+ "approved" -> Just GANLLRSApproved

710+ "available" -> Just GANLLRSAvailable

711711 _ -> Nothing

712712

713−instance ToText GanLinksListRelationshipStatus where

713+instance ToText GANLinksListRelationshipStatus where

714714 toText = \case

715− GLLRSApproved -> "approved"

716− GLLRSAvailable -> "available"

715+ GANLLRSApproved -> "approved"

716+ GANLLRSAvailable -> "available"

717717

718−instance FromJSON GanLinksListRelationshipStatus where

719− parseJSON = parseJSONText "GanLinksListRelationshipStatus"

718+instance FromJSON GANLinksListRelationshipStatus where

719+ parseJSON = parseJSONText "GANLinksListRelationshipStatus"

720720

721−instance ToJSON GanLinksListRelationshipStatus where

721+instance ToJSON GANLinksListRelationshipStatus where

722722 toJSON = toJSONText

723723

724724-- | Filters out all events that do not have the given status. Valid values:

725725-- \'active\', \'canceled\'. Optional.

726−data GanEventsListStatus

727− = GELSActive

726+data GANEventsListStatus

727+ = GANELSActive

728728 -- ^ @active@

729729 -- Event is currently active.

730− | GELSCanceled

730+ | GANELSCanceled

731731 -- ^ @canceled@

732732 -- Event is currently canceled.

733733 deriving (Eq,Ord,Enum,Read,Show,Data,Typeable,Generic)

734734

735−instance Hashable GanEventsListStatus

735+instance Hashable GANEventsListStatus

736736

737−instance FromText GanEventsListStatus where

737+instance FromText GANEventsListStatus where

738738 fromText = \case

739− "active" -> Just GELSActive

740− "canceled" -> Just GELSCanceled

739+ "active" -> Just GANELSActive

740+ "canceled" -> Just GANELSCanceled

741741 _ -> Nothing

742742

743−instance ToText GanEventsListStatus where

743+instance ToText GANEventsListStatus where

744744 toText = \case

745− GELSActive -> "active"

746− GELSCanceled -> "canceled"

745+ GANELSActive -> "active"

746+ GANELSCanceled -> "canceled"

747747

748−instance FromJSON GanEventsListStatus where

749− parseJSON = parseJSONText "GanEventsListStatus"

748+instance FromJSON GANEventsListStatus where

749+ parseJSON = parseJSONText "GANEventsListStatus"

750750

751−instance ToJSON GanEventsListStatus where

751+instance ToJSON GANEventsListStatus where

752752 toJSON = toJSONText

gogol-affiliates/gen/Network/Google/Resource/Gan/Advertisers/Get.hs → gogol-affiliates/gen/Network/Google/Resource/GAN/Advertisers/Get.hsrenamed+8−8

@@ -11,7 +11,7 @@

1111{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

1212

1313-- |

14−-- Module : Network.Google.Resource.Gan.Advertisers.Get

14+-- Module : Network.Google.Resource.GAN.Advertisers.Get

1616-- License : Mozilla Public License, v. 2.0.

1717-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

@@ -23,8 +23,8 @@

2323-- advertisers. Advertisers can request information about themselves by

2424-- omitting the advertiserId query parameter.

2525--

26−-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference> for @GanAdvertisersGet@.

27−module Network.Google.Resource.Gan.Advertisers.Get

26+-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference> for @GANAdvertisersGet@.

27+module Network.Google.Resource.GAN.Advertisers.Get

2828 (

2929 -- * REST Resource

3030 AdvertisersGetResource

@@ -48,10 +48,10 @@ module Network.Google.Resource.Gan.Advertisers.Get

4848import Network.Google.Affiliates.Types

4949import Network.Google.Prelude

5050

51−-- | A resource alias for @GanAdvertisersGet@ which the

51+-- | A resource alias for @GANAdvertisersGet@ which the

5252-- 'AdvertisersGet'' request conforms to.

5353type AdvertisersGetResource =

54− Capture "role" GanAdvertisersGetRole :>

54+ Capture "role" GANAdvertisersGetRole :>

5555 Capture "roleId" Text :>

5656 "advertiser" :>

5757 QueryParam "advertiserId" Text :>

@@ -75,7 +75,7 @@ data AdvertisersGet' = AdvertisersGet'

7575 , _agUserIP :: !(Maybe Text)

7676 , _agAdvertiserId :: !(Maybe Text)

7777 , _agRoleId :: !Text

78− , _agRole :: !GanAdvertisersGetRole

78+ , _agRole :: !GANAdvertisersGetRole

7979 , _agKey :: !(Maybe Key)

8080 , _agOAuthToken :: !(Maybe OAuthToken)

8181 , _agFields :: !(Maybe Text)

@@ -104,7 +104,7 @@ data AdvertisersGet' = AdvertisersGet'

104104-- * 'agFields'

105105advertisersGet'

106106 :: Text -- ^ 'roleId'

107− -> GanAdvertisersGetRole -- ^ 'role'

107+ -> GANAdvertisersGetRole -- ^ 'role'

108108 -> AdvertisersGet'

109109advertisersGet' pAgRoleId_ pAgRole_ =

110110 AdvertisersGet'

@@ -149,7 +149,7 @@ agRoleId = lens _agRoleId (\ s a -> s{_agRoleId = a})

149149

150150-- | The role of the requester. Valid values: \'advertisers\' or

151151-- \'publishers\'.

152−agRole :: Lens' AdvertisersGet' GanAdvertisersGetRole

152+agRole :: Lens' AdvertisersGet' GANAdvertisersGetRole

153153agRole = lens _agRole (\ s a -> s{_agRole = a})

154154

155155-- | API key. Your API key identifies your project and provides you with API

gogol-affiliates/gen/Network/Google/Resource/Gan/Advertisers/List.hs → gogol-affiliates/gen/Network/Google/Resource/GAN/Advertisers/List.hsrenamed+8−8

@@ -11,7 +11,7 @@

1111{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

1212

1313-- |

14−-- Module : Network.Google.Resource.Gan.Advertisers.List

14+-- Module : Network.Google.Resource.GAN.Advertisers.List

1616-- License : Mozilla Public License, v. 2.0.

1717-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

@@ -21,8 +21,8 @@

2121-- | Retrieves data about all advertisers that the requesting

2222-- advertiser\/publisher has access to.

2323--

24−-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference> for @GanAdvertisersList@.

25−module Network.Google.Resource.Gan.Advertisers.List

24+-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference> for @GANAdvertisersList@.

25+module Network.Google.Resource.GAN.Advertisers.List

2626 (

2727 -- * REST Resource

2828 AdvertisersListResource

@@ -52,10 +52,10 @@ module Network.Google.Resource.Gan.Advertisers.List

5252import Network.Google.Affiliates.Types

5353import Network.Google.Prelude

5454

55−-- | A resource alias for @GanAdvertisersList@ which the

55+-- | A resource alias for @GANAdvertisersList@ which the

5656-- 'AdvertisersList'' request conforms to.

5757type AdvertisersListResource =

58− Capture "role" GanAdvertisersListRole :>

58+ Capture "role" GANAdvertisersListRole :>

5959 Capture "roleId" Text :>

6060 "advertisers" :>

6161 QueryParam "relationshipStatus" RelationshipStatus :>

@@ -86,7 +86,7 @@ data AdvertisersList' = AdvertisersList'

8686 , _alMinSevenDayEpc :: !(Maybe Double)

8787 , _alRoleId :: !Text

8888 , _alMinNinetyDayEpc :: !(Maybe Double)

89− , _alRole :: !GanAdvertisersListRole

89+ , _alRole :: !GANAdvertisersListRole

9090 , _alKey :: !(Maybe Key)

9191 , _alMinPayoutRank :: !(Maybe Int32)

9292 , _alAdvertiserCategory :: !(Maybe Text)

@@ -131,7 +131,7 @@ data AdvertisersList' = AdvertisersList'

131131-- * 'alFields'

132132advertisersList'

133133 :: Text -- ^ 'roleId'

134− -> GanAdvertisersListRole -- ^ 'role'

134+ -> GANAdvertisersListRole -- ^ 'role'

135135 -> AdvertisersList'

136136advertisersList' pAlRoleId_ pAlRole_ =

137137 AdvertisersList'

@@ -197,7 +197,7 @@ alMinNinetyDayEpc

197197

198198-- | The role of the requester. Valid values: \'advertisers\' or

199199-- \'publishers\'.

200−alRole :: Lens' AdvertisersList' GanAdvertisersListRole

200+alRole :: Lens' AdvertisersList' GANAdvertisersListRole

201201alRole = lens _alRole (\ s a -> s{_alRole = a})

202202

203203-- | API key. Your API key identifies your project and provides you with API

gogol-affiliates/gen/Network/Google/Resource/Gan/CcOffers/List.hs → gogol-affiliates/gen/Network/Google/Resource/GAN/CcOffers/List.hsrenamed+4−4

@@ -11,7 +11,7 @@

1111{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

1212

1313-- |

14−-- Module : Network.Google.Resource.Gan.CcOffers.List

14+-- Module : Network.Google.Resource.GAN.CcOffers.List

1616-- License : Mozilla Public License, v. 2.0.

1717-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

@@ -20,8 +20,8 @@

2020--

2121-- | Retrieves credit card offers for the given publisher.

2222--

23−-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference> for @GanCcOffersList@.

24−module Network.Google.Resource.Gan.CcOffers.List

23+-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference> for @GANCcOffersList@.

24+module Network.Google.Resource.GAN.CcOffers.List

2525 (

2626 -- * REST Resource

2727 CcOffersListResource

@@ -45,7 +45,7 @@ module Network.Google.Resource.Gan.CcOffers.List

4545import Network.Google.Affiliates.Types

4646import Network.Google.Prelude

4747

48−-- | A resource alias for @GanCcOffersList@ which the

48+-- | A resource alias for @GANCcOffersList@ which the

4949-- 'CcOffersList'' request conforms to.

5050type CcOffersListResource =

5151 "publishers" :>

gogol-affiliates/gen/Network/Google/Resource/Gan/Events/List.hs → gogol-affiliates/gen/Network/Google/Resource/GAN/Events/List.hsrenamed+11−11

@@ -11,7 +11,7 @@

1111{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

1212

1313-- |

14−-- Module : Network.Google.Resource.Gan.Events.List

14+-- Module : Network.Google.Resource.GAN.Events.List

1616-- License : Mozilla Public License, v. 2.0.

1717-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

@@ -20,8 +20,8 @@

2020--

2121-- | Retrieves event data for a given advertiser\/publisher.

2222--

23−-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference> for @GanEventsList@.

24−module Network.Google.Resource.Gan.Events.List

23+-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference> for @GANEventsList@.

24+module Network.Google.Resource.GAN.Events.List

2525 (

2626 -- * REST Resource

2727 EventsListResource

@@ -60,13 +60,13 @@ module Network.Google.Resource.Gan.Events.List

6060import Network.Google.Affiliates.Types

6161import Network.Google.Prelude

6262

63−-- | A resource alias for @GanEventsList@ which the

63+-- | A resource alias for @GANEventsList@ which the

6464-- 'EventsList'' request conforms to.

6565type EventsListResource =

66− Capture "role" GanEventsListRole :>

66+ Capture "role" GANEventsListRole :>

6767 Capture "roleId" Text :>

6868 "events" :>

69− QueryParam "status" GanEventsListStatus :>

69+ QueryParam "status" GANEventsListStatus :>

7070 QueryParam "eventDateMin" Text :>

7171 QueryParam "chargeType" ChargeType :>

7272 QueryParam "memberId" Text :>

@@ -97,7 +97,7 @@ type EventsListResource =

9797--

9898-- /See:/ 'eventsList'' smart constructor.

9999data EventsList' = EventsList'

100− { _elStatus :: !(Maybe GanEventsListStatus)

100+ { _elStatus :: !(Maybe GANEventsListStatus)

101101 , _elQuotaUser :: !(Maybe Text)

102102 , _elPrettyPrint :: !Bool

103103 , _elEventDateMin :: !(Maybe Text)

@@ -108,7 +108,7 @@ data EventsList' = EventsList'

108108 , _elAdvertiserId :: !(Maybe Text)

109109 , _elModifyDateMin :: !(Maybe Text)

110110 , _elRoleId :: !Text

111− , _elRole :: !GanEventsListRole

111+ , _elRole :: !GANEventsListRole

112112 , _elEventDateMax :: !(Maybe Text)

113113 , _elKey :: !(Maybe Key)

114114 , _elSKU :: !(Maybe Text)

@@ -176,7 +176,7 @@ data EventsList' = EventsList'

176176-- * 'elFields'

177177eventsList'

178178 :: Text -- ^ 'roleId'

179− -> GanEventsListRole -- ^ 'role'

179+ -> GANEventsListRole -- ^ 'role'

180180 -> EventsList'

181181eventsList' pElRoleId_ pElRole_ =

182182 EventsList'

@@ -208,7 +208,7 @@ eventsList' pElRoleId_ pElRole_ =

208208

209209-- | Filters out all events that do not have the given status. Valid values:

210210-- \'active\', \'canceled\'. Optional.

211−elStatus :: Lens' EventsList' (Maybe GanEventsListStatus)

211+elStatus :: Lens' EventsList' (Maybe GANEventsListStatus)

212212elStatus = lens _elStatus (\ s a -> s{_elStatus = a})

213213

214214-- | Available to use for quota purposes for server-side applications. Can be

@@ -279,7 +279,7 @@ elRoleId = lens _elRoleId (\ s a -> s{_elRoleId = a})

279279

280280-- | The role of the requester. Valid values: \'advertisers\' or

281281-- \'publishers\'.

282−elRole :: Lens' EventsList' GanEventsListRole

282+elRole :: Lens' EventsList' GANEventsListRole

283283elRole = lens _elRole (\ s a -> s{_elRole = a})

284284

285285-- | Filters out all events later than given date. Optional. Defaults to 24

gogol-affiliates/gen/Network/Google/Resource/Gan/Links/Get.hs → gogol-affiliates/gen/Network/Google/Resource/GAN/Links/Get.hsrenamed+8−8

@@ -11,7 +11,7 @@

1111{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

1212

1313-- |

14−-- Module : Network.Google.Resource.Gan.Links.Get

14+-- Module : Network.Google.Resource.GAN.Links.Get

1616-- License : Mozilla Public License, v. 2.0.

1717-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

@@ -23,8 +23,8 @@

2323-- own links. Publishers can look up visible links or links belonging to

2424-- advertisers they are in a relationship with.

2525--

26−-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference> for @GanLinksGet@.

27−module Network.Google.Resource.Gan.Links.Get

26+-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference> for @GANLinksGet@.

27+module Network.Google.Resource.GAN.Links.Get

2828 (

2929 -- * REST Resource

3030 LinksGetResource

@@ -48,10 +48,10 @@ module Network.Google.Resource.Gan.Links.Get

4848import Network.Google.Affiliates.Types

4949import Network.Google.Prelude

5050

51−-- | A resource alias for @GanLinksGet@ which the

51+-- | A resource alias for @GANLinksGet@ which the

5252-- 'LinksGet'' request conforms to.

5353type LinksGetResource =

54− Capture "role" GanLinksGetRole :>

54+ Capture "role" GANLinksGetRole :>

5555 Capture "roleId" Text :>

5656 "link" :>

5757 Capture "linkId" Int64 :>

@@ -74,7 +74,7 @@ data LinksGet' = LinksGet'

7474 , _lgPrettyPrint :: !Bool

7575 , _lgUserIP :: !(Maybe Text)

7676 , _lgRoleId :: !Text

77− , _lgRole :: !GanLinksGetRole

77+ , _lgRole :: !GANLinksGetRole

7878 , _lgKey :: !(Maybe Key)

7979 , _lgLinkId :: !Int64

8080 , _lgOAuthToken :: !(Maybe OAuthToken)

@@ -104,7 +104,7 @@ data LinksGet' = LinksGet'

104104-- * 'lgFields'

105105linksGet'

106106 :: Text -- ^ 'roleId'

107− -> GanLinksGetRole -- ^ 'role'

107+ -> GANLinksGetRole -- ^ 'role'

108108 -> Int64 -- ^ 'linkId'

109109 -> LinksGet'

110110linksGet' pLgRoleId_ pLgRole_ pLgLinkId_ =

@@ -144,7 +144,7 @@ lgRoleId = lens _lgRoleId (\ s a -> s{_lgRoleId = a})

144144

145145-- | The role of the requester. Valid values: \'advertisers\' or

146146-- \'publishers\'.

147−lgRole :: Lens' LinksGet' GanLinksGetRole

147+lgRole :: Lens' LinksGet' GANLinksGetRole

148148lgRole = lens _lgRole (\ s a -> s{_lgRole = a})

149149

150150-- | API key. Your API key identifies your project and provides you with API

gogol-affiliates/gen/Network/Google/Resource/Gan/Links/Insert.hs → gogol-affiliates/gen/Network/Google/Resource/GAN/Links/Insert.hsrenamed+8−8

@@ -11,7 +11,7 @@

1111{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

1212

1313-- |

14−-- Module : Network.Google.Resource.Gan.Links.Insert

14+-- Module : Network.Google.Resource.GAN.Links.Insert

1616-- License : Mozilla Public License, v. 2.0.

1717-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

@@ -20,8 +20,8 @@

2020--

2121-- | Inserts a new link.

2222--

23−-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference> for @GanLinksInsert@.

24−module Network.Google.Resource.Gan.Links.Insert

23+-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference> for @GANLinksInsert@.

24+module Network.Google.Resource.GAN.Links.Insert

2525 (

2626 -- * REST Resource

2727 LinksInsertResource

@@ -45,10 +45,10 @@ module Network.Google.Resource.Gan.Links.Insert

4545import Network.Google.Affiliates.Types

4646import Network.Google.Prelude

4747

48−-- | A resource alias for @GanLinksInsert@ which the

48+-- | A resource alias for @GANLinksInsert@ which the

4949-- 'LinksInsert'' request conforms to.

5050type LinksInsertResource =

51− Capture "role" GanLinksInsertRole :>

51+ Capture "role" GANLinksInsertRole :>

5252 Capture "roleId" Text :>

5353 "link" :>

5454 QueryParam "quotaUser" Text :>

@@ -69,7 +69,7 @@ data LinksInsert' = LinksInsert'

6969 , _liUserIP :: !(Maybe Text)

7070 , _liPayload :: !Link

7171 , _liRoleId :: !Text

72− , _liRole :: !GanLinksInsertRole

72+ , _liRole :: !GANLinksInsertRole

7373 , _liKey :: !(Maybe Key)

7474 , _liOAuthToken :: !(Maybe OAuthToken)

7575 , _liFields :: !(Maybe Text)

@@ -99,7 +99,7 @@ data LinksInsert' = LinksInsert'

9999linksInsert'

100100 :: Link -- ^ 'payload'

101101 -> Text -- ^ 'roleId'

102− -> GanLinksInsertRole -- ^ 'role'

102+ -> GANLinksInsertRole -- ^ 'role'

103103 -> LinksInsert'

104104linksInsert' pLiPayload_ pLiRoleId_ pLiRole_ =

105105 LinksInsert'

@@ -143,7 +143,7 @@ liRoleId = lens _liRoleId (\ s a -> s{_liRoleId = a})

143143

144144-- | The role of the requester. Valid values: \'advertisers\' or

145145-- \'publishers\'.

146−liRole :: Lens' LinksInsert' GanLinksInsertRole

146+liRole :: Lens' LinksInsert' GANLinksInsertRole

147147liRole = lens _liRole (\ s a -> s{_liRole = a})

148148

149149-- | API key. Your API key identifies your project and provides you with API

gogol-affiliates/gen/Network/Google/Resource/Gan/Links/List.hs → gogol-affiliates/gen/Network/Google/Resource/GAN/Links/List.hsrenamed+15−13

@@ -11,7 +11,7 @@

1111{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

1212

1313-- |

14−-- Module : Network.Google.Resource.Gan.Links.List

14+-- Module : Network.Google.Resource.GAN.Links.List

1616-- License : Mozilla Public License, v. 2.0.

1717-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

@@ -20,8 +20,8 @@

2020--

2121-- | Retrieves all links that match the query parameters.

2222--

23−-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference> for @GanLinksList@.

24−module Network.Google.Resource.Gan.Links.List

23+-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference> for @GANLinksList@.

24+module Network.Google.Resource.GAN.Links.List

2525 (

2626 -- * REST Resource

2727 LinksListResource

@@ -57,17 +57,17 @@ module Network.Google.Resource.Gan.Links.List

5757import Network.Google.Affiliates.Types

5858import Network.Google.Prelude

5959

60−-- | A resource alias for @GanLinksList@ which the

60+-- | A resource alias for @GANLinksList@ which the

6161-- 'LinksList'' request conforms to.

6262type LinksListResource =

63− Capture "role" GanLinksListRole :>

63+ Capture "role" GANLinksListRole :>

6464 Capture "roleId" Text :>

6565 "links" :>

6666 QueryParam "createDateMax" Text :>

6767 QueryParam "authorship" Authorship :>

6868 QueryParams "assetSize" Text :>

6969 QueryParam "relationshipStatus"

70− GanLinksListRelationshipStatus

70+ GANLinksListRelationshipStatus

7171 :>

7272 QueryParams "advertiserId" Int64 :>

7373 QueryParam "searchText" Text :>

@@ -99,12 +99,12 @@ data LinksList' = LinksList'

9999 , _llPrettyPrint :: !Bool

100100 , _llAssetSize :: !(Maybe [Text])

101101 , _llUserIP :: !(Maybe Text)

102− , _llRelationshipStatus :: !(Maybe GanLinksListRelationshipStatus)

102+ , _llRelationshipStatus :: !(Maybe GANLinksListRelationshipStatus)

103103 , _llAdvertiserId :: !(Maybe [Int64])

104104 , _llSearchText :: !(Maybe Text)

105− , _llPromotionType :: !(Maybe PromotionType)

105+ , _llPromotionType :: !(Maybe [PromotionType])

106106 , _llRoleId :: !Text

107− , _llRole :: !GanLinksListRole

107+ , _llRole :: !GANLinksListRole

108108 , _llKey :: !(Maybe Key)

109109 , _llCreateDateMin :: !(Maybe Text)

110110 , _llLinkType :: !(Maybe LinkType)

@@ -163,7 +163,7 @@ data LinksList' = LinksList'

163163-- * 'llFields'

164164linksList'

165165 :: Text -- ^ 'roleId'

166− -> GanLinksListRole -- ^ 'role'

166+ -> GANLinksListRole -- ^ 'role'

167167 -> LinksList'

168168linksList' pLlRoleId_ pLlRole_ =

169169 LinksList'

@@ -227,7 +227,7 @@ llUserIP :: Lens' LinksList' (Maybe Text)

227227llUserIP = lens _llUserIP (\ s a -> s{_llUserIP = a})

228228

229229-- | The status of the relationship.

230−llRelationshipStatus :: Lens' LinksList' (Maybe GanLinksListRelationshipStatus)

230+llRelationshipStatus :: Lens' LinksList' (Maybe GANLinksListRelationshipStatus)

231231llRelationshipStatus

232232 = lens _llRelationshipStatus

233233 (\ s a -> s{_llRelationshipStatus = a})

@@ -248,10 +248,12 @@ llSearchText

248248 = lens _llSearchText (\ s a -> s{_llSearchText = a})

249249

250250-- | The promotion type.

251−llPromotionType :: Lens' LinksList' (Maybe PromotionType)

251+llPromotionType :: Lens' LinksList' [PromotionType]

252252llPromotionType

253253 = lens _llPromotionType

254254 (\ s a -> s{_llPromotionType = a})

255+ . _Default

256+ . _Coerce

255257

256258-- | The ID of the requesting advertiser or publisher.

257259llRoleId :: Lens' LinksList' Text

@@ -259,7 +261,7 @@ llRoleId = lens _llRoleId (\ s a -> s{_llRoleId = a})

259261

260262-- | The role of the requester. Valid values: \'advertisers\' or

261263-- \'publishers\'.

262−llRole :: Lens' LinksList' GanLinksListRole

264+llRole :: Lens' LinksList' GANLinksListRole

263265llRole = lens _llRole (\ s a -> s{_llRole = a})

264266

265267-- | API key. Your API key identifies your project and provides you with API

gogol-affiliates/gen/Network/Google/Resource/Gan/Publishers/Get.hs → gogol-affiliates/gen/Network/Google/Resource/GAN/Publishers/Get.hsrenamed+8−8

@@ -11,7 +11,7 @@

1111{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

1212

1313-- |

14−-- Module : Network.Google.Resource.Gan.Publishers.Get

14+-- Module : Network.Google.Resource.GAN.Publishers.Get

1616-- License : Mozilla Public License, v. 2.0.

1717-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

@@ -23,8 +23,8 @@

2323-- publishers. Publishers can request information about themselves by

2424-- omitting the publisherId query parameter.

2525--

26−-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference> for @GanPublishersGet@.

27−module Network.Google.Resource.Gan.Publishers.Get

26+-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference> for @GANPublishersGet@.

27+module Network.Google.Resource.GAN.Publishers.Get

2828 (

2929 -- * REST Resource

3030 PublishersGetResource

@@ -48,10 +48,10 @@ module Network.Google.Resource.Gan.Publishers.Get

4848import Network.Google.Affiliates.Types

4949import Network.Google.Prelude

5050

51−-- | A resource alias for @GanPublishersGet@ which the

51+-- | A resource alias for @GANPublishersGet@ which the

5252-- 'PublishersGet'' request conforms to.

5353type PublishersGetResource =

54− Capture "role" GanPublishersGetRole :>

54+ Capture "role" GANPublishersGetRole :>

5555 Capture "roleId" Text :>

5656 "publisher" :>

5757 QueryParam "publisherId" Text :>

@@ -74,7 +74,7 @@ data PublishersGet' = PublishersGet'

7474 , _pgPrettyPrint :: !Bool

7575 , _pgUserIP :: !(Maybe Text)

7676 , _pgRoleId :: !Text

77− , _pgRole :: !GanPublishersGetRole

77+ , _pgRole :: !GANPublishersGetRole

7878 , _pgKey :: !(Maybe Key)

7979 , _pgOAuthToken :: !(Maybe OAuthToken)

8080 , _pgPublisherId :: !(Maybe Text)

@@ -104,7 +104,7 @@ data PublishersGet' = PublishersGet'

104104-- * 'pgFields'

105105publishersGet'

106106 :: Text -- ^ 'roleId'

107− -> GanPublishersGetRole -- ^ 'role'

107+ -> GANPublishersGetRole -- ^ 'role'

108108 -> PublishersGet'

109109publishersGet' pPgRoleId_ pPgRole_ =

110110 PublishersGet'

@@ -143,7 +143,7 @@ pgRoleId = lens _pgRoleId (\ s a -> s{_pgRoleId = a})

143143

144144-- | The role of the requester. Valid values: \'advertisers\' or

145145-- \'publishers\'.

146−pgRole :: Lens' PublishersGet' GanPublishersGetRole

146+pgRole :: Lens' PublishersGet' GANPublishersGetRole

147147pgRole = lens _pgRole (\ s a -> s{_pgRole = a})

148148

149149-- | API key. Your API key identifies your project and provides you with API

gogol-affiliates/gen/Network/Google/Resource/Gan/Publishers/List.hs → gogol-affiliates/gen/Network/Google/Resource/GAN/Publishers/List.hsrenamed+11−11

@@ -11,7 +11,7 @@

1111{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

1212

1313-- |

14−-- Module : Network.Google.Resource.Gan.Publishers.List

14+-- Module : Network.Google.Resource.GAN.Publishers.List

1616-- License : Mozilla Public License, v. 2.0.

1717-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

@@ -21,8 +21,8 @@

2121-- | Retrieves data about all publishers that the requesting

2222-- advertiser\/publisher has access to.

2323--

24−-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference> for @GanPublishersList@.

25−module Network.Google.Resource.Gan.Publishers.List

24+-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference> for @GANPublishersList@.

25+module Network.Google.Resource.GAN.Publishers.List

2626 (

2727 -- * REST Resource

2828 PublishersListResource

@@ -52,14 +52,14 @@ module Network.Google.Resource.Gan.Publishers.List

5252import Network.Google.Affiliates.Types

5353import Network.Google.Prelude

5454

55−-- | A resource alias for @GanPublishersList@ which the

55+-- | A resource alias for @GANPublishersList@ which the

5656-- 'PublishersList'' request conforms to.

5757type PublishersListResource =

58− Capture "role" GanPublishersListRole :>

58+ Capture "role" GANPublishersListRole :>

5959 Capture "roleId" Text :>

6060 "publishers" :>

6161 QueryParam "relationshipStatus"

62− GanPublishersListRelationshipStatus

62+ GANPublishersListRelationshipStatus

6363 :>

6464 QueryParam "minSevenDayEpc" Double :>

6565 QueryParam "minNinetyDayEpc" Double :>

@@ -84,11 +84,11 @@ data PublishersList' = PublishersList'

8484 { _plQuotaUser :: !(Maybe Text)

8585 , _plPrettyPrint :: !Bool

8686 , _plUserIP :: !(Maybe Text)

87− , _plRelationshipStatus :: !(Maybe GanPublishersListRelationshipStatus)

87+ , _plRelationshipStatus :: !(Maybe GANPublishersListRelationshipStatus)

8888 , _plMinSevenDayEpc :: !(Maybe Double)

8989 , _plRoleId :: !Text

9090 , _plMinNinetyDayEpc :: !(Maybe Double)

91− , _plRole :: !GanPublishersListRole

91+ , _plRole :: !GANPublishersListRole

9292 , _plKey :: !(Maybe Key)

9393 , _plMinPayoutRank :: !(Maybe Int32)

9494 , _plPageToken :: !(Maybe Text)

@@ -133,7 +133,7 @@ data PublishersList' = PublishersList'

133133-- * 'plFields'

134134publishersList'

135135 :: Text -- ^ 'roleId'

136− -> GanPublishersListRole -- ^ 'role'

136+ -> GANPublishersListRole -- ^ 'role'

137137 -> PublishersList'

138138publishersList' pPlRoleId_ pPlRole_ =

139139 PublishersList'

@@ -174,7 +174,7 @@ plUserIP = lens _plUserIP (\ s a -> s{_plUserIP = a})

174174

175175-- | Filters out all publishers for which do not have the given relationship

176176-- status with the requesting publisher.

177−plRelationshipStatus :: Lens' PublishersList' (Maybe GanPublishersListRelationshipStatus)

177+plRelationshipStatus :: Lens' PublishersList' (Maybe GANPublishersListRelationshipStatus)

178178plRelationshipStatus

179179 = lens _plRelationshipStatus

180180 (\ s a -> s{_plRelationshipStatus = a})

@@ -199,7 +199,7 @@ plMinNinetyDayEpc

199199

200200-- | The role of the requester. Valid values: \'advertisers\' or

201201-- \'publishers\'.

202−plRole :: Lens' PublishersList' GanPublishersListRole

202+plRole :: Lens' PublishersList' GANPublishersListRole

203203plRole = lens _plRole (\ s a -> s{_plRole = a})

204204

205205-- | API key. Your API key identifies your project and provides you with API

gogol-affiliates/gen/Network/Google/Resource/Gan/Reports/Get.hs → gogol-affiliates/gen/Network/Google/Resource/GAN/Reports/Get.hsrenamed+4−4

@@ -11,7 +11,7 @@

1111{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}

1212

1313-- |

14−-- Module : Network.Google.Resource.Gan.Reports.Get

14+-- Module : Network.Google.Resource.GAN.Reports.Get

1616-- License : Mozilla Public License, v. 2.0.

1717-- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>

@@ -20,8 +20,8 @@

2020--

2121-- | Retrieves a report of the specified type.

2222--

23−-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference> for @GanReportsGet@.

24−module Network.Google.Resource.Gan.Reports.Get

23+-- /See:/ <https://developers.google.com/affiliate-network/ Google Affiliate Network API Reference> for @GANReportsGet@.

24+module Network.Google.Resource.GAN.Reports.Get

2525 (

2626 -- * REST Resource

2727 ReportsGetResource

@@ -56,7 +56,7 @@ module Network.Google.Resource.Gan.Reports.Get

5656import Network.Google.Affiliates.Types

5757import Network.Google.Prelude

5858

59−-- | A resource alias for @GanReportsGet@ which the

59+-- | A resource alias for @GANReportsGet@ which the

6060-- 'ReportsGet'' request conforms to.

6161type ReportsGetResource =

6262 Capture "role" Role :>

gogol-affiliates/gogol-affiliates.cabal+10−10

@@ -32,16 +32,16 @@ library

3232 exposed-modules:

3333 Network.Google.Affiliates

3434 , Network.Google.Affiliates.Types

35− , Network.Google.Resource.Gan.Advertisers.Get

36− , Network.Google.Resource.Gan.Advertisers.List

37− , Network.Google.Resource.Gan.CcOffers.List

38− , Network.Google.Resource.Gan.Events.List

39− , Network.Google.Resource.Gan.Links.Get

40− , Network.Google.Resource.Gan.Links.Insert

41− , Network.Google.Resource.Gan.Links.List

42− , Network.Google.Resource.Gan.Publishers.Get

43− , Network.Google.Resource.Gan.Publishers.List

44− , Network.Google.Resource.Gan.Reports.Get

35+ , Network.Google.Resource.GAN.Advertisers.Get

36+ , Network.Google.Resource.GAN.Advertisers.List

37+ , Network.Google.Resource.GAN.CcOffers.List

38+ , Network.Google.Resource.GAN.Events.List

39+ , Network.Google.Resource.GAN.Links.Get

40+ , Network.Google.Resource.GAN.Links.Insert

41+ , Network.Google.Resource.GAN.Links.List

42+ , Network.Google.Resource.GAN.Publishers.Get

43+ , Network.Google.Resource.GAN.Publishers.List

44+ , Network.Google.Resource.GAN.Reports.Get

4545

4646 other-modules:

4747 Network.Google.Affiliates.Types.Product

gogol-bigquery/gen/Network/Google/Resource/BigQuery/Jobs/List.hs+4−2

@@ -83,7 +83,7 @@ data JobsList' = JobsList'

8383 , _jlPrettyPrint :: !Bool

8484 , _jlUserIP :: !(Maybe Text)

8585 , _jlKey :: !(Maybe Key)

86− , _jlStateFilter :: !(Maybe StateFilter)

86+ , _jlStateFilter :: !(Maybe [StateFilter])

8787 , _jlProjection :: !(Maybe Projection)

8888 , _jlPageToken :: !(Maybe Text)

8989 , _jlProjectId :: !Text

@@ -164,10 +164,12 @@ jlKey :: Lens' JobsList' (Maybe Key)

164164jlKey = lens _jlKey (\ s a -> s{_jlKey = a})

165165

166166-- | Filter for job state

167−jlStateFilter :: Lens' JobsList' (Maybe StateFilter)

167+jlStateFilter :: Lens' JobsList' [StateFilter]

168168jlStateFilter

169169 = lens _jlStateFilter

170170 (\ s a -> s{_jlStateFilter = a})

171+ . _Default

172+ . _Coerce

171173

172174-- | Restrict information returned to a set of selected fields

173175jlProjection :: Lens' JobsList' (Maybe Projection)

gogol-blogger/gen/Network/Google/Resource/Blogger/Blogs/ListByUser.hs+10−6

@@ -69,13 +69,13 @@ type BlogsListByUserResource =

6969--

7070-- /See:/ 'blogsListByUser'' smart constructor.

7171data BlogsListByUser' = BlogsListByUser'

72− { _blbuStatus :: !BloggerBlogsListByUserStatus

72+ { _blbuStatus :: ![BloggerBlogsListByUserStatus]

7373 , _blbuQuotaUser :: !(Maybe Text)

7474 , _blbuPrettyPrint :: !Bool

7575 , _blbuUserIP :: !(Maybe Text)

7676 , _blbuFetchUserInfo :: !(Maybe Bool)

7777 , _blbuUserId :: !Text

78− , _blbuRole :: !(Maybe Role)

78+ , _blbuRole :: !(Maybe [Role])

7979 , _blbuKey :: !(Maybe Key)

8080 , _blbuView :: !(Maybe BloggerBlogsListByUserView)

8181 , _blbuOAuthToken :: !(Maybe OAuthToken)

@@ -127,9 +127,10 @@ blogsListByUser' pBlbuUserId_ =

127127

128128-- | Blog statuses to include in the result (default: Live blogs only). Note

129129-- that ADMIN access is required to view deleted blogs.

130−blbuStatus :: Lens' BlogsListByUser' BloggerBlogsListByUserStatus

130+blbuStatus :: Lens' BlogsListByUser' [BloggerBlogsListByUserStatus]

131131blbuStatus

132− = lens _blbuStatus (\ s a -> s{_blbuStatus = a})

132+ = lens _blbuStatus (\ s a -> s{_blbuStatus = a}) .

133+ _Coerce

133134

134135-- | Available to use for quota purposes for server-side applications. Can be

135136-- any arbitrary string assigned to a user, but should not exceed 40

@@ -167,8 +168,11 @@ blbuUserId

167168-- | User access types for blogs to include in the results, e.g. AUTHOR will

168169-- return blogs where the user has author level access. If no roles are

169170-- specified, defaults to ADMIN and AUTHOR roles.

170−blbuRole :: Lens' BlogsListByUser' (Maybe Role)

171−blbuRole = lens _blbuRole (\ s a -> s{_blbuRole = a})

171+blbuRole :: Lens' BlogsListByUser' [Role]

172+blbuRole

173+ = lens _blbuRole (\ s a -> s{_blbuRole = a}) .

174+ _Default

175+ . _Coerce

172176

173177-- | API key. Your API key identifies your project and provides you with API

174178-- access, quota, and reports. Required unless you provide an OAuth 2.0

gogol-blogger/gen/Network/Google/Resource/Blogger/Comments/List.hs+6−3

@@ -79,7 +79,7 @@ type CommentsListResource =

7979--

8080-- /See:/ 'commentsList'' smart constructor.

8181data CommentsList' = CommentsList'

82− { _clStatus :: !(Maybe BloggerCommentsListStatus)

82+ { _clStatus :: !(Maybe [BloggerCommentsListStatus])

8383 , _clQuotaUser :: !(Maybe Text)

8484 , _clPrettyPrint :: !Bool

8585 , _clUserIP :: !(Maybe Text)

@@ -152,8 +152,11 @@ commentsList' pClBlogId_ pClPostId_ =

152152 , _clFields = Nothing

153153 }

154154

155−clStatus :: Lens' CommentsList' (Maybe BloggerCommentsListStatus)

156−clStatus = lens _clStatus (\ s a -> s{_clStatus = a})

155+clStatus :: Lens' CommentsList' [BloggerCommentsListStatus]

156+clStatus

157+ = lens _clStatus (\ s a -> s{_clStatus = a}) .

158+ _Default

159+ . _Coerce

157160

158161-- | Available to use for quota purposes for server-side applications. Can be

159162-- any arbitrary string assigned to a user, but should not exceed 40

gogol-blogger/gen/Network/Google/Resource/Blogger/Comments/ListByBlog.hs+5−3

@@ -75,7 +75,7 @@ type CommentsListByBlogResource =

7575--

7676-- /See:/ 'commentsListByBlog'' smart constructor.

7777data CommentsListByBlog' = CommentsListByBlog'

78− { _clbbStatus :: !(Maybe BloggerCommentsListByBlogStatus)

78+ { _clbbStatus :: !(Maybe [BloggerCommentsListByBlogStatus])

7979 , _clbbQuotaUser :: !(Maybe Text)

8080 , _clbbPrettyPrint :: !Bool

8181 , _clbbUserIP :: !(Maybe Text)

@@ -139,9 +139,11 @@ commentsListByBlog' pClbbBlogId_ =

139139 , _clbbFields = Nothing

140140 }

141141

142−clbbStatus :: Lens' CommentsListByBlog' (Maybe BloggerCommentsListByBlogStatus)

142+clbbStatus :: Lens' CommentsListByBlog' [BloggerCommentsListByBlogStatus]

143143clbbStatus

144− = lens _clbbStatus (\ s a -> s{_clbbStatus = a})

144+ = lens _clbbStatus (\ s a -> s{_clbbStatus = a}) .

145+ _Default

146+ . _Coerce

145147

146148-- | Available to use for quota purposes for server-side applications. Can be

147149-- any arbitrary string assigned to a user, but should not exceed 40

gogol-blogger/gen/Network/Google/Resource/Blogger/PageViews/Get.hs+6−3

@@ -68,7 +68,7 @@ data PageViewsGet' = PageViewsGet'

6868 , _pvgUserIP :: !(Maybe Text)

6969 , _pvgBlogId :: !Text

7070 , _pvgKey :: !(Maybe Key)

71− , _pvgRange :: !(Maybe Range)

71+ , _pvgRange :: !(Maybe [Range])

7272 , _pvgOAuthToken :: !(Maybe OAuthToken)

7373 , _pvgFields :: !(Maybe Text)

7474 } deriving (Eq,Show,Data,Typeable,Generic)

@@ -137,8 +137,11 @@ pvgBlogId

137137pvgKey :: Lens' PageViewsGet' (Maybe Key)

138138pvgKey = lens _pvgKey (\ s a -> s{_pvgKey = a})

139139

140−pvgRange :: Lens' PageViewsGet' (Maybe Range)

141−pvgRange = lens _pvgRange (\ s a -> s{_pvgRange = a})

140+pvgRange :: Lens' PageViewsGet' [Range]

141+pvgRange

142+ = lens _pvgRange (\ s a -> s{_pvgRange = a}) .

143+ _Default

144+ . _Coerce

142145

143146-- | OAuth 2.0 token for the current user.

144147pvgOAuthToken :: Lens' PageViewsGet' (Maybe OAuthToken)

gogol-blogger/gen/Network/Google/Resource/Blogger/Pages/List.hs+6−3

@@ -72,7 +72,7 @@ type PagesListResource =

7272--

7373-- /See:/ 'pagesList'' smart constructor.

7474data PagesList' = PagesList'

75− { _plStatus :: !(Maybe BloggerPagesListStatus)

75+ { _plStatus :: !(Maybe [BloggerPagesListStatus])

7676 , _plQuotaUser :: !(Maybe Text)

7777 , _plPrettyPrint :: !Bool

7878 , _plUserIP :: !(Maybe Text)

@@ -132,8 +132,11 @@ pagesList' pPlBlogId_ =

132132 , _plFields = Nothing

133133 }

134134

135−plStatus :: Lens' PagesList' (Maybe BloggerPagesListStatus)

136−plStatus = lens _plStatus (\ s a -> s{_plStatus = a})

135+plStatus :: Lens' PagesList' [BloggerPagesListStatus]

136+plStatus

137+ = lens _plStatus (\ s a -> s{_plStatus = a}) .

138+ _Default

139+ . _Coerce

137140

138141-- | Available to use for quota purposes for server-side applications. Can be

139142-- any arbitrary string assigned to a user, but should not exceed 40

gogol-blogger/gen/Network/Google/Resource/Blogger/PostUserInfos/List.hs+5−3

@@ -88,7 +88,7 @@ type PostUserInfosListResource =

8888--

8989-- /See:/ 'postUserInfosList'' smart constructor.

9090data PostUserInfosList' = PostUserInfosList'

91− { _puilStatus :: !(Maybe Status)

91+ { _puilStatus :: !(Maybe [Status])

9292 , _puilQuotaUser :: !(Maybe Text)

9393 , _puilPrettyPrint :: !Bool

9494 , _puilOrderBy :: !OrderBy

@@ -169,9 +169,11 @@ postUserInfosList' pPuilBlogId_ pPuilUserId_ =

169169 , _puilFields = Nothing

170170 }

171171

172−puilStatus :: Lens' PostUserInfosList' (Maybe Status)

172+puilStatus :: Lens' PostUserInfosList' [Status]

173173puilStatus

174− = lens _puilStatus (\ s a -> s{_puilStatus = a})

174+ = lens _puilStatus (\ s a -> s{_puilStatus = a}) .

175+ _Default

176+ . _Coerce

175177

176178-- | Available to use for quota purposes for server-side applications. Can be

177179-- any arbitrary string assigned to a user, but should not exceed 40

gogol-blogger/gen/Network/Google/Resource/Blogger/Posts/List.hs+5−3

@@ -82,7 +82,7 @@ type PostsListResource =

8282--

8383-- /See:/ 'postsList'' smart constructor.

8484data PostsList' = PostsList'

85− { _pllStatus :: !(Maybe BloggerPostsListStatus)

85+ { _pllStatus :: !(Maybe [BloggerPostsListStatus])

8686 , _pllQuotaUser :: !(Maybe Text)

8787 , _pllPrettyPrint :: !Bool

8888 , _pllOrderBy :: !BloggerPostsListOrderBy

@@ -163,9 +163,11 @@ postsList' pPllBlogId_ =

163163 }

164164

165165-- | Statuses to include in the results.

166−pllStatus :: Lens' PostsList' (Maybe BloggerPostsListStatus)

166+pllStatus :: Lens' PostsList' [BloggerPostsListStatus]

167167pllStatus

168− = lens _pllStatus (\ s a -> s{_pllStatus = a})

168+ = lens _pllStatus (\ s a -> s{_pllStatus = a}) .

169+ _Default

170+ . _Coerce

169171

170172-- | Available to use for quota purposes for server-side applications. Can be

171173-- any arbitrary string assigned to a user, but should not exceed 40

gogol-books/gen/Network/Google/Resource/Books/MyConfig/ReleaseDownloadAccess.hs+1−2

@@ -192,8 +192,7 @@ instance GoogleRequest MyConfigReleaseDownloadAccess'

192192 request = requestWithRoute defReq booksURL

193193 requestWithRoute r u

194194 MyConfigReleaseDownloadAccess'{..}

195− = go (_mcrdaVolumeIds ^. _Default)

196− (Just _mcrdaCpksver)

195+ = go _mcrdaVolumeIds (Just _mcrdaCpksver)

197196 _mcrdaLocale

198197 _mcrdaSource

199198 _mcrdaQuotaUser

gogol-books/gen/Network/Google/Resource/Books/MyConfig/SyncVolumeLicenses.hs+4−2

@@ -83,7 +83,7 @@ data MyConfigSyncVolumeLicenses' = MyConfigSyncVolumeLicenses'

8383 , _mcsvlLocale :: !(Maybe Text)

8484 , _mcsvlVolumeIds :: !(Maybe [Text])

8585 , _mcsvlKey :: !(Maybe Key)

86− , _mcsvlFeatures :: !(Maybe Features)

86+ , _mcsvlFeatures :: !(Maybe [Features])

8787 , _mcsvlSource :: !Text

8888 , _mcsvlOAuthToken :: !(Maybe OAuthToken)

8989 , _mcsvlShowPreOrders :: !(Maybe Bool)

@@ -187,10 +187,12 @@ mcsvlKey :: Lens' MyConfigSyncVolumeLicenses' (Maybe Key)

187187mcsvlKey = lens _mcsvlKey (\ s a -> s{_mcsvlKey = a})

188188

189189-- | List of features supported by the client, i.e., \'RENTALS\'

190−mcsvlFeatures :: Lens' MyConfigSyncVolumeLicenses' (Maybe Features)

190+mcsvlFeatures :: Lens' MyConfigSyncVolumeLicenses' [Features]

191191mcsvlFeatures

192192 = lens _mcsvlFeatures

193193 (\ s a -> s{_mcsvlFeatures = a})

194+ . _Default

195+ . _Coerce

194196

195197-- | String to identify the originator of this request.

196198mcsvlSource :: Lens' MyConfigSyncVolumeLicenses' Text

gogol-books/gen/Network/Google/Resource/Books/MyLibrary/Annotations/Summary.hs+1−1

@@ -169,7 +169,7 @@ instance GoogleRequest MyLibraryAnnotationsSummary'

169169 AnnotationsSummary

170170 request = requestWithRoute defReq booksURL

171171 requestWithRoute r u MyLibraryAnnotationsSummary'{..}

172− = go (_mlasLayerIds ^. _Default) (Just _mlasVolumeId)

172+ = go _mlasLayerIds (Just _mlasVolumeId)

173173 _mlasQuotaUser

174174 (Just _mlasPrettyPrint)

175175 _mlasUserIP

gogol-books/gen/Network/Google/Resource/Books/Volumes/Mybooks/List.hs+8−4

@@ -73,9 +73,9 @@ type VolumesMybooksListResource =

7373--

7474-- /See:/ 'volumesMybooksList'' smart constructor.

7575data VolumesMybooksList' = VolumesMybooksList'

76− { _vmlProcessingState :: !(Maybe BooksVolumesMybooksListProcessingState)

76+ { _vmlProcessingState :: !(Maybe [BooksVolumesMybooksListProcessingState])

7777 , _vmlQuotaUser :: !(Maybe Text)

78− , _vmlAcquireMethod :: !(Maybe AcquireMethod)

78+ , _vmlAcquireMethod :: !(Maybe [AcquireMethod])

7979 , _vmlPrettyPrint :: !Bool

8080 , _vmlUserIP :: !(Maybe Text)

8181 , _vmlLocale :: !(Maybe Text)

@@ -134,10 +134,12 @@ volumesMybooksList' =

134134

135135-- | The processing state of the user uploaded volumes to be returned.

136136-- Applicable only if the UPLOADED is specified in the acquireMethod.

137−vmlProcessingState :: Lens' VolumesMybooksList' (Maybe BooksVolumesMybooksListProcessingState)

137+vmlProcessingState :: Lens' VolumesMybooksList' [BooksVolumesMybooksListProcessingState]

138138vmlProcessingState

139139 = lens _vmlProcessingState

140140 (\ s a -> s{_vmlProcessingState = a})

141+ . _Default

142+ . _Coerce

141143

142144-- | Available to use for quota purposes for server-side applications. Can be

143145-- any arbitrary string assigned to a user, but should not exceed 40

@@ -147,10 +149,12 @@ vmlQuotaUser

147149 = lens _vmlQuotaUser (\ s a -> s{_vmlQuotaUser = a})

148150

149151-- | How the book was aquired

150−vmlAcquireMethod :: Lens' VolumesMybooksList' (Maybe AcquireMethod)

152+vmlAcquireMethod :: Lens' VolumesMybooksList' [AcquireMethod]

151153vmlAcquireMethod

152154 = lens _vmlAcquireMethod

153155 (\ s a -> s{_vmlAcquireMethod = a})

156+ . _Default

157+ . _Coerce

154158

155159-- | Returns response with indentations and line breaks.

156160vmlPrettyPrint :: Lens' VolumesMybooksList' Bool

gogol-books/gen/Network/Google/Resource/Books/Volumes/UserUploaded/List.hs+4−2

@@ -71,7 +71,7 @@ type VolumesUserUploadedListResource =

7171--

7272-- /See:/ 'volumesUserUploadedList'' smart constructor.

7373data VolumesUserUploadedList' = VolumesUserUploadedList'

74− { _vuulProcessingState :: !(Maybe ProcessingState)

74+ { _vuulProcessingState :: !(Maybe [ProcessingState])

7575 , _vuulQuotaUser :: !(Maybe Text)

7676 , _vuulPrettyPrint :: !Bool

7777 , _vuulUserIP :: !(Maybe Text)

@@ -131,10 +131,12 @@ volumesUserUploadedList' =

131131 }

132132

133133-- | The processing state of the user uploaded volumes to be returned.

134−vuulProcessingState :: Lens' VolumesUserUploadedList' (Maybe ProcessingState)

134+vuulProcessingState :: Lens' VolumesUserUploadedList' [ProcessingState]

135135vuulProcessingState

136136 = lens _vuulProcessingState

137137 (\ s a -> s{_vuulProcessingState = a})

138+ . _Default

139+ . _Coerce

138140

139141-- | Available to use for quota purposes for server-side applications. Can be

140142-- any arbitrary string assigned to a user, but should not exceed 40

gogol-civicinfo/gen/Network/Google/Resource/CivicInfo/Representatives/RepresentativeInfoByAddress.hs+10−6

@@ -75,13 +75,13 @@ type RepresentativesRepresentativeInfoByAddressResource

7575-- /See:/ 'representativesRepresentativeInfoByAddress'' smart constructor.

7676data RepresentativesRepresentativeInfoByAddress' = RepresentativesRepresentativeInfoByAddress'

7777 { _rribaQuotaUser :: !(Maybe Text)

78− , _rribaRoles :: !(Maybe CivicInfoRepresentativesRepresentativeInfoByAddressRoles)

78+ , _rribaRoles :: !(Maybe [CivicInfoRepresentativesRepresentativeInfoByAddressRoles])

7979 , _rribaPrettyPrint :: !Bool

8080 , _rribaUserIP :: !(Maybe Text)

8181 , _rribaAddress :: !(Maybe Text)

8282 , _rribaKey :: !(Maybe Key)

8383 , _rribaIncludeOffices :: !Bool

84− , _rribaLevels :: !(Maybe CivicInfoRepresentativesRepresentativeInfoByAddressLevels)

84+ , _rribaLevels :: !(Maybe [CivicInfoRepresentativesRepresentativeInfoByAddressLevels])

8585 , _rribaOAuthToken :: !(Maybe OAuthToken)

8686 , _rribaFields :: !(Maybe Text)

8787 } deriving (Eq,Show,Data,Typeable,Generic)

@@ -136,9 +136,11 @@ rribaQuotaUser

136136-- | A list of office roles to filter by. Only offices fulfilling one of

137137-- these roles will be returned. Divisions that don\'t contain a matching

138138-- office will not be returned.

139−rribaRoles :: Lens' RepresentativesRepresentativeInfoByAddress' (Maybe CivicInfoRepresentativesRepresentativeInfoByAddressRoles)

139+rribaRoles :: Lens' RepresentativesRepresentativeInfoByAddress' [CivicInfoRepresentativesRepresentativeInfoByAddressRoles]

140140rribaRoles

141− = lens _rribaRoles (\ s a -> s{_rribaRoles = a})

141+ = lens _rribaRoles (\ s a -> s{_rribaRoles = a}) .

142+ _Default

143+ . _Coerce

142144

143145-- | Returns response with indentations and line breaks.

144146rribaPrettyPrint :: Lens' RepresentativesRepresentativeInfoByAddress' Bool

@@ -174,9 +176,11 @@ rribaIncludeOffices

174176-- | A list of office levels to filter by. Only offices that serve at least

175177-- one of these levels will be returned. Divisions that don\'t contain a

176178-- matching office will not be returned.

177−rribaLevels :: Lens' RepresentativesRepresentativeInfoByAddress' (Maybe CivicInfoRepresentativesRepresentativeInfoByAddressLevels)

179+rribaLevels :: Lens' RepresentativesRepresentativeInfoByAddress' [CivicInfoRepresentativesRepresentativeInfoByAddressLevels]

178180rribaLevels

179− = lens _rribaLevels (\ s a -> s{_rribaLevels = a})

181+ = lens _rribaLevels (\ s a -> s{_rribaLevels = a}) .

182+ _Default

183+ . _Coerce

180184

181185-- | OAuth 2.0 token for the current user.

182186rribaOAuthToken :: Lens' RepresentativesRepresentativeInfoByAddress' (Maybe OAuthToken)

gogol-civicinfo/gen/Network/Google/Resource/CivicInfo/Representatives/RepresentativeInfoByDivision.hs+10−6

@@ -69,13 +69,13 @@ type RepresentativesRepresentativeInfoByDivisionResource

6969-- /See:/ 'representativesRepresentativeInfoByDivision'' smart constructor.

7070data RepresentativesRepresentativeInfoByDivision' = RepresentativesRepresentativeInfoByDivision'

7171 { _rribdQuotaUser :: !(Maybe Text)

72− , _rribdRoles :: !(Maybe Roles)

72+ , _rribdRoles :: !(Maybe [Roles])

7373 , _rribdPrettyPrint :: !Bool

7474 , _rribdUserIP :: !(Maybe Text)

7575 , _rribdKey :: !(Maybe Key)

7676 , _rribdRecursive :: !(Maybe Bool)

7777 , _rribdOcdId :: !Text

78− , _rribdLevels :: !(Maybe Levels)

78+ , _rribdLevels :: !(Maybe [Levels])

7979 , _rribdOAuthToken :: !(Maybe OAuthToken)

8080 , _rribdFields :: !(Maybe Text)

8181 } deriving (Eq,Show,Data,Typeable,Generic)

@@ -131,9 +131,11 @@ rribdQuotaUser

131131-- | A list of office roles to filter by. Only offices fulfilling one of

132132-- these roles will be returned. Divisions that don\'t contain a matching

133133-- office will not be returned.

134−rribdRoles :: Lens' RepresentativesRepresentativeInfoByDivision' (Maybe Roles)

134+rribdRoles :: Lens' RepresentativesRepresentativeInfoByDivision' [Roles]

135135rribdRoles

136− = lens _rribdRoles (\ s a -> s{_rribdRoles = a})

136+ = lens _rribdRoles (\ s a -> s{_rribdRoles = a}) .

137+ _Default

138+ . _Coerce

137139

138140-- | Returns response with indentations and line breaks.

139141rribdPrettyPrint :: Lens' RepresentativesRepresentativeInfoByDivision' Bool

@@ -170,9 +172,11 @@ rribdOcdId

170172-- | A list of office levels to filter by. Only offices that serve at least

171173-- one of these levels will be returned. Divisions that don\'t contain a

172174-- matching office will not be returned.

173−rribdLevels :: Lens' RepresentativesRepresentativeInfoByDivision' (Maybe Levels)

175+rribdLevels :: Lens' RepresentativesRepresentativeInfoByDivision' [Levels]

174176rribdLevels

175− = lens _rribdLevels (\ s a -> s{_rribdLevels = a})

177+ = lens _rribdLevels (\ s a -> s{_rribdLevels = a}) .

178+ _Default

179+ . _Coerce

176180

177181-- | OAuth 2.0 token for the current user.

178182rribdOAuthToken :: Lens' RepresentativesRepresentativeInfoByDivision' (Maybe OAuthToken)

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Ads/List.hs+5−3

@@ -175,7 +175,7 @@ data AdsList' = AdsList'

175175 , _adsOverriddenEventTagId :: !(Maybe Int64)

176176 , _adsPageToken :: !(Maybe Text)

177177 , _adsSortField :: !(Maybe DfareportingAdsListSortField)

178− , _adsType :: !(Maybe Type)

178+ , _adsType :: !(Maybe [Type])

179179 , _adsOAuthToken :: !(Maybe OAuthToken)

180180 , _adsCreativeType :: !(Maybe CreativeType)

181181 , _adsDynamicClickTracker :: !(Maybe Bool)

@@ -438,8 +438,10 @@ adsSortField

438438 = lens _adsSortField (\ s a -> s{_adsSortField = a})

439439

440440-- | Select only ads with these types.

441−adsType :: Lens' AdsList' (Maybe Type)

442−adsType = lens _adsType (\ s a -> s{_adsType = a})

441+adsType :: Lens' AdsList' [Type]

442+adsType

443+ = lens _adsType (\ s a -> s{_adsType = a}) . _Default

444+ . _Coerce

443445

444446-- | OAuth 2.0 token for the current user.

445447adsOAuthToken :: Lens' AdsList' (Maybe OAuthToken)

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Creatives/List.hs+5−3

@@ -111,7 +111,7 @@ data CreativesList' = CreativesList'

111111 , _clSizeIds :: !(Maybe [Int64])

112112 , _clCompanionCreativeIds :: !(Maybe [Int64])

113113 , _clCampaignId :: !(Maybe Int64)

114− , _clTypes :: !(Maybe Types)

114+ , _clTypes :: !(Maybe [Types])

115115 , _clIds :: !(Maybe [Int64])

116116 , _clProfileId :: !Int64

117117 , _clSortOrder :: !(Maybe DfareportingCreativesListSortOrder)

@@ -271,8 +271,10 @@ clCampaignId

271271 = lens _clCampaignId (\ s a -> s{_clCampaignId = a})

272272

273273-- | Select only creatives with these creative types.

274−clTypes :: Lens' CreativesList' (Maybe Types)

275−clTypes = lens _clTypes (\ s a -> s{_clTypes = a})

274+clTypes :: Lens' CreativesList' [Types]

275+clTypes

276+ = lens _clTypes (\ s a -> s{_clTypes = a}) . _Default

277+ . _Coerce

276278

277279-- | Select only creatives with these IDs.

278280clIds :: Lens' CreativesList' [Int64]

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/EventTags/List.hs+4−2

@@ -89,7 +89,7 @@ data EventTagsList' = EventTagsList'

8989 { _etlQuotaUser :: !(Maybe Text)

9090 , _etlPrettyPrint :: !Bool

9191 , _etlDefinitionsOnly :: !(Maybe Bool)

92− , _etlEventTagTypes :: !(Maybe EventTagTypes)

92+ , _etlEventTagTypes :: !(Maybe [EventTagTypes])

9393 , _etlEnabled :: !(Maybe Bool)

9494 , _etlUserIP :: !(Maybe Text)

9595 , _etlAdvertiserId :: !(Maybe Int64)

@@ -194,10 +194,12 @@ etlDefinitionsOnly

194194-- types can be used to specify whether to use a third-party pixel, a

195195-- third-party JavaScript URL, or a third-party click-through URL for

196196-- either impression or click tracking.

197−etlEventTagTypes :: Lens' EventTagsList' (Maybe EventTagTypes)

197+etlEventTagTypes :: Lens' EventTagsList' [EventTagTypes]

198198etlEventTagTypes

199199 = lens _etlEventTagTypes

200200 (\ s a -> s{_etlEventTagTypes = a})

201+ . _Default

202+ . _Coerce

201203

202204-- | Select only enabled event tags. What is considered enabled or disabled

203205-- depends on the definitionsOnly parameter. When definitionsOnly is set to

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/PlacementGroups/List.hs+4−2

@@ -121,7 +121,7 @@ data PlacementGroupsList' = PlacementGroupsList'

121121 , _pglMaxEndDate :: !(Maybe Text)

122122 , _pglUserIP :: !(Maybe Text)

123123 , _pglCampaignIds :: !(Maybe [Int64])

124− , _pglPricingTypes :: !(Maybe DfareportingPlacementGroupsListPricingTypes)

124+ , _pglPricingTypes :: !(Maybe [DfareportingPlacementGroupsListPricingTypes])

125125 , _pglSearchString :: !(Maybe Text)

126126 , _pglIds :: !(Maybe [Int64])

127127 , _pglProfileId :: !Int64

@@ -284,10 +284,12 @@ pglCampaignIds

284284 . _Coerce

285285

286286-- | Select only placement groups with these pricing types.

287−pglPricingTypes :: Lens' PlacementGroupsList' (Maybe DfareportingPlacementGroupsListPricingTypes)

287+pglPricingTypes :: Lens' PlacementGroupsList' [DfareportingPlacementGroupsListPricingTypes]

288288pglPricingTypes

289289 = lens _pglPricingTypes

290290 (\ s a -> s{_pglPricingTypes = a})

291+ . _Default

292+ . _Coerce

291293

292294-- | Allows searching for placement groups by name or ID. Wildcards (*) are

293295-- allowed. For example, \"placement*2015\" will return placement groups

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Placements/Generatetags.hs+5−3

@@ -71,7 +71,7 @@ type PlacementsGeneratetagsResource =

7171data PlacementsGeneratetags' = PlacementsGeneratetags'

7272 { _pQuotaUser :: !(Maybe Text)

7373 , _pPrettyPrint :: !Bool

74− , _pTagFormats :: !(Maybe TagFormats)

74+ , _pTagFormats :: !(Maybe [TagFormats])

7575 , _pUserIP :: !(Maybe Text)

7676 , _pCampaignId :: !(Maybe Int64)

7777 , _pProfileId :: !Int64

@@ -134,9 +134,11 @@ pPrettyPrint

134134 = lens _pPrettyPrint (\ s a -> s{_pPrettyPrint = a})

135135

136136-- | Tag formats to generate for these placements.

137−pTagFormats :: Lens' PlacementsGeneratetags' (Maybe TagFormats)

137+pTagFormats :: Lens' PlacementsGeneratetags' [TagFormats]

138138pTagFormats

139− = lens _pTagFormats (\ s a -> s{_pTagFormats = a})

139+ = lens _pTagFormats (\ s a -> s{_pTagFormats = a}) .

140+ _Default

141+ . _Coerce

140142

141143-- | IP address of the site where the request originates. Use this if you

142144-- want to enforce per-user limits.

gogol-dfareporting/gen/Network/Google/Resource/DFAReporting/Placements/List.hs+8−4

@@ -141,7 +141,7 @@ data PlacementsList' = PlacementsList'

141141 , _plaMaxEndDate :: !(Maybe Text)

142142 , _plaUserIP :: !(Maybe Text)

143143 , _plaCampaignIds :: !(Maybe [Int64])

144− , _plaPricingTypes :: !(Maybe PricingTypes)

144+ , _plaPricingTypes :: !(Maybe [PricingTypes])

145145 , _plaSearchString :: !(Maybe Text)

146146 , _plaSizeIds :: !(Maybe [Int64])

147147 , _plaIds :: !(Maybe [Int64])

@@ -154,7 +154,7 @@ data PlacementsList' = PlacementsList'

154154 , _plaSiteIds :: !(Maybe [Int64])

155155 , _plaPageToken :: !(Maybe Text)

156156 , _plaSortField :: !(Maybe DfareportingPlacementsListSortField)

157− , _plaCompatibilities :: !(Maybe Compatibilities)

157+ , _plaCompatibilities :: !(Maybe [Compatibilities])

158158 , _plaMaxStartDate :: !(Maybe Text)

159159 , _plaOAuthToken :: !(Maybe OAuthToken)

160160 , _plaAdvertiserIds :: !(Maybe [Int64])

@@ -316,10 +316,12 @@ plaCampaignIds

316316 . _Coerce

317317

318318-- | Select only placements with these pricing types.

319−plaPricingTypes :: Lens' PlacementsList' (Maybe PricingTypes)

319+plaPricingTypes :: Lens' PlacementsList' [PricingTypes]

320320plaPricingTypes

321321 = lens _plaPricingTypes

322322 (\ s a -> s{_plaPricingTypes = a})

323+ . _Default

324+ . _Coerce

323325

324326-- | Allows searching for placements by name or ID. Wildcards (*) are

325327-- allowed. For example, \"placement*2015\" will return placements with

@@ -405,10 +407,12 @@ plaSortField

405407-- mobile devices for regular or interstitial ads respectively. APP and

406408-- APP_INTERSTITIAL are for rendering in mobile apps.IN_STREAM_VIDEO refers

407409-- to rendering in in-stream video ads developed with the VAST standard.

408−plaCompatibilities :: Lens' PlacementsList' (Maybe Compatibilities)

410+plaCompatibilities :: Lens' PlacementsList' [Compatibilities]

409411plaCompatibilities

410412 = lens _plaCompatibilities

411413 (\ s a -> s{_plaCompatibilities = a})

414+ . _Default

415+ . _Coerce

412416

413417-- | Select only placements or placement groups whose start date is on or

414418-- before the specified maxStartDate. The date should be formatted as

gogol-shopping-content/gen/Network/Google/Resource/Content/Orders/List.hs+5−3

@@ -83,7 +83,7 @@ data OrdersList' = OrdersList'

8383 , _olUserIP :: !(Maybe Text)

8484 , _olAcknowledged :: !(Maybe Bool)

8585 , _olKey :: !(Maybe Key)

86− , _olStatuses :: !(Maybe Statuses)

86+ , _olStatuses :: !(Maybe [Statuses])

8787 , _olPageToken :: !(Maybe Text)

8888 , _olOAuthToken :: !(Maybe OAuthToken)

8989 , _olPlacedDateStart :: !(Maybe Text)

@@ -204,9 +204,11 @@ olKey = lens _olKey (\ s a -> s{_olKey = a})

204204-- active is a shortcut for pendingShipment and partiallyShipped, and

205205-- completed is a shortcut for shipped , partiallyDelivered, delivered,

206206-- partiallyReturned, returned, and canceled.

207−olStatuses :: Lens' OrdersList' (Maybe Statuses)

207+olStatuses :: Lens' OrdersList' [Statuses]

208208olStatuses

209− = lens _olStatuses (\ s a -> s{_olStatuses = a})

209+ = lens _olStatuses (\ s a -> s{_olStatuses = a}) .

210+ _Default

211+ . _Coerce

210212

211213-- | The token returned by the previous request.

212214olPageToken :: Lens' OrdersList' (Maybe Text)

gogol-translate/gen/Network/Google/Resource/Language/Detections/List.hs+1−2

@@ -147,8 +147,7 @@ instance GoogleRequest DetectionsList' where

147147 type Rs DetectionsList' = DetectionsListResponse

148148 request = requestWithRoute defReq translateURL

149149 requestWithRoute r u DetectionsList'{..}

150− = go (_dlQ ^. _Default) _dlQuotaUser

151− (Just _dlPrettyPrint)

150+ = go _dlQ _dlQuotaUser (Just _dlPrettyPrint)

152151 _dlUserIP

153152 _dlFields

154153 _dlKey

gogol-translate/gen/Network/Google/Resource/Language/Translations/List.hs+1−2

@@ -189,8 +189,7 @@ instance GoogleRequest TranslationsList' where

189189 type Rs TranslationsList' = TranslationsListResponse

190190 request = requestWithRoute defReq translateURL

191191 requestWithRoute r u TranslationsList'{..}

192− = go (_tlQ ^. _Default) (Just _tlTarget) _tlFormat

193− _tlSource

192+ = go _tlQ (Just _tlTarget) _tlFormat _tlSource

194193 (_tlCid ^. _Default)

195194 _tlQuotaUser

196195 (Just _tlPrettyPrint)