2263e96 · gogol · git.iko.soy

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

compare with develop

unifiedsplit

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

48import Servant.Client as Export

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

50import Servant.Common.Req (appendToPath)

51−import Servant.Utils.Links as Export

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

52

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

54_Coerce = iso coerce coerce

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

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

69 -- ** AdsensehostAdClientsList

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

71

72− -- ** AdsensehostAssociationsessionsStart

72+ -- ** AdsensehostAssociationSessionsStart

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

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

74

75− -- ** AdsensehostAssociationsessionsVerify

75+ -- ** AdsensehostAssociationSessionsVerify

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

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

77

78 -- ** AdsensehostCustomChannelsDelete

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

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

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

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

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

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

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

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

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

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

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

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

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

310-}

311

312type AdSenseHostAPI =

313− AssociationsessionsVerifyResource :<|>

313+ AssociationSessionsVerifyResource :<|>

314− AssociationsessionsStartResource

314+ AssociationSessionsStartResource

315 :<|> AdClientsListResource

316 :<|> AdClientsGetResource

317 :<|> AccountsAdClientsListResource

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

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

150 type Rs AccountsList' = Accounts

151 request = requestWithRoute defReq adSenseHostURL

152 requestWithRoute r u AccountsList'{..}

153− = go (_alFilterAdClientId ^. _Default) _alQuotaUser

153+ = go _alFilterAdClientId _alQuotaUser

154 (Just _alPrettyPrint)

155 _alUserIP

156 _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 #-}

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+ , 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 #-}

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+ , 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

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

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

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

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

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

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

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

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

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

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

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

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

26

27 -- * REST Resources

28

29− -- ** GanAdvertisersGet

29+ -- ** GANAdvertisersGet

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

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

31

32− -- ** GanAdvertisersList

32+ -- ** GANAdvertisersList

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

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

34

35− -- ** GanCcOffersList

35+ -- ** GANCcOffersList

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

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

37

38− -- ** GanEventsList

38+ -- ** GANEventsList

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

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

40

41− -- ** GanLinksGet

41+ -- ** GANLinksGet

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

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

43

44− -- ** GanLinksInsert

44+ -- ** GANLinksInsert

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

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

46

47− -- ** GanLinksList

47+ -- ** GANLinksList

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

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

49

50− -- ** GanPublishersGet

50+ -- ** GANPublishersGet

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

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

52

53− -- ** GanPublishersList

53+ -- ** GANPublishersList

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

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

55

56− -- ** GanReportsGet

56+ -- ** GANReportsGet

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

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

58

59 -- * Types

60

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

92 -- ** Authorship

93 , Authorship (..)

94

95− -- ** GanPublishersGetRole

95+ -- ** GANPublishersGetRole

96− , GanPublishersGetRole (..)

96+ , GANPublishersGetRole (..)

97

98 -- ** ChargeType

99 , ChargeType (..)

100

101− -- ** GanLinksListRole

101+ -- ** GANLinksListRole

102− , GanLinksListRole (..)

102+ , GANLinksListRole (..)

103

104 -- ** ProductsItem

105 , ProductsItem

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

148 , mAmount

149 , mCurrencyCode

150

151− -- ** GanLinksInsertRole

151+ -- ** GANLinksInsertRole

152− , GanLinksInsertRole (..)

152+ , GANLinksInsertRole (..)

153

154− -- ** GanAdvertisersListRole

154+ -- ** GANAdvertisersListRole

155− , GanAdvertisersListRole (..)

155+ , GANAdvertisersListRole (..)

156

157 -- ** PromotionType

158 , PromotionType (..)

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

163 , coKind

164 , coItems

165

166− -- ** GanPublishersListRole

166+ -- ** GANPublishersListRole

167− , GanPublishersListRole (..)

167+ , GANPublishersListRole (..)

168

169 -- ** Advertisers

170 , Advertisers

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

185 , rColumnNames

186 , rType

187

188− -- ** GanLinksGetRole

188+ -- ** GANLinksGetRole

189− , GanLinksGetRole (..)

189+ , GANLinksGetRole (..)

190

191 -- ** RewardsItem

192 , RewardsItem

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

198 , riMaxRewardTier

199 , riMinRewardTier

200

201− -- ** GanEventsListRole

201+ -- ** GANEventsListRole

202− , GanEventsListRole (..)

202+ , GANEventsListRole (..)

203

204 -- ** Role

205 , Role (..)

206

207− -- ** GanAdvertisersGetRole

207+ -- ** GANAdvertisersGetRole

208− , GanAdvertisersGetRole (..)

208+ , GANAdvertisersGetRole (..)

209

210 -- ** EventType

211 , EventType (..)

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

217 , eveKind

218 , eveItems

219

220− -- ** GanPublishersListRelationshipStatus

220+ -- ** GANPublishersListRelationshipStatus

221− , GanPublishersListRelationshipStatus (..)

221+ , GANPublishersListRelationshipStatus (..)

222

223 -- ** SpecialOffers

224 , SpecialOffers

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

373 , pubEpcNinetyDayAverage

374 , pubSites

375

376− -- ** GanLinksListRelationshipStatus

376+ -- ** GANLinksListRelationshipStatus

377− , GanLinksListRelationshipStatus (..)

377+ , GANLinksListRelationshipStatus (..)

378

379− -- ** GanEventsListStatus

379+ -- ** GANEventsListStatus

380− , GanEventsListStatus (..)

380+ , GANEventsListStatus (..)

381 ) where

382

383import Network.Google.Affiliates.Types

384import Network.Google.Prelude

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

395

396{- $resources

397TODO

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

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

51 -- * Authorship

52 , Authorship (..)

53

54− -- * GanPublishersGetRole

54+ -- * GANPublishersGetRole

55− , GanPublishersGetRole (..)

55+ , GANPublishersGetRole (..)

56

57 -- * ChargeType

58 , ChargeType (..)

59

60− -- * GanLinksListRole

60+ -- * GANLinksListRole

61− , GanLinksListRole (..)

61+ , GANLinksListRole (..)

62

63 -- * ProductsItem

64 , ProductsItem

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

107 , mAmount

108 , mCurrencyCode

109

110− -- * GanLinksInsertRole

110+ -- * GANLinksInsertRole

111− , GanLinksInsertRole (..)

111+ , GANLinksInsertRole (..)

112

113− -- * GanAdvertisersListRole

113+ -- * GANAdvertisersListRole

114− , GanAdvertisersListRole (..)

114+ , GANAdvertisersListRole (..)

115

116 -- * PromotionType

117 , PromotionType (..)

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

122 , coKind

123 , coItems

124

125− -- * GanPublishersListRole

125+ -- * GANPublishersListRole

126− , GanPublishersListRole (..)

126+ , GANPublishersListRole (..)

127

128 -- * Advertisers

129 , Advertisers

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

144 , rColumnNames

145 , rType

146

147− -- * GanLinksGetRole

147+ -- * GANLinksGetRole

148− , GanLinksGetRole (..)

148+ , GANLinksGetRole (..)

149

150 -- * RewardsItem

151 , RewardsItem

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

157 , riMaxRewardTier

158 , riMinRewardTier

159

160− -- * GanEventsListRole

160+ -- * GANEventsListRole

161− , GanEventsListRole (..)

161+ , GANEventsListRole (..)

162

163 -- * Role

164 , Role (..)

165

166− -- * GanAdvertisersGetRole

166+ -- * GANAdvertisersGetRole

167− , GanAdvertisersGetRole (..)

167+ , GANAdvertisersGetRole (..)

168

169 -- * EventType

170 , EventType (..)

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

176 , eveKind

177 , eveItems

178

179− -- * GanPublishersListRelationshipStatus

179+ -- * GANPublishersListRelationshipStatus

180− , GanPublishersListRelationshipStatus (..)

180+ , GANPublishersListRelationshipStatus (..)

181

182 -- * SpecialOffers

183 , SpecialOffers

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

332 , pubEpcNinetyDayAverage

333 , pubSites

334

335− -- * GanLinksListRelationshipStatus

335+ -- * GANLinksListRelationshipStatus

336− , GanLinksListRelationshipStatus (..)

336+ , GANLinksListRelationshipStatus (..)

337

338− -- * GanEventsListStatus

338+ -- * GANEventsListStatus

339− , GanEventsListStatus (..)

339+ , GANEventsListStatus (..)

340 ) where

341

342import Network.Google.Affiliates.Types.Product

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

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

81

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

83-- \'publishers\'.

84−data GanPublishersGetRole

84+data GANPublishersGetRole

85− = GPGRAdvertisers

85+ = GANPGRAdvertisers

86 -- ^ @advertisers@

87 -- The requester is requesting as an advertiser.

88− | GPGRPublishers

88+ | GANPGRPublishers

89 -- ^ @publishers@

90 -- The requester is requesting as a publisher.

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

92

93−instance Hashable GanPublishersGetRole

93+instance Hashable GANPublishersGetRole

94

95−instance FromText GanPublishersGetRole where

95+instance FromText GANPublishersGetRole where

96 fromText = \case

97− "advertisers" -> Just GPGRAdvertisers

97+ "advertisers" -> Just GANPGRAdvertisers

98− "publishers" -> Just GPGRPublishers

98+ "publishers" -> Just GANPGRPublishers

99 _ -> Nothing

100

101−instance ToText GanPublishersGetRole where

101+instance ToText GANPublishersGetRole where

102 toText = \case

103− GPGRAdvertisers -> "advertisers"

103+ GANPGRAdvertisers -> "advertisers"

104− GPGRPublishers -> "publishers"

104+ GANPGRPublishers -> "publishers"

105

106−instance FromJSON GanPublishersGetRole where

106+instance FromJSON GANPublishersGetRole where

107− parseJSON = parseJSONText "GanPublishersGetRole"

107+ parseJSON = parseJSONText "GANPublishersGetRole"

108

109−instance ToJSON GanPublishersGetRole where

109+instance ToJSON GANPublishersGetRole where

110 toJSON = toJSONText

111

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

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

166

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

168-- \'publishers\'.

169−data GanLinksListRole

169+data GANLinksListRole

170− = GLLRAdvertisers

170+ = GANLLRAdvertisers

171 -- ^ @advertisers@

172 -- The requester is requesting as an advertiser.

173− | GLLRPublishers

173+ | GANLLRPublishers

174 -- ^ @publishers@

175 -- The requester is requesting as a publisher.

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

177

178−instance Hashable GanLinksListRole

178+instance Hashable GANLinksListRole

179

180−instance FromText GanLinksListRole where

180+instance FromText GANLinksListRole where

181 fromText = \case

182− "advertisers" -> Just GLLRAdvertisers

182+ "advertisers" -> Just GANLLRAdvertisers

183− "publishers" -> Just GLLRPublishers

183+ "publishers" -> Just GANLLRPublishers

184 _ -> Nothing

185

186−instance ToText GanLinksListRole where

186+instance ToText GANLinksListRole where

187 toText = \case

188− GLLRAdvertisers -> "advertisers"

188+ GANLLRAdvertisers -> "advertisers"

189− GLLRPublishers -> "publishers"

189+ GANLLRPublishers -> "publishers"

190

191−instance FromJSON GanLinksListRole where

191+instance FromJSON GANLinksListRole where

192− parseJSON = parseJSONText "GanLinksListRole"

192+ parseJSON = parseJSONText "GANLinksListRole"

193

194−instance ToJSON GanLinksListRole where

194+instance ToJSON GANLinksListRole where

195 toJSON = toJSONText

196

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

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

244

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

246-- \'publishers\'.

247−data GanLinksInsertRole

247+data GANLinksInsertRole

248− = GLIRAdvertisers

248+ = GANLIRAdvertisers

249 -- ^ @advertisers@

250 -- The requester is requesting as an advertiser.

251− | GLIRPublishers

251+ | GANLIRPublishers

252 -- ^ @publishers@

253 -- The requester is requesting as a publisher.

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

255

256−instance Hashable GanLinksInsertRole

256+instance Hashable GANLinksInsertRole

257

258−instance FromText GanLinksInsertRole where

258+instance FromText GANLinksInsertRole where

259 fromText = \case

260− "advertisers" -> Just GLIRAdvertisers

260+ "advertisers" -> Just GANLIRAdvertisers

261− "publishers" -> Just GLIRPublishers

261+ "publishers" -> Just GANLIRPublishers

262 _ -> Nothing

263

264−instance ToText GanLinksInsertRole where

264+instance ToText GANLinksInsertRole where

265 toText = \case

266− GLIRAdvertisers -> "advertisers"

266+ GANLIRAdvertisers -> "advertisers"

267− GLIRPublishers -> "publishers"

267+ GANLIRPublishers -> "publishers"

268

269−instance FromJSON GanLinksInsertRole where

269+instance FromJSON GANLinksInsertRole where

270− parseJSON = parseJSONText "GanLinksInsertRole"

270+ parseJSON = parseJSONText "GANLinksInsertRole"

271

272−instance ToJSON GanLinksInsertRole where

272+instance ToJSON GANLinksInsertRole where

273 toJSON = toJSONText

274

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

276-- \'publishers\'.

277−data GanAdvertisersListRole

277+data GANAdvertisersListRole

278− = GALRAdvertisers

278+ = GANALRAdvertisers

279 -- ^ @advertisers@

280 -- The requester is requesting as an advertiser.

281− | GALRPublishers

281+ | GANALRPublishers

282 -- ^ @publishers@

283 -- The requester is requesting as a publisher.

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

285

286−instance Hashable GanAdvertisersListRole

286+instance Hashable GANAdvertisersListRole

287

288−instance FromText GanAdvertisersListRole where

288+instance FromText GANAdvertisersListRole where

289 fromText = \case

290− "advertisers" -> Just GALRAdvertisers

290+ "advertisers" -> Just GANALRAdvertisers

291− "publishers" -> Just GALRPublishers

291+ "publishers" -> Just GANALRPublishers

292 _ -> Nothing

293

294−instance ToText GanAdvertisersListRole where

294+instance ToText GANAdvertisersListRole where

295 toText = \case

296− GALRAdvertisers -> "advertisers"

296+ GANALRAdvertisers -> "advertisers"

297− GALRPublishers -> "publishers"

297+ GANALRPublishers -> "publishers"

298

299−instance FromJSON GanAdvertisersListRole where

299+instance FromJSON GANAdvertisersListRole where

300− parseJSON = parseJSONText "GanAdvertisersListRole"

300+ parseJSON = parseJSONText "GANAdvertisersListRole"

301

302−instance ToJSON GanAdvertisersListRole where

302+instance ToJSON GANAdvertisersListRole where

303 toJSON = toJSONText

304

305-- | The promotion type.

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

343

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

345-- \'publishers\'.

346−data GanPublishersListRole

346+data GANPublishersListRole

347− = GPLRAdvertisers

347+ = GANPLRAdvertisers

348 -- ^ @advertisers@

349 -- The requester is requesting as an advertiser.

350− | GPLRPublishers

350+ | GANPLRPublishers

351 -- ^ @publishers@

352 -- The requester is requesting as a publisher.

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

354

355−instance Hashable GanPublishersListRole

355+instance Hashable GANPublishersListRole

356

357−instance FromText GanPublishersListRole where

357+instance FromText GANPublishersListRole where

358 fromText = \case

359− "advertisers" -> Just GPLRAdvertisers

359+ "advertisers" -> Just GANPLRAdvertisers

360− "publishers" -> Just GPLRPublishers

360+ "publishers" -> Just GANPLRPublishers

361 _ -> Nothing

362

363−instance ToText GanPublishersListRole where

363+instance ToText GANPublishersListRole where

364 toText = \case

365− GPLRAdvertisers -> "advertisers"

365+ GANPLRAdvertisers -> "advertisers"

366− GPLRPublishers -> "publishers"

366+ GANPLRPublishers -> "publishers"

367

368−instance FromJSON GanPublishersListRole where

368+instance FromJSON GANPublishersListRole where

369− parseJSON = parseJSONText "GanPublishersListRole"

369+ parseJSON = parseJSONText "GANPublishersListRole"

370

371−instance ToJSON GanPublishersListRole where

371+instance ToJSON GANPublishersListRole where

372 toJSON = toJSONText

373

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

375-- \'publishers\'.

376−data GanLinksGetRole

376+data GANLinksGetRole

377− = GLGRAdvertisers

377+ = GANLGRAdvertisers

378 -- ^ @advertisers@

379 -- The requester is requesting as an advertiser.

380− | GLGRPublishers

380+ | GANLGRPublishers

381 -- ^ @publishers@

382 -- The requester is requesting as a publisher.

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

384

385−instance Hashable GanLinksGetRole

385+instance Hashable GANLinksGetRole

386

387−instance FromText GanLinksGetRole where

387+instance FromText GANLinksGetRole where

388 fromText = \case

389− "advertisers" -> Just GLGRAdvertisers

389+ "advertisers" -> Just GANLGRAdvertisers

390− "publishers" -> Just GLGRPublishers

390+ "publishers" -> Just GANLGRPublishers

391 _ -> Nothing

392

393−instance ToText GanLinksGetRole where

393+instance ToText GANLinksGetRole where

394 toText = \case

395− GLGRAdvertisers -> "advertisers"

395+ GANLGRAdvertisers -> "advertisers"

396− GLGRPublishers -> "publishers"

396+ GANLGRPublishers -> "publishers"

397

398−instance FromJSON GanLinksGetRole where

398+instance FromJSON GANLinksGetRole where

399− parseJSON = parseJSONText "GanLinksGetRole"

399+ parseJSON = parseJSONText "GANLinksGetRole"

400

401−instance ToJSON GanLinksGetRole where

401+instance ToJSON GANLinksGetRole where

402 toJSON = toJSONText

403

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

405-- \'publishers\'.

406−data GanEventsListRole

406+data GANEventsListRole

407− = GELRAdvertisers

407+ = GANELRAdvertisers

408 -- ^ @advertisers@

409 -- The requester is requesting as an advertiser.

410− | GELRPublishers

410+ | GANELRPublishers

411 -- ^ @publishers@

412 -- The requester is requesting as a publisher.

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

414

415−instance Hashable GanEventsListRole

415+instance Hashable GANEventsListRole

416

417−instance FromText GanEventsListRole where

417+instance FromText GANEventsListRole where

418 fromText = \case

419− "advertisers" -> Just GELRAdvertisers

419+ "advertisers" -> Just GANELRAdvertisers

420− "publishers" -> Just GELRPublishers

420+ "publishers" -> Just GANELRPublishers

421 _ -> Nothing

422

423−instance ToText GanEventsListRole where

423+instance ToText GANEventsListRole where

424 toText = \case

425− GELRAdvertisers -> "advertisers"

425+ GANELRAdvertisers -> "advertisers"

426− GELRPublishers -> "publishers"

426+ GANELRPublishers -> "publishers"

427

428−instance FromJSON GanEventsListRole where

428+instance FromJSON GANEventsListRole where

429− parseJSON = parseJSONText "GanEventsListRole"

429+ parseJSON = parseJSONText "GANEventsListRole"

430

431−instance ToJSON GanEventsListRole where

431+instance ToJSON GANEventsListRole where

432 toJSON = toJSONText

433

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

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

463

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

465-- \'publishers\'.

466−data GanAdvertisersGetRole

466+data GANAdvertisersGetRole

467− = GAGRAdvertisers

467+ = GANAGRAdvertisers

468 -- ^ @advertisers@

469 -- The requester is requesting as an advertiser.

470− | GAGRPublishers

470+ | GANAGRPublishers

471 -- ^ @publishers@

472 -- The requester is requesting as a publisher.

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

474

475−instance Hashable GanAdvertisersGetRole

475+instance Hashable GANAdvertisersGetRole

476

477−instance FromText GanAdvertisersGetRole where

477+instance FromText GANAdvertisersGetRole where

478 fromText = \case

479− "advertisers" -> Just GAGRAdvertisers

479+ "advertisers" -> Just GANAGRAdvertisers

480− "publishers" -> Just GAGRPublishers

480+ "publishers" -> Just GANAGRPublishers

481 _ -> Nothing

482

483−instance ToText GanAdvertisersGetRole where

483+instance ToText GANAdvertisersGetRole where

484 toText = \case

485− GAGRAdvertisers -> "advertisers"

485+ GANAGRAdvertisers -> "advertisers"

486− GAGRPublishers -> "publishers"

486+ GANAGRPublishers -> "publishers"

487

488−instance FromJSON GanAdvertisersGetRole where

488+instance FromJSON GANAdvertisersGetRole where

489− parseJSON = parseJSONText "GanAdvertisersGetRole"

489+ parseJSON = parseJSONText "GANAdvertisersGetRole"

490

491−instance ToJSON GanAdvertisersGetRole where

491+instance ToJSON GANAdvertisersGetRole where

492 toJSON = toJSONText

493

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

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

528

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

530-- status with the requesting publisher.

531−data GanPublishersListRelationshipStatus

531+data GANPublishersListRelationshipStatus

532− = GPLRSApproved

532+ = GANPLRSApproved

533 -- ^ @approved@

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

535− | GPLRSAvailable

535+ | GANPLRSAvailable

536 -- ^ @available@

537 -- Publishers available for you to recruit.

538− | GPLRSDeactivated

538+ | GANPLRSDeactivated

539 -- ^ @deactivated@

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

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

542− | GPLRSDeclined

542+ | GANPLRSDeclined

543 -- ^ @declined@

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

545− | GPLRSPending

545+ | GANPLRSPending

546 -- ^ @pending@

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

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

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

550

551−instance Hashable GanPublishersListRelationshipStatus

551+instance Hashable GANPublishersListRelationshipStatus

552

553−instance FromText GanPublishersListRelationshipStatus where

553+instance FromText GANPublishersListRelationshipStatus where

554 fromText = \case

555− "approved" -> Just GPLRSApproved

555+ "approved" -> Just GANPLRSApproved

556− "available" -> Just GPLRSAvailable

556+ "available" -> Just GANPLRSAvailable

557− "deactivated" -> Just GPLRSDeactivated

557+ "deactivated" -> Just GANPLRSDeactivated

558− "declined" -> Just GPLRSDeclined

558+ "declined" -> Just GANPLRSDeclined

559− "pending" -> Just GPLRSPending

559+ "pending" -> Just GANPLRSPending

560 _ -> Nothing

561

562−instance ToText GanPublishersListRelationshipStatus where

562+instance ToText GANPublishersListRelationshipStatus where

563 toText = \case

564− GPLRSApproved -> "approved"

564+ GANPLRSApproved -> "approved"

565− GPLRSAvailable -> "available"

565+ GANPLRSAvailable -> "available"

566− GPLRSDeactivated -> "deactivated"

566+ GANPLRSDeactivated -> "deactivated"

567− GPLRSDeclined -> "declined"

567+ GANPLRSDeclined -> "declined"

568− GPLRSPending -> "pending"

568+ GANPLRSPending -> "pending"

569

570−instance FromJSON GanPublishersListRelationshipStatus where

570+instance FromJSON GANPublishersListRelationshipStatus where

571− parseJSON = parseJSONText "GanPublishersListRelationshipStatus"

571+ parseJSON = parseJSONText "GANPublishersListRelationshipStatus"

572

573−instance ToJSON GanPublishersListRelationshipStatus where

573+instance ToJSON GANPublishersListRelationshipStatus where

574 toJSON = toJSONText

575

576-- | The set of fields to return.

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

695 toJSON = toJSONText

696

697-- | The status of the relationship.

698−data GanLinksListRelationshipStatus

698+data GANLinksListRelationshipStatus

699− = GLLRSApproved

699+ = GANLLRSApproved

700 -- ^ @approved@

701− | GLLRSAvailable

701+ | GANLLRSAvailable

702 -- ^ @available@

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

704

705−instance Hashable GanLinksListRelationshipStatus

705+instance Hashable GANLinksListRelationshipStatus

706

707−instance FromText GanLinksListRelationshipStatus where

707+instance FromText GANLinksListRelationshipStatus where

708 fromText = \case

709− "approved" -> Just GLLRSApproved

709+ "approved" -> Just GANLLRSApproved

710− "available" -> Just GLLRSAvailable

710+ "available" -> Just GANLLRSAvailable

711 _ -> Nothing

712

713−instance ToText GanLinksListRelationshipStatus where

713+instance ToText GANLinksListRelationshipStatus where

714 toText = \case

715− GLLRSApproved -> "approved"

715+ GANLLRSApproved -> "approved"

716− GLLRSAvailable -> "available"

716+ GANLLRSAvailable -> "available"

717

718−instance FromJSON GanLinksListRelationshipStatus where

718+instance FromJSON GANLinksListRelationshipStatus where

719− parseJSON = parseJSONText "GanLinksListRelationshipStatus"

719+ parseJSON = parseJSONText "GANLinksListRelationshipStatus"

720

721−instance ToJSON GanLinksListRelationshipStatus where

721+instance ToJSON GANLinksListRelationshipStatus where

722 toJSON = toJSONText

723

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

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

726−data GanEventsListStatus

726+data GANEventsListStatus

727− = GELSActive

727+ = GANELSActive

728 -- ^ @active@

729 -- Event is currently active.

730− | GELSCanceled

730+ | GANELSCanceled

731 -- ^ @canceled@

732 -- Event is currently canceled.

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

734

735−instance Hashable GanEventsListStatus

735+instance Hashable GANEventsListStatus

736

737−instance FromText GanEventsListStatus where

737+instance FromText GANEventsListStatus where

738 fromText = \case

739− "active" -> Just GELSActive

739+ "active" -> Just GANELSActive

740− "canceled" -> Just GELSCanceled

740+ "canceled" -> Just GANELSCanceled

741 _ -> Nothing

742

743−instance ToText GanEventsListStatus where

743+instance ToText GANEventsListStatus where

744 toText = \case

745− GELSActive -> "active"

745+ GANELSActive -> "active"

746− GELSCanceled -> "canceled"

746+ GANELSCanceled -> "canceled"

747

748−instance FromJSON GanEventsListStatus where

748+instance FromJSON GANEventsListStatus where

749− parseJSON = parseJSONText "GanEventsListStatus"

749+ parseJSON = parseJSONText "GANEventsListStatus"

750

751−instance ToJSON GanEventsListStatus where

751+instance ToJSON GANEventsListStatus where

752 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 @@

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

12

13-- |

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

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

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

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

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

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

24-- omitting the advertiserId query parameter.

25--

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

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

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

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

28 (

29 -- * REST Resource

30 AdvertisersGetResource

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

48import Network.Google.Affiliates.Types

49import Network.Google.Prelude

50

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

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

52-- 'AdvertisersGet'' request conforms to.

53type AdvertisersGetResource =

54− Capture "role" GanAdvertisersGetRole :>

54+ Capture "role" GANAdvertisersGetRole :>

55 Capture "roleId" Text :>

56 "advertiser" :>

57 QueryParam "advertiserId" Text :>

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

75 , _agUserIP :: !(Maybe Text)

76 , _agAdvertiserId :: !(Maybe Text)

77 , _agRoleId :: !Text

78− , _agRole :: !GanAdvertisersGetRole

78+ , _agRole :: !GANAdvertisersGetRole

79 , _agKey :: !(Maybe Key)

80 , _agOAuthToken :: !(Maybe OAuthToken)

81 , _agFields :: !(Maybe Text)

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

104-- * 'agFields'

105advertisersGet'

106 :: Text -- ^ 'roleId'

107− -> GanAdvertisersGetRole -- ^ 'role'

107+ -> GANAdvertisersGetRole -- ^ 'role'

108 -> AdvertisersGet'

109advertisersGet' pAgRoleId_ pAgRole_ =

110 AdvertisersGet'

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

149

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

151-- \'publishers\'.

152−agRole :: Lens' AdvertisersGet' GanAdvertisersGetRole

152+agRole :: Lens' AdvertisersGet' GANAdvertisersGetRole

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

154

155-- | 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 @@

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

12

13-- |

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

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

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

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

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

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

22-- advertiser\/publisher has access to.

23--

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

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

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

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

26 (

27 -- * REST Resource

28 AdvertisersListResource

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

52import Network.Google.Affiliates.Types

53import Network.Google.Prelude

54

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

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

56-- 'AdvertisersList'' request conforms to.

57type AdvertisersListResource =

58− Capture "role" GanAdvertisersListRole :>

58+ Capture "role" GANAdvertisersListRole :>

59 Capture "roleId" Text :>

60 "advertisers" :>

61 QueryParam "relationshipStatus" RelationshipStatus :>

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

86 , _alMinSevenDayEpc :: !(Maybe Double)

87 , _alRoleId :: !Text

88 , _alMinNinetyDayEpc :: !(Maybe Double)

89− , _alRole :: !GanAdvertisersListRole

89+ , _alRole :: !GANAdvertisersListRole

90 , _alKey :: !(Maybe Key)

91 , _alMinPayoutRank :: !(Maybe Int32)

92 , _alAdvertiserCategory :: !(Maybe Text)

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

131-- * 'alFields'

132advertisersList'

133 :: Text -- ^ 'roleId'

134− -> GanAdvertisersListRole -- ^ 'role'

134+ -> GANAdvertisersListRole -- ^ 'role'

135 -> AdvertisersList'

136advertisersList' pAlRoleId_ pAlRole_ =

137 AdvertisersList'

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

197

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

199-- \'publishers\'.

200−alRole :: Lens' AdvertisersList' GanAdvertisersListRole

200+alRole :: Lens' AdvertisersList' GANAdvertisersListRole

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

202

203-- | 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 @@

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

12

13-- |

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

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

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

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

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

20--

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

22--

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

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

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

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

25 (

26 -- * REST Resource

27 CcOffersListResource

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

45import Network.Google.Affiliates.Types

46import Network.Google.Prelude

47

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

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

49-- 'CcOffersList'' request conforms to.

50type CcOffersListResource =

51 "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 @@

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

12

13-- |

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

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

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

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

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

20--

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

22--

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

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

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

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

25 (

26 -- * REST Resource

27 EventsListResource

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

60import Network.Google.Affiliates.Types

61import Network.Google.Prelude

62

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

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

64-- 'EventsList'' request conforms to.

65type EventsListResource =

66− Capture "role" GanEventsListRole :>

66+ Capture "role" GANEventsListRole :>

67 Capture "roleId" Text :>

68 "events" :>

69− QueryParam "status" GanEventsListStatus :>

69+ QueryParam "status" GANEventsListStatus :>

70 QueryParam "eventDateMin" Text :>

71 QueryParam "chargeType" ChargeType :>

72 QueryParam "memberId" Text :>

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

97--

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

99data EventsList' = EventsList'

100− { _elStatus :: !(Maybe GanEventsListStatus)

100+ { _elStatus :: !(Maybe GANEventsListStatus)

101 , _elQuotaUser :: !(Maybe Text)

102 , _elPrettyPrint :: !Bool

103 , _elEventDateMin :: !(Maybe Text)

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

108 , _elAdvertiserId :: !(Maybe Text)

109 , _elModifyDateMin :: !(Maybe Text)

110 , _elRoleId :: !Text

111− , _elRole :: !GanEventsListRole

111+ , _elRole :: !GANEventsListRole

112 , _elEventDateMax :: !(Maybe Text)

113 , _elKey :: !(Maybe Key)

114 , _elSKU :: !(Maybe Text)

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

176-- * 'elFields'

177eventsList'

178 :: Text -- ^ 'roleId'

179− -> GanEventsListRole -- ^ 'role'

179+ -> GANEventsListRole -- ^ 'role'

180 -> EventsList'

181eventsList' pElRoleId_ pElRole_ =

182 EventsList'

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

208

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

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

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

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

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

213

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

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

279

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

281-- \'publishers\'.

282−elRole :: Lens' EventsList' GanEventsListRole

282+elRole :: Lens' EventsList' GANEventsListRole

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

284

285-- | 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 @@

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

12

13-- |

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

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

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

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

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

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

24-- advertisers they are in a relationship with.

25--

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

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

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

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

28 (

29 -- * REST Resource

30 LinksGetResource

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

48import Network.Google.Affiliates.Types

49import Network.Google.Prelude

50

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

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

52-- 'LinksGet'' request conforms to.

53type LinksGetResource =

54− Capture "role" GanLinksGetRole :>

54+ Capture "role" GANLinksGetRole :>

55 Capture "roleId" Text :>

56 "link" :>

57 Capture "linkId" Int64 :>

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

74 , _lgPrettyPrint :: !Bool

75 , _lgUserIP :: !(Maybe Text)

76 , _lgRoleId :: !Text

77− , _lgRole :: !GanLinksGetRole

77+ , _lgRole :: !GANLinksGetRole

78 , _lgKey :: !(Maybe Key)

79 , _lgLinkId :: !Int64

80 , _lgOAuthToken :: !(Maybe OAuthToken)

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

104-- * 'lgFields'

105linksGet'

106 :: Text -- ^ 'roleId'

107− -> GanLinksGetRole -- ^ 'role'

107+ -> GANLinksGetRole -- ^ 'role'

108 -> Int64 -- ^ 'linkId'

109 -> LinksGet'

110linksGet' pLgRoleId_ pLgRole_ pLgLinkId_ =

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

144

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

146-- \'publishers\'.

147−lgRole :: Lens' LinksGet' GanLinksGetRole

147+lgRole :: Lens' LinksGet' GANLinksGetRole

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

149

150-- | 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 @@

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

12

13-- |

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

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

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

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

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

20--

21-- | Inserts a new link.

22--

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

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

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

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

25 (

26 -- * REST Resource

27 LinksInsertResource

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

45import Network.Google.Affiliates.Types

46import Network.Google.Prelude

47

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

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

49-- 'LinksInsert'' request conforms to.

50type LinksInsertResource =

51− Capture "role" GanLinksInsertRole :>

51+ Capture "role" GANLinksInsertRole :>

52 Capture "roleId" Text :>

53 "link" :>

54 QueryParam "quotaUser" Text :>

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

69 , _liUserIP :: !(Maybe Text)

70 , _liPayload :: !Link

71 , _liRoleId :: !Text

72− , _liRole :: !GanLinksInsertRole

72+ , _liRole :: !GANLinksInsertRole

73 , _liKey :: !(Maybe Key)

74 , _liOAuthToken :: !(Maybe OAuthToken)

75 , _liFields :: !(Maybe Text)

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

99linksInsert'

100 :: Link -- ^ 'payload'

101 -> Text -- ^ 'roleId'

102− -> GanLinksInsertRole -- ^ 'role'

102+ -> GANLinksInsertRole -- ^ 'role'

103 -> LinksInsert'

104linksInsert' pLiPayload_ pLiRoleId_ pLiRole_ =

105 LinksInsert'

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

143

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

145-- \'publishers\'.

146−liRole :: Lens' LinksInsert' GanLinksInsertRole

146+liRole :: Lens' LinksInsert' GANLinksInsertRole

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

148

149-- | 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 @@

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

12

13-- |

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

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

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

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

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

20--

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

22--

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

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

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

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

25 (

26 -- * REST Resource

27 LinksListResource

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

57import Network.Google.Affiliates.Types

58import Network.Google.Prelude

59

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

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

61-- 'LinksList'' request conforms to.

62type LinksListResource =

63− Capture "role" GanLinksListRole :>

63+ Capture "role" GANLinksListRole :>

64 Capture "roleId" Text :>

65 "links" :>

66 QueryParam "createDateMax" Text :>

67 QueryParam "authorship" Authorship :>

68 QueryParams "assetSize" Text :>

69 QueryParam "relationshipStatus"

70− GanLinksListRelationshipStatus

70+ GANLinksListRelationshipStatus

71 :>

72 QueryParams "advertiserId" Int64 :>

73 QueryParam "searchText" Text :>

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

99 , _llPrettyPrint :: !Bool

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

101 , _llUserIP :: !(Maybe Text)

102− , _llRelationshipStatus :: !(Maybe GanLinksListRelationshipStatus)

102+ , _llRelationshipStatus :: !(Maybe GANLinksListRelationshipStatus)

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

104 , _llSearchText :: !(Maybe Text)

105− , _llPromotionType :: !(Maybe PromotionType)

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

106 , _llRoleId :: !Text

107− , _llRole :: !GanLinksListRole

107+ , _llRole :: !GANLinksListRole

108 , _llKey :: !(Maybe Key)

109 , _llCreateDateMin :: !(Maybe Text)

110 , _llLinkType :: !(Maybe LinkType)

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

163-- * 'llFields'

164linksList'

165 :: Text -- ^ 'roleId'

166− -> GanLinksListRole -- ^ 'role'

166+ -> GANLinksListRole -- ^ 'role'

167 -> LinksList'

168linksList' pLlRoleId_ pLlRole_ =

169 LinksList'

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

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

228

229-- | The status of the relationship.

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

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

231llRelationshipStatus

232 = lens _llRelationshipStatus

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

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

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

249

250-- | The promotion type.

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

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

252llPromotionType

253 = lens _llPromotionType

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

255+ . _Default

256+ . _Coerce

255

257

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

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

257llRoleId :: Lens' LinksList' Text

259llRoleId :: Lens' LinksList' Text

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

259

261

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

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

261-- \'publishers\'.

263-- \'publishers\'.

262−llRole :: Lens' LinksList' GanLinksListRole

264+llRole :: Lens' LinksList' GANLinksListRole

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

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

264

266

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

267-- | 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 @@

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

12

13-- |

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

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

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

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

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

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

24-- omitting the publisherId query parameter.

25--

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

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

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

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

28 (

29 -- * REST Resource

30 PublishersGetResource

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

48import Network.Google.Affiliates.Types

49import Network.Google.Prelude

50

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

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

52-- 'PublishersGet'' request conforms to.

53type PublishersGetResource =

54− Capture "role" GanPublishersGetRole :>

54+ Capture "role" GANPublishersGetRole :>

55 Capture "roleId" Text :>

56 "publisher" :>

57 QueryParam "publisherId" Text :>

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

74 , _pgPrettyPrint :: !Bool

75 , _pgUserIP :: !(Maybe Text)

76 , _pgRoleId :: !Text

77− , _pgRole :: !GanPublishersGetRole

77+ , _pgRole :: !GANPublishersGetRole

78 , _pgKey :: !(Maybe Key)

79 , _pgOAuthToken :: !(Maybe OAuthToken)

80 , _pgPublisherId :: !(Maybe Text)

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

104-- * 'pgFields'

105publishersGet'

106 :: Text -- ^ 'roleId'

107− -> GanPublishersGetRole -- ^ 'role'

107+ -> GANPublishersGetRole -- ^ 'role'

108 -> PublishersGet'

109publishersGet' pPgRoleId_ pPgRole_ =

110 PublishersGet'

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

143

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

145-- \'publishers\'.

146−pgRole :: Lens' PublishersGet' GanPublishersGetRole

146+pgRole :: Lens' PublishersGet' GANPublishersGetRole

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

148

149-- | 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 @@

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

12

13-- |

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

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

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

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

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

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

22-- advertiser\/publisher has access to.

23--

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

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

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

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

26 (

27 -- * REST Resource

28 PublishersListResource

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

52import Network.Google.Affiliates.Types

53import Network.Google.Prelude

54

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

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

56-- 'PublishersList'' request conforms to.

57type PublishersListResource =

58− Capture "role" GanPublishersListRole :>

58+ Capture "role" GANPublishersListRole :>

59 Capture "roleId" Text :>

60 "publishers" :>

61 QueryParam "relationshipStatus"

62− GanPublishersListRelationshipStatus

62+ GANPublishersListRelationshipStatus

63 :>

64 QueryParam "minSevenDayEpc" Double :>

65 QueryParam "minNinetyDayEpc" Double :>

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

84 { _plQuotaUser :: !(Maybe Text)

85 , _plPrettyPrint :: !Bool

86 , _plUserIP :: !(Maybe Text)

87− , _plRelationshipStatus :: !(Maybe GanPublishersListRelationshipStatus)

87+ , _plRelationshipStatus :: !(Maybe GANPublishersListRelationshipStatus)

88 , _plMinSevenDayEpc :: !(Maybe Double)

89 , _plRoleId :: !Text

90 , _plMinNinetyDayEpc :: !(Maybe Double)

91− , _plRole :: !GanPublishersListRole

91+ , _plRole :: !GANPublishersListRole

92 , _plKey :: !(Maybe Key)

93 , _plMinPayoutRank :: !(Maybe Int32)

94 , _plPageToken :: !(Maybe Text)

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

133-- * 'plFields'

134publishersList'

135 :: Text -- ^ 'roleId'

136− -> GanPublishersListRole -- ^ 'role'

136+ -> GANPublishersListRole -- ^ 'role'

137 -> PublishersList'

138publishersList' pPlRoleId_ pPlRole_ =

139 PublishersList'

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

174

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

176-- status with the requesting publisher.

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

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

178plRelationshipStatus

179 = lens _plRelationshipStatus

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

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

199

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

201-- \'publishers\'.

202−plRole :: Lens' PublishersList' GanPublishersListRole

202+plRole :: Lens' PublishersList' GANPublishersListRole

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

204

205-- | 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 @@

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

12

13-- |

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

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

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

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

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

20--

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

22--

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

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

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

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

25 (

26 -- * REST Resource

27 ReportsGetResource

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

56import Network.Google.Affiliates.Types

57import Network.Google.Prelude

58

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

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

60-- 'ReportsGet'' request conforms to.

61type ReportsGetResource =

62 Capture "role" Role :>

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

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

32 exposed-modules:

33 Network.Google.Affiliates

34 , Network.Google.Affiliates.Types

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

45

46 other-modules:

47 Network.Google.Affiliates.Types.Product

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

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

83 , _jlPrettyPrint :: !Bool

84 , _jlUserIP :: !(Maybe Text)

85 , _jlKey :: !(Maybe Key)

86− , _jlStateFilter :: !(Maybe StateFilter)

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

87 , _jlProjection :: !(Maybe Projection)

88 , _jlPageToken :: !(Maybe Text)

89 , _jlProjectId :: !Text

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

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

165

166-- | Filter for job state

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

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

168jlStateFilter

169 = lens _jlStateFilter

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

171+ . _Default

172+ . _Coerce

171

173

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

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

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

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

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

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

69--

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

71data BlogsListByUser' = BlogsListByUser'

72− { _blbuStatus :: !BloggerBlogsListByUserStatus

72+ { _blbuStatus :: ![BloggerBlogsListByUserStatus]

73 , _blbuQuotaUser :: !(Maybe Text)

74 , _blbuPrettyPrint :: !Bool

75 , _blbuUserIP :: !(Maybe Text)

76 , _blbuFetchUserInfo :: !(Maybe Bool)

77 , _blbuUserId :: !Text

78− , _blbuRole :: !(Maybe Role)

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

79 , _blbuKey :: !(Maybe Key)

80 , _blbuView :: !(Maybe BloggerBlogsListByUserView)

81 , _blbuOAuthToken :: !(Maybe OAuthToken)

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

127

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

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

130−blbuStatus :: Lens' BlogsListByUser' BloggerBlogsListByUserStatus

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

131blbuStatus

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

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

133+ _Coerce

133

134

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

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

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

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

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

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

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

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

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

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

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

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

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

172+blbuRole

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

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

174+ _Default

175+ . _Coerce

172

176

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

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

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

178-- 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 =

79--

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

81data CommentsList' = CommentsList'

82− { _clStatus :: !(Maybe BloggerCommentsListStatus)

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

83 , _clQuotaUser :: !(Maybe Text)

84 , _clPrettyPrint :: !Bool

85 , _clUserIP :: !(Maybe Text)

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

152 , _clFields = Nothing

153 }

154

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

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

156+clStatus

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

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

158+ _Default

159+ . _Coerce

157

160

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

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

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

162-- 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 =

75--

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

77data CommentsListByBlog' = CommentsListByBlog'

78− { _clbbStatus :: !(Maybe BloggerCommentsListByBlogStatus)

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

79 , _clbbQuotaUser :: !(Maybe Text)

80 , _clbbPrettyPrint :: !Bool

81 , _clbbUserIP :: !(Maybe Text)

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

139 , _clbbFields = Nothing

140 }

141

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

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

143clbbStatus

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

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

145+ _Default

146+ . _Coerce

145

147

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

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

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

149-- 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'

68 , _pvgUserIP :: !(Maybe Text)

69 , _pvgBlogId :: !Text

70 , _pvgKey :: !(Maybe Key)

71− , _pvgRange :: !(Maybe Range)

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

72 , _pvgOAuthToken :: !(Maybe OAuthToken)

73 , _pvgFields :: !(Maybe Text)

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

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

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

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

139

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

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

141+pvgRange

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

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

143+ _Default

144+ . _Coerce

142

145

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

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

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

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

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

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

72--

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

74data PagesList' = PagesList'

75− { _plStatus :: !(Maybe BloggerPagesListStatus)

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

76 , _plQuotaUser :: !(Maybe Text)

77 , _plPrettyPrint :: !Bool

78 , _plUserIP :: !(Maybe Text)

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

132 , _plFields = Nothing

133 }

134

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

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

136+plStatus

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

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

138+ _Default

139+ . _Coerce

137

140

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

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

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

142-- 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 =

88--

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

90data PostUserInfosList' = PostUserInfosList'

91− { _puilStatus :: !(Maybe Status)

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

92 , _puilQuotaUser :: !(Maybe Text)

93 , _puilPrettyPrint :: !Bool

94 , _puilOrderBy :: !OrderBy

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

169 , _puilFields = Nothing

170 }

171

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

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

173puilStatus

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

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

175+ _Default

176+ . _Coerce

175

177

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

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

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

179-- 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 =

82--

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

84data PostsList' = PostsList'

85− { _pllStatus :: !(Maybe BloggerPostsListStatus)

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

86 , _pllQuotaUser :: !(Maybe Text)

87 , _pllPrettyPrint :: !Bool

88 , _pllOrderBy :: !BloggerPostsListOrderBy

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

163 }

164

165-- | Statuses to include in the results.

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

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

167pllStatus

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

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

169+ _Default

170+ . _Coerce

169

171

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

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

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

173-- 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'

192 request = requestWithRoute defReq booksURL

193 requestWithRoute r u

194 MyConfigReleaseDownloadAccess'{..}

195− = go (_mcrdaVolumeIds ^. _Default)

196− (Just _mcrdaCpksver)

195+ = go _mcrdaVolumeIds (Just _mcrdaCpksver)

197 _mcrdaLocale

196 _mcrdaLocale

198 _mcrdaSource

197 _mcrdaSource

199 _mcrdaQuotaUser

198 _mcrdaQuotaUser

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

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

83 , _mcsvlLocale :: !(Maybe Text)

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

85 , _mcsvlKey :: !(Maybe Key)

86− , _mcsvlFeatures :: !(Maybe Features)

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

87 , _mcsvlSource :: !Text

88 , _mcsvlOAuthToken :: !(Maybe OAuthToken)

89 , _mcsvlShowPreOrders :: !(Maybe Bool)

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

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

188

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

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

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

191mcsvlFeatures

192 = lens _mcsvlFeatures

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

194+ . _Default

195+ . _Coerce

194

196

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

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

196mcsvlSource :: Lens' MyConfigSyncVolumeLicenses' Text

198mcsvlSource :: Lens' MyConfigSyncVolumeLicenses' Text

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

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

169 AnnotationsSummary

170 request = requestWithRoute defReq booksURL

171 requestWithRoute r u MyLibraryAnnotationsSummary'{..}

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

172+ = go _mlasLayerIds (Just _mlasVolumeId)

173 _mlasQuotaUser

174 (Just _mlasPrettyPrint)

175 _mlasUserIP

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

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

73--

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

75data VolumesMybooksList' = VolumesMybooksList'

76− { _vmlProcessingState :: !(Maybe BooksVolumesMybooksListProcessingState)

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

77 , _vmlQuotaUser :: !(Maybe Text)

78− , _vmlAcquireMethod :: !(Maybe AcquireMethod)

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

79 , _vmlPrettyPrint :: !Bool

80 , _vmlUserIP :: !(Maybe Text)

81 , _vmlLocale :: !(Maybe Text)

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

134

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

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

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

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

138vmlProcessingState

139 = lens _vmlProcessingState

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

141+ . _Default

142+ . _Coerce

141

143

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

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

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

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

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

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

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

148

150

149-- | How the book was aquired

151-- | How the book was aquired

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

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

151vmlAcquireMethod

153vmlAcquireMethod

152 = lens _vmlAcquireMethod

154 = lens _vmlAcquireMethod

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

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

156+ . _Default

157+ . _Coerce

154

158

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

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

156vmlPrettyPrint :: Lens' VolumesMybooksList' Bool

160vmlPrettyPrint :: Lens' VolumesMybooksList' Bool

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

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

71--

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

73data VolumesUserUploadedList' = VolumesUserUploadedList'

74− { _vuulProcessingState :: !(Maybe ProcessingState)

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

75 , _vuulQuotaUser :: !(Maybe Text)

76 , _vuulPrettyPrint :: !Bool

77 , _vuulUserIP :: !(Maybe Text)

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

131 }

132

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

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

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

135vuulProcessingState

136 = lens _vuulProcessingState

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

138+ . _Default

139+ . _Coerce

138

140

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

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

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

142-- 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

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

76data RepresentativesRepresentativeInfoByAddress' = RepresentativesRepresentativeInfoByAddress'

77 { _rribaQuotaUser :: !(Maybe Text)

78− , _rribaRoles :: !(Maybe CivicInfoRepresentativesRepresentativeInfoByAddressRoles)

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

79 , _rribaPrettyPrint :: !Bool

80 , _rribaUserIP :: !(Maybe Text)

81 , _rribaAddress :: !(Maybe Text)

82 , _rribaKey :: !(Maybe Key)

83 , _rribaIncludeOffices :: !Bool

84− , _rribaLevels :: !(Maybe CivicInfoRepresentativesRepresentativeInfoByAddressLevels)

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

85 , _rribaOAuthToken :: !(Maybe OAuthToken)

86 , _rribaFields :: !(Maybe Text)

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

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

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

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

138-- office will not be returned.

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

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

140rribaRoles

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

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

142+ _Default

143+ . _Coerce

142

144

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

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

144rribaPrettyPrint :: Lens' RepresentativesRepresentativeInfoByAddress' Bool

146rribaPrettyPrint :: Lens' RepresentativesRepresentativeInfoByAddress' Bool

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

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

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

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

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

176-- matching office will not be returned.

178-- matching office will not be returned.

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

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

178rribaLevels

180rribaLevels

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

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

182+ _Default

183+ . _Coerce

180

184

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

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

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

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

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

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

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

70data RepresentativesRepresentativeInfoByDivision' = RepresentativesRepresentativeInfoByDivision'

71 { _rribdQuotaUser :: !(Maybe Text)

72− , _rribdRoles :: !(Maybe Roles)

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

73 , _rribdPrettyPrint :: !Bool

74 , _rribdUserIP :: !(Maybe Text)

75 , _rribdKey :: !(Maybe Key)

76 , _rribdRecursive :: !(Maybe Bool)

77 , _rribdOcdId :: !Text

78− , _rribdLevels :: !(Maybe Levels)

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

79 , _rribdOAuthToken :: !(Maybe OAuthToken)

80 , _rribdFields :: !(Maybe Text)

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

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

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

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

133-- office will not be returned.

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

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

135rribdRoles

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

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

137+ _Default

138+ . _Coerce

137

139

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

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

139rribdPrettyPrint :: Lens' RepresentativesRepresentativeInfoByDivision' Bool

141rribdPrettyPrint :: Lens' RepresentativesRepresentativeInfoByDivision' Bool

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

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

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

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

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

172-- matching office will not be returned.

174-- matching office will not be returned.

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

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

174rribdLevels

176rribdLevels

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

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

178+ _Default

179+ . _Coerce

176

180

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

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

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

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

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

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

175 , _adsOverriddenEventTagId :: !(Maybe Int64)

176 , _adsPageToken :: !(Maybe Text)

177 , _adsSortField :: !(Maybe DfareportingAdsListSortField)

178− , _adsType :: !(Maybe Type)

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

179 , _adsOAuthToken :: !(Maybe OAuthToken)

180 , _adsCreativeType :: !(Maybe CreativeType)

181 , _adsDynamicClickTracker :: !(Maybe Bool)

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

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

439

440-- | Select only ads with these types.

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

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

442+adsType

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

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

444+ . _Coerce

443

445

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

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

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

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

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

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

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

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

113 , _clCampaignId :: !(Maybe Int64)

114− , _clTypes :: !(Maybe Types)

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

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

116 , _clProfileId :: !Int64

117 , _clSortOrder :: !(Maybe DfareportingCreativesListSortOrder)

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

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

272

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

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

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

275+clTypes

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

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

277+ . _Coerce

276

278

277-- | Select only creatives with these IDs.

279-- | Select only creatives with these IDs.

278clIds :: Lens' CreativesList' [Int64]

280clIds :: Lens' CreativesList' [Int64]

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

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

89 { _etlQuotaUser :: !(Maybe Text)

90 , _etlPrettyPrint :: !Bool

91 , _etlDefinitionsOnly :: !(Maybe Bool)

92− , _etlEventTagTypes :: !(Maybe EventTagTypes)

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

93 , _etlEnabled :: !(Maybe Bool)

94 , _etlUserIP :: !(Maybe Text)

95 , _etlAdvertiserId :: !(Maybe Int64)

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

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

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

196-- either impression or click tracking.

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

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

198etlEventTagTypes

199 = lens _etlEventTagTypes

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

201+ . _Default

202+ . _Coerce

201

203

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

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

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

205-- 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'

121 , _pglMaxEndDate :: !(Maybe Text)

122 , _pglUserIP :: !(Maybe Text)

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

124− , _pglPricingTypes :: !(Maybe DfareportingPlacementGroupsListPricingTypes)

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

125 , _pglSearchString :: !(Maybe Text)

126 , _pglIds :: !(Maybe [Int64])

127 , _pglProfileId :: !Int64

@@ -284,10 +284,12 @@ pglCampaignIds

284 . _Coerce

285

286-- | Select only placement groups with these pricing types.

287−pglPricingTypes :: Lens' PlacementGroupsList' (Maybe DfareportingPlacementGroupsListPricingTypes)

287+pglPricingTypes :: Lens' PlacementGroupsList' [DfareportingPlacementGroupsListPricingTypes]

288pglPricingTypes

289 = lens _pglPricingTypes

290 (\ s a -> s{_pglPricingTypes = a})

291+ . _Default

292+ . _Coerce

291

293

292-- | Allows searching for placement groups by name or ID. Wildcards (*) are

294-- | Allows searching for placement groups by name or ID. Wildcards (*) are

293-- allowed. For example, \"placement*2015\" will return placement groups

295-- 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 =

71data PlacementsGeneratetags' = PlacementsGeneratetags'

72 { _pQuotaUser :: !(Maybe Text)

73 , _pPrettyPrint :: !Bool

74− , _pTagFormats :: !(Maybe TagFormats)

74+ , _pTagFormats :: !(Maybe [TagFormats])

75 , _pUserIP :: !(Maybe Text)

76 , _pCampaignId :: !(Maybe Int64)

77 , _pProfileId :: !Int64

@@ -134,9 +134,11 @@ pPrettyPrint

134 = lens _pPrettyPrint (\ s a -> s{_pPrettyPrint = a})

135

136-- | Tag formats to generate for these placements.

137−pTagFormats :: Lens' PlacementsGeneratetags' (Maybe TagFormats)

137+pTagFormats :: Lens' PlacementsGeneratetags' [TagFormats]

138pTagFormats

139− = lens _pTagFormats (\ s a -> s{_pTagFormats = a})

139+ = lens _pTagFormats (\ s a -> s{_pTagFormats = a}) .

140+ _Default

141+ . _Coerce

140

142

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

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

142-- want to enforce per-user limits.

144-- 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'

141 , _plaMaxEndDate :: !(Maybe Text)

142 , _plaUserIP :: !(Maybe Text)

143 , _plaCampaignIds :: !(Maybe [Int64])

144− , _plaPricingTypes :: !(Maybe PricingTypes)

144+ , _plaPricingTypes :: !(Maybe [PricingTypes])

145 , _plaSearchString :: !(Maybe Text)

146 , _plaSizeIds :: !(Maybe [Int64])

147 , _plaIds :: !(Maybe [Int64])

@@ -154,7 +154,7 @@ data PlacementsList' = PlacementsList'

154 , _plaSiteIds :: !(Maybe [Int64])

155 , _plaPageToken :: !(Maybe Text)

156 , _plaSortField :: !(Maybe DfareportingPlacementsListSortField)

157− , _plaCompatibilities :: !(Maybe Compatibilities)

157+ , _plaCompatibilities :: !(Maybe [Compatibilities])

158 , _plaMaxStartDate :: !(Maybe Text)

159 , _plaOAuthToken :: !(Maybe OAuthToken)

160 , _plaAdvertiserIds :: !(Maybe [Int64])

@@ -316,10 +316,12 @@ plaCampaignIds

316 . _Coerce

317

318-- | Select only placements with these pricing types.

319−plaPricingTypes :: Lens' PlacementsList' (Maybe PricingTypes)

319+plaPricingTypes :: Lens' PlacementsList' [PricingTypes]

320plaPricingTypes

321 = lens _plaPricingTypes

322 (\ s a -> s{_plaPricingTypes = a})

323+ . _Default

324+ . _Coerce

323

325

324-- | Allows searching for placements by name or ID. Wildcards (*) are

326-- | Allows searching for placements by name or ID. Wildcards (*) are

325-- allowed. For example, \"placement*2015\" will return placements with

327-- allowed. For example, \"placement*2015\" will return placements with

@@ -405,10 +407,12 @@ plaSortField

405-- mobile devices for regular or interstitial ads respectively. APP and

407-- mobile devices for regular or interstitial ads respectively. APP and

406-- APP_INTERSTITIAL are for rendering in mobile apps.IN_STREAM_VIDEO refers

408-- APP_INTERSTITIAL are for rendering in mobile apps.IN_STREAM_VIDEO refers

407-- to rendering in in-stream video ads developed with the VAST standard.

409-- to rendering in in-stream video ads developed with the VAST standard.

408−plaCompatibilities :: Lens' PlacementsList' (Maybe Compatibilities)

410+plaCompatibilities :: Lens' PlacementsList' [Compatibilities]

409plaCompatibilities

411plaCompatibilities

410 = lens _plaCompatibilities

412 = lens _plaCompatibilities

411 (\ s a -> s{_plaCompatibilities = a})

413 (\ s a -> s{_plaCompatibilities = a})

414+ . _Default

415+ . _Coerce

412

416

413-- | Select only placements or placement groups whose start date is on or

417-- | Select only placements or placement groups whose start date is on or

414-- before the specified maxStartDate. The date should be formatted as

418-- 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'

83 , _olUserIP :: !(Maybe Text)

84 , _olAcknowledged :: !(Maybe Bool)

85 , _olKey :: !(Maybe Key)

86− , _olStatuses :: !(Maybe Statuses)

86+ , _olStatuses :: !(Maybe [Statuses])

87 , _olPageToken :: !(Maybe Text)

88 , _olOAuthToken :: !(Maybe OAuthToken)

89 , _olPlacedDateStart :: !(Maybe Text)

@@ -204,9 +204,11 @@ olKey = lens _olKey (\ s a -> s{_olKey = a})

204-- active is a shortcut for pendingShipment and partiallyShipped, and

205-- completed is a shortcut for shipped , partiallyDelivered, delivered,

206-- partiallyReturned, returned, and canceled.

207−olStatuses :: Lens' OrdersList' (Maybe Statuses)

207+olStatuses :: Lens' OrdersList' [Statuses]

208olStatuses

209− = lens _olStatuses (\ s a -> s{_olStatuses = a})

209+ = lens _olStatuses (\ s a -> s{_olStatuses = a}) .

210+ _Default

211+ . _Coerce

210

212

211-- | The token returned by the previous request.

213-- | The token returned by the previous request.

212olPageToken :: Lens' OrdersList' (Maybe Text)

214olPageToken :: Lens' OrdersList' (Maybe Text)

gogol-translate/gen/Network/Google/Resource/Language/Detections/List.hs+1−2

@@ -147,8 +147,7 @@ instance GoogleRequest DetectionsList' where

147 type Rs DetectionsList' = DetectionsListResponse

148 request = requestWithRoute defReq translateURL

149 requestWithRoute r u DetectionsList'{..}

150− = go (_dlQ ^. _Default) _dlQuotaUser

151− (Just _dlPrettyPrint)

150+ = go _dlQ _dlQuotaUser (Just _dlPrettyPrint)

152 _dlUserIP

151 _dlUserIP

153 _dlFields

152 _dlFields

154 _dlKey

153 _dlKey

gogol-translate/gen/Network/Google/Resource/Language/Translations/List.hs+1−2

@@ -189,8 +189,7 @@ instance GoogleRequest TranslationsList' where

189 type Rs TranslationsList' = TranslationsListResponse

190 request = requestWithRoute defReq translateURL

191 requestWithRoute r u TranslationsList'{..}

192− = go (_tlQ ^. _Default) (Just _tlTarget) _tlFormat

192+ = go _tlQ (Just _tlTarget) _tlFormat _tlSource

193− _tlSource

194 (_tlCid ^. _Default)

193 (_tlCid ^. _Default)

195 _tlQuotaUser

194 _tlQuotaUser

196 (Just _tlPrettyPrint)

195 (Just _tlPrettyPrint)