develop...1653ee9 · gogol

git.iko.soy/gogol

1000 files changed+84586−23089

since splitsnapshots

unifiedsplit

.travis.yml+16−2

@@ -93,6 +93,8 @@ matrix:

9393 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

9494 - env: GHCVER=8.2.2 LIBRARY=gogol-acceleratedmobilepageurl

9595 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

96+ - env: GHCVER=8.2.2 LIBRARY=gogol-accessapproval

97+ addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

9698 - env: GHCVER=8.2.2 LIBRARY=gogol-accesscontextmanager

9799 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

98100 - env: GHCVER=8.2.2 LIBRARY=gogol-adexchange-buyer

@@ -171,6 +173,10 @@ matrix:

171173 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

172174 - env: GHCVER=8.2.2 LIBRARY=gogol-cloudkms

173175 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

176+ - env: GHCVER=8.2.2 LIBRARY=gogol-cloudprivatecatalog

177+ addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

178+ - env: GHCVER=8.2.2 LIBRARY=gogol-cloudprivatecatalogproducer

179+ addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

174180 - env: GHCVER=8.2.2 LIBRARY=gogol-cloudprofiler

175181 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

176182 - env: GHCVER=8.2.2 LIBRARY=gogol-cloudscheduler

@@ -183,6 +189,8 @@ matrix:

183189 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

184190 - env: GHCVER=8.2.2 LIBRARY=gogol-cloudtrace

185191 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

192+ - env: GHCVER=8.2.2 LIBRARY=gogol-commentanalyzer

193+ addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

186194 - env: GHCVER=8.2.2 LIBRARY=gogol-composer

187195 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

188196 - env: GHCVER=8.2.2 LIBRARY=gogol-consumersurveys

@@ -197,6 +205,8 @@ matrix:

197205 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

198206 - env: GHCVER=8.2.2 LIBRARY=gogol-dataflow

199207 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

208+ - env: GHCVER=8.2.2 LIBRARY=gogol-datafusion

209+ addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

200210 - env: GHCVER=8.2.2 LIBRARY=gogol-dataproc

201211 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

202212 - env: GHCVER=8.2.2 LIBRARY=gogol-datastore

@@ -225,6 +235,8 @@ matrix:

225235 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

226236 - env: GHCVER=8.2.2 LIBRARY=gogol-driveactivity

227237 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

238+ - env: GHCVER=8.2.2 LIBRARY=gogol-factchecktools

239+ addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

228240 - env: GHCVER=8.2.2 LIBRARY=gogol-file

229241 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

230242 - env: GHCVER=8.2.2 LIBRARY=gogol-firebase-dynamiclinks

@@ -293,8 +305,6 @@ matrix:

293305 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

294306 - env: GHCVER=8.2.2 LIBRARY=gogol-people

295307 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

296− - env: GHCVER=8.2.2 LIBRARY=gogol-photoslibrary

297− addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

298308 - env: GHCVER=8.2.2 LIBRARY=gogol-playcustomapp

299309 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

300310 - env: GHCVER=8.2.2 LIBRARY=gogol-play-moviespartner

@@ -323,6 +333,8 @@ matrix:

323333 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

324334 - env: GHCVER=8.2.2 LIBRARY=gogol-resourcemanager

325335 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

336+ - env: GHCVER=8.2.2 LIBRARY=gogol-run

337+ addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

326338 - env: GHCVER=8.2.2 LIBRARY=gogol-runtimeconfig

327339 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

328340 - env: GHCVER=8.2.2 LIBRARY=gogol-safebrowsing

@@ -331,6 +343,8 @@ matrix:

331343 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

332344 - env: GHCVER=8.2.2 LIBRARY=gogol-searchconsole

333345 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

346+ - env: GHCVER=8.2.2 LIBRARY=gogol-securitycenter

347+ addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

334348 - env: GHCVER=8.2.2 LIBRARY=gogol-servicebroker

335349 addons: { apt: { packages: [ghc-8.2.2], sources: [hvr-ghc] } }

336350 - env: GHCVER=8.2.2 LIBRARY=gogol-serviceconsumermanagement

gen/Makefile+1−1

@@ -38,7 +38,7 @@ format:

3838 -exec stylish-haskell -i {} \;

3939

4040$(BIN)/gogol-gen: $(BIN)

41− stack build gogol-gen --copy-bins --local-bin-path $(BIN)

41+ stack build gogol-gen --nix --copy-bins --local-bin-path $(BIN)

4242

4343$(BIN):

4444 mkdir $@

gen/stack.yaml+1−1

@@ -1,4 +1,4 @@

1−resolver: lts-13.7

1+resolver: lts-13.19

33nix:

44 enable: false

gen/stack.yaml.locknew file+49

@@ -0,0 +1,49 @@

1+# This file was autogenerated by Stack.

2+# You should not edit this file by hand.

3+# For more information, please see the documentation at:

4+# https://docs.haskellstack.org/en/stable/lock_files

6+packages:

7+- completed:

8+ hackage: text-regex-replace-0.1.1.3@sha256:e7f612df671c93ced54a3d26528db37852069884e5cb67d5afbb49d3defb5eb9,1627

9+ pantry-tree:

10+ size: 360

11+ sha256: 0edba698df19381c1fadb494dfd5278b35b6670bf29cab1a228f2fde9bb9ba89

12+ original:

13+ hackage: text-regex-replace-0.1.1.3

14+- completed:

15+ hackage: ede-0.2.9@sha256:062198b65a661f015bff53c15d53d0b63eac547d44b09d96b7fb8d27752dfc79,3561

16+ pantry-tree:

17+ size: 5392

18+ sha256: ee8d76f8f1ca483f29233498833c7159774efc3c0cb14027703cefac79c41315

19+ original:

20+ hackage: ede-0.2.9

21+- completed:

22+ hackage: unexceptionalio-0.3.0@sha256:cd2d74906d336c0a0b827c935d31c39a8504c4414ffc4ab30ccbe22d0ba0cf69,1126

23+ pantry-tree:

24+ size: 217

25+ sha256: 810f5bb08802115d17848c2a8233f95b16f51922edf6850aa663fc1c4067f38a

26+ original:

27+ hackage: unexceptionalio-0.3.0

28+- completed:

29+ size: 51114

30+ url: https://github.com/chrisdone/hindent/archive/ad0c2a9f8755d37f09b356ab7e45a4e49bcda0b3.tar.gz

31+ cabal-file:

32+ size: 3452

33+ sha256: f3243ef357ed5464c6a5b6f38cbb73a30ec170d1ed0c7beb16c05f5f0ad61833

34+ name: hindent

35+ version: 5.2.7

36+ sha256: 19954fc7dff3d008d9c7688d1c571999c1869f86e5c115aef8b28c2ae622972f

37+ pantry-tree:

38+ size: 1808

39+ sha256: 25b9067b3429d448130aa1963527a8442a3f78f9198dc2a0c9b77616d2ede801

40+ original:

41+ size: 51114

42+ url: https://github.com/chrisdone/hindent/archive/ad0c2a9f8755d37f09b356ab7e45a4e49bcda0b3.tar.gz

43+ sha256: 19954fc7dff3d008d9c7688d1c571999c1869f86e5c115aef8b28c2ae622972f

44+snapshots:

45+- completed:

46+ size: 498155

47+ url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/13/19.yaml

48+ sha256: b9367a80d4393d02e58a46b8a9fdfbd7bc19f59c0c2bbf90034ba15cf52cf213

49+ original: lts-13.19

gogol-photoslibrary/LICENSE → gogol-accessapproval/LICENSErenamed

The content is the same.

gogol-photoslibrary/Makefile → gogol-accessapproval/Makefilerenamed

The content is the same.

gogol-accessapproval/README.mdnew file+28

@@ -0,0 +1,28 @@

1+# gogol-accessapproval

3+* [Version](#version)

4+* [Description](#description)

5+* [Contribute](#contribute)

6+* [Licence](#licence)

9+## Version

10+

11+`0.5.0`

12+

13+

14+## Description

15+

16+A client library for the Google Access Approval.

17+

18+

19+## Contribute

20+

21+For any problems, comments, or feedback please create an issue [here on GitHub](https://github.com/brendanhay/gogol/issues).

22+

23+> _Note:_ this library is an auto-generated Haskell package. Please see `gogol-gen` for more information.

24+

25+

26+## Licence

27+

28+`gogol-accessapproval` is released under the [Mozilla Public License Version 2.0](http://www.mozilla.org/MPL/).

gogol-photoslibrary/Setup.hs → gogol-accessapproval/Setup.hsrenamed

The content is the same.

gogol-accessapproval/gen/Network/Google/AccessApproval.hsnew file+196

@@ -0,0 +1,196 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE NoImplicitPrelude #-}

3+{-# LANGUAGE TypeOperators #-}

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

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

8+-- |

9+-- Module : Network.Google.AccessApproval

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

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

13+-- Stability : auto-generated

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

15+--

16+-- An API for controlling access to data by Google personnel.

17+--

18+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference>

19+module Network.Google.AccessApproval

20+ (

21+ -- * Service Configuration

22+ accessApprovalService

23+

24+ -- * OAuth Scopes

25+ , cloudPlatformScope

26+

27+ -- * API Declaration

28+ , AccessApprovalAPI

29+

30+ -- * Resources

31+

32+ -- ** accessapproval.folders.approvalRequests.approve

33+ , module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Approve

34+

35+ -- ** accessapproval.folders.approvalRequests.dismiss

36+ , module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Dismiss

37+

38+ -- ** accessapproval.folders.approvalRequests.get

39+ , module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Get

40+

41+ -- ** accessapproval.folders.approvalRequests.list

42+ , module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.List

43+

44+ -- ** accessapproval.folders.getAccessApprovalSettings

45+ , module Network.Google.Resource.AccessApproval.Folders.GetAccessApprovalSettings

46+

47+ -- ** accessapproval.folders.updateAccessApprovalSettings

48+ , module Network.Google.Resource.AccessApproval.Folders.UpdateAccessApprovalSettings

49+

50+ -- ** accessapproval.organizations.approvalRequests.approve

51+ , module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Approve

52+

53+ -- ** accessapproval.organizations.approvalRequests.dismiss

54+ , module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Dismiss

55+

56+ -- ** accessapproval.organizations.approvalRequests.get

57+ , module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Get

58+

59+ -- ** accessapproval.organizations.approvalRequests.list

60+ , module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.List

61+

62+ -- ** accessapproval.organizations.getAccessApprovalSettings

63+ , module Network.Google.Resource.AccessApproval.Organizations.GetAccessApprovalSettings

64+

65+ -- ** accessapproval.organizations.updateAccessApprovalSettings

66+ , module Network.Google.Resource.AccessApproval.Organizations.UpdateAccessApprovalSettings

67+

68+ -- ** accessapproval.projects.approvalRequests.approve

69+ , module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Approve

70+

71+ -- ** accessapproval.projects.approvalRequests.dismiss

72+ , module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Dismiss

73+

74+ -- ** accessapproval.projects.approvalRequests.get

75+ , module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Get

76+

77+ -- ** accessapproval.projects.approvalRequests.list

78+ , module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.List

79+

80+ -- ** accessapproval.projects.getAccessApprovalSettings

81+ , module Network.Google.Resource.AccessApproval.Projects.GetAccessApprovalSettings

82+

83+ -- ** accessapproval.projects.updateAccessApprovalSettings

84+ , module Network.Google.Resource.AccessApproval.Projects.UpdateAccessApprovalSettings

85+

86+ -- * Types

87+

88+ -- ** ListApprovalRequestsResponse

89+ , ListApprovalRequestsResponse

90+ , listApprovalRequestsResponse

91+ , larrNextPageToken

92+ , larrApprovalRequests

93+

94+ -- ** ApproveDecision

95+ , ApproveDecision

96+ , approveDecision

97+ , adApproveTime

98+ , adExpireTime

99+

100+ -- ** AccessLocations

101+ , AccessLocations

102+ , accessLocations

103+ , alPrincipalOfficeCountry

104+ , alPrincipalPhysicalLocationCountry

105+

106+ -- ** DismissDecision

107+ , DismissDecision

108+ , dismissDecision

109+ , ddDismissTime

110+

111+ -- ** AccessReasonType

112+ , AccessReasonType (..)

113+

114+ -- ** AccessApprovalSettings

115+ , AccessApprovalSettings

116+ , accessApprovalSettings

117+ , aasName

118+ , aasNotificationEmails

119+

120+ -- ** ApprovalRequest

121+ , ApprovalRequest

122+ , approvalRequest

123+ , arRequestedResourceName

124+ , arRequestedExpiration

125+ , arRequestTime

126+ , arRequestedReason

127+ , arName

128+ , arApprove

129+ , arDismiss

130+ , arRequestedLocations

131+

132+ -- ** DismissApprovalRequestMessage

133+ , DismissApprovalRequestMessage

134+ , dismissApprovalRequestMessage

135+

136+ -- ** Xgafv

137+ , Xgafv (..)

138+

139+ -- ** ApproveApprovalRequestMessage

140+ , ApproveApprovalRequestMessage

141+ , approveApprovalRequestMessage

142+ , aarmExpireTime

143+

144+ -- ** AccessReason

145+ , AccessReason

146+ , accessReason

147+ , arType

148+ , arDetail

149+ ) where

150+

151+import Network.Google.AccessApproval.Types

152+import Network.Google.Prelude

153+import Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Approve

154+import Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Dismiss

155+import Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Get

156+import Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.List

157+import Network.Google.Resource.AccessApproval.Folders.GetAccessApprovalSettings

158+import Network.Google.Resource.AccessApproval.Folders.UpdateAccessApprovalSettings

159+import Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Approve

160+import Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Dismiss

161+import Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Get

162+import Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.List

163+import Network.Google.Resource.AccessApproval.Organizations.GetAccessApprovalSettings

164+import Network.Google.Resource.AccessApproval.Organizations.UpdateAccessApprovalSettings

165+import Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Approve

166+import Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Dismiss

167+import Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Get

168+import Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.List

169+import Network.Google.Resource.AccessApproval.Projects.GetAccessApprovalSettings

170+import Network.Google.Resource.AccessApproval.Projects.UpdateAccessApprovalSettings

171+

172+{- $resources

173+TODO

174+-}

175+

176+-- | Represents the entirety of the methods and resources available for the Access Approval API service.

177+type AccessApprovalAPI =

178+ FoldersApprovalRequestsListResource :<|>

179+ FoldersApprovalRequestsGetResource

180+ :<|> FoldersApprovalRequestsApproveResource

181+ :<|> FoldersApprovalRequestsDismissResource

182+ :<|> FoldersUpdateAccessApprovalSettingsResource

183+ :<|> FoldersGetAccessApprovalSettingsResource

184+ :<|> OrganizationsApprovalRequestsListResource

185+ :<|> OrganizationsApprovalRequestsGetResource

186+ :<|> OrganizationsApprovalRequestsApproveResource

187+ :<|> OrganizationsApprovalRequestsDismissResource

188+ :<|>

189+ OrganizationsUpdateAccessApprovalSettingsResource

190+ :<|> OrganizationsGetAccessApprovalSettingsResource

191+ :<|> ProjectsApprovalRequestsListResource

192+ :<|> ProjectsApprovalRequestsGetResource

193+ :<|> ProjectsApprovalRequestsApproveResource

194+ :<|> ProjectsApprovalRequestsDismissResource

195+ :<|> ProjectsUpdateAccessApprovalSettingsResource

196+ :<|> ProjectsGetAccessApprovalSettingsResource

gogol-accessapproval/gen/Network/Google/AccessApproval/Types.hsnew file+100

@@ -0,0 +1,100 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE NoImplicitPrelude #-}

5+{-# LANGUAGE OverloadedStrings #-}

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

9+-- |

10+-- Module : Network.Google.AccessApproval.Types

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

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

14+-- Stability : auto-generated

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

16+--

17+module Network.Google.AccessApproval.Types

18+ (

19+ -- * Service Configuration

20+ accessApprovalService

21+

22+ -- * OAuth Scopes

23+ , cloudPlatformScope

24+

25+ -- * ListApprovalRequestsResponse

26+ , ListApprovalRequestsResponse

27+ , listApprovalRequestsResponse

28+ , larrNextPageToken

29+ , larrApprovalRequests

30+

31+ -- * ApproveDecision

32+ , ApproveDecision

33+ , approveDecision

34+ , adApproveTime

35+ , adExpireTime

36+

37+ -- * AccessLocations

38+ , AccessLocations

39+ , accessLocations

40+ , alPrincipalOfficeCountry

41+ , alPrincipalPhysicalLocationCountry

42+

43+ -- * DismissDecision

44+ , DismissDecision

45+ , dismissDecision

46+ , ddDismissTime

47+

48+ -- * AccessReasonType

49+ , AccessReasonType (..)

50+

51+ -- * AccessApprovalSettings

52+ , AccessApprovalSettings

53+ , accessApprovalSettings

54+ , aasName

55+ , aasNotificationEmails

56+

57+ -- * ApprovalRequest

58+ , ApprovalRequest

59+ , approvalRequest

60+ , arRequestedResourceName

61+ , arRequestedExpiration

62+ , arRequestTime

63+ , arRequestedReason

64+ , arName

65+ , arApprove

66+ , arDismiss

67+ , arRequestedLocations

68+

69+ -- * DismissApprovalRequestMessage

70+ , DismissApprovalRequestMessage

71+ , dismissApprovalRequestMessage

72+

73+ -- * Xgafv

74+ , Xgafv (..)

75+

76+ -- * ApproveApprovalRequestMessage

77+ , ApproveApprovalRequestMessage

78+ , approveApprovalRequestMessage

79+ , aarmExpireTime

80+

81+ -- * AccessReason

82+ , AccessReason

83+ , accessReason

84+ , arType

85+ , arDetail

86+ ) where

87+

88+import Network.Google.AccessApproval.Types.Product

89+import Network.Google.AccessApproval.Types.Sum

90+import Network.Google.Prelude

91+

92+-- | Default request referring to version 'v1beta1' of the Access Approval API. This contains the host and root path used as a starting point for constructing service requests.

93+accessApprovalService :: ServiceConfig

94+accessApprovalService

95+ = defaultService (ServiceId "accessapproval:v1beta1")

96+ "accessapproval.googleapis.com"

97+

98+-- | View and manage your data across Google Cloud Platform services

99+cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"]

100+cloudPlatformScope = Proxy

gogol-accessapproval/gen/Network/Google/AccessApproval/Types/Product.hsnew file+546

@@ -0,0 +1,546 @@

1+{-# LANGUAGE DeriveDataTypeable #-}

2+{-# LANGUAGE DeriveGeneric #-}

3+{-# LANGUAGE NoImplicitPrelude #-}

4+{-# LANGUAGE OverloadedStrings #-}

5+{-# LANGUAGE RecordWildCards #-}

7+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

10+-- |

11+-- Module : Network.Google.AccessApproval.Types.Product

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

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

15+-- Stability : auto-generated

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

17+--

18+module Network.Google.AccessApproval.Types.Product where

19+

20+import Network.Google.AccessApproval.Types.Sum

21+import Network.Google.Prelude

22+

23+-- | Response to listing of ApprovalRequest objects.

24+--

25+-- /See:/ 'listApprovalRequestsResponse' smart constructor.

26+data ListApprovalRequestsResponse =

27+ ListApprovalRequestsResponse'

28+ { _larrNextPageToken :: !(Maybe Text)

29+ , _larrApprovalRequests :: !(Maybe [ApprovalRequest])

30+ }

31+ deriving (Eq, Show, Data, Typeable, Generic)

32+

33+

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

35+--

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

37+--

38+-- * 'larrNextPageToken'

39+--

40+-- * 'larrApprovalRequests'

41+listApprovalRequestsResponse

42+ :: ListApprovalRequestsResponse

43+listApprovalRequestsResponse =

44+ ListApprovalRequestsResponse'

45+ {_larrNextPageToken = Nothing, _larrApprovalRequests = Nothing}

46+

47+

48+-- | Token to retrieve the next page of results, or empty if there are no

49+-- more.

50+larrNextPageToken :: Lens' ListApprovalRequestsResponse (Maybe Text)

51+larrNextPageToken

52+ = lens _larrNextPageToken

53+ (\ s a -> s{_larrNextPageToken = a})

54+

55+-- | Approval request details.

56+larrApprovalRequests :: Lens' ListApprovalRequestsResponse [ApprovalRequest]

57+larrApprovalRequests

58+ = lens _larrApprovalRequests

59+ (\ s a -> s{_larrApprovalRequests = a})

60+ . _Default

61+ . _Coerce

62+

63+instance FromJSON ListApprovalRequestsResponse where

64+ parseJSON

65+ = withObject "ListApprovalRequestsResponse"

66+ (\ o ->

67+ ListApprovalRequestsResponse' <$>

68+ (o .:? "nextPageToken") <*>

69+ (o .:? "approvalRequests" .!= mempty))

70+

71+instance ToJSON ListApprovalRequestsResponse where

72+ toJSON ListApprovalRequestsResponse'{..}

73+ = object

74+ (catMaybes

75+ [("nextPageToken" .=) <$> _larrNextPageToken,

76+ ("approvalRequests" .=) <$> _larrApprovalRequests])

77+

78+-- | A decision that has been made to approve access to a resource.

79+--

80+-- /See:/ 'approveDecision' smart constructor.

81+data ApproveDecision =

82+ ApproveDecision'

83+ { _adApproveTime :: !(Maybe DateTime')

84+ , _adExpireTime :: !(Maybe DateTime')

85+ }

86+ deriving (Eq, Show, Data, Typeable, Generic)

87+

88+

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

90+--

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

92+--

93+-- * 'adApproveTime'

94+--

95+-- * 'adExpireTime'

96+approveDecision

97+ :: ApproveDecision

98+approveDecision =

99+ ApproveDecision' {_adApproveTime = Nothing, _adExpireTime = Nothing}

100+

101+

102+-- | The time at which approval was granted.

103+adApproveTime :: Lens' ApproveDecision (Maybe UTCTime)

104+adApproveTime

105+ = lens _adApproveTime

106+ (\ s a -> s{_adApproveTime = a})

107+ . mapping _DateTime

108+

109+-- | The time at which the approval expires.

110+adExpireTime :: Lens' ApproveDecision (Maybe UTCTime)

111+adExpireTime

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

113+ . mapping _DateTime

114+

115+instance FromJSON ApproveDecision where

116+ parseJSON

117+ = withObject "ApproveDecision"

118+ (\ o ->

119+ ApproveDecision' <$>

120+ (o .:? "approveTime") <*> (o .:? "expireTime"))

121+

122+instance ToJSON ApproveDecision where

123+ toJSON ApproveDecision'{..}

124+ = object

125+ (catMaybes

126+ [("approveTime" .=) <$> _adApproveTime,

127+ ("expireTime" .=) <$> _adExpireTime])

128+

129+-- | Home office and physical location of the principal.

130+--

131+-- /See:/ 'accessLocations' smart constructor.

132+data AccessLocations =

133+ AccessLocations'

134+ { _alPrincipalOfficeCountry :: !(Maybe Text)

135+ , _alPrincipalPhysicalLocationCountry :: !(Maybe Text)

136+ }

137+ deriving (Eq, Show, Data, Typeable, Generic)

138+

139+

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

141+--

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

143+--

144+-- * 'alPrincipalOfficeCountry'

145+--

146+-- * 'alPrincipalPhysicalLocationCountry'

147+accessLocations

148+ :: AccessLocations

149+accessLocations =

150+ AccessLocations'

151+ { _alPrincipalOfficeCountry = Nothing

152+ , _alPrincipalPhysicalLocationCountry = Nothing

153+ }

154+

155+

156+-- | The \"home office\" location of the principal. A two-letter country code

157+-- (ISO 3166-1 alpha-2), such as \"US\", \"DE\" or \"GB\" or a region code.

158+-- In some limited situations Google systems may refer refer to a region

159+-- code instead of a country code. Possible Region Codes:

160+--

161+-- 1. ASI: Asia

162+-- 2. EUR: Europe

163+-- 3. OCE: Oceania

164+-- 4. AFR: Africa

165+-- 5. NAM: North America

166+-- 6. SAM: South America

167+-- 7. ANT: Antarctica

168+-- 8. ANY: Any location

169+alPrincipalOfficeCountry :: Lens' AccessLocations (Maybe Text)

170+alPrincipalOfficeCountry

171+ = lens _alPrincipalOfficeCountry

172+ (\ s a -> s{_alPrincipalOfficeCountry = a})

173+

174+-- | Physical location of the principal at the time of the access. A

175+-- two-letter country code (ISO 3166-1 alpha-2), such as \"US\", \"DE\" or

176+-- \"GB\" or a region code. In some limited situations Google systems may

177+-- refer refer to a region code instead of a country code. Possible Region

178+-- Codes:

179+--

180+-- 1. ASI: Asia

181+-- 2. EUR: Europe

182+-- 3. OCE: Oceania

183+-- 4. AFR: Africa

184+-- 5. NAM: North America

185+-- 6. SAM: South America

186+-- 7. ANT: Antarctica

187+-- 8. ANY: Any location

188+alPrincipalPhysicalLocationCountry :: Lens' AccessLocations (Maybe Text)

189+alPrincipalPhysicalLocationCountry

190+ = lens _alPrincipalPhysicalLocationCountry

191+ (\ s a -> s{_alPrincipalPhysicalLocationCountry = a})

192+

193+instance FromJSON AccessLocations where

194+ parseJSON

195+ = withObject "AccessLocations"

196+ (\ o ->

197+ AccessLocations' <$>

198+ (o .:? "principalOfficeCountry") <*>

199+ (o .:? "principalPhysicalLocationCountry"))

200+

201+instance ToJSON AccessLocations where

202+ toJSON AccessLocations'{..}

203+ = object

204+ (catMaybes

205+ [("principalOfficeCountry" .=) <$>

206+ _alPrincipalOfficeCountry,

207+ ("principalPhysicalLocationCountry" .=) <$>

208+ _alPrincipalPhysicalLocationCountry])

209+

210+-- | A decision that has been made to dismiss an approval request.

211+--

212+-- /See:/ 'dismissDecision' smart constructor.

213+newtype DismissDecision =

214+ DismissDecision'

215+ { _ddDismissTime :: Maybe DateTime'

216+ }

217+ deriving (Eq, Show, Data, Typeable, Generic)

218+

219+

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

221+--

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

223+--

224+-- * 'ddDismissTime'

225+dismissDecision

226+ :: DismissDecision

227+dismissDecision = DismissDecision' {_ddDismissTime = Nothing}

228+

229+

230+-- | The time at which the approval request was dismissed.

231+ddDismissTime :: Lens' DismissDecision (Maybe UTCTime)

232+ddDismissTime

233+ = lens _ddDismissTime

234+ (\ s a -> s{_ddDismissTime = a})

235+ . mapping _DateTime

236+

237+instance FromJSON DismissDecision where

238+ parseJSON

239+ = withObject "DismissDecision"

240+ (\ o -> DismissDecision' <$> (o .:? "dismissTime"))

241+

242+instance ToJSON DismissDecision where

243+ toJSON DismissDecision'{..}

244+ = object

245+ (catMaybes [("dismissTime" .=) <$> _ddDismissTime])

246+

247+-- | Settings on a Project\/Folder\/Organization related to Access Approval.

248+--

249+-- /See:/ 'accessApprovalSettings' smart constructor.

250+data AccessApprovalSettings =

251+ AccessApprovalSettings'

252+ { _aasName :: !(Maybe Text)

253+ , _aasNotificationEmails :: !(Maybe [Text])

254+ }

255+ deriving (Eq, Show, Data, Typeable, Generic)

256+

257+

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

259+--

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

261+--

262+-- * 'aasName'

263+--

264+-- * 'aasNotificationEmails'

265+accessApprovalSettings

266+ :: AccessApprovalSettings

267+accessApprovalSettings =

268+ AccessApprovalSettings' {_aasName = Nothing, _aasNotificationEmails = Nothing}

269+

270+

271+-- | The resource name of the settings. Format is one of:

272+-- \"projects\/{project_id}\/accessApprovalSettings\"

273+-- \"folders\/{folder_id}\/accessApprovalSettings\"

274+-- \"organizations\/{organization_id}\/accessApprovalSettings\"

275+aasName :: Lens' AccessApprovalSettings (Maybe Text)

276+aasName = lens _aasName (\ s a -> s{_aasName = a})

277+

278+-- | A list of email addresses to which notifications relating to approval

279+-- requests should be sent. Notifications relating to a resource will be

280+-- sent to all emails in the settings of ancestor resources of that

281+-- resource.

282+aasNotificationEmails :: Lens' AccessApprovalSettings [Text]

283+aasNotificationEmails

284+ = lens _aasNotificationEmails

285+ (\ s a -> s{_aasNotificationEmails = a})

286+ . _Default

287+ . _Coerce

288+

289+instance FromJSON AccessApprovalSettings where

290+ parseJSON

291+ = withObject "AccessApprovalSettings"

292+ (\ o ->

293+ AccessApprovalSettings' <$>

294+ (o .:? "name") <*>

295+ (o .:? "notificationEmails" .!= mempty))

296+

297+instance ToJSON AccessApprovalSettings where

298+ toJSON AccessApprovalSettings'{..}

299+ = object

300+ (catMaybes

301+ [("name" .=) <$> _aasName,

302+ ("notificationEmails" .=) <$>

303+ _aasNotificationEmails])

304+

305+-- | A request for the customer to approve access to a resource.

306+--

307+-- /See:/ 'approvalRequest' smart constructor.

308+data ApprovalRequest =

309+ ApprovalRequest'

310+ { _arRequestedResourceName :: !(Maybe Text)

311+ , _arRequestedExpiration :: !(Maybe DateTime')

312+ , _arRequestTime :: !(Maybe DateTime')

313+ , _arRequestedReason :: !(Maybe AccessReason)

314+ , _arName :: !(Maybe Text)

315+ , _arApprove :: !(Maybe ApproveDecision)

316+ , _arDismiss :: !(Maybe DismissDecision)

317+ , _arRequestedLocations :: !(Maybe AccessLocations)

318+ }

319+ deriving (Eq, Show, Data, Typeable, Generic)

320+

321+

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

323+--

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

325+--

326+-- * 'arRequestedResourceName'

327+--

328+-- * 'arRequestedExpiration'

329+--

330+-- * 'arRequestTime'

331+--

332+-- * 'arRequestedReason'

333+--

334+-- * 'arName'

335+--

336+-- * 'arApprove'

337+--

338+-- * 'arDismiss'

339+--

340+-- * 'arRequestedLocations'

341+approvalRequest

342+ :: ApprovalRequest

343+approvalRequest =

344+ ApprovalRequest'

345+ { _arRequestedResourceName = Nothing

346+ , _arRequestedExpiration = Nothing

347+ , _arRequestTime = Nothing

348+ , _arRequestedReason = Nothing

349+ , _arName = Nothing

350+ , _arApprove = Nothing

351+ , _arDismiss = Nothing

352+ , _arRequestedLocations = Nothing

353+ }

354+

355+

356+-- | The resource for which approval is being requested. The format of the

357+-- resource name is defined at

358+-- https:\/\/cloud.google.com\/apis\/design\/resource_names. The resource

359+-- name here may either be a \"full\" resource name (e.g.

360+-- \"\/\/library.googleapis.com\/shelves\/shelf1\/books\/book2\") or a

361+-- \"relative\" resource name (e.g. \"shelves\/shelf1\/books\/book2\") as

362+-- described in the resource name specification.

363+arRequestedResourceName :: Lens' ApprovalRequest (Maybe Text)

364+arRequestedResourceName

365+ = lens _arRequestedResourceName

366+ (\ s a -> s{_arRequestedResourceName = a})

367+

368+-- | The requested expiration for the approval. If the request is approved,

369+-- access will be granted from the time of approval until the expiration

370+-- time.

371+arRequestedExpiration :: Lens' ApprovalRequest (Maybe UTCTime)

372+arRequestedExpiration

373+ = lens _arRequestedExpiration

374+ (\ s a -> s{_arRequestedExpiration = a})

375+ . mapping _DateTime

376+

377+-- | The time at which approval was requested.

378+arRequestTime :: Lens' ApprovalRequest (Maybe UTCTime)

379+arRequestTime

380+ = lens _arRequestTime

381+ (\ s a -> s{_arRequestTime = a})

382+ . mapping _DateTime

383+

384+-- | The justification for which approval is being requested.

385+arRequestedReason :: Lens' ApprovalRequest (Maybe AccessReason)

386+arRequestedReason

387+ = lens _arRequestedReason

388+ (\ s a -> s{_arRequestedReason = a})

389+

390+-- | The resource name of the request. Format is

391+-- \"{projects|folders|organizations}\/{id}\/approvalRequests\/{approval_request_id}\".

392+arName :: Lens' ApprovalRequest (Maybe Text)

393+arName = lens _arName (\ s a -> s{_arName = a})

394+

395+-- | Access was approved.

396+arApprove :: Lens' ApprovalRequest (Maybe ApproveDecision)

397+arApprove

398+ = lens _arApprove (\ s a -> s{_arApprove = a})

399+

400+-- | The request was dismissed.

401+arDismiss :: Lens' ApprovalRequest (Maybe DismissDecision)

402+arDismiss

403+ = lens _arDismiss (\ s a -> s{_arDismiss = a})

404+

405+-- | The locations for which approval is being requested.

406+arRequestedLocations :: Lens' ApprovalRequest (Maybe AccessLocations)

407+arRequestedLocations

408+ = lens _arRequestedLocations

409+ (\ s a -> s{_arRequestedLocations = a})

410+

411+instance FromJSON ApprovalRequest where

412+ parseJSON

413+ = withObject "ApprovalRequest"

414+ (\ o ->

415+ ApprovalRequest' <$>

416+ (o .:? "requestedResourceName") <*>

417+ (o .:? "requestedExpiration")

418+ <*> (o .:? "requestTime")

419+ <*> (o .:? "requestedReason")

420+ <*> (o .:? "name")

421+ <*> (o .:? "approve")

422+ <*> (o .:? "dismiss")

423+ <*> (o .:? "requestedLocations"))

424+

425+instance ToJSON ApprovalRequest where

426+ toJSON ApprovalRequest'{..}

427+ = object

428+ (catMaybes

429+ [("requestedResourceName" .=) <$>

430+ _arRequestedResourceName,

431+ ("requestedExpiration" .=) <$>

432+ _arRequestedExpiration,

433+ ("requestTime" .=) <$> _arRequestTime,

434+ ("requestedReason" .=) <$> _arRequestedReason,

435+ ("name" .=) <$> _arName,

436+ ("approve" .=) <$> _arApprove,

437+ ("dismiss" .=) <$> _arDismiss,

438+ ("requestedLocations" .=) <$> _arRequestedLocations])

439+

440+-- | Request to dismiss an approval request.

441+--

442+-- /See:/ 'dismissApprovalRequestMessage' smart constructor.

443+data DismissApprovalRequestMessage =

444+ DismissApprovalRequestMessage'

445+ deriving (Eq, Show, Data, Typeable, Generic)

446+

447+

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

449+--

450+dismissApprovalRequestMessage

451+ :: DismissApprovalRequestMessage

452+dismissApprovalRequestMessage = DismissApprovalRequestMessage'

453+

454+

455+instance FromJSON DismissApprovalRequestMessage where

456+ parseJSON

457+ = withObject "DismissApprovalRequestMessage"

458+ (\ o -> pure DismissApprovalRequestMessage')

459+

460+instance ToJSON DismissApprovalRequestMessage where

461+ toJSON = const emptyObject

462+

463+-- | Request to approve an ApprovalRequest.

464+--

465+-- /See:/ 'approveApprovalRequestMessage' smart constructor.

466+newtype ApproveApprovalRequestMessage =

467+ ApproveApprovalRequestMessage'

468+ { _aarmExpireTime :: Maybe DateTime'

469+ }

470+ deriving (Eq, Show, Data, Typeable, Generic)

471+

472+

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

474+--

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

476+--

477+-- * 'aarmExpireTime'

478+approveApprovalRequestMessage

479+ :: ApproveApprovalRequestMessage

480+approveApprovalRequestMessage =

481+ ApproveApprovalRequestMessage' {_aarmExpireTime = Nothing}

482+

483+

484+-- | The expiration time of this approval.

485+aarmExpireTime :: Lens' ApproveApprovalRequestMessage (Maybe UTCTime)

486+aarmExpireTime

487+ = lens _aarmExpireTime

488+ (\ s a -> s{_aarmExpireTime = a})

489+ . mapping _DateTime

490+

491+instance FromJSON ApproveApprovalRequestMessage where

492+ parseJSON

493+ = withObject "ApproveApprovalRequestMessage"

494+ (\ o ->

495+ ApproveApprovalRequestMessage' <$>

496+ (o .:? "expireTime"))

497+

498+instance ToJSON ApproveApprovalRequestMessage where

499+ toJSON ApproveApprovalRequestMessage'{..}

500+ = object

501+ (catMaybes [("expireTime" .=) <$> _aarmExpireTime])

502+

503+--

504+-- /See:/ 'accessReason' smart constructor.

505+data AccessReason =

506+ AccessReason'

507+ { _arType :: !(Maybe AccessReasonType)

508+ , _arDetail :: !(Maybe Text)

509+ }

510+ deriving (Eq, Show, Data, Typeable, Generic)

511+

512+

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

514+--

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

516+--

517+-- * 'arType'

518+--

519+-- * 'arDetail'

520+accessReason

521+ :: AccessReason

522+accessReason = AccessReason' {_arType = Nothing, _arDetail = Nothing}

523+

524+

525+-- | Type of access justification.

526+arType :: Lens' AccessReason (Maybe AccessReasonType)

527+arType = lens _arType (\ s a -> s{_arType = a})

528+

529+-- | More detail about certain reason types. See comments for each type

530+-- above.

531+arDetail :: Lens' AccessReason (Maybe Text)

532+arDetail = lens _arDetail (\ s a -> s{_arDetail = a})

533+

534+instance FromJSON AccessReason where

535+ parseJSON

536+ = withObject "AccessReason"

537+ (\ o ->

538+ AccessReason' <$>

539+ (o .:? "type") <*> (o .:? "detail"))

540+

541+instance ToJSON AccessReason where

542+ toJSON AccessReason'{..}

543+ = object

544+ (catMaybes

545+ [("type" .=) <$> _arType,

546+ ("detail" .=) <$> _arDetail])

gogol-accessapproval/gen/Network/Google/AccessApproval/Types/Sum.hsnew file+100

@@ -0,0 +1,100 @@

1+{-# LANGUAGE DeriveDataTypeable #-}

2+{-# LANGUAGE DeriveGeneric #-}

3+{-# LANGUAGE LambdaCase #-}

4+{-# LANGUAGE NoImplicitPrelude #-}

5+{-# LANGUAGE OverloadedStrings #-}

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

9+-- |

10+-- Module : Network.Google.AccessApproval.Types.Sum

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

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

14+-- Stability : auto-generated

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

16+--

17+module Network.Google.AccessApproval.Types.Sum where

18+

19+import Network.Google.Prelude hiding (Bytes)

20+

21+-- | Type of access justification.

22+data AccessReasonType

23+ = TypeUnspecified

24+ -- ^ @TYPE_UNSPECIFIED@

25+ -- Default value for proto, shouldn\'t be used.

26+ | CustomerInitiatedSupport

27+ -- ^ @CUSTOMER_INITIATED_SUPPORT@

28+ -- Customer made a request or raised an issue that required the principal

29+ -- to access customer data. \`detail\` is of the form (\"#####\" is the

30+ -- issue ID):

31+ --

32+ -- 1. \"Feedback Report: #####\"

33+ -- 2. \"Case Number: #####\"

34+ -- 3. \"Case ID: #####\"

35+ -- 4. \"E-PIN Reference: #####\"

36+ -- 5. \"Google-#####\"

37+ -- 6. \"T-#####\"

38+ | GoogleInitiatedService

39+ -- ^ @GOOGLE_INITIATED_SERVICE@

40+ -- The principal accessed customer data in order to diagnose or resolve a

41+ -- suspected issue in services or a known outage. Often this access is used

42+ -- to confirm that customers are not affected by a suspected service issue

43+ -- or to remediate a reversible system issue.

44+ | GoogleInitiatedReview

45+ -- ^ @GOOGLE_INITIATED_REVIEW@

46+ -- Google initiated service for security, fraud, abuse, or compliance

47+ -- purposes.

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

49+

50+instance Hashable AccessReasonType

51+

52+instance FromHttpApiData AccessReasonType where

53+ parseQueryParam = \case

54+ "TYPE_UNSPECIFIED" -> Right TypeUnspecified

55+ "CUSTOMER_INITIATED_SUPPORT" -> Right CustomerInitiatedSupport

56+ "GOOGLE_INITIATED_SERVICE" -> Right GoogleInitiatedService

57+ "GOOGLE_INITIATED_REVIEW" -> Right GoogleInitiatedReview

58+ x -> Left ("Unable to parse AccessReasonType from: " <> x)

59+

60+instance ToHttpApiData AccessReasonType where

61+ toQueryParam = \case

62+ TypeUnspecified -> "TYPE_UNSPECIFIED"

63+ CustomerInitiatedSupport -> "CUSTOMER_INITIATED_SUPPORT"

64+ GoogleInitiatedService -> "GOOGLE_INITIATED_SERVICE"

65+ GoogleInitiatedReview -> "GOOGLE_INITIATED_REVIEW"

66+

67+instance FromJSON AccessReasonType where

68+ parseJSON = parseJSONText "AccessReasonType"

69+

70+instance ToJSON AccessReasonType where

71+ toJSON = toJSONText

72+

73+-- | V1 error format.

74+data Xgafv

75+ = X1

76+ -- ^ @1@

77+ -- v1 error format

78+ | X2

79+ -- ^ @2@

80+ -- v2 error format

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

82+

83+instance Hashable Xgafv

84+

85+instance FromHttpApiData Xgafv where

86+ parseQueryParam = \case

87+ "1" -> Right X1

88+ "2" -> Right X2

89+ x -> Left ("Unable to parse Xgafv from: " <> x)

90+

91+instance ToHttpApiData Xgafv where

92+ toQueryParam = \case

93+ X1 -> "1"

94+ X2 -> "2"

95+

96+instance FromJSON Xgafv where

97+ parseJSON = parseJSONText "Xgafv"

98+

99+instance ToJSON Xgafv where

100+ toJSON = toJSONText

gogol-accessapproval/gen/Network/Google/Resource/AccessApproval/Folders/ApprovalRequests/Approve.hsnew file+170

@@ -0,0 +1,170 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Approve

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Approves a request and returns the updated ApprovalRequest. Returns

24+-- NOT_FOUND if the request does not exist. Returns FAILED_PRECONDITION if

25+-- the request exists but is not in a pending state.

26+--

27+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.folders.approvalRequests.approve@.

28+module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Approve

29+ (

30+ -- * REST Resource

31+ FoldersApprovalRequestsApproveResource

32+

33+ -- * Creating a Request

34+ , foldersApprovalRequestsApprove

35+ , FoldersApprovalRequestsApprove

36+

37+ -- * Request Lenses

38+ , faraXgafv

39+ , faraUploadProtocol

40+ , faraAccessToken

41+ , faraUploadType

42+ , faraPayload

43+ , faraName

44+ , faraCallback

45+ ) where

46+

47+import Network.Google.AccessApproval.Types

48+import Network.Google.Prelude

49+

50+-- | A resource alias for @accessapproval.folders.approvalRequests.approve@ method which the

51+-- 'FoldersApprovalRequestsApprove' request conforms to.

52+type FoldersApprovalRequestsApproveResource =

53+ "v1beta1" :>

54+ CaptureMode "name" "approve" Text :>

55+ QueryParam "$.xgafv" Xgafv :>

56+ QueryParam "upload_protocol" Text :>

57+ QueryParam "access_token" Text :>

58+ QueryParam "uploadType" Text :>

59+ QueryParam "callback" Text :>

60+ QueryParam "alt" AltJSON :>

61+ ReqBody '[JSON] ApproveApprovalRequestMessage :>

62+ Post '[JSON] ApprovalRequest

63+

64+-- | Approves a request and returns the updated ApprovalRequest. Returns

65+-- NOT_FOUND if the request does not exist. Returns FAILED_PRECONDITION if

66+-- the request exists but is not in a pending state.

67+--

68+-- /See:/ 'foldersApprovalRequestsApprove' smart constructor.

69+data FoldersApprovalRequestsApprove =

70+ FoldersApprovalRequestsApprove'

71+ { _faraXgafv :: !(Maybe Xgafv)

72+ , _faraUploadProtocol :: !(Maybe Text)

73+ , _faraAccessToken :: !(Maybe Text)

74+ , _faraUploadType :: !(Maybe Text)

75+ , _faraPayload :: !ApproveApprovalRequestMessage

76+ , _faraName :: !Text

77+ , _faraCallback :: !(Maybe Text)

78+ }

79+ deriving (Eq, Show, Data, Typeable, Generic)

80+

81+

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

83+--

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

85+--

86+-- * 'faraXgafv'

87+--

88+-- * 'faraUploadProtocol'

89+--

90+-- * 'faraAccessToken'

91+--

92+-- * 'faraUploadType'

93+--

94+-- * 'faraPayload'

95+--

96+-- * 'faraName'

97+--

98+-- * 'faraCallback'

99+foldersApprovalRequestsApprove

100+ :: ApproveApprovalRequestMessage -- ^ 'faraPayload'

101+ -> Text -- ^ 'faraName'

102+ -> FoldersApprovalRequestsApprove

103+foldersApprovalRequestsApprove pFaraPayload_ pFaraName_ =

104+ FoldersApprovalRequestsApprove'

105+ { _faraXgafv = Nothing

106+ , _faraUploadProtocol = Nothing

107+ , _faraAccessToken = Nothing

108+ , _faraUploadType = Nothing

109+ , _faraPayload = pFaraPayload_

110+ , _faraName = pFaraName_

111+ , _faraCallback = Nothing

112+ }

113+

114+

115+-- | V1 error format.

116+faraXgafv :: Lens' FoldersApprovalRequestsApprove (Maybe Xgafv)

117+faraXgafv

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

119+

120+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

121+faraUploadProtocol :: Lens' FoldersApprovalRequestsApprove (Maybe Text)

122+faraUploadProtocol

123+ = lens _faraUploadProtocol

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

125+

126+-- | OAuth access token.

127+faraAccessToken :: Lens' FoldersApprovalRequestsApprove (Maybe Text)

128+faraAccessToken

129+ = lens _faraAccessToken

130+ (\ s a -> s{_faraAccessToken = a})

131+

132+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

133+faraUploadType :: Lens' FoldersApprovalRequestsApprove (Maybe Text)

134+faraUploadType

135+ = lens _faraUploadType

136+ (\ s a -> s{_faraUploadType = a})

137+

138+-- | Multipart request metadata.

139+faraPayload :: Lens' FoldersApprovalRequestsApprove ApproveApprovalRequestMessage

140+faraPayload

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

142+

143+-- | Name of the approval request to approve.

144+faraName :: Lens' FoldersApprovalRequestsApprove Text

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

146+

147+-- | JSONP

148+faraCallback :: Lens' FoldersApprovalRequestsApprove (Maybe Text)

149+faraCallback

150+ = lens _faraCallback (\ s a -> s{_faraCallback = a})

151+

152+instance GoogleRequest FoldersApprovalRequestsApprove

153+ where

154+ type Rs FoldersApprovalRequestsApprove =

155+ ApprovalRequest

156+ type Scopes FoldersApprovalRequestsApprove =

157+ '["https://www.googleapis.com/auth/cloud-platform"]

158+ requestClient FoldersApprovalRequestsApprove'{..}

159+ = go _faraName _faraXgafv _faraUploadProtocol

160+ _faraAccessToken

161+ _faraUploadType

162+ _faraCallback

163+ (Just AltJSON)

164+ _faraPayload

165+ accessApprovalService

166+ where go

167+ = buildClient

168+ (Proxy ::

169+ Proxy FoldersApprovalRequestsApproveResource)

170+ mempty

gogol-accessapproval/gen/Network/Google/Resource/AccessApproval/Folders/ApprovalRequests/Dismiss.hsnew file+174

@@ -0,0 +1,174 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Dismiss

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Dismisses a request. Returns the updated ApprovalRequest. NOTE: This

24+-- does not deny access to the resource if another request has been made

25+-- and approved. It is equivalent in effect to ignoring the request

26+-- altogether. Returns NOT_FOUND if the request does not exist. Returns

27+-- FAILED_PRECONDITION if the request exists but is not in a pending state.

28+--

29+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.folders.approvalRequests.dismiss@.

30+module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Dismiss

31+ (

32+ -- * REST Resource

33+ FoldersApprovalRequestsDismissResource

34+

35+ -- * Creating a Request

36+ , foldersApprovalRequestsDismiss

37+ , FoldersApprovalRequestsDismiss

38+

39+ -- * Request Lenses

40+ , fardXgafv

41+ , fardUploadProtocol

42+ , fardAccessToken

43+ , fardUploadType

44+ , fardPayload

45+ , fardName

46+ , fardCallback

47+ ) where

48+

49+import Network.Google.AccessApproval.Types

50+import Network.Google.Prelude

51+

52+-- | A resource alias for @accessapproval.folders.approvalRequests.dismiss@ method which the

53+-- 'FoldersApprovalRequestsDismiss' request conforms to.

54+type FoldersApprovalRequestsDismissResource =

55+ "v1beta1" :>

56+ CaptureMode "name" "dismiss" Text :>

57+ QueryParam "$.xgafv" Xgafv :>

58+ QueryParam "upload_protocol" Text :>

59+ QueryParam "access_token" Text :>

60+ QueryParam "uploadType" Text :>

61+ QueryParam "callback" Text :>

62+ QueryParam "alt" AltJSON :>

63+ ReqBody '[JSON] DismissApprovalRequestMessage :>

64+ Post '[JSON] ApprovalRequest

65+

66+-- | Dismisses a request. Returns the updated ApprovalRequest. NOTE: This

67+-- does not deny access to the resource if another request has been made

68+-- and approved. It is equivalent in effect to ignoring the request

69+-- altogether. Returns NOT_FOUND if the request does not exist. Returns

70+-- FAILED_PRECONDITION if the request exists but is not in a pending state.

71+--

72+-- /See:/ 'foldersApprovalRequestsDismiss' smart constructor.

73+data FoldersApprovalRequestsDismiss =

74+ FoldersApprovalRequestsDismiss'

75+ { _fardXgafv :: !(Maybe Xgafv)

76+ , _fardUploadProtocol :: !(Maybe Text)

77+ , _fardAccessToken :: !(Maybe Text)

78+ , _fardUploadType :: !(Maybe Text)

79+ , _fardPayload :: !DismissApprovalRequestMessage

80+ , _fardName :: !Text

81+ , _fardCallback :: !(Maybe Text)

82+ }

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

84+

85+

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

87+--

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

89+--

90+-- * 'fardXgafv'

91+--

92+-- * 'fardUploadProtocol'

93+--

94+-- * 'fardAccessToken'

95+--

96+-- * 'fardUploadType'

97+--

98+-- * 'fardPayload'

99+--

100+-- * 'fardName'

101+--

102+-- * 'fardCallback'

103+foldersApprovalRequestsDismiss

104+ :: DismissApprovalRequestMessage -- ^ 'fardPayload'

105+ -> Text -- ^ 'fardName'

106+ -> FoldersApprovalRequestsDismiss

107+foldersApprovalRequestsDismiss pFardPayload_ pFardName_ =

108+ FoldersApprovalRequestsDismiss'

109+ { _fardXgafv = Nothing

110+ , _fardUploadProtocol = Nothing

111+ , _fardAccessToken = Nothing

112+ , _fardUploadType = Nothing

113+ , _fardPayload = pFardPayload_

114+ , _fardName = pFardName_

115+ , _fardCallback = Nothing

116+ }

117+

118+

119+-- | V1 error format.

120+fardXgafv :: Lens' FoldersApprovalRequestsDismiss (Maybe Xgafv)

121+fardXgafv

122+ = lens _fardXgafv (\ s a -> s{_fardXgafv = a})

123+

124+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

125+fardUploadProtocol :: Lens' FoldersApprovalRequestsDismiss (Maybe Text)

126+fardUploadProtocol

127+ = lens _fardUploadProtocol

128+ (\ s a -> s{_fardUploadProtocol = a})

129+

130+-- | OAuth access token.

131+fardAccessToken :: Lens' FoldersApprovalRequestsDismiss (Maybe Text)

132+fardAccessToken

133+ = lens _fardAccessToken

134+ (\ s a -> s{_fardAccessToken = a})

135+

136+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

137+fardUploadType :: Lens' FoldersApprovalRequestsDismiss (Maybe Text)

138+fardUploadType

139+ = lens _fardUploadType

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

141+

142+-- | Multipart request metadata.

143+fardPayload :: Lens' FoldersApprovalRequestsDismiss DismissApprovalRequestMessage

144+fardPayload

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

146+

147+-- | Name of the ApprovalRequest to dismiss.

148+fardName :: Lens' FoldersApprovalRequestsDismiss Text

149+fardName = lens _fardName (\ s a -> s{_fardName = a})

150+

151+-- | JSONP

152+fardCallback :: Lens' FoldersApprovalRequestsDismiss (Maybe Text)

153+fardCallback

154+ = lens _fardCallback (\ s a -> s{_fardCallback = a})

155+

156+instance GoogleRequest FoldersApprovalRequestsDismiss

157+ where

158+ type Rs FoldersApprovalRequestsDismiss =

159+ ApprovalRequest

160+ type Scopes FoldersApprovalRequestsDismiss =

161+ '["https://www.googleapis.com/auth/cloud-platform"]

162+ requestClient FoldersApprovalRequestsDismiss'{..}

163+ = go _fardName _fardXgafv _fardUploadProtocol

164+ _fardAccessToken

165+ _fardUploadType

166+ _fardCallback

167+ (Just AltJSON)

168+ _fardPayload

169+ accessApprovalService

170+ where go

171+ = buildClient

172+ (Proxy ::

173+ Proxy FoldersApprovalRequestsDismissResource)

174+ mempty

gogol-accessapproval/gen/Network/Google/Resource/AccessApproval/Folders/ApprovalRequests/Get.hsnew file+153

@@ -0,0 +1,153 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Get

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Gets an approval request. Returns NOT_FOUND if the request does not

24+-- exist.

25+--

26+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.folders.approvalRequests.get@.

27+module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Get

28+ (

29+ -- * REST Resource

30+ FoldersApprovalRequestsGetResource

31+

32+ -- * Creating a Request

33+ , foldersApprovalRequestsGet

34+ , FoldersApprovalRequestsGet

35+

36+ -- * Request Lenses

37+ , fargXgafv

38+ , fargUploadProtocol

39+ , fargAccessToken

40+ , fargUploadType

41+ , fargName

42+ , fargCallback

43+ ) where

44+

45+import Network.Google.AccessApproval.Types

46+import Network.Google.Prelude

47+

48+-- | A resource alias for @accessapproval.folders.approvalRequests.get@ method which the

49+-- 'FoldersApprovalRequestsGet' request conforms to.

50+type FoldersApprovalRequestsGetResource =

51+ "v1beta1" :>

52+ Capture "name" Text :>

53+ QueryParam "$.xgafv" Xgafv :>

54+ QueryParam "upload_protocol" Text :>

55+ QueryParam "access_token" Text :>

56+ QueryParam "uploadType" Text :>

57+ QueryParam "callback" Text :>

58+ QueryParam "alt" AltJSON :>

59+ Get '[JSON] ApprovalRequest

60+

61+-- | Gets an approval request. Returns NOT_FOUND if the request does not

62+-- exist.

63+--

64+-- /See:/ 'foldersApprovalRequestsGet' smart constructor.

65+data FoldersApprovalRequestsGet =

66+ FoldersApprovalRequestsGet'

67+ { _fargXgafv :: !(Maybe Xgafv)

68+ , _fargUploadProtocol :: !(Maybe Text)

69+ , _fargAccessToken :: !(Maybe Text)

70+ , _fargUploadType :: !(Maybe Text)

71+ , _fargName :: !Text

72+ , _fargCallback :: !(Maybe Text)

73+ }

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

75+

76+

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

78+--

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

80+--

81+-- * 'fargXgafv'

82+--

83+-- * 'fargUploadProtocol'

84+--

85+-- * 'fargAccessToken'

86+--

87+-- * 'fargUploadType'

88+--

89+-- * 'fargName'

90+--

91+-- * 'fargCallback'

92+foldersApprovalRequestsGet

93+ :: Text -- ^ 'fargName'

94+ -> FoldersApprovalRequestsGet

95+foldersApprovalRequestsGet pFargName_ =

96+ FoldersApprovalRequestsGet'

97+ { _fargXgafv = Nothing

98+ , _fargUploadProtocol = Nothing

99+ , _fargAccessToken = Nothing

100+ , _fargUploadType = Nothing

101+ , _fargName = pFargName_

102+ , _fargCallback = Nothing

103+ }

104+

105+

106+-- | V1 error format.

107+fargXgafv :: Lens' FoldersApprovalRequestsGet (Maybe Xgafv)

108+fargXgafv

109+ = lens _fargXgafv (\ s a -> s{_fargXgafv = a})

110+

111+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

112+fargUploadProtocol :: Lens' FoldersApprovalRequestsGet (Maybe Text)

113+fargUploadProtocol

114+ = lens _fargUploadProtocol

115+ (\ s a -> s{_fargUploadProtocol = a})

116+

117+-- | OAuth access token.

118+fargAccessToken :: Lens' FoldersApprovalRequestsGet (Maybe Text)

119+fargAccessToken

120+ = lens _fargAccessToken

121+ (\ s a -> s{_fargAccessToken = a})

122+

123+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

124+fargUploadType :: Lens' FoldersApprovalRequestsGet (Maybe Text)

125+fargUploadType

126+ = lens _fargUploadType

127+ (\ s a -> s{_fargUploadType = a})

128+

129+-- | Name of the approval request to retrieve.

130+fargName :: Lens' FoldersApprovalRequestsGet Text

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

132+

133+-- | JSONP

134+fargCallback :: Lens' FoldersApprovalRequestsGet (Maybe Text)

135+fargCallback

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

137+

138+instance GoogleRequest FoldersApprovalRequestsGet

139+ where

140+ type Rs FoldersApprovalRequestsGet = ApprovalRequest

141+ type Scopes FoldersApprovalRequestsGet =

142+ '["https://www.googleapis.com/auth/cloud-platform"]

143+ requestClient FoldersApprovalRequestsGet'{..}

144+ = go _fargName _fargXgafv _fargUploadProtocol

145+ _fargAccessToken

146+ _fargUploadType

147+ _fargCallback

148+ (Just AltJSON)

149+ accessApprovalService

150+ where go

151+ = buildClient

152+ (Proxy :: Proxy FoldersApprovalRequestsGetResource)

153+ mempty

gogol-accessapproval/gen/Network/Google/Resource/AccessApproval/Folders/ApprovalRequests/List.hsnew file+204

@@ -0,0 +1,204 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.List

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Lists approval requests associated with a project, folder, or

24+-- organization. Approval requests can be filtered by state (pending,

25+-- active, dismissed). The order is reverse chronological.

26+--

27+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.folders.approvalRequests.list@.

28+module Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.List

29+ (

30+ -- * REST Resource

31+ FoldersApprovalRequestsListResource

32+

33+ -- * Creating a Request

34+ , foldersApprovalRequestsList

35+ , FoldersApprovalRequestsList

36+

37+ -- * Request Lenses

38+ , farlParent

39+ , farlXgafv

40+ , farlUploadProtocol

41+ , farlAccessToken

42+ , farlUploadType

43+ , farlFilter

44+ , farlPageToken

45+ , farlPageSize

46+ , farlCallback

47+ ) where

48+

49+import Network.Google.AccessApproval.Types

50+import Network.Google.Prelude

51+

52+-- | A resource alias for @accessapproval.folders.approvalRequests.list@ method which the

53+-- 'FoldersApprovalRequestsList' request conforms to.

54+type FoldersApprovalRequestsListResource =

55+ "v1beta1" :>

56+ Capture "parent" Text :>

57+ "approvalRequests" :>

58+ QueryParam "$.xgafv" Xgafv :>

59+ QueryParam "upload_protocol" Text :>

60+ QueryParam "access_token" Text :>

61+ QueryParam "uploadType" Text :>

62+ QueryParam "filter" Text :>

63+ QueryParam "pageToken" Text :>

64+ QueryParam "pageSize" (Textual Int32) :>

65+ QueryParam "callback" Text :>

66+ QueryParam "alt" AltJSON :>

67+ Get '[JSON] ListApprovalRequestsResponse

68+

69+-- | Lists approval requests associated with a project, folder, or

70+-- organization. Approval requests can be filtered by state (pending,

71+-- active, dismissed). The order is reverse chronological.

72+--

73+-- /See:/ 'foldersApprovalRequestsList' smart constructor.

74+data FoldersApprovalRequestsList =

75+ FoldersApprovalRequestsList'

76+ { _farlParent :: !Text

77+ , _farlXgafv :: !(Maybe Xgafv)

78+ , _farlUploadProtocol :: !(Maybe Text)

79+ , _farlAccessToken :: !(Maybe Text)

80+ , _farlUploadType :: !(Maybe Text)

81+ , _farlFilter :: !(Maybe Text)

82+ , _farlPageToken :: !(Maybe Text)

83+ , _farlPageSize :: !(Maybe (Textual Int32))

84+ , _farlCallback :: !(Maybe Text)

85+ }

86+ deriving (Eq, Show, Data, Typeable, Generic)

87+

88+

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

90+--

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

92+--

93+-- * 'farlParent'

94+--

95+-- * 'farlXgafv'

96+--

97+-- * 'farlUploadProtocol'

98+--

99+-- * 'farlAccessToken'

100+--

101+-- * 'farlUploadType'

102+--

103+-- * 'farlFilter'

104+--

105+-- * 'farlPageToken'

106+--

107+-- * 'farlPageSize'

108+--

109+-- * 'farlCallback'

110+foldersApprovalRequestsList

111+ :: Text -- ^ 'farlParent'

112+ -> FoldersApprovalRequestsList

113+foldersApprovalRequestsList pFarlParent_ =

114+ FoldersApprovalRequestsList'

115+ { _farlParent = pFarlParent_

116+ , _farlXgafv = Nothing

117+ , _farlUploadProtocol = Nothing

118+ , _farlAccessToken = Nothing

119+ , _farlUploadType = Nothing

120+ , _farlFilter = Nothing

121+ , _farlPageToken = Nothing

122+ , _farlPageSize = Nothing

123+ , _farlCallback = Nothing

124+ }

125+

126+

127+-- | The parent resource. This may be \"projects\/{project_id}\",

128+-- \"folders\/{folder_id}\", or \"organizations\/{organization_id}\".

129+farlParent :: Lens' FoldersApprovalRequestsList Text

130+farlParent

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

132+

133+-- | V1 error format.

134+farlXgafv :: Lens' FoldersApprovalRequestsList (Maybe Xgafv)

135+farlXgafv

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

137+

138+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

139+farlUploadProtocol :: Lens' FoldersApprovalRequestsList (Maybe Text)

140+farlUploadProtocol

141+ = lens _farlUploadProtocol

142+ (\ s a -> s{_farlUploadProtocol = a})

143+

144+-- | OAuth access token.

145+farlAccessToken :: Lens' FoldersApprovalRequestsList (Maybe Text)

146+farlAccessToken

147+ = lens _farlAccessToken

148+ (\ s a -> s{_farlAccessToken = a})

149+

150+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

151+farlUploadType :: Lens' FoldersApprovalRequestsList (Maybe Text)

152+farlUploadType

153+ = lens _farlUploadType

154+ (\ s a -> s{_farlUploadType = a})

155+

156+-- | A filter on the type of approval requests to retrieve. Must be one of

157+-- the following values:

158+--

159+-- 1. [not set]: Requests that are pending or have active approvals.

160+-- 2. ALL: All requests.

161+-- 3. PENDING: Only pending requests.

162+-- 4. ACTIVE: Only active (i.e. currently approved) requests.

163+-- 5. DISMISSED: Only dismissed (including expired) requests.

164+farlFilter :: Lens' FoldersApprovalRequestsList (Maybe Text)

165+farlFilter

166+ = lens _farlFilter (\ s a -> s{_farlFilter = a})

167+

168+-- | A token identifying the page of results to return.

169+farlPageToken :: Lens' FoldersApprovalRequestsList (Maybe Text)

170+farlPageToken

171+ = lens _farlPageToken

172+ (\ s a -> s{_farlPageToken = a})

173+

174+-- | Requested page size.

175+farlPageSize :: Lens' FoldersApprovalRequestsList (Maybe Int32)

176+farlPageSize

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

178+ . mapping _Coerce

179+

180+-- | JSONP

181+farlCallback :: Lens' FoldersApprovalRequestsList (Maybe Text)

182+farlCallback

183+ = lens _farlCallback (\ s a -> s{_farlCallback = a})

184+

185+instance GoogleRequest FoldersApprovalRequestsList

186+ where

187+ type Rs FoldersApprovalRequestsList =

188+ ListApprovalRequestsResponse

189+ type Scopes FoldersApprovalRequestsList =

190+ '["https://www.googleapis.com/auth/cloud-platform"]

191+ requestClient FoldersApprovalRequestsList'{..}

192+ = go _farlParent _farlXgafv _farlUploadProtocol

193+ _farlAccessToken

194+ _farlUploadType

195+ _farlFilter

196+ _farlPageToken

197+ _farlPageSize

198+ _farlCallback

199+ (Just AltJSON)

200+ accessApprovalService

201+ where go

202+ = buildClient

203+ (Proxy :: Proxy FoldersApprovalRequestsListResource)

204+ mempty

gogol-accessapproval/gen/Network/Google/Resource/AccessApproval/Folders/GetAccessApprovalSettings.hsnew file+156

@@ -0,0 +1,156 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessApproval.Folders.GetAccessApprovalSettings

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Gets the settings associated with a project, folder, or organization.

24+--

25+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.folders.getAccessApprovalSettings@.

26+module Network.Google.Resource.AccessApproval.Folders.GetAccessApprovalSettings

27+ (

28+ -- * REST Resource

29+ FoldersGetAccessApprovalSettingsResource

30+

31+ -- * Creating a Request

32+ , foldersGetAccessApprovalSettings

33+ , FoldersGetAccessApprovalSettings

34+

35+ -- * Request Lenses

36+ , fgaasXgafv

37+ , fgaasUploadProtocol

38+ , fgaasAccessToken

39+ , fgaasUploadType

40+ , fgaasName

41+ , fgaasCallback

42+ ) where

43+

44+import Network.Google.AccessApproval.Types

45+import Network.Google.Prelude

46+

47+-- | A resource alias for @accessapproval.folders.getAccessApprovalSettings@ method which the

48+-- 'FoldersGetAccessApprovalSettings' request conforms to.

49+type FoldersGetAccessApprovalSettingsResource =

50+ "v1beta1" :>

51+ Capture "name" Text :>

52+ QueryParam "$.xgafv" Xgafv :>

53+ QueryParam "upload_protocol" Text :>

54+ QueryParam "access_token" Text :>

55+ QueryParam "uploadType" Text :>

56+ QueryParam "callback" Text :>

57+ QueryParam "alt" AltJSON :>

58+ Get '[JSON] AccessApprovalSettings

59+

60+-- | Gets the settings associated with a project, folder, or organization.

61+--

62+-- /See:/ 'foldersGetAccessApprovalSettings' smart constructor.

63+data FoldersGetAccessApprovalSettings =

64+ FoldersGetAccessApprovalSettings'

65+ { _fgaasXgafv :: !(Maybe Xgafv)

66+ , _fgaasUploadProtocol :: !(Maybe Text)

67+ , _fgaasAccessToken :: !(Maybe Text)

68+ , _fgaasUploadType :: !(Maybe Text)

69+ , _fgaasName :: !Text

70+ , _fgaasCallback :: !(Maybe Text)

71+ }

72+ deriving (Eq, Show, Data, Typeable, Generic)

73+

74+

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

76+--

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

78+--

79+-- * 'fgaasXgafv'

80+--

81+-- * 'fgaasUploadProtocol'

82+--

83+-- * 'fgaasAccessToken'

84+--

85+-- * 'fgaasUploadType'

86+--

87+-- * 'fgaasName'

88+--

89+-- * 'fgaasCallback'

90+foldersGetAccessApprovalSettings

91+ :: Text -- ^ 'fgaasName'

92+ -> FoldersGetAccessApprovalSettings

93+foldersGetAccessApprovalSettings pFgaasName_ =

94+ FoldersGetAccessApprovalSettings'

95+ { _fgaasXgafv = Nothing

96+ , _fgaasUploadProtocol = Nothing

97+ , _fgaasAccessToken = Nothing

98+ , _fgaasUploadType = Nothing

99+ , _fgaasName = pFgaasName_

100+ , _fgaasCallback = Nothing

101+ }

102+

103+

104+-- | V1 error format.

105+fgaasXgafv :: Lens' FoldersGetAccessApprovalSettings (Maybe Xgafv)

106+fgaasXgafv

107+ = lens _fgaasXgafv (\ s a -> s{_fgaasXgafv = a})

108+

109+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

110+fgaasUploadProtocol :: Lens' FoldersGetAccessApprovalSettings (Maybe Text)

111+fgaasUploadProtocol

112+ = lens _fgaasUploadProtocol

113+ (\ s a -> s{_fgaasUploadProtocol = a})

114+

115+-- | OAuth access token.

116+fgaasAccessToken :: Lens' FoldersGetAccessApprovalSettings (Maybe Text)

117+fgaasAccessToken

118+ = lens _fgaasAccessToken

119+ (\ s a -> s{_fgaasAccessToken = a})

120+

121+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

122+fgaasUploadType :: Lens' FoldersGetAccessApprovalSettings (Maybe Text)

123+fgaasUploadType

124+ = lens _fgaasUploadType

125+ (\ s a -> s{_fgaasUploadType = a})

126+

127+-- | Name of the AccessApprovalSettings to retrieve.

128+fgaasName :: Lens' FoldersGetAccessApprovalSettings Text

129+fgaasName

130+ = lens _fgaasName (\ s a -> s{_fgaasName = a})

131+

132+-- | JSONP

133+fgaasCallback :: Lens' FoldersGetAccessApprovalSettings (Maybe Text)

134+fgaasCallback

135+ = lens _fgaasCallback

136+ (\ s a -> s{_fgaasCallback = a})

137+

138+instance GoogleRequest

139+ FoldersGetAccessApprovalSettings

140+ where

141+ type Rs FoldersGetAccessApprovalSettings =

142+ AccessApprovalSettings

143+ type Scopes FoldersGetAccessApprovalSettings =

144+ '["https://www.googleapis.com/auth/cloud-platform"]

145+ requestClient FoldersGetAccessApprovalSettings'{..}

146+ = go _fgaasName _fgaasXgafv _fgaasUploadProtocol

147+ _fgaasAccessToken

148+ _fgaasUploadType

149+ _fgaasCallback

150+ (Just AltJSON)

151+ accessApprovalService

152+ where go

153+ = buildClient

154+ (Proxy ::

155+ Proxy FoldersGetAccessApprovalSettingsResource)

156+ mempty

gogol-accessapproval/gen/Network/Google/Resource/AccessApproval/Folders/UpdateAccessApprovalSettings.hsnew file+175

@@ -0,0 +1,175 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessApproval.Folders.UpdateAccessApprovalSettings

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Updates the settings associated with a project, folder, or organization.

24+-- Completely replaces the existing settings.

25+--

26+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.folders.updateAccessApprovalSettings@.

27+module Network.Google.Resource.AccessApproval.Folders.UpdateAccessApprovalSettings

28+ (

29+ -- * REST Resource

30+ FoldersUpdateAccessApprovalSettingsResource

31+

32+ -- * Creating a Request

33+ , foldersUpdateAccessApprovalSettings

34+ , FoldersUpdateAccessApprovalSettings

35+

36+ -- * Request Lenses

37+ , fuaasXgafv

38+ , fuaasUploadProtocol

39+ , fuaasAccessToken

40+ , fuaasUploadType

41+ , fuaasPayload

42+ , fuaasName

43+ , fuaasCallback

44+ ) where

45+

46+import Network.Google.AccessApproval.Types

47+import Network.Google.Prelude

48+

49+-- | A resource alias for @accessapproval.folders.updateAccessApprovalSettings@ method which the

50+-- 'FoldersUpdateAccessApprovalSettings' request conforms to.

51+type FoldersUpdateAccessApprovalSettingsResource =

52+ "v1beta1" :>

53+ Capture "name" Text :>

54+ QueryParam "$.xgafv" Xgafv :>

55+ QueryParam "upload_protocol" Text :>

56+ QueryParam "access_token" Text :>

57+ QueryParam "uploadType" Text :>

58+ QueryParam "callback" Text :>

59+ QueryParam "alt" AltJSON :>

60+ ReqBody '[JSON] AccessApprovalSettings :>

61+ Patch '[JSON] AccessApprovalSettings

62+

63+-- | Updates the settings associated with a project, folder, or organization.

64+-- Completely replaces the existing settings.

65+--

66+-- /See:/ 'foldersUpdateAccessApprovalSettings' smart constructor.

67+data FoldersUpdateAccessApprovalSettings =

68+ FoldersUpdateAccessApprovalSettings'

69+ { _fuaasXgafv :: !(Maybe Xgafv)

70+ , _fuaasUploadProtocol :: !(Maybe Text)

71+ , _fuaasAccessToken :: !(Maybe Text)

72+ , _fuaasUploadType :: !(Maybe Text)

73+ , _fuaasPayload :: !AccessApprovalSettings

74+ , _fuaasName :: !Text

75+ , _fuaasCallback :: !(Maybe Text)

76+ }

77+ deriving (Eq, Show, Data, Typeable, Generic)

78+

79+

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

81+--

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

83+--

84+-- * 'fuaasXgafv'

85+--

86+-- * 'fuaasUploadProtocol'

87+--

88+-- * 'fuaasAccessToken'

89+--

90+-- * 'fuaasUploadType'

91+--

92+-- * 'fuaasPayload'

93+--

94+-- * 'fuaasName'

95+--

96+-- * 'fuaasCallback'

97+foldersUpdateAccessApprovalSettings

98+ :: AccessApprovalSettings -- ^ 'fuaasPayload'

99+ -> Text -- ^ 'fuaasName'

100+ -> FoldersUpdateAccessApprovalSettings

101+foldersUpdateAccessApprovalSettings pFuaasPayload_ pFuaasName_ =

102+ FoldersUpdateAccessApprovalSettings'

103+ { _fuaasXgafv = Nothing

104+ , _fuaasUploadProtocol = Nothing

105+ , _fuaasAccessToken = Nothing

106+ , _fuaasUploadType = Nothing

107+ , _fuaasPayload = pFuaasPayload_

108+ , _fuaasName = pFuaasName_

109+ , _fuaasCallback = Nothing

110+ }

111+

112+

113+-- | V1 error format.

114+fuaasXgafv :: Lens' FoldersUpdateAccessApprovalSettings (Maybe Xgafv)

115+fuaasXgafv

116+ = lens _fuaasXgafv (\ s a -> s{_fuaasXgafv = a})

117+

118+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

119+fuaasUploadProtocol :: Lens' FoldersUpdateAccessApprovalSettings (Maybe Text)

120+fuaasUploadProtocol

121+ = lens _fuaasUploadProtocol

122+ (\ s a -> s{_fuaasUploadProtocol = a})

123+

124+-- | OAuth access token.

125+fuaasAccessToken :: Lens' FoldersUpdateAccessApprovalSettings (Maybe Text)

126+fuaasAccessToken

127+ = lens _fuaasAccessToken

128+ (\ s a -> s{_fuaasAccessToken = a})

129+

130+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

131+fuaasUploadType :: Lens' FoldersUpdateAccessApprovalSettings (Maybe Text)

132+fuaasUploadType

133+ = lens _fuaasUploadType

134+ (\ s a -> s{_fuaasUploadType = a})

135+

136+-- | Multipart request metadata.

137+fuaasPayload :: Lens' FoldersUpdateAccessApprovalSettings AccessApprovalSettings

138+fuaasPayload

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

140+

141+-- | The resource name of the settings. Format is one of:

142+-- \"projects\/{project_id}\/accessApprovalSettings\"

143+-- \"folders\/{folder_id}\/accessApprovalSettings\"

144+-- \"organizations\/{organization_id}\/accessApprovalSettings\"

145+fuaasName :: Lens' FoldersUpdateAccessApprovalSettings Text

146+fuaasName

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

148+

149+-- | JSONP

150+fuaasCallback :: Lens' FoldersUpdateAccessApprovalSettings (Maybe Text)

151+fuaasCallback

152+ = lens _fuaasCallback

153+ (\ s a -> s{_fuaasCallback = a})

154+

155+instance GoogleRequest

156+ FoldersUpdateAccessApprovalSettings

157+ where

158+ type Rs FoldersUpdateAccessApprovalSettings =

159+ AccessApprovalSettings

160+ type Scopes FoldersUpdateAccessApprovalSettings =

161+ '["https://www.googleapis.com/auth/cloud-platform"]

162+ requestClient

163+ FoldersUpdateAccessApprovalSettings'{..}

164+ = go _fuaasName _fuaasXgafv _fuaasUploadProtocol

165+ _fuaasAccessToken

166+ _fuaasUploadType

167+ _fuaasCallback

168+ (Just AltJSON)

169+ _fuaasPayload

170+ accessApprovalService

171+ where go

172+ = buildClient

173+ (Proxy ::

174+ Proxy FoldersUpdateAccessApprovalSettingsResource)

175+ mempty

gogol-accessapproval/gen/Network/Google/Resource/AccessApproval/Organizations/ApprovalRequests/Approve.hsnew file+172

@@ -0,0 +1,172 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Approve

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Approves a request and returns the updated ApprovalRequest. Returns

24+-- NOT_FOUND if the request does not exist. Returns FAILED_PRECONDITION if

25+-- the request exists but is not in a pending state.

26+--

27+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.approvalRequests.approve@.

28+module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Approve

29+ (

30+ -- * REST Resource

31+ OrganizationsApprovalRequestsApproveResource

32+

33+ -- * Creating a Request

34+ , organizationsApprovalRequestsApprove

35+ , OrganizationsApprovalRequestsApprove

36+

37+ -- * Request Lenses

38+ , oaraXgafv

39+ , oaraUploadProtocol

40+ , oaraAccessToken

41+ , oaraUploadType

42+ , oaraPayload

43+ , oaraName

44+ , oaraCallback

45+ ) where

46+

47+import Network.Google.AccessApproval.Types

48+import Network.Google.Prelude

49+

50+-- | A resource alias for @accessapproval.organizations.approvalRequests.approve@ method which the

51+-- 'OrganizationsApprovalRequestsApprove' request conforms to.

52+type OrganizationsApprovalRequestsApproveResource =

53+ "v1beta1" :>

54+ CaptureMode "name" "approve" Text :>

55+ QueryParam "$.xgafv" Xgafv :>

56+ QueryParam "upload_protocol" Text :>

57+ QueryParam "access_token" Text :>

58+ QueryParam "uploadType" Text :>

59+ QueryParam "callback" Text :>

60+ QueryParam "alt" AltJSON :>

61+ ReqBody '[JSON] ApproveApprovalRequestMessage :>

62+ Post '[JSON] ApprovalRequest

63+

64+-- | Approves a request and returns the updated ApprovalRequest. Returns

65+-- NOT_FOUND if the request does not exist. Returns FAILED_PRECONDITION if

66+-- the request exists but is not in a pending state.

67+--

68+-- /See:/ 'organizationsApprovalRequestsApprove' smart constructor.

69+data OrganizationsApprovalRequestsApprove =

70+ OrganizationsApprovalRequestsApprove'

71+ { _oaraXgafv :: !(Maybe Xgafv)

72+ , _oaraUploadProtocol :: !(Maybe Text)

73+ , _oaraAccessToken :: !(Maybe Text)

74+ , _oaraUploadType :: !(Maybe Text)

75+ , _oaraPayload :: !ApproveApprovalRequestMessage

76+ , _oaraName :: !Text

77+ , _oaraCallback :: !(Maybe Text)

78+ }

79+ deriving (Eq, Show, Data, Typeable, Generic)

80+

81+

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

83+--

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

85+--

86+-- * 'oaraXgafv'

87+--

88+-- * 'oaraUploadProtocol'

89+--

90+-- * 'oaraAccessToken'

91+--

92+-- * 'oaraUploadType'

93+--

94+-- * 'oaraPayload'

95+--

96+-- * 'oaraName'

97+--

98+-- * 'oaraCallback'

99+organizationsApprovalRequestsApprove

100+ :: ApproveApprovalRequestMessage -- ^ 'oaraPayload'

101+ -> Text -- ^ 'oaraName'

102+ -> OrganizationsApprovalRequestsApprove

103+organizationsApprovalRequestsApprove pOaraPayload_ pOaraName_ =

104+ OrganizationsApprovalRequestsApprove'

105+ { _oaraXgafv = Nothing

106+ , _oaraUploadProtocol = Nothing

107+ , _oaraAccessToken = Nothing

108+ , _oaraUploadType = Nothing

109+ , _oaraPayload = pOaraPayload_

110+ , _oaraName = pOaraName_

111+ , _oaraCallback = Nothing

112+ }

113+

114+

115+-- | V1 error format.

116+oaraXgafv :: Lens' OrganizationsApprovalRequestsApprove (Maybe Xgafv)

117+oaraXgafv

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

119+

120+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

121+oaraUploadProtocol :: Lens' OrganizationsApprovalRequestsApprove (Maybe Text)

122+oaraUploadProtocol

123+ = lens _oaraUploadProtocol

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

125+

126+-- | OAuth access token.

127+oaraAccessToken :: Lens' OrganizationsApprovalRequestsApprove (Maybe Text)

128+oaraAccessToken

129+ = lens _oaraAccessToken

130+ (\ s a -> s{_oaraAccessToken = a})

131+

132+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

133+oaraUploadType :: Lens' OrganizationsApprovalRequestsApprove (Maybe Text)

134+oaraUploadType

135+ = lens _oaraUploadType

136+ (\ s a -> s{_oaraUploadType = a})

137+

138+-- | Multipart request metadata.

139+oaraPayload :: Lens' OrganizationsApprovalRequestsApprove ApproveApprovalRequestMessage

140+oaraPayload

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

142+

143+-- | Name of the approval request to approve.

144+oaraName :: Lens' OrganizationsApprovalRequestsApprove Text

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

146+

147+-- | JSONP

148+oaraCallback :: Lens' OrganizationsApprovalRequestsApprove (Maybe Text)

149+oaraCallback

150+ = lens _oaraCallback (\ s a -> s{_oaraCallback = a})

151+

152+instance GoogleRequest

153+ OrganizationsApprovalRequestsApprove

154+ where

155+ type Rs OrganizationsApprovalRequestsApprove =

156+ ApprovalRequest

157+ type Scopes OrganizationsApprovalRequestsApprove =

158+ '["https://www.googleapis.com/auth/cloud-platform"]

159+ requestClient

160+ OrganizationsApprovalRequestsApprove'{..}

161+ = go _oaraName _oaraXgafv _oaraUploadProtocol

162+ _oaraAccessToken

163+ _oaraUploadType

164+ _oaraCallback

165+ (Just AltJSON)

166+ _oaraPayload

167+ accessApprovalService

168+ where go

169+ = buildClient

170+ (Proxy ::

171+ Proxy OrganizationsApprovalRequestsApproveResource)

172+ mempty

gogol-accessapproval/gen/Network/Google/Resource/AccessApproval/Organizations/ApprovalRequests/Dismiss.hsnew file+176

@@ -0,0 +1,176 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Dismiss

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Dismisses a request. Returns the updated ApprovalRequest. NOTE: This

24+-- does not deny access to the resource if another request has been made

25+-- and approved. It is equivalent in effect to ignoring the request

26+-- altogether. Returns NOT_FOUND if the request does not exist. Returns

27+-- FAILED_PRECONDITION if the request exists but is not in a pending state.

28+--

29+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.approvalRequests.dismiss@.

30+module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Dismiss

31+ (

32+ -- * REST Resource

33+ OrganizationsApprovalRequestsDismissResource

34+

35+ -- * Creating a Request

36+ , organizationsApprovalRequestsDismiss

37+ , OrganizationsApprovalRequestsDismiss

38+

39+ -- * Request Lenses

40+ , oardXgafv

41+ , oardUploadProtocol

42+ , oardAccessToken

43+ , oardUploadType

44+ , oardPayload

45+ , oardName

46+ , oardCallback

47+ ) where

48+

49+import Network.Google.AccessApproval.Types

50+import Network.Google.Prelude

51+

52+-- | A resource alias for @accessapproval.organizations.approvalRequests.dismiss@ method which the

53+-- 'OrganizationsApprovalRequestsDismiss' request conforms to.

54+type OrganizationsApprovalRequestsDismissResource =

55+ "v1beta1" :>

56+ CaptureMode "name" "dismiss" Text :>

57+ QueryParam "$.xgafv" Xgafv :>

58+ QueryParam "upload_protocol" Text :>

59+ QueryParam "access_token" Text :>

60+ QueryParam "uploadType" Text :>

61+ QueryParam "callback" Text :>

62+ QueryParam "alt" AltJSON :>

63+ ReqBody '[JSON] DismissApprovalRequestMessage :>

64+ Post '[JSON] ApprovalRequest

65+

66+-- | Dismisses a request. Returns the updated ApprovalRequest. NOTE: This

67+-- does not deny access to the resource if another request has been made

68+-- and approved. It is equivalent in effect to ignoring the request

69+-- altogether. Returns NOT_FOUND if the request does not exist. Returns

70+-- FAILED_PRECONDITION if the request exists but is not in a pending state.

71+--

72+-- /See:/ 'organizationsApprovalRequestsDismiss' smart constructor.

73+data OrganizationsApprovalRequestsDismiss =

74+ OrganizationsApprovalRequestsDismiss'

75+ { _oardXgafv :: !(Maybe Xgafv)

76+ , _oardUploadProtocol :: !(Maybe Text)

77+ , _oardAccessToken :: !(Maybe Text)

78+ , _oardUploadType :: !(Maybe Text)

79+ , _oardPayload :: !DismissApprovalRequestMessage

80+ , _oardName :: !Text

81+ , _oardCallback :: !(Maybe Text)

82+ }

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

84+

85+

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

87+--

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

89+--

90+-- * 'oardXgafv'

91+--

92+-- * 'oardUploadProtocol'

93+--

94+-- * 'oardAccessToken'

95+--

96+-- * 'oardUploadType'

97+--

98+-- * 'oardPayload'

99+--

100+-- * 'oardName'

101+--

102+-- * 'oardCallback'

103+organizationsApprovalRequestsDismiss

104+ :: DismissApprovalRequestMessage -- ^ 'oardPayload'

105+ -> Text -- ^ 'oardName'

106+ -> OrganizationsApprovalRequestsDismiss

107+organizationsApprovalRequestsDismiss pOardPayload_ pOardName_ =

108+ OrganizationsApprovalRequestsDismiss'

109+ { _oardXgafv = Nothing

110+ , _oardUploadProtocol = Nothing

111+ , _oardAccessToken = Nothing

112+ , _oardUploadType = Nothing

113+ , _oardPayload = pOardPayload_

114+ , _oardName = pOardName_

115+ , _oardCallback = Nothing

116+ }

117+

118+

119+-- | V1 error format.

120+oardXgafv :: Lens' OrganizationsApprovalRequestsDismiss (Maybe Xgafv)

121+oardXgafv

122+ = lens _oardXgafv (\ s a -> s{_oardXgafv = a})

123+

124+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

125+oardUploadProtocol :: Lens' OrganizationsApprovalRequestsDismiss (Maybe Text)

126+oardUploadProtocol

127+ = lens _oardUploadProtocol

128+ (\ s a -> s{_oardUploadProtocol = a})

129+

130+-- | OAuth access token.

131+oardAccessToken :: Lens' OrganizationsApprovalRequestsDismiss (Maybe Text)

132+oardAccessToken

133+ = lens _oardAccessToken

134+ (\ s a -> s{_oardAccessToken = a})

135+

136+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

137+oardUploadType :: Lens' OrganizationsApprovalRequestsDismiss (Maybe Text)

138+oardUploadType

139+ = lens _oardUploadType

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

141+

142+-- | Multipart request metadata.

143+oardPayload :: Lens' OrganizationsApprovalRequestsDismiss DismissApprovalRequestMessage

144+oardPayload

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

146+

147+-- | Name of the ApprovalRequest to dismiss.

148+oardName :: Lens' OrganizationsApprovalRequestsDismiss Text

149+oardName = lens _oardName (\ s a -> s{_oardName = a})

150+

151+-- | JSONP

152+oardCallback :: Lens' OrganizationsApprovalRequestsDismiss (Maybe Text)

153+oardCallback

154+ = lens _oardCallback (\ s a -> s{_oardCallback = a})

155+

156+instance GoogleRequest

157+ OrganizationsApprovalRequestsDismiss

158+ where

159+ type Rs OrganizationsApprovalRequestsDismiss =

160+ ApprovalRequest

161+ type Scopes OrganizationsApprovalRequestsDismiss =

162+ '["https://www.googleapis.com/auth/cloud-platform"]

163+ requestClient

164+ OrganizationsApprovalRequestsDismiss'{..}

165+ = go _oardName _oardXgafv _oardUploadProtocol

166+ _oardAccessToken

167+ _oardUploadType

168+ _oardCallback

169+ (Just AltJSON)

170+ _oardPayload

171+ accessApprovalService

172+ where go

173+ = buildClient

174+ (Proxy ::

175+ Proxy OrganizationsApprovalRequestsDismissResource)

176+ mempty

gogol-accessapproval/gen/Network/Google/Resource/AccessApproval/Organizations/ApprovalRequests/Get.hsnew file+156

@@ -0,0 +1,156 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Get

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Gets an approval request. Returns NOT_FOUND if the request does not

24+-- exist.

25+--

26+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.approvalRequests.get@.

27+module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Get

28+ (

29+ -- * REST Resource

30+ OrganizationsApprovalRequestsGetResource

31+

32+ -- * Creating a Request

33+ , organizationsApprovalRequestsGet

34+ , OrganizationsApprovalRequestsGet

35+

36+ -- * Request Lenses

37+ , oargXgafv

38+ , oargUploadProtocol

39+ , oargAccessToken

40+ , oargUploadType

41+ , oargName

42+ , oargCallback

43+ ) where

44+

45+import Network.Google.AccessApproval.Types

46+import Network.Google.Prelude

47+

48+-- | A resource alias for @accessapproval.organizations.approvalRequests.get@ method which the

49+-- 'OrganizationsApprovalRequestsGet' request conforms to.

50+type OrganizationsApprovalRequestsGetResource =

51+ "v1beta1" :>

52+ Capture "name" Text :>

53+ QueryParam "$.xgafv" Xgafv :>

54+ QueryParam "upload_protocol" Text :>

55+ QueryParam "access_token" Text :>

56+ QueryParam "uploadType" Text :>

57+ QueryParam "callback" Text :>

58+ QueryParam "alt" AltJSON :>

59+ Get '[JSON] ApprovalRequest

60+

61+-- | Gets an approval request. Returns NOT_FOUND if the request does not

62+-- exist.

63+--

64+-- /See:/ 'organizationsApprovalRequestsGet' smart constructor.

65+data OrganizationsApprovalRequestsGet =

66+ OrganizationsApprovalRequestsGet'

67+ { _oargXgafv :: !(Maybe Xgafv)

68+ , _oargUploadProtocol :: !(Maybe Text)

69+ , _oargAccessToken :: !(Maybe Text)

70+ , _oargUploadType :: !(Maybe Text)

71+ , _oargName :: !Text

72+ , _oargCallback :: !(Maybe Text)

73+ }

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

75+

76+

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

78+--

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

80+--

81+-- * 'oargXgafv'

82+--

83+-- * 'oargUploadProtocol'

84+--

85+-- * 'oargAccessToken'

86+--

87+-- * 'oargUploadType'

88+--

89+-- * 'oargName'

90+--

91+-- * 'oargCallback'

92+organizationsApprovalRequestsGet

93+ :: Text -- ^ 'oargName'

94+ -> OrganizationsApprovalRequestsGet

95+organizationsApprovalRequestsGet pOargName_ =

96+ OrganizationsApprovalRequestsGet'

97+ { _oargXgafv = Nothing

98+ , _oargUploadProtocol = Nothing

99+ , _oargAccessToken = Nothing

100+ , _oargUploadType = Nothing

101+ , _oargName = pOargName_

102+ , _oargCallback = Nothing

103+ }

104+

105+

106+-- | V1 error format.

107+oargXgafv :: Lens' OrganizationsApprovalRequestsGet (Maybe Xgafv)

108+oargXgafv

109+ = lens _oargXgafv (\ s a -> s{_oargXgafv = a})

110+

111+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

112+oargUploadProtocol :: Lens' OrganizationsApprovalRequestsGet (Maybe Text)

113+oargUploadProtocol

114+ = lens _oargUploadProtocol

115+ (\ s a -> s{_oargUploadProtocol = a})

116+

117+-- | OAuth access token.

118+oargAccessToken :: Lens' OrganizationsApprovalRequestsGet (Maybe Text)

119+oargAccessToken

120+ = lens _oargAccessToken

121+ (\ s a -> s{_oargAccessToken = a})

122+

123+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

124+oargUploadType :: Lens' OrganizationsApprovalRequestsGet (Maybe Text)

125+oargUploadType

126+ = lens _oargUploadType

127+ (\ s a -> s{_oargUploadType = a})

128+

129+-- | Name of the approval request to retrieve.

130+oargName :: Lens' OrganizationsApprovalRequestsGet Text

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

132+

133+-- | JSONP

134+oargCallback :: Lens' OrganizationsApprovalRequestsGet (Maybe Text)

135+oargCallback

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

137+

138+instance GoogleRequest

139+ OrganizationsApprovalRequestsGet

140+ where

141+ type Rs OrganizationsApprovalRequestsGet =

142+ ApprovalRequest

143+ type Scopes OrganizationsApprovalRequestsGet =

144+ '["https://www.googleapis.com/auth/cloud-platform"]

145+ requestClient OrganizationsApprovalRequestsGet'{..}

146+ = go _oargName _oargXgafv _oargUploadProtocol

147+ _oargAccessToken

148+ _oargUploadType

149+ _oargCallback

150+ (Just AltJSON)

151+ accessApprovalService

152+ where go

153+ = buildClient

154+ (Proxy ::

155+ Proxy OrganizationsApprovalRequestsGetResource)

156+ mempty

gogol-accessapproval/gen/Network/Google/Resource/AccessApproval/Organizations/ApprovalRequests/List.hsnew file+206

@@ -0,0 +1,206 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.List

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Lists approval requests associated with a project, folder, or

24+-- organization. Approval requests can be filtered by state (pending,

25+-- active, dismissed). The order is reverse chronological.

26+--

27+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.approvalRequests.list@.

28+module Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.List

29+ (

30+ -- * REST Resource

31+ OrganizationsApprovalRequestsListResource

32+

33+ -- * Creating a Request

34+ , organizationsApprovalRequestsList

35+ , OrganizationsApprovalRequestsList

36+

37+ -- * Request Lenses

38+ , oarlParent

39+ , oarlXgafv

40+ , oarlUploadProtocol

41+ , oarlAccessToken

42+ , oarlUploadType

43+ , oarlFilter

44+ , oarlPageToken

45+ , oarlPageSize

46+ , oarlCallback

47+ ) where

48+

49+import Network.Google.AccessApproval.Types

50+import Network.Google.Prelude

51+

52+-- | A resource alias for @accessapproval.organizations.approvalRequests.list@ method which the

53+-- 'OrganizationsApprovalRequestsList' request conforms to.

54+type OrganizationsApprovalRequestsListResource =

55+ "v1beta1" :>

56+ Capture "parent" Text :>

57+ "approvalRequests" :>

58+ QueryParam "$.xgafv" Xgafv :>

59+ QueryParam "upload_protocol" Text :>

60+ QueryParam "access_token" Text :>

61+ QueryParam "uploadType" Text :>

62+ QueryParam "filter" Text :>

63+ QueryParam "pageToken" Text :>

64+ QueryParam "pageSize" (Textual Int32) :>

65+ QueryParam "callback" Text :>

66+ QueryParam "alt" AltJSON :>

67+ Get '[JSON] ListApprovalRequestsResponse

68+

69+-- | Lists approval requests associated with a project, folder, or

70+-- organization. Approval requests can be filtered by state (pending,

71+-- active, dismissed). The order is reverse chronological.

72+--

73+-- /See:/ 'organizationsApprovalRequestsList' smart constructor.

74+data OrganizationsApprovalRequestsList =

75+ OrganizationsApprovalRequestsList'

76+ { _oarlParent :: !Text

77+ , _oarlXgafv :: !(Maybe Xgafv)

78+ , _oarlUploadProtocol :: !(Maybe Text)

79+ , _oarlAccessToken :: !(Maybe Text)

80+ , _oarlUploadType :: !(Maybe Text)

81+ , _oarlFilter :: !(Maybe Text)

82+ , _oarlPageToken :: !(Maybe Text)

83+ , _oarlPageSize :: !(Maybe (Textual Int32))

84+ , _oarlCallback :: !(Maybe Text)

85+ }

86+ deriving (Eq, Show, Data, Typeable, Generic)

87+

88+

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

90+--

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

92+--

93+-- * 'oarlParent'

94+--

95+-- * 'oarlXgafv'

96+--

97+-- * 'oarlUploadProtocol'

98+--

99+-- * 'oarlAccessToken'

100+--

101+-- * 'oarlUploadType'

102+--

103+-- * 'oarlFilter'

104+--

105+-- * 'oarlPageToken'

106+--

107+-- * 'oarlPageSize'

108+--

109+-- * 'oarlCallback'

110+organizationsApprovalRequestsList

111+ :: Text -- ^ 'oarlParent'

112+ -> OrganizationsApprovalRequestsList

113+organizationsApprovalRequestsList pOarlParent_ =

114+ OrganizationsApprovalRequestsList'

115+ { _oarlParent = pOarlParent_

116+ , _oarlXgafv = Nothing

117+ , _oarlUploadProtocol = Nothing

118+ , _oarlAccessToken = Nothing

119+ , _oarlUploadType = Nothing

120+ , _oarlFilter = Nothing

121+ , _oarlPageToken = Nothing

122+ , _oarlPageSize = Nothing

123+ , _oarlCallback = Nothing

124+ }

125+

126+

127+-- | The parent resource. This may be \"projects\/{project_id}\",

128+-- \"folders\/{folder_id}\", or \"organizations\/{organization_id}\".

129+oarlParent :: Lens' OrganizationsApprovalRequestsList Text

130+oarlParent

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

132+

133+-- | V1 error format.

134+oarlXgafv :: Lens' OrganizationsApprovalRequestsList (Maybe Xgafv)

135+oarlXgafv

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

137+

138+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

139+oarlUploadProtocol :: Lens' OrganizationsApprovalRequestsList (Maybe Text)

140+oarlUploadProtocol

141+ = lens _oarlUploadProtocol

142+ (\ s a -> s{_oarlUploadProtocol = a})

143+

144+-- | OAuth access token.

145+oarlAccessToken :: Lens' OrganizationsApprovalRequestsList (Maybe Text)

146+oarlAccessToken

147+ = lens _oarlAccessToken

148+ (\ s a -> s{_oarlAccessToken = a})

149+

150+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

151+oarlUploadType :: Lens' OrganizationsApprovalRequestsList (Maybe Text)

152+oarlUploadType

153+ = lens _oarlUploadType

154+ (\ s a -> s{_oarlUploadType = a})

155+

156+-- | A filter on the type of approval requests to retrieve. Must be one of

157+-- the following values:

158+--

159+-- 1. [not set]: Requests that are pending or have active approvals.

160+-- 2. ALL: All requests.

161+-- 3. PENDING: Only pending requests.

162+-- 4. ACTIVE: Only active (i.e. currently approved) requests.

163+-- 5. DISMISSED: Only dismissed (including expired) requests.

164+oarlFilter :: Lens' OrganizationsApprovalRequestsList (Maybe Text)

165+oarlFilter

166+ = lens _oarlFilter (\ s a -> s{_oarlFilter = a})

167+

168+-- | A token identifying the page of results to return.

169+oarlPageToken :: Lens' OrganizationsApprovalRequestsList (Maybe Text)

170+oarlPageToken

171+ = lens _oarlPageToken

172+ (\ s a -> s{_oarlPageToken = a})

173+

174+-- | Requested page size.

175+oarlPageSize :: Lens' OrganizationsApprovalRequestsList (Maybe Int32)

176+oarlPageSize

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

178+ . mapping _Coerce

179+

180+-- | JSONP

181+oarlCallback :: Lens' OrganizationsApprovalRequestsList (Maybe Text)

182+oarlCallback

183+ = lens _oarlCallback (\ s a -> s{_oarlCallback = a})

184+

185+instance GoogleRequest

186+ OrganizationsApprovalRequestsList

187+ where

188+ type Rs OrganizationsApprovalRequestsList =

189+ ListApprovalRequestsResponse

190+ type Scopes OrganizationsApprovalRequestsList =

191+ '["https://www.googleapis.com/auth/cloud-platform"]

192+ requestClient OrganizationsApprovalRequestsList'{..}

193+ = go _oarlParent _oarlXgafv _oarlUploadProtocol

194+ _oarlAccessToken

195+ _oarlUploadType

196+ _oarlFilter

197+ _oarlPageToken

198+ _oarlPageSize

199+ _oarlCallback

200+ (Just AltJSON)

201+ accessApprovalService

202+ where go

203+ = buildClient

204+ (Proxy ::

205+ Proxy OrganizationsApprovalRequestsListResource)

206+ mempty

gogol-accessapproval/gen/Network/Google/Resource/AccessApproval/Organizations/GetAccessApprovalSettings.hsnew file+157

@@ -0,0 +1,157 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessApproval.Organizations.GetAccessApprovalSettings

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Gets the settings associated with a project, folder, or organization.

24+--

25+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.getAccessApprovalSettings@.

26+module Network.Google.Resource.AccessApproval.Organizations.GetAccessApprovalSettings

27+ (

28+ -- * REST Resource

29+ OrganizationsGetAccessApprovalSettingsResource

30+

31+ -- * Creating a Request

32+ , organizationsGetAccessApprovalSettings

33+ , OrganizationsGetAccessApprovalSettings

34+

35+ -- * Request Lenses

36+ , ogaasXgafv

37+ , ogaasUploadProtocol

38+ , ogaasAccessToken

39+ , ogaasUploadType

40+ , ogaasName

41+ , ogaasCallback

42+ ) where

43+

44+import Network.Google.AccessApproval.Types

45+import Network.Google.Prelude

46+

47+-- | A resource alias for @accessapproval.organizations.getAccessApprovalSettings@ method which the

48+-- 'OrganizationsGetAccessApprovalSettings' request conforms to.

49+type OrganizationsGetAccessApprovalSettingsResource =

50+ "v1beta1" :>

51+ Capture "name" Text :>

52+ QueryParam "$.xgafv" Xgafv :>

53+ QueryParam "upload_protocol" Text :>

54+ QueryParam "access_token" Text :>

55+ QueryParam "uploadType" Text :>

56+ QueryParam "callback" Text :>

57+ QueryParam "alt" AltJSON :>

58+ Get '[JSON] AccessApprovalSettings

59+

60+-- | Gets the settings associated with a project, folder, or organization.

61+--

62+-- /See:/ 'organizationsGetAccessApprovalSettings' smart constructor.

63+data OrganizationsGetAccessApprovalSettings =

64+ OrganizationsGetAccessApprovalSettings'

65+ { _ogaasXgafv :: !(Maybe Xgafv)

66+ , _ogaasUploadProtocol :: !(Maybe Text)

67+ , _ogaasAccessToken :: !(Maybe Text)

68+ , _ogaasUploadType :: !(Maybe Text)

69+ , _ogaasName :: !Text

70+ , _ogaasCallback :: !(Maybe Text)

71+ }

72+ deriving (Eq, Show, Data, Typeable, Generic)

73+

74+

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

76+--

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

78+--

79+-- * 'ogaasXgafv'

80+--

81+-- * 'ogaasUploadProtocol'

82+--

83+-- * 'ogaasAccessToken'

84+--

85+-- * 'ogaasUploadType'

86+--

87+-- * 'ogaasName'

88+--

89+-- * 'ogaasCallback'

90+organizationsGetAccessApprovalSettings

91+ :: Text -- ^ 'ogaasName'

92+ -> OrganizationsGetAccessApprovalSettings

93+organizationsGetAccessApprovalSettings pOgaasName_ =

94+ OrganizationsGetAccessApprovalSettings'

95+ { _ogaasXgafv = Nothing

96+ , _ogaasUploadProtocol = Nothing

97+ , _ogaasAccessToken = Nothing

98+ , _ogaasUploadType = Nothing

99+ , _ogaasName = pOgaasName_

100+ , _ogaasCallback = Nothing

101+ }

102+

103+

104+-- | V1 error format.

105+ogaasXgafv :: Lens' OrganizationsGetAccessApprovalSettings (Maybe Xgafv)

106+ogaasXgafv

107+ = lens _ogaasXgafv (\ s a -> s{_ogaasXgafv = a})

108+

109+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

110+ogaasUploadProtocol :: Lens' OrganizationsGetAccessApprovalSettings (Maybe Text)

111+ogaasUploadProtocol

112+ = lens _ogaasUploadProtocol

113+ (\ s a -> s{_ogaasUploadProtocol = a})

114+

115+-- | OAuth access token.

116+ogaasAccessToken :: Lens' OrganizationsGetAccessApprovalSettings (Maybe Text)

117+ogaasAccessToken

118+ = lens _ogaasAccessToken

119+ (\ s a -> s{_ogaasAccessToken = a})

120+

121+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

122+ogaasUploadType :: Lens' OrganizationsGetAccessApprovalSettings (Maybe Text)

123+ogaasUploadType

124+ = lens _ogaasUploadType

125+ (\ s a -> s{_ogaasUploadType = a})

126+

127+-- | Name of the AccessApprovalSettings to retrieve.

128+ogaasName :: Lens' OrganizationsGetAccessApprovalSettings Text

129+ogaasName

130+ = lens _ogaasName (\ s a -> s{_ogaasName = a})

131+

132+-- | JSONP

133+ogaasCallback :: Lens' OrganizationsGetAccessApprovalSettings (Maybe Text)

134+ogaasCallback

135+ = lens _ogaasCallback

136+ (\ s a -> s{_ogaasCallback = a})

137+

138+instance GoogleRequest

139+ OrganizationsGetAccessApprovalSettings

140+ where

141+ type Rs OrganizationsGetAccessApprovalSettings =

142+ AccessApprovalSettings

143+ type Scopes OrganizationsGetAccessApprovalSettings =

144+ '["https://www.googleapis.com/auth/cloud-platform"]

145+ requestClient

146+ OrganizationsGetAccessApprovalSettings'{..}

147+ = go _ogaasName _ogaasXgafv _ogaasUploadProtocol

148+ _ogaasAccessToken

149+ _ogaasUploadType

150+ _ogaasCallback

151+ (Just AltJSON)

152+ accessApprovalService

153+ where go

154+ = buildClient

155+ (Proxy ::

156+ Proxy OrganizationsGetAccessApprovalSettingsResource)

157+ mempty

gogol-accessapproval/gen/Network/Google/Resource/AccessApproval/Organizations/UpdateAccessApprovalSettings.hsnew file+177

@@ -0,0 +1,177 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessApproval.Organizations.UpdateAccessApprovalSettings

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Updates the settings associated with a project, folder, or organization.

24+-- Completely replaces the existing settings.

25+--

26+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.organizations.updateAccessApprovalSettings@.

27+module Network.Google.Resource.AccessApproval.Organizations.UpdateAccessApprovalSettings

28+ (

29+ -- * REST Resource

30+ OrganizationsUpdateAccessApprovalSettingsResource

31+

32+ -- * Creating a Request

33+ , organizationsUpdateAccessApprovalSettings

34+ , OrganizationsUpdateAccessApprovalSettings

35+

36+ -- * Request Lenses

37+ , ouaasXgafv

38+ , ouaasUploadProtocol

39+ , ouaasAccessToken

40+ , ouaasUploadType

41+ , ouaasPayload

42+ , ouaasName

43+ , ouaasCallback

44+ ) where

45+

46+import Network.Google.AccessApproval.Types

47+import Network.Google.Prelude

48+

49+-- | A resource alias for @accessapproval.organizations.updateAccessApprovalSettings@ method which the

50+-- 'OrganizationsUpdateAccessApprovalSettings' request conforms to.

51+type OrganizationsUpdateAccessApprovalSettingsResource

52+ =

53+ "v1beta1" :>

54+ Capture "name" Text :>

55+ QueryParam "$.xgafv" Xgafv :>

56+ QueryParam "upload_protocol" Text :>

57+ QueryParam "access_token" Text :>

58+ QueryParam "uploadType" Text :>

59+ QueryParam "callback" Text :>

60+ QueryParam "alt" AltJSON :>

61+ ReqBody '[JSON] AccessApprovalSettings :>

62+ Patch '[JSON] AccessApprovalSettings

63+

64+-- | Updates the settings associated with a project, folder, or organization.

65+-- Completely replaces the existing settings.

66+--

67+-- /See:/ 'organizationsUpdateAccessApprovalSettings' smart constructor.

68+data OrganizationsUpdateAccessApprovalSettings =

69+ OrganizationsUpdateAccessApprovalSettings'

70+ { _ouaasXgafv :: !(Maybe Xgafv)

71+ , _ouaasUploadProtocol :: !(Maybe Text)

72+ , _ouaasAccessToken :: !(Maybe Text)

73+ , _ouaasUploadType :: !(Maybe Text)

74+ , _ouaasPayload :: !AccessApprovalSettings

75+ , _ouaasName :: !Text

76+ , _ouaasCallback :: !(Maybe Text)

77+ }

78+ deriving (Eq, Show, Data, Typeable, Generic)

79+

80+

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

82+--

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

84+--

85+-- * 'ouaasXgafv'

86+--

87+-- * 'ouaasUploadProtocol'

88+--

89+-- * 'ouaasAccessToken'

90+--

91+-- * 'ouaasUploadType'

92+--

93+-- * 'ouaasPayload'

94+--

95+-- * 'ouaasName'

96+--

97+-- * 'ouaasCallback'

98+organizationsUpdateAccessApprovalSettings

99+ :: AccessApprovalSettings -- ^ 'ouaasPayload'

100+ -> Text -- ^ 'ouaasName'

101+ -> OrganizationsUpdateAccessApprovalSettings

102+organizationsUpdateAccessApprovalSettings pOuaasPayload_ pOuaasName_ =

103+ OrganizationsUpdateAccessApprovalSettings'

104+ { _ouaasXgafv = Nothing

105+ , _ouaasUploadProtocol = Nothing

106+ , _ouaasAccessToken = Nothing

107+ , _ouaasUploadType = Nothing

108+ , _ouaasPayload = pOuaasPayload_

109+ , _ouaasName = pOuaasName_

110+ , _ouaasCallback = Nothing

111+ }

112+

113+

114+-- | V1 error format.

115+ouaasXgafv :: Lens' OrganizationsUpdateAccessApprovalSettings (Maybe Xgafv)

116+ouaasXgafv

117+ = lens _ouaasXgafv (\ s a -> s{_ouaasXgafv = a})

118+

119+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

120+ouaasUploadProtocol :: Lens' OrganizationsUpdateAccessApprovalSettings (Maybe Text)

121+ouaasUploadProtocol

122+ = lens _ouaasUploadProtocol

123+ (\ s a -> s{_ouaasUploadProtocol = a})

124+

125+-- | OAuth access token.

126+ouaasAccessToken :: Lens' OrganizationsUpdateAccessApprovalSettings (Maybe Text)

127+ouaasAccessToken

128+ = lens _ouaasAccessToken

129+ (\ s a -> s{_ouaasAccessToken = a})

130+

131+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

132+ouaasUploadType :: Lens' OrganizationsUpdateAccessApprovalSettings (Maybe Text)

133+ouaasUploadType

134+ = lens _ouaasUploadType

135+ (\ s a -> s{_ouaasUploadType = a})

136+

137+-- | Multipart request metadata.

138+ouaasPayload :: Lens' OrganizationsUpdateAccessApprovalSettings AccessApprovalSettings

139+ouaasPayload

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

141+

142+-- | The resource name of the settings. Format is one of:

143+-- \"projects\/{project_id}\/accessApprovalSettings\"

144+-- \"folders\/{folder_id}\/accessApprovalSettings\"

145+-- \"organizations\/{organization_id}\/accessApprovalSettings\"

146+ouaasName :: Lens' OrganizationsUpdateAccessApprovalSettings Text

147+ouaasName

148+ = lens _ouaasName (\ s a -> s{_ouaasName = a})

149+

150+-- | JSONP

151+ouaasCallback :: Lens' OrganizationsUpdateAccessApprovalSettings (Maybe Text)

152+ouaasCallback

153+ = lens _ouaasCallback

154+ (\ s a -> s{_ouaasCallback = a})

155+

156+instance GoogleRequest

157+ OrganizationsUpdateAccessApprovalSettings

158+ where

159+ type Rs OrganizationsUpdateAccessApprovalSettings =

160+ AccessApprovalSettings

161+ type Scopes OrganizationsUpdateAccessApprovalSettings

162+ = '["https://www.googleapis.com/auth/cloud-platform"]

163+ requestClient

164+ OrganizationsUpdateAccessApprovalSettings'{..}

165+ = go _ouaasName _ouaasXgafv _ouaasUploadProtocol

166+ _ouaasAccessToken

167+ _ouaasUploadType

168+ _ouaasCallback

169+ (Just AltJSON)

170+ _ouaasPayload

171+ accessApprovalService

172+ where go

173+ = buildClient

174+ (Proxy ::

175+ Proxy

176+ OrganizationsUpdateAccessApprovalSettingsResource)

177+ mempty

gogol-accessapproval/gen/Network/Google/Resource/AccessApproval/Projects/ApprovalRequests/Approve.hsnew file+171

@@ -0,0 +1,171 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Approve

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Approves a request and returns the updated ApprovalRequest. Returns

24+-- NOT_FOUND if the request does not exist. Returns FAILED_PRECONDITION if

25+-- the request exists but is not in a pending state.

26+--

27+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.projects.approvalRequests.approve@.

28+module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Approve

29+ (

30+ -- * REST Resource

31+ ProjectsApprovalRequestsApproveResource

32+

33+ -- * Creating a Request

34+ , projectsApprovalRequestsApprove

35+ , ProjectsApprovalRequestsApprove

36+

37+ -- * Request Lenses

38+ , paraXgafv

39+ , paraUploadProtocol

40+ , paraAccessToken

41+ , paraUploadType

42+ , paraPayload

43+ , paraName

44+ , paraCallback

45+ ) where

46+

47+import Network.Google.AccessApproval.Types

48+import Network.Google.Prelude

49+

50+-- | A resource alias for @accessapproval.projects.approvalRequests.approve@ method which the

51+-- 'ProjectsApprovalRequestsApprove' request conforms to.

52+type ProjectsApprovalRequestsApproveResource =

53+ "v1beta1" :>

54+ CaptureMode "name" "approve" Text :>

55+ QueryParam "$.xgafv" Xgafv :>

56+ QueryParam "upload_protocol" Text :>

57+ QueryParam "access_token" Text :>

58+ QueryParam "uploadType" Text :>

59+ QueryParam "callback" Text :>

60+ QueryParam "alt" AltJSON :>

61+ ReqBody '[JSON] ApproveApprovalRequestMessage :>

62+ Post '[JSON] ApprovalRequest

63+

64+-- | Approves a request and returns the updated ApprovalRequest. Returns

65+-- NOT_FOUND if the request does not exist. Returns FAILED_PRECONDITION if

66+-- the request exists but is not in a pending state.

67+--

68+-- /See:/ 'projectsApprovalRequestsApprove' smart constructor.

69+data ProjectsApprovalRequestsApprove =

70+ ProjectsApprovalRequestsApprove'

71+ { _paraXgafv :: !(Maybe Xgafv)

72+ , _paraUploadProtocol :: !(Maybe Text)

73+ , _paraAccessToken :: !(Maybe Text)

74+ , _paraUploadType :: !(Maybe Text)

75+ , _paraPayload :: !ApproveApprovalRequestMessage

76+ , _paraName :: !Text

77+ , _paraCallback :: !(Maybe Text)

78+ }

79+ deriving (Eq, Show, Data, Typeable, Generic)

80+

81+

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

83+--

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

85+--

86+-- * 'paraXgafv'

87+--

88+-- * 'paraUploadProtocol'

89+--

90+-- * 'paraAccessToken'

91+--

92+-- * 'paraUploadType'

93+--

94+-- * 'paraPayload'

95+--

96+-- * 'paraName'

97+--

98+-- * 'paraCallback'

99+projectsApprovalRequestsApprove

100+ :: ApproveApprovalRequestMessage -- ^ 'paraPayload'

101+ -> Text -- ^ 'paraName'

102+ -> ProjectsApprovalRequestsApprove

103+projectsApprovalRequestsApprove pParaPayload_ pParaName_ =

104+ ProjectsApprovalRequestsApprove'

105+ { _paraXgafv = Nothing

106+ , _paraUploadProtocol = Nothing

107+ , _paraAccessToken = Nothing

108+ , _paraUploadType = Nothing

109+ , _paraPayload = pParaPayload_

110+ , _paraName = pParaName_

111+ , _paraCallback = Nothing

112+ }

113+

114+

115+-- | V1 error format.

116+paraXgafv :: Lens' ProjectsApprovalRequestsApprove (Maybe Xgafv)

117+paraXgafv

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

119+

120+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

121+paraUploadProtocol :: Lens' ProjectsApprovalRequestsApprove (Maybe Text)

122+paraUploadProtocol

123+ = lens _paraUploadProtocol

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

125+

126+-- | OAuth access token.

127+paraAccessToken :: Lens' ProjectsApprovalRequestsApprove (Maybe Text)

128+paraAccessToken

129+ = lens _paraAccessToken

130+ (\ s a -> s{_paraAccessToken = a})

131+

132+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

133+paraUploadType :: Lens' ProjectsApprovalRequestsApprove (Maybe Text)

134+paraUploadType

135+ = lens _paraUploadType

136+ (\ s a -> s{_paraUploadType = a})

137+

138+-- | Multipart request metadata.

139+paraPayload :: Lens' ProjectsApprovalRequestsApprove ApproveApprovalRequestMessage

140+paraPayload

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

142+

143+-- | Name of the approval request to approve.

144+paraName :: Lens' ProjectsApprovalRequestsApprove Text

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

146+

147+-- | JSONP

148+paraCallback :: Lens' ProjectsApprovalRequestsApprove (Maybe Text)

149+paraCallback

150+ = lens _paraCallback (\ s a -> s{_paraCallback = a})

151+

152+instance GoogleRequest

153+ ProjectsApprovalRequestsApprove

154+ where

155+ type Rs ProjectsApprovalRequestsApprove =

156+ ApprovalRequest

157+ type Scopes ProjectsApprovalRequestsApprove =

158+ '["https://www.googleapis.com/auth/cloud-platform"]

159+ requestClient ProjectsApprovalRequestsApprove'{..}

160+ = go _paraName _paraXgafv _paraUploadProtocol

161+ _paraAccessToken

162+ _paraUploadType

163+ _paraCallback

164+ (Just AltJSON)

165+ _paraPayload

166+ accessApprovalService

167+ where go

168+ = buildClient

169+ (Proxy ::

170+ Proxy ProjectsApprovalRequestsApproveResource)

171+ mempty

gogol-accessapproval/gen/Network/Google/Resource/AccessApproval/Projects/ApprovalRequests/Dismiss.hsnew file+175

@@ -0,0 +1,175 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Dismiss

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Dismisses a request. Returns the updated ApprovalRequest. NOTE: This

24+-- does not deny access to the resource if another request has been made

25+-- and approved. It is equivalent in effect to ignoring the request

26+-- altogether. Returns NOT_FOUND if the request does not exist. Returns

27+-- FAILED_PRECONDITION if the request exists but is not in a pending state.

28+--

29+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.projects.approvalRequests.dismiss@.

30+module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Dismiss

31+ (

32+ -- * REST Resource

33+ ProjectsApprovalRequestsDismissResource

34+

35+ -- * Creating a Request

36+ , projectsApprovalRequestsDismiss

37+ , ProjectsApprovalRequestsDismiss

38+

39+ -- * Request Lenses

40+ , pardXgafv

41+ , pardUploadProtocol

42+ , pardAccessToken

43+ , pardUploadType

44+ , pardPayload

45+ , pardName

46+ , pardCallback

47+ ) where

48+

49+import Network.Google.AccessApproval.Types

50+import Network.Google.Prelude

51+

52+-- | A resource alias for @accessapproval.projects.approvalRequests.dismiss@ method which the

53+-- 'ProjectsApprovalRequestsDismiss' request conforms to.

54+type ProjectsApprovalRequestsDismissResource =

55+ "v1beta1" :>

56+ CaptureMode "name" "dismiss" Text :>

57+ QueryParam "$.xgafv" Xgafv :>

58+ QueryParam "upload_protocol" Text :>

59+ QueryParam "access_token" Text :>

60+ QueryParam "uploadType" Text :>

61+ QueryParam "callback" Text :>

62+ QueryParam "alt" AltJSON :>

63+ ReqBody '[JSON] DismissApprovalRequestMessage :>

64+ Post '[JSON] ApprovalRequest

65+

66+-- | Dismisses a request. Returns the updated ApprovalRequest. NOTE: This

67+-- does not deny access to the resource if another request has been made

68+-- and approved. It is equivalent in effect to ignoring the request

69+-- altogether. Returns NOT_FOUND if the request does not exist. Returns

70+-- FAILED_PRECONDITION if the request exists but is not in a pending state.

71+--

72+-- /See:/ 'projectsApprovalRequestsDismiss' smart constructor.

73+data ProjectsApprovalRequestsDismiss =

74+ ProjectsApprovalRequestsDismiss'

75+ { _pardXgafv :: !(Maybe Xgafv)

76+ , _pardUploadProtocol :: !(Maybe Text)

77+ , _pardAccessToken :: !(Maybe Text)

78+ , _pardUploadType :: !(Maybe Text)

79+ , _pardPayload :: !DismissApprovalRequestMessage

80+ , _pardName :: !Text

81+ , _pardCallback :: !(Maybe Text)

82+ }

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

84+

85+

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

87+--

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

89+--

90+-- * 'pardXgafv'

91+--

92+-- * 'pardUploadProtocol'

93+--

94+-- * 'pardAccessToken'

95+--

96+-- * 'pardUploadType'

97+--

98+-- * 'pardPayload'

99+--

100+-- * 'pardName'

101+--

102+-- * 'pardCallback'

103+projectsApprovalRequestsDismiss

104+ :: DismissApprovalRequestMessage -- ^ 'pardPayload'

105+ -> Text -- ^ 'pardName'

106+ -> ProjectsApprovalRequestsDismiss

107+projectsApprovalRequestsDismiss pPardPayload_ pPardName_ =

108+ ProjectsApprovalRequestsDismiss'

109+ { _pardXgafv = Nothing

110+ , _pardUploadProtocol = Nothing

111+ , _pardAccessToken = Nothing

112+ , _pardUploadType = Nothing

113+ , _pardPayload = pPardPayload_

114+ , _pardName = pPardName_

115+ , _pardCallback = Nothing

116+ }

117+

118+

119+-- | V1 error format.

120+pardXgafv :: Lens' ProjectsApprovalRequestsDismiss (Maybe Xgafv)

121+pardXgafv

122+ = lens _pardXgafv (\ s a -> s{_pardXgafv = a})

123+

124+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

125+pardUploadProtocol :: Lens' ProjectsApprovalRequestsDismiss (Maybe Text)

126+pardUploadProtocol

127+ = lens _pardUploadProtocol

128+ (\ s a -> s{_pardUploadProtocol = a})

129+

130+-- | OAuth access token.

131+pardAccessToken :: Lens' ProjectsApprovalRequestsDismiss (Maybe Text)

132+pardAccessToken

133+ = lens _pardAccessToken

134+ (\ s a -> s{_pardAccessToken = a})

135+

136+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

137+pardUploadType :: Lens' ProjectsApprovalRequestsDismiss (Maybe Text)

138+pardUploadType

139+ = lens _pardUploadType

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

141+

142+-- | Multipart request metadata.

143+pardPayload :: Lens' ProjectsApprovalRequestsDismiss DismissApprovalRequestMessage

144+pardPayload

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

146+

147+-- | Name of the ApprovalRequest to dismiss.

148+pardName :: Lens' ProjectsApprovalRequestsDismiss Text

149+pardName = lens _pardName (\ s a -> s{_pardName = a})

150+

151+-- | JSONP

152+pardCallback :: Lens' ProjectsApprovalRequestsDismiss (Maybe Text)

153+pardCallback

154+ = lens _pardCallback (\ s a -> s{_pardCallback = a})

155+

156+instance GoogleRequest

157+ ProjectsApprovalRequestsDismiss

158+ where

159+ type Rs ProjectsApprovalRequestsDismiss =

160+ ApprovalRequest

161+ type Scopes ProjectsApprovalRequestsDismiss =

162+ '["https://www.googleapis.com/auth/cloud-platform"]

163+ requestClient ProjectsApprovalRequestsDismiss'{..}

164+ = go _pardName _pardXgafv _pardUploadProtocol

165+ _pardAccessToken

166+ _pardUploadType

167+ _pardCallback

168+ (Just AltJSON)

169+ _pardPayload

170+ accessApprovalService

171+ where go

172+ = buildClient

173+ (Proxy ::

174+ Proxy ProjectsApprovalRequestsDismissResource)

175+ mempty

gogol-accessapproval/gen/Network/Google/Resource/AccessApproval/Projects/ApprovalRequests/Get.hsnew file+153

@@ -0,0 +1,153 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Get

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Gets an approval request. Returns NOT_FOUND if the request does not

24+-- exist.

25+--

26+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.projects.approvalRequests.get@.

27+module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Get

28+ (

29+ -- * REST Resource

30+ ProjectsApprovalRequestsGetResource

31+

32+ -- * Creating a Request

33+ , projectsApprovalRequestsGet

34+ , ProjectsApprovalRequestsGet

35+

36+ -- * Request Lenses

37+ , pargXgafv

38+ , pargUploadProtocol

39+ , pargAccessToken

40+ , pargUploadType

41+ , pargName

42+ , pargCallback

43+ ) where

44+

45+import Network.Google.AccessApproval.Types

46+import Network.Google.Prelude

47+

48+-- | A resource alias for @accessapproval.projects.approvalRequests.get@ method which the

49+-- 'ProjectsApprovalRequestsGet' request conforms to.

50+type ProjectsApprovalRequestsGetResource =

51+ "v1beta1" :>

52+ Capture "name" Text :>

53+ QueryParam "$.xgafv" Xgafv :>

54+ QueryParam "upload_protocol" Text :>

55+ QueryParam "access_token" Text :>

56+ QueryParam "uploadType" Text :>

57+ QueryParam "callback" Text :>

58+ QueryParam "alt" AltJSON :>

59+ Get '[JSON] ApprovalRequest

60+

61+-- | Gets an approval request. Returns NOT_FOUND if the request does not

62+-- exist.

63+--

64+-- /See:/ 'projectsApprovalRequestsGet' smart constructor.

65+data ProjectsApprovalRequestsGet =

66+ ProjectsApprovalRequestsGet'

67+ { _pargXgafv :: !(Maybe Xgafv)

68+ , _pargUploadProtocol :: !(Maybe Text)

69+ , _pargAccessToken :: !(Maybe Text)

70+ , _pargUploadType :: !(Maybe Text)

71+ , _pargName :: !Text

72+ , _pargCallback :: !(Maybe Text)

73+ }

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

75+

76+

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

78+--

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

80+--

81+-- * 'pargXgafv'

82+--

83+-- * 'pargUploadProtocol'

84+--

85+-- * 'pargAccessToken'

86+--

87+-- * 'pargUploadType'

88+--

89+-- * 'pargName'

90+--

91+-- * 'pargCallback'

92+projectsApprovalRequestsGet

93+ :: Text -- ^ 'pargName'

94+ -> ProjectsApprovalRequestsGet

95+projectsApprovalRequestsGet pPargName_ =

96+ ProjectsApprovalRequestsGet'

97+ { _pargXgafv = Nothing

98+ , _pargUploadProtocol = Nothing

99+ , _pargAccessToken = Nothing

100+ , _pargUploadType = Nothing

101+ , _pargName = pPargName_

102+ , _pargCallback = Nothing

103+ }

104+

105+

106+-- | V1 error format.

107+pargXgafv :: Lens' ProjectsApprovalRequestsGet (Maybe Xgafv)

108+pargXgafv

109+ = lens _pargXgafv (\ s a -> s{_pargXgafv = a})

110+

111+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

112+pargUploadProtocol :: Lens' ProjectsApprovalRequestsGet (Maybe Text)

113+pargUploadProtocol

114+ = lens _pargUploadProtocol

115+ (\ s a -> s{_pargUploadProtocol = a})

116+

117+-- | OAuth access token.

118+pargAccessToken :: Lens' ProjectsApprovalRequestsGet (Maybe Text)

119+pargAccessToken

120+ = lens _pargAccessToken

121+ (\ s a -> s{_pargAccessToken = a})

122+

123+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

124+pargUploadType :: Lens' ProjectsApprovalRequestsGet (Maybe Text)

125+pargUploadType

126+ = lens _pargUploadType

127+ (\ s a -> s{_pargUploadType = a})

128+

129+-- | Name of the approval request to retrieve.

130+pargName :: Lens' ProjectsApprovalRequestsGet Text

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

132+

133+-- | JSONP

134+pargCallback :: Lens' ProjectsApprovalRequestsGet (Maybe Text)

135+pargCallback

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

137+

138+instance GoogleRequest ProjectsApprovalRequestsGet

139+ where

140+ type Rs ProjectsApprovalRequestsGet = ApprovalRequest

141+ type Scopes ProjectsApprovalRequestsGet =

142+ '["https://www.googleapis.com/auth/cloud-platform"]

143+ requestClient ProjectsApprovalRequestsGet'{..}

144+ = go _pargName _pargXgafv _pargUploadProtocol

145+ _pargAccessToken

146+ _pargUploadType

147+ _pargCallback

148+ (Just AltJSON)

149+ accessApprovalService

150+ where go

151+ = buildClient

152+ (Proxy :: Proxy ProjectsApprovalRequestsGetResource)

153+ mempty

gogol-accessapproval/gen/Network/Google/Resource/AccessApproval/Projects/ApprovalRequests/List.hsnew file+204

@@ -0,0 +1,204 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.List

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Lists approval requests associated with a project, folder, or

24+-- organization. Approval requests can be filtered by state (pending,

25+-- active, dismissed). The order is reverse chronological.

26+--

27+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.projects.approvalRequests.list@.

28+module Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.List

29+ (

30+ -- * REST Resource

31+ ProjectsApprovalRequestsListResource

32+

33+ -- * Creating a Request

34+ , projectsApprovalRequestsList

35+ , ProjectsApprovalRequestsList

36+

37+ -- * Request Lenses

38+ , parlParent

39+ , parlXgafv

40+ , parlUploadProtocol

41+ , parlAccessToken

42+ , parlUploadType

43+ , parlFilter

44+ , parlPageToken

45+ , parlPageSize

46+ , parlCallback

47+ ) where

48+

49+import Network.Google.AccessApproval.Types

50+import Network.Google.Prelude

51+

52+-- | A resource alias for @accessapproval.projects.approvalRequests.list@ method which the

53+-- 'ProjectsApprovalRequestsList' request conforms to.

54+type ProjectsApprovalRequestsListResource =

55+ "v1beta1" :>

56+ Capture "parent" Text :>

57+ "approvalRequests" :>

58+ QueryParam "$.xgafv" Xgafv :>

59+ QueryParam "upload_protocol" Text :>

60+ QueryParam "access_token" Text :>

61+ QueryParam "uploadType" Text :>

62+ QueryParam "filter" Text :>

63+ QueryParam "pageToken" Text :>

64+ QueryParam "pageSize" (Textual Int32) :>

65+ QueryParam "callback" Text :>

66+ QueryParam "alt" AltJSON :>

67+ Get '[JSON] ListApprovalRequestsResponse

68+

69+-- | Lists approval requests associated with a project, folder, or

70+-- organization. Approval requests can be filtered by state (pending,

71+-- active, dismissed). The order is reverse chronological.

72+--

73+-- /See:/ 'projectsApprovalRequestsList' smart constructor.

74+data ProjectsApprovalRequestsList =

75+ ProjectsApprovalRequestsList'

76+ { _parlParent :: !Text

77+ , _parlXgafv :: !(Maybe Xgafv)

78+ , _parlUploadProtocol :: !(Maybe Text)

79+ , _parlAccessToken :: !(Maybe Text)

80+ , _parlUploadType :: !(Maybe Text)

81+ , _parlFilter :: !(Maybe Text)

82+ , _parlPageToken :: !(Maybe Text)

83+ , _parlPageSize :: !(Maybe (Textual Int32))

84+ , _parlCallback :: !(Maybe Text)

85+ }

86+ deriving (Eq, Show, Data, Typeable, Generic)

87+

88+

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

90+--

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

92+--

93+-- * 'parlParent'

94+--

95+-- * 'parlXgafv'

96+--

97+-- * 'parlUploadProtocol'

98+--

99+-- * 'parlAccessToken'

100+--

101+-- * 'parlUploadType'

102+--

103+-- * 'parlFilter'

104+--

105+-- * 'parlPageToken'

106+--

107+-- * 'parlPageSize'

108+--

109+-- * 'parlCallback'

110+projectsApprovalRequestsList

111+ :: Text -- ^ 'parlParent'

112+ -> ProjectsApprovalRequestsList

113+projectsApprovalRequestsList pParlParent_ =

114+ ProjectsApprovalRequestsList'

115+ { _parlParent = pParlParent_

116+ , _parlXgafv = Nothing

117+ , _parlUploadProtocol = Nothing

118+ , _parlAccessToken = Nothing

119+ , _parlUploadType = Nothing

120+ , _parlFilter = Nothing

121+ , _parlPageToken = Nothing

122+ , _parlPageSize = Nothing

123+ , _parlCallback = Nothing

124+ }

125+

126+

127+-- | The parent resource. This may be \"projects\/{project_id}\",

128+-- \"folders\/{folder_id}\", or \"organizations\/{organization_id}\".

129+parlParent :: Lens' ProjectsApprovalRequestsList Text

130+parlParent

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

132+

133+-- | V1 error format.

134+parlXgafv :: Lens' ProjectsApprovalRequestsList (Maybe Xgafv)

135+parlXgafv

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

137+

138+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

139+parlUploadProtocol :: Lens' ProjectsApprovalRequestsList (Maybe Text)

140+parlUploadProtocol

141+ = lens _parlUploadProtocol

142+ (\ s a -> s{_parlUploadProtocol = a})

143+

144+-- | OAuth access token.

145+parlAccessToken :: Lens' ProjectsApprovalRequestsList (Maybe Text)

146+parlAccessToken

147+ = lens _parlAccessToken

148+ (\ s a -> s{_parlAccessToken = a})

149+

150+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

151+parlUploadType :: Lens' ProjectsApprovalRequestsList (Maybe Text)

152+parlUploadType

153+ = lens _parlUploadType

154+ (\ s a -> s{_parlUploadType = a})

155+

156+-- | A filter on the type of approval requests to retrieve. Must be one of

157+-- the following values:

158+--

159+-- 1. [not set]: Requests that are pending or have active approvals.

160+-- 2. ALL: All requests.

161+-- 3. PENDING: Only pending requests.

162+-- 4. ACTIVE: Only active (i.e. currently approved) requests.

163+-- 5. DISMISSED: Only dismissed (including expired) requests.

164+parlFilter :: Lens' ProjectsApprovalRequestsList (Maybe Text)

165+parlFilter

166+ = lens _parlFilter (\ s a -> s{_parlFilter = a})

167+

168+-- | A token identifying the page of results to return.

169+parlPageToken :: Lens' ProjectsApprovalRequestsList (Maybe Text)

170+parlPageToken

171+ = lens _parlPageToken

172+ (\ s a -> s{_parlPageToken = a})

173+

174+-- | Requested page size.

175+parlPageSize :: Lens' ProjectsApprovalRequestsList (Maybe Int32)

176+parlPageSize

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

178+ . mapping _Coerce

179+

180+-- | JSONP

181+parlCallback :: Lens' ProjectsApprovalRequestsList (Maybe Text)

182+parlCallback

183+ = lens _parlCallback (\ s a -> s{_parlCallback = a})

184+

185+instance GoogleRequest ProjectsApprovalRequestsList

186+ where

187+ type Rs ProjectsApprovalRequestsList =

188+ ListApprovalRequestsResponse

189+ type Scopes ProjectsApprovalRequestsList =

190+ '["https://www.googleapis.com/auth/cloud-platform"]

191+ requestClient ProjectsApprovalRequestsList'{..}

192+ = go _parlParent _parlXgafv _parlUploadProtocol

193+ _parlAccessToken

194+ _parlUploadType

195+ _parlFilter

196+ _parlPageToken

197+ _parlPageSize

198+ _parlCallback

199+ (Just AltJSON)

200+ accessApprovalService

201+ where go

202+ = buildClient

203+ (Proxy :: Proxy ProjectsApprovalRequestsListResource)

204+ mempty

gogol-accessapproval/gen/Network/Google/Resource/AccessApproval/Projects/GetAccessApprovalSettings.hsnew file+156

@@ -0,0 +1,156 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessApproval.Projects.GetAccessApprovalSettings

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Gets the settings associated with a project, folder, or organization.

24+--

25+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.projects.getAccessApprovalSettings@.

26+module Network.Google.Resource.AccessApproval.Projects.GetAccessApprovalSettings

27+ (

28+ -- * REST Resource

29+ ProjectsGetAccessApprovalSettingsResource

30+

31+ -- * Creating a Request

32+ , projectsGetAccessApprovalSettings

33+ , ProjectsGetAccessApprovalSettings

34+

35+ -- * Request Lenses

36+ , pgaasXgafv

37+ , pgaasUploadProtocol

38+ , pgaasAccessToken

39+ , pgaasUploadType

40+ , pgaasName

41+ , pgaasCallback

42+ ) where

43+

44+import Network.Google.AccessApproval.Types

45+import Network.Google.Prelude

46+

47+-- | A resource alias for @accessapproval.projects.getAccessApprovalSettings@ method which the

48+-- 'ProjectsGetAccessApprovalSettings' request conforms to.

49+type ProjectsGetAccessApprovalSettingsResource =

50+ "v1beta1" :>

51+ Capture "name" Text :>

52+ QueryParam "$.xgafv" Xgafv :>

53+ QueryParam "upload_protocol" Text :>

54+ QueryParam "access_token" Text :>

55+ QueryParam "uploadType" Text :>

56+ QueryParam "callback" Text :>

57+ QueryParam "alt" AltJSON :>

58+ Get '[JSON] AccessApprovalSettings

59+

60+-- | Gets the settings associated with a project, folder, or organization.

61+--

62+-- /See:/ 'projectsGetAccessApprovalSettings' smart constructor.

63+data ProjectsGetAccessApprovalSettings =

64+ ProjectsGetAccessApprovalSettings'

65+ { _pgaasXgafv :: !(Maybe Xgafv)

66+ , _pgaasUploadProtocol :: !(Maybe Text)

67+ , _pgaasAccessToken :: !(Maybe Text)

68+ , _pgaasUploadType :: !(Maybe Text)

69+ , _pgaasName :: !Text

70+ , _pgaasCallback :: !(Maybe Text)

71+ }

72+ deriving (Eq, Show, Data, Typeable, Generic)

73+

74+

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

76+--

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

78+--

79+-- * 'pgaasXgafv'

80+--

81+-- * 'pgaasUploadProtocol'

82+--

83+-- * 'pgaasAccessToken'

84+--

85+-- * 'pgaasUploadType'

86+--

87+-- * 'pgaasName'

88+--

89+-- * 'pgaasCallback'

90+projectsGetAccessApprovalSettings

91+ :: Text -- ^ 'pgaasName'

92+ -> ProjectsGetAccessApprovalSettings

93+projectsGetAccessApprovalSettings pPgaasName_ =

94+ ProjectsGetAccessApprovalSettings'

95+ { _pgaasXgafv = Nothing

96+ , _pgaasUploadProtocol = Nothing

97+ , _pgaasAccessToken = Nothing

98+ , _pgaasUploadType = Nothing

99+ , _pgaasName = pPgaasName_

100+ , _pgaasCallback = Nothing

101+ }

102+

103+

104+-- | V1 error format.

105+pgaasXgafv :: Lens' ProjectsGetAccessApprovalSettings (Maybe Xgafv)

106+pgaasXgafv

107+ = lens _pgaasXgafv (\ s a -> s{_pgaasXgafv = a})

108+

109+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

110+pgaasUploadProtocol :: Lens' ProjectsGetAccessApprovalSettings (Maybe Text)

111+pgaasUploadProtocol

112+ = lens _pgaasUploadProtocol

113+ (\ s a -> s{_pgaasUploadProtocol = a})

114+

115+-- | OAuth access token.

116+pgaasAccessToken :: Lens' ProjectsGetAccessApprovalSettings (Maybe Text)

117+pgaasAccessToken

118+ = lens _pgaasAccessToken

119+ (\ s a -> s{_pgaasAccessToken = a})

120+

121+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

122+pgaasUploadType :: Lens' ProjectsGetAccessApprovalSettings (Maybe Text)

123+pgaasUploadType

124+ = lens _pgaasUploadType

125+ (\ s a -> s{_pgaasUploadType = a})

126+

127+-- | Name of the AccessApprovalSettings to retrieve.

128+pgaasName :: Lens' ProjectsGetAccessApprovalSettings Text

129+pgaasName

130+ = lens _pgaasName (\ s a -> s{_pgaasName = a})

131+

132+-- | JSONP

133+pgaasCallback :: Lens' ProjectsGetAccessApprovalSettings (Maybe Text)

134+pgaasCallback

135+ = lens _pgaasCallback

136+ (\ s a -> s{_pgaasCallback = a})

137+

138+instance GoogleRequest

139+ ProjectsGetAccessApprovalSettings

140+ where

141+ type Rs ProjectsGetAccessApprovalSettings =

142+ AccessApprovalSettings

143+ type Scopes ProjectsGetAccessApprovalSettings =

144+ '["https://www.googleapis.com/auth/cloud-platform"]

145+ requestClient ProjectsGetAccessApprovalSettings'{..}

146+ = go _pgaasName _pgaasXgafv _pgaasUploadProtocol

147+ _pgaasAccessToken

148+ _pgaasUploadType

149+ _pgaasCallback

150+ (Just AltJSON)

151+ accessApprovalService

152+ where go

153+ = buildClient

154+ (Proxy ::

155+ Proxy ProjectsGetAccessApprovalSettingsResource)

156+ mempty

gogol-accessapproval/gen/Network/Google/Resource/AccessApproval/Projects/UpdateAccessApprovalSettings.hsnew file+175

@@ -0,0 +1,175 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessApproval.Projects.UpdateAccessApprovalSettings

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Updates the settings associated with a project, folder, or organization.

24+-- Completely replaces the existing settings.

25+--

26+-- /See:/ <https://cloud.google.com/access-approval/docs Access Approval API Reference> for @accessapproval.projects.updateAccessApprovalSettings@.

27+module Network.Google.Resource.AccessApproval.Projects.UpdateAccessApprovalSettings

28+ (

29+ -- * REST Resource

30+ ProjectsUpdateAccessApprovalSettingsResource

31+

32+ -- * Creating a Request

33+ , projectsUpdateAccessApprovalSettings

34+ , ProjectsUpdateAccessApprovalSettings

35+

36+ -- * Request Lenses

37+ , puaasXgafv

38+ , puaasUploadProtocol

39+ , puaasAccessToken

40+ , puaasUploadType

41+ , puaasPayload

42+ , puaasName

43+ , puaasCallback

44+ ) where

45+

46+import Network.Google.AccessApproval.Types

47+import Network.Google.Prelude

48+

49+-- | A resource alias for @accessapproval.projects.updateAccessApprovalSettings@ method which the

50+-- 'ProjectsUpdateAccessApprovalSettings' request conforms to.

51+type ProjectsUpdateAccessApprovalSettingsResource =

52+ "v1beta1" :>

53+ Capture "name" Text :>

54+ QueryParam "$.xgafv" Xgafv :>

55+ QueryParam "upload_protocol" Text :>

56+ QueryParam "access_token" Text :>

57+ QueryParam "uploadType" Text :>

58+ QueryParam "callback" Text :>

59+ QueryParam "alt" AltJSON :>

60+ ReqBody '[JSON] AccessApprovalSettings :>

61+ Patch '[JSON] AccessApprovalSettings

62+

63+-- | Updates the settings associated with a project, folder, or organization.

64+-- Completely replaces the existing settings.

65+--

66+-- /See:/ 'projectsUpdateAccessApprovalSettings' smart constructor.

67+data ProjectsUpdateAccessApprovalSettings =

68+ ProjectsUpdateAccessApprovalSettings'

69+ { _puaasXgafv :: !(Maybe Xgafv)

70+ , _puaasUploadProtocol :: !(Maybe Text)

71+ , _puaasAccessToken :: !(Maybe Text)

72+ , _puaasUploadType :: !(Maybe Text)

73+ , _puaasPayload :: !AccessApprovalSettings

74+ , _puaasName :: !Text

75+ , _puaasCallback :: !(Maybe Text)

76+ }

77+ deriving (Eq, Show, Data, Typeable, Generic)

78+

79+

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

81+--

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

83+--

84+-- * 'puaasXgafv'

85+--

86+-- * 'puaasUploadProtocol'

87+--

88+-- * 'puaasAccessToken'

89+--

90+-- * 'puaasUploadType'

91+--

92+-- * 'puaasPayload'

93+--

94+-- * 'puaasName'

95+--

96+-- * 'puaasCallback'

97+projectsUpdateAccessApprovalSettings

98+ :: AccessApprovalSettings -- ^ 'puaasPayload'

99+ -> Text -- ^ 'puaasName'

100+ -> ProjectsUpdateAccessApprovalSettings

101+projectsUpdateAccessApprovalSettings pPuaasPayload_ pPuaasName_ =

102+ ProjectsUpdateAccessApprovalSettings'

103+ { _puaasXgafv = Nothing

104+ , _puaasUploadProtocol = Nothing

105+ , _puaasAccessToken = Nothing

106+ , _puaasUploadType = Nothing

107+ , _puaasPayload = pPuaasPayload_

108+ , _puaasName = pPuaasName_

109+ , _puaasCallback = Nothing

110+ }

111+

112+

113+-- | V1 error format.

114+puaasXgafv :: Lens' ProjectsUpdateAccessApprovalSettings (Maybe Xgafv)

115+puaasXgafv

116+ = lens _puaasXgafv (\ s a -> s{_puaasXgafv = a})

117+

118+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

119+puaasUploadProtocol :: Lens' ProjectsUpdateAccessApprovalSettings (Maybe Text)

120+puaasUploadProtocol

121+ = lens _puaasUploadProtocol

122+ (\ s a -> s{_puaasUploadProtocol = a})

123+

124+-- | OAuth access token.

125+puaasAccessToken :: Lens' ProjectsUpdateAccessApprovalSettings (Maybe Text)

126+puaasAccessToken

127+ = lens _puaasAccessToken

128+ (\ s a -> s{_puaasAccessToken = a})

129+

130+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

131+puaasUploadType :: Lens' ProjectsUpdateAccessApprovalSettings (Maybe Text)

132+puaasUploadType

133+ = lens _puaasUploadType

134+ (\ s a -> s{_puaasUploadType = a})

135+

136+-- | Multipart request metadata.

137+puaasPayload :: Lens' ProjectsUpdateAccessApprovalSettings AccessApprovalSettings

138+puaasPayload

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

140+

141+-- | The resource name of the settings. Format is one of:

142+-- \"projects\/{project_id}\/accessApprovalSettings\"

143+-- \"folders\/{folder_id}\/accessApprovalSettings\"

144+-- \"organizations\/{organization_id}\/accessApprovalSettings\"

145+puaasName :: Lens' ProjectsUpdateAccessApprovalSettings Text

146+puaasName

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

148+

149+-- | JSONP

150+puaasCallback :: Lens' ProjectsUpdateAccessApprovalSettings (Maybe Text)

151+puaasCallback

152+ = lens _puaasCallback

153+ (\ s a -> s{_puaasCallback = a})

154+

155+instance GoogleRequest

156+ ProjectsUpdateAccessApprovalSettings

157+ where

158+ type Rs ProjectsUpdateAccessApprovalSettings =

159+ AccessApprovalSettings

160+ type Scopes ProjectsUpdateAccessApprovalSettings =

161+ '["https://www.googleapis.com/auth/cloud-platform"]

162+ requestClient

163+ ProjectsUpdateAccessApprovalSettings'{..}

164+ = go _puaasName _puaasXgafv _puaasUploadProtocol

165+ _puaasAccessToken

166+ _puaasUploadType

167+ _puaasCallback

168+ (Just AltJSON)

169+ _puaasPayload

170+ accessApprovalService

171+ where go

172+ = buildClient

173+ (Proxy ::

174+ Proxy ProjectsUpdateAccessApprovalSettingsResource)

175+ mempty

gogol-accessapproval/gogol-accessapproval.cabalnew file+63

@@ -0,0 +1,63 @@

1+name: gogol-accessapproval

2+version: 0.5.0

3+synopsis: Google Access Approval SDK.

4+homepage: https://github.com/brendanhay/gogol

5+bug-reports: https://github.com/brendanhay/gogol/issues

6+license: OtherLicense

7+license-file: LICENSE

8+author: Brendan Hay

9+maintainer: Brendan Hay <brendan.g.hay@gmail.com>

11+category: Network, Google, Cloud

12+build-type: Simple

13+cabal-version: >= 1.10

14+extra-source-files: README.md src/.gitkeep

15+

16+description:

17+ An API for controlling access to data by Google personnel.

18+ .

19+ /Warning:/ This is an experimental prototype/preview release which is still

20+ under exploratory development and not intended for public use, caveat emptor!

21+ .

22+ This library is compatible with version @v1beta1@

23+ of the API.

24+

25+source-repository head

26+ type: git

27+ location: git://github.com/brendanhay/gogol.git

28+

29+library

30+ default-language: Haskell2010

31+ hs-source-dirs: src gen

32+

33+ ghc-options: -Wall

34+

35+ exposed-modules:

36+ Network.Google.AccessApproval

37+ , Network.Google.AccessApproval.Types

38+ , Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Approve

39+ , Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Dismiss

40+ , Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.Get

41+ , Network.Google.Resource.AccessApproval.Folders.ApprovalRequests.List

42+ , Network.Google.Resource.AccessApproval.Folders.GetAccessApprovalSettings

43+ , Network.Google.Resource.AccessApproval.Folders.UpdateAccessApprovalSettings

44+ , Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Approve

45+ , Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Dismiss

46+ , Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.Get

47+ , Network.Google.Resource.AccessApproval.Organizations.ApprovalRequests.List

48+ , Network.Google.Resource.AccessApproval.Organizations.GetAccessApprovalSettings

49+ , Network.Google.Resource.AccessApproval.Organizations.UpdateAccessApprovalSettings

50+ , Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Approve

51+ , Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Dismiss

52+ , Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.Get

53+ , Network.Google.Resource.AccessApproval.Projects.ApprovalRequests.List

54+ , Network.Google.Resource.AccessApproval.Projects.GetAccessApprovalSettings

55+ , Network.Google.Resource.AccessApproval.Projects.UpdateAccessApprovalSettings

56+

57+ other-modules:

58+ Network.Google.AccessApproval.Types.Product

59+ , Network.Google.AccessApproval.Types.Sum

60+

61+ build-depends:

62+ gogol-core == 0.5.0.*

63+ , base >= 4.7 && < 5

gogol-photoslibrary/src/.gitkeep → gogol-accessapproval/src/.gitkeeprenamed

The content is the same.

gogol-accesscontextmanager/gen/Network/Google/AccessContextManager.hs+33−1

@@ -75,9 +75,18 @@ module Network.Google.AccessContextManager

7575 -- ** accesscontextmanager.accessPolicies.servicePerimeters.patch

7676 , module Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Patch

7777

78+ -- ** accesscontextmanager.operations.cancel

79+ , module Network.Google.Resource.AccessContextManager.Operations.Cancel

80+

81+ -- ** accesscontextmanager.operations.delete

82+ , module Network.Google.Resource.AccessContextManager.Operations.Delete

83+

7884 -- ** accesscontextmanager.operations.get

7985 , module Network.Google.Resource.AccessContextManager.Operations.Get

8086

87+ -- ** accesscontextmanager.operations.list

88+ , module Network.Google.Resource.AccessContextManager.Operations.List

89+

8190 -- * Types

8291

8392 -- ** Status

@@ -93,6 +102,16 @@ module Network.Google.AccessContextManager

93102 , blConditions

94103 , blCombiningFunction

95104

105+ -- ** ListOperationsResponse

106+ , ListOperationsResponse

107+ , listOperationsResponse

108+ , lorNextPageToken

109+ , lorOperations

110+

111+ -- ** CancelOperationRequest

112+ , CancelOperationRequest

113+ , cancelOperationRequest

114+

96115 -- ** AccessLevel

97116 , AccessLevel

98117 , accessLevel

@@ -109,7 +128,6 @@ module Network.Google.AccessContextManager

109128 -- ** ServicePerimeterConfig

110129 , ServicePerimeterConfig

111130 , servicePerimeterConfig

112− , spcUnrestrictedServices

113131 , spcResources

114132 , spcRestrictedServices

115133 , spcAccessLevels

@@ -126,6 +144,10 @@ module Network.Google.AccessContextManager

126144 -- ** ServicePerimeterPerimeterType

127145 , ServicePerimeterPerimeterType (..)

128146

147+ -- ** Empty

148+ , Empty

149+ , empty

150+

129151 -- ** OSConstraintOSType

130152 , OSConstraintOSType (..)

131153

@@ -156,6 +178,7 @@ module Network.Google.AccessContextManager

156178 , osConstraint

157179 , ocOSType

158180 , ocMinimumVersion

181+ , ocRequireVerifiedChromeOS

159182

160183 -- ** AccessPolicy

161184 , AccessPolicy

@@ -190,6 +213,8 @@ module Network.Google.AccessContextManager

190213 , DevicePolicy

191214 , devicePolicy

192215 , dpOSConstraints

216+ , dpRequireAdminApproval

217+ , dpRequireCorpOwned

193218 , dpRequireScreenlock

194219 , dpAllowedEncryptionStatuses

195220 , dpAllowedDeviceManagementLevels

@@ -198,6 +223,7 @@ module Network.Google.AccessContextManager

198223 , Condition

199224 , condition

200225 , cMembers

226+ , cRegions

201227 , cNegate

202228 , cIPSubnetworks

203229 , cDevicePolicy

@@ -226,7 +252,10 @@ import Network.Google.Resource.AccessContextManager.AccessPolicies.Ser

226252import Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Get

227253import Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.List

228254import Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Patch

255+import Network.Google.Resource.AccessContextManager.Operations.Cancel

256+import Network.Google.Resource.AccessContextManager.Operations.Delete

229257import Network.Google.Resource.AccessContextManager.Operations.Get

258+import Network.Google.Resource.AccessContextManager.Operations.List

230259

231260{- $resources

232261TODO

@@ -249,4 +278,7 @@ type AccessContextManagerAPI =

249278 :<|> AccessPoliciesGetResource

250279 :<|> AccessPoliciesCreateResource

251280 :<|> AccessPoliciesDeleteResource

281+ :<|> OperationsListResource

252282 :<|> OperationsGetResource

283+ :<|> OperationsCancelResource

284+ :<|> OperationsDeleteResource

gogol-accesscontextmanager/gen/Network/Google/AccessContextManager/Types.hs+20−3

@@ -35,6 +35,16 @@ module Network.Google.AccessContextManager.Types

3535 , blConditions

3636 , blCombiningFunction

3737

38+ -- * ListOperationsResponse

39+ , ListOperationsResponse

40+ , listOperationsResponse

41+ , lorNextPageToken

42+ , lorOperations

43+

44+ -- * CancelOperationRequest

45+ , CancelOperationRequest

46+ , cancelOperationRequest

47+

3848 -- * AccessLevel

3949 , AccessLevel

4050 , accessLevel

@@ -51,7 +61,6 @@ module Network.Google.AccessContextManager.Types

5161 -- * ServicePerimeterConfig

5262 , ServicePerimeterConfig

5363 , servicePerimeterConfig

54− , spcUnrestrictedServices

5564 , spcResources

5665 , spcRestrictedServices

5766 , spcAccessLevels

@@ -68,6 +77,10 @@ module Network.Google.AccessContextManager.Types

6877 -- * ServicePerimeterPerimeterType

6978 , ServicePerimeterPerimeterType (..)

7079

80+ -- * Empty

81+ , Empty

82+ , empty

83+

7184 -- * OSConstraintOSType

7285 , OSConstraintOSType (..)

7386

@@ -98,6 +111,7 @@ module Network.Google.AccessContextManager.Types

98111 , osConstraint

99112 , ocOSType

100113 , ocMinimumVersion

114+ , ocRequireVerifiedChromeOS

101115

102116 -- * AccessPolicy

103117 , AccessPolicy

@@ -132,6 +146,8 @@ module Network.Google.AccessContextManager.Types

132146 , DevicePolicy

133147 , devicePolicy

134148 , dpOSConstraints

149+ , dpRequireAdminApproval

150+ , dpRequireCorpOwned

135151 , dpRequireScreenlock

136152 , dpAllowedEncryptionStatuses

137153 , dpAllowedDeviceManagementLevels

@@ -140,6 +156,7 @@ module Network.Google.AccessContextManager.Types

140156 , Condition

141157 , condition

142158 , cMembers

159+ , cRegions

143160 , cNegate

144161 , cIPSubnetworks

145162 , cDevicePolicy

@@ -155,11 +172,11 @@ import Network.Google.AccessContextManager.Types.Product

155172import Network.Google.AccessContextManager.Types.Sum

156173import Network.Google.Prelude

157174

158−-- | Default request referring to version 'v1beta' of the Access Context Manager API. This contains the host and root path used as a starting point for constructing service requests.

175+-- | Default request referring to version 'v1' of the Access Context Manager API. This contains the host and root path used as a starting point for constructing service requests.

159176accessContextManagerService :: ServiceConfig

160177accessContextManagerService

161178 = defaultService

162− (ServiceId "accesscontextmanager:v1beta")

179+ (ServiceId "accesscontextmanager:v1")

163180 "accesscontextmanager.googleapis.com"

164181

165182-- | View and manage your data across Google Cloud Platform services

gogol-accesscontextmanager/gen/Network/Google/AccessContextManager/Types/Product.hs+185−57

@@ -174,6 +174,83 @@ instance ToJSON BasicLevel where

174174 [("conditions" .=) <$> _blConditions,

175175 ("combiningFunction" .=) <$> _blCombiningFunction])

176176

177+-- | The response message for Operations.ListOperations.

178+--

179+-- /See:/ 'listOperationsResponse' smart constructor.

180+data ListOperationsResponse =

181+ ListOperationsResponse'

182+ { _lorNextPageToken :: !(Maybe Text)

183+ , _lorOperations :: !(Maybe [Operation])

184+ }

185+ deriving (Eq, Show, Data, Typeable, Generic)

186+

187+

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

189+--

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

191+--

192+-- * 'lorNextPageToken'

193+--

194+-- * 'lorOperations'

195+listOperationsResponse

196+ :: ListOperationsResponse

197+listOperationsResponse =

198+ ListOperationsResponse'

199+ {_lorNextPageToken = Nothing, _lorOperations = Nothing}

200+

201+

202+-- | The standard List next-page token.

203+lorNextPageToken :: Lens' ListOperationsResponse (Maybe Text)

204+lorNextPageToken

205+ = lens _lorNextPageToken

206+ (\ s a -> s{_lorNextPageToken = a})

207+

208+-- | A list of operations that matches the specified filter in the request.

209+lorOperations :: Lens' ListOperationsResponse [Operation]

210+lorOperations

211+ = lens _lorOperations

212+ (\ s a -> s{_lorOperations = a})

213+ . _Default

214+ . _Coerce

215+

216+instance FromJSON ListOperationsResponse where

217+ parseJSON

218+ = withObject "ListOperationsResponse"

219+ (\ o ->

220+ ListOperationsResponse' <$>

221+ (o .:? "nextPageToken") <*>

222+ (o .:? "operations" .!= mempty))

223+

224+instance ToJSON ListOperationsResponse where

225+ toJSON ListOperationsResponse'{..}

226+ = object

227+ (catMaybes

228+ [("nextPageToken" .=) <$> _lorNextPageToken,

229+ ("operations" .=) <$> _lorOperations])

230+

231+-- | The request message for Operations.CancelOperation.

232+--

233+-- /See:/ 'cancelOperationRequest' smart constructor.

234+data CancelOperationRequest =

235+ CancelOperationRequest'

236+ deriving (Eq, Show, Data, Typeable, Generic)

237+

238+

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

240+--

241+cancelOperationRequest

242+ :: CancelOperationRequest

243+cancelOperationRequest = CancelOperationRequest'

244+

245+

246+instance FromJSON CancelOperationRequest where

247+ parseJSON

248+ = withObject "CancelOperationRequest"

249+ (\ o -> pure CancelOperationRequest')

250+

251+instance ToJSON CancelOperationRequest where

252+ toJSON = const emptyObject

253+

177254-- | An \`AccessLevel\` is a label that can be applied to requests to GCP

178255-- services, along with a list of requirements necessary for the label to

179256-- be applied.

@@ -280,10 +357,9 @@ instance ToJSON AccessLevel where

280357-- /See:/ 'servicePerimeterConfig' smart constructor.

281358data ServicePerimeterConfig =

282359 ServicePerimeterConfig'

283− { _spcUnrestrictedServices :: !(Maybe [Text])

284− , _spcResources :: !(Maybe [Text])

285− , _spcRestrictedServices :: !(Maybe [Text])

286− , _spcAccessLevels :: !(Maybe [Text])

360+ { _spcResources :: !(Maybe [Text])

361+ , _spcRestrictedServices :: !(Maybe [Text])

362+ , _spcAccessLevels :: !(Maybe [Text])

287363 }

288364 deriving (Eq, Show, Data, Typeable, Generic)

289365

@@ -292,8 +368,6 @@ data ServicePerimeterConfig =

292368--

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

294370--

295−-- * 'spcUnrestrictedServices'

296−--

297371-- * 'spcResources'

298372--

299373-- * 'spcRestrictedServices'

@@ -303,32 +377,12 @@ servicePerimeterConfig

303377 :: ServicePerimeterConfig

304378servicePerimeterConfig =

305379 ServicePerimeterConfig'

306− { _spcUnrestrictedServices = Nothing

307− , _spcResources = Nothing

380+ { _spcResources = Nothing

308381 , _spcRestrictedServices = Nothing

309382 , _spcAccessLevels = Nothing

310383 }

311384

312385

313−-- | GCP services that are not subject to the Service Perimeter restrictions.

314−-- May contain a list of services or a single wildcard \"*\". For example,

315−-- if \`logging.googleapis.com\` is unrestricted, users can access logs

316−-- inside the perimeter as if the perimeter doesn\'t exist, and it also

317−-- means VMs inside the perimeter can access logs outside the perimeter.

318−-- The wildcard means that unless explicitly specified by

319−-- \"restricted_services\" list, any service is treated as unrestricted.

320−-- One of the fields \"restricted_services\", \"unrestricted_services\"

321−-- must contain a wildcard \"*\", otherwise the Service Perimeter

322−-- specification is invalid. It also means that both field being empty is

323−-- invalid as well. \"unrestricted_services\" can be empty if and only if

324−-- \"restricted_services\" list contains a \"*\" wildcard.

325−spcUnrestrictedServices :: Lens' ServicePerimeterConfig [Text]

326−spcUnrestrictedServices

327− = lens _spcUnrestrictedServices

328− (\ s a -> s{_spcUnrestrictedServices = a})

329− . _Default

330− . _Coerce

331−

332386-- | A list of GCP resources that are inside of the service perimeter.

333387-- Currently only projects are allowed. Format:

334388-- \`projects\/{project_number}\`

@@ -338,17 +392,10 @@ spcResources

338392 . _Default

339393 . _Coerce

340394

341−-- | GCP services that are subject to the Service Perimeter restrictions. May

342−-- contain a list of services or a single wildcard \"*\". For example, if

343−-- \`storage.googleapis.com\` is specified, access to the storage buckets

344−-- inside the perimeter must meet the perimeter\'s access restrictions.

345−-- Wildcard means that unless explicitly specified by

346−-- \"unrestricted_services\" list, any service is treated as restricted.

347−-- One of the fields \"restricted_services\", \"unrestricted_services\"

348−-- must contain a wildcard \"*\", otherwise the Service Perimeter

349−-- specification is invalid. It also means that both field being empty is

350−-- invalid as well. \"restricted_services\" can be empty if and only if

351−-- \"unrestricted_services\" list contains a \"*\" wildcard.

395+-- | GCP services that are subject to the Service Perimeter restrictions. For

396+-- example, if \`storage.googleapis.com\` is specified, access to the

397+-- storage buckets inside the perimeter must meet the perimeter\'s access

398+-- restrictions.

352399spcRestrictedServices :: Lens' ServicePerimeterConfig [Text]

353400spcRestrictedServices

354401 = lens _spcRestrictedServices

@@ -377,18 +424,15 @@ instance FromJSON ServicePerimeterConfig where

377424 = withObject "ServicePerimeterConfig"

378425 (\ o ->

379426 ServicePerimeterConfig' <$>

380− (o .:? "unrestrictedServices" .!= mempty) <*>

381− (o .:? "resources" .!= mempty)

382− <*> (o .:? "restrictedServices" .!= mempty)

427+ (o .:? "resources" .!= mempty) <*>

428+ (o .:? "restrictedServices" .!= mempty)

383429 <*> (o .:? "accessLevels" .!= mempty))

384430

385431instance ToJSON ServicePerimeterConfig where

386432 toJSON ServicePerimeterConfig'{..}

387433 = object

388434 (catMaybes

389− [("unrestrictedServices" .=) <$>

390− _spcUnrestrictedServices,

391− ("resources" .=) <$> _spcResources,

435+ [("resources" .=) <$> _spcResources,

392436 ("restrictedServices" .=) <$> _spcRestrictedServices,

393437 ("accessLevels" .=) <$> _spcAccessLevels])

394438

@@ -487,6 +531,31 @@ instance ToJSON Operation where

487531 ("name" .=) <$> _oName,

488532 ("metadata" .=) <$> _oMetadata])

489533

534+-- | A generic empty message that you can re-use to avoid defining duplicated

535+-- empty messages in your APIs. A typical example is to use it as the

536+-- request or the response type of an API method. For instance: service Foo

537+-- { rpc Bar(google.protobuf.Empty) returns (google.protobuf.Empty); } The

538+-- JSON representation for \`Empty\` is empty JSON object \`{}\`.

539+--

540+-- /See:/ 'empty' smart constructor.

541+data Empty =

542+ Empty'

543+ deriving (Eq, Show, Data, Typeable, Generic)

544+

545+

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

547+--

548+empty

549+ :: Empty

550+empty = Empty'

551+

552+

553+instance FromJSON Empty where

554+ parseJSON = withObject "Empty" (\ o -> pure Empty')

555+

556+instance ToJSON Empty where

557+ toJSON = const emptyObject

558+

490559-- | \`ServicePerimeter\` describes a set of GCP resources which can freely

491560-- import and export data amongst themselves, but not export outside of the

492561-- \`ServicePerimeter\`. If a request with a source within this

@@ -544,17 +613,16 @@ servicePerimeter =

544613

545614

546615-- | Current ServicePerimeter configuration. Specifies sets of resources,

547−-- restricted\/unrestricted services and access levels that determine

548−-- perimeter content and boundaries.

616+-- restricted services and access levels that determine perimeter content

617+-- and boundaries.

549618spStatus :: Lens' ServicePerimeter (Maybe ServicePerimeterConfig)

550619spStatus = lens _spStatus (\ s a -> s{_spStatus = a})

551620

552621-- | Perimeter type indicator. A single project is allowed to be a member of

553622-- single regular perimeter, but multiple service perimeter bridges. A

554623-- project cannot be a included in a perimeter bridge without being

555−-- included in regular perimeter. For perimeter bridges,

556−-- restricted\/unrestricted service lists as well as access lists must be

557−-- empty.

624+-- included in regular perimeter. For perimeter bridges, the restricted

625+-- service list as well as access level lists must be empty.

558626spPerimeterType :: Lens' ServicePerimeter (Maybe ServicePerimeterPerimeterType)

559627spPerimeterType

560628 = lens _spPerimeterType

@@ -708,8 +776,9 @@ instance ToJSON StatusDetailsItem where

708776-- /See:/ 'osConstraint' smart constructor.

709777data OSConstraint =

710778 OSConstraint'

711− { _ocOSType :: !(Maybe OSConstraintOSType)

712− , _ocMinimumVersion :: !(Maybe Text)

779+ { _ocOSType :: !(Maybe OSConstraintOSType)

780+ , _ocMinimumVersion :: !(Maybe Text)

781+ , _ocRequireVerifiedChromeOS :: !(Maybe Bool)

713782 }

714783 deriving (Eq, Show, Data, Typeable, Generic)

715784

@@ -721,9 +790,16 @@ data OSConstraint =

721790-- * 'ocOSType'

722791--

723792-- * 'ocMinimumVersion'

793+--

794+-- * 'ocRequireVerifiedChromeOS'

724795osConstraint

725796 :: OSConstraint

726−osConstraint = OSConstraint' {_ocOSType = Nothing, _ocMinimumVersion = Nothing}

797+osConstraint =

798+ OSConstraint'

799+ { _ocOSType = Nothing

800+ , _ocMinimumVersion = Nothing

801+ , _ocRequireVerifiedChromeOS = Nothing

802+ }

727803

728804

729805-- | Required. The allowed OS type.

@@ -738,19 +814,31 @@ ocMinimumVersion

738814 = lens _ocMinimumVersion

739815 (\ s a -> s{_ocMinimumVersion = a})

740816

817+-- | Only allows requests from devices with a verified Chrome OS.

818+-- Verifications includes requirements that the device is

819+-- enterprise-managed, conformant to Dasher domain policies, and the caller

820+-- has permission to call the API targeted by the request.

821+ocRequireVerifiedChromeOS :: Lens' OSConstraint (Maybe Bool)

822+ocRequireVerifiedChromeOS

823+ = lens _ocRequireVerifiedChromeOS

824+ (\ s a -> s{_ocRequireVerifiedChromeOS = a})

825+

741826instance FromJSON OSConstraint where

742827 parseJSON

743828 = withObject "OSConstraint"

744829 (\ o ->

745830 OSConstraint' <$>

746− (o .:? "osType") <*> (o .:? "minimumVersion"))

831+ (o .:? "osType") <*> (o .:? "minimumVersion") <*>

832+ (o .:? "requireVerifiedChromeOs"))

747833

748834instance ToJSON OSConstraint where

749835 toJSON OSConstraint'{..}

750836 = object

751837 (catMaybes

752838 [("osType" .=) <$> _ocOSType,

753− ("minimumVersion" .=) <$> _ocMinimumVersion])

839+ ("minimumVersion" .=) <$> _ocMinimumVersion,

840+ ("requireVerifiedChromeOs" .=) <$>

841+ _ocRequireVerifiedChromeOS])

754842

755843-- | \`AccessPolicy\` is a container for \`AccessLevels\` (which define the

756844-- necessary attributes to use GCP services) and \`ServicePerimeters\`

@@ -1005,6 +1093,8 @@ instance ToJSON OperationMetadata where

10051093data DevicePolicy =

10061094 DevicePolicy'

10071095 { _dpOSConstraints :: !(Maybe [OSConstraint])

1096+ , _dpRequireAdminApproval :: !(Maybe Bool)

1097+ , _dpRequireCorpOwned :: !(Maybe Bool)

10081098 , _dpRequireScreenlock :: !(Maybe Bool)

10091099 , _dpAllowedEncryptionStatuses :: !(Maybe [Text])

10101100 , _dpAllowedDeviceManagementLevels :: !(Maybe [Text])

@@ -1018,6 +1108,10 @@ data DevicePolicy =

10181108--

10191109-- * 'dpOSConstraints'

10201110--

1111+-- * 'dpRequireAdminApproval'

1112+--

1113+-- * 'dpRequireCorpOwned'

1114+--

10211115-- * 'dpRequireScreenlock'

10221116--

10231117-- * 'dpAllowedEncryptionStatuses'

@@ -1028,6 +1122,8 @@ devicePolicy

10281122devicePolicy =

10291123 DevicePolicy'

10301124 { _dpOSConstraints = Nothing

1125+ , _dpRequireAdminApproval = Nothing

1126+ , _dpRequireCorpOwned = Nothing

10311127 , _dpRequireScreenlock = Nothing

10321128 , _dpAllowedEncryptionStatuses = Nothing

10331129 , _dpAllowedDeviceManagementLevels = Nothing

@@ -1042,6 +1138,18 @@ dpOSConstraints

10421138 . _Default

10431139 . _Coerce

10441140

1141+-- | Whether the device needs to be approved by the customer admin.

1142+dpRequireAdminApproval :: Lens' DevicePolicy (Maybe Bool)

1143+dpRequireAdminApproval

1144+ = lens _dpRequireAdminApproval

1145+ (\ s a -> s{_dpRequireAdminApproval = a})

1146+

1147+-- | Whether the device needs to be corp owned.

1148+dpRequireCorpOwned :: Lens' DevicePolicy (Maybe Bool)

1149+dpRequireCorpOwned

1150+ = lens _dpRequireCorpOwned

1151+ (\ s a -> s{_dpRequireCorpOwned = a})

1152+

10451153-- | Whether or not screenlock is required for the DevicePolicy to be true.

10461154-- Defaults to \`false\`.

10471155dpRequireScreenlock :: Lens' DevicePolicy (Maybe Bool)

@@ -1072,7 +1180,9 @@ instance FromJSON DevicePolicy where

10721180 (\ o ->

10731181 DevicePolicy' <$>

10741182 (o .:? "osConstraints" .!= mempty) <*>

1075− (o .:? "requireScreenlock")

1183+ (o .:? "requireAdminApproval")

1184+ <*> (o .:? "requireCorpOwned")

1185+ <*> (o .:? "requireScreenlock")

10761186 <*> (o .:? "allowedEncryptionStatuses" .!= mempty)

10771187 <*>

10781188 (o .:? "allowedDeviceManagementLevels" .!= mempty))

@@ -1082,6 +1192,9 @@ instance ToJSON DevicePolicy where

10821192 = object

10831193 (catMaybes

10841194 [("osConstraints" .=) <$> _dpOSConstraints,

1195+ ("requireAdminApproval" .=) <$>

1196+ _dpRequireAdminApproval,

1197+ ("requireCorpOwned" .=) <$> _dpRequireCorpOwned,

10851198 ("requireScreenlock" .=) <$> _dpRequireScreenlock,

10861199 ("allowedEncryptionStatuses" .=) <$>

10871200 _dpAllowedEncryptionStatuses,

@@ -1099,6 +1212,7 @@ instance ToJSON DevicePolicy where

10991212data Condition =

11001213 Condition'

11011214 { _cMembers :: !(Maybe [Text])

1215+ , _cRegions :: !(Maybe [Text])

11021216 , _cNegate :: !(Maybe Bool)

11031217 , _cIPSubnetworks :: !(Maybe [Text])

11041218 , _cDevicePolicy :: !(Maybe DevicePolicy)

@@ -1113,6 +1227,8 @@ data Condition =

11131227--

11141228-- * 'cMembers'

11151229--

1230+-- * 'cRegions'

1231+--

11161232-- * 'cNegate'

11171233--

11181234-- * 'cIPSubnetworks'

@@ -1125,6 +1241,7 @@ condition

11251241condition =

11261242 Condition'

11271243 { _cMembers = Nothing

1244+ , _cRegions = Nothing

11281245 , _cNegate = Nothing

11291246 , _cIPSubnetworks = Nothing

11301247 , _cDevicePolicy = Nothing

@@ -1142,6 +1259,14 @@ cMembers

11421259 _Default

11431260 . _Coerce

11441261

1262+-- | The request must originate from one of the provided countries\/regions.

1263+-- Must be valid ISO 3166-1 alpha-2 codes.

1264+cRegions :: Lens' Condition [Text]

1265+cRegions

1266+ = lens _cRegions (\ s a -> s{_cRegions = a}) .

1267+ _Default

1268+ . _Coerce

1269+

11451270-- | Whether to negate the Condition. If true, the Condition becomes a NAND

11461271-- over its non-empty fields, each field must be false for the Condition

11471272-- overall to be satisfied. Defaults to false.

@@ -1187,8 +1312,10 @@ instance FromJSON Condition where

11871312 = withObject "Condition"

11881313 (\ o ->

11891314 Condition' <$>

1190− (o .:? "members" .!= mempty) <*> (o .:? "negate") <*>

1191− (o .:? "ipSubnetworks" .!= mempty)

1315+ (o .:? "members" .!= mempty) <*>

1316+ (o .:? "regions" .!= mempty)

1317+ <*> (o .:? "negate")

1318+ <*> (o .:? "ipSubnetworks" .!= mempty)

11921319 <*> (o .:? "devicePolicy")

11931320 <*> (o .:? "requiredAccessLevels" .!= mempty))

11941321

@@ -1197,6 +1324,7 @@ instance ToJSON Condition where

11971324 = object

11981325 (catMaybes

11991326 [("members" .=) <$> _cMembers,

1327+ ("regions" .=) <$> _cRegions,

12001328 ("negate" .=) <$> _cNegate,

12011329 ("ipSubnetworks" .=) <$> _cIPSubnetworks,

12021330 ("devicePolicy" .=) <$> _cDevicePolicy,

gogol-accesscontextmanager/gen/Network/Google/AccessContextManager/Types/Sum.hs+2−13

@@ -55,9 +55,8 @@ instance ToJSON BasicLevelCombiningFunction where

5555-- | Perimeter type indicator. A single project is allowed to be a member of

5656-- single regular perimeter, but multiple service perimeter bridges. A

5757-- project cannot be a included in a perimeter bridge without being

58−-- included in regular perimeter. For perimeter bridges,

59−-- restricted\/unrestricted service lists as well as access lists must be

60−-- empty.

58+-- included in regular perimeter. For perimeter bridges, the restricted

59+-- service list as well as access level lists must be empty.

6160data ServicePerimeterPerimeterType

6261 = PerimeterTypeRegular

6362 -- ^ @PERIMETER_TYPE_REGULAR@

@@ -103,12 +102,6 @@ data OSConstraintOSType

103102 | DesktopChromeOS

104103 -- ^ @DESKTOP_CHROME_OS@

105104 -- A desktop ChromeOS operating system.

106− | Android

107− -- ^ @ANDROID@

108− -- An Android operating system.

109− | Ios

110− -- ^ @IOS@

111− -- An iOS operating system.

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

113106

114107instance Hashable OSConstraintOSType

@@ -120,8 +113,6 @@ instance FromHttpApiData OSConstraintOSType where

120113 "DESKTOP_WINDOWS" -> Right DesktopWindows

121114 "DESKTOP_LINUX" -> Right DesktopLinux

122115 "DESKTOP_CHROME_OS" -> Right DesktopChromeOS

123− "ANDROID" -> Right Android

124− "IOS" -> Right Ios

125116 x -> Left ("Unable to parse OSConstraintOSType from: " <> x)

126117

127118instance ToHttpApiData OSConstraintOSType where

@@ -131,8 +122,6 @@ instance ToHttpApiData OSConstraintOSType where

131122 DesktopWindows -> "DESKTOP_WINDOWS"

132123 DesktopLinux -> "DESKTOP_LINUX"

133124 DesktopChromeOS -> "DESKTOP_CHROME_OS"

134− Android -> "ANDROID"

135− Ios -> "IOS"

136125

137126instance FromJSON OSConstraintOSType where

138127 parseJSON = parseJSONText "OSConstraintOSType"

gogol-accesscontextmanager/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Create.hs+1−1

@@ -51,7 +51,7 @@ import Network.Google.Prelude

5151-- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.create@ method which the

5252-- 'AccessPoliciesAccessLevelsCreate' request conforms to.

5353type AccessPoliciesAccessLevelsCreateResource =

54− "v1beta" :>

54+ "v1" :>

5555 Capture "parent" Text :>

5656 "accessLevels" :>

5757 QueryParam "$.xgafv" Xgafv :>

gogol-accesscontextmanager/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Delete.hs+1−1

@@ -49,7 +49,7 @@ import Network.Google.Prelude

4949-- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.delete@ method which the

5050-- 'AccessPoliciesAccessLevelsDelete' request conforms to.

5151type AccessPoliciesAccessLevelsDeleteResource =

52− "v1beta" :>

52+ "v1" :>

5353 Capture "name" Text :>

5454 QueryParam "$.xgafv" Xgafv :>

5555 QueryParam "upload_protocol" Text :>

gogol-accesscontextmanager/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Get.hs+1−1

@@ -48,7 +48,7 @@ import Network.Google.Prelude

4848-- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.get@ method which the

4949-- 'AccessPoliciesAccessLevelsGet' request conforms to.

5050type AccessPoliciesAccessLevelsGetResource =

51− "v1beta" :>

51+ "v1" :>

5252 Capture "name" Text :>

5353 QueryParam "$.xgafv" Xgafv :>

5454 QueryParam "upload_protocol" Text :>

gogol-accesscontextmanager/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/List.hs+1−1

@@ -50,7 +50,7 @@ import Network.Google.Prelude

5050-- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.list@ method which the

5151-- 'AccessPoliciesAccessLevelsList' request conforms to.

5252type AccessPoliciesAccessLevelsListResource =

53− "v1beta" :>

53+ "v1" :>

5454 Capture "parent" Text :>

5555 "accessLevels" :>

5656 QueryParam "$.xgafv" Xgafv :>

gogol-accesscontextmanager/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/AccessLevels/Patch.hs+1−1

@@ -52,7 +52,7 @@ import Network.Google.Prelude

5252-- | A resource alias for @accesscontextmanager.accessPolicies.accessLevels.patch@ method which the

5353-- 'AccessPoliciesAccessLevelsPatch' request conforms to.

5454type AccessPoliciesAccessLevelsPatchResource =

55− "v1beta" :>

55+ "v1" :>

5656 Capture "name" Text :>

5757 QueryParam "$.xgafv" Xgafv :>

5858 QueryParam "upload_protocol" Text :>

gogol-accesscontextmanager/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Create.hs+1−1

@@ -51,7 +51,7 @@ import Network.Google.Prelude

5151-- | A resource alias for @accesscontextmanager.accessPolicies.create@ method which the

5252-- 'AccessPoliciesCreate' request conforms to.

5353type AccessPoliciesCreateResource =

54− "v1beta" :>

54+ "v1" :>

5555 "accessPolicies" :>

5656 QueryParam "$.xgafv" Xgafv :>

5757 QueryParam "upload_protocol" Text :>

gogol-accesscontextmanager/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Delete.hs+1−1

@@ -49,7 +49,7 @@ import Network.Google.Prelude

4949-- | A resource alias for @accesscontextmanager.accessPolicies.delete@ method which the

5050-- 'AccessPoliciesDelete' request conforms to.

5151type AccessPoliciesDeleteResource =

52− "v1beta" :>

52+ "v1" :>

5353 Capture "name" Text :>

5454 QueryParam "$.xgafv" Xgafv :>

5555 QueryParam "upload_protocol" Text :>

gogol-accesscontextmanager/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Get.hs+1−1

@@ -47,7 +47,7 @@ import Network.Google.Prelude

4747-- | A resource alias for @accesscontextmanager.accessPolicies.get@ method which the

4848-- 'AccessPoliciesGet' request conforms to.

4949type AccessPoliciesGetResource =

50− "v1beta" :>

50+ "v1" :>

5151 Capture "name" Text :>

5252 QueryParam "$.xgafv" Xgafv :>

5353 QueryParam "upload_protocol" Text :>

gogol-accesscontextmanager/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/List.hs+1−1

@@ -49,7 +49,7 @@ import Network.Google.Prelude

4949-- | A resource alias for @accesscontextmanager.accessPolicies.list@ method which the

5050-- 'AccessPoliciesList' request conforms to.

5151type AccessPoliciesListResource =

52− "v1beta" :>

52+ "v1" :>

5353 "accessPolicies" :>

5454 QueryParam "parent" Text :>

5555 QueryParam "$.xgafv" Xgafv :>

gogol-accesscontextmanager/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/Patch.hs+1−1

@@ -52,7 +52,7 @@ import Network.Google.Prelude

5252-- | A resource alias for @accesscontextmanager.accessPolicies.patch@ method which the

5353-- 'AccessPoliciesPatch' request conforms to.

5454type AccessPoliciesPatchResource =

55− "v1beta" :>

55+ "v1" :>

5656 Capture "name" Text :>

5757 QueryParam "$.xgafv" Xgafv :>

5858 QueryParam "upload_protocol" Text :>

gogol-accesscontextmanager/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Create.hs+1−1

@@ -51,7 +51,7 @@ import Network.Google.Prelude

5151-- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.create@ method which the

5252-- 'AccessPoliciesServicePerimetersCreate' request conforms to.

5353type AccessPoliciesServicePerimetersCreateResource =

54− "v1beta" :>

54+ "v1" :>

5555 Capture "parent" Text :>

5656 "servicePerimeters" :>

5757 QueryParam "$.xgafv" Xgafv :>

gogol-accesscontextmanager/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Delete.hs+1−1

@@ -49,7 +49,7 @@ import Network.Google.Prelude

4949-- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.delete@ method which the

5050-- 'AccessPoliciesServicePerimetersDelete' request conforms to.

5151type AccessPoliciesServicePerimetersDeleteResource =

52− "v1beta" :>

52+ "v1" :>

5353 Capture "name" Text :>

5454 QueryParam "$.xgafv" Xgafv :>

5555 QueryParam "upload_protocol" Text :>

gogol-accesscontextmanager/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Get.hs+1−1

@@ -47,7 +47,7 @@ import Network.Google.Prelude

4747-- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.get@ method which the

4848-- 'AccessPoliciesServicePerimetersGet' request conforms to.

4949type AccessPoliciesServicePerimetersGetResource =

50− "v1beta" :>

50+ "v1" :>

5151 Capture "name" Text :>

5252 QueryParam "$.xgafv" Xgafv :>

5353 QueryParam "upload_protocol" Text :>

gogol-accesscontextmanager/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/List.hs+1−1

@@ -49,7 +49,7 @@ import Network.Google.Prelude

4949-- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.list@ method which the

5050-- 'AccessPoliciesServicePerimetersList' request conforms to.

5151type AccessPoliciesServicePerimetersListResource =

52− "v1beta" :>

52+ "v1" :>

5353 Capture "parent" Text :>

5454 "servicePerimeters" :>

5555 QueryParam "$.xgafv" Xgafv :>

gogol-accesscontextmanager/gen/Network/Google/Resource/AccessContextManager/AccessPolicies/ServicePerimeters/Patch.hs+1−1

@@ -52,7 +52,7 @@ import Network.Google.Prelude

5252-- | A resource alias for @accesscontextmanager.accessPolicies.servicePerimeters.patch@ method which the

5353-- 'AccessPoliciesServicePerimetersPatch' request conforms to.

5454type AccessPoliciesServicePerimetersPatchResource =

55− "v1beta" :>

55+ "v1" :>

5656 Capture "name" Text :>

5757 QueryParam "$.xgafv" Xgafv :>

5858 QueryParam "upload_protocol" Text :>

gogol-accesscontextmanager/gen/Network/Google/Resource/AccessContextManager/Operations/Cancel.hsnew file+177

@@ -0,0 +1,177 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessContextManager.Operations.Cancel

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Starts asynchronous cancellation on a long-running operation. The server

24+-- makes a best effort to cancel the operation, but success is not

25+-- guaranteed. If the server doesn\'t support this method, it returns

26+-- \`google.rpc.Code.UNIMPLEMENTED\`. Clients can use

27+-- Operations.GetOperation or other methods to check whether the

28+-- cancellation succeeded or whether the operation completed despite

29+-- cancellation. On successful cancellation, the operation is not deleted;

30+-- instead, it becomes an operation with an Operation.error value with a

31+-- google.rpc.Status.code of 1, corresponding to \`Code.CANCELLED\`.

32+--

33+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.operations.cancel@.

34+module Network.Google.Resource.AccessContextManager.Operations.Cancel

35+ (

36+ -- * REST Resource

37+ OperationsCancelResource

38+

39+ -- * Creating a Request

40+ , operationsCancel

41+ , OperationsCancel

42+

43+ -- * Request Lenses

44+ , ocXgafv

45+ , ocUploadProtocol

46+ , ocAccessToken

47+ , ocUploadType

48+ , ocPayload

49+ , ocName

50+ , ocCallback

51+ ) where

52+

53+import Network.Google.AccessContextManager.Types

54+import Network.Google.Prelude

55+

56+-- | A resource alias for @accesscontextmanager.operations.cancel@ method which the

57+-- 'OperationsCancel' request conforms to.

58+type OperationsCancelResource =

59+ "v1" :>

60+ CaptureMode "name" "cancel" Text :>

61+ QueryParam "$.xgafv" Xgafv :>

62+ QueryParam "upload_protocol" Text :>

63+ QueryParam "access_token" Text :>

64+ QueryParam "uploadType" Text :>

65+ QueryParam "callback" Text :>

66+ QueryParam "alt" AltJSON :>

67+ ReqBody '[JSON] CancelOperationRequest :>

68+ Post '[JSON] Empty

69+

70+-- | Starts asynchronous cancellation on a long-running operation. The server

71+-- makes a best effort to cancel the operation, but success is not

72+-- guaranteed. If the server doesn\'t support this method, it returns

73+-- \`google.rpc.Code.UNIMPLEMENTED\`. Clients can use

74+-- Operations.GetOperation or other methods to check whether the

75+-- cancellation succeeded or whether the operation completed despite

76+-- cancellation. On successful cancellation, the operation is not deleted;

77+-- instead, it becomes an operation with an Operation.error value with a

78+-- google.rpc.Status.code of 1, corresponding to \`Code.CANCELLED\`.

79+--

80+-- /See:/ 'operationsCancel' smart constructor.

81+data OperationsCancel =

82+ OperationsCancel'

83+ { _ocXgafv :: !(Maybe Xgafv)

84+ , _ocUploadProtocol :: !(Maybe Text)

85+ , _ocAccessToken :: !(Maybe Text)

86+ , _ocUploadType :: !(Maybe Text)

87+ , _ocPayload :: !CancelOperationRequest

88+ , _ocName :: !Text

89+ , _ocCallback :: !(Maybe Text)

90+ }

91+ deriving (Eq, Show, Data, Typeable, Generic)

92+

93+

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

95+--

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

97+--

98+-- * 'ocXgafv'

99+--

100+-- * 'ocUploadProtocol'

101+--

102+-- * 'ocAccessToken'

103+--

104+-- * 'ocUploadType'

105+--

106+-- * 'ocPayload'

107+--

108+-- * 'ocName'

109+--

110+-- * 'ocCallback'

111+operationsCancel

112+ :: CancelOperationRequest -- ^ 'ocPayload'

113+ -> Text -- ^ 'ocName'

114+ -> OperationsCancel

115+operationsCancel pOcPayload_ pOcName_ =

116+ OperationsCancel'

117+ { _ocXgafv = Nothing

118+ , _ocUploadProtocol = Nothing

119+ , _ocAccessToken = Nothing

120+ , _ocUploadType = Nothing

121+ , _ocPayload = pOcPayload_

122+ , _ocName = pOcName_

123+ , _ocCallback = Nothing

124+ }

125+

126+

127+-- | V1 error format.

128+ocXgafv :: Lens' OperationsCancel (Maybe Xgafv)

129+ocXgafv = lens _ocXgafv (\ s a -> s{_ocXgafv = a})

130+

131+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

132+ocUploadProtocol :: Lens' OperationsCancel (Maybe Text)

133+ocUploadProtocol

134+ = lens _ocUploadProtocol

135+ (\ s a -> s{_ocUploadProtocol = a})

136+

137+-- | OAuth access token.

138+ocAccessToken :: Lens' OperationsCancel (Maybe Text)

139+ocAccessToken

140+ = lens _ocAccessToken

141+ (\ s a -> s{_ocAccessToken = a})

142+

143+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

144+ocUploadType :: Lens' OperationsCancel (Maybe Text)

145+ocUploadType

146+ = lens _ocUploadType (\ s a -> s{_ocUploadType = a})

147+

148+-- | Multipart request metadata.

149+ocPayload :: Lens' OperationsCancel CancelOperationRequest

150+ocPayload

151+ = lens _ocPayload (\ s a -> s{_ocPayload = a})

152+

153+-- | The name of the operation resource to be cancelled.

154+ocName :: Lens' OperationsCancel Text

155+ocName = lens _ocName (\ s a -> s{_ocName = a})

156+

157+-- | JSONP

158+ocCallback :: Lens' OperationsCancel (Maybe Text)

159+ocCallback

160+ = lens _ocCallback (\ s a -> s{_ocCallback = a})

161+

162+instance GoogleRequest OperationsCancel where

163+ type Rs OperationsCancel = Empty

164+ type Scopes OperationsCancel =

165+ '["https://www.googleapis.com/auth/cloud-platform"]

166+ requestClient OperationsCancel'{..}

167+ = go _ocName _ocXgafv _ocUploadProtocol

168+ _ocAccessToken

169+ _ocUploadType

170+ _ocCallback

171+ (Just AltJSON)

172+ _ocPayload

173+ accessContextManagerService

174+ where go

175+ = buildClient

176+ (Proxy :: Proxy OperationsCancelResource)

177+ mempty

gogol-accesscontextmanager/gen/Network/Google/Resource/AccessContextManager/Operations/Delete.hsnew file+153

@@ -0,0 +1,153 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessContextManager.Operations.Delete

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Deletes a long-running operation. This method indicates that the client

24+-- is no longer interested in the operation result. It does not cancel the

25+-- operation. If the server doesn\'t support this method, it returns

26+-- \`google.rpc.Code.UNIMPLEMENTED\`.

27+--

28+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.operations.delete@.

29+module Network.Google.Resource.AccessContextManager.Operations.Delete

30+ (

31+ -- * REST Resource

32+ OperationsDeleteResource

33+

34+ -- * Creating a Request

35+ , operationsDelete

36+ , OperationsDelete

37+

38+ -- * Request Lenses

39+ , odXgafv

40+ , odUploadProtocol

41+ , odAccessToken

42+ , odUploadType

43+ , odName

44+ , odCallback

45+ ) where

46+

47+import Network.Google.AccessContextManager.Types

48+import Network.Google.Prelude

49+

50+-- | A resource alias for @accesscontextmanager.operations.delete@ method which the

51+-- 'OperationsDelete' request conforms to.

52+type OperationsDeleteResource =

53+ "v1" :>

54+ Capture "name" Text :>

55+ QueryParam "$.xgafv" Xgafv :>

56+ QueryParam "upload_protocol" Text :>

57+ QueryParam "access_token" Text :>

58+ QueryParam "uploadType" Text :>

59+ QueryParam "callback" Text :>

60+ QueryParam "alt" AltJSON :> Delete '[JSON] Empty

61+

62+-- | Deletes a long-running operation. This method indicates that the client

63+-- is no longer interested in the operation result. It does not cancel the

64+-- operation. If the server doesn\'t support this method, it returns

65+-- \`google.rpc.Code.UNIMPLEMENTED\`.

66+--

67+-- /See:/ 'operationsDelete' smart constructor.

68+data OperationsDelete =

69+ OperationsDelete'

70+ { _odXgafv :: !(Maybe Xgafv)

71+ , _odUploadProtocol :: !(Maybe Text)

72+ , _odAccessToken :: !(Maybe Text)

73+ , _odUploadType :: !(Maybe Text)

74+ , _odName :: !Text

75+ , _odCallback :: !(Maybe Text)

76+ }

77+ deriving (Eq, Show, Data, Typeable, Generic)

78+

79+

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

81+--

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

83+--

84+-- * 'odXgafv'

85+--

86+-- * 'odUploadProtocol'

87+--

88+-- * 'odAccessToken'

89+--

90+-- * 'odUploadType'

91+--

92+-- * 'odName'

93+--

94+-- * 'odCallback'

95+operationsDelete

96+ :: Text -- ^ 'odName'

97+ -> OperationsDelete

98+operationsDelete pOdName_ =

99+ OperationsDelete'

100+ { _odXgafv = Nothing

101+ , _odUploadProtocol = Nothing

102+ , _odAccessToken = Nothing

103+ , _odUploadType = Nothing

104+ , _odName = pOdName_

105+ , _odCallback = Nothing

106+ }

107+

108+

109+-- | V1 error format.

110+odXgafv :: Lens' OperationsDelete (Maybe Xgafv)

111+odXgafv = lens _odXgafv (\ s a -> s{_odXgafv = a})

112+

113+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

114+odUploadProtocol :: Lens' OperationsDelete (Maybe Text)

115+odUploadProtocol

116+ = lens _odUploadProtocol

117+ (\ s a -> s{_odUploadProtocol = a})

118+

119+-- | OAuth access token.

120+odAccessToken :: Lens' OperationsDelete (Maybe Text)

121+odAccessToken

122+ = lens _odAccessToken

123+ (\ s a -> s{_odAccessToken = a})

124+

125+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

126+odUploadType :: Lens' OperationsDelete (Maybe Text)

127+odUploadType

128+ = lens _odUploadType (\ s a -> s{_odUploadType = a})

129+

130+-- | The name of the operation resource to be deleted.

131+odName :: Lens' OperationsDelete Text

132+odName = lens _odName (\ s a -> s{_odName = a})

133+

134+-- | JSONP

135+odCallback :: Lens' OperationsDelete (Maybe Text)

136+odCallback

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

138+

139+instance GoogleRequest OperationsDelete where

140+ type Rs OperationsDelete = Empty

141+ type Scopes OperationsDelete =

142+ '["https://www.googleapis.com/auth/cloud-platform"]

143+ requestClient OperationsDelete'{..}

144+ = go _odName _odXgafv _odUploadProtocol

145+ _odAccessToken

146+ _odUploadType

147+ _odCallback

148+ (Just AltJSON)

149+ accessContextManagerService

150+ where go

151+ = buildClient

152+ (Proxy :: Proxy OperationsDeleteResource)

153+ mempty

gogol-accesscontextmanager/gen/Network/Google/Resource/AccessContextManager/Operations/Get.hs+1−1

@@ -49,7 +49,7 @@ import Network.Google.Prelude

4949-- | A resource alias for @accesscontextmanager.operations.get@ method which the

5050-- 'OperationsGet' request conforms to.

5151type OperationsGetResource =

52− "v1beta" :>

52+ "v1" :>

5353 Capture "name" Text :>

5454 QueryParam "$.xgafv" Xgafv :>

5555 QueryParam "upload_protocol" Text :>

gogol-accesscontextmanager/gen/Network/Google/Resource/AccessContextManager/Operations/List.hsnew file+201

@@ -0,0 +1,201 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AccessContextManager.Operations.List

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Lists operations that match the specified filter in the request. If the

24+-- server doesn\'t support this method, it returns \`UNIMPLEMENTED\`. NOTE:

25+-- the \`name\` binding allows API services to override the binding to use

26+-- different resource name schemes, such as \`users\/*\/operations\`. To

27+-- override the binding, API services can add a binding such as

28+-- \`\"\/v1\/{name=users\/*}\/operations\"\` to their service

29+-- configuration. For backwards compatibility, the default name includes

30+-- the operations collection id, however overriding users must ensure the

31+-- name binding is the parent resource, without the operations collection

32+-- id.

33+--

34+-- /See:/ <https://cloud.google.com/access-context-manager/docs/reference/rest/ Access Context Manager API Reference> for @accesscontextmanager.operations.list@.

35+module Network.Google.Resource.AccessContextManager.Operations.List

36+ (

37+ -- * REST Resource

38+ OperationsListResource

39+

40+ -- * Creating a Request

41+ , operationsList

42+ , OperationsList

43+

44+ -- * Request Lenses

45+ , olXgafv

46+ , olUploadProtocol

47+ , olAccessToken

48+ , olUploadType

49+ , olName

50+ , olFilter

51+ , olPageToken

52+ , olPageSize

53+ , olCallback

54+ ) where

55+

56+import Network.Google.AccessContextManager.Types

57+import Network.Google.Prelude

58+

59+-- | A resource alias for @accesscontextmanager.operations.list@ method which the

60+-- 'OperationsList' request conforms to.

61+type OperationsListResource =

62+ "v1" :>

63+ Capture "name" Text :>

64+ QueryParam "$.xgafv" Xgafv :>

65+ QueryParam "upload_protocol" Text :>

66+ QueryParam "access_token" Text :>

67+ QueryParam "uploadType" Text :>

68+ QueryParam "filter" Text :>

69+ QueryParam "pageToken" Text :>

70+ QueryParam "pageSize" (Textual Int32) :>

71+ QueryParam "callback" Text :>

72+ QueryParam "alt" AltJSON :>

73+ Get '[JSON] ListOperationsResponse

74+

75+-- | Lists operations that match the specified filter in the request. If the

76+-- server doesn\'t support this method, it returns \`UNIMPLEMENTED\`. NOTE:

77+-- the \`name\` binding allows API services to override the binding to use

78+-- different resource name schemes, such as \`users\/*\/operations\`. To

79+-- override the binding, API services can add a binding such as

80+-- \`\"\/v1\/{name=users\/*}\/operations\"\` to their service

81+-- configuration. For backwards compatibility, the default name includes

82+-- the operations collection id, however overriding users must ensure the

83+-- name binding is the parent resource, without the operations collection

84+-- id.

85+--

86+-- /See:/ 'operationsList' smart constructor.

87+data OperationsList =

88+ OperationsList'

89+ { _olXgafv :: !(Maybe Xgafv)

90+ , _olUploadProtocol :: !(Maybe Text)

91+ , _olAccessToken :: !(Maybe Text)

92+ , _olUploadType :: !(Maybe Text)

93+ , _olName :: !Text

94+ , _olFilter :: !(Maybe Text)

95+ , _olPageToken :: !(Maybe Text)

96+ , _olPageSize :: !(Maybe (Textual Int32))

97+ , _olCallback :: !(Maybe Text)

98+ }

99+ deriving (Eq, Show, Data, Typeable, Generic)

100+

101+

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

103+--

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

105+--

106+-- * 'olXgafv'

107+--

108+-- * 'olUploadProtocol'

109+--

110+-- * 'olAccessToken'

111+--

112+-- * 'olUploadType'

113+--

114+-- * 'olName'

115+--

116+-- * 'olFilter'

117+--

118+-- * 'olPageToken'

119+--

120+-- * 'olPageSize'

121+--

122+-- * 'olCallback'

123+operationsList

124+ :: Text -- ^ 'olName'

125+ -> OperationsList

126+operationsList pOlName_ =

127+ OperationsList'

128+ { _olXgafv = Nothing

129+ , _olUploadProtocol = Nothing

130+ , _olAccessToken = Nothing

131+ , _olUploadType = Nothing

132+ , _olName = pOlName_

133+ , _olFilter = Nothing

134+ , _olPageToken = Nothing

135+ , _olPageSize = Nothing

136+ , _olCallback = Nothing

137+ }

138+

139+

140+-- | V1 error format.

141+olXgafv :: Lens' OperationsList (Maybe Xgafv)

142+olXgafv = lens _olXgafv (\ s a -> s{_olXgafv = a})

143+

144+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

145+olUploadProtocol :: Lens' OperationsList (Maybe Text)

146+olUploadProtocol

147+ = lens _olUploadProtocol

148+ (\ s a -> s{_olUploadProtocol = a})

149+

150+-- | OAuth access token.

151+olAccessToken :: Lens' OperationsList (Maybe Text)

152+olAccessToken

153+ = lens _olAccessToken

154+ (\ s a -> s{_olAccessToken = a})

155+

156+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

157+olUploadType :: Lens' OperationsList (Maybe Text)

158+olUploadType

159+ = lens _olUploadType (\ s a -> s{_olUploadType = a})

160+

161+-- | The name of the operation\'s parent resource.

162+olName :: Lens' OperationsList Text

163+olName = lens _olName (\ s a -> s{_olName = a})

164+

165+-- | The standard list filter.

166+olFilter :: Lens' OperationsList (Maybe Text)

167+olFilter = lens _olFilter (\ s a -> s{_olFilter = a})

168+

169+-- | The standard list page token.

170+olPageToken :: Lens' OperationsList (Maybe Text)

171+olPageToken

172+ = lens _olPageToken (\ s a -> s{_olPageToken = a})

173+

174+-- | The standard list page size.

175+olPageSize :: Lens' OperationsList (Maybe Int32)

176+olPageSize

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

178+ mapping _Coerce

179+

180+-- | JSONP

181+olCallback :: Lens' OperationsList (Maybe Text)

182+olCallback

183+ = lens _olCallback (\ s a -> s{_olCallback = a})

184+

185+instance GoogleRequest OperationsList where

186+ type Rs OperationsList = ListOperationsResponse

187+ type Scopes OperationsList =

188+ '["https://www.googleapis.com/auth/cloud-platform"]

189+ requestClient OperationsList'{..}

190+ = go _olName _olXgafv _olUploadProtocol

191+ _olAccessToken

192+ _olUploadType

193+ _olFilter

194+ _olPageToken

195+ _olPageSize

196+ _olCallback

197+ (Just AltJSON)

198+ accessContextManagerService

199+ where go

200+ = buildClient (Proxy :: Proxy OperationsListResource)

201+ mempty

gogol-accesscontextmanager/gogol-accesscontextmanager.cabal+4−1

@@ -20,7 +20,7 @@ description:

2020 /Warning:/ This is an experimental prototype/preview release which is still

2121 under exploratory development and not intended for public use, caveat emptor!

2222 .

23− This library is compatible with version @v1beta@

23+ This library is compatible with version @v1@

2424 of the API.

2525

2626source-repository head

@@ -51,7 +51,10 @@ library

5151 , Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Get

5252 , Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.List

5353 , Network.Google.Resource.AccessContextManager.AccessPolicies.ServicePerimeters.Patch

54+ , Network.Google.Resource.AccessContextManager.Operations.Cancel

55+ , Network.Google.Resource.AccessContextManager.Operations.Delete

5456 , Network.Google.Resource.AccessContextManager.Operations.Get

57+ , Network.Google.Resource.AccessContextManager.Operations.List

5558

5659 other-modules:

5760 Network.Google.AccessContextManager.Types.Product

gogol-adexchangebuyer2/gen/Network/Google/AdExchangeBuyer2.hs+1−6

@@ -133,9 +133,6 @@ module Network.Google.AdExchangeBuyer2

133133 -- ** adexchangebuyer2.accounts.publisherProfiles.list

134134 , module Network.Google.Resource.AdExchangeBuyer2.Accounts.PublisherProFiles.List

135135

136− -- ** adexchangebuyer2.bidders.accounts.creatives.delete

137− , module Network.Google.Resource.AdExchangeBuyer2.Bidders.Accounts.Creatives.Delete

138−

139136 -- ** adexchangebuyer2.bidders.accounts.filterSets.bidMetrics.list

140137 , module Network.Google.Resource.AdExchangeBuyer2.Bidders.Accounts.FilterSets.BidMetrics.List

141138

@@ -1167,7 +1164,6 @@ import Network.Google.Resource.AdExchangeBuyer2.Accounts.Proposals.Res

11671164import Network.Google.Resource.AdExchangeBuyer2.Accounts.Proposals.Update

11681165import Network.Google.Resource.AdExchangeBuyer2.Accounts.PublisherProFiles.Get

11691166import Network.Google.Resource.AdExchangeBuyer2.Accounts.PublisherProFiles.List

1170−import Network.Google.Resource.AdExchangeBuyer2.Bidders.Accounts.Creatives.Delete

11711167import Network.Google.Resource.AdExchangeBuyer2.Bidders.Accounts.FilterSets.BidMetrics.List

11721168import Network.Google.Resource.AdExchangeBuyer2.Bidders.Accounts.FilterSets.BidResponseErrors.List

11731169import Network.Google.Resource.AdExchangeBuyer2.Bidders.Accounts.FilterSets.BidResponsesWithoutBids.List

@@ -1203,8 +1199,7 @@ TODO

12031199

12041200-- | Represents the entirety of the methods and resources available for the Ad Exchange Buyer API II service.

12051201type AdExchangeBuyer2API =

1206− BiddersAccountsCreativesDeleteResource :<|>

1207− BiddersAccountsFilterSetsFilteredBidRequestsListResource

1202+ BiddersAccountsFilterSetsFilteredBidRequestsListResource

12081203 :<|>

12091204 BiddersAccountsFilterSetsBidResponsesWithoutBidsListResource

12101205 :<|>

gogol-adexchangebuyer2/gen/Network/Google/AdExchangeBuyer2/Types/Product.hs+4−2

@@ -2224,7 +2224,7 @@ instance ToJSON PricePerBuyer where

22242224 ("advertiserIds" .=) <$> _ppbAdvertiserIds,

22252225 ("buyer" .=) <$> _ppbBuyer])

22262226

2227−-- | A creative and its classification data. Next ID: 40

2227+-- | A creative and its classification data.

22282228--

22292229-- /See:/ 'creative' smart constructor.

22302230data Creative =

@@ -2531,7 +2531,9 @@ cOpenAuctionStatus

25312531 = lens _cOpenAuctionStatus

25322532 (\ s a -> s{_cOpenAuctionStatus = a})

25332533

2534−-- | \'OutputOnly The filtering stats for this creative.

2534+-- | \'OutputOnly The filtering stats for this creative. Deprecated; please

2535+-- use bidders.accounts.filterSets.filteredBids.creatives.list method

2536+-- instead.

25352537cFilteringStats :: Lens' Creative (Maybe FilteringStats)

25362538cFilteringStats

25372539 = lens _cFilteringStats

gogol-adexchangebuyer2/gen/Network/Google/AdExchangeBuyer2/Types/Sum.hs+6

@@ -1631,6 +1631,10 @@ data ClientEntityType

16311631 | CETAgency

16321632 -- ^ @AGENCY@

16331633 -- An advertising agency.

1634+ | CETEntityTypeUnclassified

1635+ -- ^ @ENTITY_TYPE_UNCLASSIFIED@

1636+ -- An explicit value for a client that was not yet classified as any

1637+ -- particular entity.

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

16351639

16361640instance Hashable ClientEntityType

@@ -1641,6 +1645,7 @@ instance FromHttpApiData ClientEntityType where

16411645 "ADVERTISER" -> Right CETAdvertiser

16421646 "BRAND" -> Right CETBrand

16431647 "AGENCY" -> Right CETAgency

1648+ "ENTITY_TYPE_UNCLASSIFIED" -> Right CETEntityTypeUnclassified

16441649 x -> Left ("Unable to parse ClientEntityType from: " <> x)

16451650

16461651instance ToHttpApiData ClientEntityType where

@@ -1649,6 +1654,7 @@ instance ToHttpApiData ClientEntityType where

16491654 CETAdvertiser -> "ADVERTISER"

16501655 CETBrand -> "BRAND"

16511656 CETAgency -> "AGENCY"

1657+ CETEntityTypeUnclassified -> "ENTITY_TYPE_UNCLASSIFIED"

16521658

16531659instance FromJSON ClientEntityType where

16541660 parseJSON = parseJSONText "ClientEntityType"

gogol-adexchangebuyer2/gen/Network/Google/Resource/AdExchangeBuyer2/Bidders/Accounts/Creatives/Delete.hsdeleted−176

@@ -1,176 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE FlexibleInstances #-}

5−{-# LANGUAGE NoImplicitPrelude #-}

6−{-# LANGUAGE OverloadedStrings #-}

7−{-# LANGUAGE RecordWildCards #-}

8−{-# LANGUAGE TypeFamilies #-}

9−{-# LANGUAGE TypeOperators #-}

10−

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

12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14−

15−-- |

16−-- Module : Network.Google.Resource.AdExchangeBuyer2.Bidders.Accounts.Creatives.Delete

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

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

20−-- Stability : auto-generated

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

22−--

23−-- Deletes a single creative. A creative is deactivated upon deletion and

24−-- does not count against active snippet quota. A deleted creative should

25−-- not be used in bidding (all bids with that creative will be rejected).

26−--

27−-- /See:/ <https://developers.google.com/authorized-buyers/apis/reference/rest/ Ad Exchange Buyer API II Reference> for @adexchangebuyer2.bidders.accounts.creatives.delete@.

28−module Network.Google.Resource.AdExchangeBuyer2.Bidders.Accounts.Creatives.Delete

29− (

30− -- * REST Resource

31− BiddersAccountsCreativesDeleteResource

32−

33− -- * Creating a Request

34− , biddersAccountsCreativesDelete

35− , BiddersAccountsCreativesDelete

36−

37− -- * Request Lenses

38− , bacdXgafv

39− , bacdUploadProtocol

40− , bacdAccessToken

41− , bacdUploadType

42− , bacdCreativeId

43− , bacdOwnerName

44− , bacdCallback

45− ) where

46−

47−import Network.Google.AdExchangeBuyer2.Types

48−import Network.Google.Prelude

49−

50−-- | A resource alias for @adexchangebuyer2.bidders.accounts.creatives.delete@ method which the

51−-- 'BiddersAccountsCreativesDelete' request conforms to.

52−type BiddersAccountsCreativesDeleteResource =

53− "v2beta1" :>

54− Capture "ownerName" Text :>

55− "creatives" :>

56− Capture "creativeId" Text :>

57− QueryParam "$.xgafv" Xgafv :>

58− QueryParam "upload_protocol" Text :>

59− QueryParam "access_token" Text :>

60− QueryParam "uploadType" Text :>

61− QueryParam "callback" Text :>

62− QueryParam "alt" AltJSON :> Delete '[JSON] Empty

63−

64−-- | Deletes a single creative. A creative is deactivated upon deletion and

65−-- does not count against active snippet quota. A deleted creative should

66−-- not be used in bidding (all bids with that creative will be rejected).

67−--

68−-- /See:/ 'biddersAccountsCreativesDelete' smart constructor.

69−data BiddersAccountsCreativesDelete =

70− BiddersAccountsCreativesDelete'

71− { _bacdXgafv :: !(Maybe Xgafv)

72− , _bacdUploadProtocol :: !(Maybe Text)

73− , _bacdAccessToken :: !(Maybe Text)

74− , _bacdUploadType :: !(Maybe Text)

75− , _bacdCreativeId :: !Text

76− , _bacdOwnerName :: !Text

77− , _bacdCallback :: !(Maybe Text)

78− }

79− deriving (Eq, Show, Data, Typeable, Generic)

80−

81−

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

83−--

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

85−--

86−-- * 'bacdXgafv'

87−--

88−-- * 'bacdUploadProtocol'

89−--

90−-- * 'bacdAccessToken'

91−--

92−-- * 'bacdUploadType'

93−--

94−-- * 'bacdCreativeId'

95−--

96−-- * 'bacdOwnerName'

97−--

98−-- * 'bacdCallback'

99−biddersAccountsCreativesDelete

100− :: Text -- ^ 'bacdCreativeId'

101− -> Text -- ^ 'bacdOwnerName'

102− -> BiddersAccountsCreativesDelete

103−biddersAccountsCreativesDelete pBacdCreativeId_ pBacdOwnerName_ =

104− BiddersAccountsCreativesDelete'

105− { _bacdXgafv = Nothing

106− , _bacdUploadProtocol = Nothing

107− , _bacdAccessToken = Nothing

108− , _bacdUploadType = Nothing

109− , _bacdCreativeId = pBacdCreativeId_

110− , _bacdOwnerName = pBacdOwnerName_

111− , _bacdCallback = Nothing

112− }

113−

114−

115−-- | V1 error format.

116−bacdXgafv :: Lens' BiddersAccountsCreativesDelete (Maybe Xgafv)

117−bacdXgafv

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

119−

120−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

121−bacdUploadProtocol :: Lens' BiddersAccountsCreativesDelete (Maybe Text)

122−bacdUploadProtocol

123− = lens _bacdUploadProtocol

124− (\ s a -> s{_bacdUploadProtocol = a})

125−

126−-- | OAuth access token.

127−bacdAccessToken :: Lens' BiddersAccountsCreativesDelete (Maybe Text)

128−bacdAccessToken

129− = lens _bacdAccessToken

130− (\ s a -> s{_bacdAccessToken = a})

131−

132−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

133−bacdUploadType :: Lens' BiddersAccountsCreativesDelete (Maybe Text)

134−bacdUploadType

135− = lens _bacdUploadType

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

137−

138−-- | The ID of the creative to delete.

139−bacdCreativeId :: Lens' BiddersAccountsCreativesDelete Text

140−bacdCreativeId

141− = lens _bacdCreativeId

142− (\ s a -> s{_bacdCreativeId = a})

143−

144−-- | Name of the owner (bidder or account) of the creative to be deleted. For

145−-- example: - For an account-level creative for the buyer account

146−-- representing bidder 123: \`bidders\/123\/accounts\/123\` - For an

147−-- account-level creative for the child seat buyer account 456 whose bidder

148−-- is 123: \`bidders\/123\/accounts\/456\`

149−bacdOwnerName :: Lens' BiddersAccountsCreativesDelete Text

150−bacdOwnerName

151− = lens _bacdOwnerName

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

153−

154−-- | JSONP

155−bacdCallback :: Lens' BiddersAccountsCreativesDelete (Maybe Text)

156−bacdCallback

157− = lens _bacdCallback (\ s a -> s{_bacdCallback = a})

158−

159−instance GoogleRequest BiddersAccountsCreativesDelete

160− where

161− type Rs BiddersAccountsCreativesDelete = Empty

162− type Scopes BiddersAccountsCreativesDelete =

163− '["https://www.googleapis.com/auth/adexchange.buyer"]

164− requestClient BiddersAccountsCreativesDelete'{..}

165− = go _bacdOwnerName _bacdCreativeId _bacdXgafv

166− _bacdUploadProtocol

167− _bacdAccessToken

168− _bacdUploadType

169− _bacdCallback

170− (Just AltJSON)

171− adExchangeBuyer2Service

172− where go

173− = buildClient

174− (Proxy ::

175− Proxy BiddersAccountsCreativesDeleteResource)

176− mempty

gogol-adexchangebuyer2/gogol-adexchangebuyer2.cabal−1

@@ -71,7 +71,6 @@ library

7171 , Network.Google.Resource.AdExchangeBuyer2.Accounts.Proposals.Update

7272 , Network.Google.Resource.AdExchangeBuyer2.Accounts.PublisherProFiles.Get

7373 , Network.Google.Resource.AdExchangeBuyer2.Accounts.PublisherProFiles.List

74− , Network.Google.Resource.AdExchangeBuyer2.Bidders.Accounts.Creatives.Delete

7574 , Network.Google.Resource.AdExchangeBuyer2.Bidders.Accounts.FilterSets.BidMetrics.List

7675 , Network.Google.Resource.AdExchangeBuyer2.Bidders.Accounts.FilterSets.BidResponseErrors.List

7776 , Network.Google.Resource.AdExchangeBuyer2.Bidders.Accounts.FilterSets.BidResponsesWithoutBids.List

gogol-admin-directory/gen/Network/Google/Directory.hs−2

@@ -899,11 +899,9 @@ module Network.Google.Directory

899899 , useIncludeInGlobalAddressList

900900 , useGender

901901 , usePhones

902− , useRecoveryEmail

903902 , useName

904903 , usePassword

905904 , useEmails

906− , useRecoveryPhone

907905 , useIms

908906 , useKeywords

909907 , useIsAdmin

gogol-admin-directory/gen/Network/Google/Directory/Types.hs−2

@@ -550,11 +550,9 @@ module Network.Google.Directory.Types

550550 , useIncludeInGlobalAddressList

551551 , useGender

552552 , usePhones

553− , useRecoveryEmail

554553 , useName

555554 , usePassword

556555 , useEmails

557− , useRecoveryPhone

558556 , useIms

559557 , useKeywords

560558 , useIsAdmin

gogol-admin-directory/gen/Network/Google/Directory/Types/Product.hs+6−66

@@ -2552,38 +2552,24 @@ buildingAddress =

25522552

25532553

25542554-- | Optional. BCP-47 language code of the contents of this address (if

2555−-- known). This is often the UI language of the input form or is expected

2556−-- to match one of the languages used in the address\' country\/region, or

2557−-- their transliterated equivalents. This can affect formatting in certain

2558−-- countries, but is not critical to the correctness of the data and will

2559−-- never affect any validation or other non-formatting related operations.

2560−-- If this value is not known, it should be omitted (rather than specifying

2561−-- a possibly incorrect default). Examples: \"zh-Hant\", \"ja\",

2562−-- \"ja-Latn\", \"en\".

2555+-- known).

25632556baLanguageCode :: Lens' BuildingAddress (Maybe Text)

25642557baLanguageCode

25652558 = lens _baLanguageCode

25662559 (\ s a -> s{_baLanguageCode = a})

25672560

2568−-- | Required. CLDR region code of the country\/region of the address. This

2569−-- is never inferred and it is up to the user to ensure the value is

2570−-- correct. See http:\/\/cldr.unicode.org\/ and

2571−-- http:\/\/www.unicode.org\/cldr\/charts\/30\/supplemental\/territory_information.html

2561+-- | Required. CLDR region code of the country\/region of the address.

25722562baRegionCode :: Lens' BuildingAddress (Maybe Text)

25732563baRegionCode

25742564 = lens _baRegionCode (\ s a -> s{_baRegionCode = a})

25752565

2576−-- | Optional. Sublocality of the address. For example, this can be

2577−-- neighborhoods, boroughs, districts.

2566+-- | Optional. Sublocality of the address.

25782567baSublocality :: Lens' BuildingAddress (Maybe Text)

25792568baSublocality

25802569 = lens _baSublocality

25812570 (\ s a -> s{_baSublocality = a})

25822571

2583−-- | Optional. Postal code of the address. Not all countries use or require

2584−-- postal codes to be present, but where they are used, they may trigger

2585−-- additional validation with other parts of the address (e.g. state\/zip

2586−-- validation in the U.S.A.).

2572+-- | Optional. Postal code of the address.

25872573baPostalCode :: Lens' BuildingAddress (Maybe Text)

25882574baPostalCode

25892575 = lens _baPostalCode (\ s a -> s{_baPostalCode = a})

@@ -2597,34 +2583,13 @@ baLocality

25972583 = lens _baLocality (\ s a -> s{_baLocality = a})

25982584

25992585-- | Optional. Highest administrative subdivision which is used for postal

2600−-- addresses of a country or region. For example, this can be a state, a

2601−-- province, an oblast, or a prefecture. Specifically, for Spain this is

2602−-- the province and not the autonomous community (e.g. \"Barcelona\" and

2603−-- not \"Catalonia\"). Many countries don\'t use an administrative area in

2604−-- postal addresses. E.g. in Switzerland this should be left unpopulated.

2586+-- addresses of a country or region.

26052587baAdministrativeArea :: Lens' BuildingAddress (Maybe Text)

26062588baAdministrativeArea

26072589 = lens _baAdministrativeArea

26082590 (\ s a -> s{_baAdministrativeArea = a})

26092591

26102592-- | Unstructured address lines describing the lower levels of an address.

2611−-- Because values in addressLines do not have type information and may

2612−-- sometimes contain multiple values in a single field (e.g. \"Austin,

2613−-- TX\"), it is important that the line order is clear. The order of

2614−-- address lines should be \"envelope order\" for the country\/region of

2615−-- the address. In places where this can vary (e.g. Japan),

2616−-- address_language is used to make it explicit (e.g. \"ja\" for

2617−-- large-to-small ordering and \"ja-Latn\" or \"en\" for small-to-large).

2618−-- This way, the most specific line of an address can be selected based on

2619−-- the language. The minimum permitted structural representation of an

2620−-- address consists of a regionCode with all remaining information placed

2621−-- in the addressLines. It would be possible to format such an address very

2622−-- approximately without geocoding, but no semantic reasoning could be made

2623−-- about any of the address components until it was at least partially

2624−-- resolved. Creating an address only containing a regionCode and

2625−-- addressLines, and then geocoding is the recommended way to handle

2626−-- completely unstructured addresses (as opposed to guessing which parts of

2627−-- the address should be localities or administrative areas).

26282593baAddressLines :: Lens' BuildingAddress [Text]

26292594baAddressLines

26302595 = lens _baAddressLines

@@ -4231,11 +4196,9 @@ data User =

42314196 , _useIncludeInGlobalAddressList :: !(Maybe Bool)

42324197 , _useGender :: !(Maybe JSONValue)

42334198 , _usePhones :: !(Maybe JSONValue)

4234− , _useRecoveryEmail :: !(Maybe Text)

42354199 , _useName :: !(Maybe UserName)

42364200 , _usePassword :: !(Maybe Text)

42374201 , _useEmails :: !(Maybe JSONValue)

4238− , _useRecoveryPhone :: !(Maybe Text)

42394202 , _useIms :: !(Maybe JSONValue)

42404203 , _useKeywords :: !(Maybe JSONValue)

42414204 , _useIsAdmin :: !(Maybe Bool)

@@ -4311,16 +4274,12 @@ data User =

43114274--

43124275-- * 'usePhones'

43134276--

4314−-- * 'useRecoveryEmail'

4315−--

43164277-- * 'useName'

43174278--

43184279-- * 'usePassword'

43194280--

43204281-- * 'useEmails'

43214282--

4322−-- * 'useRecoveryPhone'

4323−--

43244283-- * 'useIms'

43254284--

43264285-- * 'useKeywords'

@@ -4380,11 +4339,9 @@ user =

43804339 , _useIncludeInGlobalAddressList = Nothing

43814340 , _useGender = Nothing

43824341 , _usePhones = Nothing

4383− , _useRecoveryEmail = Nothing

43844342 , _useName = Nothing

43854343 , _usePassword = Nothing

43864344 , _useEmails = Nothing

4387− , _useRecoveryPhone = Nothing

43884345 , _useIms = Nothing

43894346 , _useKeywords = Nothing

43904347 , _useIsAdmin = Nothing

@@ -4544,12 +4501,6 @@ usePhones :: Lens' User (Maybe JSONValue)

45444501usePhones

45454502 = lens _usePhones (\ s a -> s{_usePhones = a})

45464503

4547−-- | Recovery email of the user.

4548−useRecoveryEmail :: Lens' User (Maybe Text)

4549−useRecoveryEmail

4550− = lens _useRecoveryEmail

4551− (\ s a -> s{_useRecoveryEmail = a})

4552−

45534504-- | User\'s name

45544505useName :: Lens' User (Maybe UserName)

45554506useName = lens _useName (\ s a -> s{_useName = a})

@@ -4563,12 +4514,6 @@ useEmails :: Lens' User (Maybe JSONValue)

45634514useEmails

45644515 = lens _useEmails (\ s a -> s{_useEmails = a})

45654516

4566−-- | Recovery phone of the user.

4567−useRecoveryPhone :: Lens' User (Maybe Text)

4568−useRecoveryPhone

4569− = lens _useRecoveryPhone

4570− (\ s a -> s{_useRecoveryPhone = a})

4571−

45724517useIms :: Lens' User (Maybe JSONValue)

45734518useIms = lens _useIms (\ s a -> s{_useIms = a})

45744519

@@ -4674,11 +4619,9 @@ instance FromJSON User where

46744619 <*> (o .:? "includeInGlobalAddressList")

46754620 <*> (o .:? "gender")

46764621 <*> (o .:? "phones")

4677− <*> (o .:? "recoveryEmail")

46784622 <*> (o .:? "name")

46794623 <*> (o .:? "password")

46804624 <*> (o .:? "emails")

4681− <*> (o .:? "recoveryPhone")

46824625 <*> (o .:? "ims")

46834626 <*> (o .:? "keywords")

46844627 <*> (o .:? "isAdmin")

@@ -4727,12 +4670,9 @@ instance ToJSON User where

47274670 _useIncludeInGlobalAddressList,

47284671 ("gender" .=) <$> _useGender,

47294672 ("phones" .=) <$> _usePhones,

4730− ("recoveryEmail" .=) <$> _useRecoveryEmail,

47314673 ("name" .=) <$> _useName,

47324674 ("password" .=) <$> _usePassword,

4733− ("emails" .=) <$> _useEmails,

4734− ("recoveryPhone" .=) <$> _useRecoveryPhone,

4735− ("ims" .=) <$> _useIms,

4675+ ("emails" .=) <$> _useEmails, ("ims" .=) <$> _useIms,

47364676 ("keywords" .=) <$> _useKeywords,

47374677 ("isAdmin" .=) <$> _useIsAdmin,

47384678 ("isEnrolledIn2Sv" .=) <$> _useIsEnrolledIn2Sv,

gogol-alertcenter/gen/Network/Google/AlertCenter.hs+17−12

@@ -127,6 +127,22 @@ module Network.Google.AlertCenter

127127 , notification

128128 , nCloudPubsubTopic

129129

130+ -- ** ActivityRule

131+ , ActivityRule

132+ , activityRule

133+ , arSupersededAlerts

134+ , arActionNames

135+ , arSupersedingAlert

136+ , arTriggerSource

137+ , arWindowSize

138+ , arUpdateTime

139+ , arName

140+ , arThreshold

141+ , arQuery

142+ , arDisplayName

143+ , arDescription

144+ , arCreateTime

145+

130146 -- ** AccountWarning

131147 , AccountWarning

132148 , accountWarning

@@ -183,6 +199,7 @@ module Network.Google.AlertCenter

183199 , aAlertId

184200 , aSecurityInvestigationToolLink

185201 , aCustomerId

202+ , aUpdateTime

186203 , aEndTime

187204 , aSource

188205 , aDeleted

@@ -194,13 +211,6 @@ module Network.Google.AlertCenter

194211 , attachment

195212 , aCSV

196213

197− -- ** RequestInfo

198− , RequestInfo

199− , requestInfo

200− , riNumberOfRequests

201− , riAppDeveloperEmail

202− , riAppName

203−

204214 -- ** GoogleOperations

205215 , GoogleOperations

206216 , googleOperations

@@ -221,11 +231,6 @@ module Network.Google.AlertCenter

221231 -- ** Xgafv

222232 , Xgafv (..)

223233

224− -- ** AppMakerSQLSetupNotification

225− , AppMakerSQLSetupNotification

226− , appMakerSQLSetupNotification

227− , amsqlsnRequestInfo

228−

229234 -- ** DomainWideTakeoutInitiated

230235 , DomainWideTakeoutInitiated

231236 , domainWideTakeoutInitiated

gogol-alertcenter/gen/Network/Google/AlertCenter/Types.hs+17−12

@@ -94,6 +94,22 @@ module Network.Google.AlertCenter.Types

9494 , notification

9595 , nCloudPubsubTopic

9696

97+ -- * ActivityRule

98+ , ActivityRule

99+ , activityRule

100+ , arSupersededAlerts

101+ , arActionNames

102+ , arSupersedingAlert

103+ , arTriggerSource

104+ , arWindowSize

105+ , arUpdateTime

106+ , arName

107+ , arThreshold

108+ , arQuery

109+ , arDisplayName

110+ , arDescription

111+ , arCreateTime

112+

97113 -- * AccountWarning

98114 , AccountWarning

99115 , accountWarning

@@ -150,6 +166,7 @@ module Network.Google.AlertCenter.Types

150166 , aAlertId

151167 , aSecurityInvestigationToolLink

152168 , aCustomerId

169+ , aUpdateTime

153170 , aEndTime

154171 , aSource

155172 , aDeleted

@@ -161,13 +178,6 @@ module Network.Google.AlertCenter.Types

161178 , attachment

162179 , aCSV

163180

164− -- * RequestInfo

165− , RequestInfo

166− , requestInfo

167− , riNumberOfRequests

168− , riAppDeveloperEmail

169− , riAppName

170−

171181 -- * GoogleOperations

172182 , GoogleOperations

173183 , googleOperations

@@ -188,11 +198,6 @@ module Network.Google.AlertCenter.Types

188198 -- * Xgafv

189199 , Xgafv (..)

190200

191− -- * AppMakerSQLSetupNotification

192− , AppMakerSQLSetupNotification

193− , appMakerSQLSetupNotification

194− , amsqlsnRequestInfo

195−

196201 -- * DomainWideTakeoutInitiated

197202 , DomainWideTakeoutInitiated

198203 , domainWideTakeoutInitiated

gogol-alertcenter/gen/Network/Google/AlertCenter/Types/Product.hs+191−113

@@ -644,6 +644,184 @@ instance ToJSON Notification where

644644 (catMaybes

645645 [("cloudPubsubTopic" .=) <$> _nCloudPubsubTopic])

646646

647+-- | Alerts from G Suite Security Center rules service configured by admin.

648+--

649+-- /See:/ 'activityRule' smart constructor.

650+data ActivityRule =

651+ ActivityRule'

652+ { _arSupersededAlerts :: !(Maybe [Text])

653+ , _arActionNames :: !(Maybe [Text])

654+ , _arSupersedingAlert :: !(Maybe Text)

655+ , _arTriggerSource :: !(Maybe Text)

656+ , _arWindowSize :: !(Maybe GDuration)

657+ , _arUpdateTime :: !(Maybe DateTime')

658+ , _arName :: !(Maybe Text)

659+ , _arThreshold :: !(Maybe Text)

660+ , _arQuery :: !(Maybe Text)

661+ , _arDisplayName :: !(Maybe Text)

662+ , _arDescription :: !(Maybe Text)

663+ , _arCreateTime :: !(Maybe DateTime')

664+ }

665+ deriving (Eq, Show, Data, Typeable, Generic)

666+

667+

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

669+--

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

671+--

672+-- * 'arSupersededAlerts'

673+--

674+-- * 'arActionNames'

675+--

676+-- * 'arSupersedingAlert'

677+--

678+-- * 'arTriggerSource'

679+--

680+-- * 'arWindowSize'

681+--

682+-- * 'arUpdateTime'

683+--

684+-- * 'arName'

685+--

686+-- * 'arThreshold'

687+--

688+-- * 'arQuery'

689+--

690+-- * 'arDisplayName'

691+--

692+-- * 'arDescription'

693+--

694+-- * 'arCreateTime'

695+activityRule

696+ :: ActivityRule

697+activityRule =

698+ ActivityRule'

699+ { _arSupersededAlerts = Nothing

700+ , _arActionNames = Nothing

701+ , _arSupersedingAlert = Nothing

702+ , _arTriggerSource = Nothing

703+ , _arWindowSize = Nothing

704+ , _arUpdateTime = Nothing

705+ , _arName = Nothing

706+ , _arThreshold = Nothing

707+ , _arQuery = Nothing

708+ , _arDisplayName = Nothing

709+ , _arDescription = Nothing

710+ , _arCreateTime = Nothing

711+ }

712+

713+

714+-- | List of alert ids superseded by this alert. It is used to indicate that

715+-- this alert is essentially extension of superseded alerts and we found

716+-- the relationship after creating these alerts.

717+arSupersededAlerts :: Lens' ActivityRule [Text]

718+arSupersededAlerts

719+ = lens _arSupersededAlerts

720+ (\ s a -> s{_arSupersededAlerts = a})

721+ . _Default

722+ . _Coerce

723+

724+-- | List of action names associated with the rule threshold.

725+arActionNames :: Lens' ActivityRule [Text]

726+arActionNames

727+ = lens _arActionNames

728+ (\ s a -> s{_arActionNames = a})

729+ . _Default

730+ . _Coerce

731+

732+-- | Alert id superseding this alert. It is used to indicate that superseding

733+-- alert is essentially extension of this alert and we found the

734+-- relationship after creating both alerts.

735+arSupersedingAlert :: Lens' ActivityRule (Maybe Text)

736+arSupersedingAlert

737+ = lens _arSupersedingAlert

738+ (\ s a -> s{_arSupersedingAlert = a})

739+

740+-- | The trigger sources for this rule. * GMAIL_EVENTS * DEVICE_EVENTS *

741+-- USER_EVENTS

742+arTriggerSource :: Lens' ActivityRule (Maybe Text)

743+arTriggerSource

744+ = lens _arTriggerSource

745+ (\ s a -> s{_arTriggerSource = a})

746+

747+-- | Rule window size. Possible values are 1 hour or 24 hours.

748+arWindowSize :: Lens' ActivityRule (Maybe Scientific)

749+arWindowSize

750+ = lens _arWindowSize (\ s a -> s{_arWindowSize = a})

751+ . mapping _GDuration

752+

753+-- | The timestamp of the last update to the rule.

754+arUpdateTime :: Lens' ActivityRule (Maybe UTCTime)

755+arUpdateTime

756+ = lens _arUpdateTime (\ s a -> s{_arUpdateTime = a})

757+ . mapping _DateTime

758+

759+-- | Rule name.

760+arName :: Lens' ActivityRule (Maybe Text)

761+arName = lens _arName (\ s a -> s{_arName = a})

762+

763+-- | Alert threshold is for example “COUNT > 5”.

764+arThreshold :: Lens' ActivityRule (Maybe Text)

765+arThreshold

766+ = lens _arThreshold (\ s a -> s{_arThreshold = a})

767+

768+-- | Query that is used to get the data from the associated source.

769+arQuery :: Lens' ActivityRule (Maybe Text)

770+arQuery = lens _arQuery (\ s a -> s{_arQuery = a})

771+

772+-- | Alert display name.

773+arDisplayName :: Lens' ActivityRule (Maybe Text)

774+arDisplayName

775+ = lens _arDisplayName

776+ (\ s a -> s{_arDisplayName = a})

777+

778+-- | Description of the rule.

779+arDescription :: Lens' ActivityRule (Maybe Text)

780+arDescription

781+ = lens _arDescription

782+ (\ s a -> s{_arDescription = a})

783+

784+-- | Rule create timestamp.

785+arCreateTime :: Lens' ActivityRule (Maybe UTCTime)

786+arCreateTime

787+ = lens _arCreateTime (\ s a -> s{_arCreateTime = a})

788+ . mapping _DateTime

789+

790+instance FromJSON ActivityRule where

791+ parseJSON

792+ = withObject "ActivityRule"

793+ (\ o ->

794+ ActivityRule' <$>

795+ (o .:? "supersededAlerts" .!= mempty) <*>

796+ (o .:? "actionNames" .!= mempty)

797+ <*> (o .:? "supersedingAlert")

798+ <*> (o .:? "triggerSource")

799+ <*> (o .:? "windowSize")

800+ <*> (o .:? "updateTime")

801+ <*> (o .:? "name")

802+ <*> (o .:? "threshold")

803+ <*> (o .:? "query")

804+ <*> (o .:? "displayName")

805+ <*> (o .:? "description")

806+ <*> (o .:? "createTime"))

807+

808+instance ToJSON ActivityRule where

809+ toJSON ActivityRule'{..}

810+ = object

811+ (catMaybes

812+ [("supersededAlerts" .=) <$> _arSupersededAlerts,

813+ ("actionNames" .=) <$> _arActionNames,

814+ ("supersedingAlert" .=) <$> _arSupersedingAlert,

815+ ("triggerSource" .=) <$> _arTriggerSource,

816+ ("windowSize" .=) <$> _arWindowSize,

817+ ("updateTime" .=) <$> _arUpdateTime,

818+ ("name" .=) <$> _arName,

819+ ("threshold" .=) <$> _arThreshold,

820+ ("query" .=) <$> _arQuery,

821+ ("displayName" .=) <$> _arDisplayName,

822+ ("description" .=) <$> _arDescription,

823+ ("createTime" .=) <$> _arCreateTime])

824+

647825-- | Alerts for user account warning events.

648826--

649827-- /See:/ 'accountWarning' smart constructor.

@@ -1079,6 +1257,7 @@ data Alert =

10791257 , _aAlertId :: !(Maybe Text)

10801258 , _aSecurityInvestigationToolLink :: !(Maybe Text)

10811259 , _aCustomerId :: !(Maybe Text)

1260+ , _aUpdateTime :: !(Maybe DateTime')

10821261 , _aEndTime :: !(Maybe DateTime')

10831262 , _aSource :: !(Maybe Text)

10841263 , _aDeleted :: !(Maybe Bool)

@@ -1102,6 +1281,8 @@ data Alert =

11021281--

11031282-- * 'aCustomerId'

11041283--

1284+-- * 'aUpdateTime'

1285+--

11051286-- * 'aEndTime'

11061287--

11071288-- * 'aSource'

@@ -1120,6 +1301,7 @@ alert =

11201301 , _aAlertId = Nothing

11211302 , _aSecurityInvestigationToolLink = Nothing

11221303 , _aCustomerId = Nothing

1304+ , _aUpdateTime = Nothing

11231305 , _aEndTime = Nothing

11241306 , _aSource = Nothing

11251307 , _aDeleted = Nothing

@@ -1158,9 +1340,15 @@ aCustomerId :: Lens' Alert (Maybe Text)

11581340aCustomerId

11591341 = lens _aCustomerId (\ s a -> s{_aCustomerId = a})

11601342

1343+-- | Output only. The time this alert was last updated.

1344+aUpdateTime :: Lens' Alert (Maybe UTCTime)

1345+aUpdateTime

1346+ = lens _aUpdateTime (\ s a -> s{_aUpdateTime = a}) .

1347+ mapping _DateTime

1348+

11611349-- | Optional. The time the event that caused this alert ceased being active.

11621350-- If provided, the end time must not be earlier than the start time. If

1163−-- not provided, the end time defaults to the start time.

1351+-- not provided, it indicates an ongoing alert.

11641352aEndTime :: Lens' Alert (Maybe UTCTime)

11651353aEndTime

11661354 = lens _aEndTime (\ s a -> s{_aEndTime = a}) .

@@ -1199,6 +1387,7 @@ instance FromJSON Alert where

11991387 (o .:? "alertId")

12001388 <*> (o .:? "securityInvestigationToolLink")

12011389 <*> (o .:? "customerId")

1390+ <*> (o .:? "updateTime")

12021391 <*> (o .:? "endTime")

12031392 <*> (o .:? "source")

12041393 <*> (o .:? "deleted")

@@ -1214,6 +1403,7 @@ instance ToJSON Alert where

12141403 ("securityInvestigationToolLink" .=) <$>

12151404 _aSecurityInvestigationToolLink,

12161405 ("customerId" .=) <$> _aCustomerId,

1406+ ("updateTime" .=) <$> _aUpdateTime,

12171407 ("endTime" .=) <$> _aEndTime,

12181408 ("source" .=) <$> _aSource,

12191409 ("deleted" .=) <$> _aDeleted, ("type" .=) <$> _aType,

@@ -1252,76 +1442,6 @@ instance ToJSON Attachment where

12521442 toJSON Attachment'{..}

12531443 = object (catMaybes [("csv" .=) <$> _aCSV])

12541444

1255−-- | Requests for one application that needs default SQL setup.

1256−--

1257−-- /See:/ 'requestInfo' smart constructor.

1258−data RequestInfo =

1259− RequestInfo'

1260− { _riNumberOfRequests :: !(Maybe (Textual Int64))

1261− , _riAppDeveloperEmail :: !(Maybe [Text])

1262− , _riAppName :: !(Maybe Text)

1263− }

1264− deriving (Eq, Show, Data, Typeable, Generic)

1265−

1266−

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

1268−--

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

1270−--

1271−-- * 'riNumberOfRequests'

1272−--

1273−-- * 'riAppDeveloperEmail'

1274−--

1275−-- * 'riAppName'

1276−requestInfo

1277− :: RequestInfo

1278−requestInfo =

1279− RequestInfo'

1280− { _riNumberOfRequests = Nothing

1281− , _riAppDeveloperEmail = Nothing

1282− , _riAppName = Nothing

1283− }

1284−

1285−

1286−-- | Required. Number of requests sent for this application to set up default

1287−-- SQL instance.

1288−riNumberOfRequests :: Lens' RequestInfo (Maybe Int64)

1289−riNumberOfRequests

1290− = lens _riNumberOfRequests

1291− (\ s a -> s{_riNumberOfRequests = a})

1292− . mapping _Coerce

1293−

1294−-- | List of app developers who triggered notifications for above

1295−-- application.

1296−riAppDeveloperEmail :: Lens' RequestInfo [Text]

1297−riAppDeveloperEmail

1298− = lens _riAppDeveloperEmail

1299− (\ s a -> s{_riAppDeveloperEmail = a})

1300− . _Default

1301− . _Coerce

1302−

1303−-- | Required. The application that requires the SQL setup.

1304−riAppName :: Lens' RequestInfo (Maybe Text)

1305−riAppName

1306− = lens _riAppName (\ s a -> s{_riAppName = a})

1307−

1308−instance FromJSON RequestInfo where

1309− parseJSON

1310− = withObject "RequestInfo"

1311− (\ o ->

1312− RequestInfo' <$>

1313− (o .:? "numberOfRequests") <*>

1314− (o .:? "appDeveloperEmail" .!= mempty)

1315− <*> (o .:? "appName"))

1316−

1317−instance ToJSON RequestInfo where

1318− toJSON RequestInfo'{..}

1319− = object

1320− (catMaybes

1321− [("numberOfRequests" .=) <$> _riNumberOfRequests,

1322− ("appDeveloperEmail" .=) <$> _riAppDeveloperEmail,

1323− ("appName" .=) <$> _riAppName])

1324−

13251445-- | An incident reported by Google Operations for a G Suite application.

13261446--

13271447-- /See:/ 'googleOperations' smart constructor.

@@ -1452,48 +1572,6 @@ instance ToJSON SuspiciousActivity where

14521572 [("email" .=) <$> _saEmail,

14531573 ("events" .=) <$> _saEvents])

14541574

1455−-- | Alerts from App Maker to notify admins to set up default SQL instance.

1456−--

1457−-- /See:/ 'appMakerSQLSetupNotification' smart constructor.

1458−newtype AppMakerSQLSetupNotification =

1459− AppMakerSQLSetupNotification'

1460− { _amsqlsnRequestInfo :: Maybe [RequestInfo]

1461− }

1462− deriving (Eq, Show, Data, Typeable, Generic)

1463−

1464−

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

1466−--

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

1468−--

1469−-- * 'amsqlsnRequestInfo'

1470−appMakerSQLSetupNotification

1471− :: AppMakerSQLSetupNotification

1472−appMakerSQLSetupNotification =

1473− AppMakerSQLSetupNotification' {_amsqlsnRequestInfo = Nothing}

1474−

1475−

1476−-- | List of applications with requests for default SQL set up.

1477−amsqlsnRequestInfo :: Lens' AppMakerSQLSetupNotification [RequestInfo]

1478−amsqlsnRequestInfo

1479− = lens _amsqlsnRequestInfo

1480− (\ s a -> s{_amsqlsnRequestInfo = a})

1481− . _Default

1482− . _Coerce

1483−

1484−instance FromJSON AppMakerSQLSetupNotification where

1485− parseJSON

1486− = withObject "AppMakerSQLSetupNotification"

1487− (\ o ->

1488− AppMakerSQLSetupNotification' <$>

1489− (o .:? "requestInfo" .!= mempty))

1490−

1491−instance ToJSON AppMakerSQLSetupNotification where

1492− toJSON AppMakerSQLSetupNotification'{..}

1493− = object

1494− (catMaybes

1495− [("requestInfo" .=) <$> _amsqlsnRequestInfo])

1496−

14971575-- | A takeout operation for the entire domain was initiated by an admin.

14981576-- Derived from audit logs.

14991577--

gogol-alertcenter/gen/Network/Google/Resource/AlertCenter/Alerts/List.hs+2−2

@@ -138,8 +138,8 @@ alUploadProtocol

138138-- | Optional. The sort order of the list results. If not specified results

139139-- may be returned in arbitrary order. You can sort the results in

140140-- descending order based on the creation timestamp using

141−-- \`order_by=\"create_time desc\"\`. Currently, only sorting by

142−-- \`create_time desc\` is supported.

141+-- \`order_by=\"create_time desc\"\`. Currently, supported sorting are

142+-- \`create_time asc\`, \`create_time desc\`, \`update_time desc\`

143143alOrderBy :: Lens' AlertsList (Maybe Text)

144144alOrderBy

145145 = lens _alOrderBy (\ s a -> s{_alOrderBy = a})

gogol-analyticsreporting/gen/Network/Google/AnalyticsReporting.hs+142−1

@@ -33,6 +33,9 @@ module Network.Google.AnalyticsReporting

3333 -- ** analyticsreporting.reports.batchGet

3434 , module Network.Google.Resource.AnalyticsReporting.Reports.BatchGet

3535

36+ -- ** analyticsreporting.userActivity.search

37+ , module Network.Google.Resource.AnalyticsReporting.UserActivity.Search

38+

3639 -- * Types

3740

3841 -- ** MetricFilter

@@ -43,6 +46,15 @@ module Network.Google.AnalyticsReporting

4346 , mfMetricName

4447 , mfComparisonValue

4548

49+ -- ** EventData

50+ , EventData

51+ , eventData

52+ , edEventCategory

53+ , edEventCount

54+ , edEventValue

55+ , edEventLabel

56+ , edEventAction

57+

4658 -- ** MetricFilterOperator

4759 , MetricFilterOperator (..)

4860

@@ -91,6 +103,11 @@ module Network.Google.AnalyticsReporting

91103 , mheName

92104 , mheType

93105

106+ -- ** GoalSetData

107+ , GoalSetData

108+ , goalSetData

109+ , gsdGoals

110+

94111 -- ** CohortGroup

95112 , CohortGroup

96113 , cohortGroup

@@ -139,6 +156,16 @@ module Network.Google.AnalyticsReporting

139156 , phTotalPivotGroupsCount

140157 , phPivotHeaderEntries

141158

159+ -- ** SearchUserActivityRequest

160+ , SearchUserActivityRequest

161+ , searchUserActivityRequest

162+ , suarViewId

163+ , suarDateRange

164+ , suarUser

165+ , suarPageToken

166+ , suarPageSize

167+ , suarActivityTypes

168+

142169 -- ** MetricHeader

143170 , MetricHeader

144171 , metricHeader

@@ -168,6 +195,15 @@ module Network.Google.AnalyticsReporting

168195 , rData

169196 , rColumnHeader

170197

198+ -- ** PageviewData

199+ , PageviewData

200+ , pageviewData

201+ , pdPageTitle

202+ , pdPagePath

203+

204+ -- ** EcommerceDataActionType

205+ , EcommerceDataActionType (..)

206+

171207 -- ** ReportData

172208 , ReportData

173209 , reportData

@@ -207,6 +243,12 @@ module Network.Google.AnalyticsReporting

207243 -- ** OrderBySortOrder

208244 , OrderBySortOrder (..)

209245

246+ -- ** User

247+ , User

248+ , user

249+ , uUserId

250+ , uType

251+

210252 -- ** Pivot

211253 , Pivot

212254 , pivot

@@ -216,6 +258,14 @@ module Network.Google.AnalyticsReporting

216258 , pDimensions

217259 , pDimensionFilterClauses

218260

261+ -- ** TransactionData

262+ , TransactionData

263+ , transactionData

264+ , tdTransactionId

265+ , tdTransactionTax

266+ , tdTransactionShipping

267+ , tdTransactionRevenue

268+

219269 -- ** SequenceSegment

220270 , SequenceSegment

221271 , sequenceSegment

@@ -256,9 +306,50 @@ module Network.Google.AnalyticsReporting

256306 , grrUseResourceQuotas

257307 , grrReportRequests

258308

309+ -- ** UserActivitySession

310+ , UserActivitySession

311+ , userActivitySession

312+ , uasPlatform

313+ , uasDeviceCategory

314+ , uasActivities

315+ , uasSessionDate

316+ , uasDataSource

317+ , uasSessionId

318+

259319 -- ** SegmentSequenceStepMatchType

260320 , SegmentSequenceStepMatchType (..)

261321

322+ -- ** GoalData

323+ , GoalData

324+ , goalData

325+ , gdGoalPreviousStep2

326+ , gdGoalName

327+ , gdGoalPreviousStep3

328+ , gdGoalIndex

329+ , gdGoalCompletionLocation

330+ , gdGoalPreviousStep1

331+ , gdGoalCompletions

332+ , gdGoalValue

333+

334+ -- ** Activity

335+ , Activity

336+ , activity

337+ , aEvent

338+ , aHostname

339+ , aActivityType

340+ , aMedium

341+ , aPageview

342+ , aCampaign

343+ , aGoals

344+ , aChannelGrouping

345+ , aAppview

346+ , aSource

347+ , aActivityTime

348+ , aEcommerce

349+ , aCustomDimension

350+ , aKeyword

351+ , aLandingPagePath

352+

262353 -- ** Cohort

263354 , Cohort

264355 , cohort

@@ -269,6 +360,17 @@ module Network.Google.AnalyticsReporting

269360 -- ** SegmentMetricFilterScope

270361 , SegmentMetricFilterScope (..)

271362

363+ -- ** EcommerceData

364+ , EcommerceData

365+ , ecommerceData

366+ , edEcommerceType

367+ , edTransaction

368+ , edProducts

369+ , edActionType

370+

371+ -- ** EcommerceDataEcommerceType

372+ , EcommerceDataEcommerceType (..)

373+

272374 -- ** DimensionFilter

273375 , DimensionFilter

274376 , dimensionFilter

@@ -288,15 +390,32 @@ module Network.Google.AnalyticsReporting

288390 -- ** DimensionFilterOperator

289391 , DimensionFilterOperator (..)

290392

393+ -- ** ActivityActivityType

394+ , ActivityActivityType (..)

395+

291396 -- ** MetricFormattingType

292397 , MetricFormattingType (..)

293398

399+ -- ** CustomDimension

400+ , CustomDimension

401+ , customDimension

402+ , cdValue

403+ , cdIndex

404+

294405 -- ** Segment

295406 , Segment

296407 , segment

297408 , sDynamicSegment

298409 , sSegmentId

299410

411+ -- ** ProductData

412+ , ProductData

413+ , productData

414+ , pdProductName

415+ , pdProductSKU

416+ , pdItemRevenue

417+ , pdProductQuantity

418+

300419 -- ** SegmentDimensionFilterOperator

301420 , SegmentDimensionFilterOperator (..)

302421

@@ -332,20 +451,42 @@ module Network.Google.AnalyticsReporting

332451 -- ** MetricFilterClauseOperator

333452 , MetricFilterClauseOperator (..)

334453

454+ -- ** UserType

455+ , UserType (..)

456+

335457 -- ** ColumnHeader

336458 , ColumnHeader

337459 , columnHeader

338460 , chMetricHeader

339461 , chDimensions

462+

463+ -- ** SearchUserActivityResponse

464+ , SearchUserActivityResponse

465+ , searchUserActivityResponse

466+ , suarNextPageToken

467+ , suarSampleRate

468+ , suarSessions

469+ , suarTotalRows

470+

471+ -- ** ScreenviewData

472+ , ScreenviewData

473+ , screenviewData

474+ , sdMobileDeviceModel

475+ , sdMobileDeviceBranding

476+ , sdAppName

477+ , sdScreenName

340478 ) where

341479

342480import Network.Google.AnalyticsReporting.Types

343481import Network.Google.Prelude

344482import Network.Google.Resource.AnalyticsReporting.Reports.BatchGet

483+import Network.Google.Resource.AnalyticsReporting.UserActivity.Search

345484

346485{- $resources

347486TODO

348487-}

349488

350489-- | Represents the entirety of the methods and resources available for the Analytics Reporting API service.

351−type AnalyticsReportingAPI = ReportsBatchGetResource

490+type AnalyticsReportingAPI =

491+ ReportsBatchGetResource :<|>

492+ UserActivitySearchResource

gogol-analyticsreporting/gen/Network/Google/AnalyticsReporting/Types.hs+135

@@ -31,6 +31,15 @@ module Network.Google.AnalyticsReporting.Types

3131 , mfMetricName

3232 , mfComparisonValue

3333

34+ -- * EventData

35+ , EventData

36+ , eventData

37+ , edEventCategory

38+ , edEventCount

39+ , edEventValue

40+ , edEventLabel

41+ , edEventAction

42+

3443 -- * MetricFilterOperator

3544 , MetricFilterOperator (..)

3645

@@ -79,6 +88,11 @@ module Network.Google.AnalyticsReporting.Types

7988 , mheName

8089 , mheType

8190

91+ -- * GoalSetData

92+ , GoalSetData

93+ , goalSetData

94+ , gsdGoals

95+

8296 -- * CohortGroup

8397 , CohortGroup

8498 , cohortGroup

@@ -127,6 +141,16 @@ module Network.Google.AnalyticsReporting.Types

127141 , phTotalPivotGroupsCount

128142 , phPivotHeaderEntries

129143

144+ -- * SearchUserActivityRequest

145+ , SearchUserActivityRequest

146+ , searchUserActivityRequest

147+ , suarViewId

148+ , suarDateRange

149+ , suarUser

150+ , suarPageToken

151+ , suarPageSize

152+ , suarActivityTypes

153+

130154 -- * MetricHeader

131155 , MetricHeader

132156 , metricHeader

@@ -156,6 +180,15 @@ module Network.Google.AnalyticsReporting.Types

156180 , rData

157181 , rColumnHeader

158182

183+ -- * PageviewData

184+ , PageviewData

185+ , pageviewData

186+ , pdPageTitle

187+ , pdPagePath

188+

189+ -- * EcommerceDataActionType

190+ , EcommerceDataActionType (..)

191+

159192 -- * ReportData

160193 , ReportData

161194 , reportData

@@ -195,6 +228,12 @@ module Network.Google.AnalyticsReporting.Types

195228 -- * OrderBySortOrder

196229 , OrderBySortOrder (..)

197230

231+ -- * User

232+ , User

233+ , user

234+ , uUserId

235+ , uType

236+

198237 -- * Pivot

199238 , Pivot

200239 , pivot

@@ -204,6 +243,14 @@ module Network.Google.AnalyticsReporting.Types

204243 , pDimensions

205244 , pDimensionFilterClauses

206245

246+ -- * TransactionData

247+ , TransactionData

248+ , transactionData

249+ , tdTransactionId

250+ , tdTransactionTax

251+ , tdTransactionShipping

252+ , tdTransactionRevenue

253+

207254 -- * SequenceSegment

208255 , SequenceSegment

209256 , sequenceSegment

@@ -244,9 +291,50 @@ module Network.Google.AnalyticsReporting.Types

244291 , grrUseResourceQuotas

245292 , grrReportRequests

246293

294+ -- * UserActivitySession

295+ , UserActivitySession

296+ , userActivitySession

297+ , uasPlatform

298+ , uasDeviceCategory

299+ , uasActivities

300+ , uasSessionDate

301+ , uasDataSource

302+ , uasSessionId

303+

247304 -- * SegmentSequenceStepMatchType

248305 , SegmentSequenceStepMatchType (..)

249306

307+ -- * GoalData

308+ , GoalData

309+ , goalData

310+ , gdGoalPreviousStep2

311+ , gdGoalName

312+ , gdGoalPreviousStep3

313+ , gdGoalIndex

314+ , gdGoalCompletionLocation

315+ , gdGoalPreviousStep1

316+ , gdGoalCompletions

317+ , gdGoalValue

318+

319+ -- * Activity

320+ , Activity

321+ , activity

322+ , aEvent

323+ , aHostname

324+ , aActivityType

325+ , aMedium

326+ , aPageview

327+ , aCampaign

328+ , aGoals

329+ , aChannelGrouping

330+ , aAppview

331+ , aSource

332+ , aActivityTime

333+ , aEcommerce

334+ , aCustomDimension

335+ , aKeyword

336+ , aLandingPagePath

337+

250338 -- * Cohort

251339 , Cohort

252340 , cohort

@@ -257,6 +345,17 @@ module Network.Google.AnalyticsReporting.Types

257345 -- * SegmentMetricFilterScope

258346 , SegmentMetricFilterScope (..)

259347

348+ -- * EcommerceData

349+ , EcommerceData

350+ , ecommerceData

351+ , edEcommerceType

352+ , edTransaction

353+ , edProducts

354+ , edActionType

355+

356+ -- * EcommerceDataEcommerceType

357+ , EcommerceDataEcommerceType (..)

358+

260359 -- * DimensionFilter

261360 , DimensionFilter

262361 , dimensionFilter

@@ -276,15 +375,32 @@ module Network.Google.AnalyticsReporting.Types

276375 -- * DimensionFilterOperator

277376 , DimensionFilterOperator (..)

278377

378+ -- * ActivityActivityType

379+ , ActivityActivityType (..)

380+

279381 -- * MetricFormattingType

280382 , MetricFormattingType (..)

281383

384+ -- * CustomDimension

385+ , CustomDimension

386+ , customDimension

387+ , cdValue

388+ , cdIndex

389+

282390 -- * Segment

283391 , Segment

284392 , segment

285393 , sDynamicSegment

286394 , sSegmentId

287395

396+ -- * ProductData

397+ , ProductData

398+ , productData

399+ , pdProductName

400+ , pdProductSKU

401+ , pdItemRevenue

402+ , pdProductQuantity

403+

288404 -- * SegmentDimensionFilterOperator

289405 , SegmentDimensionFilterOperator (..)

290406

@@ -320,11 +436,30 @@ module Network.Google.AnalyticsReporting.Types

320436 -- * MetricFilterClauseOperator

321437 , MetricFilterClauseOperator (..)

322438

439+ -- * UserType

440+ , UserType (..)

441+

323442 -- * ColumnHeader

324443 , ColumnHeader

325444 , columnHeader

326445 , chMetricHeader

327446 , chDimensions

447+

448+ -- * SearchUserActivityResponse

449+ , SearchUserActivityResponse

450+ , searchUserActivityResponse

451+ , suarNextPageToken

452+ , suarSampleRate

453+ , suarSessions

454+ , suarTotalRows

455+

456+ -- * ScreenviewData

457+ , ScreenviewData

458+ , screenviewData

459+ , sdMobileDeviceModel

460+ , sdMobileDeviceBranding

461+ , sdAppName

462+ , sdScreenName

328463 ) where

329464

330465import Network.Google.AnalyticsReporting.Types.Product

gogol-analyticsreporting/gen/Network/Google/AnalyticsReporting/Types/Product.hs+1237

@@ -100,6 +100,94 @@ instance ToJSON MetricFilter where

100100 ("metricName" .=) <$> _mfMetricName,

101101 ("comparisonValue" .=) <$> _mfComparisonValue])

102102

103+-- | Represents all the details pertaining to an event.

104+--

105+-- /See:/ 'eventData' smart constructor.

106+data EventData =

107+ EventData'

108+ { _edEventCategory :: !(Maybe Text)

109+ , _edEventCount :: !(Maybe (Textual Int64))

110+ , _edEventValue :: !(Maybe (Textual Int64))

111+ , _edEventLabel :: !(Maybe Text)

112+ , _edEventAction :: !(Maybe Text)

113+ }

114+ deriving (Eq, Show, Data, Typeable, Generic)

115+

116+

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

118+--

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

120+--

121+-- * 'edEventCategory'

122+--

123+-- * 'edEventCount'

124+--

125+-- * 'edEventValue'

126+--

127+-- * 'edEventLabel'

128+--

129+-- * 'edEventAction'

130+eventData

131+ :: EventData

132+eventData =

133+ EventData'

134+ { _edEventCategory = Nothing

135+ , _edEventCount = Nothing

136+ , _edEventValue = Nothing

137+ , _edEventLabel = Nothing

138+ , _edEventAction = Nothing

139+ }

140+

141+

142+-- | The object on the page that was interacted with. Eg: \'Video\'.

143+edEventCategory :: Lens' EventData (Maybe Text)

144+edEventCategory

145+ = lens _edEventCategory

146+ (\ s a -> s{_edEventCategory = a})

147+

148+-- | Number of such events in this activity.

149+edEventCount :: Lens' EventData (Maybe Int64)

150+edEventCount

151+ = lens _edEventCount (\ s a -> s{_edEventCount = a})

152+ . mapping _Coerce

153+

154+-- | Numeric value associated with the event.

155+edEventValue :: Lens' EventData (Maybe Int64)

156+edEventValue

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

158+ . mapping _Coerce

159+

160+-- | Label attached with the event.

161+edEventLabel :: Lens' EventData (Maybe Text)

162+edEventLabel

163+ = lens _edEventLabel (\ s a -> s{_edEventLabel = a})

164+

165+-- | Type of interaction with the object. Eg: \'play\'.

166+edEventAction :: Lens' EventData (Maybe Text)

167+edEventAction

168+ = lens _edEventAction

169+ (\ s a -> s{_edEventAction = a})

170+

171+instance FromJSON EventData where

172+ parseJSON

173+ = withObject "EventData"

174+ (\ o ->

175+ EventData' <$>

176+ (o .:? "eventCategory") <*> (o .:? "eventCount") <*>

177+ (o .:? "eventValue")

178+ <*> (o .:? "eventLabel")

179+ <*> (o .:? "eventAction"))

180+

181+instance ToJSON EventData where

182+ toJSON EventData'{..}

183+ = object

184+ (catMaybes

185+ [("eventCategory" .=) <$> _edEventCategory,

186+ ("eventCount" .=) <$> _edEventCount,

187+ ("eventValue" .=) <$> _edEventValue,

188+ ("eventLabel" .=) <$> _edEventLabel,

189+ ("eventAction" .=) <$> _edEventAction])

190+

103191-- | A row in the report.

104192--

105193-- /See:/ 'reportRow' smart constructor.

@@ -598,6 +686,42 @@ instance ToJSON MetricHeaderEntry where

598686 (catMaybes

599687 [("name" .=) <$> _mheName, ("type" .=) <$> _mheType])

600688

689+-- | Represents a set of goals that were reached in an activity.

690+--

691+-- /See:/ 'goalSetData' smart constructor.

692+newtype GoalSetData =

693+ GoalSetData'

694+ { _gsdGoals :: Maybe [GoalData]

695+ }

696+ deriving (Eq, Show, Data, Typeable, Generic)

697+

698+

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

700+--

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

702+--

703+-- * 'gsdGoals'

704+goalSetData

705+ :: GoalSetData

706+goalSetData = GoalSetData' {_gsdGoals = Nothing}

707+

708+

709+-- | All the goals that were reached in the current activity.

710+gsdGoals :: Lens' GoalSetData [GoalData]

711+gsdGoals

712+ = lens _gsdGoals (\ s a -> s{_gsdGoals = a}) .

713+ _Default

714+ . _Coerce

715+

716+instance FromJSON GoalSetData where

717+ parseJSON

718+ = withObject "GoalSetData"

719+ (\ o -> GoalSetData' <$> (o .:? "goals" .!= mempty))

720+

721+instance ToJSON GoalSetData where

722+ toJSON GoalSetData'{..}

723+ = object (catMaybes [("goals" .=) <$> _gsdGoals])

724+

601725-- | Defines a cohort group. For example: \"cohortGroup\": { \"cohorts\": [{

602726-- \"name\": \"cohort 1\", \"type\": \"FIRST_VISIT_DATE\", \"dateRange\": {

603727-- \"startDate\": \"2015-08-01\", \"endDate\": \"2015-08-01\" } },{

@@ -1016,6 +1140,123 @@ instance ToJSON PivotHeader where

10161140 _phTotalPivotGroupsCount,

10171141 ("pivotHeaderEntries" .=) <$> _phPivotHeaderEntries])

10181142

1143+-- | The request to fetch User Report from Reporting API \`userActivity:get\`

1144+-- call.

1145+--

1146+-- /See:/ 'searchUserActivityRequest' smart constructor.

1147+data SearchUserActivityRequest =

1148+ SearchUserActivityRequest'

1149+ { _suarViewId :: !(Maybe Text)

1150+ , _suarDateRange :: !(Maybe DateRange)

1151+ , _suarUser :: !(Maybe User)

1152+ , _suarPageToken :: !(Maybe Text)

1153+ , _suarPageSize :: !(Maybe (Textual Int32))

1154+ , _suarActivityTypes :: !(Maybe [Text])

1155+ }

1156+ deriving (Eq, Show, Data, Typeable, Generic)

1157+

1158+

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

1160+--

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

1162+--

1163+-- * 'suarViewId'

1164+--

1165+-- * 'suarDateRange'

1166+--

1167+-- * 'suarUser'

1168+--

1169+-- * 'suarPageToken'

1170+--

1171+-- * 'suarPageSize'

1172+--

1173+-- * 'suarActivityTypes'

1174+searchUserActivityRequest

1175+ :: SearchUserActivityRequest

1176+searchUserActivityRequest =

1177+ SearchUserActivityRequest'

1178+ { _suarViewId = Nothing

1179+ , _suarDateRange = Nothing

1180+ , _suarUser = Nothing

1181+ , _suarPageToken = Nothing

1182+ , _suarPageSize = Nothing

1183+ , _suarActivityTypes = Nothing

1184+ }

1185+

1186+

1187+-- | Required. The Analytics [view

1188+-- ID](https:\/\/support.google.com\/analytics\/answer\/1009618) from which

1189+-- to retrieve data. Every

1190+-- [SearchUserActivityRequest](#SearchUserActivityRequest) must contain the

1191+-- \`viewId\`.

1192+suarViewId :: Lens' SearchUserActivityRequest (Maybe Text)

1193+suarViewId

1194+ = lens _suarViewId (\ s a -> s{_suarViewId = a})

1195+

1196+-- | Date range for which to retrieve the user activity. If a date range is

1197+-- not provided, the default date range is (startDate: current date - 7

1198+-- days, endDate: current date - 1 day).

1199+suarDateRange :: Lens' SearchUserActivityRequest (Maybe DateRange)

1200+suarDateRange

1201+ = lens _suarDateRange

1202+ (\ s a -> s{_suarDateRange = a})

1203+

1204+-- | Required. Unique user Id to query for. Every

1205+-- [SearchUserActivityRequest](#SearchUserActivityRequest) must contain

1206+-- this field.

1207+suarUser :: Lens' SearchUserActivityRequest (Maybe User)

1208+suarUser = lens _suarUser (\ s a -> s{_suarUser = a})

1209+

1210+-- | A continuation token to get the next page of the results. Adding this to

1211+-- the request will return the rows after the pageToken. The pageToken

1212+-- should be the value returned in the nextPageToken parameter in the

1213+-- response to the [SearchUserActivityRequest](#SearchUserActivityRequest)

1214+-- request.

1215+suarPageToken :: Lens' SearchUserActivityRequest (Maybe Text)

1216+suarPageToken

1217+ = lens _suarPageToken

1218+ (\ s a -> s{_suarPageToken = a})

1219+

1220+-- | Page size is for paging and specifies the maximum number of returned

1221+-- rows. Page size should be > 0. If the value is 0 or if the field isn\'t

1222+-- specified, the request returns the default of 1000 rows per page.

1223+suarPageSize :: Lens' SearchUserActivityRequest (Maybe Int32)

1224+suarPageSize

1225+ = lens _suarPageSize (\ s a -> s{_suarPageSize = a})

1226+ . mapping _Coerce

1227+

1228+-- | Set of all activity types being requested. Only acvities matching these

1229+-- types will be returned in the response. If empty, all activies will be

1230+-- returned.

1231+suarActivityTypes :: Lens' SearchUserActivityRequest [Text]

1232+suarActivityTypes

1233+ = lens _suarActivityTypes

1234+ (\ s a -> s{_suarActivityTypes = a})

1235+ . _Default

1236+ . _Coerce

1237+

1238+instance FromJSON SearchUserActivityRequest where

1239+ parseJSON

1240+ = withObject "SearchUserActivityRequest"

1241+ (\ o ->

1242+ SearchUserActivityRequest' <$>

1243+ (o .:? "viewId") <*> (o .:? "dateRange") <*>

1244+ (o .:? "user")

1245+ <*> (o .:? "pageToken")

1246+ <*> (o .:? "pageSize")

1247+ <*> (o .:? "activityTypes" .!= mempty))

1248+

1249+instance ToJSON SearchUserActivityRequest where

1250+ toJSON SearchUserActivityRequest'{..}

1251+ = object

1252+ (catMaybes

1253+ [("viewId" .=) <$> _suarViewId,

1254+ ("dateRange" .=) <$> _suarDateRange,

1255+ ("user" .=) <$> _suarUser,

1256+ ("pageToken" .=) <$> _suarPageToken,

1257+ ("pageSize" .=) <$> _suarPageSize,

1258+ ("activityTypes" .=) <$> _suarActivityTypes])

1259+

10191260-- | The headers for the metrics.

10201261--

10211262-- /See:/ 'metricHeader' smart constructor.

@@ -1254,6 +1495,53 @@ instance ToJSON Report where

12541495 ("data" .=) <$> _rData,

12551496 ("columnHeader" .=) <$> _rColumnHeader])

12561497

1498+-- | Represents details collected when the visitor views a page.

1499+--

1500+-- /See:/ 'pageviewData' smart constructor.

1501+data PageviewData =

1502+ PageviewData'

1503+ { _pdPageTitle :: !(Maybe Text)

1504+ , _pdPagePath :: !(Maybe Text)

1505+ }

1506+ deriving (Eq, Show, Data, Typeable, Generic)

1507+

1508+

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

1510+--

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

1512+--

1513+-- * 'pdPageTitle'

1514+--

1515+-- * 'pdPagePath'

1516+pageviewData

1517+ :: PageviewData

1518+pageviewData = PageviewData' {_pdPageTitle = Nothing, _pdPagePath = Nothing}

1519+

1520+

1521+-- | The title of the page that the visitor viewed.

1522+pdPageTitle :: Lens' PageviewData (Maybe Text)

1523+pdPageTitle

1524+ = lens _pdPageTitle (\ s a -> s{_pdPageTitle = a})

1525+

1526+-- | The URL of the page that the visitor viewed.

1527+pdPagePath :: Lens' PageviewData (Maybe Text)

1528+pdPagePath

1529+ = lens _pdPagePath (\ s a -> s{_pdPagePath = a})

1530+

1531+instance FromJSON PageviewData where

1532+ parseJSON

1533+ = withObject "PageviewData"

1534+ (\ o ->

1535+ PageviewData' <$>

1536+ (o .:? "pageTitle") <*> (o .:? "pagePath"))

1537+

1538+instance ToJSON PageviewData where

1539+ toJSON PageviewData'{..}

1540+ = object

1541+ (catMaybes

1542+ [("pageTitle" .=) <$> _pdPageTitle,

1543+ ("pagePath" .=) <$> _pdPagePath])

1544+

12571545-- | The data part of the report.

12581546--

12591547-- /See:/ 'reportData' smart constructor.

@@ -1631,6 +1919,50 @@ instance ToJSON SegmentDefinition where

16311919 (catMaybes

16321920 [("segmentFilters" .=) <$> _sdSegmentFilters])

16331921

1922+-- | Contains information to identify a particular user uniquely.

1923+--

1924+-- /See:/ 'user' smart constructor.

1925+data User =

1926+ User'

1927+ { _uUserId :: !(Maybe Text)

1928+ , _uType :: !(Maybe UserType)

1929+ }

1930+ deriving (Eq, Show, Data, Typeable, Generic)

1931+

1932+

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

1934+--

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

1936+--

1937+-- * 'uUserId'

1938+--

1939+-- * 'uType'

1940+user

1941+ :: User

1942+user = User' {_uUserId = Nothing, _uType = Nothing}

1943+

1944+

1945+-- | Unique Id of the user for which the data is being requested.

1946+uUserId :: Lens' User (Maybe Text)

1947+uUserId = lens _uUserId (\ s a -> s{_uUserId = a})

1948+

1949+-- | Type of the user in the request. The field \`userId\` is associated with

1950+-- this type.

1951+uType :: Lens' User (Maybe UserType)

1952+uType = lens _uType (\ s a -> s{_uType = a})

1953+

1954+instance FromJSON User where

1955+ parseJSON

1956+ = withObject "User"

1957+ (\ o ->

1958+ User' <$> (o .:? "userId") <*> (o .:? "type"))

1959+

1960+instance ToJSON User where

1961+ toJSON User'{..}

1962+ = object

1963+ (catMaybes

1964+ [("userId" .=) <$> _uUserId, ("type" .=) <$> _uType])

1965+

16341966-- | The Pivot describes the pivot section in the request. The Pivot helps

16351967-- rearrange the information in the table for certain reports by pivoting

16361968-- your data on a second dimension.

@@ -1749,6 +2081,89 @@ instance ToJSON Pivot where

17492081 ("dimensionFilterClauses" .=) <$>

17502082 _pDimensionFilterClauses])

17512083

2084+-- | Represents details collected when the visitor performs a transaction on

2085+-- the page.

2086+--

2087+-- /See:/ 'transactionData' smart constructor.

2088+data TransactionData =

2089+ TransactionData'

2090+ { _tdTransactionId :: !(Maybe Text)

2091+ , _tdTransactionTax :: !(Maybe (Textual Double))

2092+ , _tdTransactionShipping :: !(Maybe (Textual Double))

2093+ , _tdTransactionRevenue :: !(Maybe (Textual Double))

2094+ }

2095+ deriving (Eq, Show, Data, Typeable, Generic)

2096+

2097+

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

2099+--

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

2101+--

2102+-- * 'tdTransactionId'

2103+--

2104+-- * 'tdTransactionTax'

2105+--

2106+-- * 'tdTransactionShipping'

2107+--

2108+-- * 'tdTransactionRevenue'

2109+transactionData

2110+ :: TransactionData

2111+transactionData =

2112+ TransactionData'

2113+ { _tdTransactionId = Nothing

2114+ , _tdTransactionTax = Nothing

2115+ , _tdTransactionShipping = Nothing

2116+ , _tdTransactionRevenue = Nothing

2117+ }

2118+

2119+

2120+-- | The transaction ID, supplied by the e-commerce tracking method, for the

2121+-- purchase in the shopping cart.

2122+tdTransactionId :: Lens' TransactionData (Maybe Text)

2123+tdTransactionId

2124+ = lens _tdTransactionId

2125+ (\ s a -> s{_tdTransactionId = a})

2126+

2127+-- | Total tax for the transaction.

2128+tdTransactionTax :: Lens' TransactionData (Maybe Double)

2129+tdTransactionTax

2130+ = lens _tdTransactionTax

2131+ (\ s a -> s{_tdTransactionTax = a})

2132+ . mapping _Coerce

2133+

2134+-- | Total cost of shipping.

2135+tdTransactionShipping :: Lens' TransactionData (Maybe Double)

2136+tdTransactionShipping

2137+ = lens _tdTransactionShipping

2138+ (\ s a -> s{_tdTransactionShipping = a})

2139+ . mapping _Coerce

2140+

2141+-- | The total sale revenue (excluding shipping and tax) of the transaction.

2142+tdTransactionRevenue :: Lens' TransactionData (Maybe Double)

2143+tdTransactionRevenue

2144+ = lens _tdTransactionRevenue

2145+ (\ s a -> s{_tdTransactionRevenue = a})

2146+ . mapping _Coerce

2147+

2148+instance FromJSON TransactionData where

2149+ parseJSON

2150+ = withObject "TransactionData"

2151+ (\ o ->

2152+ TransactionData' <$>

2153+ (o .:? "transactionId") <*> (o .:? "transactionTax")

2154+ <*> (o .:? "transactionShipping")

2155+ <*> (o .:? "transactionRevenue"))

2156+

2157+instance ToJSON TransactionData where

2158+ toJSON TransactionData'{..}

2159+ = object

2160+ (catMaybes

2161+ [("transactionId" .=) <$> _tdTransactionId,

2162+ ("transactionTax" .=) <$> _tdTransactionTax,

2163+ ("transactionShipping" .=) <$>

2164+ _tdTransactionShipping,

2165+ ("transactionRevenue" .=) <$> _tdTransactionRevenue])

2166+

17522167-- | Sequence conditions consist of one or more steps, where each step is

17532168-- defined by one or more dimension\/metric conditions. Multiple steps can

17542169-- be combined with special sequence operators.

@@ -2038,6 +2453,462 @@ instance ToJSON GetReportsRequest where

20382453 [("useResourceQuotas" .=) <$> _grrUseResourceQuotas,

20392454 ("reportRequests" .=) <$> _grrReportRequests])

20402455

2456+-- | This represents a user session performed on a specific device at a

2457+-- certain time over a period of time.

2458+--

2459+-- /See:/ 'userActivitySession' smart constructor.

2460+data UserActivitySession =

2461+ UserActivitySession'

2462+ { _uasPlatform :: !(Maybe Text)

2463+ , _uasDeviceCategory :: !(Maybe Text)

2464+ , _uasActivities :: !(Maybe [Activity])

2465+ , _uasSessionDate :: !(Maybe Text)

2466+ , _uasDataSource :: !(Maybe Text)

2467+ , _uasSessionId :: !(Maybe Text)

2468+ }

2469+ deriving (Eq, Show, Data, Typeable, Generic)

2470+

2471+

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

2473+--

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

2475+--

2476+-- * 'uasPlatform'

2477+--

2478+-- * 'uasDeviceCategory'

2479+--

2480+-- * 'uasActivities'

2481+--

2482+-- * 'uasSessionDate'

2483+--

2484+-- * 'uasDataSource'

2485+--

2486+-- * 'uasSessionId'

2487+userActivitySession

2488+ :: UserActivitySession

2489+userActivitySession =

2490+ UserActivitySession'

2491+ { _uasPlatform = Nothing

2492+ , _uasDeviceCategory = Nothing

2493+ , _uasActivities = Nothing

2494+ , _uasSessionDate = Nothing

2495+ , _uasDataSource = Nothing

2496+ , _uasSessionId = Nothing

2497+ }

2498+

2499+

2500+-- | Platform on which the activity happened: \"android\", \"ios\" etc.

2501+uasPlatform :: Lens' UserActivitySession (Maybe Text)

2502+uasPlatform

2503+ = lens _uasPlatform (\ s a -> s{_uasPlatform = a})

2504+

2505+-- | The type of device used: \"mobile\", \"tablet\" etc.

2506+uasDeviceCategory :: Lens' UserActivitySession (Maybe Text)

2507+uasDeviceCategory

2508+ = lens _uasDeviceCategory

2509+ (\ s a -> s{_uasDeviceCategory = a})

2510+

2511+-- | Represents a detailed view into each of the activity in this session.

2512+uasActivities :: Lens' UserActivitySession [Activity]

2513+uasActivities

2514+ = lens _uasActivities

2515+ (\ s a -> s{_uasActivities = a})

2516+ . _Default

2517+ . _Coerce

2518+

2519+-- | Date of this session in ISO-8601 format.

2520+uasSessionDate :: Lens' UserActivitySession (Maybe Text)

2521+uasSessionDate

2522+ = lens _uasSessionDate

2523+ (\ s a -> s{_uasSessionDate = a})

2524+

2525+-- | The data source of a hit. By default, hits sent from analytics.js are

2526+-- reported as \"web\" and hits sent from the mobile SDKs are reported as

2527+-- \"app\". These values can be overridden in the Measurement Protocol.

2528+uasDataSource :: Lens' UserActivitySession (Maybe Text)

2529+uasDataSource

2530+ = lens _uasDataSource

2531+ (\ s a -> s{_uasDataSource = a})

2532+

2533+-- | Unique ID of the session.

2534+uasSessionId :: Lens' UserActivitySession (Maybe Text)

2535+uasSessionId

2536+ = lens _uasSessionId (\ s a -> s{_uasSessionId = a})

2537+

2538+instance FromJSON UserActivitySession where

2539+ parseJSON

2540+ = withObject "UserActivitySession"

2541+ (\ o ->

2542+ UserActivitySession' <$>

2543+ (o .:? "platform") <*> (o .:? "deviceCategory") <*>

2544+ (o .:? "activities" .!= mempty)

2545+ <*> (o .:? "sessionDate")

2546+ <*> (o .:? "dataSource")

2547+ <*> (o .:? "sessionId"))

2548+

2549+instance ToJSON UserActivitySession where

2550+ toJSON UserActivitySession'{..}

2551+ = object

2552+ (catMaybes

2553+ [("platform" .=) <$> _uasPlatform,

2554+ ("deviceCategory" .=) <$> _uasDeviceCategory,

2555+ ("activities" .=) <$> _uasActivities,

2556+ ("sessionDate" .=) <$> _uasSessionDate,

2557+ ("dataSource" .=) <$> _uasDataSource,

2558+ ("sessionId" .=) <$> _uasSessionId])

2559+

2560+-- | Represents all the details pertaining to a goal.

2561+--

2562+-- /See:/ 'goalData' smart constructor.

2563+data GoalData =

2564+ GoalData'

2565+ { _gdGoalPreviousStep2 :: !(Maybe Text)

2566+ , _gdGoalName :: !(Maybe Text)

2567+ , _gdGoalPreviousStep3 :: !(Maybe Text)

2568+ , _gdGoalIndex :: !(Maybe (Textual Int32))

2569+ , _gdGoalCompletionLocation :: !(Maybe Text)

2570+ , _gdGoalPreviousStep1 :: !(Maybe Text)

2571+ , _gdGoalCompletions :: !(Maybe (Textual Int64))

2572+ , _gdGoalValue :: !(Maybe (Textual Double))

2573+ }

2574+ deriving (Eq, Show, Data, Typeable, Generic)

2575+

2576+

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

2578+--

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

2580+--

2581+-- * 'gdGoalPreviousStep2'

2582+--

2583+-- * 'gdGoalName'

2584+--

2585+-- * 'gdGoalPreviousStep3'

2586+--

2587+-- * 'gdGoalIndex'

2588+--

2589+-- * 'gdGoalCompletionLocation'

2590+--

2591+-- * 'gdGoalPreviousStep1'

2592+--

2593+-- * 'gdGoalCompletions'

2594+--

2595+-- * 'gdGoalValue'

2596+goalData

2597+ :: GoalData

2598+goalData =

2599+ GoalData'

2600+ { _gdGoalPreviousStep2 = Nothing

2601+ , _gdGoalName = Nothing

2602+ , _gdGoalPreviousStep3 = Nothing

2603+ , _gdGoalIndex = Nothing

2604+ , _gdGoalCompletionLocation = Nothing

2605+ , _gdGoalPreviousStep1 = Nothing

2606+ , _gdGoalCompletions = Nothing

2607+ , _gdGoalValue = Nothing

2608+ }

2609+

2610+

2611+-- | URL of the page two steps prior to the goal completion.

2612+gdGoalPreviousStep2 :: Lens' GoalData (Maybe Text)

2613+gdGoalPreviousStep2

2614+ = lens _gdGoalPreviousStep2

2615+ (\ s a -> s{_gdGoalPreviousStep2 = a})

2616+

2617+-- | Name of the goal.

2618+gdGoalName :: Lens' GoalData (Maybe Text)

2619+gdGoalName

2620+ = lens _gdGoalName (\ s a -> s{_gdGoalName = a})

2621+

2622+-- | URL of the page three steps prior to the goal completion.

2623+gdGoalPreviousStep3 :: Lens' GoalData (Maybe Text)

2624+gdGoalPreviousStep3

2625+ = lens _gdGoalPreviousStep3

2626+ (\ s a -> s{_gdGoalPreviousStep3 = a})

2627+

2628+-- | This identifies the goal as configured for the profile.

2629+gdGoalIndex :: Lens' GoalData (Maybe Int32)

2630+gdGoalIndex

2631+ = lens _gdGoalIndex (\ s a -> s{_gdGoalIndex = a}) .

2632+ mapping _Coerce

2633+

2634+-- | URL of the page where this goal was completed.

2635+gdGoalCompletionLocation :: Lens' GoalData (Maybe Text)

2636+gdGoalCompletionLocation

2637+ = lens _gdGoalCompletionLocation

2638+ (\ s a -> s{_gdGoalCompletionLocation = a})

2639+

2640+-- | URL of the page one step prior to the goal completion.

2641+gdGoalPreviousStep1 :: Lens' GoalData (Maybe Text)

2642+gdGoalPreviousStep1

2643+ = lens _gdGoalPreviousStep1

2644+ (\ s a -> s{_gdGoalPreviousStep1 = a})

2645+

2646+-- | Total number of goal completions in this activity.

2647+gdGoalCompletions :: Lens' GoalData (Maybe Int64)

2648+gdGoalCompletions

2649+ = lens _gdGoalCompletions

2650+ (\ s a -> s{_gdGoalCompletions = a})

2651+ . mapping _Coerce

2652+

2653+-- | Value in this goal.

2654+gdGoalValue :: Lens' GoalData (Maybe Double)

2655+gdGoalValue

2656+ = lens _gdGoalValue (\ s a -> s{_gdGoalValue = a}) .

2657+ mapping _Coerce

2658+

2659+instance FromJSON GoalData where

2660+ parseJSON

2661+ = withObject "GoalData"

2662+ (\ o ->

2663+ GoalData' <$>

2664+ (o .:? "goalPreviousStep2") <*> (o .:? "goalName")

2665+ <*> (o .:? "goalPreviousStep3")

2666+ <*> (o .:? "goalIndex")

2667+ <*> (o .:? "goalCompletionLocation")

2668+ <*> (o .:? "goalPreviousStep1")

2669+ <*> (o .:? "goalCompletions")

2670+ <*> (o .:? "goalValue"))

2671+

2672+instance ToJSON GoalData where

2673+ toJSON GoalData'{..}

2674+ = object

2675+ (catMaybes

2676+ [("goalPreviousStep2" .=) <$> _gdGoalPreviousStep2,

2677+ ("goalName" .=) <$> _gdGoalName,

2678+ ("goalPreviousStep3" .=) <$> _gdGoalPreviousStep3,

2679+ ("goalIndex" .=) <$> _gdGoalIndex,

2680+ ("goalCompletionLocation" .=) <$>

2681+ _gdGoalCompletionLocation,

2682+ ("goalPreviousStep1" .=) <$> _gdGoalPreviousStep1,

2683+ ("goalCompletions" .=) <$> _gdGoalCompletions,

2684+ ("goalValue" .=) <$> _gdGoalValue])

2685+

2686+-- | An Activity represents data for an activity of a user. Note that an

2687+-- Activity is different from a hit. A hit might result in multiple

2688+-- Activity\'s. For example, if a hit includes a transaction and a goal

2689+-- completion, there will be two Activity protos for this hit, one for

2690+-- ECOMMERCE and one for GOAL. Conversely, multiple hits can also construct

2691+-- one Activity. In classic e-commerce, data for one transaction might be

2692+-- sent through multiple hits. These hits will be merged into one ECOMMERCE

2693+-- Activity.

2694+--

2695+-- /See:/ 'activity' smart constructor.

2696+data Activity =

2697+ Activity'

2698+ { _aEvent :: !(Maybe EventData)

2699+ , _aHostname :: !(Maybe Text)

2700+ , _aActivityType :: !(Maybe ActivityActivityType)

2701+ , _aMedium :: !(Maybe Text)

2702+ , _aPageview :: !(Maybe PageviewData)

2703+ , _aCampaign :: !(Maybe Text)

2704+ , _aGoals :: !(Maybe GoalSetData)

2705+ , _aChannelGrouping :: !(Maybe Text)

2706+ , _aAppview :: !(Maybe ScreenviewData)

2707+ , _aSource :: !(Maybe Text)

2708+ , _aActivityTime :: !(Maybe DateTime')

2709+ , _aEcommerce :: !(Maybe EcommerceData)

2710+ , _aCustomDimension :: !(Maybe [CustomDimension])

2711+ , _aKeyword :: !(Maybe Text)

2712+ , _aLandingPagePath :: !(Maybe Text)

2713+ }

2714+ deriving (Eq, Show, Data, Typeable, Generic)

2715+

2716+

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

2718+--

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

2720+--

2721+-- * 'aEvent'

2722+--

2723+-- * 'aHostname'

2724+--

2725+-- * 'aActivityType'

2726+--

2727+-- * 'aMedium'

2728+--

2729+-- * 'aPageview'

2730+--

2731+-- * 'aCampaign'

2732+--

2733+-- * 'aGoals'

2734+--

2735+-- * 'aChannelGrouping'

2736+--

2737+-- * 'aAppview'

2738+--

2739+-- * 'aSource'

2740+--

2741+-- * 'aActivityTime'

2742+--

2743+-- * 'aEcommerce'

2744+--

2745+-- * 'aCustomDimension'

2746+--

2747+-- * 'aKeyword'

2748+--

2749+-- * 'aLandingPagePath'

2750+activity

2751+ :: Activity

2752+activity =

2753+ Activity'

2754+ { _aEvent = Nothing

2755+ , _aHostname = Nothing

2756+ , _aActivityType = Nothing

2757+ , _aMedium = Nothing

2758+ , _aPageview = Nothing

2759+ , _aCampaign = Nothing

2760+ , _aGoals = Nothing

2761+ , _aChannelGrouping = Nothing

2762+ , _aAppview = Nothing

2763+ , _aSource = Nothing

2764+ , _aActivityTime = Nothing

2765+ , _aEcommerce = Nothing

2766+ , _aCustomDimension = Nothing

2767+ , _aKeyword = Nothing

2768+ , _aLandingPagePath = Nothing

2769+ }

2770+

2771+

2772+-- | This field contains all the details pertaining to an event and will be

2773+-- set if \`activity_type\` equals \`EVENT\`.

2774+aEvent :: Lens' Activity (Maybe EventData)

2775+aEvent = lens _aEvent (\ s a -> s{_aEvent = a})

2776+

2777+-- | The hostname from which the tracking request was made.

2778+aHostname :: Lens' Activity (Maybe Text)

2779+aHostname

2780+ = lens _aHostname (\ s a -> s{_aHostname = a})

2781+

2782+-- | Type of this activity.

2783+aActivityType :: Lens' Activity (Maybe ActivityActivityType)

2784+aActivityType

2785+ = lens _aActivityType

2786+ (\ s a -> s{_aActivityType = a})

2787+

2788+-- | The type of referrals. For manual campaign tracking, it is the value of

2789+-- the utm_medium campaign tracking parameter. For AdWords autotagging, it

2790+-- is cpc. If users came from a search engine detected by Google Analytics,

2791+-- it is organic. If the referrer is not a search engine, it is referral.

2792+-- If users came directly to the property and document.referrer is empty,

2793+-- its value is (none).

2794+aMedium :: Lens' Activity (Maybe Text)

2795+aMedium = lens _aMedium (\ s a -> s{_aMedium = a})

2796+

2797+-- | This will be set if \`activity_type\` equals \`PAGEVIEW\`. This field

2798+-- contains all the details about the visitor and the page that was

2799+-- visited.

2800+aPageview :: Lens' Activity (Maybe PageviewData)

2801+aPageview

2802+ = lens _aPageview (\ s a -> s{_aPageview = a})

2803+

2804+-- | For manual campaign tracking, it is the value of the utm_campaign

2805+-- campaign tracking parameter. For AdWords autotagging, it is the name(s)

2806+-- of the online ad campaign(s) you use for the property. If you use

2807+-- neither, its value is (not set).

2808+aCampaign :: Lens' Activity (Maybe Text)

2809+aCampaign

2810+ = lens _aCampaign (\ s a -> s{_aCampaign = a})

2811+

2812+-- | This field contains a list of all the goals that were reached in this

2813+-- activity when \`activity_type\` equals \`GOAL\`.

2814+aGoals :: Lens' Activity (Maybe GoalSetData)

2815+aGoals = lens _aGoals (\ s a -> s{_aGoals = a})

2816+

2817+-- | The Channel Group associated with an end user\'s session for this View

2818+-- (defined by the View\'s Channel Groupings).

2819+aChannelGrouping :: Lens' Activity (Maybe Text)

2820+aChannelGrouping

2821+ = lens _aChannelGrouping

2822+ (\ s a -> s{_aChannelGrouping = a})

2823+

2824+-- | This will be set if \`activity_type\` equals \`SCREEN_VIEW\`.

2825+aAppview :: Lens' Activity (Maybe ScreenviewData)

2826+aAppview = lens _aAppview (\ s a -> s{_aAppview = a})

2827+

2828+-- | The source of referrals. For manual campaign tracking, it is the value

2829+-- of the utm_source campaign tracking parameter. For AdWords autotagging,

2830+-- it is google. If you use neither, it is the domain of the source (e.g.,

2831+-- document.referrer) referring the users. It may also contain a port

2832+-- address. If users arrived without a referrer, its value is (direct).

2833+aSource :: Lens' Activity (Maybe Text)

2834+aSource = lens _aSource (\ s a -> s{_aSource = a})

2835+

2836+-- | Timestamp of the activity.

2837+aActivityTime :: Lens' Activity (Maybe UTCTime)

2838+aActivityTime

2839+ = lens _aActivityTime

2840+ (\ s a -> s{_aActivityTime = a})

2841+ . mapping _DateTime

2842+

2843+-- | This will be set if \`activity_type\` equals \`ECOMMERCE\`.

2844+aEcommerce :: Lens' Activity (Maybe EcommerceData)

2845+aEcommerce

2846+ = lens _aEcommerce (\ s a -> s{_aEcommerce = a})

2847+

2848+-- | A list of all custom dimensions associated with this activity.

2849+aCustomDimension :: Lens' Activity [CustomDimension]

2850+aCustomDimension

2851+ = lens _aCustomDimension

2852+ (\ s a -> s{_aCustomDimension = a})

2853+ . _Default

2854+ . _Coerce

2855+

2856+-- | For manual campaign tracking, it is the value of the utm_term campaign

2857+-- tracking parameter. For AdWords traffic, it contains the best matching

2858+-- targeting criteria. For the display network, where multiple targeting

2859+-- criteria could have caused the ad to show up, it returns the best

2860+-- matching targeting criteria as selected by Ads. This could be

2861+-- display_keyword, site placement, boomuserlist, user_interest, age, or

2862+-- gender. Otherwise its value is (not set).

2863+aKeyword :: Lens' Activity (Maybe Text)

2864+aKeyword = lens _aKeyword (\ s a -> s{_aKeyword = a})

2865+

2866+-- | The first page in users\' sessions, or the landing page.

2867+aLandingPagePath :: Lens' Activity (Maybe Text)

2868+aLandingPagePath

2869+ = lens _aLandingPagePath

2870+ (\ s a -> s{_aLandingPagePath = a})

2871+

2872+instance FromJSON Activity where

2873+ parseJSON

2874+ = withObject "Activity"

2875+ (\ o ->

2876+ Activity' <$>

2877+ (o .:? "event") <*> (o .:? "hostname") <*>

2878+ (o .:? "activityType")

2879+ <*> (o .:? "medium")

2880+ <*> (o .:? "pageview")

2881+ <*> (o .:? "campaign")

2882+ <*> (o .:? "goals")

2883+ <*> (o .:? "channelGrouping")

2884+ <*> (o .:? "appview")

2885+ <*> (o .:? "source")

2886+ <*> (o .:? "activityTime")

2887+ <*> (o .:? "ecommerce")

2888+ <*> (o .:? "customDimension" .!= mempty)

2889+ <*> (o .:? "keyword")

2890+ <*> (o .:? "landingPagePath"))

2891+

2892+instance ToJSON Activity where

2893+ toJSON Activity'{..}

2894+ = object

2895+ (catMaybes

2896+ [("event" .=) <$> _aEvent,

2897+ ("hostname" .=) <$> _aHostname,

2898+ ("activityType" .=) <$> _aActivityType,

2899+ ("medium" .=) <$> _aMedium,

2900+ ("pageview" .=) <$> _aPageview,

2901+ ("campaign" .=) <$> _aCampaign,

2902+ ("goals" .=) <$> _aGoals,

2903+ ("channelGrouping" .=) <$> _aChannelGrouping,

2904+ ("appview" .=) <$> _aAppview,

2905+ ("source" .=) <$> _aSource,

2906+ ("activityTime" .=) <$> _aActivityTime,

2907+ ("ecommerce" .=) <$> _aEcommerce,

2908+ ("customDimension" .=) <$> _aCustomDimension,

2909+ ("keyword" .=) <$> _aKeyword,

2910+ ("landingPagePath" .=) <$> _aLandingPagePath])

2911+

20412912-- | Defines a cohort. A cohort is a group of users who share a common

20422913-- characteristic. For example, all users with the same acquisition date

20432914-- belong to the same cohort.

@@ -2106,6 +2977,83 @@ instance ToJSON Cohort where

21062977 [("dateRange" .=) <$> _cDateRange,

21072978 ("name" .=) <$> _cName, ("type" .=) <$> _cType])

21082979

2980+-- | E-commerce details associated with the user activity.

2981+--

2982+-- /See:/ 'ecommerceData' smart constructor.

2983+data EcommerceData =

2984+ EcommerceData'

2985+ { _edEcommerceType :: !(Maybe EcommerceDataEcommerceType)

2986+ , _edTransaction :: !(Maybe TransactionData)

2987+ , _edProducts :: !(Maybe [ProductData])

2988+ , _edActionType :: !(Maybe EcommerceDataActionType)

2989+ }

2990+ deriving (Eq, Show, Data, Typeable, Generic)

2991+

2992+

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

2994+--

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

2996+--

2997+-- * 'edEcommerceType'

2998+--

2999+-- * 'edTransaction'

3000+--

3001+-- * 'edProducts'

3002+--

3003+-- * 'edActionType'

3004+ecommerceData

3005+ :: EcommerceData

3006+ecommerceData =

3007+ EcommerceData'

3008+ { _edEcommerceType = Nothing

3009+ , _edTransaction = Nothing

3010+ , _edProducts = Nothing

3011+ , _edActionType = Nothing

3012+ }

3013+

3014+

3015+-- | The type of this e-commerce activity.

3016+edEcommerceType :: Lens' EcommerceData (Maybe EcommerceDataEcommerceType)

3017+edEcommerceType

3018+ = lens _edEcommerceType

3019+ (\ s a -> s{_edEcommerceType = a})

3020+

3021+-- | Transaction details of this e-commerce action.

3022+edTransaction :: Lens' EcommerceData (Maybe TransactionData)

3023+edTransaction

3024+ = lens _edTransaction

3025+ (\ s a -> s{_edTransaction = a})

3026+

3027+-- | Details of the products in this transaction.

3028+edProducts :: Lens' EcommerceData [ProductData]

3029+edProducts

3030+ = lens _edProducts (\ s a -> s{_edProducts = a}) .

3031+ _Default

3032+ . _Coerce

3033+

3034+-- | Action associated with this e-commerce action.

3035+edActionType :: Lens' EcommerceData (Maybe EcommerceDataActionType)

3036+edActionType

3037+ = lens _edActionType (\ s a -> s{_edActionType = a})

3038+

3039+instance FromJSON EcommerceData where

3040+ parseJSON

3041+ = withObject "EcommerceData"

3042+ (\ o ->

3043+ EcommerceData' <$>

3044+ (o .:? "ecommerceType") <*> (o .:? "transaction") <*>

3045+ (o .:? "products" .!= mempty)

3046+ <*> (o .:? "actionType"))

3047+

3048+instance ToJSON EcommerceData where

3049+ toJSON EcommerceData'{..}

3050+ = object

3051+ (catMaybes

3052+ [("ecommerceType" .=) <$> _edEcommerceType,

3053+ ("transaction" .=) <$> _edTransaction,

3054+ ("products" .=) <$> _edProducts,

3055+ ("actionType" .=) <$> _edActionType])

3056+

21093057-- | Dimension filter specifies the filtering options on a dimension.

21103058--

21113059-- /See:/ 'dimensionFilter' smart constructor.

@@ -2269,6 +3217,54 @@ instance ToJSON GetReportsResponse where

22693217 _grrResourceQuotasRemaining,

22703218 ("queryCost" .=) <$> _grrQueryCost])

22713219

3220+-- | Custom dimension.

3221+--

3222+-- /See:/ 'customDimension' smart constructor.

3223+data CustomDimension =

3224+ CustomDimension'

3225+ { _cdValue :: !(Maybe Text)

3226+ , _cdIndex :: !(Maybe (Textual Int32))

3227+ }

3228+ deriving (Eq, Show, Data, Typeable, Generic)

3229+

3230+

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

3232+--

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

3234+--

3235+-- * 'cdValue'

3236+--

3237+-- * 'cdIndex'

3238+customDimension

3239+ :: CustomDimension

3240+customDimension = CustomDimension' {_cdValue = Nothing, _cdIndex = Nothing}

3241+

3242+

3243+-- | Value of the custom dimension. Default value (i.e. empty string)

3244+-- indicates clearing sesion\/visitor scope custom dimension value.

3245+cdValue :: Lens' CustomDimension (Maybe Text)

3246+cdValue = lens _cdValue (\ s a -> s{_cdValue = a})

3247+

3248+-- | Slot number of custom dimension.

3249+cdIndex :: Lens' CustomDimension (Maybe Int32)

3250+cdIndex

3251+ = lens _cdIndex (\ s a -> s{_cdIndex = a}) .

3252+ mapping _Coerce

3253+

3254+instance FromJSON CustomDimension where

3255+ parseJSON

3256+ = withObject "CustomDimension"

3257+ (\ o ->

3258+ CustomDimension' <$>

3259+ (o .:? "value") <*> (o .:? "index"))

3260+

3261+instance ToJSON CustomDimension where

3262+ toJSON CustomDimension'{..}

3263+ = object

3264+ (catMaybes

3265+ [("value" .=) <$> _cdValue,

3266+ ("index" .=) <$> _cdIndex])

3267+

22723268-- | The segment definition, if the report needs to be segmented. A Segment

22733269-- is a subset of the Analytics data. For example, of the entire set of

22743270-- users, one Segment might be users from a particular country or city.

@@ -2320,6 +3316,85 @@ instance ToJSON Segment where

23203316 [("dynamicSegment" .=) <$> _sDynamicSegment,

23213317 ("segmentId" .=) <$> _sSegmentId])

23223318

3319+-- | Details of the products in an e-commerce transaction.

3320+--

3321+-- /See:/ 'productData' smart constructor.

3322+data ProductData =

3323+ ProductData'

3324+ { _pdProductName :: !(Maybe Text)

3325+ , _pdProductSKU :: !(Maybe Text)

3326+ , _pdItemRevenue :: !(Maybe (Textual Double))

3327+ , _pdProductQuantity :: !(Maybe (Textual Int64))

3328+ }

3329+ deriving (Eq, Show, Data, Typeable, Generic)

3330+

3331+

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

3333+--

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

3335+--

3336+-- * 'pdProductName'

3337+--

3338+-- * 'pdProductSKU'

3339+--

3340+-- * 'pdItemRevenue'

3341+--

3342+-- * 'pdProductQuantity'

3343+productData

3344+ :: ProductData

3345+productData =

3346+ ProductData'

3347+ { _pdProductName = Nothing

3348+ , _pdProductSKU = Nothing

3349+ , _pdItemRevenue = Nothing

3350+ , _pdProductQuantity = Nothing

3351+ }

3352+

3353+

3354+-- | The product name, supplied by the e-commerce tracking application, for

3355+-- the purchased items.

3356+pdProductName :: Lens' ProductData (Maybe Text)

3357+pdProductName

3358+ = lens _pdProductName

3359+ (\ s a -> s{_pdProductName = a})

3360+

3361+-- | Unique code that represents the product.

3362+pdProductSKU :: Lens' ProductData (Maybe Text)

3363+pdProductSKU

3364+ = lens _pdProductSKU (\ s a -> s{_pdProductSKU = a})

3365+

3366+-- | The total revenue from purchased product items.

3367+pdItemRevenue :: Lens' ProductData (Maybe Double)

3368+pdItemRevenue

3369+ = lens _pdItemRevenue

3370+ (\ s a -> s{_pdItemRevenue = a})

3371+ . mapping _Coerce

3372+

3373+-- | Total number of this product units in the transaction.

3374+pdProductQuantity :: Lens' ProductData (Maybe Int64)

3375+pdProductQuantity

3376+ = lens _pdProductQuantity

3377+ (\ s a -> s{_pdProductQuantity = a})

3378+ . mapping _Coerce

3379+

3380+instance FromJSON ProductData where

3381+ parseJSON

3382+ = withObject "ProductData"

3383+ (\ o ->

3384+ ProductData' <$>

3385+ (o .:? "productName") <*> (o .:? "productSku") <*>

3386+ (o .:? "itemRevenue")

3387+ <*> (o .:? "productQuantity"))

3388+

3389+instance ToJSON ProductData where

3390+ toJSON ProductData'{..}

3391+ = object

3392+ (catMaybes

3393+ [("productName" .=) <$> _pdProductName,

3394+ ("productSku" .=) <$> _pdProductSKU,

3395+ ("itemRevenue" .=) <$> _pdItemRevenue,

3396+ ("productQuantity" .=) <$> _pdProductQuantity])

3397+

23233398-- | The resource quota tokens remaining for the property after the request

23243399-- is completed.

23253400--

@@ -2647,3 +3722,165 @@ instance ToJSON ColumnHeader where

26473722 (catMaybes

26483723 [("metricHeader" .=) <$> _chMetricHeader,

26493724 ("dimensions" .=) <$> _chDimensions])

3725+

3726+-- | The response from \`userActivity:get\` call.

3727+--

3728+-- /See:/ 'searchUserActivityResponse' smart constructor.

3729+data SearchUserActivityResponse =

3730+ SearchUserActivityResponse'

3731+ { _suarNextPageToken :: !(Maybe Text)

3732+ , _suarSampleRate :: !(Maybe (Textual Double))

3733+ , _suarSessions :: !(Maybe [UserActivitySession])

3734+ , _suarTotalRows :: !(Maybe (Textual Int32))

3735+ }

3736+ deriving (Eq, Show, Data, Typeable, Generic)

3737+

3738+

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

3740+--

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

3742+--

3743+-- * 'suarNextPageToken'

3744+--

3745+-- * 'suarSampleRate'

3746+--

3747+-- * 'suarSessions'

3748+--

3749+-- * 'suarTotalRows'

3750+searchUserActivityResponse

3751+ :: SearchUserActivityResponse

3752+searchUserActivityResponse =

3753+ SearchUserActivityResponse'

3754+ { _suarNextPageToken = Nothing

3755+ , _suarSampleRate = Nothing

3756+ , _suarSessions = Nothing

3757+ , _suarTotalRows = Nothing

3758+ }

3759+

3760+

3761+-- | This token should be passed to

3762+-- [SearchUserActivityRequest](#SearchUserActivityRequest) to retrieve the

3763+-- next page.

3764+suarNextPageToken :: Lens' SearchUserActivityResponse (Maybe Text)

3765+suarNextPageToken

3766+ = lens _suarNextPageToken

3767+ (\ s a -> s{_suarNextPageToken = a})

3768+

3769+-- | This field represents the [sampling

3770+-- rate](https:\/\/support.google.com\/analytics\/answer\/2637192) for the

3771+-- given request and is a number between 0.0 to 1.0. See [developer

3772+-- guide](\/analytics\/devguides\/reporting\/core\/v4\/basics#sampling) for

3773+-- details.

3774+suarSampleRate :: Lens' SearchUserActivityResponse (Maybe Double)

3775+suarSampleRate

3776+ = lens _suarSampleRate

3777+ (\ s a -> s{_suarSampleRate = a})

3778+ . mapping _Coerce

3779+

3780+-- | Each record represents a session (device details, duration, etc).

3781+suarSessions :: Lens' SearchUserActivityResponse [UserActivitySession]

3782+suarSessions

3783+ = lens _suarSessions (\ s a -> s{_suarSessions = a})

3784+ . _Default

3785+ . _Coerce

3786+

3787+-- | Total rows returned by this query (across different pages).

3788+suarTotalRows :: Lens' SearchUserActivityResponse (Maybe Int32)

3789+suarTotalRows

3790+ = lens _suarTotalRows

3791+ (\ s a -> s{_suarTotalRows = a})

3792+ . mapping _Coerce

3793+

3794+instance FromJSON SearchUserActivityResponse where

3795+ parseJSON

3796+ = withObject "SearchUserActivityResponse"

3797+ (\ o ->

3798+ SearchUserActivityResponse' <$>

3799+ (o .:? "nextPageToken") <*> (o .:? "sampleRate") <*>

3800+ (o .:? "sessions" .!= mempty)

3801+ <*> (o .:? "totalRows"))

3802+

3803+instance ToJSON SearchUserActivityResponse where

3804+ toJSON SearchUserActivityResponse'{..}

3805+ = object

3806+ (catMaybes

3807+ [("nextPageToken" .=) <$> _suarNextPageToken,

3808+ ("sampleRate" .=) <$> _suarSampleRate,

3809+ ("sessions" .=) <$> _suarSessions,

3810+ ("totalRows" .=) <$> _suarTotalRows])

3811+

3812+--

3813+-- /See:/ 'screenviewData' smart constructor.

3814+data ScreenviewData =

3815+ ScreenviewData'

3816+ { _sdMobileDeviceModel :: !(Maybe Text)

3817+ , _sdMobileDeviceBranding :: !(Maybe Text)

3818+ , _sdAppName :: !(Maybe Text)

3819+ , _sdScreenName :: !(Maybe Text)

3820+ }

3821+ deriving (Eq, Show, Data, Typeable, Generic)

3822+

3823+

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

3825+--

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

3827+--

3828+-- * 'sdMobileDeviceModel'

3829+--

3830+-- * 'sdMobileDeviceBranding'

3831+--

3832+-- * 'sdAppName'

3833+--

3834+-- * 'sdScreenName'

3835+screenviewData

3836+ :: ScreenviewData

3837+screenviewData =

3838+ ScreenviewData'

3839+ { _sdMobileDeviceModel = Nothing

3840+ , _sdMobileDeviceBranding = Nothing

3841+ , _sdAppName = Nothing

3842+ , _sdScreenName = Nothing

3843+ }

3844+

3845+

3846+-- | Mobile device model. Eg: \"Pixel\", \"iPhone\" etc.

3847+sdMobileDeviceModel :: Lens' ScreenviewData (Maybe Text)

3848+sdMobileDeviceModel

3849+ = lens _sdMobileDeviceModel

3850+ (\ s a -> s{_sdMobileDeviceModel = a})

3851+

3852+-- | Mobile manufacturer or branded name. Eg: \"Google\", \"Apple\" etc.

3853+sdMobileDeviceBranding :: Lens' ScreenviewData (Maybe Text)

3854+sdMobileDeviceBranding

3855+ = lens _sdMobileDeviceBranding

3856+ (\ s a -> s{_sdMobileDeviceBranding = a})

3857+

3858+-- | The application name.

3859+sdAppName :: Lens' ScreenviewData (Maybe Text)

3860+sdAppName

3861+ = lens _sdAppName (\ s a -> s{_sdAppName = a})

3862+

3863+-- | The name of the screen.

3864+sdScreenName :: Lens' ScreenviewData (Maybe Text)

3865+sdScreenName

3866+ = lens _sdScreenName (\ s a -> s{_sdScreenName = a})

3867+

3868+instance FromJSON ScreenviewData where

3869+ parseJSON

3870+ = withObject "ScreenviewData"

3871+ (\ o ->

3872+ ScreenviewData' <$>

3873+ (o .:? "mobileDeviceModel") <*>

3874+ (o .:? "mobileDeviceBranding")

3875+ <*> (o .:? "appName")

3876+ <*> (o .:? "screenName"))

3877+

3878+instance ToJSON ScreenviewData where

3879+ toJSON ScreenviewData'{..}

3880+ = object

3881+ (catMaybes

3882+ [("mobileDeviceModel" .=) <$> _sdMobileDeviceModel,

3883+ ("mobileDeviceBranding" .=) <$>

3884+ _sdMobileDeviceBranding,

3885+ ("appName" .=) <$> _sdAppName,

3886+ ("screenName" .=) <$> _sdScreenName])

gogol-analyticsreporting/gen/Network/Google/AnalyticsReporting/Types/Sum.hs+201−15

@@ -190,6 +190,70 @@ instance FromJSON OrderByOrderType where

190190instance ToJSON OrderByOrderType where

191191 toJSON = toJSONText

192192

193+-- | Action associated with this e-commerce action.

194+data EcommerceDataActionType

195+ = Unknown

196+ -- ^ @UNKNOWN@

197+ -- Action type is not known.

198+ | Click

199+ -- ^ @CLICK@

200+ -- Click through of product lists.

201+ | DetailsView

202+ -- ^ @DETAILS_VIEW@

203+ -- Product detail views.

204+ | AddToCart

205+ -- ^ @ADD_TO_CART@

206+ -- Add product(s) to cart.

207+ | RemoveFromCart

208+ -- ^ @REMOVE_FROM_CART@

209+ -- Remove product(s) from cart.

210+ | Checkout

211+ -- ^ @CHECKOUT@

212+ -- Check out.

213+ | Payment

214+ -- ^ @PAYMENT@

215+ -- Completed purchase.

216+ | Refund

217+ -- ^ @REFUND@

218+ -- Refund of purchase.

219+ | CheckoutOption

220+ -- ^ @CHECKOUT_OPTION@

221+ -- Checkout options.

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

223+

224+instance Hashable EcommerceDataActionType

225+

226+instance FromHttpApiData EcommerceDataActionType where

227+ parseQueryParam = \case

228+ "UNKNOWN" -> Right Unknown

229+ "CLICK" -> Right Click

230+ "DETAILS_VIEW" -> Right DetailsView

231+ "ADD_TO_CART" -> Right AddToCart

232+ "REMOVE_FROM_CART" -> Right RemoveFromCart

233+ "CHECKOUT" -> Right Checkout

234+ "PAYMENT" -> Right Payment

235+ "REFUND" -> Right Refund

236+ "CHECKOUT_OPTION" -> Right CheckoutOption

237+ x -> Left ("Unable to parse EcommerceDataActionType from: " <> x)

238+

239+instance ToHttpApiData EcommerceDataActionType where

240+ toQueryParam = \case

241+ Unknown -> "UNKNOWN"

242+ Click -> "CLICK"

243+ DetailsView -> "DETAILS_VIEW"

244+ AddToCart -> "ADD_TO_CART"

245+ RemoveFromCart -> "REMOVE_FROM_CART"

246+ Checkout -> "CHECKOUT"

247+ Payment -> "PAYMENT"

248+ Refund -> "REFUND"

249+ CheckoutOption -> "CHECKOUT_OPTION"

250+

251+instance FromJSON EcommerceDataActionType where

252+ parseJSON = parseJSONText "EcommerceDataActionType"

253+

254+instance ToJSON EcommerceDataActionType where

255+ toJSON = toJSONText

256+

193257-- | The sorting order for the field.

194258data OrderBySortOrder

195259 = SortOrderUnspecified

@@ -437,21 +501,21 @@ instance ToJSON SegmentSequenceStepMatchType where

437501-- scope as defined in the data model. The primary scope is defined by if

438502-- the segment is selecting users or sessions.

439503data SegmentMetricFilterScope

440− = UnspecifiedScope

504+ = SMFSUnspecifiedScope

441505 -- ^ @UNSPECIFIED_SCOPE@

442506 -- If the scope is unspecified, it defaults to the condition scope,

443507 -- \`USER\` or \`SESSION\` depending on if the segment is trying to choose

444508 -- users or sessions.

445− | Product

509+ | SMFSProduct

446510 -- ^ @PRODUCT@

447511 -- Product scope.

448− | Hit

512+ | SMFSHit

449513 -- ^ @HIT@

450514 -- Hit scope.

451− | Session

515+ | SMFSSession

452516 -- ^ @SESSION@

453517 -- Session scope.

454− | User

518+ | SMFSUser

455519 -- ^ @USER@

456520 -- User scope.

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

@@ -460,20 +524,20 @@ instance Hashable SegmentMetricFilterScope

460524

461525instance FromHttpApiData SegmentMetricFilterScope where

462526 parseQueryParam = \case

463− "UNSPECIFIED_SCOPE" -> Right UnspecifiedScope

464− "PRODUCT" -> Right Product

465− "HIT" -> Right Hit

466− "SESSION" -> Right Session

467− "USER" -> Right User

527+ "UNSPECIFIED_SCOPE" -> Right SMFSUnspecifiedScope

528+ "PRODUCT" -> Right SMFSProduct

529+ "HIT" -> Right SMFSHit

530+ "SESSION" -> Right SMFSSession

531+ "USER" -> Right SMFSUser

468532 x -> Left ("Unable to parse SegmentMetricFilterScope from: " <> x)

469533

470534instance ToHttpApiData SegmentMetricFilterScope where

471535 toQueryParam = \case

472− UnspecifiedScope -> "UNSPECIFIED_SCOPE"

473− Product -> "PRODUCT"

474− Hit -> "HIT"

475− Session -> "SESSION"

476− User -> "USER"

536+ SMFSUnspecifiedScope -> "UNSPECIFIED_SCOPE"

537+ SMFSProduct -> "PRODUCT"

538+ SMFSHit -> "HIT"

539+ SMFSSession -> "SESSION"

540+ SMFSUser -> "USER"

477541

478542instance FromJSON SegmentMetricFilterScope where

479543 parseJSON = parseJSONText "SegmentMetricFilterScope"

@@ -481,6 +545,40 @@ instance FromJSON SegmentMetricFilterScope where

481545instance ToJSON SegmentMetricFilterScope where

482546 toJSON = toJSONText

483547

548+-- | The type of this e-commerce activity.

549+data EcommerceDataEcommerceType

550+ = EcommerceTypeUnspecified

551+ -- ^ @ECOMMERCE_TYPE_UNSPECIFIED@

552+ -- Used when the e-commerce activity type is unspecified.

553+ | Classic

554+ -- ^ @CLASSIC@

555+ -- Used when activity has classic (non-enhanced) e-commerce information.

556+ | Enhanced

557+ -- ^ @ENHANCED@

558+ -- Used when activity has enhanced e-commerce information.

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

560+

561+instance Hashable EcommerceDataEcommerceType

562+

563+instance FromHttpApiData EcommerceDataEcommerceType where

564+ parseQueryParam = \case

565+ "ECOMMERCE_TYPE_UNSPECIFIED" -> Right EcommerceTypeUnspecified

566+ "CLASSIC" -> Right Classic

567+ "ENHANCED" -> Right Enhanced

568+ x -> Left ("Unable to parse EcommerceDataEcommerceType from: " <> x)

569+

570+instance ToHttpApiData EcommerceDataEcommerceType where

571+ toQueryParam = \case

572+ EcommerceTypeUnspecified -> "ECOMMERCE_TYPE_UNSPECIFIED"

573+ Classic -> "CLASSIC"

574+ Enhanced -> "ENHANCED"

575+

576+instance FromJSON EcommerceDataEcommerceType where

577+ parseJSON = parseJSONText "EcommerceDataEcommerceType"

578+

579+instance ToJSON EcommerceDataEcommerceType where

580+ toJSON = toJSONText

581+

484582-- | How to match the dimension to the expression. The default is REGEXP.

485583data DimensionFilterOperator

486584 = DFOOperatorUnspecified

@@ -563,6 +661,57 @@ instance FromJSON DimensionFilterOperator where

563661instance ToJSON DimensionFilterOperator where

564662 toJSON = toJSONText

565663

664+-- | Type of this activity.

665+data ActivityActivityType

666+ = ActivityTypeUnspecified

667+ -- ^ @ACTIVITY_TYPE_UNSPECIFIED@

668+ -- ActivityType will never have this value in the response. Using this type

669+ -- in the request will result in an error.

670+ | Pageview

671+ -- ^ @PAGEVIEW@

672+ -- Used when the activity resulted out of a visitor viewing a page.

673+ | Screenview

674+ -- ^ @SCREENVIEW@

675+ -- Used when the activity resulted out of a visitor using an application on

676+ -- a mobile device.

677+ | Goal

678+ -- ^ @GOAL@

679+ -- Used to denote that a goal type activity.

680+ | Ecommerce

681+ -- ^ @ECOMMERCE@

682+ -- An e-commerce transaction was performed by the visitor on the page.

683+ | Event

684+ -- ^ @EVENT@

685+ -- Used when the activity is an event.

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

687+

688+instance Hashable ActivityActivityType

689+

690+instance FromHttpApiData ActivityActivityType where

691+ parseQueryParam = \case

692+ "ACTIVITY_TYPE_UNSPECIFIED" -> Right ActivityTypeUnspecified

693+ "PAGEVIEW" -> Right Pageview

694+ "SCREENVIEW" -> Right Screenview

695+ "GOAL" -> Right Goal

696+ "ECOMMERCE" -> Right Ecommerce

697+ "EVENT" -> Right Event

698+ x -> Left ("Unable to parse ActivityActivityType from: " <> x)

699+

700+instance ToHttpApiData ActivityActivityType where

701+ toQueryParam = \case

702+ ActivityTypeUnspecified -> "ACTIVITY_TYPE_UNSPECIFIED"

703+ Pageview -> "PAGEVIEW"

704+ Screenview -> "SCREENVIEW"

705+ Goal -> "GOAL"

706+ Ecommerce -> "ECOMMERCE"

707+ Event -> "EVENT"

708+

709+instance FromJSON ActivityActivityType where

710+ parseJSON = parseJSONText "ActivityActivityType"

711+

712+instance ToJSON ActivityActivityType where

713+ toJSON = toJSONText

714+

566715-- | Specifies how the metric expression should be formatted, for example

567716-- \`INTEGER\`.

568717data MetricFormattingType

@@ -729,3 +878,40 @@ instance FromJSON MetricFilterClauseOperator where

729878

730879instance ToJSON MetricFilterClauseOperator where

731880 toJSON = toJSONText

881+

882+-- | Type of the user in the request. The field \`userId\` is associated with

883+-- this type.

884+data UserType

885+ = UserIdTypeUnspecified

886+ -- ^ @USER_ID_TYPE_UNSPECIFIED@

887+ -- When the User Id Type is not specified, the default type used will be

888+ -- CLIENT_ID.

889+ | UserIdTypeUserId

890+ -- ^ @USER_ID_TYPE_USER_ID@

891+ -- A single user, like a signed-in user account, that may interact with

892+ -- content across one or more devices and \/ or browser instances.

893+ | UserIdTypeClientId

894+ -- ^ @USER_ID_TYPE_CLIENT_ID@

895+ -- Analytics assigned client_id.

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

897+

898+instance Hashable UserType

899+

900+instance FromHttpApiData UserType where

901+ parseQueryParam = \case

902+ "USER_ID_TYPE_UNSPECIFIED" -> Right UserIdTypeUnspecified

903+ "USER_ID_TYPE_USER_ID" -> Right UserIdTypeUserId

904+ "USER_ID_TYPE_CLIENT_ID" -> Right UserIdTypeClientId

905+ x -> Left ("Unable to parse UserType from: " <> x)

906+

907+instance ToHttpApiData UserType where

908+ toQueryParam = \case

909+ UserIdTypeUnspecified -> "USER_ID_TYPE_UNSPECIFIED"

910+ UserIdTypeUserId -> "USER_ID_TYPE_USER_ID"

911+ UserIdTypeClientId -> "USER_ID_TYPE_CLIENT_ID"

912+

913+instance FromJSON UserType where

914+ parseJSON = parseJSONText "UserType"

915+

916+instance ToJSON UserType where

917+ toJSON = toJSONText

gogol-analyticsreporting/gen/Network/Google/Resource/AnalyticsReporting/UserActivity/Search.hsnew file+153

@@ -0,0 +1,153 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AnalyticsReporting.UserActivity.Search

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Returns User Activity data.

24+--

25+-- /See:/ <https://developers.google.com/analytics/devguides/reporting/core/v4/ Analytics Reporting API Reference> for @analyticsreporting.userActivity.search@.

26+module Network.Google.Resource.AnalyticsReporting.UserActivity.Search

27+ (

28+ -- * REST Resource

29+ UserActivitySearchResource

30+

31+ -- * Creating a Request

32+ , userActivitySearch

33+ , UserActivitySearch

34+

35+ -- * Request Lenses

36+ , uasXgafv

37+ , uasUploadProtocol

38+ , uasAccessToken

39+ , uasUploadType

40+ , uasPayload

41+ , uasCallback

42+ ) where

43+

44+import Network.Google.AnalyticsReporting.Types

45+import Network.Google.Prelude

46+

47+-- | A resource alias for @analyticsreporting.userActivity.search@ method which the

48+-- 'UserActivitySearch' request conforms to.

49+type UserActivitySearchResource =

50+ "v4" :>

51+ "userActivity:search" :>

52+ QueryParam "$.xgafv" Xgafv :>

53+ QueryParam "upload_protocol" Text :>

54+ QueryParam "access_token" Text :>

55+ QueryParam "uploadType" Text :>

56+ QueryParam "callback" Text :>

57+ QueryParam "alt" AltJSON :>

58+ ReqBody '[JSON] SearchUserActivityRequest :>

59+ Post '[JSON] SearchUserActivityResponse

60+

61+-- | Returns User Activity data.

62+--

63+-- /See:/ 'userActivitySearch' smart constructor.

64+data UserActivitySearch =

65+ UserActivitySearch'

66+ { _uasXgafv :: !(Maybe Xgafv)

67+ , _uasUploadProtocol :: !(Maybe Text)

68+ , _uasAccessToken :: !(Maybe Text)

69+ , _uasUploadType :: !(Maybe Text)

70+ , _uasPayload :: !SearchUserActivityRequest

71+ , _uasCallback :: !(Maybe Text)

72+ }

73+ deriving (Eq, Show, Data, Typeable, Generic)

74+

75+

76+-- | Creates a value of 'UserActivitySearch' 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+-- * 'uasXgafv'

81+--

82+-- * 'uasUploadProtocol'

83+--

84+-- * 'uasAccessToken'

85+--

86+-- * 'uasUploadType'

87+--

88+-- * 'uasPayload'

89+--

90+-- * 'uasCallback'

91+userActivitySearch

92+ :: SearchUserActivityRequest -- ^ 'uasPayload'

93+ -> UserActivitySearch

94+userActivitySearch pUasPayload_ =

95+ UserActivitySearch'

96+ { _uasXgafv = Nothing

97+ , _uasUploadProtocol = Nothing

98+ , _uasAccessToken = Nothing

99+ , _uasUploadType = Nothing

100+ , _uasPayload = pUasPayload_

101+ , _uasCallback = Nothing

102+ }

103+

104+

105+-- | V1 error format.

106+uasXgafv :: Lens' UserActivitySearch (Maybe Xgafv)

107+uasXgafv = lens _uasXgafv (\ s a -> s{_uasXgafv = a})

108+

109+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

110+uasUploadProtocol :: Lens' UserActivitySearch (Maybe Text)

111+uasUploadProtocol

112+ = lens _uasUploadProtocol

113+ (\ s a -> s{_uasUploadProtocol = a})

114+

115+-- | OAuth access token.

116+uasAccessToken :: Lens' UserActivitySearch (Maybe Text)

117+uasAccessToken

118+ = lens _uasAccessToken

119+ (\ s a -> s{_uasAccessToken = a})

120+

121+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

122+uasUploadType :: Lens' UserActivitySearch (Maybe Text)

123+uasUploadType

124+ = lens _uasUploadType

125+ (\ s a -> s{_uasUploadType = a})

126+

127+-- | Multipart request metadata.

128+uasPayload :: Lens' UserActivitySearch SearchUserActivityRequest

129+uasPayload

130+ = lens _uasPayload (\ s a -> s{_uasPayload = a})

131+

132+-- | JSONP

133+uasCallback :: Lens' UserActivitySearch (Maybe Text)

134+uasCallback

135+ = lens _uasCallback (\ s a -> s{_uasCallback = a})

136+

137+instance GoogleRequest UserActivitySearch where

138+ type Rs UserActivitySearch =

139+ SearchUserActivityResponse

140+ type Scopes UserActivitySearch =

141+ '["https://www.googleapis.com/auth/analytics",

142+ "https://www.googleapis.com/auth/analytics.readonly"]

143+ requestClient UserActivitySearch'{..}

144+ = go _uasXgafv _uasUploadProtocol _uasAccessToken

145+ _uasUploadType

146+ _uasCallback

147+ (Just AltJSON)

148+ _uasPayload

149+ analyticsReportingService

150+ where go

151+ = buildClient

152+ (Proxy :: Proxy UserActivitySearchResource)

153+ mempty

gogol-analyticsreporting/gogol-analyticsreporting.cabal+1

@@ -36,6 +36,7 @@ library

3636 Network.Google.AnalyticsReporting

3737 , Network.Google.AnalyticsReporting.Types

3838 , Network.Google.Resource.AnalyticsReporting.Reports.BatchGet

39+ , Network.Google.Resource.AnalyticsReporting.UserActivity.Search

3940

4041 other-modules:

4142 Network.Google.AnalyticsReporting.Types.Product

gogol-android-enterprise/gen/Network/Google/AndroidEnterprise.hs+1−11

@@ -83,9 +83,6 @@ module Network.Google.AndroidEnterprise

8383 -- ** androidenterprise.enterprises.setAccount

8484 , module Network.Google.Resource.AndroidEnterprise.Enterprises.SetAccount

8585

86− -- ** androidenterprise.enterprises.setAndroidDevicePolicyConfig

87− , module Network.Google.Resource.AndroidEnterprise.Enterprises.SetAndroidDevicePolicyConfig

88−

8986 -- ** androidenterprise.enterprises.setStoreLayout

9087 , module Network.Google.Resource.AndroidEnterprise.Enterprises.SetStoreLayout

9188

@@ -507,6 +504,7 @@ module Network.Google.AndroidEnterprise

507504 , ProductPolicy

508505 , productPolicy

509506 , ppTracks

507+ , ppManagedConfiguration

510508 , ppTrackIds

511509 , ppAutoInstallPolicy

512510 , ppProductId

@@ -565,12 +563,6 @@ module Network.Google.AndroidEnterprise

565563 , gllrGroupLicense

566564 , gllrKind

567565

568− -- ** AndroidDevicePolicyConfig

569− , AndroidDevicePolicyConfig

570− , androidDevicePolicyConfig

571− , adpcState

572− , adpcKind

573−

574566 -- ** ProductSet

575567 , ProductSet

576568 , productSet

@@ -909,7 +901,6 @@ import Network.Google.Resource.AndroidEnterprise.Enterprises.List

909901import Network.Google.Resource.AndroidEnterprise.Enterprises.PullNotificationSet

910902import Network.Google.Resource.AndroidEnterprise.Enterprises.SendTestPushNotification

911903import Network.Google.Resource.AndroidEnterprise.Enterprises.SetAccount

912−import Network.Google.Resource.AndroidEnterprise.Enterprises.SetAndroidDevicePolicyConfig

913904import Network.Google.Resource.AndroidEnterprise.Enterprises.SetStoreLayout

914905import Network.Google.Resource.AndroidEnterprise.Enterprises.Unenroll

915906import Network.Google.Resource.AndroidEnterprise.Entitlements.Delete

@@ -1023,7 +1014,6 @@ type AndroidEnterpriseAPI =

10231014 :<|> EnterprisesListResource

10241015 :<|> EnterprisesUnenrollResource

10251016 :<|> EnterprisesGetStoreLayoutResource

1026− :<|> EnterprisesSetAndroidDevicePolicyConfigResource

10271017 :<|> EnterprisesSetAccountResource

10281018 :<|> EnterprisesEnrollResource

10291019 :<|> EnterprisesGetResource

gogol-android-enterprise/gen/Network/Google/AndroidEnterprise/Types.hs+1−6

@@ -240,6 +240,7 @@ module Network.Google.AndroidEnterprise.Types

240240 , ProductPolicy

241241 , productPolicy

242242 , ppTracks

243+ , ppManagedConfiguration

243244 , ppTrackIds

244245 , ppAutoInstallPolicy

245246 , ppProductId

@@ -298,12 +299,6 @@ module Network.Google.AndroidEnterprise.Types

298299 , gllrGroupLicense

299300 , gllrKind

300301

301− -- * AndroidDevicePolicyConfig

302− , AndroidDevicePolicyConfig

303− , androidDevicePolicyConfig

304− , adpcState

305− , adpcKind

306−

307302 -- * ProductSet

308303 , ProductSet

309304 , productSet

gogol-android-enterprise/gen/Network/Google/AndroidEnterprise/Types/Product.hs+36−63

@@ -2196,10 +2196,11 @@ instance ToJSON AppRestrictionsSchemaRestriction

21962196-- /See:/ 'productPolicy' smart constructor.

21972197data ProductPolicy =

21982198 ProductPolicy'

2199− { _ppTracks :: !(Maybe [Text])

2200− , _ppTrackIds :: !(Maybe [Text])

2201− , _ppAutoInstallPolicy :: !(Maybe AutoInstallPolicy)

2202− , _ppProductId :: !(Maybe Text)

2199+ { _ppTracks :: !(Maybe [Text])

2200+ , _ppManagedConfiguration :: !(Maybe ManagedConfiguration)

2201+ , _ppTrackIds :: !(Maybe [Text])

2202+ , _ppAutoInstallPolicy :: !(Maybe AutoInstallPolicy)

2203+ , _ppProductId :: !(Maybe Text)

22032204 }

22042205 deriving (Eq, Show, Data, Typeable, Generic)

22052206

@@ -2210,6 +2211,8 @@ data ProductPolicy =

22102211--

22112212-- * 'ppTracks'

22122213--

2214+-- * 'ppManagedConfiguration'

2215+--

22132216-- * 'ppTrackIds'

22142217--

22152218-- * 'ppAutoInstallPolicy'

@@ -2220,6 +2223,7 @@ productPolicy

22202223productPolicy =

22212224 ProductPolicy'

22222225 { _ppTracks = Nothing

2226+ , _ppManagedConfiguration = Nothing

22232227 , _ppTrackIds = Nothing

22242228 , _ppAutoInstallPolicy = Nothing

22252229 , _ppProductId = Nothing

@@ -2233,6 +2237,12 @@ ppTracks

22332237 _Default

22342238 . _Coerce

22352239

2240+-- | The managed configuration for the product.

2241+ppManagedConfiguration :: Lens' ProductPolicy (Maybe ManagedConfiguration)

2242+ppManagedConfiguration

2243+ = lens _ppManagedConfiguration

2244+ (\ s a -> s{_ppManagedConfiguration = a})

2245+

22362246-- | Grants the device visibility to the specified product release track(s),

22372247-- identified by trackIds. The list of release tracks of a product can be

22382248-- obtained by calling Products.Get.

@@ -2259,7 +2269,8 @@ instance FromJSON ProductPolicy where

22592269 (\ o ->

22602270 ProductPolicy' <$>

22612271 (o .:? "tracks" .!= mempty) <*>

2262− (o .:? "trackIds" .!= mempty)

2272+ (o .:? "managedConfiguration")

2273+ <*> (o .:? "trackIds" .!= mempty)

22632274 <*> (o .:? "autoInstallPolicy")

22642275 <*> (o .:? "productId"))

22652276

@@ -2268,6 +2279,8 @@ instance ToJSON ProductPolicy where

22682279 = object

22692280 (catMaybes

22702281 [("tracks" .=) <$> _ppTracks,

2282+ ("managedConfiguration" .=) <$>

2283+ _ppManagedConfiguration,

22712284 ("trackIds" .=) <$> _ppTrackIds,

22722285 ("autoInstallPolicy" .=) <$> _ppAutoInstallPolicy,

22732286 ("productId" .=) <$> _ppProductId])

@@ -2737,59 +2750,6 @@ instance ToJSON GroupLicensesListResponse where

27372750 [("groupLicense" .=) <$> _gllrGroupLicense,

27382751 Just ("kind" .= _gllrKind)])

27392752

2740−-- | Deprecated and unused.

2741−--

2742−-- /See:/ 'androidDevicePolicyConfig' smart constructor.

2743−data AndroidDevicePolicyConfig =

2744− AndroidDevicePolicyConfig'

2745− { _adpcState :: !(Maybe Text)

2746− , _adpcKind :: !Text

2747− }

2748− deriving (Eq, Show, Data, Typeable, Generic)

2749−

2750−

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

2752−--

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

2754−--

2755−-- * 'adpcState'

2756−--

2757−-- * 'adpcKind'

2758−androidDevicePolicyConfig

2759− :: AndroidDevicePolicyConfig

2760−androidDevicePolicyConfig =

2761− AndroidDevicePolicyConfig'

2762− { _adpcState = Nothing

2763− , _adpcKind = "androidenterprise#androidDevicePolicyConfig"

2764− }

2765−

2766−

2767−-- | Deprecated and unused.

2768−adpcState :: Lens' AndroidDevicePolicyConfig (Maybe Text)

2769−adpcState

2770− = lens _adpcState (\ s a -> s{_adpcState = a})

2771−

2772−-- | Identifies what kind of resource this is. Value: the fixed string

2773−-- \"androidenterprise#androidDevicePolicyConfig\".

2774−adpcKind :: Lens' AndroidDevicePolicyConfig Text

2775−adpcKind = lens _adpcKind (\ s a -> s{_adpcKind = a})

2776−

2777−instance FromJSON AndroidDevicePolicyConfig where

2778− parseJSON

2779− = withObject "AndroidDevicePolicyConfig"

2780− (\ o ->

2781− AndroidDevicePolicyConfig' <$>

2782− (o .:? "state") <*>

2783− (o .:? "kind" .!=

2784− "androidenterprise#androidDevicePolicyConfig"))

2785−

2786−instance ToJSON AndroidDevicePolicyConfig where

2787− toJSON AndroidDevicePolicyConfig'{..}

2788− = object

2789− (catMaybes

2790− [("state" .=) <$> _adpcState,

2791− Just ("kind" .= _adpcKind)])

2792−

27932753-- | A set of products.

27942754--

27952755-- /See:/ 'productSet' smart constructor.

@@ -5845,7 +5805,10 @@ instance ToJSON ProductsListResponse where

58455805 Just ("kind" .= _plrKind),

58465806 ("product" .=) <$> _plrProduct])

58475807

5848−-- | WebApp resource info.

5808+-- | A WebApps resource represents a web app created for an enterprise. Web

5809+-- apps are published to managed Google Play and can be distributed like

5810+-- other Android apps. On a user\'s device, a web app opens its specified

5811+-- URL.

58495812--

58505813-- /See:/ 'webApp' smart constructor.

58515814data WebApp =

@@ -5892,7 +5855,9 @@ webApp =

58925855 }

58935856

58945857

5895−-- | The ID of the application.

5858+-- | The ID of the application. A string of the form \"app:\" where the

5859+-- package name always starts with the prefix

5860+-- \"com.google.enterprise.webapp.\" followed by a random id.

58965861waWebAppId :: Lens' WebApp (Maybe Text)

58975862waWebAppId

58985863 = lens _waWebAppId (\ s a -> s{_waWebAppId = a})

@@ -5919,7 +5884,15 @@ waStartURL :: Lens' WebApp (Maybe Text)

59195884waStartURL

59205885 = lens _waStartURL (\ s a -> s{_waStartURL = a})

59215886

5922−-- | The display mode of the web app.

5887+-- | The display mode of the web app. Possible values include: -

5888+-- \"minimalUi\", the device\'s status bar, navigation bar, the app\'s URL,

5889+-- and a refresh button are visible when the app is open. For HTTP URLs,

5890+-- you can only select this option. - \"standalone\", the device\'s status

5891+-- bar and navigation bar are visible when the app is open. -

5892+-- \"fullScreen\", the app opens in full screen mode, hiding the device\'s

5893+-- status and navigation bars. All browser UI elements, page URL, system

5894+-- status bar and back button are not visible, and the web app takes up the

5895+-- entirety of the available display area.

59235896waDisplayMode :: Lens' WebApp (Maybe Text)

59245897waDisplayMode

59255898 = lens _waDisplayMode

@@ -5931,8 +5904,8 @@ waIsPublished

59315904 = lens _waIsPublished

59325905 (\ s a -> s{_waIsPublished = a})

59335906

5934−-- | The title of the web application as displayed to the user (e.g., amongst

5935−-- a list of other applications, or as a label for an icon).

5907+-- | The title of the web app as displayed to the user (e.g., amongst a list

5908+-- of other applications, or as a label for an icon).

59365909waTitle :: Lens' WebApp (Maybe Text)

59375910waTitle = lens _waTitle (\ s a -> s{_waTitle = a})

59385911

gogol-android-enterprise/gen/Network/Google/Resource/AndroidEnterprise/Enterprises/SetAndroidDevicePolicyConfig.hsdeleted−114

@@ -1,114 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE FlexibleInstances #-}

5−{-# LANGUAGE NoImplicitPrelude #-}

6−{-# LANGUAGE OverloadedStrings #-}

7−{-# LANGUAGE RecordWildCards #-}

8−{-# LANGUAGE TypeFamilies #-}

9−{-# LANGUAGE TypeOperators #-}

10−

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

12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14−

15−-- |

16−-- Module : Network.Google.Resource.AndroidEnterprise.Enterprises.SetAndroidDevicePolicyConfig

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

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

20−-- Stability : auto-generated

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

22−--

23−-- Deprecated and unused.

24−--

25−-- /See:/ <https://developers.google.com/android/work/play/emm-api Google Play EMM API Reference> for @androidenterprise.enterprises.setAndroidDevicePolicyConfig@.

26−module Network.Google.Resource.AndroidEnterprise.Enterprises.SetAndroidDevicePolicyConfig

27− (

28− -- * REST Resource

29− EnterprisesSetAndroidDevicePolicyConfigResource

30−

31− -- * Creating a Request

32− , enterprisesSetAndroidDevicePolicyConfig

33− , EnterprisesSetAndroidDevicePolicyConfig

34−

35− -- * Request Lenses

36− , esadpcEnterpriseId

37− , esadpcPayload

38− ) where

39−

40−import Network.Google.AndroidEnterprise.Types

41−import Network.Google.Prelude

42−

43−-- | A resource alias for @androidenterprise.enterprises.setAndroidDevicePolicyConfig@ method which the

44−-- 'EnterprisesSetAndroidDevicePolicyConfig' request conforms to.

45−type EnterprisesSetAndroidDevicePolicyConfigResource

46− =

47− "androidenterprise" :>

48− "v1" :>

49− "enterprises" :>

50− Capture "enterpriseId" Text :>

51− "androidDevicePolicyConfig" :>

52− QueryParam "alt" AltJSON :>

53− ReqBody '[JSON] AndroidDevicePolicyConfig :>

54− Put '[JSON] AndroidDevicePolicyConfig

55−

56−-- | Deprecated and unused.

57−--

58−-- /See:/ 'enterprisesSetAndroidDevicePolicyConfig' smart constructor.

59−data EnterprisesSetAndroidDevicePolicyConfig =

60− EnterprisesSetAndroidDevicePolicyConfig'

61− { _esadpcEnterpriseId :: !Text

62− , _esadpcPayload :: !AndroidDevicePolicyConfig

63− }

64− deriving (Eq, Show, Data, Typeable, Generic)

65−

66−

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

68−--

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

70−--

71−-- * 'esadpcEnterpriseId'

72−--

73−-- * 'esadpcPayload'

74−enterprisesSetAndroidDevicePolicyConfig

75− :: Text -- ^ 'esadpcEnterpriseId'

76− -> AndroidDevicePolicyConfig -- ^ 'esadpcPayload'

77− -> EnterprisesSetAndroidDevicePolicyConfig

78−enterprisesSetAndroidDevicePolicyConfig pEsadpcEnterpriseId_ pEsadpcPayload_ =

79− EnterprisesSetAndroidDevicePolicyConfig'

80− { _esadpcEnterpriseId = pEsadpcEnterpriseId_

81− , _esadpcPayload = pEsadpcPayload_

82− }

83−

84−

85−-- | The ID of the enterprise.

86−esadpcEnterpriseId :: Lens' EnterprisesSetAndroidDevicePolicyConfig Text

87−esadpcEnterpriseId

88− = lens _esadpcEnterpriseId

89− (\ s a -> s{_esadpcEnterpriseId = a})

90−

91−-- | Multipart request metadata.

92−esadpcPayload :: Lens' EnterprisesSetAndroidDevicePolicyConfig AndroidDevicePolicyConfig

93−esadpcPayload

94− = lens _esadpcPayload

95− (\ s a -> s{_esadpcPayload = a})

96−

97−instance GoogleRequest

98− EnterprisesSetAndroidDevicePolicyConfig

99− where

100− type Rs EnterprisesSetAndroidDevicePolicyConfig =

101− AndroidDevicePolicyConfig

102− type Scopes EnterprisesSetAndroidDevicePolicyConfig =

103− '["https://www.googleapis.com/auth/androidenterprise"]

104− requestClient

105− EnterprisesSetAndroidDevicePolicyConfig'{..}

106− = go _esadpcEnterpriseId (Just AltJSON)

107− _esadpcPayload

108− androidEnterpriseService

109− where go

110− = buildClient

111− (Proxy ::

112− Proxy

113− EnterprisesSetAndroidDevicePolicyConfigResource)

114− mempty

gogol-android-enterprise/gogol-android-enterprise.cabal−1

@@ -53,7 +53,6 @@ library

5353 , Network.Google.Resource.AndroidEnterprise.Enterprises.PullNotificationSet

5454 , Network.Google.Resource.AndroidEnterprise.Enterprises.SendTestPushNotification

5555 , Network.Google.Resource.AndroidEnterprise.Enterprises.SetAccount

56− , Network.Google.Resource.AndroidEnterprise.Enterprises.SetAndroidDevicePolicyConfig

5756 , Network.Google.Resource.AndroidEnterprise.Enterprises.SetStoreLayout

5857 , Network.Google.Resource.AndroidEnterprise.Enterprises.Unenroll

5958 , Network.Google.Resource.AndroidEnterprise.Entitlements.Delete

gogol-android-publisher/gen/Network/Google/AndroidPublisher.hs+7

@@ -410,11 +410,18 @@ module Network.Google.AndroidPublisher

410410 , trStatus

411411 , trReleaseNotes

412412 , trUserFraction

413+ , trCountryTargeting

413414 , trName

414415

415416 -- ** EditsImagesListImageType

416417 , EditsImagesListImageType (..)

417418

419+ -- ** CountryTargeting

420+ , CountryTargeting

421+ , countryTargeting

422+ , ctIncludeRestOfWorld

423+ , ctCountries

424+

418425 -- ** Bundle

419426 , Bundle

420427 , bundle

gogol-android-publisher/gen/Network/Google/AndroidPublisher/Types.hs+7

@@ -245,11 +245,18 @@ module Network.Google.AndroidPublisher.Types

245245 , trStatus

246246 , trReleaseNotes

247247 , trUserFraction

248+ , trCountryTargeting

248249 , trName

249250

250251 -- * EditsImagesListImageType

251252 , EditsImagesListImageType (..)

252253

254+ -- * CountryTargeting

255+ , CountryTargeting

256+ , countryTargeting

257+ , ctIncludeRestOfWorld

258+ , ctCountries

259+

253260 -- * Bundle

254261 , Bundle

255262 , bundle

gogol-android-publisher/gen/Network/Google/AndroidPublisher/Types/Product.hs+65−5

@@ -2088,11 +2088,12 @@ instance ToJSON ExternallyHostedAPK where

20882088-- /See:/ 'trackRelease' smart constructor.

20892089data TrackRelease =

20902090 TrackRelease'

2091− { _trVersionCodes :: !(Maybe [Textual Int64])

2092− , _trStatus :: !(Maybe Text)

2093− , _trReleaseNotes :: !(Maybe [LocalizedText])

2094− , _trUserFraction :: !(Maybe (Textual Double))

2095− , _trName :: !(Maybe Text)

2091+ { _trVersionCodes :: !(Maybe [Textual Int64])

2092+ , _trStatus :: !(Maybe Text)

2093+ , _trReleaseNotes :: !(Maybe [LocalizedText])

2094+ , _trUserFraction :: !(Maybe (Textual Double))

2095+ , _trCountryTargeting :: !(Maybe CountryTargeting)

2096+ , _trName :: !(Maybe Text)

20962097 }

20972098 deriving (Eq, Show, Data, Typeable, Generic)

20982099

@@ -2109,6 +2110,8 @@ data TrackRelease =

21092110--

21102111-- * 'trUserFraction'

21112112--

2113+-- * 'trCountryTargeting'

2114+--

21122115-- * 'trName'

21132116trackRelease

21142117 :: TrackRelease

@@ -2118,6 +2121,7 @@ trackRelease =

21182121 , _trStatus = Nothing

21192122 , _trReleaseNotes = Nothing

21202123 , _trUserFraction = Nothing

2124+ , _trCountryTargeting = Nothing

21212125 , _trName = Nothing

21222126 }

21232127

@@ -2153,6 +2157,11 @@ trUserFraction

21532157 (\ s a -> s{_trUserFraction = a})

21542158 . mapping _Coerce

21552159

2160+trCountryTargeting :: Lens' TrackRelease (Maybe CountryTargeting)

2161+trCountryTargeting

2162+ = lens _trCountryTargeting

2163+ (\ s a -> s{_trCountryTargeting = a})

2164+

21562165-- | The release name, used to identify this release in the Play Console UI.

21572166-- Not required to be unique. This is optional, if not set it will be

21582167-- generated from the version_name in the APKs.

@@ -2168,6 +2177,7 @@ instance FromJSON TrackRelease where

21682177 (o .:? "status")

21692178 <*> (o .:? "releaseNotes" .!= mempty)

21702179 <*> (o .:? "userFraction")

2180+ <*> (o .:? "countryTargeting")

21712181 <*> (o .:? "name"))

21722182

21732183instance ToJSON TrackRelease where

@@ -2178,8 +2188,58 @@ instance ToJSON TrackRelease where

21782188 ("status" .=) <$> _trStatus,

21792189 ("releaseNotes" .=) <$> _trReleaseNotes,

21802190 ("userFraction" .=) <$> _trUserFraction,

2191+ ("countryTargeting" .=) <$> _trCountryTargeting,

21812192 ("name" .=) <$> _trName])

21822193

2194+--

2195+-- /See:/ 'countryTargeting' smart constructor.

2196+data CountryTargeting =

2197+ CountryTargeting'

2198+ { _ctIncludeRestOfWorld :: !(Maybe Bool)

2199+ , _ctCountries :: !(Maybe [Text])

2200+ }

2201+ deriving (Eq, Show, Data, Typeable, Generic)

2202+

2203+

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

2205+--

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

2207+--

2208+-- * 'ctIncludeRestOfWorld'

2209+--

2210+-- * 'ctCountries'

2211+countryTargeting

2212+ :: CountryTargeting

2213+countryTargeting =

2214+ CountryTargeting' {_ctIncludeRestOfWorld = Nothing, _ctCountries = Nothing}

2215+

2216+

2217+ctIncludeRestOfWorld :: Lens' CountryTargeting (Maybe Bool)

2218+ctIncludeRestOfWorld

2219+ = lens _ctIncludeRestOfWorld

2220+ (\ s a -> s{_ctIncludeRestOfWorld = a})

2221+

2222+ctCountries :: Lens' CountryTargeting [Text]

2223+ctCountries

2224+ = lens _ctCountries (\ s a -> s{_ctCountries = a}) .

2225+ _Default

2226+ . _Coerce

2227+

2228+instance FromJSON CountryTargeting where

2229+ parseJSON

2230+ = withObject "CountryTargeting"

2231+ (\ o ->

2232+ CountryTargeting' <$>

2233+ (o .:? "includeRestOfWorld") <*>

2234+ (o .:? "countries" .!= mempty))

2235+

2236+instance ToJSON CountryTargeting where

2237+ toJSON CountryTargeting'{..}

2238+ = object

2239+ (catMaybes

2240+ [("includeRestOfWorld" .=) <$> _ctIncludeRestOfWorld,

2241+ ("countries" .=) <$> _ctCountries])

2242+

21832243--

21842244-- /See:/ 'bundle' smart constructor.

21852245data Bundle =

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Get.hs+1−2

@@ -85,8 +85,7 @@ editsTestersGet pEtgTrack_ pEtgPackageName_ pEtgEditId_ =

8585 }

8686

8787

88−-- | The track to read or modify. Acceptable values are: \"alpha\", \"beta\",

89−-- \"production\", \"rollout\" or \"internal\".

88+-- | The track to read or modify.

9089etgTrack :: Lens' EditsTestersGet Text

9190etgTrack = lens _etgTrack (\ s a -> s{_etgTrack = a})

9291

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Patch.hs+1−2

@@ -92,8 +92,7 @@ editsTestersPatch pEtpTrack_ pEtpPackageName_ pEtpPayload_ pEtpEditId_ =

9292 }

9393

9494

95−-- | The track to read or modify. Acceptable values are: \"alpha\", \"beta\",

96−-- \"production\", \"rollout\" or \"internal\".

95+-- | The track to read or modify.

9796etpTrack :: Lens' EditsTestersPatch Text

9897etpTrack = lens _etpTrack (\ s a -> s{_etpTrack = a})

9998

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Testers/Update.hs+1−2

@@ -92,8 +92,7 @@ editsTestersUpdate pEtutTrack_ pEtutPackageName_ pEtutPayload_ pEtutEditId_ =

9292 }

9393

9494

95−-- | The track to read or modify. Acceptable values are: \"alpha\", \"beta\",

96−-- \"production\", \"rollout\" or \"internal\".

95+-- | The track to read or modify.

9796etutTrack :: Lens' EditsTestersUpdate Text

9897etutTrack

9998 = lens _etutTrack (\ s a -> s{_etutTrack = a})

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/Patch.hs+4−8

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

2020-- Stability : auto-generated

2121-- Portability : non-portable (GHC extensions)

2222--

23−-- Updates the track configuration for the specified track type. When

24−-- halted, the rollout track cannot be updated without adding new APKs, and

25−-- adding new APKs will cause it to resume. This method supports patch

26−-- semantics.

23+-- Updates the track configuration for the specified track type. This

24+-- method supports patch semantics.

2725--

2826-- /See:/ <https://developers.google.com/android-publisher Google Play Developer API Reference> for @androidpublisher.edits.tracks.patch@.

2927module Network.Google.Resource.AndroidPublisher.Edits.Tracks.Patch

@@ -59,10 +57,8 @@ type EditsTracksPatchResource =

5957 QueryParam "alt" AltJSON :>

6058 ReqBody '[JSON] Track :> Patch '[JSON] Track

6159

62−-- | Updates the track configuration for the specified track type. When

63−-- halted, the rollout track cannot be updated without adding new APKs, and

64−-- adding new APKs will cause it to resume. This method supports patch

65−-- semantics.

60+-- | Updates the track configuration for the specified track type. This

61+-- method supports patch semantics.

6662--

6763-- /See:/ 'editsTracksPatch' smart constructor.

6864data EditsTracksPatch =

gogol-android-publisher/gen/Network/Google/Resource/AndroidPublisher/Edits/Tracks/Update.hs+2−6

@@ -20,9 +20,7 @@

2020-- Stability : auto-generated

2121-- Portability : non-portable (GHC extensions)

2222--

23−-- Updates the track configuration for the specified track type. When

24−-- halted, the rollout track cannot be updated without adding new APKs, and

25−-- adding new APKs will cause it to resume.

23+-- Updates the track configuration for the specified track type.

2624--

2725-- /See:/ <https://developers.google.com/android-publisher Google Play Developer API Reference> for @androidpublisher.edits.tracks.update@.

2826module Network.Google.Resource.AndroidPublisher.Edits.Tracks.Update

@@ -58,9 +56,7 @@ type EditsTracksUpdateResource =

5856 QueryParam "alt" AltJSON :>

5957 ReqBody '[JSON] Track :> Put '[JSON] Track

6058

61−-- | Updates the track configuration for the specified track type. When

62−-- halted, the rollout track cannot be updated without adding new APKs, and

63−-- adding new APKs will cause it to resume.

59+-- | Updates the track configuration for the specified track type.

6460--

6561-- /See:/ 'editsTracksUpdate' smart constructor.

6662data EditsTracksUpdate =

gogol-androiddeviceprovisioning/gen/Network/Google/AndroidDeviceProvisioning.hs+6

@@ -164,6 +164,8 @@ module Network.Google.AndroidDeviceProvisioning

164164 , partnerUnclaim

165165 , puDeviceIdentifier

166166 , puSectionType

167+ , puVacationModeExpireTime

168+ , puVacationModeDays

167169 , puDeviceId

168170

169171 -- ** Dpc

@@ -312,6 +314,8 @@ module Network.Google.AndroidDeviceProvisioning

312314 , DeviceClaim

313315 , deviceClaim

314316 , dcSectionType

317+ , dcVacationModeExpireTime

318+ , dcVacationModeStartTime

315319 , dcOwnerCompanyId

316320 , dcResellerId

317321

@@ -345,6 +349,8 @@ module Network.Google.AndroidDeviceProvisioning

345349 , unclaimDeviceRequest

346350 , udrDeviceIdentifier

347351 , udrSectionType

352+ , udrVacationModeExpireTime

353+ , udrVacationModeDays

348354 , udrDeviceId

349355

350356 -- ** DevicesLongRunningOperationResponse

gogol-androiddeviceprovisioning/gen/Network/Google/AndroidDeviceProvisioning/Types.hs+6

@@ -76,6 +76,8 @@ module Network.Google.AndroidDeviceProvisioning.Types

7676 , partnerUnclaim

7777 , puDeviceIdentifier

7878 , puSectionType

79+ , puVacationModeExpireTime

80+ , puVacationModeDays

7981 , puDeviceId

8082

8183 -- * Dpc

@@ -224,6 +226,8 @@ module Network.Google.AndroidDeviceProvisioning.Types

224226 , DeviceClaim

225227 , deviceClaim

226228 , dcSectionType

229+ , dcVacationModeExpireTime

230+ , dcVacationModeStartTime

227231 , dcOwnerCompanyId

228232 , dcResellerId

229233

@@ -257,6 +261,8 @@ module Network.Google.AndroidDeviceProvisioning.Types

257261 , unclaimDeviceRequest

258262 , udrDeviceIdentifier

259263 , udrSectionType

264+ , udrVacationModeExpireTime

265+ , udrVacationModeDays

260266 , udrDeviceId

261267

262268 -- * DevicesLongRunningOperationResponse

gogol-androiddeviceprovisioning/gen/Network/Google/AndroidDeviceProvisioning/Types/Product.hs+97−10

@@ -472,9 +472,11 @@ instance ToJSON DeviceMetadataEntries where

472472-- /See:/ 'partnerUnclaim' smart constructor.

473473data PartnerUnclaim =

474474 PartnerUnclaim'

475− { _puDeviceIdentifier :: !(Maybe DeviceIdentifier)

476− , _puSectionType :: !(Maybe PartnerUnclaimSectionType)

477− , _puDeviceId :: !(Maybe (Textual Int64))

475+ { _puDeviceIdentifier :: !(Maybe DeviceIdentifier)

476+ , _puSectionType :: !(Maybe PartnerUnclaimSectionType)

477+ , _puVacationModeExpireTime :: !(Maybe DateTime')

478+ , _puVacationModeDays :: !(Maybe (Textual Int32))

479+ , _puDeviceId :: !(Maybe (Textual Int64))

478480 }

479481 deriving (Eq, Show, Data, Typeable, Generic)

480482

@@ -487,6 +489,10 @@ data PartnerUnclaim =

487489--

488490-- * 'puSectionType'

489491--

492+-- * 'puVacationModeExpireTime'

493+--

494+-- * 'puVacationModeDays'

495+--

490496-- * 'puDeviceId'

491497partnerUnclaim

492498 :: PartnerUnclaim

@@ -494,6 +500,8 @@ partnerUnclaim =

494500 PartnerUnclaim'

495501 { _puDeviceIdentifier = Nothing

496502 , _puSectionType = Nothing

503+ , _puVacationModeExpireTime = Nothing

504+ , _puVacationModeDays = Nothing

497505 , _puDeviceId = Nothing

498506 }

499507

@@ -510,6 +518,21 @@ puSectionType

510518 = lens _puSectionType

511519 (\ s a -> s{_puSectionType = a})

512520

521+-- | The expiration time of the vacation unlock.

522+puVacationModeExpireTime :: Lens' PartnerUnclaim (Maybe UTCTime)

523+puVacationModeExpireTime

524+ = lens _puVacationModeExpireTime

525+ (\ s a -> s{_puVacationModeExpireTime = a})

526+ . mapping _DateTime

527+

528+-- | The duration of the vacation unlock starting from when the request is

529+-- processed. (1 day is treated as 24 hours)

530+puVacationModeDays :: Lens' PartnerUnclaim (Maybe Int32)

531+puVacationModeDays

532+ = lens _puVacationModeDays

533+ (\ s a -> s{_puVacationModeDays = a})

534+ . mapping _Coerce

535+

513536-- | Device ID of the device.

514537puDeviceId :: Lens' PartnerUnclaim (Maybe Int64)

515538puDeviceId

@@ -522,6 +545,8 @@ instance FromJSON PartnerUnclaim where

522545 (\ o ->

523546 PartnerUnclaim' <$>

524547 (o .:? "deviceIdentifier") <*> (o .:? "sectionType")

548+ <*> (o .:? "vacationModeExpireTime")

549+ <*> (o .:? "vacationModeDays")

525550 <*> (o .:? "deviceId"))

526551

527552instance ToJSON PartnerUnclaim where

@@ -530,6 +555,9 @@ instance ToJSON PartnerUnclaim where

530555 (catMaybes

531556 [("deviceIdentifier" .=) <$> _puDeviceIdentifier,

532557 ("sectionType" .=) <$> _puSectionType,

558+ ("vacationModeExpireTime" .=) <$>

559+ _puVacationModeExpireTime,

560+ ("vacationModeDays" .=) <$> _puVacationModeDays,

533561 ("deviceId" .=) <$> _puDeviceId])

534562

535563-- | An EMM\'s DPC ([device policy

@@ -1760,9 +1788,11 @@ instance ToJSON CustomerListCustomersResponse where

17601788-- /See:/ 'deviceClaim' smart constructor.

17611789data DeviceClaim =

17621790 DeviceClaim'

1763− { _dcSectionType :: !(Maybe DeviceClaimSectionType)

1764− , _dcOwnerCompanyId :: !(Maybe (Textual Int64))

1765− , _dcResellerId :: !(Maybe (Textual Int64))

1791+ { _dcSectionType :: !(Maybe DeviceClaimSectionType)

1792+ , _dcVacationModeExpireTime :: !(Maybe DateTime')

1793+ , _dcVacationModeStartTime :: !(Maybe DateTime')

1794+ , _dcOwnerCompanyId :: !(Maybe (Textual Int64))

1795+ , _dcResellerId :: !(Maybe (Textual Int64))

17661796 }

17671797 deriving (Eq, Show, Data, Typeable, Generic)

17681798

@@ -1773,6 +1803,10 @@ data DeviceClaim =

17731803--

17741804-- * 'dcSectionType'

17751805--

1806+-- * 'dcVacationModeExpireTime'

1807+--

1808+-- * 'dcVacationModeStartTime'

1809+--

17761810-- * 'dcOwnerCompanyId'

17771811--

17781812-- * 'dcResellerId'

@@ -1781,6 +1815,8 @@ deviceClaim

17811815deviceClaim =

17821816 DeviceClaim'

17831817 { _dcSectionType = Nothing

1818+ , _dcVacationModeExpireTime = Nothing

1819+ , _dcVacationModeStartTime = Nothing

17841820 , _dcOwnerCompanyId = Nothing

17851821 , _dcResellerId = Nothing

17861822 }

@@ -1792,6 +1828,22 @@ dcSectionType

17921828 = lens _dcSectionType

17931829 (\ s a -> s{_dcSectionType = a})

17941830

1831+-- | The timestamp when the device will exit ‘vacation mode’. This value is

1832+-- present iff the device is in \'vacation mode\'.

1833+dcVacationModeExpireTime :: Lens' DeviceClaim (Maybe UTCTime)

1834+dcVacationModeExpireTime

1835+ = lens _dcVacationModeExpireTime

1836+ (\ s a -> s{_dcVacationModeExpireTime = a})

1837+ . mapping _DateTime

1838+

1839+-- | The timestamp when the device was put into ‘vacation mode’. This value

1840+-- is present iff the device is in \'vacation mode\'.

1841+dcVacationModeStartTime :: Lens' DeviceClaim (Maybe UTCTime)

1842+dcVacationModeStartTime

1843+ = lens _dcVacationModeStartTime

1844+ (\ s a -> s{_dcVacationModeStartTime = a})

1845+ . mapping _DateTime

1846+

17951847-- | The ID of the Customer that purchased the device.

17961848dcOwnerCompanyId :: Lens' DeviceClaim (Maybe Int64)

17971849dcOwnerCompanyId

@@ -1810,7 +1862,10 @@ instance FromJSON DeviceClaim where

18101862 = withObject "DeviceClaim"

18111863 (\ o ->

18121864 DeviceClaim' <$>

1813− (o .:? "sectionType") <*> (o .:? "ownerCompanyId")

1865+ (o .:? "sectionType") <*>

1866+ (o .:? "vacationModeExpireTime")

1867+ <*> (o .:? "vacationModeStartTime")

1868+ <*> (o .:? "ownerCompanyId")

18141869 <*> (o .:? "resellerId"))

18151870

18161871instance ToJSON DeviceClaim where

@@ -1818,6 +1873,10 @@ instance ToJSON DeviceClaim where

18181873 = object

18191874 (catMaybes

18201875 [("sectionType" .=) <$> _dcSectionType,

1876+ ("vacationModeExpireTime" .=) <$>

1877+ _dcVacationModeExpireTime,

1878+ ("vacationModeStartTime" .=) <$>

1879+ _dcVacationModeStartTime,

18211880 ("ownerCompanyId" .=) <$> _dcOwnerCompanyId,

18221881 ("resellerId" .=) <$> _dcResellerId])

18231882

@@ -2054,9 +2113,11 @@ instance ToJSON FindDevicesByDeviceIdentifierResponse

20542113-- /See:/ 'unclaimDeviceRequest' smart constructor.

20552114data UnclaimDeviceRequest =

20562115 UnclaimDeviceRequest'

2057− { _udrDeviceIdentifier :: !(Maybe DeviceIdentifier)

2058− , _udrSectionType :: !(Maybe UnclaimDeviceRequestSectionType)

2059− , _udrDeviceId :: !(Maybe (Textual Int64))

2116+ { _udrDeviceIdentifier :: !(Maybe DeviceIdentifier)

2117+ , _udrSectionType :: !(Maybe UnclaimDeviceRequestSectionType)

2118+ , _udrVacationModeExpireTime :: !(Maybe DateTime')

2119+ , _udrVacationModeDays :: !(Maybe (Textual Int32))

2120+ , _udrDeviceId :: !(Maybe (Textual Int64))

20602121 }

20612122 deriving (Eq, Show, Data, Typeable, Generic)

20622123

@@ -2069,6 +2130,10 @@ data UnclaimDeviceRequest =

20692130--

20702131-- * 'udrSectionType'

20712132--

2133+-- * 'udrVacationModeExpireTime'

2134+--

2135+-- * 'udrVacationModeDays'

2136+--

20722137-- * 'udrDeviceId'

20732138unclaimDeviceRequest

20742139 :: UnclaimDeviceRequest

@@ -2076,6 +2141,8 @@ unclaimDeviceRequest =

20762141 UnclaimDeviceRequest'

20772142 { _udrDeviceIdentifier = Nothing

20782143 , _udrSectionType = Nothing

2144+ , _udrVacationModeExpireTime = Nothing

2145+ , _udrVacationModeDays = Nothing

20792146 , _udrDeviceId = Nothing

20802147 }

20812148

@@ -2092,6 +2159,21 @@ udrSectionType

20922159 = lens _udrSectionType

20932160 (\ s a -> s{_udrSectionType = a})

20942161

2162+-- | The expiration time of the vacation unlock.

2163+udrVacationModeExpireTime :: Lens' UnclaimDeviceRequest (Maybe UTCTime)

2164+udrVacationModeExpireTime

2165+ = lens _udrVacationModeExpireTime

2166+ (\ s a -> s{_udrVacationModeExpireTime = a})

2167+ . mapping _DateTime

2168+

2169+-- | The duration of the vacation unlock starting from when the request is

2170+-- processed. (1 day is treated as 24 hours)

2171+udrVacationModeDays :: Lens' UnclaimDeviceRequest (Maybe Int32)

2172+udrVacationModeDays

2173+ = lens _udrVacationModeDays

2174+ (\ s a -> s{_udrVacationModeDays = a})

2175+ . mapping _Coerce

2176+

20952177-- | The device ID returned by \`ClaimDevice\`.

20962178udrDeviceId :: Lens' UnclaimDeviceRequest (Maybe Int64)

20972179udrDeviceId

@@ -2104,6 +2186,8 @@ instance FromJSON UnclaimDeviceRequest where

21042186 (\ o ->

21052187 UnclaimDeviceRequest' <$>

21062188 (o .:? "deviceIdentifier") <*> (o .:? "sectionType")

2189+ <*> (o .:? "vacationModeExpireTime")

2190+ <*> (o .:? "vacationModeDays")

21072191 <*> (o .:? "deviceId"))

21082192

21092193instance ToJSON UnclaimDeviceRequest where

@@ -2112,6 +2196,9 @@ instance ToJSON UnclaimDeviceRequest where

21122196 (catMaybes

21132197 [("deviceIdentifier" .=) <$> _udrDeviceIdentifier,

21142198 ("sectionType" .=) <$> _udrSectionType,

2199+ ("vacationModeExpireTime" .=) <$>

2200+ _udrVacationModeExpireTime,

2201+ ("vacationModeDays" .=) <$> _udrVacationModeDays,

21152202 ("deviceId" .=) <$> _udrDeviceId])

21162203

21172204-- | Tracks the status of a long-running operation to claim, unclaim, or

gogol-androidmanagement/gen/Network/Google/AndroidManagement.hs+69

@@ -87,6 +87,21 @@ module Network.Google.AndroidManagement

8787 -- ** androidmanagement.enterprises.policies.patch

8888 , module Network.Google.Resource.AndroidManagement.Enterprises.Policies.Patch

8989

90+ -- ** androidmanagement.enterprises.webApps.create

91+ , module Network.Google.Resource.AndroidManagement.Enterprises.WebApps.Create

92+

93+ -- ** androidmanagement.enterprises.webApps.delete

94+ , module Network.Google.Resource.AndroidManagement.Enterprises.WebApps.Delete

95+

96+ -- ** androidmanagement.enterprises.webApps.get

97+ , module Network.Google.Resource.AndroidManagement.Enterprises.WebApps.Get

98+

99+ -- ** androidmanagement.enterprises.webApps.list

100+ , module Network.Google.Resource.AndroidManagement.Enterprises.WebApps.List

101+

102+ -- ** androidmanagement.enterprises.webApps.patch

103+ , module Network.Google.Resource.AndroidManagement.Enterprises.WebApps.Patch

104+

90105 -- ** androidmanagement.enterprises.webTokens.create

91106 , module Network.Google.Resource.AndroidManagement.Enterprises.WebTokens.Create

92107

@@ -324,6 +339,9 @@ module Network.Google.AndroidManagement

324339 , devEnrollmentTime

325340 , devDisplays

326341

342+ -- ** WebAppDisplayMode

343+ , WebAppDisplayMode (..)

344+

327345 -- ** ApplicationReportApplicationSource

328346 , ApplicationReportApplicationSource (..)

329347

@@ -386,6 +404,7 @@ module Network.Google.AndroidManagement

386404 , arVersionName

387405 , arPackageName

388406 , arPackageSha256Hash

407+ , arKeyedAppStates

389408 , arApplicationSource

390409 , arEvents

391410 , arDisplayName

@@ -426,6 +445,7 @@ module Network.Google.AndroidManagement

426445 , srsMemoryInfoEnabled

427446 , srsNetworkInfoEnabled

428447 , srsDeviceSettingsEnabled

448+ , srsApplicationReportingSettings

429449

430450 -- ** CommandType

431451 , CommandType (..)

@@ -433,6 +453,11 @@ module Network.Google.AndroidManagement

433453 -- ** ApplicationPolicyDefaultPermissionPolicy

434454 , ApplicationPolicyDefaultPermissionPolicy (..)

435455

456+ -- ** WebAppIcon

457+ , WebAppIcon

458+ , webAppIcon

459+ , waiImageData

460+

436461 -- ** Xgafv

437462 , Xgafv (..)

438463

@@ -617,6 +642,16 @@ module Network.Google.AndroidManagement

617642 , ncdcNonComplianceReason

618643 , ncdcSettingName

619644

645+ -- ** KeyedAppState

646+ , KeyedAppState

647+ , keyedAppState

648+ , kasData

649+ , kasSeverity

650+ , kasKey

651+ , kasMessage

652+ , kasLastUpdateTime

653+ , kasCreateTime

654+

620655 -- ** OperationMetadata

621656 , OperationMetadata

622657 , operationMetadata

@@ -630,6 +665,9 @@ module Network.Google.AndroidManagement

630665 , wtName

631666 , wtPermissions

632667

668+ -- ** KeyedAppStateSeverity

669+ , KeyedAppStateSeverity (..)

670+

633671 -- ** ComplianceRule

634672 , ComplianceRule

635673 , complianceRule

@@ -638,6 +676,12 @@ module Network.Google.AndroidManagement

638676 , crPackageNamesToDisable

639677 , crNonComplianceDetailCondition

640678

679+ -- ** ListWebAppsResponse

680+ , ListWebAppsResponse

681+ , listWebAppsResponse

682+ , lwarNextPageToken

683+ , lwarWebApps

684+

641685 -- ** PasswordRequirements

642686 , PasswordRequirements

643687 , passwordRequirements

@@ -707,6 +751,11 @@ module Network.Google.AndroidManagement

707751 , siAndroidBuildNumber

708752 , siAndroidVersion

709753

754+ -- ** ApplicationReportingSettings

755+ , ApplicationReportingSettings

756+ , applicationReportingSettings

757+ , arsIncludeRemovedApps

758+

710759 -- ** MemoryEventEventType

711760 , MemoryEventEventType (..)

712761

@@ -724,6 +773,16 @@ module Network.Google.AndroidManagement

724773 , saTitle

725774 , saDescription

726775

776+ -- ** WebApp

777+ , WebApp

778+ , webApp

779+ , waVersionCode

780+ , waIcons

781+ , waStartURL

782+ , waDisplayMode

783+ , waName

784+ , waTitle

785+

727786 -- ** PasswordRequirementsPasswordQuality

728787 , PasswordRequirementsPasswordQuality (..)

729788 ) where

@@ -749,6 +808,11 @@ import Network.Google.Resource.AndroidManagement.Enterprises.Policies.

749808import Network.Google.Resource.AndroidManagement.Enterprises.Policies.Get

750809import Network.Google.Resource.AndroidManagement.Enterprises.Policies.List

751810import Network.Google.Resource.AndroidManagement.Enterprises.Policies.Patch

811+import Network.Google.Resource.AndroidManagement.Enterprises.WebApps.Create

812+import Network.Google.Resource.AndroidManagement.Enterprises.WebApps.Delete

813+import Network.Google.Resource.AndroidManagement.Enterprises.WebApps.Get

814+import Network.Google.Resource.AndroidManagement.Enterprises.WebApps.List

815+import Network.Google.Resource.AndroidManagement.Enterprises.WebApps.Patch

752816import Network.Google.Resource.AndroidManagement.Enterprises.WebTokens.Create

753817import Network.Google.Resource.AndroidManagement.SignupURLs.Create

754818

@@ -760,6 +824,11 @@ TODO

760824type AndroidManagementAPI =

761825 EnterprisesEnrollmentTokensCreateResource :<|>

762826 EnterprisesEnrollmentTokensDeleteResource

827+ :<|> EnterprisesWebAppsListResource

828+ :<|> EnterprisesWebAppsPatchResource

829+ :<|> EnterprisesWebAppsGetResource

830+ :<|> EnterprisesWebAppsCreateResource

831+ :<|> EnterprisesWebAppsDeleteResource

763832 :<|> EnterprisesWebTokensCreateResource

764833 :<|> EnterprisesDevicesOperationsListResource

765834 :<|> EnterprisesDevicesOperationsGetResource

gogol-androidmanagement/gen/Network/Google/AndroidManagement/Types.hs+44

@@ -251,6 +251,9 @@ module Network.Google.AndroidManagement.Types

251251 , devEnrollmentTime

252252 , devDisplays

253253

254+ -- * WebAppDisplayMode

255+ , WebAppDisplayMode (..)

256+

254257 -- * ApplicationReportApplicationSource

255258 , ApplicationReportApplicationSource (..)

256259

@@ -313,6 +316,7 @@ module Network.Google.AndroidManagement.Types

313316 , arVersionName

314317 , arPackageName

315318 , arPackageSha256Hash

319+ , arKeyedAppStates

316320 , arApplicationSource

317321 , arEvents

318322 , arDisplayName

@@ -353,6 +357,7 @@ module Network.Google.AndroidManagement.Types

353357 , srsMemoryInfoEnabled

354358 , srsNetworkInfoEnabled

355359 , srsDeviceSettingsEnabled

360+ , srsApplicationReportingSettings

356361

357362 -- * CommandType

358363 , CommandType (..)

@@ -360,6 +365,11 @@ module Network.Google.AndroidManagement.Types

360365 -- * ApplicationPolicyDefaultPermissionPolicy

361366 , ApplicationPolicyDefaultPermissionPolicy (..)

362367

368+ -- * WebAppIcon

369+ , WebAppIcon

370+ , webAppIcon

371+ , waiImageData

372+

363373 -- * Xgafv

364374 , Xgafv (..)

365375

@@ -544,6 +554,16 @@ module Network.Google.AndroidManagement.Types

544554 , ncdcNonComplianceReason

545555 , ncdcSettingName

546556

557+ -- * KeyedAppState

558+ , KeyedAppState

559+ , keyedAppState

560+ , kasData

561+ , kasSeverity

562+ , kasKey

563+ , kasMessage

564+ , kasLastUpdateTime

565+ , kasCreateTime

566+

547567 -- * OperationMetadata

548568 , OperationMetadata

549569 , operationMetadata

@@ -557,6 +577,9 @@ module Network.Google.AndroidManagement.Types

557577 , wtName

558578 , wtPermissions

559579

580+ -- * KeyedAppStateSeverity

581+ , KeyedAppStateSeverity (..)

582+

560583 -- * ComplianceRule

561584 , ComplianceRule

562585 , complianceRule

@@ -565,6 +588,12 @@ module Network.Google.AndroidManagement.Types

565588 , crPackageNamesToDisable

566589 , crNonComplianceDetailCondition

567590

591+ -- * ListWebAppsResponse

592+ , ListWebAppsResponse

593+ , listWebAppsResponse

594+ , lwarNextPageToken

595+ , lwarWebApps

596+

568597 -- * PasswordRequirements

569598 , PasswordRequirements

570599 , passwordRequirements

@@ -634,6 +663,11 @@ module Network.Google.AndroidManagement.Types

634663 , siAndroidBuildNumber

635664 , siAndroidVersion

636665

666+ -- * ApplicationReportingSettings

667+ , ApplicationReportingSettings

668+ , applicationReportingSettings

669+ , arsIncludeRemovedApps

670+

637671 -- * MemoryEventEventType

638672 , MemoryEventEventType (..)

639673

@@ -651,6 +685,16 @@ module Network.Google.AndroidManagement.Types

651685 , saTitle

652686 , saDescription

653687

688+ -- * WebApp

689+ , WebApp

690+ , webApp

691+ , waVersionCode

692+ , waIcons

693+ , waStartURL

694+ , waDisplayMode

695+ , waName

696+ , waTitle

697+

654698 -- * PasswordRequirementsPasswordQuality

655699 , PasswordRequirementsPasswordQuality (..)

656700 ) where

gogol-androidmanagement/gen/Network/Google/AndroidManagement/Types/Product.hs+371−2

@@ -2511,6 +2511,7 @@ data ApplicationReport =

25112511 , _arVersionName :: !(Maybe Text)

25122512 , _arPackageName :: !(Maybe Text)

25132513 , _arPackageSha256Hash :: !(Maybe Text)

2514+ , _arKeyedAppStates :: !(Maybe [KeyedAppState])

25142515 , _arApplicationSource :: !(Maybe ApplicationReportApplicationSource)

25152516 , _arEvents :: !(Maybe [ApplicationEvent])

25162517 , _arDisplayName :: !(Maybe Text)

@@ -2535,6 +2536,8 @@ data ApplicationReport =

25352536--

25362537-- * 'arPackageSha256Hash'

25372538--

2539+-- * 'arKeyedAppStates'

2540+--

25382541-- * 'arApplicationSource'

25392542--

25402543-- * 'arEvents'

@@ -2552,6 +2555,7 @@ applicationReport =

25522555 , _arVersionName = Nothing

25532556 , _arPackageName = Nothing

25542557 , _arPackageSha256Hash = Nothing

2558+ , _arKeyedAppStates = Nothing

25552559 , _arApplicationSource = Nothing

25562560 , _arEvents = Nothing

25572561 , _arDisplayName = Nothing

@@ -2602,6 +2606,14 @@ arPackageSha256Hash

26022606 = lens _arPackageSha256Hash

26032607 (\ s a -> s{_arPackageSha256Hash = a})

26042608

2609+-- | List of keyed app states reported by the app.

2610+arKeyedAppStates :: Lens' ApplicationReport [KeyedAppState]

2611+arKeyedAppStates

2612+ = lens _arKeyedAppStates

2613+ (\ s a -> s{_arKeyedAppStates = a})

2614+ . _Default

2615+ . _Coerce

2616+

26052617-- | The source of the package.

26062618arApplicationSource :: Lens' ApplicationReport (Maybe ApplicationReportApplicationSource)

26072619arApplicationSource

@@ -2638,6 +2650,7 @@ instance FromJSON ApplicationReport where

26382650 <*> (o .:? "versionName")

26392651 <*> (o .:? "packageName")

26402652 <*> (o .:? "packageSha256Hash")

2653+ <*> (o .:? "keyedAppStates" .!= mempty)

26412654 <*> (o .:? "applicationSource")

26422655 <*> (o .:? "events" .!= mempty)

26432656 <*> (o .:? "displayName")

@@ -2654,6 +2667,7 @@ instance ToJSON ApplicationReport where

26542667 ("versionName" .=) <$> _arVersionName,

26552668 ("packageName" .=) <$> _arPackageName,

26562669 ("packageSha256Hash" .=) <$> _arPackageSha256Hash,

2670+ ("keyedAppStates" .=) <$> _arKeyedAppStates,

26572671 ("applicationSource" .=) <$> _arApplicationSource,

26582672 ("events" .=) <$> _arEvents,

26592673 ("displayName" .=) <$> _arDisplayName,

@@ -2890,6 +2904,7 @@ data StatusReportingSettings =

28902904 , _srsMemoryInfoEnabled :: !(Maybe Bool)

28912905 , _srsNetworkInfoEnabled :: !(Maybe Bool)

28922906 , _srsDeviceSettingsEnabled :: !(Maybe Bool)

2907+ , _srsApplicationReportingSettings :: !(Maybe ApplicationReportingSettings)

28932908 }

28942909 deriving (Eq, Show, Data, Typeable, Generic)

28952910

@@ -2913,6 +2928,8 @@ data StatusReportingSettings =

29132928-- * 'srsNetworkInfoEnabled'

29142929--

29152930-- * 'srsDeviceSettingsEnabled'

2931+--

2932+-- * 'srsApplicationReportingSettings'

29162933statusReportingSettings

29172934 :: StatusReportingSettings

29182935statusReportingSettings =

@@ -2925,6 +2942,7 @@ statusReportingSettings =

29252942 , _srsMemoryInfoEnabled = Nothing

29262943 , _srsNetworkInfoEnabled = Nothing

29272944 , _srsDeviceSettingsEnabled = Nothing

2945+ , _srsApplicationReportingSettings = Nothing

29282946 }

29292947

29302948

@@ -2976,6 +2994,13 @@ srsDeviceSettingsEnabled

29762994 = lens _srsDeviceSettingsEnabled

29772995 (\ s a -> s{_srsDeviceSettingsEnabled = a})

29782996

2997+-- | Application reporting settings. Only applicable if

2998+-- application_reports_enabled is true.

2999+srsApplicationReportingSettings :: Lens' StatusReportingSettings (Maybe ApplicationReportingSettings)

3000+srsApplicationReportingSettings

3001+ = lens _srsApplicationReportingSettings

3002+ (\ s a -> s{_srsApplicationReportingSettings = a})

3003+

29793004instance FromJSON StatusReportingSettings where

29803005 parseJSON

29813006 = withObject "StatusReportingSettings"

@@ -2988,7 +3013,8 @@ instance FromJSON StatusReportingSettings where

29883013 <*> (o .:? "applicationReportsEnabled")

29893014 <*> (o .:? "memoryInfoEnabled")

29903015 <*> (o .:? "networkInfoEnabled")

2991− <*> (o .:? "deviceSettingsEnabled"))

3016+ <*> (o .:? "deviceSettingsEnabled")

3017+ <*> (o .:? "applicationReportingSettings"))

29923018

29933019instance ToJSON StatusReportingSettings where

29943020 toJSON StatusReportingSettings'{..}

@@ -3006,7 +3032,50 @@ instance ToJSON StatusReportingSettings where

30063032 ("memoryInfoEnabled" .=) <$> _srsMemoryInfoEnabled,

30073033 ("networkInfoEnabled" .=) <$> _srsNetworkInfoEnabled,

30083034 ("deviceSettingsEnabled" .=) <$>

3009− _srsDeviceSettingsEnabled])

3035+ _srsDeviceSettingsEnabled,

3036+ ("applicationReportingSettings" .=) <$>

3037+ _srsApplicationReportingSettings])

3038+

3039+-- | An icon for a web app. Supported formats are: png, jpg and webp.

3040+--

3041+-- /See:/ 'webAppIcon' smart constructor.

3042+newtype WebAppIcon =

3043+ WebAppIcon'

3044+ { _waiImageData :: Maybe Text

3045+ }

3046+ deriving (Eq, Show, Data, Typeable, Generic)

3047+

3048+

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

3050+--

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

3052+--

3053+-- * 'waiImageData'

3054+webAppIcon

3055+ :: WebAppIcon

3056+webAppIcon = WebAppIcon' {_waiImageData = Nothing}

3057+

3058+

3059+-- | The actual bytes of the image in a base64url encoded string (c.f.

3060+-- RFC4648, section 5 \"Base 64 Encoding with URL and Filename Safe

3061+-- Alphabet\").

3062+--

3063+-- - The image type can be png or jpg.

3064+-- - The image should ideally be square.

3065+-- - The image should ideally have a size of 512x512.

3066+waiImageData :: Lens' WebAppIcon (Maybe Text)

3067+waiImageData

3068+ = lens _waiImageData (\ s a -> s{_waiImageData = a})

3069+

3070+instance FromJSON WebAppIcon where

3071+ parseJSON

3072+ = withObject "WebAppIcon"

3073+ (\ o -> WebAppIcon' <$> (o .:? "imageData"))

3074+

3075+instance ToJSON WebAppIcon where

3076+ toJSON WebAppIcon'{..}

3077+ = object

3078+ (catMaybes [("imageData" .=) <$> _waiImageData])

30103079

30113080-- | Policy for an individual app.

30123081--

@@ -4966,6 +5035,109 @@ instance ToJSON NonComplianceDetailCondition where

49665035 _ncdcNonComplianceReason,

49675036 ("settingName" .=) <$> _ncdcSettingName])

49685037

5038+-- | Keyed app state reported by the app.

5039+--

5040+-- /See:/ 'keyedAppState' smart constructor.

5041+data KeyedAppState =

5042+ KeyedAppState'

5043+ { _kasData :: !(Maybe Text)

5044+ , _kasSeverity :: !(Maybe KeyedAppStateSeverity)

5045+ , _kasKey :: !(Maybe Text)

5046+ , _kasMessage :: !(Maybe Text)

5047+ , _kasLastUpdateTime :: !(Maybe DateTime')

5048+ , _kasCreateTime :: !(Maybe DateTime')

5049+ }

5050+ deriving (Eq, Show, Data, Typeable, Generic)

5051+

5052+

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

5054+--

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

5056+--

5057+-- * 'kasData'

5058+--

5059+-- * 'kasSeverity'

5060+--

5061+-- * 'kasKey'

5062+--

5063+-- * 'kasMessage'

5064+--

5065+-- * 'kasLastUpdateTime'

5066+--

5067+-- * 'kasCreateTime'

5068+keyedAppState

5069+ :: KeyedAppState

5070+keyedAppState =

5071+ KeyedAppState'

5072+ { _kasData = Nothing

5073+ , _kasSeverity = Nothing

5074+ , _kasKey = Nothing

5075+ , _kasMessage = Nothing

5076+ , _kasLastUpdateTime = Nothing

5077+ , _kasCreateTime = Nothing

5078+ }

5079+

5080+

5081+-- | Optionally, a machine-readable value to be read by the EMM. For example,

5082+-- setting values that the admin can choose to query against in the EMM

5083+-- console (e.g. “notify me if the battery_warning data \< 10”).

5084+kasData :: Lens' KeyedAppState (Maybe Text)

5085+kasData = lens _kasData (\ s a -> s{_kasData = a})

5086+

5087+-- | The severity of the app state.

5088+kasSeverity :: Lens' KeyedAppState (Maybe KeyedAppStateSeverity)

5089+kasSeverity

5090+ = lens _kasSeverity (\ s a -> s{_kasSeverity = a})

5091+

5092+-- | The key for the app state. Acts as a point of reference for what the app

5093+-- is providing state for. For example, when providing managed

5094+-- configuration feedback, this key could be the managed configuration key.

5095+kasKey :: Lens' KeyedAppState (Maybe Text)

5096+kasKey = lens _kasKey (\ s a -> s{_kasKey = a})

5097+

5098+-- | Optionally, a free-form message string to explain the app state. If the

5099+-- state was triggered by a particular value (e.g. a managed configuration

5100+-- value), it should be included in the message.

5101+kasMessage :: Lens' KeyedAppState (Maybe Text)

5102+kasMessage

5103+ = lens _kasMessage (\ s a -> s{_kasMessage = a})

5104+

5105+-- | The time the app state was most recently updated.

5106+kasLastUpdateTime :: Lens' KeyedAppState (Maybe UTCTime)

5107+kasLastUpdateTime

5108+ = lens _kasLastUpdateTime

5109+ (\ s a -> s{_kasLastUpdateTime = a})

5110+ . mapping _DateTime

5111+

5112+-- | The creation time of the app state on the device.

5113+kasCreateTime :: Lens' KeyedAppState (Maybe UTCTime)

5114+kasCreateTime

5115+ = lens _kasCreateTime

5116+ (\ s a -> s{_kasCreateTime = a})

5117+ . mapping _DateTime

5118+

5119+instance FromJSON KeyedAppState where

5120+ parseJSON

5121+ = withObject "KeyedAppState"

5122+ (\ o ->

5123+ KeyedAppState' <$>

5124+ (o .:? "data") <*> (o .:? "severity") <*>

5125+ (o .:? "key")

5126+ <*> (o .:? "message")

5127+ <*> (o .:? "lastUpdateTime")

5128+ <*> (o .:? "createTime"))

5129+

5130+instance ToJSON KeyedAppState where

5131+ toJSON KeyedAppState'{..}

5132+ = object

5133+ (catMaybes

5134+ [("data" .=) <$> _kasData,

5135+ ("severity" .=) <$> _kasSeverity,

5136+ ("key" .=) <$> _kasKey,

5137+ ("message" .=) <$> _kasMessage,

5138+ ("lastUpdateTime" .=) <$> _kasLastUpdateTime,

5139+ ("createTime" .=) <$> _kasCreateTime])

5140+

49695141-- | Service-specific metadata associated with the operation. It typically

49705142-- contains progress information and common metadata such as create time.

49715143-- Some services might not provide such metadata. Any method that returns a

@@ -5177,6 +5349,58 @@ instance ToJSON ComplianceRule where

51775349 ("nonComplianceDetailCondition" .=) <$>

51785350 _crNonComplianceDetailCondition])

51795351

5352+-- | Response to a request to list web apps for a given enterprise.

5353+--

5354+-- /See:/ 'listWebAppsResponse' smart constructor.

5355+data ListWebAppsResponse =

5356+ ListWebAppsResponse'

5357+ { _lwarNextPageToken :: !(Maybe Text)

5358+ , _lwarWebApps :: !(Maybe [WebApp])

5359+ }

5360+ deriving (Eq, Show, Data, Typeable, Generic)

5361+

5362+

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

5364+--

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

5366+--

5367+-- * 'lwarNextPageToken'

5368+--

5369+-- * 'lwarWebApps'

5370+listWebAppsResponse

5371+ :: ListWebAppsResponse

5372+listWebAppsResponse =

5373+ ListWebAppsResponse' {_lwarNextPageToken = Nothing, _lwarWebApps = Nothing}

5374+

5375+

5376+-- | If there are more results, a token to retrieve next page of results.

5377+lwarNextPageToken :: Lens' ListWebAppsResponse (Maybe Text)

5378+lwarNextPageToken

5379+ = lens _lwarNextPageToken

5380+ (\ s a -> s{_lwarNextPageToken = a})

5381+

5382+-- | The list of web apps.

5383+lwarWebApps :: Lens' ListWebAppsResponse [WebApp]

5384+lwarWebApps

5385+ = lens _lwarWebApps (\ s a -> s{_lwarWebApps = a}) .

5386+ _Default

5387+ . _Coerce

5388+

5389+instance FromJSON ListWebAppsResponse where

5390+ parseJSON

5391+ = withObject "ListWebAppsResponse"

5392+ (\ o ->

5393+ ListWebAppsResponse' <$>

5394+ (o .:? "nextPageToken") <*>

5395+ (o .:? "webApps" .!= mempty))

5396+

5397+instance ToJSON ListWebAppsResponse where

5398+ toJSON ListWebAppsResponse'{..}

5399+ = object

5400+ (catMaybes

5401+ [("nextPageToken" .=) <$> _lwarNextPageToken,

5402+ ("webApps" .=) <$> _lwarWebApps])

5403+

51805404-- | Requirements for the password used to unlock a device.

51815405--

51825406-- /See:/ 'passwordRequirements' smart constructor.

@@ -5856,6 +6080,47 @@ instance ToJSON SoftwareInfo where

58566080 ("androidBuildNumber" .=) <$> _siAndroidBuildNumber,

58576081 ("androidVersion" .=) <$> _siAndroidVersion])

58586082

6083+-- | Settings controlling the behavior of application reports.

6084+--

6085+-- /See:/ 'applicationReportingSettings' smart constructor.

6086+newtype ApplicationReportingSettings =

6087+ ApplicationReportingSettings'

6088+ { _arsIncludeRemovedApps :: Maybe Bool

6089+ }

6090+ deriving (Eq, Show, Data, Typeable, Generic)

6091+

6092+

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

6094+--

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

6096+--

6097+-- * 'arsIncludeRemovedApps'

6098+applicationReportingSettings

6099+ :: ApplicationReportingSettings

6100+applicationReportingSettings =

6101+ ApplicationReportingSettings' {_arsIncludeRemovedApps = Nothing}

6102+

6103+

6104+-- | Whether removed apps are included in application reports.

6105+arsIncludeRemovedApps :: Lens' ApplicationReportingSettings (Maybe Bool)

6106+arsIncludeRemovedApps

6107+ = lens _arsIncludeRemovedApps

6108+ (\ s a -> s{_arsIncludeRemovedApps = a})

6109+

6110+instance FromJSON ApplicationReportingSettings where

6111+ parseJSON

6112+ = withObject "ApplicationReportingSettings"

6113+ (\ o ->

6114+ ApplicationReportingSettings' <$>

6115+ (o .:? "includeRemovedApps"))

6116+

6117+instance ToJSON ApplicationReportingSettings where

6118+ toJSON ApplicationReportingSettings'{..}

6119+ = object

6120+ (catMaybes

6121+ [("includeRemovedApps" .=) <$>

6122+ _arsIncludeRemovedApps])

6123+

58596124-- | A permission required by the app.

58606125--

58616126-- /See:/ 'applicationPermission' smart constructor.

@@ -5975,3 +6240,107 @@ instance ToJSON SetupAction where

59756240 [("launchApp" .=) <$> _saLaunchApp,

59766241 ("title" .=) <$> _saTitle,

59776242 ("description" .=) <$> _saDescription])

6243+

6244+-- | A web app.

6245+--

6246+-- /See:/ 'webApp' smart constructor.

6247+data WebApp =

6248+ WebApp'

6249+ { _waVersionCode :: !(Maybe (Textual Int64))

6250+ , _waIcons :: !(Maybe [WebAppIcon])

6251+ , _waStartURL :: !(Maybe Text)

6252+ , _waDisplayMode :: !(Maybe WebAppDisplayMode)

6253+ , _waName :: !(Maybe Text)

6254+ , _waTitle :: !(Maybe Text)

6255+ }

6256+ deriving (Eq, Show, Data, Typeable, Generic)

6257+

6258+

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

6260+--

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

6262+--

6263+-- * 'waVersionCode'

6264+--

6265+-- * 'waIcons'

6266+--

6267+-- * 'waStartURL'

6268+--

6269+-- * 'waDisplayMode'

6270+--

6271+-- * 'waName'

6272+--

6273+-- * 'waTitle'

6274+webApp

6275+ :: WebApp

6276+webApp =

6277+ WebApp'

6278+ { _waVersionCode = Nothing

6279+ , _waIcons = Nothing

6280+ , _waStartURL = Nothing

6281+ , _waDisplayMode = Nothing

6282+ , _waName = Nothing

6283+ , _waTitle = Nothing

6284+ }

6285+

6286+

6287+-- | The current version of the app.

6288+--

6289+-- Note that the version can automatically increase during the lifetime of

6290+-- the web app, while Google does internal housekeeping to keep the web app

6291+-- up-to-date.

6292+waVersionCode :: Lens' WebApp (Maybe Int64)

6293+waVersionCode

6294+ = lens _waVersionCode

6295+ (\ s a -> s{_waVersionCode = a})

6296+ . mapping _Coerce

6297+

6298+-- | A list of icons for the web app. Must have at least one element.

6299+waIcons :: Lens' WebApp [WebAppIcon]

6300+waIcons

6301+ = lens _waIcons (\ s a -> s{_waIcons = a}) . _Default

6302+ . _Coerce

6303+

6304+-- | The start URL, i.e. the URL that should load when the user opens the

6305+-- application.

6306+waStartURL :: Lens' WebApp (Maybe Text)

6307+waStartURL

6308+ = lens _waStartURL (\ s a -> s{_waStartURL = a})

6309+

6310+-- | The display mode of the web app.

6311+waDisplayMode :: Lens' WebApp (Maybe WebAppDisplayMode)

6312+waDisplayMode

6313+ = lens _waDisplayMode

6314+ (\ s a -> s{_waDisplayMode = a})

6315+

6316+-- | The name of the web app, which is generated by the server during

6317+-- creation in the form

6318+-- enterprises\/{enterpriseId}\/webApps\/{packageName}.

6319+waName :: Lens' WebApp (Maybe Text)

6320+waName = lens _waName (\ s a -> s{_waName = a})

6321+

6322+-- | The title of the web app as displayed to the user (e.g., amongst a list

6323+-- of other applications, or as a label for an icon).

6324+waTitle :: Lens' WebApp (Maybe Text)

6325+waTitle = lens _waTitle (\ s a -> s{_waTitle = a})

6326+

6327+instance FromJSON WebApp where

6328+ parseJSON

6329+ = withObject "WebApp"

6330+ (\ o ->

6331+ WebApp' <$>

6332+ (o .:? "versionCode") <*> (o .:? "icons" .!= mempty)

6333+ <*> (o .:? "startUrl")

6334+ <*> (o .:? "displayMode")

6335+ <*> (o .:? "name")

6336+ <*> (o .:? "title"))

6337+

6338+instance ToJSON WebApp where

6339+ toJSON WebApp'{..}

6340+ = object

6341+ (catMaybes

6342+ [("versionCode" .=) <$> _waVersionCode,

6343+ ("icons" .=) <$> _waIcons,

6344+ ("startUrl" .=) <$> _waStartURL,

6345+ ("displayMode" .=) <$> _waDisplayMode,

6346+ ("name" .=) <$> _waName, ("title" .=) <$> _waTitle])

gogol-androidmanagement/gen/Network/Google/AndroidManagement/Types/Sum.hs+80

@@ -380,6 +380,51 @@ instance FromJSON DeviceManagementMode where

380380instance ToJSON DeviceManagementMode where

381381 toJSON = toJSONText

382382

383+-- | The display mode of the web app.

384+data WebAppDisplayMode

385+ = DisplayModeUnspecified

386+ -- ^ @DISPLAY_MODE_UNSPECIFIED@

387+ -- Not used.

388+ | MinimalUi

389+ -- ^ @MINIMAL_UI@

390+ -- Opens the web app with a minimal set of browser UI elements for

391+ -- controlling navigation and viewing the page URL.

392+ | Standalone

393+ -- ^ @STANDALONE@

394+ -- Opens the web app to look and feel like a standalone native application.

395+ -- The browser UI elements and page URL are not visible, however the system

396+ -- status bar and back button are visible.

397+ | FullScreen

398+ -- ^ @FULL_SCREEN@

399+ -- Opens the web app in full screen without any visible controls. The

400+ -- browser UI elements, page URL, system status bar and back button are not

401+ -- visible, and the web app takes up the entirety of the available display

402+ -- area.

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

404+

405+instance Hashable WebAppDisplayMode

406+

407+instance FromHttpApiData WebAppDisplayMode where

408+ parseQueryParam = \case

409+ "DISPLAY_MODE_UNSPECIFIED" -> Right DisplayModeUnspecified

410+ "MINIMAL_UI" -> Right MinimalUi

411+ "STANDALONE" -> Right Standalone

412+ "FULL_SCREEN" -> Right FullScreen

413+ x -> Left ("Unable to parse WebAppDisplayMode from: " <> x)

414+

415+instance ToHttpApiData WebAppDisplayMode where

416+ toQueryParam = \case

417+ DisplayModeUnspecified -> "DISPLAY_MODE_UNSPECIFIED"

418+ MinimalUi -> "MINIMAL_UI"

419+ Standalone -> "STANDALONE"

420+ FullScreen -> "FULL_SCREEN"

421+

422+instance FromJSON WebAppDisplayMode where

423+ parseJSON = parseJSONText "WebAppDisplayMode"

424+

425+instance ToJSON WebAppDisplayMode where

426+ toJSON = toJSONText

427+

383428-- | The source of the package.

384429data ApplicationReportApplicationSource

385430 = ApplicationSourceUnspecified

@@ -1169,6 +1214,41 @@ instance FromJSON PolicyDefaultPermissionPolicy where

11691214instance ToJSON PolicyDefaultPermissionPolicy where

11701215 toJSON = toJSONText

11711216

1217+-- | The severity of the app state.

1218+data KeyedAppStateSeverity

1219+ = SeverityUnspecified

1220+ -- ^ @SEVERITY_UNSPECIFIED@

1221+ -- Unspecified severity level.

1222+ | Info

1223+ -- ^ @INFO@

1224+ -- Information severity level.

1225+ | Error'

1226+ -- ^ @ERROR@

1227+ -- Error severity level. This should only be set for genuine error

1228+ -- conditions that a management organization needs to take action to fix.

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

1230+

1231+instance Hashable KeyedAppStateSeverity

1232+

1233+instance FromHttpApiData KeyedAppStateSeverity where

1234+ parseQueryParam = \case

1235+ "SEVERITY_UNSPECIFIED" -> Right SeverityUnspecified

1236+ "INFO" -> Right Info

1237+ "ERROR" -> Right Error'

1238+ x -> Left ("Unable to parse KeyedAppStateSeverity from: " <> x)

1239+

1240+instance ToHttpApiData KeyedAppStateSeverity where

1241+ toQueryParam = \case

1242+ SeverityUnspecified -> "SEVERITY_UNSPECIFIED"

1243+ Info -> "INFO"

1244+ Error' -> "ERROR"

1245+

1246+instance FromJSON KeyedAppStateSeverity where

1247+ parseJSON = parseJSONText "KeyedAppStateSeverity"

1248+

1249+instance ToJSON KeyedAppStateSeverity where

1250+ toJSON = toJSONText

1251+

11721252-- | Application state.

11731253data ApplicationReportState

11741254 = ARSInstalled

gogol-androidmanagement/gen/Network/Google/Resource/AndroidManagement/Enterprises/WebApps/Create.hsnew file+164

@@ -0,0 +1,164 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AndroidManagement.Enterprises.WebApps.Create

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Creates a web app.

24+--

25+-- /See:/ <https://developers.google.com/android/management Android Management API Reference> for @androidmanagement.enterprises.webApps.create@.

26+module Network.Google.Resource.AndroidManagement.Enterprises.WebApps.Create

27+ (

28+ -- * REST Resource

29+ EnterprisesWebAppsCreateResource

30+

31+ -- * Creating a Request

32+ , enterprisesWebAppsCreate

33+ , EnterprisesWebAppsCreate

34+

35+ -- * Request Lenses

36+ , ewacParent

37+ , ewacXgafv

38+ , ewacUploadProtocol

39+ , ewacAccessToken

40+ , ewacUploadType

41+ , ewacPayload

42+ , ewacCallback

43+ ) where

44+

45+import Network.Google.AndroidManagement.Types

46+import Network.Google.Prelude

47+

48+-- | A resource alias for @androidmanagement.enterprises.webApps.create@ method which the

49+-- 'EnterprisesWebAppsCreate' request conforms to.

50+type EnterprisesWebAppsCreateResource =

51+ "v1" :>

52+ Capture "parent" Text :>

53+ "webApps" :>

54+ QueryParam "$.xgafv" Xgafv :>

55+ QueryParam "upload_protocol" Text :>

56+ QueryParam "access_token" Text :>

57+ QueryParam "uploadType" Text :>

58+ QueryParam "callback" Text :>

59+ QueryParam "alt" AltJSON :>

60+ ReqBody '[JSON] WebApp :> Post '[JSON] WebApp

61+

62+-- | Creates a web app.

63+--

64+-- /See:/ 'enterprisesWebAppsCreate' smart constructor.

65+data EnterprisesWebAppsCreate =

66+ EnterprisesWebAppsCreate'

67+ { _ewacParent :: !Text

68+ , _ewacXgafv :: !(Maybe Xgafv)

69+ , _ewacUploadProtocol :: !(Maybe Text)

70+ , _ewacAccessToken :: !(Maybe Text)

71+ , _ewacUploadType :: !(Maybe Text)

72+ , _ewacPayload :: !WebApp

73+ , _ewacCallback :: !(Maybe Text)

74+ }

75+ deriving (Eq, Show, Data, Typeable, Generic)

76+

77+

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

79+--

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

81+--

82+-- * 'ewacParent'

83+--

84+-- * 'ewacXgafv'

85+--

86+-- * 'ewacUploadProtocol'

87+--

88+-- * 'ewacAccessToken'

89+--

90+-- * 'ewacUploadType'

91+--

92+-- * 'ewacPayload'

93+--

94+-- * 'ewacCallback'

95+enterprisesWebAppsCreate

96+ :: Text -- ^ 'ewacParent'

97+ -> WebApp -- ^ 'ewacPayload'

98+ -> EnterprisesWebAppsCreate

99+enterprisesWebAppsCreate pEwacParent_ pEwacPayload_ =

100+ EnterprisesWebAppsCreate'

101+ { _ewacParent = pEwacParent_

102+ , _ewacXgafv = Nothing

103+ , _ewacUploadProtocol = Nothing

104+ , _ewacAccessToken = Nothing

105+ , _ewacUploadType = Nothing

106+ , _ewacPayload = pEwacPayload_

107+ , _ewacCallback = Nothing

108+ }

109+

110+

111+-- | The name of the enterprise in the form enterprises\/{enterpriseId}.

112+ewacParent :: Lens' EnterprisesWebAppsCreate Text

113+ewacParent

114+ = lens _ewacParent (\ s a -> s{_ewacParent = a})

115+

116+-- | V1 error format.

117+ewacXgafv :: Lens' EnterprisesWebAppsCreate (Maybe Xgafv)

118+ewacXgafv

119+ = lens _ewacXgafv (\ s a -> s{_ewacXgafv = a})

120+

121+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

122+ewacUploadProtocol :: Lens' EnterprisesWebAppsCreate (Maybe Text)

123+ewacUploadProtocol

124+ = lens _ewacUploadProtocol

125+ (\ s a -> s{_ewacUploadProtocol = a})

126+

127+-- | OAuth access token.

128+ewacAccessToken :: Lens' EnterprisesWebAppsCreate (Maybe Text)

129+ewacAccessToken

130+ = lens _ewacAccessToken

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

132+

133+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

134+ewacUploadType :: Lens' EnterprisesWebAppsCreate (Maybe Text)

135+ewacUploadType

136+ = lens _ewacUploadType

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

138+

139+-- | Multipart request metadata.

140+ewacPayload :: Lens' EnterprisesWebAppsCreate WebApp

141+ewacPayload

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

143+

144+-- | JSONP

145+ewacCallback :: Lens' EnterprisesWebAppsCreate (Maybe Text)

146+ewacCallback

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

148+

149+instance GoogleRequest EnterprisesWebAppsCreate where

150+ type Rs EnterprisesWebAppsCreate = WebApp

151+ type Scopes EnterprisesWebAppsCreate =

152+ '["https://www.googleapis.com/auth/androidmanagement"]

153+ requestClient EnterprisesWebAppsCreate'{..}

154+ = go _ewacParent _ewacXgafv _ewacUploadProtocol

155+ _ewacAccessToken

156+ _ewacUploadType

157+ _ewacCallback

158+ (Just AltJSON)

159+ _ewacPayload

160+ androidManagementService

161+ where go

162+ = buildClient

163+ (Proxy :: Proxy EnterprisesWebAppsCreateResource)

164+ mempty

gogol-androidmanagement/gen/Network/Google/Resource/AndroidManagement/Enterprises/WebApps/Delete.hsnew file+150

@@ -0,0 +1,150 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AndroidManagement.Enterprises.WebApps.Delete

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Deletes a web app.

24+--

25+-- /See:/ <https://developers.google.com/android/management Android Management API Reference> for @androidmanagement.enterprises.webApps.delete@.

26+module Network.Google.Resource.AndroidManagement.Enterprises.WebApps.Delete

27+ (

28+ -- * REST Resource

29+ EnterprisesWebAppsDeleteResource

30+

31+ -- * Creating a Request

32+ , enterprisesWebAppsDelete

33+ , EnterprisesWebAppsDelete

34+

35+ -- * Request Lenses

36+ , ewadXgafv

37+ , ewadUploadProtocol

38+ , ewadAccessToken

39+ , ewadUploadType

40+ , ewadName

41+ , ewadCallback

42+ ) where

43+

44+import Network.Google.AndroidManagement.Types

45+import Network.Google.Prelude

46+

47+-- | A resource alias for @androidmanagement.enterprises.webApps.delete@ method which the

48+-- 'EnterprisesWebAppsDelete' request conforms to.

49+type EnterprisesWebAppsDeleteResource =

50+ "v1" :>

51+ Capture "name" Text :>

52+ QueryParam "$.xgafv" Xgafv :>

53+ QueryParam "upload_protocol" Text :>

54+ QueryParam "access_token" Text :>

55+ QueryParam "uploadType" Text :>

56+ QueryParam "callback" Text :>

57+ QueryParam "alt" AltJSON :> Delete '[JSON] Empty

58+

59+-- | Deletes a web app.

60+--

61+-- /See:/ 'enterprisesWebAppsDelete' smart constructor.

62+data EnterprisesWebAppsDelete =

63+ EnterprisesWebAppsDelete'

64+ { _ewadXgafv :: !(Maybe Xgafv)

65+ , _ewadUploadProtocol :: !(Maybe Text)

66+ , _ewadAccessToken :: !(Maybe Text)

67+ , _ewadUploadType :: !(Maybe Text)

68+ , _ewadName :: !Text

69+ , _ewadCallback :: !(Maybe Text)

70+ }

71+ deriving (Eq, Show, Data, Typeable, Generic)

72+

73+

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

75+--

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

77+--

78+-- * 'ewadXgafv'

79+--

80+-- * 'ewadUploadProtocol'

81+--

82+-- * 'ewadAccessToken'

83+--

84+-- * 'ewadUploadType'

85+--

86+-- * 'ewadName'

87+--

88+-- * 'ewadCallback'

89+enterprisesWebAppsDelete

90+ :: Text -- ^ 'ewadName'

91+ -> EnterprisesWebAppsDelete

92+enterprisesWebAppsDelete pEwadName_ =

93+ EnterprisesWebAppsDelete'

94+ { _ewadXgafv = Nothing

95+ , _ewadUploadProtocol = Nothing

96+ , _ewadAccessToken = Nothing

97+ , _ewadUploadType = Nothing

98+ , _ewadName = pEwadName_

99+ , _ewadCallback = Nothing

100+ }

101+

102+

103+-- | V1 error format.

104+ewadXgafv :: Lens' EnterprisesWebAppsDelete (Maybe Xgafv)

105+ewadXgafv

106+ = lens _ewadXgafv (\ s a -> s{_ewadXgafv = a})

107+

108+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

109+ewadUploadProtocol :: Lens' EnterprisesWebAppsDelete (Maybe Text)

110+ewadUploadProtocol

111+ = lens _ewadUploadProtocol

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

113+

114+-- | OAuth access token.

115+ewadAccessToken :: Lens' EnterprisesWebAppsDelete (Maybe Text)

116+ewadAccessToken

117+ = lens _ewadAccessToken

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

119+

120+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

121+ewadUploadType :: Lens' EnterprisesWebAppsDelete (Maybe Text)

122+ewadUploadType

123+ = lens _ewadUploadType

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

125+

126+-- | The name of the web app in the form

127+-- enterprises\/{enterpriseId}\/webApps\/{packageName}.

128+ewadName :: Lens' EnterprisesWebAppsDelete Text

129+ewadName = lens _ewadName (\ s a -> s{_ewadName = a})

130+

131+-- | JSONP

132+ewadCallback :: Lens' EnterprisesWebAppsDelete (Maybe Text)

133+ewadCallback

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

135+

136+instance GoogleRequest EnterprisesWebAppsDelete where

137+ type Rs EnterprisesWebAppsDelete = Empty

138+ type Scopes EnterprisesWebAppsDelete =

139+ '["https://www.googleapis.com/auth/androidmanagement"]

140+ requestClient EnterprisesWebAppsDelete'{..}

141+ = go _ewadName _ewadXgafv _ewadUploadProtocol

142+ _ewadAccessToken

143+ _ewadUploadType

144+ _ewadCallback

145+ (Just AltJSON)

146+ androidManagementService

147+ where go

148+ = buildClient

149+ (Proxy :: Proxy EnterprisesWebAppsDeleteResource)

150+ mempty

gogol-androidmanagement/gen/Network/Google/Resource/AndroidManagement/Enterprises/WebApps/Get.hsnew file+150

@@ -0,0 +1,150 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AndroidManagement.Enterprises.WebApps.Get

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Gets a web app.

24+--

25+-- /See:/ <https://developers.google.com/android/management Android Management API Reference> for @androidmanagement.enterprises.webApps.get@.

26+module Network.Google.Resource.AndroidManagement.Enterprises.WebApps.Get

27+ (

28+ -- * REST Resource

29+ EnterprisesWebAppsGetResource

30+

31+ -- * Creating a Request

32+ , enterprisesWebAppsGet

33+ , EnterprisesWebAppsGet

34+

35+ -- * Request Lenses

36+ , ewagXgafv

37+ , ewagUploadProtocol

38+ , ewagAccessToken

39+ , ewagUploadType

40+ , ewagName

41+ , ewagCallback

42+ ) where

43+

44+import Network.Google.AndroidManagement.Types

45+import Network.Google.Prelude

46+

47+-- | A resource alias for @androidmanagement.enterprises.webApps.get@ method which the

48+-- 'EnterprisesWebAppsGet' request conforms to.

49+type EnterprisesWebAppsGetResource =

50+ "v1" :>

51+ Capture "name" Text :>

52+ QueryParam "$.xgafv" Xgafv :>

53+ QueryParam "upload_protocol" Text :>

54+ QueryParam "access_token" Text :>

55+ QueryParam "uploadType" Text :>

56+ QueryParam "callback" Text :>

57+ QueryParam "alt" AltJSON :> Get '[JSON] WebApp

58+

59+-- | Gets a web app.

60+--

61+-- /See:/ 'enterprisesWebAppsGet' smart constructor.

62+data EnterprisesWebAppsGet =

63+ EnterprisesWebAppsGet'

64+ { _ewagXgafv :: !(Maybe Xgafv)

65+ , _ewagUploadProtocol :: !(Maybe Text)

66+ , _ewagAccessToken :: !(Maybe Text)

67+ , _ewagUploadType :: !(Maybe Text)

68+ , _ewagName :: !Text

69+ , _ewagCallback :: !(Maybe Text)

70+ }

71+ deriving (Eq, Show, Data, Typeable, Generic)

72+

73+

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

75+--

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

77+--

78+-- * 'ewagXgafv'

79+--

80+-- * 'ewagUploadProtocol'

81+--

82+-- * 'ewagAccessToken'

83+--

84+-- * 'ewagUploadType'

85+--

86+-- * 'ewagName'

87+--

88+-- * 'ewagCallback'

89+enterprisesWebAppsGet

90+ :: Text -- ^ 'ewagName'

91+ -> EnterprisesWebAppsGet

92+enterprisesWebAppsGet pEwagName_ =

93+ EnterprisesWebAppsGet'

94+ { _ewagXgafv = Nothing

95+ , _ewagUploadProtocol = Nothing

96+ , _ewagAccessToken = Nothing

97+ , _ewagUploadType = Nothing

98+ , _ewagName = pEwagName_

99+ , _ewagCallback = Nothing

100+ }

101+

102+

103+-- | V1 error format.

104+ewagXgafv :: Lens' EnterprisesWebAppsGet (Maybe Xgafv)

105+ewagXgafv

106+ = lens _ewagXgafv (\ s a -> s{_ewagXgafv = a})

107+

108+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

109+ewagUploadProtocol :: Lens' EnterprisesWebAppsGet (Maybe Text)

110+ewagUploadProtocol

111+ = lens _ewagUploadProtocol

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

113+

114+-- | OAuth access token.

115+ewagAccessToken :: Lens' EnterprisesWebAppsGet (Maybe Text)

116+ewagAccessToken

117+ = lens _ewagAccessToken

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

119+

120+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

121+ewagUploadType :: Lens' EnterprisesWebAppsGet (Maybe Text)

122+ewagUploadType

123+ = lens _ewagUploadType

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

125+

126+-- | The name of the web app in the form

127+-- enterprises\/{enterpriseId}\/webApp\/{packageName}.

128+ewagName :: Lens' EnterprisesWebAppsGet Text

129+ewagName = lens _ewagName (\ s a -> s{_ewagName = a})

130+

131+-- | JSONP

132+ewagCallback :: Lens' EnterprisesWebAppsGet (Maybe Text)

133+ewagCallback

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

135+

136+instance GoogleRequest EnterprisesWebAppsGet where

137+ type Rs EnterprisesWebAppsGet = WebApp

138+ type Scopes EnterprisesWebAppsGet =

139+ '["https://www.googleapis.com/auth/androidmanagement"]

140+ requestClient EnterprisesWebAppsGet'{..}

141+ = go _ewagName _ewagXgafv _ewagUploadProtocol

142+ _ewagAccessToken

143+ _ewagUploadType

144+ _ewagCallback

145+ (Just AltJSON)

146+ androidManagementService

147+ where go

148+ = buildClient

149+ (Proxy :: Proxy EnterprisesWebAppsGetResource)

150+ mempty

gogol-androidmanagement/gen/Network/Google/Resource/AndroidManagement/Enterprises/WebApps/List.hsnew file+179

@@ -0,0 +1,179 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AndroidManagement.Enterprises.WebApps.List

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Lists web apps for a given enterprise.

24+--

25+-- /See:/ <https://developers.google.com/android/management Android Management API Reference> for @androidmanagement.enterprises.webApps.list@.

26+module Network.Google.Resource.AndroidManagement.Enterprises.WebApps.List

27+ (

28+ -- * REST Resource

29+ EnterprisesWebAppsListResource

30+

31+ -- * Creating a Request

32+ , enterprisesWebAppsList

33+ , EnterprisesWebAppsList

34+

35+ -- * Request Lenses

36+ , ewalParent

37+ , ewalXgafv

38+ , ewalUploadProtocol

39+ , ewalAccessToken

40+ , ewalUploadType

41+ , ewalPageToken

42+ , ewalPageSize

43+ , ewalCallback

44+ ) where

45+

46+import Network.Google.AndroidManagement.Types

47+import Network.Google.Prelude

48+

49+-- | A resource alias for @androidmanagement.enterprises.webApps.list@ method which the

50+-- 'EnterprisesWebAppsList' request conforms to.

51+type EnterprisesWebAppsListResource =

52+ "v1" :>

53+ Capture "parent" Text :>

54+ "webApps" :>

55+ QueryParam "$.xgafv" Xgafv :>

56+ QueryParam "upload_protocol" Text :>

57+ QueryParam "access_token" Text :>

58+ QueryParam "uploadType" Text :>

59+ QueryParam "pageToken" Text :>

60+ QueryParam "pageSize" (Textual Int32) :>

61+ QueryParam "callback" Text :>

62+ QueryParam "alt" AltJSON :>

63+ Get '[JSON] ListWebAppsResponse

64+

65+-- | Lists web apps for a given enterprise.

66+--

67+-- /See:/ 'enterprisesWebAppsList' smart constructor.

68+data EnterprisesWebAppsList =

69+ EnterprisesWebAppsList'

70+ { _ewalParent :: !Text

71+ , _ewalXgafv :: !(Maybe Xgafv)

72+ , _ewalUploadProtocol :: !(Maybe Text)

73+ , _ewalAccessToken :: !(Maybe Text)

74+ , _ewalUploadType :: !(Maybe Text)

75+ , _ewalPageToken :: !(Maybe Text)

76+ , _ewalPageSize :: !(Maybe (Textual Int32))

77+ , _ewalCallback :: !(Maybe Text)

78+ }

79+ deriving (Eq, Show, Data, Typeable, Generic)

80+

81+

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

83+--

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

85+--

86+-- * 'ewalParent'

87+--

88+-- * 'ewalXgafv'

89+--

90+-- * 'ewalUploadProtocol'

91+--

92+-- * 'ewalAccessToken'

93+--

94+-- * 'ewalUploadType'

95+--

96+-- * 'ewalPageToken'

97+--

98+-- * 'ewalPageSize'

99+--

100+-- * 'ewalCallback'

101+enterprisesWebAppsList

102+ :: Text -- ^ 'ewalParent'

103+ -> EnterprisesWebAppsList

104+enterprisesWebAppsList pEwalParent_ =

105+ EnterprisesWebAppsList'

106+ { _ewalParent = pEwalParent_

107+ , _ewalXgafv = Nothing

108+ , _ewalUploadProtocol = Nothing

109+ , _ewalAccessToken = Nothing

110+ , _ewalUploadType = Nothing

111+ , _ewalPageToken = Nothing

112+ , _ewalPageSize = Nothing

113+ , _ewalCallback = Nothing

114+ }

115+

116+

117+-- | The name of the enterprise in the form enterprises\/{enterpriseId}.

118+ewalParent :: Lens' EnterprisesWebAppsList Text

119+ewalParent

120+ = lens _ewalParent (\ s a -> s{_ewalParent = a})

121+

122+-- | V1 error format.

123+ewalXgafv :: Lens' EnterprisesWebAppsList (Maybe Xgafv)

124+ewalXgafv

125+ = lens _ewalXgafv (\ s a -> s{_ewalXgafv = a})

126+

127+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

128+ewalUploadProtocol :: Lens' EnterprisesWebAppsList (Maybe Text)

129+ewalUploadProtocol

130+ = lens _ewalUploadProtocol

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

132+

133+-- | OAuth access token.

134+ewalAccessToken :: Lens' EnterprisesWebAppsList (Maybe Text)

135+ewalAccessToken

136+ = lens _ewalAccessToken

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

138+

139+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

140+ewalUploadType :: Lens' EnterprisesWebAppsList (Maybe Text)

141+ewalUploadType

142+ = lens _ewalUploadType

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

144+

145+-- | A token identifying a page of results returned by the server.

146+ewalPageToken :: Lens' EnterprisesWebAppsList (Maybe Text)

147+ewalPageToken

148+ = lens _ewalPageToken

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

150+

151+-- | The requested page size. The actual page size may be fixed to a min or

152+-- max value.

153+ewalPageSize :: Lens' EnterprisesWebAppsList (Maybe Int32)

154+ewalPageSize

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

156+ . mapping _Coerce

157+

158+-- | JSONP

159+ewalCallback :: Lens' EnterprisesWebAppsList (Maybe Text)

160+ewalCallback

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

162+

163+instance GoogleRequest EnterprisesWebAppsList where

164+ type Rs EnterprisesWebAppsList = ListWebAppsResponse

165+ type Scopes EnterprisesWebAppsList =

166+ '["https://www.googleapis.com/auth/androidmanagement"]

167+ requestClient EnterprisesWebAppsList'{..}

168+ = go _ewalParent _ewalXgafv _ewalUploadProtocol

169+ _ewalAccessToken

170+ _ewalUploadType

171+ _ewalPageToken

172+ _ewalPageSize

173+ _ewalCallback

174+ (Just AltJSON)

175+ androidManagementService

176+ where go

177+ = buildClient

178+ (Proxy :: Proxy EnterprisesWebAppsListResource)

179+ mempty

gogol-androidmanagement/gen/Network/Google/Resource/AndroidManagement/Enterprises/WebApps/Patch.hsnew file+177

@@ -0,0 +1,177 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.AndroidManagement.Enterprises.WebApps.Patch

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Updates a web app.

24+--

25+-- /See:/ <https://developers.google.com/android/management Android Management API Reference> for @androidmanagement.enterprises.webApps.patch@.

26+module Network.Google.Resource.AndroidManagement.Enterprises.WebApps.Patch

27+ (

28+ -- * REST Resource

29+ EnterprisesWebAppsPatchResource

30+

31+ -- * Creating a Request

32+ , enterprisesWebAppsPatch

33+ , EnterprisesWebAppsPatch

34+

35+ -- * Request Lenses

36+ , ewapXgafv

37+ , ewapUploadProtocol

38+ , ewapUpdateMask

39+ , ewapAccessToken

40+ , ewapUploadType

41+ , ewapPayload

42+ , ewapName

43+ , ewapCallback

44+ ) where

45+

46+import Network.Google.AndroidManagement.Types

47+import Network.Google.Prelude

48+

49+-- | A resource alias for @androidmanagement.enterprises.webApps.patch@ method which the

50+-- 'EnterprisesWebAppsPatch' request conforms to.

51+type EnterprisesWebAppsPatchResource =

52+ "v1" :>

53+ Capture "name" Text :>

54+ QueryParam "$.xgafv" Xgafv :>

55+ QueryParam "upload_protocol" Text :>

56+ QueryParam "updateMask" GFieldMask :>

57+ QueryParam "access_token" Text :>

58+ QueryParam "uploadType" Text :>

59+ QueryParam "callback" Text :>

60+ QueryParam "alt" AltJSON :>

61+ ReqBody '[JSON] WebApp :> Patch '[JSON] WebApp

62+

63+-- | Updates a web app.

64+--

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

66+data EnterprisesWebAppsPatch =

67+ EnterprisesWebAppsPatch'

68+ { _ewapXgafv :: !(Maybe Xgafv)

69+ , _ewapUploadProtocol :: !(Maybe Text)

70+ , _ewapUpdateMask :: !(Maybe GFieldMask)

71+ , _ewapAccessToken :: !(Maybe Text)

72+ , _ewapUploadType :: !(Maybe Text)

73+ , _ewapPayload :: !WebApp

74+ , _ewapName :: !Text

75+ , _ewapCallback :: !(Maybe Text)

76+ }

77+ deriving (Eq, Show, Data, Typeable, Generic)

78+

79+

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

81+--

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

83+--

84+-- * 'ewapXgafv'

85+--

86+-- * 'ewapUploadProtocol'

87+--

88+-- * 'ewapUpdateMask'

89+--

90+-- * 'ewapAccessToken'

91+--

92+-- * 'ewapUploadType'

93+--

94+-- * 'ewapPayload'

95+--

96+-- * 'ewapName'

97+--

98+-- * 'ewapCallback'

99+enterprisesWebAppsPatch

100+ :: WebApp -- ^ 'ewapPayload'

101+ -> Text -- ^ 'ewapName'

102+ -> EnterprisesWebAppsPatch

103+enterprisesWebAppsPatch pEwapPayload_ pEwapName_ =

104+ EnterprisesWebAppsPatch'

105+ { _ewapXgafv = Nothing

106+ , _ewapUploadProtocol = Nothing

107+ , _ewapUpdateMask = Nothing

108+ , _ewapAccessToken = Nothing

109+ , _ewapUploadType = Nothing

110+ , _ewapPayload = pEwapPayload_

111+ , _ewapName = pEwapName_

112+ , _ewapCallback = Nothing

113+ }

114+

115+

116+-- | V1 error format.

117+ewapXgafv :: Lens' EnterprisesWebAppsPatch (Maybe Xgafv)

118+ewapXgafv

119+ = lens _ewapXgafv (\ s a -> s{_ewapXgafv = a})

120+

121+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

122+ewapUploadProtocol :: Lens' EnterprisesWebAppsPatch (Maybe Text)

123+ewapUploadProtocol

124+ = lens _ewapUploadProtocol

125+ (\ s a -> s{_ewapUploadProtocol = a})

126+

127+-- | The field mask indicating the fields to update. If not set, all

128+-- modifiable fields will be modified.

129+ewapUpdateMask :: Lens' EnterprisesWebAppsPatch (Maybe GFieldMask)

130+ewapUpdateMask

131+ = lens _ewapUpdateMask

132+ (\ s a -> s{_ewapUpdateMask = a})

133+

134+-- | OAuth access token.

135+ewapAccessToken :: Lens' EnterprisesWebAppsPatch (Maybe Text)

136+ewapAccessToken

137+ = lens _ewapAccessToken

138+ (\ s a -> s{_ewapAccessToken = a})

139+

140+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

141+ewapUploadType :: Lens' EnterprisesWebAppsPatch (Maybe Text)

142+ewapUploadType

143+ = lens _ewapUploadType

144+ (\ s a -> s{_ewapUploadType = a})

145+

146+-- | Multipart request metadata.

147+ewapPayload :: Lens' EnterprisesWebAppsPatch WebApp

148+ewapPayload

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

150+

151+-- | The name of the web app in the form

152+-- enterprises\/{enterpriseId}\/webApps\/{packageName}.

153+ewapName :: Lens' EnterprisesWebAppsPatch Text

154+ewapName = lens _ewapName (\ s a -> s{_ewapName = a})

155+

156+-- | JSONP

157+ewapCallback :: Lens' EnterprisesWebAppsPatch (Maybe Text)

158+ewapCallback

159+ = lens _ewapCallback (\ s a -> s{_ewapCallback = a})

160+

161+instance GoogleRequest EnterprisesWebAppsPatch where

162+ type Rs EnterprisesWebAppsPatch = WebApp

163+ type Scopes EnterprisesWebAppsPatch =

164+ '["https://www.googleapis.com/auth/androidmanagement"]

165+ requestClient EnterprisesWebAppsPatch'{..}

166+ = go _ewapName _ewapXgafv _ewapUploadProtocol

167+ _ewapUpdateMask

168+ _ewapAccessToken

169+ _ewapUploadType

170+ _ewapCallback

171+ (Just AltJSON)

172+ _ewapPayload

173+ androidManagementService

174+ where go

175+ = buildClient

176+ (Proxy :: Proxy EnterprisesWebAppsPatchResource)

177+ mempty

gogol-androidmanagement/gogol-androidmanagement.cabal+5

@@ -55,6 +55,11 @@ library

5555 , Network.Google.Resource.AndroidManagement.Enterprises.Policies.Get

5656 , Network.Google.Resource.AndroidManagement.Enterprises.Policies.List

5757 , Network.Google.Resource.AndroidManagement.Enterprises.Policies.Patch

58+ , Network.Google.Resource.AndroidManagement.Enterprises.WebApps.Create

59+ , Network.Google.Resource.AndroidManagement.Enterprises.WebApps.Delete

60+ , Network.Google.Resource.AndroidManagement.Enterprises.WebApps.Get

61+ , Network.Google.Resource.AndroidManagement.Enterprises.WebApps.List

62+ , Network.Google.Resource.AndroidManagement.Enterprises.WebApps.Patch

5863 , Network.Google.Resource.AndroidManagement.Enterprises.WebTokens.Create

5964 , Network.Google.Resource.AndroidManagement.SignupURLs.Create

6065

gogol-appengine/gen/Network/Google/AppEngine.hs+8−20

@@ -171,11 +171,6 @@ module Network.Google.AppEngine

171171 , sCode

172172 , sMessage

173173

174− -- ** OperationSchema

175− , OperationSchema

176− , operationSchema

177− , osAddtional

178−

179174 -- ** LocationSchema

180175 , LocationSchema

181176 , locationSchema

@@ -273,6 +268,11 @@ module Network.Google.AppEngine

273268 , acExpireTime

274269 , acVisibleDomainMAppings

275270

271+ -- ** VPCAccessConnector

272+ , VPCAccessConnector

273+ , vpcAccessConnector

274+ , vacName

275+

276276 -- ** APIConfigHandler

277277 , APIConfigHandler

278278 , apiConfigHandler

@@ -432,15 +432,6 @@ module Network.Google.AppEngine

432432 , asMaxPendingLatency

433433 , asStandardSchedulerSettings

434434

435− -- ** OperationMetadataV1Beta5

436− , OperationMetadataV1Beta5

437− , operationMetadataV1Beta5

438− , oInsertTime

439− , oUser

440− , oMethod

441− , oEndTime

442− , oTarget

443−

444435 -- ** Volume

445436 , Volume

446437 , volume

@@ -513,6 +504,7 @@ module Network.Google.AppEngine

513504 -- ** FeatureSettings

514505 , FeatureSettings

515506 , featureSettings

507+ , fsUseContainerOptimizedOS

516508 , fsSplitHealthChecks

517509

518510 -- ** CertificateRawData

@@ -601,6 +593,7 @@ module Network.Google.AppEngine

601593 , verInstanceClass

602594 , verRuntimeChannel

603595 , verRuntimeMainExecutablePath

596+ , verVPCAccessConnector

604597 , verHealthCheck

605598 , verEndpointsAPIService

606599 , verEnv

@@ -696,12 +689,7 @@ module Network.Google.AppEngine

696689 -- ** OperationMetadata

697690 , OperationMetadata

698691 , operationMetadata

699− , omInsertTime

700− , omUser

701− , omMethod

702− , omEndTime

703− , omOperationType

704− , omTarget

692+ , omAddtional

705693

706694 -- ** URLMapAuthFailAction

707695 , URLMapAuthFailAction (..)

gogol-appengine/gen/Network/Google/AppEngine/Types.hs+8−20

@@ -48,11 +48,6 @@ module Network.Google.AppEngine.Types

4848 , sCode

4949 , sMessage

5050

51− -- * OperationSchema

52− , OperationSchema

53− , operationSchema

54− , osAddtional

55−

5651 -- * LocationSchema

5752 , LocationSchema

5853 , locationSchema

@@ -150,6 +145,11 @@ module Network.Google.AppEngine.Types

150145 , acExpireTime

151146 , acVisibleDomainMAppings

152147

148+ -- * VPCAccessConnector

149+ , VPCAccessConnector

150+ , vpcAccessConnector

151+ , vacName

152+

153153 -- * APIConfigHandler

154154 , APIConfigHandler

155155 , apiConfigHandler

@@ -309,15 +309,6 @@ module Network.Google.AppEngine.Types

309309 , asMaxPendingLatency

310310 , asStandardSchedulerSettings

311311

312− -- * OperationMetadataV1Beta5

313− , OperationMetadataV1Beta5

314− , operationMetadataV1Beta5

315− , oInsertTime

316− , oUser

317− , oMethod

318− , oEndTime

319− , oTarget

320−

321312 -- * Volume

322313 , Volume

323314 , volume

@@ -390,6 +381,7 @@ module Network.Google.AppEngine.Types

390381 -- * FeatureSettings

391382 , FeatureSettings

392383 , featureSettings

384+ , fsUseContainerOptimizedOS

393385 , fsSplitHealthChecks

394386

395387 -- * CertificateRawData

@@ -478,6 +470,7 @@ module Network.Google.AppEngine.Types

478470 , verInstanceClass

479471 , verRuntimeChannel

480472 , verRuntimeMainExecutablePath

473+ , verVPCAccessConnector

481474 , verHealthCheck

482475 , verEndpointsAPIService

483476 , verEnv

@@ -573,12 +566,7 @@ module Network.Google.AppEngine.Types

573566 -- * OperationMetadata

574567 , OperationMetadata

575568 , operationMetadata

576− , omInsertTime

577− , omUser

578− , omMethod

579− , omEndTime

580− , omOperationType

581− , omTarget

569+ , omAddtional

582570

583571 -- * URLMapAuthFailAction

584572 , URLMapAuthFailAction (..)

gogol-appengine/gen/Network/Google/AppEngine/Types/Product.hs+89−207

@@ -202,45 +202,6 @@ instance ToJSON Status where

202202 ("code" .=) <$> _sCode,

203203 ("message" .=) <$> _sMessage])

204204

205−-- | Service-specific metadata associated with the operation. It typically

206−-- contains progress information and common metadata such as create time.

207−-- Some services might not provide such metadata. Any method that returns a

208−-- long-running operation should document the metadata type, if any.

209−--

210−-- /See:/ 'operationSchema' smart constructor.

211−newtype OperationSchema =

212− OperationSchema'

213− { _osAddtional :: HashMap Text JSONValue

214− }

215− deriving (Eq, Show, Data, Typeable, Generic)

216−

217−

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

219−--

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

221−--

222−-- * 'osAddtional'

223−operationSchema

224− :: HashMap Text JSONValue -- ^ 'osAddtional'

225− -> OperationSchema

226−operationSchema pOsAddtional_ =

227− OperationSchema' {_osAddtional = _Coerce # pOsAddtional_}

228−

229−

230−-- | Properties of the object. Contains field \'type with type URL.

231−osAddtional :: Lens' OperationSchema (HashMap Text JSONValue)

232−osAddtional

233− = lens _osAddtional (\ s a -> s{_osAddtional = a}) .

234− _Coerce

235−

236−instance FromJSON OperationSchema where

237− parseJSON

238− = withObject "OperationSchema"

239− (\ o -> OperationSchema' <$> (parseJSONObject o))

240−

241−instance ToJSON OperationSchema where

242− toJSON = toJSON . _osAddtional

243−

244205-- | Service-specific metadata. For example the available capacity at the

245206-- given location.

246207--

@@ -1184,6 +1145,40 @@ instance ToJSON AuthorizedCertificate where

11841145 ("visibleDomainMappings" .=) <$>

11851146 _acVisibleDomainMAppings])

11861147

1148+-- | VPC access connector specification.

1149+--

1150+-- /See:/ 'vpcAccessConnector' smart constructor.

1151+newtype VPCAccessConnector =

1152+ VPCAccessConnector'

1153+ { _vacName :: Maybe Text

1154+ }

1155+ deriving (Eq, Show, Data, Typeable, Generic)

1156+

1157+

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

1159+--

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

1161+--

1162+-- * 'vacName'

1163+vpcAccessConnector

1164+ :: VPCAccessConnector

1165+vpcAccessConnector = VPCAccessConnector' {_vacName = Nothing}

1166+

1167+

1168+-- | Full Serverless VPC Access Connector name e.g.

1169+-- \/projects\/my-project\/locations\/us-central1\/connectors\/c1.

1170+vacName :: Lens' VPCAccessConnector (Maybe Text)

1171+vacName = lens _vacName (\ s a -> s{_vacName = a})

1172+

1173+instance FromJSON VPCAccessConnector where

1174+ parseJSON

1175+ = withObject "VPCAccessConnector"

1176+ (\ o -> VPCAccessConnector' <$> (o .:? "name"))

1177+

1178+instance ToJSON VPCAccessConnector where

1179+ toJSON VPCAccessConnector'{..}

1180+ = object (catMaybes [("name" .=) <$> _vacName])

1181+

11871182-- | Google Cloud Endpoints

11881183-- (https:\/\/cloud.google.com\/appengine\/docs\/python\/endpoints\/)

11891184-- configuration for API handlers.

@@ -1792,7 +1787,7 @@ data Operation =

17921787 , _oError :: !(Maybe Status)

17931788 , _oResponse :: !(Maybe OperationResponse)

17941789 , _oName :: !(Maybe Text)

1795− , _oMetadata :: !(Maybe OperationSchema)

1790+ , _oMetadata :: !(Maybe OperationMetadata)

17961791 }

17971792 deriving (Eq, Show, Data, Typeable, Generic)

17981793

@@ -1853,7 +1848,7 @@ oName = lens _oName (\ s a -> s{_oName = a})

18531848-- contains progress information and common metadata such as create time.

18541849-- Some services might not provide such metadata. Any method that returns a

18551850-- long-running operation should document the metadata type, if any.

1856−oMetadata :: Lens' Operation (Maybe OperationSchema)

1851+oMetadata :: Lens' Operation (Maybe OperationMetadata)

18571852oMetadata

18581853 = lens _oMetadata (\ s a -> s{_oMetadata = a})

18591854

@@ -2650,90 +2645,6 @@ instance ToJSON AutomaticScaling where

26502645 ("standardSchedulerSettings" .=) <$>

26512646 _asStandardSchedulerSettings])

26522647

2653−-- | Metadata for the given google.longrunning.Operation.

2654−--

2655−-- /See:/ 'operationMetadataV1Beta5' smart constructor.

2656−data OperationMetadataV1Beta5 =

2657− OperationMetadataV1Beta5'

2658− { _oInsertTime :: !(Maybe DateTime')

2659− , _oUser :: !(Maybe Text)

2660− , _oMethod :: !(Maybe Text)

2661− , _oEndTime :: !(Maybe DateTime')

2662− , _oTarget :: !(Maybe Text)

2663− }

2664− deriving (Eq, Show, Data, Typeable, Generic)

2665−

2666−

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

2668−--

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

2670−--

2671−-- * 'oInsertTime'

2672−--

2673−-- * 'oUser'

2674−--

2675−-- * 'oMethod'

2676−--

2677−-- * 'oEndTime'

2678−--

2679−-- * 'oTarget'

2680−operationMetadataV1Beta5

2681− :: OperationMetadataV1Beta5

2682−operationMetadataV1Beta5 =

2683− OperationMetadataV1Beta5'

2684− { _oInsertTime = Nothing

2685− , _oUser = Nothing

2686− , _oMethod = Nothing

2687− , _oEndTime = Nothing

2688− , _oTarget = Nothing

2689− }

2690−

2691−

2692−-- | Timestamp that this operation was created.\'OutputOnly

2693−oInsertTime :: Lens' OperationMetadataV1Beta5 (Maybe UTCTime)

2694−oInsertTime

2695− = lens _oInsertTime (\ s a -> s{_oInsertTime = a}) .

2696− mapping _DateTime

2697−

2698−-- | User who requested this operation.\'OutputOnly

2699−oUser :: Lens' OperationMetadataV1Beta5 (Maybe Text)

2700−oUser = lens _oUser (\ s a -> s{_oUser = a})

2701−

2702−-- | API method name that initiated this operation. Example:

2703−-- google.appengine.v1beta5.Version.CreateVersion.\'OutputOnly

2704−oMethod :: Lens' OperationMetadataV1Beta5 (Maybe Text)

2705−oMethod = lens _oMethod (\ s a -> s{_oMethod = a})

2706−

2707−-- | Timestamp that this operation completed.\'OutputOnly

2708−oEndTime :: Lens' OperationMetadataV1Beta5 (Maybe UTCTime)

2709−oEndTime

2710− = lens _oEndTime (\ s a -> s{_oEndTime = a}) .

2711− mapping _DateTime

2712−

2713−-- | Name of the resource that this operation is acting on. Example:

2714−-- apps\/myapp\/services\/default.\'OutputOnly

2715−oTarget :: Lens' OperationMetadataV1Beta5 (Maybe Text)

2716−oTarget = lens _oTarget (\ s a -> s{_oTarget = a})

2717−

2718−instance FromJSON OperationMetadataV1Beta5 where

2719− parseJSON

2720− = withObject "OperationMetadataV1Beta5"

2721− (\ o ->

2722− OperationMetadataV1Beta5' <$>

2723− (o .:? "insertTime") <*> (o .:? "user") <*>

2724− (o .:? "method")

2725− <*> (o .:? "endTime")

2726− <*> (o .:? "target"))

2727−

2728−instance ToJSON OperationMetadataV1Beta5 where

2729− toJSON OperationMetadataV1Beta5'{..}

2730− = object

2731− (catMaybes

2732− [("insertTime" .=) <$> _oInsertTime,

2733− ("user" .=) <$> _oUser, ("method" .=) <$> _oMethod,

2734− ("endTime" .=) <$> _oEndTime,

2735− ("target" .=) <$> _oTarget])

2736−

27372648-- | Volumes mounted within the app container. Only applicable in the App

27382649-- Engine flexible environment.

27392650--

@@ -3344,9 +3255,10 @@ instance ToJSON Resources where

33443255-- define behaviors that are user configurable.

33453256--

33463257-- /See:/ 'featureSettings' smart constructor.

3347−newtype FeatureSettings =

3258+data FeatureSettings =

33483259 FeatureSettings'

3349− { _fsSplitHealthChecks :: Maybe Bool

3260+ { _fsUseContainerOptimizedOS :: !(Maybe Bool)

3261+ , _fsSplitHealthChecks :: !(Maybe Bool)

33503262 }

33513263 deriving (Eq, Show, Data, Typeable, Generic)

33523264

@@ -3355,11 +3267,23 @@ newtype FeatureSettings =

33553267--

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

33573269--

3270+-- * 'fsUseContainerOptimizedOS'

3271+--

33583272-- * 'fsSplitHealthChecks'

33593273featureSettings

33603274 :: FeatureSettings

3361−featureSettings = FeatureSettings' {_fsSplitHealthChecks = Nothing}

3275+featureSettings =

3276+ FeatureSettings'

3277+ {_fsUseContainerOptimizedOS = Nothing, _fsSplitHealthChecks = Nothing}

3278+

33623279

3280+-- | If true, use Container-Optimized OS

3281+-- (https:\/\/cloud.google.com\/container-optimized-os\/) base image for

3282+-- VMs, rather than a base Debian image.

3283+fsUseContainerOptimizedOS :: Lens' FeatureSettings (Maybe Bool)

3284+fsUseContainerOptimizedOS

3285+ = lens _fsUseContainerOptimizedOS

3286+ (\ s a -> s{_fsUseContainerOptimizedOS = a})

33633287

33643288-- | Boolean value indicating if split health checks should be used instead

33653289-- of the legacy health checks. At an app.yaml level, this means defaulting

@@ -3375,13 +3299,17 @@ instance FromJSON FeatureSettings where

33753299 parseJSON

33763300 = withObject "FeatureSettings"

33773301 (\ o ->

3378− FeatureSettings' <$> (o .:? "splitHealthChecks"))

3302+ FeatureSettings' <$>

3303+ (o .:? "useContainerOptimizedOs") <*>

3304+ (o .:? "splitHealthChecks"))

33793305

33803306instance ToJSON FeatureSettings where

33813307 toJSON FeatureSettings'{..}

33823308 = object

33833309 (catMaybes

3384− [("splitHealthChecks" .=) <$> _fsSplitHealthChecks])

3310+ [("useContainerOptimizedOs" .=) <$>

3311+ _fsUseContainerOptimizedOS,

3312+ ("splitHealthChecks" .=) <$> _fsSplitHealthChecks])

33853313

33863314-- | An SSL certificate obtained from a certificate authority.

33873315--

@@ -4033,6 +3961,7 @@ data Version =

40333961 , _verInstanceClass :: !(Maybe Text)

40343962 , _verRuntimeChannel :: !(Maybe Text)

40353963 , _verRuntimeMainExecutablePath :: !(Maybe Text)

3964+ , _verVPCAccessConnector :: !(Maybe VPCAccessConnector)

40363965 , _verHealthCheck :: !(Maybe HealthCheck)

40373966 , _verEndpointsAPIService :: !(Maybe EndpointsAPIService)

40383967 , _verEnv :: !(Maybe Text)

@@ -4082,6 +4011,8 @@ data Version =

40824011--

40834012-- * 'verRuntimeMainExecutablePath'

40844013--

4014+-- * 'verVPCAccessConnector'

4015+--

40854016-- * 'verHealthCheck'

40864017--

40874018-- * 'verEndpointsAPIService'

@@ -4152,6 +4083,7 @@ version =

41524083 , _verInstanceClass = Nothing

41534084 , _verRuntimeChannel = Nothing

41544085 , _verRuntimeMainExecutablePath = Nothing

4086+ , _verVPCAccessConnector = Nothing

41554087 , _verHealthCheck = Nothing

41564088 , _verEndpointsAPIService = Nothing

41574089 , _verEnv = Nothing

@@ -4221,6 +4153,12 @@ verRuntimeMainExecutablePath

42214153 = lens _verRuntimeMainExecutablePath

42224154 (\ s a -> s{_verRuntimeMainExecutablePath = a})

42234155

4156+-- | Enables VPC connectivity for standard apps.

4157+verVPCAccessConnector :: Lens' Version (Maybe VPCAccessConnector)

4158+verVPCAccessConnector

4159+ = lens _verVPCAccessConnector

4160+ (\ s a -> s{_verVPCAccessConnector = a})

4161+

42244162-- | Configures health checking for instances. Unhealthy instances are

42254163-- stopped and replaced with new instances. Only applicable in the App

42264164-- Engine flexible environment.Only returned in GET requests if view=FULL

@@ -4243,7 +4181,7 @@ verEnv :: Lens' Version (Maybe Text)

42434181verEnv = lens _verEnv (\ s a -> s{_verEnv = a})

42444182

42454183-- | The Google Compute Engine zones that are supported by this version in

4246−-- the App Engine flexible environment.

4184+-- the App Engine flexible environment. Deprecated.

42474185verZones :: Lens' Version [Text]

42484186verZones

42494187 = lens _verZones (\ s a -> s{_verZones = a}) .

@@ -4455,6 +4393,7 @@ instance FromJSON Version where

44554393 (o .:? "instanceClass")

44564394 <*> (o .:? "runtimeChannel")

44574395 <*> (o .:? "runtimeMainExecutablePath")

4396+ <*> (o .:? "vpcAccessConnector")

44584397 <*> (o .:? "healthCheck")

44594398 <*> (o .:? "endpointsApiService")

44604399 <*> (o .:? "env")

@@ -4497,6 +4436,7 @@ instance ToJSON Version where

44974436 ("runtimeChannel" .=) <$> _verRuntimeChannel,

44984437 ("runtimeMainExecutablePath" .=) <$>

44994438 _verRuntimeMainExecutablePath,

4439+ ("vpcAccessConnector" .=) <$> _verVPCAccessConnector,

45004440 ("healthCheck" .=) <$> _verHealthCheck,

45014441 ("endpointsApiService" .=) <$>

45024442 _verEndpointsAPIService,

@@ -5038,17 +4978,15 @@ instance ToJSON LocationMetadata where

50384978 ("flexibleEnvironmentAvailable" .=) <$>

50394979 _lmFlexibleEnvironmentAvailable])

50404980

5041−-- | Metadata for the given google.longrunning.Operation.

4981+-- | Service-specific metadata associated with the operation. It typically

4982+-- contains progress information and common metadata such as create time.

4983+-- Some services might not provide such metadata. Any method that returns a

4984+-- long-running operation should document the metadata type, if any.

50424985--

50434986-- /See:/ 'operationMetadata' smart constructor.

5044−data OperationMetadata =

4987+newtype OperationMetadata =

50454988 OperationMetadata'

5046− { _omInsertTime :: !(Maybe DateTime')

5047− , _omUser :: !(Maybe Text)

5048− , _omMethod :: !(Maybe Text)

5049− , _omEndTime :: !(Maybe DateTime')

5050− , _omOperationType :: !(Maybe Text)

5051− , _omTarget :: !(Maybe Text)

4989+ { _omAddtional :: HashMap Text JSONValue

50524990 }

50534991 deriving (Eq, Show, Data, Typeable, Generic)

50544992

@@ -5057,83 +4995,27 @@ data OperationMetadata =

50574995--

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

50594997--

5060−-- * 'omInsertTime'

5061−--

5062−-- * 'omUser'

5063−--

5064−-- * 'omMethod'

5065−--

5066−-- * 'omEndTime'

5067−--

5068−-- * 'omOperationType'

5069−--

5070−-- * 'omTarget'

4998+-- * 'omAddtional'

50714999operationMetadata

5072− :: OperationMetadata

5073−operationMetadata =

5074− OperationMetadata'

5075− { _omInsertTime = Nothing

5076− , _omUser = Nothing

5077− , _omMethod = Nothing

5078− , _omEndTime = Nothing

5079− , _omOperationType = Nothing

5080− , _omTarget = Nothing

5081− }

5082−

5083−

5084−-- | Timestamp that this operation was created.\'OutputOnly

5085−omInsertTime :: Lens' OperationMetadata (Maybe UTCTime)

5086−omInsertTime

5087− = lens _omInsertTime (\ s a -> s{_omInsertTime = a})

5088− . mapping _DateTime

5089−

5090−-- | User who requested this operation.\'OutputOnly

5091−omUser :: Lens' OperationMetadata (Maybe Text)

5092−omUser = lens _omUser (\ s a -> s{_omUser = a})

5093−

5094−-- | API method that initiated this operation. Example:

5095−-- google.appengine.v1beta4.Version.CreateVersion.\'OutputOnly

5096−omMethod :: Lens' OperationMetadata (Maybe Text)

5097−omMethod = lens _omMethod (\ s a -> s{_omMethod = a})

5098−

5099−-- | Timestamp that this operation completed.\'OutputOnly

5100−omEndTime :: Lens' OperationMetadata (Maybe UTCTime)

5101−omEndTime

5102− = lens _omEndTime (\ s a -> s{_omEndTime = a}) .

5103− mapping _DateTime

5000+ :: HashMap Text JSONValue -- ^ 'omAddtional'

5001+ -> OperationMetadata

5002+operationMetadata pOmAddtional_ =

5003+ OperationMetadata' {_omAddtional = _Coerce # pOmAddtional_}

51045004

5105−-- | Type of this operation. Deprecated, use method field instead. Example:

5106−-- \"create_version\".\'OutputOnly

5107−omOperationType :: Lens' OperationMetadata (Maybe Text)

5108−omOperationType

5109− = lens _omOperationType

5110− (\ s a -> s{_omOperationType = a})

51115005

5112−-- | Name of the resource that this operation is acting on. Example:

5113−-- apps\/myapp\/modules\/default.\'OutputOnly

5114−omTarget :: Lens' OperationMetadata (Maybe Text)

5115−omTarget = lens _omTarget (\ s a -> s{_omTarget = a})

5006+-- | Properties of the object. Contains field \'type with type URL.

5007+omAddtional :: Lens' OperationMetadata (HashMap Text JSONValue)

5008+omAddtional

5009+ = lens _omAddtional (\ s a -> s{_omAddtional = a}) .

5010+ _Coerce

51165011

51175012instance FromJSON OperationMetadata where

51185013 parseJSON

51195014 = withObject "OperationMetadata"

5120− (\ o ->

5121− OperationMetadata' <$>

5122− (o .:? "insertTime") <*> (o .:? "user") <*>

5123− (o .:? "method")

5124− <*> (o .:? "endTime")

5125− <*> (o .:? "operationType")

5126− <*> (o .:? "target"))

5015+ (\ o -> OperationMetadata' <$> (parseJSONObject o))

51275016

51285017instance ToJSON OperationMetadata where

5129− toJSON OperationMetadata'{..}

5130− = object

5131− (catMaybes

5132− [("insertTime" .=) <$> _omInsertTime,

5133− ("user" .=) <$> _omUser, ("method" .=) <$> _omMethod,

5134− ("endTime" .=) <$> _omEndTime,

5135− ("operationType" .=) <$> _omOperationType,

5136− ("target" .=) <$> _omTarget])

5018+ toJSON = toJSON . _omAddtional

51375019

51385020-- | Response message for Instances.ListInstances.

51395021--

gogol-appengine/gen/Network/Google/Resource/AppEngine/Apps/Repair.hs+12

@@ -24,6 +24,12 @@

2424-- application, for example a Cloud Storage bucket or App Engine service

2525-- account. Use this method if you receive an error message about a missing

2626-- feature, for example, Error retrieving the App Engine service account.

27+-- If you have deleted your App Engine service account, this will not be

28+-- able to recreate it. Instead, you should attempt to use the IAM undelete

29+-- API if possible at

30+-- https:\/\/cloud.google.com\/iam\/reference\/rest\/v1\/projects.serviceAccounts\/undelete?apix_params=%7B\"name\"%3A\"projects%2F-%2FserviceAccounts%2Funique_id\"%2C\"resource\"%3A%7B%7D%7D

31+-- . If the deletion was recent, the numeric ID can be found in the Cloud

32+-- Console Activity Log.

2733--

2834-- /See:/ <https://cloud.google.com/appengine/docs/admin-api/ App Engine Admin API Reference> for @appengine.apps.repair@.

2935module Network.Google.Resource.AppEngine.Apps.Repair

@@ -67,6 +73,12 @@ type AppsRepairResource =

6773-- application, for example a Cloud Storage bucket or App Engine service

6874-- account. Use this method if you receive an error message about a missing

6975-- feature, for example, Error retrieving the App Engine service account.

76+-- If you have deleted your App Engine service account, this will not be

77+-- able to recreate it. Instead, you should attempt to use the IAM undelete

78+-- API if possible at

79+-- https:\/\/cloud.google.com\/iam\/reference\/rest\/v1\/projects.serviceAccounts\/undelete?apix_params=%7B\"name\"%3A\"projects%2F-%2FserviceAccounts%2Funique_id\"%2C\"resource\"%3A%7B%7D%7D

80+-- . If the deletion was recent, the numeric ID can be found in the Cloud

81+-- Console Activity Log.

7082--

7183-- /See:/ 'appsRepair' smart constructor.

7284data AppsRepair =

gogol-apps-activity/gen/Network/Google/Resource/AppsActivity/Activities/List.hs+5−4

@@ -21,7 +21,7 @@

2121-- Portability : non-portable (GHC extensions)

2222--

2323-- Returns a list of activities visible to the current logged in user.

24−-- Visible activities are determined by the visiblity settings of the

24+-- Visible activities are determined by the visibility settings of the

2525-- object that was acted on, e.g. Drive files a user can see. An activity

2626-- is a record of past events. Multiple events may be merged if they are

2727-- similar. A request is scoped to activities from a given Google service

@@ -69,7 +69,7 @@ type ActivitiesListResource =

6969 Get '[JSON] ListActivitiesResponse

7070

7171-- | Returns a list of activities visible to the current logged in user.

72−-- Visible activities are determined by the visiblity settings of the

72+-- Visible activities are determined by the visibility settings of the

7373-- object that was acted on, e.g. Drive files a user can see. An activity

7474-- is a record of past events. Multiple events may be merged if they are

7575-- similar. A request is scoped to activities from a given Google service

@@ -140,8 +140,9 @@ alGroupingStrategy

140140 = lens _alGroupingStrategy

141141 (\ s a -> s{_alGroupingStrategy = a})

142142

143−-- | Indicates the user to return activity for. Use the special value me to

144−-- indicate the currently authenticated user.

143+-- | The ID used for ACL checks (does not filter the resulting event list by

144+-- the assigned value). Use the special value me to indicate the currently

145+-- authenticated user.

145146alUserId :: Lens' ActivitiesList Text

146147alUserId = lens _alUserId (\ s a -> s{_alUserId = a})

147148

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/List.hs+11−11

@@ -205,11 +205,12 @@ elCalendarId :: Lens' EventsList Text

205205elCalendarId

206206 = lens _elCalendarId (\ s a -> s{_elCalendarId = a})

207207

208−-- | Lower bound (inclusive) for an event\'s end time to filter by. Optional.

209−-- The default is not to filter by end time. Must be an RFC3339 timestamp

210−-- with mandatory time zone offset, e.g., 2011-06-03T10:00:00-07:00,

211−-- 2011-06-03T10:00:00Z. Milliseconds may be provided but will be ignored.

212−-- If timeMax is set, timeMin must be smaller than timeMax.

208+-- | Lower bound (inclusive) for an event\'s start time to filter by.

209+-- Optional. The default is not to filter by start time. Must be an RFC3339

210+-- timestamp with mandatory time zone offset, for example,

211+-- 2011-06-03T10:00:00-07:00, 2011-06-03T10:00:00Z. Milliseconds may be

212+-- provided but are ignored. If timeMax is set, timeMin must be smaller

213+-- than timeMax.

213214elTimeMin :: Lens' EventsList (Maybe UTCTime)

214215elTimeMin

215216 = lens _elTimeMin (\ s a -> s{_elTimeMin = a}) .

@@ -329,12 +330,11 @@ elAlwaysIncludeEmail

329330 = lens _elAlwaysIncludeEmail

330331 (\ s a -> s{_elAlwaysIncludeEmail = a})

331332

332−-- | Upper bound (exclusive) for an event\'s start time to filter by.

333−-- Optional. The default is not to filter by start time. Must be an RFC3339

334−-- timestamp with mandatory time zone offset, e.g.,

335−-- 2011-06-03T10:00:00-07:00, 2011-06-03T10:00:00Z. Milliseconds may be

336−-- provided but will be ignored. If timeMin is set, timeMax must be greater

337−-- than timeMin.

333+-- | Upper bound (exclusive) for an event\'s end time to filter by. Optional.

334+-- The default is not to filter by end time. Must be an RFC3339 timestamp

335+-- with mandatory time zone offset, for example, 2011-06-03T10:00:00-07:00,

336+-- 2011-06-03T10:00:00Z. Milliseconds may be provided but are ignored. If

337+-- timeMin is set, timeMax must be greater than timeMin.

338338elTimeMax :: Lens' EventsList (Maybe UTCTime)

339339elTimeMax

340340 = lens _elTimeMax (\ s a -> s{_elTimeMax = a}) .

gogol-apps-calendar/gen/Network/Google/Resource/Calendar/Events/Watch.hs+11−11

@@ -215,11 +215,12 @@ ewCalendarId :: Lens' EventsWatch Text

215215ewCalendarId

216216 = lens _ewCalendarId (\ s a -> s{_ewCalendarId = a})

217217

218−-- | Lower bound (inclusive) for an event\'s end time to filter by. Optional.

219−-- The default is not to filter by end time. Must be an RFC3339 timestamp

220−-- with mandatory time zone offset, e.g., 2011-06-03T10:00:00-07:00,

221−-- 2011-06-03T10:00:00Z. Milliseconds may be provided but will be ignored.

222−-- If timeMax is set, timeMin must be smaller than timeMax.

218+-- | Lower bound (inclusive) for an event\'s start time to filter by.

219+-- Optional. The default is not to filter by start time. Must be an RFC3339

220+-- timestamp with mandatory time zone offset, for example,

221+-- 2011-06-03T10:00:00-07:00, 2011-06-03T10:00:00Z. Milliseconds may be

222+-- provided but are ignored. If timeMax is set, timeMin must be smaller

223+-- than timeMax.

223224ewTimeMin :: Lens' EventsWatch (Maybe UTCTime)

224225ewTimeMin

225226 = lens _ewTimeMin (\ s a -> s{_ewTimeMin = a}) .

@@ -344,12 +345,11 @@ ewAlwaysIncludeEmail

344345 = lens _ewAlwaysIncludeEmail

345346 (\ s a -> s{_ewAlwaysIncludeEmail = a})

346347

347−-- | Upper bound (exclusive) for an event\'s start time to filter by.

348−-- Optional. The default is not to filter by start time. Must be an RFC3339

349−-- timestamp with mandatory time zone offset, e.g.,

350−-- 2011-06-03T10:00:00-07:00, 2011-06-03T10:00:00Z. Milliseconds may be

351−-- provided but will be ignored. If timeMin is set, timeMax must be greater

352−-- than timeMin.

348+-- | Upper bound (exclusive) for an event\'s end time to filter by. Optional.

349+-- The default is not to filter by end time. Must be an RFC3339 timestamp

350+-- with mandatory time zone offset, for example, 2011-06-03T10:00:00-07:00,

351+-- 2011-06-03T10:00:00Z. Milliseconds may be provided but are ignored. If

352+-- timeMin is set, timeMax must be greater than timeMin.

353353ewTimeMax :: Lens' EventsWatch (Maybe UTCTime)

354354ewTimeMax

355355 = lens _ewTimeMax (\ s a -> s{_ewTimeMax = a}) .

gogol-apps-reseller/gen/Network/Google/AppsReseller/Types/Product.hs+41−49

@@ -407,9 +407,11 @@ cCustomerDomain

407407 = lens _cCustomerDomain

408408 (\ s a -> s{_cCustomerDomain = a})

409409

410−-- | Customer contact phone number. This can be continuous numbers, with

411−-- spaces, etc. But it must be a real phone number and not, for example,

412−-- \"123\". See phone local format conventions.

410+-- | Customer contact phone number. Must start with \"+\" followed by the

411+-- country code. The rest of the number can be contiguous numbers or

412+-- respect the phone local format conventions, but it must be a real phone

413+-- number and not, for example, \"123\". This field is silently ignored if

414+-- invalid.

413415cPhoneNumber :: Lens' Customer (Maybe Text)

414416cPhoneNumber

415417 = lens _cPhoneNumber (\ s a -> s{_cPhoneNumber = a})

@@ -508,8 +510,9 @@ cprDealCode

508510-- | The planName property is required. This is the name of the

509511-- subscription\'s payment plan. For more information about the Google

510512-- payment plans, see API concepts. Possible values are: -

511−-- ANNUAL_MONTHLY_PAY - The annual commitment plan with monthly payments -

512−-- ANNUAL_YEARLY_PAY - The annual commitment plan with yearly payments -

513+-- ANNUAL_MONTHLY_PAY - The annual commitment plan with monthly payments

514+-- Caution: ANNUAL_MONTHLY_PAY is returned as ANNUAL in all API responses.

515+-- - ANNUAL_YEARLY_PAY - The annual commitment plan with yearly payments -

513516-- FLEXIBLE - The flexible plan - TRIAL - The 30-day free trial plan

514517cprPlanName :: Lens' ChangePlanRequest (Maybe Text)

515518cprPlanName

@@ -551,7 +554,8 @@ instance ToJSON ChangePlanRequest where

551554 ("seats" .=) <$> _cprSeats])

552555

553556-- | In this version of the API, annual commitment plan\'s interval is one

554−-- year.

557+-- year. Note: When billingMethod value is OFFLINE, the subscription

558+-- property object plan.commitmentInterval is omitted in all API responses.

555559--

556560-- /See:/ 'subscriptionPlanCommitmentInterval' smart constructor.

557561data SubscriptionPlanCommitmentInterval =

@@ -642,7 +646,8 @@ subscriptionPlan =

642646

643647

644648-- | In this version of the API, annual commitment plan\'s interval is one

645−-- year.

649+-- year. Note: When billingMethod value is OFFLINE, the subscription

650+-- property object plan.commitmentInterval is omitted in all API responses.

646651spCommitmentInterval :: Lens' SubscriptionPlan (Maybe SubscriptionPlanCommitmentInterval)

647652spCommitmentInterval

648653 = lens _spCommitmentInterval

@@ -659,14 +664,16 @@ spIsCommitmentPlan

659664-- | The planName property is required. This is the name of the

660665-- subscription\'s plan. For more information about the Google payment

661666-- plans, see the API concepts. Possible values are: - ANNUAL_MONTHLY_PAY —

662−-- The annual commitment plan with monthly payments - ANNUAL_YEARLY_PAY —

663−-- The annual commitment plan with yearly payments - FLEXIBLE — The

664−-- flexible plan - TRIAL — The 30-day free trial plan. A subscription in

665−-- trial will be suspended after the 30th free day if no payment plan is

666−-- assigned. Calling changePlan will assign a payment plan to a trial but

667−-- will not activate the plan. A trial will automatically begin its

668−-- assigned payment plan after its 30th free day or immediately after

669−-- calling startPaidService.

667+-- The annual commitment plan with monthly payments. Caution:

668+-- ANNUAL_MONTHLY_PAY is returned as ANNUAL in all API responses. -

669+-- ANNUAL_YEARLY_PAY — The annual commitment plan with yearly payments -

670+-- FLEXIBLE — The flexible plan - TRIAL — The 30-day free trial plan. A

671+-- subscription in trial will be suspended after the 30th free day if no

672+-- payment plan is assigned. Calling changePlan will assign a payment plan

673+-- to a trial but will not activate the plan. A trial will automatically

674+-- begin its assigned payment plan after its 30th free day or immediately

675+-- after calling startPaidService. - FREE — The free plan is exclusive to

676+-- the Cloud Identity SKU and does not incur any billing.

670677spPlanName :: Lens' SubscriptionPlan (Maybe Text)

671678spPlanName

672679 = lens _spPlanName (\ s a -> s{_spPlanName = a})

@@ -791,58 +798,43 @@ seats =

791798 }

792799

793800

794−-- | The numberOfSeats property holds the customer\'s number of user

795−-- licenses. How a user\'s licenses are managed depends on the

796−-- subscription\'s plan: - annual commitment plan (with monthly or yearly

797−-- pay) — For this plan, a reseller is invoiced on the number of user

798−-- licenses in the numberOfSeats property. This is the maximum number of

799−-- user licenses that a reseller\'s customer can create. The reseller can

800−-- add more licenses, but once set, the numberOfSeats can not be reduced

801−-- until renewal. The reseller is invoiced based on the numberOfSeats value

802−-- regardless of how many of these user licenses are provisioned users. -

803−-- flexible plan — For this plan, a reseller is invoiced on the actual

804−-- number of users which is capped by the maximumNumberOfSeats. The

805−-- numberOfSeats property is not used in the request or response for

806−-- flexible plan customers. - 30-day free trial plan — The numberOfSeats

807−-- property is not used in the request or response for an account in a

808−-- 30-day trial.

801+-- | This is a required property and is exclusive to subscriptions with

802+-- ANNUAL_MONTHLY_PAY and ANNUAL_YEARLY_PAY plans. This property sets the

803+-- maximum number of licenses assignable to users on a subscription. The

804+-- reseller can add more licenses, but once set, the numberOfSeats cannot

805+-- be reduced until renewal. The reseller is invoiced based on the

806+-- numberOfSeats value regardless of how many of these user licenses are

807+-- assigned. Note: G Suite subscriptions automatically assign a license to

808+-- every user.

809809seaNumberOfSeats :: Lens' Seats (Maybe Int32)

810810seaNumberOfSeats

811811 = lens _seaNumberOfSeats

812812 (\ s a -> s{_seaNumberOfSeats = a})

813813 . mapping _Coerce

814814

815−-- | The maximumNumberOfSeats property is the maximum number of licenses that

816−-- the customer can purchase. This property applies to plans other than the

817−-- annual commitment plan. How a user\'s licenses are managed depends on

818−-- the subscription\'s payment plan: - annual commitment plan (with monthly

819−-- or yearly payments) — For this plan, a reseller is invoiced on the

820−-- number of user licenses in the numberOfSeats property. The

821−-- maximumNumberOfSeats property is a read-only property in the API\'s

822−-- response. - flexible plan — For this plan, a reseller is invoiced on the

823−-- actual number of users which is capped by the maximumNumberOfSeats. This

824−-- is the maximum number of user licenses a customer has for user license

825−-- provisioning. This quantity can be increased up to the maximum limit

826−-- defined in the reseller\'s contract. And the minimum quantity is the

827−-- current number of users in the customer account. - 30-day free trial

828−-- plan — A subscription in a 30-day free trial is restricted to maximum 10

829−-- seats.

815+-- | This is a required property and is exclusive to subscriptions with

816+-- FLEXIBLE or TRIAL plans. This property sets the maximum number of

817+-- licensed users allowed on a subscription. This quantity can be increased

818+-- up to the maximum limit defined in the reseller\'s contract. The minimum

819+-- quantity is the current number of users in the customer account. Note: G

820+-- Suite subscriptions automatically assign a license to every user.

830821seaMaximumNumberOfSeats :: Lens' Seats (Maybe Int32)

831822seaMaximumNumberOfSeats

832823 = lens _seaMaximumNumberOfSeats

833824 (\ s a -> s{_seaMaximumNumberOfSeats = a})

834825 . mapping _Coerce

835826

836−-- | Read-only field containing the current number of licensed seats for

837−-- FLEXIBLE Google-Apps subscriptions and secondary subscriptions such as

838−-- Google-Vault and Drive-storage.

827+-- | Read-only field containing the current number of users that are assigned

828+-- a license for the product defined in skuId. This field\'s value is

829+-- equivalent to the numerical count of users returned by the Enterprise

830+-- License Manager API method: listForProductAndSku

839831seaLicensedNumberOfSeats :: Lens' Seats (Maybe Int32)

840832seaLicensedNumberOfSeats

841833 = lens _seaLicensedNumberOfSeats

842834 (\ s a -> s{_seaLicensedNumberOfSeats = a})

843835 . mapping _Coerce

844836

845−-- | Identifies the resource as a subscription change plan request. Value:

837+-- | Identifies the resource as a subscription seat setting. Value:

846838-- subscriptions#seats

847839seaKind :: Lens' Seats Text

848840seaKind = lens _seaKind (\ s a -> s{_seaKind = a})

gogol-apps-reseller/gen/Network/Google/AppsReseller/Types/Sum.hs−26

@@ -25,28 +25,6 @@ data SubscriptionsDeleteDeletionType

2525 -- ^ @cancel@

2626 -- Cancels the subscription immediately. This does not apply to a G Suite

2727 -- subscription.

28− | Downgrade

29− -- ^ @downgrade@

30− -- Downgrades a G Suite subscription to a Google Apps Free edition

31− -- subscription only if the customer was initially subscribed to a Google

32− -- Apps Free edition (also known as the Standard edition). Once downgraded,

33− -- the customer no longer has access to the previous G Suite subscription

34− -- and is no longer managed by the reseller. A G Suite subscription\'s

35− -- downgrade cannot be invoked if an active or suspended Google Drive or

36− -- Google Vault subscription is present. The Google Drive or Google Vault

37− -- subscription must be cancelled before the G Suite subscription\'s

38− -- downgrade is invoked. The downgrade deletionType does not apply to other

39− -- products or G Suite SKUs.

40− | Suspend

41− -- ^ @suspend@

42− -- (DEPRECATED) The G Suite account is suspended for four days and then

43− -- cancelled. Once suspended, an administrator has access to the suspended

44− -- account, but the account users can not access their services. A

45− -- suspension can be lifted, using the reseller tools. A G Suite

46− -- subscription\'s suspension can not be invoked if an active or suspended

47− -- Google Drive or Google Vault subscription is present. The Google Drive

48− -- or Google Vault subscription must be cancelled before the G Suite

49− -- subscription\'s suspension is invoked.

5028 | TransferToDirect

5129 -- ^ @transfer_to_direct@

5230 -- Transfers a subscription directly to Google. The customer is

@@ -61,16 +39,12 @@ instance Hashable SubscriptionsDeleteDeletionType

6139instance FromHttpApiData SubscriptionsDeleteDeletionType where

6240 parseQueryParam = \case

6341 "cancel" -> Right Cancel

64− "downgrade" -> Right Downgrade

65− "suspend" -> Right Suspend

6642 "transfer_to_direct" -> Right TransferToDirect

6743 x -> Left ("Unable to parse SubscriptionsDeleteDeletionType from: " <> x)

6844

6945instance ToHttpApiData SubscriptionsDeleteDeletionType where

7046 toQueryParam = \case

7147 Cancel -> "cancel"

72− Downgrade -> "downgrade"

73− Suspend -> "suspend"

7448 TransferToDirect -> "transfer_to_direct"

7549

7650instance FromJSON SubscriptionsDeleteDeletionType where

gogol-apps-reseller/gen/Network/Google/Resource/Reseller/Subscriptions/Delete.hs+2−2

@@ -20,7 +20,7 @@

2020-- Stability : auto-generated

2121-- Portability : non-portable (GHC extensions)

2222--

23−-- Cancel, suspend or transfer a subscription to direct.

23+-- Cancel or transfer a subscription to direct.

2424--

2525-- /See:/ <https://developers.google.com/google-apps/reseller/ Enterprise Apps Reseller API Reference> for @reseller.subscriptions.delete@.

2626module Network.Google.Resource.Reseller.Subscriptions.Delete

@@ -55,7 +55,7 @@ type SubscriptionsDeleteResource =

5555 SubscriptionsDeleteDeletionType

5656 :> QueryParam "alt" AltJSON :> Delete '[JSON] ()

5757

58−-- | Cancel, suspend or transfer a subscription to direct.

58+-- | Cancel or transfer a subscription to direct.

5959--

6060-- /See:/ 'subscriptionsDelete' smart constructor.

6161data SubscriptionsDelete =

gogol-apps-tasks/gen/Network/Google/AppsTasks.hs+1−1

@@ -13,7 +13,7 @@

1313-- Stability : auto-generated

1414-- Portability : non-portable (GHC extensions)

1515--

16−-- Lets you manage your tasks and task lists.

16+-- Manages your tasks and task lists.

1717--

1818-- /See:/ <https://developers.google.com/google-apps/tasks/firstapp Tasks API Reference>

1919module Network.Google.AppsTasks

gogol-apps-tasks/gen/Network/Google/Resource/Tasks/TaskLists/List.hs+1−1

@@ -82,7 +82,7 @@ tllPageToken

8282 = lens _tllPageToken (\ s a -> s{_tllPageToken = a})

8383

8484-- | Maximum number of task lists returned on one page. Optional. The default

85−-- is 100.

85+-- is 20 (max allowed: 100).

8686tllMaxResults :: Lens' TaskListsList (Maybe Int64)

8787tllMaxResults

8888 = lens _tllMaxResults

gogol-apps-tasks/gen/Network/Google/Resource/Tasks/Tasks/List.hs+1−1

@@ -195,7 +195,7 @@ tlPageToken

195195 = lens _tlPageToken (\ s a -> s{_tlPageToken = a})

196196

197197-- | Maximum number of task lists returned on one page. Optional. The default

198−-- is 100.

198+-- is 20 (max allowed: 100).

199199tlMaxResults :: Lens' TasksList (Maybe Int64)

200200tlMaxResults

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

gogol-apps-tasks/gogol-apps-tasks.cabal+1−1

@@ -14,7 +14,7 @@ cabal-version: >= 1.10

1414extra-source-files: README.md src/.gitkeep

1515

1616description:

17− Lets you manage your tasks and task lists.

17+ Manages your tasks and task lists.

1818 .

1919 /Warning:/ This is an experimental prototype/preview release which is still

2020 under exploratory development and not intended for public use, caveat emptor!

gogol-bigquery/gen/Network/Google/BigQuery.hs+47−30

@@ -214,6 +214,7 @@ module Network.Google.BigQuery

214214 , jsCreationTime

215215 , jsStartTime

216216 , jsCompletionRatio

217+ , jsNumChildJobs

217218 , jsTotalSlotMs

218219 , jsLoad

219220 , jsTotalBytesProcessed

@@ -222,6 +223,7 @@ module Network.Google.BigQuery

222223 , jsQuery

223224 , jsExtract

224225 , jsReservationUsage

226+ , jsParentJobId

225227

226228 -- ** JobConfigurationLabels

227229 , JobConfigurationLabels

@@ -300,6 +302,13 @@ module Network.Google.BigQuery

300302 , mdmoLabels

301303 , mdmoLossType

302304

305+ -- ** RoutineReference

306+ , RoutineReference

307+ , routineReference

308+ , rrDataSetId

309+ , rrProjectId

310+ , rrRoutineId

311+

303312 -- ** RangePartitioning

304313 , RangePartitioning

305314 , rangePartitioning

@@ -359,6 +368,19 @@ module Network.Google.BigQuery

359368 -- ** JobsListProjection

360369 , JobsListProjection (..)

361370

371+ -- ** BqmlTrainingRunTrainingOptions

372+ , BqmlTrainingRunTrainingOptions

373+ , bqmlTrainingRunTrainingOptions

374+ , btrtoLineSearchInitLearnRate

375+ , btrtoMinRelProgress

376+ , btrtoL1Reg

377+ , btrtoLearnRate

378+ , btrtoLearnRateStrategy

379+ , btrtoMaxIteration

380+ , btrtoEarlyStop

381+ , btrtoL2Reg

382+ , btrtoWarmStart

383+

362384 -- ** QueryParameter

363385 , QueryParameter

364386 , queryParameter

@@ -366,18 +388,10 @@ module Network.Google.BigQuery

366388 , qpParameterType

367389 , qpName

368390

369− -- ** IterationResult

370− , IterationResult

371− , iterationResult

372− , irDurationMs

373− , irLearnRate

374− , irEvalLoss

375− , irTrainingLoss

376− , irIndex

377−

378391 -- ** JobStatistics4

379392 , JobStatistics4

380393 , jobStatistics4

394+ , jsInputBytes

381395 , jsDestinationURIFileCounts

382396

383397 -- ** ProjectReference

@@ -418,19 +432,6 @@ module Network.Google.BigQuery

418432 , eqsEndMs

419433 , eqsWaitMsMax

420434

421− -- ** TrainingRunTrainingOptions

422− , TrainingRunTrainingOptions

423− , trainingRunTrainingOptions

424− , trtoLineSearchInitLearnRate

425− , trtoMinRelProgress

426− , trtoL1Reg

427− , trtoLearnRate

428− , trtoLearnRateStrategy

429− , trtoMaxIteration

430− , trtoEarlyStop

431− , trtoL2Reg

432− , trtoWarmStart

433−

434435 -- ** BigQueryModelTraining

435436 , BigQueryModelTraining

436437 , bigQueryModelTraining

@@ -507,6 +508,15 @@ module Network.Google.BigQuery

507508 , plpiId

508509 , plpiNumericId

509510

511+ -- ** BqmlIterationResult

512+ , BqmlIterationResult

513+ , bqmlIterationResult

514+ , birDurationMs

515+ , birLearnRate

516+ , birEvalLoss

517+ , birTrainingLoss

518+ , birIndex

519+

510520 -- ** BigtableColumn

511521 , BigtableColumn

512522 , bigtableColumn

@@ -712,6 +722,7 @@ module Network.Google.BigQuery

712722 , jModelTrainingExpectedTotalIteration

713723 , jModelTraining

714724 , jTotalSlotMs

725+ , jDdlTargetRoutine

715726 , jDdlTargetTable

716727 , jEstimatedBytesProcessed

717728 , jModelTrainingCurrentIteration

@@ -752,6 +763,7 @@ module Network.Google.BigQuery

752763 , DestinationTableProperties

753764 , destinationTableProperties

754765 , dtpFriendlyName

766+ , dtpLabels

755767 , dtpDescription

756768

757769 -- ** DataSetAccessItem

@@ -765,6 +777,14 @@ module Network.Google.BigQuery

765777 , dsaiView

766778 , dsaiUserByEmail

767779

780+ -- ** BqmlTrainingRun

781+ , BqmlTrainingRun

782+ , bqmlTrainingRun

783+ , btrState

784+ , btrStartTime

785+ , btrIterationResults

786+ , btrTrainingOptions

787+

768788 -- ** TableDataInsertAllResponse

769789 , TableDataInsertAllResponse

770790 , tableDataInsertAllResponse

@@ -828,6 +848,11 @@ module Network.Google.BigQuery

828848 , coEncoding

829849 , coFieldDelimiter

830850

851+ -- ** DestinationTablePropertiesLabels

852+ , DestinationTablePropertiesLabels

853+ , destinationTablePropertiesLabels

854+ , dtplAddtional

855+

831856 -- ** JobStatistics3

832857 , JobStatistics3

833858 , jobStatistics3

@@ -857,14 +882,6 @@ module Network.Google.BigQuery

857882 , dataSetListDataSetsItemLabels

858883 , dsldsilAddtional

859884

860− -- ** TrainingRun

861− , TrainingRun

862− , trainingRun

863− , trState

864− , trStartTime

865− , trIterationResults

866− , trTrainingOptions

867−

868885 -- ** TableListTablesItemView

869886 , TableListTablesItemView

870887 , tableListTablesItemView

gogol-bigquery/gen/Network/Google/BigQuery/Types.hs+47−30

@@ -139,6 +139,7 @@ module Network.Google.BigQuery.Types

139139 , jsCreationTime

140140 , jsStartTime

141141 , jsCompletionRatio

142+ , jsNumChildJobs

142143 , jsTotalSlotMs

143144 , jsLoad

144145 , jsTotalBytesProcessed

@@ -147,6 +148,7 @@ module Network.Google.BigQuery.Types

147148 , jsQuery

148149 , jsExtract

149150 , jsReservationUsage

151+ , jsParentJobId

150152

151153 -- * JobConfigurationLabels

152154 , JobConfigurationLabels

@@ -225,6 +227,13 @@ module Network.Google.BigQuery.Types

225227 , mdmoLabels

226228 , mdmoLossType

227229

230+ -- * RoutineReference

231+ , RoutineReference

232+ , routineReference

233+ , rrDataSetId

234+ , rrProjectId

235+ , rrRoutineId

236+

228237 -- * RangePartitioning

229238 , RangePartitioning

230239 , rangePartitioning

@@ -284,6 +293,19 @@ module Network.Google.BigQuery.Types

284293 -- * JobsListProjection

285294 , JobsListProjection (..)

286295

296+ -- * BqmlTrainingRunTrainingOptions

297+ , BqmlTrainingRunTrainingOptions

298+ , bqmlTrainingRunTrainingOptions

299+ , btrtoLineSearchInitLearnRate

300+ , btrtoMinRelProgress

301+ , btrtoL1Reg

302+ , btrtoLearnRate

303+ , btrtoLearnRateStrategy

304+ , btrtoMaxIteration

305+ , btrtoEarlyStop

306+ , btrtoL2Reg

307+ , btrtoWarmStart

308+

287309 -- * QueryParameter

288310 , QueryParameter

289311 , queryParameter

@@ -291,18 +313,10 @@ module Network.Google.BigQuery.Types

291313 , qpParameterType

292314 , qpName

293315

294− -- * IterationResult

295− , IterationResult

296− , iterationResult

297− , irDurationMs

298− , irLearnRate

299− , irEvalLoss

300− , irTrainingLoss

301− , irIndex

302−

303316 -- * JobStatistics4

304317 , JobStatistics4

305318 , jobStatistics4

319+ , jsInputBytes

306320 , jsDestinationURIFileCounts

307321

308322 -- * ProjectReference

@@ -343,19 +357,6 @@ module Network.Google.BigQuery.Types

343357 , eqsEndMs

344358 , eqsWaitMsMax

345359

346− -- * TrainingRunTrainingOptions

347− , TrainingRunTrainingOptions

348− , trainingRunTrainingOptions

349− , trtoLineSearchInitLearnRate

350− , trtoMinRelProgress

351− , trtoL1Reg

352− , trtoLearnRate

353− , trtoLearnRateStrategy

354− , trtoMaxIteration

355− , trtoEarlyStop

356− , trtoL2Reg

357− , trtoWarmStart

358−

359360 -- * BigQueryModelTraining

360361 , BigQueryModelTraining

361362 , bigQueryModelTraining

@@ -432,6 +433,15 @@ module Network.Google.BigQuery.Types

432433 , plpiId

433434 , plpiNumericId

434435

436+ -- * BqmlIterationResult

437+ , BqmlIterationResult

438+ , bqmlIterationResult

439+ , birDurationMs

440+ , birLearnRate

441+ , birEvalLoss

442+ , birTrainingLoss

443+ , birIndex

444+

435445 -- * BigtableColumn

436446 , BigtableColumn

437447 , bigtableColumn

@@ -637,6 +647,7 @@ module Network.Google.BigQuery.Types

637647 , jModelTrainingExpectedTotalIteration

638648 , jModelTraining

639649 , jTotalSlotMs

650+ , jDdlTargetRoutine

640651 , jDdlTargetTable

641652 , jEstimatedBytesProcessed

642653 , jModelTrainingCurrentIteration

@@ -677,6 +688,7 @@ module Network.Google.BigQuery.Types

677688 , DestinationTableProperties

678689 , destinationTableProperties

679690 , dtpFriendlyName

691+ , dtpLabels

680692 , dtpDescription

681693

682694 -- * DataSetAccessItem

@@ -690,6 +702,14 @@ module Network.Google.BigQuery.Types

690702 , dsaiView

691703 , dsaiUserByEmail

692704

705+ -- * BqmlTrainingRun

706+ , BqmlTrainingRun

707+ , bqmlTrainingRun

708+ , btrState

709+ , btrStartTime

710+ , btrIterationResults

711+ , btrTrainingOptions

712+

693713 -- * TableDataInsertAllResponse

694714 , TableDataInsertAllResponse

695715 , tableDataInsertAllResponse

@@ -753,6 +773,11 @@ module Network.Google.BigQuery.Types

753773 , coEncoding

754774 , coFieldDelimiter

755775

776+ -- * DestinationTablePropertiesLabels

777+ , DestinationTablePropertiesLabels

778+ , destinationTablePropertiesLabels

779+ , dtplAddtional

780+

756781 -- * JobStatistics3

757782 , JobStatistics3

758783 , jobStatistics3

@@ -782,14 +807,6 @@ module Network.Google.BigQuery.Types

782807 , dataSetListDataSetsItemLabels

783808 , dsldsilAddtional

784809

785− -- * TrainingRun

786− , TrainingRun

787− , trainingRun

788− , trState

789− , trStartTime

790− , trIterationResults

791− , trTrainingOptions

792−

793810 -- * TableListTablesItemView

794811 , TableListTablesItemView

795812 , tableListTablesItemView

gogol-bigquery/gen/Network/Google/BigQuery/Types/Product.hs+519−338

@@ -1053,6 +1053,7 @@ data JobStatistics =

10531053 { _jsCreationTime :: !(Maybe (Textual Int64))

10541054 , _jsStartTime :: !(Maybe (Textual Int64))

10551055 , _jsCompletionRatio :: !(Maybe (Textual Double))

1056+ , _jsNumChildJobs :: !(Maybe (Textual Int64))

10561057 , _jsTotalSlotMs :: !(Maybe (Textual Int64))

10571058 , _jsLoad :: !(Maybe JobStatistics3)

10581059 , _jsTotalBytesProcessed :: !(Maybe (Textual Int64))

@@ -1061,6 +1062,7 @@ data JobStatistics =

10611062 , _jsQuery :: !(Maybe JobStatistics2)

10621063 , _jsExtract :: !(Maybe JobStatistics4)

10631064 , _jsReservationUsage :: !(Maybe [JobStatisticsReservationUsageItem])

1065+ , _jsParentJobId :: !(Maybe Text)

10641066 }

10651067 deriving (Eq, Show, Data, Typeable, Generic)

10661068

@@ -1075,6 +1077,8 @@ data JobStatistics =

10751077--

10761078-- * 'jsCompletionRatio'

10771079--

1080+-- * 'jsNumChildJobs'

1081+--

10781082-- * 'jsTotalSlotMs'

10791083--

10801084-- * 'jsLoad'

@@ -1090,6 +1094,8 @@ data JobStatistics =

10901094-- * 'jsExtract'

10911095--

10921096-- * 'jsReservationUsage'

1097+--

1098+-- * 'jsParentJobId'

10931099jobStatistics

10941100 :: JobStatistics

10951101jobStatistics =

@@ -1097,6 +1103,7 @@ jobStatistics =

10971103 { _jsCreationTime = Nothing

10981104 , _jsStartTime = Nothing

10991105 , _jsCompletionRatio = Nothing

1106+ , _jsNumChildJobs = Nothing

11001107 , _jsTotalSlotMs = Nothing

11011108 , _jsLoad = Nothing

11021109 , _jsTotalBytesProcessed = Nothing

@@ -1105,6 +1112,7 @@ jobStatistics =

11051112 , _jsQuery = Nothing

11061113 , _jsExtract = Nothing

11071114 , _jsReservationUsage = Nothing

1115+ , _jsParentJobId = Nothing

11081116 }

11091117

11101118

@@ -1132,6 +1140,13 @@ jsCompletionRatio

11321140 (\ s a -> s{_jsCompletionRatio = a})

11331141 . mapping _Coerce

11341142

1143+-- | [Output-only] Number of child jobs executed.

1144+jsNumChildJobs :: Lens' JobStatistics (Maybe Int64)

1145+jsNumChildJobs

1146+ = lens _jsNumChildJobs

1147+ (\ s a -> s{_jsNumChildJobs = a})

1148+ . mapping _Coerce

1149+

11351150-- | [Output-only] Slot-milliseconds for the job.

11361151jsTotalSlotMs :: Lens' JobStatistics (Maybe Int64)

11371152jsTotalSlotMs

@@ -1183,6 +1198,12 @@ jsReservationUsage

11831198 . _Default

11841199 . _Coerce

11851200

1201+-- | [Output-only] If this is a child job, the id of the parent.

1202+jsParentJobId :: Lens' JobStatistics (Maybe Text)

1203+jsParentJobId

1204+ = lens _jsParentJobId

1205+ (\ s a -> s{_jsParentJobId = a})

1206+

11861207instance FromJSON JobStatistics where

11871208 parseJSON

11881209 = withObject "JobStatistics"

@@ -1190,6 +1211,7 @@ instance FromJSON JobStatistics where

11901211 JobStatistics' <$>

11911212 (o .:? "creationTime") <*> (o .:? "startTime") <*>

11921213 (o .:? "completionRatio")

1214+ <*> (o .:? "numChildJobs")

11931215 <*> (o .:? "totalSlotMs")

11941216 <*> (o .:? "load")

11951217 <*> (o .:? "totalBytesProcessed")

@@ -1197,7 +1219,8 @@ instance FromJSON JobStatistics where

11971219 <*> (o .:? "endTime")

11981220 <*> (o .:? "query")

11991221 <*> (o .:? "extract")

1200− <*> (o .:? "reservationUsage" .!= mempty))

1222+ <*> (o .:? "reservationUsage" .!= mempty)

1223+ <*> (o .:? "parentJobId"))

12011224

12021225instance ToJSON JobStatistics where

12031226 toJSON JobStatistics'{..}

@@ -1206,6 +1229,7 @@ instance ToJSON JobStatistics where

12061229 [("creationTime" .=) <$> _jsCreationTime,

12071230 ("startTime" .=) <$> _jsStartTime,

12081231 ("completionRatio" .=) <$> _jsCompletionRatio,

1232+ ("numChildJobs" .=) <$> _jsNumChildJobs,

12091233 ("totalSlotMs" .=) <$> _jsTotalSlotMs,

12101234 ("load" .=) <$> _jsLoad,

12111235 ("totalBytesProcessed" .=) <$>

@@ -1214,7 +1238,8 @@ instance ToJSON JobStatistics where

12141238 ("endTime" .=) <$> _jsEndTime,

12151239 ("query" .=) <$> _jsQuery,

12161240 ("extract" .=) <$> _jsExtract,

1217− ("reservationUsage" .=) <$> _jsReservationUsage])

1241+ ("reservationUsage" .=) <$> _jsReservationUsage,

1242+ ("parentJobId" .=) <$> _jsParentJobId])

12181243

12191244-- | The labels associated with this job. You can use these to organize and

12201245-- group your jobs. Label keys and values can be no longer than 63

@@ -2042,6 +2067,66 @@ instance ToJSON ModelDefinitionModelOptions where

20422067 ("labels" .=) <$> _mdmoLabels,

20432068 ("lossType" .=) <$> _mdmoLossType])

20442069

2070+--

2071+-- /See:/ 'routineReference' smart constructor.

2072+data RoutineReference =

2073+ RoutineReference'

2074+ { _rrDataSetId :: !(Maybe Text)

2075+ , _rrProjectId :: !(Maybe Text)

2076+ , _rrRoutineId :: !(Maybe Text)

2077+ }

2078+ deriving (Eq, Show, Data, Typeable, Generic)

2079+

2080+

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

2082+--

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

2084+--

2085+-- * 'rrDataSetId'

2086+--

2087+-- * 'rrProjectId'

2088+--

2089+-- * 'rrRoutineId'

2090+routineReference

2091+ :: RoutineReference

2092+routineReference =

2093+ RoutineReference'

2094+ {_rrDataSetId = Nothing, _rrProjectId = Nothing, _rrRoutineId = Nothing}

2095+

2096+

2097+-- | [Required] The ID of the dataset containing this routine.

2098+rrDataSetId :: Lens' RoutineReference (Maybe Text)

2099+rrDataSetId

2100+ = lens _rrDataSetId (\ s a -> s{_rrDataSetId = a})

2101+

2102+-- | [Required] The ID of the project containing this routine.

2103+rrProjectId :: Lens' RoutineReference (Maybe Text)

2104+rrProjectId

2105+ = lens _rrProjectId (\ s a -> s{_rrProjectId = a})

2106+

2107+-- | [Required] The ID of the routine. The ID must contain only letters (a-z,

2108+-- A-Z), numbers (0-9), or underscores (_). The maximum length is 256

2109+-- characters.

2110+rrRoutineId :: Lens' RoutineReference (Maybe Text)

2111+rrRoutineId

2112+ = lens _rrRoutineId (\ s a -> s{_rrRoutineId = a})

2113+

2114+instance FromJSON RoutineReference where

2115+ parseJSON

2116+ = withObject "RoutineReference"

2117+ (\ o ->

2118+ RoutineReference' <$>

2119+ (o .:? "datasetId") <*> (o .:? "projectId") <*>

2120+ (o .:? "routineId"))

2121+

2122+instance ToJSON RoutineReference where

2123+ toJSON RoutineReference'{..}

2124+ = object

2125+ (catMaybes

2126+ [("datasetId" .=) <$> _rrDataSetId,

2127+ ("projectId" .=) <$> _rrProjectId,

2128+ ("routineId" .=) <$> _rrRoutineId])

2129+

20452130--

20462131-- /See:/ 'rangePartitioning' smart constructor.

20472132data RangePartitioning =

@@ -2657,6 +2742,146 @@ instance ToJSON QueryRequest where

26572742 ("maxResults" .=) <$> _qrMaxResults,

26582743 ("defaultDataset" .=) <$> _qrDefaultDataSet])

26592744

2745+-- | [Output-only, Beta] Training options used by this training run. These

2746+-- options are mutable for subsequent training runs. Default values are

2747+-- explicitly stored for options not specified in the input query of the

2748+-- first training run. For subsequent training runs, any option not

2749+-- explicitly specified in the input query will be copied from the previous

2750+-- training run.

2751+--

2752+-- /See:/ 'bqmlTrainingRunTrainingOptions' smart constructor.

2753+data BqmlTrainingRunTrainingOptions =

2754+ BqmlTrainingRunTrainingOptions'

2755+ { _btrtoLineSearchInitLearnRate :: !(Maybe (Textual Double))

2756+ , _btrtoMinRelProgress :: !(Maybe (Textual Double))

2757+ , _btrtoL1Reg :: !(Maybe (Textual Double))

2758+ , _btrtoLearnRate :: !(Maybe (Textual Double))

2759+ , _btrtoLearnRateStrategy :: !(Maybe Text)

2760+ , _btrtoMaxIteration :: !(Maybe (Textual Int64))

2761+ , _btrtoEarlyStop :: !(Maybe Bool)

2762+ , _btrtoL2Reg :: !(Maybe (Textual Double))

2763+ , _btrtoWarmStart :: !(Maybe Bool)

2764+ }

2765+ deriving (Eq, Show, Data, Typeable, Generic)

2766+

2767+

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

2769+--

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

2771+--

2772+-- * 'btrtoLineSearchInitLearnRate'

2773+--

2774+-- * 'btrtoMinRelProgress'

2775+--

2776+-- * 'btrtoL1Reg'

2777+--

2778+-- * 'btrtoLearnRate'

2779+--

2780+-- * 'btrtoLearnRateStrategy'

2781+--

2782+-- * 'btrtoMaxIteration'

2783+--

2784+-- * 'btrtoEarlyStop'

2785+--

2786+-- * 'btrtoL2Reg'

2787+--

2788+-- * 'btrtoWarmStart'

2789+bqmlTrainingRunTrainingOptions

2790+ :: BqmlTrainingRunTrainingOptions

2791+bqmlTrainingRunTrainingOptions =

2792+ BqmlTrainingRunTrainingOptions'

2793+ { _btrtoLineSearchInitLearnRate = Nothing

2794+ , _btrtoMinRelProgress = Nothing

2795+ , _btrtoL1Reg = Nothing

2796+ , _btrtoLearnRate = Nothing

2797+ , _btrtoLearnRateStrategy = Nothing

2798+ , _btrtoMaxIteration = Nothing

2799+ , _btrtoEarlyStop = Nothing

2800+ , _btrtoL2Reg = Nothing

2801+ , _btrtoWarmStart = Nothing

2802+ }

2803+

2804+

2805+btrtoLineSearchInitLearnRate :: Lens' BqmlTrainingRunTrainingOptions (Maybe Double)

2806+btrtoLineSearchInitLearnRate

2807+ = lens _btrtoLineSearchInitLearnRate

2808+ (\ s a -> s{_btrtoLineSearchInitLearnRate = a})

2809+ . mapping _Coerce

2810+

2811+btrtoMinRelProgress :: Lens' BqmlTrainingRunTrainingOptions (Maybe Double)

2812+btrtoMinRelProgress

2813+ = lens _btrtoMinRelProgress

2814+ (\ s a -> s{_btrtoMinRelProgress = a})

2815+ . mapping _Coerce

2816+

2817+btrtoL1Reg :: Lens' BqmlTrainingRunTrainingOptions (Maybe Double)

2818+btrtoL1Reg

2819+ = lens _btrtoL1Reg (\ s a -> s{_btrtoL1Reg = a}) .

2820+ mapping _Coerce

2821+

2822+btrtoLearnRate :: Lens' BqmlTrainingRunTrainingOptions (Maybe Double)

2823+btrtoLearnRate

2824+ = lens _btrtoLearnRate

2825+ (\ s a -> s{_btrtoLearnRate = a})

2826+ . mapping _Coerce

2827+

2828+btrtoLearnRateStrategy :: Lens' BqmlTrainingRunTrainingOptions (Maybe Text)

2829+btrtoLearnRateStrategy

2830+ = lens _btrtoLearnRateStrategy

2831+ (\ s a -> s{_btrtoLearnRateStrategy = a})

2832+

2833+btrtoMaxIteration :: Lens' BqmlTrainingRunTrainingOptions (Maybe Int64)

2834+btrtoMaxIteration

2835+ = lens _btrtoMaxIteration

2836+ (\ s a -> s{_btrtoMaxIteration = a})

2837+ . mapping _Coerce

2838+

2839+btrtoEarlyStop :: Lens' BqmlTrainingRunTrainingOptions (Maybe Bool)

2840+btrtoEarlyStop

2841+ = lens _btrtoEarlyStop

2842+ (\ s a -> s{_btrtoEarlyStop = a})

2843+

2844+btrtoL2Reg :: Lens' BqmlTrainingRunTrainingOptions (Maybe Double)

2845+btrtoL2Reg

2846+ = lens _btrtoL2Reg (\ s a -> s{_btrtoL2Reg = a}) .

2847+ mapping _Coerce

2848+

2849+btrtoWarmStart :: Lens' BqmlTrainingRunTrainingOptions (Maybe Bool)

2850+btrtoWarmStart

2851+ = lens _btrtoWarmStart

2852+ (\ s a -> s{_btrtoWarmStart = a})

2853+

2854+instance FromJSON BqmlTrainingRunTrainingOptions

2855+ where

2856+ parseJSON

2857+ = withObject "BqmlTrainingRunTrainingOptions"

2858+ (\ o ->

2859+ BqmlTrainingRunTrainingOptions' <$>

2860+ (o .:? "lineSearchInitLearnRate") <*>

2861+ (o .:? "minRelProgress")

2862+ <*> (o .:? "l1Reg")

2863+ <*> (o .:? "learnRate")

2864+ <*> (o .:? "learnRateStrategy")

2865+ <*> (o .:? "maxIteration")

2866+ <*> (o .:? "earlyStop")

2867+ <*> (o .:? "l2Reg")

2868+ <*> (o .:? "warmStart"))

2869+

2870+instance ToJSON BqmlTrainingRunTrainingOptions where

2871+ toJSON BqmlTrainingRunTrainingOptions'{..}

2872+ = object

2873+ (catMaybes

2874+ [("lineSearchInitLearnRate" .=) <$>

2875+ _btrtoLineSearchInitLearnRate,

2876+ ("minRelProgress" .=) <$> _btrtoMinRelProgress,

2877+ ("l1Reg" .=) <$> _btrtoL1Reg,

2878+ ("learnRate" .=) <$> _btrtoLearnRate,

2879+ ("learnRateStrategy" .=) <$> _btrtoLearnRateStrategy,

2880+ ("maxIteration" .=) <$> _btrtoMaxIteration,

2881+ ("earlyStop" .=) <$> _btrtoEarlyStop,

2882+ ("l2Reg" .=) <$> _btrtoL2Reg,

2883+ ("warmStart" .=) <$> _btrtoWarmStart])

2884+

26602885--

26612886-- /See:/ 'queryParameter' smart constructor.

26622887data QueryParameter =

@@ -2717,109 +2942,12 @@ instance ToJSON QueryParameter where

27172942 ("parameterType" .=) <$> _qpParameterType,

27182943 ("name" .=) <$> _qpName])

27192944

2720−--

2721−-- /See:/ 'iterationResult' smart constructor.

2722−data IterationResult =

2723− IterationResult'

2724− { _irDurationMs :: !(Maybe (Textual Int64))

2725− , _irLearnRate :: !(Maybe (Textual Double))

2726− , _irEvalLoss :: !(Maybe (Textual Double))

2727− , _irTrainingLoss :: !(Maybe (Textual Double))

2728− , _irIndex :: !(Maybe (Textual Int32))

2729− }

2730− deriving (Eq, Show, Data, Typeable, Generic)

2731−

2732−

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

2734−--

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

2736−--

2737−-- * 'irDurationMs'

2738−--

2739−-- * 'irLearnRate'

2740−--

2741−-- * 'irEvalLoss'

2742−--

2743−-- * 'irTrainingLoss'

2744−--

2745−-- * 'irIndex'

2746−iterationResult

2747− :: IterationResult

2748−iterationResult =

2749− IterationResult'

2750− { _irDurationMs = Nothing

2751− , _irLearnRate = Nothing

2752− , _irEvalLoss = Nothing

2753− , _irTrainingLoss = Nothing

2754− , _irIndex = Nothing

2755− }

2756−

2757−

2758−-- | [Output-only, Beta] Time taken to run the training iteration in

2759−-- milliseconds.

2760−irDurationMs :: Lens' IterationResult (Maybe Int64)

2761−irDurationMs

2762− = lens _irDurationMs (\ s a -> s{_irDurationMs = a})

2763− . mapping _Coerce

2764−

2765−-- | [Output-only, Beta] Learning rate used for this iteration, it varies for

2766−-- different training iterations if learn_rate_strategy option is not

2767−-- constant.

2768−irLearnRate :: Lens' IterationResult (Maybe Double)

2769−irLearnRate

2770− = lens _irLearnRate (\ s a -> s{_irLearnRate = a}) .

2771− mapping _Coerce

2772−

2773−-- | [Output-only, Beta] Eval loss computed on the eval data at the end of

2774−-- the iteration. The eval loss is used for early stopping to avoid

2775−-- overfitting. No eval loss if eval_split_method option is specified as

2776−-- no_split or auto_split with input data size less than 500 rows.

2777−irEvalLoss :: Lens' IterationResult (Maybe Double)

2778−irEvalLoss

2779− = lens _irEvalLoss (\ s a -> s{_irEvalLoss = a}) .

2780− mapping _Coerce

2781−

2782−-- | [Output-only, Beta] Training loss computed on the training data at the

2783−-- end of the iteration. The training loss function is defined by model

2784−-- type.

2785−irTrainingLoss :: Lens' IterationResult (Maybe Double)

2786−irTrainingLoss

2787− = lens _irTrainingLoss

2788− (\ s a -> s{_irTrainingLoss = a})

2789− . mapping _Coerce

2790−

2791−-- | [Output-only, Beta] Index of the ML training iteration, starting from

2792−-- zero for each training run.

2793−irIndex :: Lens' IterationResult (Maybe Int32)

2794−irIndex

2795− = lens _irIndex (\ s a -> s{_irIndex = a}) .

2796− mapping _Coerce

2797−

2798−instance FromJSON IterationResult where

2799− parseJSON

2800− = withObject "IterationResult"

2801− (\ o ->

2802− IterationResult' <$>

2803− (o .:? "durationMs") <*> (o .:? "learnRate") <*>

2804− (o .:? "evalLoss")

2805− <*> (o .:? "trainingLoss")

2806− <*> (o .:? "index"))

2807−

2808−instance ToJSON IterationResult where

2809− toJSON IterationResult'{..}

2810− = object

2811− (catMaybes

2812− [("durationMs" .=) <$> _irDurationMs,

2813− ("learnRate" .=) <$> _irLearnRate,

2814− ("evalLoss" .=) <$> _irEvalLoss,

2815− ("trainingLoss" .=) <$> _irTrainingLoss,

2816− ("index" .=) <$> _irIndex])

2817−

28182945--

28192946-- /See:/ 'jobStatistics4' smart constructor.

2820−newtype JobStatistics4 =

2947+data JobStatistics4 =

28212948 JobStatistics4'

2822− { _jsDestinationURIFileCounts :: Maybe [Textual Int64]

2949+ { _jsInputBytes :: !(Maybe (Textual Int64))

2950+ , _jsDestinationURIFileCounts :: !(Maybe [Textual Int64])

28232951 }

28242952 deriving (Eq, Show, Data, Typeable, Generic)

28252953

@@ -2828,11 +2956,22 @@ newtype JobStatistics4 =

28282956--

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

28302958--

2959+-- * 'jsInputBytes'

2960+--

28312961-- * 'jsDestinationURIFileCounts'

28322962jobStatistics4

28332963 :: JobStatistics4

2834−jobStatistics4 = JobStatistics4' {_jsDestinationURIFileCounts = Nothing}

2964+jobStatistics4 =

2965+ JobStatistics4'

2966+ {_jsInputBytes = Nothing, _jsDestinationURIFileCounts = Nothing}

2967+

28352968

2969+-- | [Output-only] Number of user bytes extracted into the result. This is

2970+-- the byte count as computed by BigQuery for billing purposes.

2971+jsInputBytes :: Lens' JobStatistics4 (Maybe Int64)

2972+jsInputBytes

2973+ = lens _jsInputBytes (\ s a -> s{_jsInputBytes = a})

2974+ . mapping _Coerce

28362975

28372976-- | [Output-only] Number of files per destination URI or URI pattern

28382977-- specified in the extract configuration. These values will be in the same

@@ -2849,13 +2988,15 @@ instance FromJSON JobStatistics4 where

28492988 = withObject "JobStatistics4"

28502989 (\ o ->

28512990 JobStatistics4' <$>

2852− (o .:? "destinationUriFileCounts" .!= mempty))

2991+ (o .:? "inputBytes") <*>

2992+ (o .:? "destinationUriFileCounts" .!= mempty))

28532993

28542994instance ToJSON JobStatistics4 where

28552995 toJSON JobStatistics4'{..}

28562996 = object

28572997 (catMaybes

2858− [("destinationUriFileCounts" .=) <$>

2998+ [("inputBytes" .=) <$> _jsInputBytes,

2999+ ("destinationUriFileCounts" .=) <$>

28593000 _jsDestinationURIFileCounts])

28603001

28613002--

@@ -3290,145 +3431,6 @@ instance ToJSON ExplainQueryStage where

32903431 ("endMs" .=) <$> _eqsEndMs,

32913432 ("waitMsMax" .=) <$> _eqsWaitMsMax])

32923433

3293−-- | [Output-only, Beta] Training options used by this training run. These

3294−-- options are mutable for subsequent training runs. Default values are

3295−-- explicitly stored for options not specified in the input query of the

3296−-- first training run. For subsequent training runs, any option not

3297−-- explicitly specified in the input query will be copied from the previous

3298−-- training run.

3299−--

3300−-- /See:/ 'trainingRunTrainingOptions' smart constructor.

3301−data TrainingRunTrainingOptions =

3302− TrainingRunTrainingOptions'

3303− { _trtoLineSearchInitLearnRate :: !(Maybe (Textual Double))

3304− , _trtoMinRelProgress :: !(Maybe (Textual Double))

3305− , _trtoL1Reg :: !(Maybe (Textual Double))

3306− , _trtoLearnRate :: !(Maybe (Textual Double))

3307− , _trtoLearnRateStrategy :: !(Maybe Text)

3308− , _trtoMaxIteration :: !(Maybe (Textual Int64))

3309− , _trtoEarlyStop :: !(Maybe Bool)

3310− , _trtoL2Reg :: !(Maybe (Textual Double))

3311− , _trtoWarmStart :: !(Maybe Bool)

3312− }

3313− deriving (Eq, Show, Data, Typeable, Generic)

3314−

3315−

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

3317−--

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

3319−--

3320−-- * 'trtoLineSearchInitLearnRate'

3321−--

3322−-- * 'trtoMinRelProgress'

3323−--

3324−-- * 'trtoL1Reg'

3325−--

3326−-- * 'trtoLearnRate'

3327−--

3328−-- * 'trtoLearnRateStrategy'

3329−--

3330−-- * 'trtoMaxIteration'

3331−--

3332−-- * 'trtoEarlyStop'

3333−--

3334−-- * 'trtoL2Reg'

3335−--

3336−-- * 'trtoWarmStart'

3337−trainingRunTrainingOptions

3338− :: TrainingRunTrainingOptions

3339−trainingRunTrainingOptions =

3340− TrainingRunTrainingOptions'

3341− { _trtoLineSearchInitLearnRate = Nothing

3342− , _trtoMinRelProgress = Nothing

3343− , _trtoL1Reg = Nothing

3344− , _trtoLearnRate = Nothing

3345− , _trtoLearnRateStrategy = Nothing

3346− , _trtoMaxIteration = Nothing

3347− , _trtoEarlyStop = Nothing

3348− , _trtoL2Reg = Nothing

3349− , _trtoWarmStart = Nothing

3350− }

3351−

3352−

3353−trtoLineSearchInitLearnRate :: Lens' TrainingRunTrainingOptions (Maybe Double)

3354−trtoLineSearchInitLearnRate

3355− = lens _trtoLineSearchInitLearnRate

3356− (\ s a -> s{_trtoLineSearchInitLearnRate = a})

3357− . mapping _Coerce

3358−

3359−trtoMinRelProgress :: Lens' TrainingRunTrainingOptions (Maybe Double)

3360−trtoMinRelProgress

3361− = lens _trtoMinRelProgress

3362− (\ s a -> s{_trtoMinRelProgress = a})

3363− . mapping _Coerce

3364−

3365−trtoL1Reg :: Lens' TrainingRunTrainingOptions (Maybe Double)

3366−trtoL1Reg

3367− = lens _trtoL1Reg (\ s a -> s{_trtoL1Reg = a}) .

3368− mapping _Coerce

3369−

3370−trtoLearnRate :: Lens' TrainingRunTrainingOptions (Maybe Double)

3371−trtoLearnRate

3372− = lens _trtoLearnRate

3373− (\ s a -> s{_trtoLearnRate = a})

3374− . mapping _Coerce

3375−

3376−trtoLearnRateStrategy :: Lens' TrainingRunTrainingOptions (Maybe Text)

3377−trtoLearnRateStrategy

3378− = lens _trtoLearnRateStrategy

3379− (\ s a -> s{_trtoLearnRateStrategy = a})

3380−

3381−trtoMaxIteration :: Lens' TrainingRunTrainingOptions (Maybe Int64)

3382−trtoMaxIteration

3383− = lens _trtoMaxIteration

3384− (\ s a -> s{_trtoMaxIteration = a})

3385− . mapping _Coerce

3386−

3387−trtoEarlyStop :: Lens' TrainingRunTrainingOptions (Maybe Bool)

3388−trtoEarlyStop

3389− = lens _trtoEarlyStop

3390− (\ s a -> s{_trtoEarlyStop = a})

3391−

3392−trtoL2Reg :: Lens' TrainingRunTrainingOptions (Maybe Double)

3393−trtoL2Reg

3394− = lens _trtoL2Reg (\ s a -> s{_trtoL2Reg = a}) .

3395− mapping _Coerce

3396−

3397−trtoWarmStart :: Lens' TrainingRunTrainingOptions (Maybe Bool)

3398−trtoWarmStart

3399− = lens _trtoWarmStart

3400− (\ s a -> s{_trtoWarmStart = a})

3401−

3402−instance FromJSON TrainingRunTrainingOptions where

3403− parseJSON

3404− = withObject "TrainingRunTrainingOptions"

3405− (\ o ->

3406− TrainingRunTrainingOptions' <$>

3407− (o .:? "lineSearchInitLearnRate") <*>

3408− (o .:? "minRelProgress")

3409− <*> (o .:? "l1Reg")

3410− <*> (o .:? "learnRate")

3411− <*> (o .:? "learnRateStrategy")

3412− <*> (o .:? "maxIteration")

3413− <*> (o .:? "earlyStop")

3414− <*> (o .:? "l2Reg")

3415− <*> (o .:? "warmStart"))

3416−

3417−instance ToJSON TrainingRunTrainingOptions where

3418− toJSON TrainingRunTrainingOptions'{..}

3419− = object

3420− (catMaybes

3421− [("lineSearchInitLearnRate" .=) <$>

3422− _trtoLineSearchInitLearnRate,

3423− ("minRelProgress" .=) <$> _trtoMinRelProgress,

3424− ("l1Reg" .=) <$> _trtoL1Reg,

3425− ("learnRate" .=) <$> _trtoLearnRate,

3426− ("learnRateStrategy" .=) <$> _trtoLearnRateStrategy,

3427− ("maxIteration" .=) <$> _trtoMaxIteration,

3428− ("earlyStop" .=) <$> _trtoEarlyStop,

3429− ("l2Reg" .=) <$> _trtoL2Reg,

3430− ("warmStart" .=) <$> _trtoWarmStart])

3431−

34323434--

34333435-- /See:/ 'bigQueryModelTraining' smart constructor.

34343436data BigQueryModelTraining =

@@ -4279,6 +4281,105 @@ instance ToJSON ProjectListProjectsItem where

42794281 ("id" .=) <$> _plpiId,

42804282 ("numericId" .=) <$> _plpiNumericId])

42814283

4284+--

4285+-- /See:/ 'bqmlIterationResult' smart constructor.

4286+data BqmlIterationResult =

4287+ BqmlIterationResult'

4288+ { _birDurationMs :: !(Maybe (Textual Int64))

4289+ , _birLearnRate :: !(Maybe (Textual Double))

4290+ , _birEvalLoss :: !(Maybe (Textual Double))

4291+ , _birTrainingLoss :: !(Maybe (Textual Double))

4292+ , _birIndex :: !(Maybe (Textual Int32))

4293+ }

4294+ deriving (Eq, Show, Data, Typeable, Generic)

4295+

4296+

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

4298+--

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

4300+--

4301+-- * 'birDurationMs'

4302+--

4303+-- * 'birLearnRate'

4304+--

4305+-- * 'birEvalLoss'

4306+--

4307+-- * 'birTrainingLoss'

4308+--

4309+-- * 'birIndex'

4310+bqmlIterationResult

4311+ :: BqmlIterationResult

4312+bqmlIterationResult =

4313+ BqmlIterationResult'

4314+ { _birDurationMs = Nothing

4315+ , _birLearnRate = Nothing

4316+ , _birEvalLoss = Nothing

4317+ , _birTrainingLoss = Nothing

4318+ , _birIndex = Nothing

4319+ }

4320+

4321+

4322+-- | [Output-only, Beta] Time taken to run the training iteration in

4323+-- milliseconds.

4324+birDurationMs :: Lens' BqmlIterationResult (Maybe Int64)

4325+birDurationMs

4326+ = lens _birDurationMs

4327+ (\ s a -> s{_birDurationMs = a})

4328+ . mapping _Coerce

4329+

4330+-- | [Output-only, Beta] Learning rate used for this iteration, it varies for

4331+-- different training iterations if learn_rate_strategy option is not

4332+-- constant.

4333+birLearnRate :: Lens' BqmlIterationResult (Maybe Double)

4334+birLearnRate

4335+ = lens _birLearnRate (\ s a -> s{_birLearnRate = a})

4336+ . mapping _Coerce

4337+

4338+-- | [Output-only, Beta] Eval loss computed on the eval data at the end of

4339+-- the iteration. The eval loss is used for early stopping to avoid

4340+-- overfitting. No eval loss if eval_split_method option is specified as

4341+-- no_split or auto_split with input data size less than 500 rows.

4342+birEvalLoss :: Lens' BqmlIterationResult (Maybe Double)

4343+birEvalLoss

4344+ = lens _birEvalLoss (\ s a -> s{_birEvalLoss = a}) .

4345+ mapping _Coerce

4346+

4347+-- | [Output-only, Beta] Training loss computed on the training data at the

4348+-- end of the iteration. The training loss function is defined by model

4349+-- type.

4350+birTrainingLoss :: Lens' BqmlIterationResult (Maybe Double)

4351+birTrainingLoss

4352+ = lens _birTrainingLoss

4353+ (\ s a -> s{_birTrainingLoss = a})

4354+ . mapping _Coerce

4355+

4356+-- | [Output-only, Beta] Index of the ML training iteration, starting from

4357+-- zero for each training run.

4358+birIndex :: Lens' BqmlIterationResult (Maybe Int32)

4359+birIndex

4360+ = lens _birIndex (\ s a -> s{_birIndex = a}) .

4361+ mapping _Coerce

4362+

4363+instance FromJSON BqmlIterationResult where

4364+ parseJSON

4365+ = withObject "BqmlIterationResult"

4366+ (\ o ->

4367+ BqmlIterationResult' <$>

4368+ (o .:? "durationMs") <*> (o .:? "learnRate") <*>

4369+ (o .:? "evalLoss")

4370+ <*> (o .:? "trainingLoss")

4371+ <*> (o .:? "index"))

4372+

4373+instance ToJSON BqmlIterationResult where

4374+ toJSON BqmlIterationResult'{..}

4375+ = object

4376+ (catMaybes

4377+ [("durationMs" .=) <$> _birDurationMs,

4378+ ("learnRate" .=) <$> _birLearnRate,

4379+ ("evalLoss" .=) <$> _birEvalLoss,

4380+ ("trainingLoss" .=) <$> _birTrainingLoss,

4381+ ("index" .=) <$> _birIndex])

4382+

42824383--

42834384-- /See:/ 'bigtableColumn' smart constructor.

42844385data BigtableColumn =

@@ -5267,7 +5368,7 @@ instance ToJSON JobConfigurationExtract where

52675368data ModelDefinition =

52685369 ModelDefinition'

52695370 { _mdModelOptions :: !(Maybe ModelDefinitionModelOptions)

5270− , _mdTrainingRuns :: !(Maybe [TrainingRun])

5371+ , _mdTrainingRuns :: !(Maybe [BqmlTrainingRun])

52715372 }

52725373 deriving (Eq, Show, Data, Typeable, Generic)

52735374

@@ -5297,7 +5398,7 @@ mdModelOptions

52975398-- run comprises of multiple iterations and there may be multiple training

52985399-- runs for the model if warm start is used or if a user decides to

52995400-- continue a previously cancelled query.

5300−mdTrainingRuns :: Lens' ModelDefinition [TrainingRun]

5401+mdTrainingRuns :: Lens' ModelDefinition [BqmlTrainingRun]

53015402mdTrainingRuns

53025403 = lens _mdTrainingRuns

53035404 (\ s a -> s{_mdTrainingRuns = a})

@@ -6262,6 +6363,7 @@ data JobStatistics2 =

62626363 { _jModelTrainingExpectedTotalIteration :: !(Maybe (Textual Int64))

62636364 , _jModelTraining :: !(Maybe BigQueryModelTraining)

62646365 , _jTotalSlotMs :: !(Maybe (Textual Int64))

6366+ , _jDdlTargetRoutine :: !(Maybe RoutineReference)

62656367 , _jDdlTargetTable :: !(Maybe TableReference)

62666368 , _jEstimatedBytesProcessed :: !(Maybe (Textual Int64))

62676369 , _jModelTrainingCurrentIteration :: !(Maybe (Textual Int32))

@@ -6294,6 +6396,8 @@ data JobStatistics2 =

62946396--

62956397-- * 'jTotalSlotMs'

62966398--

6399+-- * 'jDdlTargetRoutine'

6400+--

62976401-- * 'jDdlTargetTable'

62986402--

62996403-- * 'jEstimatedBytesProcessed'

@@ -6336,6 +6440,7 @@ jobStatistics2 =

63366440 { _jModelTrainingExpectedTotalIteration = Nothing

63376441 , _jModelTraining = Nothing

63386442 , _jTotalSlotMs = Nothing

6443+ , _jDdlTargetRoutine = Nothing

63396444 , _jDdlTargetTable = Nothing

63406445 , _jEstimatedBytesProcessed = Nothing

63416446 , _jModelTrainingCurrentIteration = Nothing

@@ -6377,6 +6482,13 @@ jTotalSlotMs

63776482 = lens _jTotalSlotMs (\ s a -> s{_jTotalSlotMs = a})

63786483 . mapping _Coerce

63796484

6485+-- | The DDL target routine. Present only for CREATE\/DROP

6486+-- FUNCTION\/PROCEDURE queries.

6487+jDdlTargetRoutine :: Lens' JobStatistics2 (Maybe RoutineReference)

6488+jDdlTargetRoutine

6489+ = lens _jDdlTargetRoutine

6490+ (\ s a -> s{_jDdlTargetRoutine = a})

6491+

63806492-- | The DDL target table. Present only for CREATE\/DROP TABLE\/VIEW queries.

63816493jDdlTargetTable :: Lens' JobStatistics2 (Maybe TableReference)

63826494jDdlTargetTable

@@ -6419,7 +6531,7 @@ jBillingTier

64196531-- this field specifies the accuracy of the estimate. Possible values can

64206532-- be: UNKNOWN: accuracy of the estimate is unknown. PRECISE: estimate is

64216533-- precise. LOWER_BOUND: estimate is lower bound of what the query would

6422−-- cost. UPPER_BOUND: estiamte is upper bound of what the query would cost.

6534+-- cost. UPPER_BOUND: estimate is upper bound of what the query would cost.

64236535jTotalBytesProcessedAccuracy :: Lens' JobStatistics2 (Maybe Text)

64246536jTotalBytesProcessedAccuracy

64256537 = lens _jTotalBytesProcessedAccuracy

@@ -6457,7 +6569,9 @@ jReferencedTables

64576569-- \"CREATE_TABLE_AS_SELECT\": CREATE [OR REPLACE] TABLE ... AS SELECT ...

64586570-- . \"DROP_TABLE\": DROP TABLE query. \"CREATE_VIEW\": CREATE [OR REPLACE]

64596571-- VIEW ... AS SELECT ... . \"DROP_VIEW\": DROP VIEW query.

6460−-- \"ALTER_TABLE\": ALTER TABLE query. \"ALTER_VIEW\": ALTER VIEW query.

6572+-- \"CREATE_FUNCTION\": CREATE FUNCTION query. \"DROP_FUNCTION\" : DROP

6573+-- FUNCTION query. \"ALTER_TABLE\": ALTER TABLE query. \"ALTER_VIEW\":

6574+-- ALTER VIEW query.

64616575jStatementType :: Lens' JobStatistics2 (Maybe Text)

64626576jStatementType

64636577 = lens _jStatementType

@@ -6534,6 +6648,7 @@ instance FromJSON JobStatistics2 where

65346648 (o .:? "modelTrainingExpectedTotalIteration") <*>

65356649 (o .:? "modelTraining")

65366650 <*> (o .:? "totalSlotMs")

6651+ <*> (o .:? "ddlTargetRoutine")

65376652 <*> (o .:? "ddlTargetTable")

65386653 <*> (o .:? "estimatedBytesProcessed")

65396654 <*> (o .:? "modelTrainingCurrentIteration")

@@ -6561,6 +6676,7 @@ instance ToJSON JobStatistics2 where

65616676 _jModelTrainingExpectedTotalIteration,

65626677 ("modelTraining" .=) <$> _jModelTraining,

65636678 ("totalSlotMs" .=) <$> _jTotalSlotMs,

6679+ ("ddlTargetRoutine" .=) <$> _jDdlTargetRoutine,

65646680 ("ddlTargetTable" .=) <$> _jDdlTargetTable,

65656681 ("estimatedBytesProcessed" .=) <$>

65666682 _jEstimatedBytesProcessed,

@@ -6735,6 +6851,7 @@ instance ToJSON TableLabels where

67356851data DestinationTableProperties =

67366852 DestinationTableProperties'

67376853 { _dtpFriendlyName :: !(Maybe Text)

6854+ , _dtpLabels :: !(Maybe DestinationTablePropertiesLabels)

67386855 , _dtpDescription :: !(Maybe Text)

67396856 }

67406857 deriving (Eq, Show, Data, Typeable, Generic)

@@ -6746,12 +6863,17 @@ data DestinationTableProperties =

67466863--

67476864-- * 'dtpFriendlyName'

67486865--

6866+-- * 'dtpLabels'

6867+--

67496868-- * 'dtpDescription'

67506869destinationTableProperties

67516870 :: DestinationTableProperties

67526871destinationTableProperties =

67536872 DestinationTableProperties'

6754− {_dtpFriendlyName = Nothing, _dtpDescription = Nothing}

6873+ { _dtpFriendlyName = Nothing

6874+ , _dtpLabels = Nothing

6875+ , _dtpDescription = Nothing

6876+ }

67556877

67566878

67576879-- | [Optional] The friendly name for the destination table. This will only

@@ -6763,6 +6885,15 @@ dtpFriendlyName

67636885 = lens _dtpFriendlyName

67646886 (\ s a -> s{_dtpFriendlyName = a})

67656887

6888+-- | [Optional] The labels associated with this table. You can use these to

6889+-- organize and group your tables. This will only be used if the

6890+-- destination table is newly created. If the table already exists and

6891+-- labels are different than the current labels are provided, the job will

6892+-- fail.

6893+dtpLabels :: Lens' DestinationTableProperties (Maybe DestinationTablePropertiesLabels)

6894+dtpLabels

6895+ = lens _dtpLabels (\ s a -> s{_dtpLabels = a})

6896+

67666897-- | [Optional] The description for the destination table. This will only be

67676898-- used if the destination table is newly created. If the table already

67686899-- exists and a value different than the current description is provided,

@@ -6777,13 +6908,15 @@ instance FromJSON DestinationTableProperties where

67776908 = withObject "DestinationTableProperties"

67786909 (\ o ->

67796910 DestinationTableProperties' <$>

6780− (o .:? "friendlyName") <*> (o .:? "description"))

6911+ (o .:? "friendlyName") <*> (o .:? "labels") <*>

6912+ (o .:? "description"))

67816913

67826914instance ToJSON DestinationTableProperties where

67836915 toJSON DestinationTableProperties'{..}

67846916 = object

67856917 (catMaybes

67866918 [("friendlyName" .=) <$> _dtpFriendlyName,

6919+ ("labels" .=) <$> _dtpLabels,

67876920 ("description" .=) <$> _dtpDescription])

67886921

67896922--

@@ -6856,9 +6989,13 @@ dsaiSpecialGroup

68566989 = lens _dsaiSpecialGroup

68576990 (\ s a -> s{_dsaiSpecialGroup = a})

68586991

6859−-- | [Required] Describes the rights granted to the user specified by the

6860−-- other member of the access object. The following string values are

6861−-- supported: READER, WRITER, OWNER.

6992+-- | [Required] An IAM role ID that should be granted to the user, group, or

6993+-- domain specified in this access entry. The following legacy mappings

6994+-- will be applied: OWNER roles\/bigquery.dataOwner WRITER

6995+-- roles\/bigquery.dataEditor READER roles\/bigquery.dataViewer This field

6996+-- will accept any of the above formats, but will return only the legacy

6997+-- format. For example, if you set this field to

6998+-- \"roles\/bigquery.dataOwner\", it will be returned back as \"OWNER\".

68626999dsaiRole :: Lens' DataSetAccessItem (Maybe Text)

68637000dsaiRole = lens _dsaiRole (\ s a -> s{_dsaiRole = a})

68647001

@@ -6909,6 +7046,91 @@ instance ToJSON DataSetAccessItem where

69097046 ("view" .=) <$> _dsaiView,

69107047 ("userByEmail" .=) <$> _dsaiUserByEmail])

69117048

7049+--

7050+-- /See:/ 'bqmlTrainingRun' smart constructor.

7051+data BqmlTrainingRun =

7052+ BqmlTrainingRun'

7053+ { _btrState :: !(Maybe Text)

7054+ , _btrStartTime :: !(Maybe DateTime')

7055+ , _btrIterationResults :: !(Maybe [BqmlIterationResult])

7056+ , _btrTrainingOptions :: !(Maybe BqmlTrainingRunTrainingOptions)

7057+ }

7058+ deriving (Eq, Show, Data, Typeable, Generic)

7059+

7060+

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

7062+--

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

7064+--

7065+-- * 'btrState'

7066+--

7067+-- * 'btrStartTime'

7068+--

7069+-- * 'btrIterationResults'

7070+--

7071+-- * 'btrTrainingOptions'

7072+bqmlTrainingRun

7073+ :: BqmlTrainingRun

7074+bqmlTrainingRun =

7075+ BqmlTrainingRun'

7076+ { _btrState = Nothing

7077+ , _btrStartTime = Nothing

7078+ , _btrIterationResults = Nothing

7079+ , _btrTrainingOptions = Nothing

7080+ }

7081+

7082+

7083+-- | [Output-only, Beta] Different state applicable for a training run. IN

7084+-- PROGRESS: Training run is in progress. FAILED: Training run ended due to

7085+-- a non-retryable failure. SUCCEEDED: Training run successfully completed.

7086+-- CANCELLED: Training run cancelled by the user.

7087+btrState :: Lens' BqmlTrainingRun (Maybe Text)

7088+btrState = lens _btrState (\ s a -> s{_btrState = a})

7089+

7090+-- | [Output-only, Beta] Training run start time in milliseconds since the

7091+-- epoch.

7092+btrStartTime :: Lens' BqmlTrainingRun (Maybe UTCTime)

7093+btrStartTime

7094+ = lens _btrStartTime (\ s a -> s{_btrStartTime = a})

7095+ . mapping _DateTime

7096+

7097+-- | [Output-only, Beta] List of each iteration results.

7098+btrIterationResults :: Lens' BqmlTrainingRun [BqmlIterationResult]

7099+btrIterationResults

7100+ = lens _btrIterationResults

7101+ (\ s a -> s{_btrIterationResults = a})

7102+ . _Default

7103+ . _Coerce

7104+

7105+-- | [Output-only, Beta] Training options used by this training run. These

7106+-- options are mutable for subsequent training runs. Default values are

7107+-- explicitly stored for options not specified in the input query of the

7108+-- first training run. For subsequent training runs, any option not

7109+-- explicitly specified in the input query will be copied from the previous

7110+-- training run.

7111+btrTrainingOptions :: Lens' BqmlTrainingRun (Maybe BqmlTrainingRunTrainingOptions)

7112+btrTrainingOptions

7113+ = lens _btrTrainingOptions

7114+ (\ s a -> s{_btrTrainingOptions = a})

7115+

7116+instance FromJSON BqmlTrainingRun where

7117+ parseJSON

7118+ = withObject "BqmlTrainingRun"

7119+ (\ o ->

7120+ BqmlTrainingRun' <$>

7121+ (o .:? "state") <*> (o .:? "startTime") <*>

7122+ (o .:? "iterationResults" .!= mempty)

7123+ <*> (o .:? "trainingOptions"))

7124+

7125+instance ToJSON BqmlTrainingRun where

7126+ toJSON BqmlTrainingRun'{..}

7127+ = object

7128+ (catMaybes

7129+ [("state" .=) <$> _btrState,

7130+ ("startTime" .=) <$> _btrStartTime,

7131+ ("iterationResults" .=) <$> _btrIterationResults,

7132+ ("trainingOptions" .=) <$> _btrTrainingOptions])

7133+

69127134--

69137135-- /See:/ 'tableDataInsertAllResponse' smart constructor.

69147136data TableDataInsertAllResponse =

@@ -7606,6 +7828,50 @@ instance ToJSON CSVOptions where

76067828 ("encoding" .=) <$> _coEncoding,

76077829 ("fieldDelimiter" .=) <$> _coFieldDelimiter])

76087830

7831+-- | [Optional] The labels associated with this table. You can use these to

7832+-- organize and group your tables. This will only be used if the

7833+-- destination table is newly created. If the table already exists and

7834+-- labels are different than the current labels are provided, the job will

7835+-- fail.

7836+--

7837+-- /See:/ 'destinationTablePropertiesLabels' smart constructor.

7838+newtype DestinationTablePropertiesLabels =

7839+ DestinationTablePropertiesLabels'

7840+ { _dtplAddtional :: HashMap Text Text

7841+ }

7842+ deriving (Eq, Show, Data, Typeable, Generic)

7843+

7844+

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

7846+--

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

7848+--

7849+-- * 'dtplAddtional'

7850+destinationTablePropertiesLabels

7851+ :: HashMap Text Text -- ^ 'dtplAddtional'

7852+ -> DestinationTablePropertiesLabels

7853+destinationTablePropertiesLabels pDtplAddtional_ =

7854+ DestinationTablePropertiesLabels' {_dtplAddtional = _Coerce # pDtplAddtional_}

7855+

7856+

7857+dtplAddtional :: Lens' DestinationTablePropertiesLabels (HashMap Text Text)

7858+dtplAddtional

7859+ = lens _dtplAddtional

7860+ (\ s a -> s{_dtplAddtional = a})

7861+ . _Coerce

7862+

7863+instance FromJSON DestinationTablePropertiesLabels

7864+ where

7865+ parseJSON

7866+ = withObject "DestinationTablePropertiesLabels"

7867+ (\ o ->

7868+ DestinationTablePropertiesLabels' <$>

7869+ (parseJSONObject o))

7870+

7871+instance ToJSON DestinationTablePropertiesLabels

7872+ where

7873+ toJSON = toJSON . _dtplAddtional

7874+

76097875--

76107876-- /See:/ 'jobStatistics3' smart constructor.

76117877data JobStatistics3 =

@@ -7913,91 +8179,6 @@ instance FromJSON DataSetListDataSetsItemLabels where

79138179instance ToJSON DataSetListDataSetsItemLabels where

79148180 toJSON = toJSON . _dsldsilAddtional

79158181

7916−--

7917−-- /See:/ 'trainingRun' smart constructor.

7918−data TrainingRun =

7919− TrainingRun'

7920− { _trState :: !(Maybe Text)

7921− , _trStartTime :: !(Maybe DateTime')

7922− , _trIterationResults :: !(Maybe [IterationResult])

7923− , _trTrainingOptions :: !(Maybe TrainingRunTrainingOptions)

7924− }

7925− deriving (Eq, Show, Data, Typeable, Generic)

7926−

7927−

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

7929−--

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

7931−--

7932−-- * 'trState'

7933−--

7934−-- * 'trStartTime'

7935−--

7936−-- * 'trIterationResults'

7937−--

7938−-- * 'trTrainingOptions'

7939−trainingRun

7940− :: TrainingRun

7941−trainingRun =

7942− TrainingRun'

7943− { _trState = Nothing

7944− , _trStartTime = Nothing

7945− , _trIterationResults = Nothing

7946− , _trTrainingOptions = Nothing

7947− }

7948−

7949−

7950−-- | [Output-only, Beta] Different state applicable for a training run. IN

7951−-- PROGRESS: Training run is in progress. FAILED: Training run ended due to

7952−-- a non-retryable failure. SUCCEEDED: Training run successfully completed.

7953−-- CANCELLED: Training run cancelled by the user.

7954−trState :: Lens' TrainingRun (Maybe Text)

7955−trState = lens _trState (\ s a -> s{_trState = a})

7956−

7957−-- | [Output-only, Beta] Training run start time in milliseconds since the

7958−-- epoch.

7959−trStartTime :: Lens' TrainingRun (Maybe UTCTime)

7960−trStartTime

7961− = lens _trStartTime (\ s a -> s{_trStartTime = a}) .

7962− mapping _DateTime

7963−

7964−-- | [Output-only, Beta] List of each iteration results.

7965−trIterationResults :: Lens' TrainingRun [IterationResult]

7966−trIterationResults

7967− = lens _trIterationResults

7968− (\ s a -> s{_trIterationResults = a})

7969− . _Default

7970− . _Coerce

7971−

7972−-- | [Output-only, Beta] Training options used by this training run. These

7973−-- options are mutable for subsequent training runs. Default values are

7974−-- explicitly stored for options not specified in the input query of the

7975−-- first training run. For subsequent training runs, any option not

7976−-- explicitly specified in the input query will be copied from the previous

7977−-- training run.

7978−trTrainingOptions :: Lens' TrainingRun (Maybe TrainingRunTrainingOptions)

7979−trTrainingOptions

7980− = lens _trTrainingOptions

7981− (\ s a -> s{_trTrainingOptions = a})

7982−

7983−instance FromJSON TrainingRun where

7984− parseJSON

7985− = withObject "TrainingRun"

7986− (\ o ->

7987− TrainingRun' <$>

7988− (o .:? "state") <*> (o .:? "startTime") <*>

7989− (o .:? "iterationResults" .!= mempty)

7990− <*> (o .:? "trainingOptions"))

7991−

7992−instance ToJSON TrainingRun where

7993− toJSON TrainingRun'{..}

7994− = object

7995− (catMaybes

7996− [("state" .=) <$> _trState,

7997− ("startTime" .=) <$> _trStartTime,

7998− ("iterationResults" .=) <$> _trIterationResults,

7999− ("trainingOptions" .=) <$> _trTrainingOptions])

8000−

80018182-- | Additional details for a view.

80028183--

80038184-- /See:/ 'tableListTablesItemView' smart constructor.

gogol-bigquerydatatransfer/gen/Network/Google/BigQueryDataTransfer.hs+43−15

@@ -13,8 +13,8 @@

1313-- Stability : auto-generated

1414-- Portability : non-portable (GHC extensions)

1515--

16−-- Transfers data from partner SaaS applications to Google BigQuery on a

17−-- scheduled, managed basis.

16+-- Schedule queries or transfer external data from SaaS applications to

17+-- Google BigQuery on a regular basis.

1818--

1919-- /See:/ <https://cloud.google.com/bigquery/ BigQuery Data Transfer API Reference>

2020module Network.Google.BigQueryDataTransfer

@@ -86,6 +86,9 @@ module Network.Google.BigQueryDataTransfer

8686 -- ** bigquerydatatransfer.projects.locations.transferConfigs.scheduleRuns

8787 , module Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.ScheduleRuns

8888

89+ -- ** bigquerydatatransfer.projects.locations.transferConfigs.startManualRuns

90+ , module Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.StartManualRuns

91+

8992 -- ** bigquerydatatransfer.projects.transferConfigs.create

9093 , module Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Create

9194

@@ -116,6 +119,9 @@ module Network.Google.BigQueryDataTransfer

116119 -- ** bigquerydatatransfer.projects.transferConfigs.scheduleRuns

117120 , module Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.ScheduleRuns

118121

122+ -- ** bigquerydatatransfer.projects.transferConfigs.startManualRuns

123+ , module Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.StartManualRuns

124+

119125 -- * Types

120126

121127 -- ** DataSourceParameterType

@@ -134,22 +140,28 @@ module Network.Google.BigQueryDataTransfer

134140 , llrNextPageToken

135141 , llrLocations

136142

143+ -- ** TimeRange

144+ , TimeRange

145+ , timeRange

146+ , trStartTime

147+ , trEndTime

148+

137149 -- ** TransferRun

138150 , TransferRun

139151 , transferRun

140− , trRunTime

141− , trErrorStatus

142− , trState

143− , trSchedule

144− , trStartTime

145− , trScheduleTime

146− , trDataSourceId

147− , trParams

148− , trUserId

149− , trUpdateTime

150− , trName

151− , trEndTime

152− , trDestinationDataSetId

152+ , tRunTime

153+ , tErrorStatus

154+ , tState

155+ , tSchedule

156+ , tStartTime

157+ , tScheduleTime

158+ , tDataSourceId

159+ , tParams

160+ , tUserId

161+ , tUpdateTime

162+ , tName

163+ , tEndTime

164+ , tDestinationDataSetId

153165

154166 -- ** CheckValidCredsRequest

155167 , CheckValidCredsRequest

@@ -246,6 +258,12 @@ module Network.Google.BigQueryDataTransfer

246258 , ldsrNextPageToken

247259 , ldsrDataSources

248260

261+ -- ** StartManualTransferRunsRequest

262+ , StartManualTransferRunsRequest

263+ , startManualTransferRunsRequest

264+ , smtrrRequestedRunTime

265+ , smtrrRequestedTimeRange

266+

249267 -- ** Xgafv

250268 , Xgafv (..)

251269

@@ -292,6 +310,11 @@ module Network.Google.BigQueryDataTransfer

292310 , locationLabels

293311 , llAddtional

294312

313+ -- ** StartManualTransferRunsResponse

314+ , StartManualTransferRunsResponse

315+ , startManualTransferRunsResponse

316+ , smtrrRuns

317+

295318 -- ** LocationMetadata

296319 , LocationMetadata

297320 , locationMetadata

@@ -348,6 +371,7 @@ import Network.Google.Resource.BigQueryDataTransfer.Projects.Locations

348371import Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.Runs.List

349372import Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.Runs.TransferLogs.List

350373import Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.ScheduleRuns

374+import Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.StartManualRuns

351375import Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Create

352376import Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Delete

353377import Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Get

@@ -358,6 +382,7 @@ import Network.Google.Resource.BigQueryDataTransfer.Projects.TransferC

358382import Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Runs.List

359383import Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Runs.TransferLogs.List

360384import Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.ScheduleRuns

385+import Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.StartManualRuns

361386

362387{- $resources

363388TODO

@@ -375,6 +400,7 @@ type BigQueryDataTransferAPI =

375400 :<|> ProjectsTransferConfigsRunsDeleteResource

376401 :<|> ProjectsTransferConfigsScheduleRunsResource

377402 :<|> ProjectsTransferConfigsListResource

403+ :<|> ProjectsTransferConfigsStartManualRunsResource

378404 :<|> ProjectsTransferConfigsPatchResource

379405 :<|> ProjectsTransferConfigsGetResource

380406 :<|> ProjectsTransferConfigsCreateResource

@@ -392,6 +418,8 @@ type BigQueryDataTransferAPI =

392418 :<|>

393419 ProjectsLocationsTransferConfigsScheduleRunsResource

394420 :<|> ProjectsLocationsTransferConfigsListResource

421+ :<|>

422+ ProjectsLocationsTransferConfigsStartManualRunsResource

395423 :<|> ProjectsLocationsTransferConfigsPatchResource

396424 :<|> ProjectsLocationsTransferConfigsGetResource

397425 :<|> ProjectsLocationsTransferConfigsCreateResource

gogol-bigquerydatatransfer/gen/Network/Google/BigQueryDataTransfer/Types.hs+30−13

@@ -40,22 +40,28 @@ module Network.Google.BigQueryDataTransfer.Types

4040 , llrNextPageToken

4141 , llrLocations

4242

43+ -- * TimeRange

44+ , TimeRange

45+ , timeRange

46+ , trStartTime

47+ , trEndTime

48+

4349 -- * TransferRun

4450 , TransferRun

4551 , transferRun

46− , trRunTime

47− , trErrorStatus

48− , trState

49− , trSchedule

50− , trStartTime

51− , trScheduleTime

52− , trDataSourceId

53− , trParams

54− , trUserId

55− , trUpdateTime

56− , trName

57− , trEndTime

58− , trDestinationDataSetId

52+ , tRunTime

53+ , tErrorStatus

54+ , tState

55+ , tSchedule

56+ , tStartTime

57+ , tScheduleTime

58+ , tDataSourceId

59+ , tParams

60+ , tUserId

61+ , tUpdateTime

62+ , tName

63+ , tEndTime

64+ , tDestinationDataSetId

5965

6066 -- * CheckValidCredsRequest

6167 , CheckValidCredsRequest

@@ -152,6 +158,12 @@ module Network.Google.BigQueryDataTransfer.Types

152158 , ldsrNextPageToken

153159 , ldsrDataSources

154160

161+ -- * StartManualTransferRunsRequest

162+ , StartManualTransferRunsRequest

163+ , startManualTransferRunsRequest

164+ , smtrrRequestedRunTime

165+ , smtrrRequestedTimeRange

166+

155167 -- * Xgafv

156168 , Xgafv (..)

157169

@@ -198,6 +210,11 @@ module Network.Google.BigQueryDataTransfer.Types

198210 , locationLabels

199211 , llAddtional

200212

213+ -- * StartManualTransferRunsResponse

214+ , StartManualTransferRunsResponse

215+ , startManualTransferRunsResponse

216+ , smtrrRuns

217+

201218 -- * LocationMetadata

202219 , LocationMetadata

203220 , locationMetadata

gogol-bigquerydatatransfer/gen/Network/Google/BigQueryDataTransfer/Types/Product.hs+243−93

@@ -168,24 +168,80 @@ instance ToJSON ListLocationsResponse where

168168 [("nextPageToken" .=) <$> _llrNextPageToken,

169169 ("locations" .=) <$> _llrLocations])

170170

171+-- | A specification for a time range, this will request transfer runs with

172+-- run_time between start_time (inclusive) and end_time (exclusive).

173+--

174+-- /See:/ 'timeRange' smart constructor.

175+data TimeRange =

176+ TimeRange'

177+ { _trStartTime :: !(Maybe DateTime')

178+ , _trEndTime :: !(Maybe DateTime')

179+ }

180+ deriving (Eq, Show, Data, Typeable, Generic)

181+

182+

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

184+--

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

186+--

187+-- * 'trStartTime'

188+--

189+-- * 'trEndTime'

190+timeRange

191+ :: TimeRange

192+timeRange = TimeRange' {_trStartTime = Nothing, _trEndTime = Nothing}

193+

194+

195+-- | Start time of the range of transfer runs. For example,

196+-- \`\"2017-05-25T00:00:00+00:00\"\`. The start_time must be strictly less

197+-- than the end_time. Creates transfer runs where run_time is in the range

198+-- betwen start_time (inclusive) and end_time (exlusive).

199+trStartTime :: Lens' TimeRange (Maybe UTCTime)

200+trStartTime

201+ = lens _trStartTime (\ s a -> s{_trStartTime = a}) .

202+ mapping _DateTime

203+

204+-- | End time of the range of transfer runs. For example,

205+-- \`\"2017-05-30T00:00:00+00:00\"\`. The end_time must not be in the

206+-- future. Creates transfer runs where run_time is in the range betwen

207+-- start_time (inclusive) and end_time (exlusive).

208+trEndTime :: Lens' TimeRange (Maybe UTCTime)

209+trEndTime

210+ = lens _trEndTime (\ s a -> s{_trEndTime = a}) .

211+ mapping _DateTime

212+

213+instance FromJSON TimeRange where

214+ parseJSON

215+ = withObject "TimeRange"

216+ (\ o ->

217+ TimeRange' <$>

218+ (o .:? "startTime") <*> (o .:? "endTime"))

219+

220+instance ToJSON TimeRange where

221+ toJSON TimeRange'{..}

222+ = object

223+ (catMaybes

224+ [("startTime" .=) <$> _trStartTime,

225+ ("endTime" .=) <$> _trEndTime])

226+

171227-- | Represents a data transfer run.

172228--

173229-- /See:/ 'transferRun' smart constructor.

174230data TransferRun =

175231 TransferRun'

176− { _trRunTime :: !(Maybe DateTime')

177− , _trErrorStatus :: !(Maybe Status)

178− , _trState :: !(Maybe TransferRunState)

179− , _trSchedule :: !(Maybe Text)

180− , _trStartTime :: !(Maybe DateTime')

181− , _trScheduleTime :: !(Maybe DateTime')

182− , _trDataSourceId :: !(Maybe Text)

183− , _trParams :: !(Maybe TransferRunParams)

184− , _trUserId :: !(Maybe (Textual Int64))

185− , _trUpdateTime :: !(Maybe DateTime')

186− , _trName :: !(Maybe Text)

187− , _trEndTime :: !(Maybe DateTime')

188− , _trDestinationDataSetId :: !(Maybe Text)

232+ { _tRunTime :: !(Maybe DateTime')

233+ , _tErrorStatus :: !(Maybe Status)

234+ , _tState :: !(Maybe TransferRunState)

235+ , _tSchedule :: !(Maybe Text)

236+ , _tStartTime :: !(Maybe DateTime')

237+ , _tScheduleTime :: !(Maybe DateTime')

238+ , _tDataSourceId :: !(Maybe Text)

239+ , _tParams :: !(Maybe TransferRunParams)

240+ , _tUserId :: !(Maybe (Textual Int64))

241+ , _tUpdateTime :: !(Maybe DateTime')

242+ , _tName :: !(Maybe Text)

243+ , _tEndTime :: !(Maybe DateTime')

244+ , _tDestinationDataSetId :: !(Maybe Text)

189245 }

190246 deriving (Eq, Show, Data, Typeable, Generic)

191247

@@ -194,131 +250,130 @@ data TransferRun =

194250--

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

196252--

197−-- * 'trRunTime'

253+-- * 'tRunTime'

198254--

199−-- * 'trErrorStatus'

255+-- * 'tErrorStatus'

200256--

201−-- * 'trState'

257+-- * 'tState'

202258--

203−-- * 'trSchedule'

259+-- * 'tSchedule'

204260--

205−-- * 'trStartTime'

261+-- * 'tStartTime'

206262--

207−-- * 'trScheduleTime'

263+-- * 'tScheduleTime'

208264--

209−-- * 'trDataSourceId'

265+-- * 'tDataSourceId'

210266--

211−-- * 'trParams'

267+-- * 'tParams'

212268--

213−-- * 'trUserId'

269+-- * 'tUserId'

214270--

215−-- * 'trUpdateTime'

271+-- * 'tUpdateTime'

216272--

217−-- * 'trName'

273+-- * 'tName'

218274--

219−-- * 'trEndTime'

275+-- * 'tEndTime'

220276--

221−-- * 'trDestinationDataSetId'

277+-- * 'tDestinationDataSetId'

222278transferRun

223279 :: TransferRun

224280transferRun =

225281 TransferRun'

226− { _trRunTime = Nothing

227− , _trErrorStatus = Nothing

228− , _trState = Nothing

229− , _trSchedule = Nothing

230− , _trStartTime = Nothing

231− , _trScheduleTime = Nothing

232− , _trDataSourceId = Nothing

233− , _trParams = Nothing

234− , _trUserId = Nothing

235− , _trUpdateTime = Nothing

236− , _trName = Nothing

237− , _trEndTime = Nothing

238− , _trDestinationDataSetId = Nothing

282+ { _tRunTime = Nothing

283+ , _tErrorStatus = Nothing

284+ , _tState = Nothing

285+ , _tSchedule = Nothing

286+ , _tStartTime = Nothing

287+ , _tScheduleTime = Nothing

288+ , _tDataSourceId = Nothing

289+ , _tParams = Nothing

290+ , _tUserId = Nothing

291+ , _tUpdateTime = Nothing

292+ , _tName = Nothing

293+ , _tEndTime = Nothing

294+ , _tDestinationDataSetId = Nothing

239295 }

240296

241297

242298-- | For batch transfer runs, specifies the date and time that data should be

243299-- ingested.

244−trRunTime :: Lens' TransferRun (Maybe UTCTime)

245−trRunTime

246− = lens _trRunTime (\ s a -> s{_trRunTime = a}) .

300+tRunTime :: Lens' TransferRun (Maybe UTCTime)

301+tRunTime

302+ = lens _tRunTime (\ s a -> s{_tRunTime = a}) .

247303 mapping _DateTime

248304

249305-- | Status of the transfer run.

250−trErrorStatus :: Lens' TransferRun (Maybe Status)

251−trErrorStatus

252− = lens _trErrorStatus

253− (\ s a -> s{_trErrorStatus = a})

306+tErrorStatus :: Lens' TransferRun (Maybe Status)

307+tErrorStatus

308+ = lens _tErrorStatus (\ s a -> s{_tErrorStatus = a})

254309

255310-- | Data transfer run state. Ignored for input requests.

256−trState :: Lens' TransferRun (Maybe TransferRunState)

257−trState = lens _trState (\ s a -> s{_trState = a})

311+tState :: Lens' TransferRun (Maybe TransferRunState)

312+tState = lens _tState (\ s a -> s{_tState = a})

258313

259314-- | Output only. Describes the schedule of this transfer run if it was

260315-- created as part of a regular schedule. For batch transfer runs that are

261316-- scheduled manually, this is empty. NOTE: the system might choose to

262317-- delay the schedule depending on the current load, so \`schedule_time\`

263318-- doesn\'t always match this.

264−trSchedule :: Lens' TransferRun (Maybe Text)

265−trSchedule

266− = lens _trSchedule (\ s a -> s{_trSchedule = a})

319+tSchedule :: Lens' TransferRun (Maybe Text)

320+tSchedule

321+ = lens _tSchedule (\ s a -> s{_tSchedule = a})

267322

268323-- | Output only. Time when transfer run was started. Parameter ignored by

269324-- server for input requests.

270−trStartTime :: Lens' TransferRun (Maybe UTCTime)

271−trStartTime

272− = lens _trStartTime (\ s a -> s{_trStartTime = a}) .

325+tStartTime :: Lens' TransferRun (Maybe UTCTime)

326+tStartTime

327+ = lens _tStartTime (\ s a -> s{_tStartTime = a}) .

273328 mapping _DateTime

274329

275330-- | Minimum time after which a transfer run can be started.

276−trScheduleTime :: Lens' TransferRun (Maybe UTCTime)

277−trScheduleTime

278− = lens _trScheduleTime

279− (\ s a -> s{_trScheduleTime = a})

331+tScheduleTime :: Lens' TransferRun (Maybe UTCTime)

332+tScheduleTime

333+ = lens _tScheduleTime

334+ (\ s a -> s{_tScheduleTime = a})

280335 . mapping _DateTime

281336

282337-- | Output only. Data source id.

283−trDataSourceId :: Lens' TransferRun (Maybe Text)

284−trDataSourceId

285− = lens _trDataSourceId

286− (\ s a -> s{_trDataSourceId = a})

338+tDataSourceId :: Lens' TransferRun (Maybe Text)

339+tDataSourceId

340+ = lens _tDataSourceId

341+ (\ s a -> s{_tDataSourceId = a})

287342

288343-- | Output only. Data transfer specific parameters.

289−trParams :: Lens' TransferRun (Maybe TransferRunParams)

290−trParams = lens _trParams (\ s a -> s{_trParams = a})

344+tParams :: Lens' TransferRun (Maybe TransferRunParams)

345+tParams = lens _tParams (\ s a -> s{_tParams = a})

291346

292347-- | Deprecated. Unique ID of the user on whose behalf transfer is done.

293−trUserId :: Lens' TransferRun (Maybe Int64)

294−trUserId

295− = lens _trUserId (\ s a -> s{_trUserId = a}) .

348+tUserId :: Lens' TransferRun (Maybe Int64)

349+tUserId

350+ = lens _tUserId (\ s a -> s{_tUserId = a}) .

296351 mapping _Coerce

297352

298353-- | Output only. Last time the data transfer run state was updated.

299−trUpdateTime :: Lens' TransferRun (Maybe UTCTime)

300−trUpdateTime

301− = lens _trUpdateTime (\ s a -> s{_trUpdateTime = a})

302− . mapping _DateTime

354+tUpdateTime :: Lens' TransferRun (Maybe UTCTime)

355+tUpdateTime

356+ = lens _tUpdateTime (\ s a -> s{_tUpdateTime = a}) .

357+ mapping _DateTime

303358

304359-- | The resource name of the transfer run. Transfer run names have the form

305360-- \`projects\/{project_id}\/locations\/{location}\/transferConfigs\/{config_id}\/runs\/{run_id}\`.

306361-- The name is ignored when creating a transfer run.

307−trName :: Lens' TransferRun (Maybe Text)

308−trName = lens _trName (\ s a -> s{_trName = a})

362+tName :: Lens' TransferRun (Maybe Text)

363+tName = lens _tName (\ s a -> s{_tName = a})

309364

310365-- | Output only. Time when transfer run ended. Parameter ignored by server

311366-- for input requests.

312−trEndTime :: Lens' TransferRun (Maybe UTCTime)

313−trEndTime

314− = lens _trEndTime (\ s a -> s{_trEndTime = a}) .

367+tEndTime :: Lens' TransferRun (Maybe UTCTime)

368+tEndTime

369+ = lens _tEndTime (\ s a -> s{_tEndTime = a}) .

315370 mapping _DateTime

316371

317372-- | Output only. The BigQuery target dataset id.

318−trDestinationDataSetId :: Lens' TransferRun (Maybe Text)

319−trDestinationDataSetId

320− = lens _trDestinationDataSetId

321− (\ s a -> s{_trDestinationDataSetId = a})

373+tDestinationDataSetId :: Lens' TransferRun (Maybe Text)

374+tDestinationDataSetId

375+ = lens _tDestinationDataSetId

376+ (\ s a -> s{_tDestinationDataSetId = a})

322377

323378instance FromJSON TransferRun where

324379 parseJSON

@@ -342,20 +397,19 @@ instance ToJSON TransferRun where

342397 toJSON TransferRun'{..}

343398 = object

344399 (catMaybes

345− [("runTime" .=) <$> _trRunTime,

346− ("errorStatus" .=) <$> _trErrorStatus,

347− ("state" .=) <$> _trState,

348− ("schedule" .=) <$> _trSchedule,

349− ("startTime" .=) <$> _trStartTime,

350− ("scheduleTime" .=) <$> _trScheduleTime,

351− ("dataSourceId" .=) <$> _trDataSourceId,

352− ("params" .=) <$> _trParams,

353− ("userId" .=) <$> _trUserId,

354− ("updateTime" .=) <$> _trUpdateTime,

355− ("name" .=) <$> _trName,

356− ("endTime" .=) <$> _trEndTime,

400+ [("runTime" .=) <$> _tRunTime,

401+ ("errorStatus" .=) <$> _tErrorStatus,

402+ ("state" .=) <$> _tState,

403+ ("schedule" .=) <$> _tSchedule,

404+ ("startTime" .=) <$> _tStartTime,

405+ ("scheduleTime" .=) <$> _tScheduleTime,

406+ ("dataSourceId" .=) <$> _tDataSourceId,

407+ ("params" .=) <$> _tParams,

408+ ("userId" .=) <$> _tUserId,

409+ ("updateTime" .=) <$> _tUpdateTime,

410+ ("name" .=) <$> _tName, ("endTime" .=) <$> _tEndTime,

357411 ("destinationDatasetId" .=) <$>

358− _trDestinationDataSetId])

412+ _tDestinationDataSetId])

359413

360414-- | A request to determine whether the user has valid credentials. This

361415-- method is used to limit the number of OAuth popups in the user

@@ -1136,6 +1190,62 @@ instance ToJSON ListDataSourcesResponse where

11361190 [("nextPageToken" .=) <$> _ldsrNextPageToken,

11371191 ("dataSources" .=) <$> _ldsrDataSources])

11381192

1193+-- | A request to start manual transfer runs.

1194+--

1195+-- /See:/ 'startManualTransferRunsRequest' smart constructor.

1196+data StartManualTransferRunsRequest =

1197+ StartManualTransferRunsRequest'

1198+ { _smtrrRequestedRunTime :: !(Maybe DateTime')

1199+ , _smtrrRequestedTimeRange :: !(Maybe TimeRange)

1200+ }

1201+ deriving (Eq, Show, Data, Typeable, Generic)

1202+

1203+

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

1205+--

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

1207+--

1208+-- * 'smtrrRequestedRunTime'

1209+--

1210+-- * 'smtrrRequestedTimeRange'

1211+startManualTransferRunsRequest

1212+ :: StartManualTransferRunsRequest

1213+startManualTransferRunsRequest =

1214+ StartManualTransferRunsRequest'

1215+ {_smtrrRequestedRunTime = Nothing, _smtrrRequestedTimeRange = Nothing}

1216+

1217+

1218+-- | Specific run_time for a transfer run to be started. The

1219+-- requested_run_time must not be in the future.

1220+smtrrRequestedRunTime :: Lens' StartManualTransferRunsRequest (Maybe UTCTime)

1221+smtrrRequestedRunTime

1222+ = lens _smtrrRequestedRunTime

1223+ (\ s a -> s{_smtrrRequestedRunTime = a})

1224+ . mapping _DateTime

1225+

1226+-- | Time range for the transfer runs that should be started.

1227+smtrrRequestedTimeRange :: Lens' StartManualTransferRunsRequest (Maybe TimeRange)

1228+smtrrRequestedTimeRange

1229+ = lens _smtrrRequestedTimeRange

1230+ (\ s a -> s{_smtrrRequestedTimeRange = a})

1231+

1232+instance FromJSON StartManualTransferRunsRequest

1233+ where

1234+ parseJSON

1235+ = withObject "StartManualTransferRunsRequest"

1236+ (\ o ->

1237+ StartManualTransferRunsRequest' <$>

1238+ (o .:? "requestedRunTime") <*>

1239+ (o .:? "requestedTimeRange"))

1240+

1241+instance ToJSON StartManualTransferRunsRequest where

1242+ toJSON StartManualTransferRunsRequest'{..}

1243+ = object

1244+ (catMaybes

1245+ [("requestedRunTime" .=) <$> _smtrrRequestedRunTime,

1246+ ("requestedTimeRange" .=) <$>

1247+ _smtrrRequestedTimeRange])

1248+

11391249-- | Represents data source metadata. Metadata is sufficient to render UI and

11401250-- request proper OAuth tokens.

11411251--

@@ -1554,6 +1664,46 @@ instance FromJSON LocationLabels where

15541664instance ToJSON LocationLabels where

15551665 toJSON = toJSON . _llAddtional

15561666

1667+-- | A response to start manual transfer runs.

1668+--

1669+-- /See:/ 'startManualTransferRunsResponse' smart constructor.

1670+newtype StartManualTransferRunsResponse =

1671+ StartManualTransferRunsResponse'

1672+ { _smtrrRuns :: Maybe [TransferRun]

1673+ }

1674+ deriving (Eq, Show, Data, Typeable, Generic)

1675+

1676+

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

1678+--

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

1680+--

1681+-- * 'smtrrRuns'

1682+startManualTransferRunsResponse

1683+ :: StartManualTransferRunsResponse

1684+startManualTransferRunsResponse =

1685+ StartManualTransferRunsResponse' {_smtrrRuns = Nothing}

1686+

1687+

1688+-- | The transfer runs that were created.

1689+smtrrRuns :: Lens' StartManualTransferRunsResponse [TransferRun]

1690+smtrrRuns

1691+ = lens _smtrrRuns (\ s a -> s{_smtrrRuns = a}) .

1692+ _Default

1693+ . _Coerce

1694+

1695+instance FromJSON StartManualTransferRunsResponse

1696+ where

1697+ parseJSON

1698+ = withObject "StartManualTransferRunsResponse"

1699+ (\ o ->

1700+ StartManualTransferRunsResponse' <$>

1701+ (o .:? "runs" .!= mempty))

1702+

1703+instance ToJSON StartManualTransferRunsResponse where

1704+ toJSON StartManualTransferRunsResponse'{..}

1705+ = object (catMaybes [("runs" .=) <$> _smtrrRuns])

1706+

15571707-- | Service-specific metadata. For example the available capacity at the

15581708-- given location.

15591709--

gogol-bigquerydatatransfer/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Create.hs+22−4

@@ -40,6 +40,7 @@ module Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferC

4040 , pltccUploadType

4141 , pltccAuthorizationCode

4242 , pltccPayload

43+ , pltccVersionInfo

4344 , pltccCallback

4445 ) where

4546

@@ -57,10 +58,11 @@ type ProjectsLocationsTransferConfigsCreateResource =

5758 QueryParam "access_token" Text :>

5859 QueryParam "uploadType" Text :>

5960 QueryParam "authorizationCode" Text :>

60− QueryParam "callback" Text :>

61− QueryParam "alt" AltJSON :>

62− ReqBody '[JSON] TransferConfig :>

63− Post '[JSON] TransferConfig

61+ QueryParam "versionInfo" Text :>

62+ QueryParam "callback" Text :>

63+ QueryParam "alt" AltJSON :>

64+ ReqBody '[JSON] TransferConfig :>

65+ Post '[JSON] TransferConfig

6466

6567-- | Creates a new data transfer configuration.

6668--

@@ -74,6 +76,7 @@ data ProjectsLocationsTransferConfigsCreate =

7476 , _pltccUploadType :: !(Maybe Text)

7577 , _pltccAuthorizationCode :: !(Maybe Text)

7678 , _pltccPayload :: !TransferConfig

79+ , _pltccVersionInfo :: !(Maybe Text)

7780 , _pltccCallback :: !(Maybe Text)

7881 }

7982 deriving (Eq, Show, Data, Typeable, Generic)

@@ -97,6 +100,8 @@ data ProjectsLocationsTransferConfigsCreate =

97100--

98101-- * 'pltccPayload'

99102--

103+-- * 'pltccVersionInfo'

104+--

100105-- * 'pltccCallback'

101106projectsLocationsTransferConfigsCreate

102107 :: Text -- ^ 'pltccParent'

@@ -111,6 +116,7 @@ projectsLocationsTransferConfigsCreate pPltccParent_ pPltccPayload_ =

111116 , _pltccUploadType = Nothing

112117 , _pltccAuthorizationCode = Nothing

113118 , _pltccPayload = pPltccPayload_

119+ , _pltccVersionInfo = Nothing

114120 , _pltccCallback = Nothing

115121 }

116122

@@ -171,6 +177,17 @@ pltccPayload :: Lens' ProjectsLocationsTransferConfigsCreate TransferConfig

171177pltccPayload

172178 = lens _pltccPayload (\ s a -> s{_pltccPayload = a})

173179

180+-- | Optional version info. If users want to find a very recent access token,

181+-- that is, immediately after approving access, users have to set the

182+-- version_info claim in the token request. To obtain the version_info,

183+-- users must use the “none+gsession” response type. which be return a

184+-- version_info back in the authorization response which be be put in a JWT

185+-- claim in the token request.

186+pltccVersionInfo :: Lens' ProjectsLocationsTransferConfigsCreate (Maybe Text)

187+pltccVersionInfo

188+ = lens _pltccVersionInfo

189+ (\ s a -> s{_pltccVersionInfo = a})

190+

174191-- | JSONP

175192pltccCallback :: Lens' ProjectsLocationsTransferConfigsCreate (Maybe Text)

176193pltccCallback

@@ -190,6 +207,7 @@ instance GoogleRequest

190207 _pltccAccessToken

191208 _pltccUploadType

192209 _pltccAuthorizationCode

210+ _pltccVersionInfo

193211 _pltccCallback

194212 (Just AltJSON)

195213 _pltccPayload

gogol-bigquerydatatransfer/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/Patch.hs+22−4

@@ -41,6 +41,7 @@ module Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferC

4141 , pltcpUploadType

4242 , pltcpAuthorizationCode

4343 , pltcpPayload

44+ , pltcpVersionInfo

4445 , pltcpName

4546 , pltcpCallback

4647 ) where

@@ -59,10 +60,11 @@ type ProjectsLocationsTransferConfigsPatchResource =

5960 QueryParam "access_token" Text :>

6061 QueryParam "uploadType" Text :>

6162 QueryParam "authorizationCode" Text :>

62− QueryParam "callback" Text :>

63− QueryParam "alt" AltJSON :>

64− ReqBody '[JSON] TransferConfig :>

65− Patch '[JSON] TransferConfig

63+ QueryParam "versionInfo" Text :>

64+ QueryParam "callback" Text :>

65+ QueryParam "alt" AltJSON :>

66+ ReqBody '[JSON] TransferConfig :>

67+ Patch '[JSON] TransferConfig

6668

6769-- | Updates a data transfer configuration. All fields must be set, even if

6870-- they are not updated.

@@ -77,6 +79,7 @@ data ProjectsLocationsTransferConfigsPatch =

7779 , _pltcpUploadType :: !(Maybe Text)

7880 , _pltcpAuthorizationCode :: !(Maybe Text)

7981 , _pltcpPayload :: !TransferConfig

82+ , _pltcpVersionInfo :: !(Maybe Text)

8083 , _pltcpName :: !Text

8184 , _pltcpCallback :: !(Maybe Text)

8285 }

@@ -101,6 +104,8 @@ data ProjectsLocationsTransferConfigsPatch =

101104--

102105-- * 'pltcpPayload'

103106--

107+-- * 'pltcpVersionInfo'

108+--

104109-- * 'pltcpName'

105110--

106111-- * 'pltcpCallback'

@@ -117,6 +122,7 @@ projectsLocationsTransferConfigsPatch pPltcpPayload_ pPltcpName_ =

117122 , _pltcpUploadType = Nothing

118123 , _pltcpAuthorizationCode = Nothing

119124 , _pltcpPayload = pPltcpPayload_

125+ , _pltcpVersionInfo = Nothing

120126 , _pltcpName = pPltcpName_

121127 , _pltcpCallback = Nothing

122128 }

@@ -175,6 +181,17 @@ pltcpPayload :: Lens' ProjectsLocationsTransferConfigsPatch TransferConfig

175181pltcpPayload

176182 = lens _pltcpPayload (\ s a -> s{_pltcpPayload = a})

177183

184+-- | Optional version info. If users want to find a very recent access token,

185+-- that is, immediately after approving access, users have to set the

186+-- version_info claim in the token request. To obtain the version_info,

187+-- users must use the “none+gsession” response type. which be return a

188+-- version_info back in the authorization response which be be put in a JWT

189+-- claim in the token request.

190+pltcpVersionInfo :: Lens' ProjectsLocationsTransferConfigsPatch (Maybe Text)

191+pltcpVersionInfo

192+ = lens _pltcpVersionInfo

193+ (\ s a -> s{_pltcpVersionInfo = a})

194+

178195-- | The resource name of the transfer config. Transfer config names have the

179196-- form of

180197-- \`projects\/{project_id}\/locations\/{region}\/transferConfigs\/{config_id}\`.

@@ -206,6 +223,7 @@ instance GoogleRequest

206223 _pltcpAccessToken

207224 _pltcpUploadType

208225 _pltcpAuthorizationCode

226+ _pltcpVersionInfo

209227 _pltcpCallback

210228 (Just AltJSON)

211229 _pltcpPayload

gogol-bigquerydatatransfer/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/ScheduleRuns.hs+2−2

@@ -23,7 +23,7 @@

2323-- Creates transfer runs for a time range [start_time, end_time]. For each

2424-- date - or whatever granularity the data source supports - in the range,

2525-- one transfer run is created. Note that runs are created per UTC time in

26−-- the time range.

26+-- the time range. DEPRECATED: use StartManualTransferRuns instead.

2727--

2828-- /See:/ <https://cloud.google.com/bigquery/ BigQuery Data Transfer API Reference> for @bigquerydatatransfer.projects.locations.transferConfigs.scheduleRuns@.

2929module Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.ScheduleRuns

@@ -66,7 +66,7 @@ type ProjectsLocationsTransferConfigsScheduleRunsResource

6666-- | Creates transfer runs for a time range [start_time, end_time]. For each

6767-- date - or whatever granularity the data source supports - in the range,

6868-- one transfer run is created. Note that runs are created per UTC time in

69−-- the time range.

69+-- the time range. DEPRECATED: use StartManualTransferRuns instead.

7070--

7171-- /See:/ 'projectsLocationsTransferConfigsScheduleRuns' smart constructor.

7272data ProjectsLocationsTransferConfigsScheduleRuns =

gogol-bigquerydatatransfer/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/Locations/TransferConfigs/StartManualRuns.hsnew file+186

@@ -0,0 +1,186 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.StartManualRuns

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Start manual transfer runs to be executed now with schedule_time equal

24+-- to current time. The transfer runs can be created for a time range where

25+-- the run_time is between start_time (inclusive) and end_time (exclusive),

26+-- or for a specific run_time.

27+--

28+-- /See:/ <https://cloud.google.com/bigquery/ BigQuery Data Transfer API Reference> for @bigquerydatatransfer.projects.locations.transferConfigs.startManualRuns@.

29+module Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.StartManualRuns

30+ (

31+ -- * REST Resource

32+ ProjectsLocationsTransferConfigsStartManualRunsResource

33+

34+ -- * Creating a Request

35+ , projectsLocationsTransferConfigsStartManualRuns

36+ , ProjectsLocationsTransferConfigsStartManualRuns

37+

38+ -- * Request Lenses

39+ , pltcsmrParent

40+ , pltcsmrXgafv

41+ , pltcsmrUploadProtocol

42+ , pltcsmrAccessToken

43+ , pltcsmrUploadType

44+ , pltcsmrPayload

45+ , pltcsmrCallback

46+ ) where

47+

48+import Network.Google.BigQueryDataTransfer.Types

49+import Network.Google.Prelude

50+

51+-- | A resource alias for @bigquerydatatransfer.projects.locations.transferConfigs.startManualRuns@ method which the

52+-- 'ProjectsLocationsTransferConfigsStartManualRuns' request conforms to.

53+type ProjectsLocationsTransferConfigsStartManualRunsResource

54+ =

55+ "v1" :>

56+ CaptureMode "parent" "startManualRuns" Text :>

57+ QueryParam "$.xgafv" Xgafv :>

58+ QueryParam "upload_protocol" Text :>

59+ QueryParam "access_token" Text :>

60+ QueryParam "uploadType" Text :>

61+ QueryParam "callback" Text :>

62+ QueryParam "alt" AltJSON :>

63+ ReqBody '[JSON] StartManualTransferRunsRequest :>

64+ Post '[JSON] StartManualTransferRunsResponse

65+

66+-- | Start manual transfer runs to be executed now with schedule_time equal

67+-- to current time. The transfer runs can be created for a time range where

68+-- the run_time is between start_time (inclusive) and end_time (exclusive),

69+-- or for a specific run_time.

70+--

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

72+data ProjectsLocationsTransferConfigsStartManualRuns =

73+ ProjectsLocationsTransferConfigsStartManualRuns'

74+ { _pltcsmrParent :: !Text

75+ , _pltcsmrXgafv :: !(Maybe Xgafv)

76+ , _pltcsmrUploadProtocol :: !(Maybe Text)

77+ , _pltcsmrAccessToken :: !(Maybe Text)

78+ , _pltcsmrUploadType :: !(Maybe Text)

79+ , _pltcsmrPayload :: !StartManualTransferRunsRequest

80+ , _pltcsmrCallback :: !(Maybe Text)

81+ }

82+ deriving (Eq, Show, Data, Typeable, Generic)

83+

84+

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

90+--

91+-- * 'pltcsmrXgafv'

92+--

93+-- * 'pltcsmrUploadProtocol'

94+--

95+-- * 'pltcsmrAccessToken'

96+--

97+-- * 'pltcsmrUploadType'

98+--

99+-- * 'pltcsmrPayload'

100+--

101+-- * 'pltcsmrCallback'

102+projectsLocationsTransferConfigsStartManualRuns

103+ :: Text -- ^ 'pltcsmrParent'

104+ -> StartManualTransferRunsRequest -- ^ 'pltcsmrPayload'

105+ -> ProjectsLocationsTransferConfigsStartManualRuns

106+projectsLocationsTransferConfigsStartManualRuns pPltcsmrParent_ pPltcsmrPayload_ =

107+ ProjectsLocationsTransferConfigsStartManualRuns'

108+ { _pltcsmrParent = pPltcsmrParent_

109+ , _pltcsmrXgafv = Nothing

110+ , _pltcsmrUploadProtocol = Nothing

111+ , _pltcsmrAccessToken = Nothing

112+ , _pltcsmrUploadType = Nothing

113+ , _pltcsmrPayload = pPltcsmrPayload_

114+ , _pltcsmrCallback = Nothing

115+ }

116+

117+

118+-- | Transfer configuration name in the form:

119+-- \`projects\/{project_id}\/transferConfigs\/{config_id}\`.

120+pltcsmrParent :: Lens' ProjectsLocationsTransferConfigsStartManualRuns Text

121+pltcsmrParent

122+ = lens _pltcsmrParent

123+ (\ s a -> s{_pltcsmrParent = a})

124+

125+-- | V1 error format.

126+pltcsmrXgafv :: Lens' ProjectsLocationsTransferConfigsStartManualRuns (Maybe Xgafv)

127+pltcsmrXgafv

128+ = lens _pltcsmrXgafv (\ s a -> s{_pltcsmrXgafv = a})

129+

130+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

131+pltcsmrUploadProtocol :: Lens' ProjectsLocationsTransferConfigsStartManualRuns (Maybe Text)

132+pltcsmrUploadProtocol

133+ = lens _pltcsmrUploadProtocol

134+ (\ s a -> s{_pltcsmrUploadProtocol = a})

135+

136+-- | OAuth access token.

137+pltcsmrAccessToken :: Lens' ProjectsLocationsTransferConfigsStartManualRuns (Maybe Text)

138+pltcsmrAccessToken

139+ = lens _pltcsmrAccessToken

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

141+

142+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

143+pltcsmrUploadType :: Lens' ProjectsLocationsTransferConfigsStartManualRuns (Maybe Text)

144+pltcsmrUploadType

145+ = lens _pltcsmrUploadType

146+ (\ s a -> s{_pltcsmrUploadType = a})

147+

148+-- | Multipart request metadata.

149+pltcsmrPayload :: Lens' ProjectsLocationsTransferConfigsStartManualRuns StartManualTransferRunsRequest

150+pltcsmrPayload

151+ = lens _pltcsmrPayload

152+ (\ s a -> s{_pltcsmrPayload = a})

153+

154+-- | JSONP

155+pltcsmrCallback :: Lens' ProjectsLocationsTransferConfigsStartManualRuns (Maybe Text)

156+pltcsmrCallback

157+ = lens _pltcsmrCallback

158+ (\ s a -> s{_pltcsmrCallback = a})

159+

160+instance GoogleRequest

161+ ProjectsLocationsTransferConfigsStartManualRuns

162+ where

163+ type Rs

164+ ProjectsLocationsTransferConfigsStartManualRuns

165+ = StartManualTransferRunsResponse

166+ type Scopes

167+ ProjectsLocationsTransferConfigsStartManualRuns

168+ =

169+ '["https://www.googleapis.com/auth/bigquery",

170+ "https://www.googleapis.com/auth/cloud-platform"]

171+ requestClient

172+ ProjectsLocationsTransferConfigsStartManualRuns'{..}

173+ = go _pltcsmrParent _pltcsmrXgafv

174+ _pltcsmrUploadProtocol

175+ _pltcsmrAccessToken

176+ _pltcsmrUploadType

177+ _pltcsmrCallback

178+ (Just AltJSON)

179+ _pltcsmrPayload

180+ bigQueryDataTransferService

181+ where go

182+ = buildClient

183+ (Proxy ::

184+ Proxy

185+ ProjectsLocationsTransferConfigsStartManualRunsResource)

186+ mempty

gogol-bigquerydatatransfer/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Create.hs+22−4

@@ -40,6 +40,7 @@ module Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Cre

4040 , ptccUploadType

4141 , ptccAuthorizationCode

4242 , ptccPayload

43+ , ptccVersionInfo

4344 , ptccCallback

4445 ) where

4546

@@ -57,10 +58,11 @@ type ProjectsTransferConfigsCreateResource =

5758 QueryParam "access_token" Text :>

5859 QueryParam "uploadType" Text :>

5960 QueryParam "authorizationCode" Text :>

60− QueryParam "callback" Text :>

61− QueryParam "alt" AltJSON :>

62− ReqBody '[JSON] TransferConfig :>

63− Post '[JSON] TransferConfig

61+ QueryParam "versionInfo" Text :>

62+ QueryParam "callback" Text :>

63+ QueryParam "alt" AltJSON :>

64+ ReqBody '[JSON] TransferConfig :>

65+ Post '[JSON] TransferConfig

6466

6567-- | Creates a new data transfer configuration.

6668--

@@ -74,6 +76,7 @@ data ProjectsTransferConfigsCreate =

7476 , _ptccUploadType :: !(Maybe Text)

7577 , _ptccAuthorizationCode :: !(Maybe Text)

7678 , _ptccPayload :: !TransferConfig

79+ , _ptccVersionInfo :: !(Maybe Text)

7780 , _ptccCallback :: !(Maybe Text)

7881 }

7982 deriving (Eq, Show, Data, Typeable, Generic)

@@ -97,6 +100,8 @@ data ProjectsTransferConfigsCreate =

97100--

98101-- * 'ptccPayload'

99102--

103+-- * 'ptccVersionInfo'

104+--

100105-- * 'ptccCallback'

101106projectsTransferConfigsCreate

102107 :: Text -- ^ 'ptccParent'

@@ -111,6 +116,7 @@ projectsTransferConfigsCreate pPtccParent_ pPtccPayload_ =

111116 , _ptccUploadType = Nothing

112117 , _ptccAuthorizationCode = Nothing

113118 , _ptccPayload = pPtccPayload_

119+ , _ptccVersionInfo = Nothing

114120 , _ptccCallback = Nothing

115121 }

116122

@@ -171,6 +177,17 @@ ptccPayload :: Lens' ProjectsTransferConfigsCreate TransferConfig

171177ptccPayload

172178 = lens _ptccPayload (\ s a -> s{_ptccPayload = a})

173179

180+-- | Optional version info. If users want to find a very recent access token,

181+-- that is, immediately after approving access, users have to set the

182+-- version_info claim in the token request. To obtain the version_info,

183+-- users must use the “none+gsession” response type. which be return a

184+-- version_info back in the authorization response which be be put in a JWT

185+-- claim in the token request.

186+ptccVersionInfo :: Lens' ProjectsTransferConfigsCreate (Maybe Text)

187+ptccVersionInfo

188+ = lens _ptccVersionInfo

189+ (\ s a -> s{_ptccVersionInfo = a})

190+

174191-- | JSONP

175192ptccCallback :: Lens' ProjectsTransferConfigsCreate (Maybe Text)

176193ptccCallback

@@ -187,6 +204,7 @@ instance GoogleRequest ProjectsTransferConfigsCreate

187204 _ptccAccessToken

188205 _ptccUploadType

189206 _ptccAuthorizationCode

207+ _ptccVersionInfo

190208 _ptccCallback

191209 (Just AltJSON)

192210 _ptccPayload

gogol-bigquerydatatransfer/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/Patch.hs+22−4

@@ -41,6 +41,7 @@ module Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Pat

4141 , ptcpUploadType

4242 , ptcpAuthorizationCode

4343 , ptcpPayload

44+ , ptcpVersionInfo

4445 , ptcpName

4546 , ptcpCallback

4647 ) where

@@ -59,10 +60,11 @@ type ProjectsTransferConfigsPatchResource =

5960 QueryParam "access_token" Text :>

6061 QueryParam "uploadType" Text :>

6162 QueryParam "authorizationCode" Text :>

62− QueryParam "callback" Text :>

63− QueryParam "alt" AltJSON :>

64− ReqBody '[JSON] TransferConfig :>

65− Patch '[JSON] TransferConfig

63+ QueryParam "versionInfo" Text :>

64+ QueryParam "callback" Text :>

65+ QueryParam "alt" AltJSON :>

66+ ReqBody '[JSON] TransferConfig :>

67+ Patch '[JSON] TransferConfig

6668

6769-- | Updates a data transfer configuration. All fields must be set, even if

6870-- they are not updated.

@@ -77,6 +79,7 @@ data ProjectsTransferConfigsPatch =

7779 , _ptcpUploadType :: !(Maybe Text)

7880 , _ptcpAuthorizationCode :: !(Maybe Text)

7981 , _ptcpPayload :: !TransferConfig

82+ , _ptcpVersionInfo :: !(Maybe Text)

8083 , _ptcpName :: !Text

8184 , _ptcpCallback :: !(Maybe Text)

8285 }

@@ -101,6 +104,8 @@ data ProjectsTransferConfigsPatch =

101104--

102105-- * 'ptcpPayload'

103106--

107+-- * 'ptcpVersionInfo'

108+--

104109-- * 'ptcpName'

105110--

106111-- * 'ptcpCallback'

@@ -117,6 +122,7 @@ projectsTransferConfigsPatch pPtcpPayload_ pPtcpName_ =

117122 , _ptcpUploadType = Nothing

118123 , _ptcpAuthorizationCode = Nothing

119124 , _ptcpPayload = pPtcpPayload_

125+ , _ptcpVersionInfo = Nothing

120126 , _ptcpName = pPtcpName_

121127 , _ptcpCallback = Nothing

122128 }

@@ -175,6 +181,17 @@ ptcpPayload :: Lens' ProjectsTransferConfigsPatch TransferConfig

175181ptcpPayload

176182 = lens _ptcpPayload (\ s a -> s{_ptcpPayload = a})

177183

184+-- | Optional version info. If users want to find a very recent access token,

185+-- that is, immediately after approving access, users have to set the

186+-- version_info claim in the token request. To obtain the version_info,

187+-- users must use the “none+gsession” response type. which be return a

188+-- version_info back in the authorization response which be be put in a JWT

189+-- claim in the token request.

190+ptcpVersionInfo :: Lens' ProjectsTransferConfigsPatch (Maybe Text)

191+ptcpVersionInfo

192+ = lens _ptcpVersionInfo

193+ (\ s a -> s{_ptcpVersionInfo = a})

194+

178195-- | The resource name of the transfer config. Transfer config names have the

179196-- form of

180197-- \`projects\/{project_id}\/locations\/{region}\/transferConfigs\/{config_id}\`.

@@ -201,6 +218,7 @@ instance GoogleRequest ProjectsTransferConfigsPatch

201218 _ptcpAccessToken

202219 _ptcpUploadType

203220 _ptcpAuthorizationCode

221+ _ptcpVersionInfo

204222 _ptcpCallback

205223 (Just AltJSON)

206224 _ptcpPayload

gogol-bigquerydatatransfer/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/ScheduleRuns.hs+2−2

@@ -23,7 +23,7 @@

2323-- Creates transfer runs for a time range [start_time, end_time]. For each

2424-- date - or whatever granularity the data source supports - in the range,

2525-- one transfer run is created. Note that runs are created per UTC time in

26−-- the time range.

26+-- the time range. DEPRECATED: use StartManualTransferRuns instead.

2727--

2828-- /See:/ <https://cloud.google.com/bigquery/ BigQuery Data Transfer API Reference> for @bigquerydatatransfer.projects.transferConfigs.scheduleRuns@.

2929module Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.ScheduleRuns

@@ -65,7 +65,7 @@ type ProjectsTransferConfigsScheduleRunsResource =

6565-- | Creates transfer runs for a time range [start_time, end_time]. For each

6666-- date - or whatever granularity the data source supports - in the range,

6767-- one transfer run is created. Note that runs are created per UTC time in

68−-- the time range.

68+-- the time range. DEPRECATED: use StartManualTransferRuns instead.

6969--

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

7171data ProjectsTransferConfigsScheduleRuns =

gogol-bigquerydatatransfer/gen/Network/Google/Resource/BigQueryDataTransfer/Projects/TransferConfigs/StartManualRuns.hsnew file+179

@@ -0,0 +1,179 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.StartManualRuns

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Start manual transfer runs to be executed now with schedule_time equal

24+-- to current time. The transfer runs can be created for a time range where

25+-- the run_time is between start_time (inclusive) and end_time (exclusive),

26+-- or for a specific run_time.

27+--

28+-- /See:/ <https://cloud.google.com/bigquery/ BigQuery Data Transfer API Reference> for @bigquerydatatransfer.projects.transferConfigs.startManualRuns@.

29+module Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.StartManualRuns

30+ (

31+ -- * REST Resource

32+ ProjectsTransferConfigsStartManualRunsResource

33+

34+ -- * Creating a Request

35+ , projectsTransferConfigsStartManualRuns

36+ , ProjectsTransferConfigsStartManualRuns

37+

38+ -- * Request Lenses

39+ , ptcsmrParent

40+ , ptcsmrXgafv

41+ , ptcsmrUploadProtocol

42+ , ptcsmrAccessToken

43+ , ptcsmrUploadType

44+ , ptcsmrPayload

45+ , ptcsmrCallback

46+ ) where

47+

48+import Network.Google.BigQueryDataTransfer.Types

49+import Network.Google.Prelude

50+

51+-- | A resource alias for @bigquerydatatransfer.projects.transferConfigs.startManualRuns@ method which the

52+-- 'ProjectsTransferConfigsStartManualRuns' request conforms to.

53+type ProjectsTransferConfigsStartManualRunsResource =

54+ "v1" :>

55+ CaptureMode "parent" "startManualRuns" Text :>

56+ QueryParam "$.xgafv" Xgafv :>

57+ QueryParam "upload_protocol" Text :>

58+ QueryParam "access_token" Text :>

59+ QueryParam "uploadType" Text :>

60+ QueryParam "callback" Text :>

61+ QueryParam "alt" AltJSON :>

62+ ReqBody '[JSON] StartManualTransferRunsRequest :>

63+ Post '[JSON] StartManualTransferRunsResponse

64+

65+-- | Start manual transfer runs to be executed now with schedule_time equal

66+-- to current time. The transfer runs can be created for a time range where

67+-- the run_time is between start_time (inclusive) and end_time (exclusive),

68+-- or for a specific run_time.

69+--

70+-- /See:/ 'projectsTransferConfigsStartManualRuns' smart constructor.

71+data ProjectsTransferConfigsStartManualRuns =

72+ ProjectsTransferConfigsStartManualRuns'

73+ { _ptcsmrParent :: !Text

74+ , _ptcsmrXgafv :: !(Maybe Xgafv)

75+ , _ptcsmrUploadProtocol :: !(Maybe Text)

76+ , _ptcsmrAccessToken :: !(Maybe Text)

77+ , _ptcsmrUploadType :: !(Maybe Text)

78+ , _ptcsmrPayload :: !StartManualTransferRunsRequest

79+ , _ptcsmrCallback :: !(Maybe Text)

80+ }

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

82+

83+

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

85+--

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

87+--

88+-- * 'ptcsmrParent'

89+--

90+-- * 'ptcsmrXgafv'

91+--

92+-- * 'ptcsmrUploadProtocol'

93+--

94+-- * 'ptcsmrAccessToken'

95+--

96+-- * 'ptcsmrUploadType'

97+--

98+-- * 'ptcsmrPayload'

99+--

100+-- * 'ptcsmrCallback'

101+projectsTransferConfigsStartManualRuns

102+ :: Text -- ^ 'ptcsmrParent'

103+ -> StartManualTransferRunsRequest -- ^ 'ptcsmrPayload'

104+ -> ProjectsTransferConfigsStartManualRuns

105+projectsTransferConfigsStartManualRuns pPtcsmrParent_ pPtcsmrPayload_ =

106+ ProjectsTransferConfigsStartManualRuns'

107+ { _ptcsmrParent = pPtcsmrParent_

108+ , _ptcsmrXgafv = Nothing

109+ , _ptcsmrUploadProtocol = Nothing

110+ , _ptcsmrAccessToken = Nothing

111+ , _ptcsmrUploadType = Nothing

112+ , _ptcsmrPayload = pPtcsmrPayload_

113+ , _ptcsmrCallback = Nothing

114+ }

115+

116+

117+-- | Transfer configuration name in the form:

118+-- \`projects\/{project_id}\/transferConfigs\/{config_id}\`.

119+ptcsmrParent :: Lens' ProjectsTransferConfigsStartManualRuns Text

120+ptcsmrParent

121+ = lens _ptcsmrParent (\ s a -> s{_ptcsmrParent = a})

122+

123+-- | V1 error format.

124+ptcsmrXgafv :: Lens' ProjectsTransferConfigsStartManualRuns (Maybe Xgafv)

125+ptcsmrXgafv

126+ = lens _ptcsmrXgafv (\ s a -> s{_ptcsmrXgafv = a})

127+

128+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

129+ptcsmrUploadProtocol :: Lens' ProjectsTransferConfigsStartManualRuns (Maybe Text)

130+ptcsmrUploadProtocol

131+ = lens _ptcsmrUploadProtocol

132+ (\ s a -> s{_ptcsmrUploadProtocol = a})

133+

134+-- | OAuth access token.

135+ptcsmrAccessToken :: Lens' ProjectsTransferConfigsStartManualRuns (Maybe Text)

136+ptcsmrAccessToken

137+ = lens _ptcsmrAccessToken

138+ (\ s a -> s{_ptcsmrAccessToken = a})

139+

140+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

141+ptcsmrUploadType :: Lens' ProjectsTransferConfigsStartManualRuns (Maybe Text)

142+ptcsmrUploadType

143+ = lens _ptcsmrUploadType

144+ (\ s a -> s{_ptcsmrUploadType = a})

145+

146+-- | Multipart request metadata.

147+ptcsmrPayload :: Lens' ProjectsTransferConfigsStartManualRuns StartManualTransferRunsRequest

148+ptcsmrPayload

149+ = lens _ptcsmrPayload

150+ (\ s a -> s{_ptcsmrPayload = a})

151+

152+-- | JSONP

153+ptcsmrCallback :: Lens' ProjectsTransferConfigsStartManualRuns (Maybe Text)

154+ptcsmrCallback

155+ = lens _ptcsmrCallback

156+ (\ s a -> s{_ptcsmrCallback = a})

157+

158+instance GoogleRequest

159+ ProjectsTransferConfigsStartManualRuns

160+ where

161+ type Rs ProjectsTransferConfigsStartManualRuns =

162+ StartManualTransferRunsResponse

163+ type Scopes ProjectsTransferConfigsStartManualRuns =

164+ '["https://www.googleapis.com/auth/bigquery",

165+ "https://www.googleapis.com/auth/cloud-platform"]

166+ requestClient

167+ ProjectsTransferConfigsStartManualRuns'{..}

168+ = go _ptcsmrParent _ptcsmrXgafv _ptcsmrUploadProtocol

169+ _ptcsmrAccessToken

170+ _ptcsmrUploadType

171+ _ptcsmrCallback

172+ (Just AltJSON)

173+ _ptcsmrPayload

174+ bigQueryDataTransferService

175+ where go

176+ = buildClient

177+ (Proxy ::

178+ Proxy ProjectsTransferConfigsStartManualRunsResource)

179+ mempty

gogol-bigquerydatatransfer/gogol-bigquerydatatransfer.cabal+4−2

@@ -14,8 +14,8 @@ cabal-version: >= 1.10

1414extra-source-files: README.md src/.gitkeep

1515

1616description:

17− Transfers data from partner SaaS applications to Google BigQuery on a

18− scheduled, managed basis.

17+ Schedule queries or transfer external data from SaaS applications to

18+ Google BigQuery on a regular basis.

1919 .

2020 /Warning:/ This is an experimental prototype/preview release which is still

2121 under exploratory development and not intended for public use, caveat emptor!

@@ -54,6 +54,7 @@ library

5454 , Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.Runs.List

5555 , Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.Runs.TransferLogs.List

5656 , Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.ScheduleRuns

57+ , Network.Google.Resource.BigQueryDataTransfer.Projects.Locations.TransferConfigs.StartManualRuns

5758 , Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Create

5859 , Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Delete

5960 , Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Get

@@ -64,6 +65,7 @@ library

6465 , Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Runs.List

6566 , Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.Runs.TransferLogs.List

6667 , Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.ScheduleRuns

68+ , Network.Google.Resource.BigQueryDataTransfer.Projects.TransferConfigs.StartManualRuns

6769

6870 other-modules:

6971 Network.Google.BigQueryDataTransfer.Types.Product

gogol-bigtableadmin/gen/Network/Google/BigtableAdmin.hs+17−1

@@ -13,7 +13,7 @@

1313-- Stability : auto-generated

1414-- Portability : non-portable (GHC extensions)

1515--

16−-- -- |

16+-- Administer your Cloud Bigtable tables and instances.

1717--

1818-- /See:/ <https://cloud.google.com/bigtable/ Cloud Bigtable Admin API Reference>

1919module Network.Google.BigtableAdmin

@@ -118,12 +118,21 @@ module Network.Google.BigtableAdmin

118118 -- ** bigtableadmin.projects.instances.tables.get

119119 , module Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.Get

120120

121+ -- ** bigtableadmin.projects.instances.tables.getIamPolicy

122+ , module Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.GetIAMPolicy

123+

121124 -- ** bigtableadmin.projects.instances.tables.list

122125 , module Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.List

123126

124127 -- ** bigtableadmin.projects.instances.tables.modifyColumnFamilies

125128 , module Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.ModifyColumnFamilies

126129

130+ -- ** bigtableadmin.projects.instances.tables.setIamPolicy

131+ , module Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.SetIAMPolicy

132+

133+ -- ** bigtableadmin.projects.instances.tables.testIamPermissions

134+ , module Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.TestIAMPermissions

135+

127136 -- ** bigtableadmin.projects.instances.testIamPermissions

128137 , module Network.Google.Resource.BigtableAdmin.Projects.Instances.TestIAMPermissions

129138

@@ -521,8 +530,11 @@ import Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables

521530import Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.DropRowRange

522531import Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.GenerateConsistencyToken

523532import Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.Get

533+import Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.GetIAMPolicy

524534import Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.List

525535import Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.ModifyColumnFamilies

536+import Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.SetIAMPolicy

537+import Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.TestIAMPermissions

526538import Network.Google.Resource.BigtableAdmin.Projects.Instances.TestIAMPermissions

527539import Network.Google.Resource.BigtableAdmin.Projects.Instances.Update

528540

@@ -543,13 +555,17 @@ type BigtableAdminAPI =

543555 :<|> ProjectsInstancesAppProFilesDeleteResource

544556 :<|> ProjectsInstancesTablesDropRowRangeResource

545557 :<|> ProjectsInstancesTablesListResource

558+ :<|> ProjectsInstancesTablesGetIAMPolicyResource

546559 :<|>

547560 ProjectsInstancesTablesGenerateConsistencyTokenResource

548561 :<|> ProjectsInstancesTablesGetResource

549562 :<|>

550563 ProjectsInstancesTablesModifyColumnFamiliesResource

551564 :<|> ProjectsInstancesTablesCreateResource

565+ :<|> ProjectsInstancesTablesSetIAMPolicyResource

552566 :<|> ProjectsInstancesTablesCheckConsistencyResource

567+ :<|>

568+ ProjectsInstancesTablesTestIAMPermissionsResource

553569 :<|> ProjectsInstancesTablesDeleteResource

554570 :<|> ProjectsInstancesClustersListResource

555571 :<|> ProjectsInstancesClustersGetResource

gogol-bigtableadmin/gen/Network/Google/BigtableAdmin/Types/Product.hs+18−19

@@ -827,7 +827,7 @@ clusterState

827827clusterState = ClusterState' {_csReplicationState = Nothing}

828828

829829

830−-- | (\`OutputOnly\`) The state of replication for the table in this cluster.

830+-- | Output only. The state of replication for the table in this cluster.

831831csReplicationState :: Lens' ClusterState (Maybe ClusterStateReplicationState)

832832csReplicationState

833833 = lens _csReplicationState

@@ -1039,11 +1039,11 @@ instance ToJSON ListAppProFilesResponse where

10391039 ("failedLocations" .=) <$> _lapfrFailedLocations,

10401040 ("appProfiles" .=) <$> _lapfrAppProFiles])

10411041

1042−-- | (\`OutputOnly\`) Map from cluster ID to per-cluster table state. If it

1043−-- could not be determined whether or not the table has data in a

1044−-- particular cluster (for example, if its zone is unavailable), then there

1045−-- will be an entry for the cluster with UNKNOWN \`replication_status\`.

1046−-- Views: \`REPLICATION_VIEW\`, \`FULL\`

1042+-- | Output only. Map from cluster ID to per-cluster table state. If it could

1043+-- not be determined whether or not the table has data in a particular

1044+-- cluster (for example, if its zone is unavailable), then there will be an

1045+-- entry for the cluster with UNKNOWN \`replication_status\`. Views:

1046+-- \`REPLICATION_VIEW\`, \`FULL\`

10471047--

10481048-- /See:/ 'tableClusterStates' smart constructor.

10491049newtype TableClusterStates =

@@ -2842,22 +2842,22 @@ table =

28422842-- | (\`CreationOnly\`) The granularity (i.e. \`MILLIS\`) at which timestamps

28432843-- are stored in this table. Timestamps not matching the granularity will

28442844-- be rejected. If unspecified at creation time, the value will be set to

2845−-- \`MILLIS\`. Views: \`SCHEMA_VIEW\`, \`FULL\`

2845+-- \`MILLIS\`. Views: \`SCHEMA_VIEW\`, \`FULL\`.

28462846tGranularity :: Lens' Table (Maybe TableGranularity)

28472847tGranularity

28482848 = lens _tGranularity (\ s a -> s{_tGranularity = a})

28492849

2850−-- | (\`OutputOnly\`) The unique name of the table. Values are of the form

2850+-- | Output only. The unique name of the table. Values are of the form

28512851-- \`projects\/\/instances\/\/tables\/_a-zA-Z0-9*\`. Views: \`NAME_ONLY\`,

28522852-- \`SCHEMA_VIEW\`, \`REPLICATION_VIEW\`, \`FULL\`

28532853tName :: Lens' Table (Maybe Text)

28542854tName = lens _tName (\ s a -> s{_tName = a})

28552855

2856−-- | (\`OutputOnly\`) Map from cluster ID to per-cluster table state. If it

2857−-- could not be determined whether or not the table has data in a

2858−-- particular cluster (for example, if its zone is unavailable), then there

2859−-- will be an entry for the cluster with UNKNOWN \`replication_status\`.

2860−-- Views: \`REPLICATION_VIEW\`, \`FULL\`

2856+-- | Output only. Map from cluster ID to per-cluster table state. If it could

2857+-- not be determined whether or not the table has data in a particular

2858+-- cluster (for example, if its zone is unavailable), then there will be an

2859+-- entry for the cluster with UNKNOWN \`replication_status\`. Views:

2860+-- \`REPLICATION_VIEW\`, \`FULL\`

28612861tClusterStates :: Lens' Table (Maybe TableClusterStates)

28622862tClusterStates

28632863 = lens _tClusterStates

@@ -2969,8 +2969,8 @@ binding =

29692969-- that represents a service account. For example,

29702970-- \`my-other-app\'appspot.gserviceaccount.com\`. * \`group:{emailid}\`: An

29712971-- email address that represents a Google group. For example,

2972−-- \`admins\'example.com\`. * \`domain:{domain}\`: A Google Apps domain

2973−-- name that represents all the users of that domain. For example,

2972+-- \`admins\'example.com\`. * \`domain:{domain}\`: The G Suite domain

2973+-- (primary) that represents all the users of that domain. For example,

29742974-- \`google.com\` or \`example.com\`.

29752975bMembers :: Lens' Binding [Text]

29762976bMembers

@@ -2983,10 +2983,9 @@ bMembers

29832983bRole :: Lens' Binding (Maybe Text)

29842984bRole = lens _bRole (\ s a -> s{_bRole = a})

29852985

2986−-- | Unimplemented. The condition that is associated with this binding. NOTE:

2987−-- an unsatisfied condition will not allow user access via current binding.

2988−-- Different bindings, including their conditions, are examined

2989−-- independently.

2986+-- | The condition that is associated with this binding. NOTE: An unsatisfied

2987+-- condition will not allow user access via current binding. Different

2988+-- bindings, including their conditions, are examined independently.

29902989bCondition :: Lens' Binding (Maybe Expr)

29912990bCondition

29922991 = lens _bCondition (\ s a -> s{_bCondition = a})

gogol-bigtableadmin/gen/Network/Google/BigtableAdmin/Types/Sum.hs+2−2

@@ -53,7 +53,7 @@ instance FromJSON ClusterDefaultStorageType where

5353instance ToJSON ClusterDefaultStorageType where

5454 toJSON = toJSONText

5555

56−-- | (\`OutputOnly\`) The state of replication for the table in this cluster.

56+-- | Output only. The state of replication for the table in this cluster.

5757data ClusterStateReplicationState

5858 = StateNotKnown

5959 -- ^ @STATE_NOT_KNOWN@

@@ -260,7 +260,7 @@ instance ToJSON Xgafv where

260260-- | (\`CreationOnly\`) The granularity (i.e. \`MILLIS\`) at which timestamps

261261-- are stored in this table. Timestamps not matching the granularity will

262262-- be rejected. If unspecified at creation time, the value will be set to

263−-- \`MILLIS\`. Views: \`SCHEMA_VIEW\`, \`FULL\`

263+-- \`MILLIS\`. Views: \`SCHEMA_VIEW\`, \`FULL\`.

264264data TableGranularity

265265 = TimestampGranularityUnspecified

266266 -- ^ @TIMESTAMP_GRANULARITY_UNSPECIFIED@

gogol-bigtableadmin/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/GetIAMPolicy.hsnew file+179

@@ -0,0 +1,179 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.GetIAMPolicy

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Gets the access control policy for an instance resource. Returns an

24+-- empty policy if an table exists but does not have a policy set.

25+--

26+-- /See:/ <https://cloud.google.com/bigtable/ Cloud Bigtable Admin API Reference> for @bigtableadmin.projects.instances.tables.getIamPolicy@.

27+module Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.GetIAMPolicy

28+ (

29+ -- * REST Resource

30+ ProjectsInstancesTablesGetIAMPolicyResource

31+

32+ -- * Creating a Request

33+ , projectsInstancesTablesGetIAMPolicy

34+ , ProjectsInstancesTablesGetIAMPolicy

35+

36+ -- * Request Lenses

37+ , pitgipXgafv

38+ , pitgipUploadProtocol

39+ , pitgipAccessToken

40+ , pitgipUploadType

41+ , pitgipPayload

42+ , pitgipResource

43+ , pitgipCallback

44+ ) where

45+

46+import Network.Google.BigtableAdmin.Types

47+import Network.Google.Prelude

48+

49+-- | A resource alias for @bigtableadmin.projects.instances.tables.getIamPolicy@ method which the

50+-- 'ProjectsInstancesTablesGetIAMPolicy' request conforms to.

51+type ProjectsInstancesTablesGetIAMPolicyResource =

52+ "v2" :>

53+ CaptureMode "resource" "getIamPolicy" Text :>

54+ QueryParam "$.xgafv" Xgafv :>

55+ QueryParam "upload_protocol" Text :>

56+ QueryParam "access_token" Text :>

57+ QueryParam "uploadType" Text :>

58+ QueryParam "callback" Text :>

59+ QueryParam "alt" AltJSON :>

60+ ReqBody '[JSON] GetIAMPolicyRequest :>

61+ Post '[JSON] Policy

62+

63+-- | Gets the access control policy for an instance resource. Returns an

64+-- empty policy if an table exists but does not have a policy set.

65+--

66+-- /See:/ 'projectsInstancesTablesGetIAMPolicy' smart constructor.

67+data ProjectsInstancesTablesGetIAMPolicy =

68+ ProjectsInstancesTablesGetIAMPolicy'

69+ { _pitgipXgafv :: !(Maybe Xgafv)

70+ , _pitgipUploadProtocol :: !(Maybe Text)

71+ , _pitgipAccessToken :: !(Maybe Text)

72+ , _pitgipUploadType :: !(Maybe Text)

73+ , _pitgipPayload :: !GetIAMPolicyRequest

74+ , _pitgipResource :: !Text

75+ , _pitgipCallback :: !(Maybe Text)

76+ }

77+ deriving (Eq, Show, Data, Typeable, Generic)

78+

79+

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

81+--

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

83+--

84+-- * 'pitgipXgafv'

85+--

86+-- * 'pitgipUploadProtocol'

87+--

88+-- * 'pitgipAccessToken'

89+--

90+-- * 'pitgipUploadType'

91+--

92+-- * 'pitgipPayload'

93+--

94+-- * 'pitgipResource'

95+--

96+-- * 'pitgipCallback'

97+projectsInstancesTablesGetIAMPolicy

98+ :: GetIAMPolicyRequest -- ^ 'pitgipPayload'

99+ -> Text -- ^ 'pitgipResource'

100+ -> ProjectsInstancesTablesGetIAMPolicy

101+projectsInstancesTablesGetIAMPolicy pPitgipPayload_ pPitgipResource_ =

102+ ProjectsInstancesTablesGetIAMPolicy'

103+ { _pitgipXgafv = Nothing

104+ , _pitgipUploadProtocol = Nothing

105+ , _pitgipAccessToken = Nothing

106+ , _pitgipUploadType = Nothing

107+ , _pitgipPayload = pPitgipPayload_

108+ , _pitgipResource = pPitgipResource_

109+ , _pitgipCallback = Nothing

110+ }

111+

112+

113+-- | V1 error format.

114+pitgipXgafv :: Lens' ProjectsInstancesTablesGetIAMPolicy (Maybe Xgafv)

115+pitgipXgafv

116+ = lens _pitgipXgafv (\ s a -> s{_pitgipXgafv = a})

117+

118+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

119+pitgipUploadProtocol :: Lens' ProjectsInstancesTablesGetIAMPolicy (Maybe Text)

120+pitgipUploadProtocol

121+ = lens _pitgipUploadProtocol

122+ (\ s a -> s{_pitgipUploadProtocol = a})

123+

124+-- | OAuth access token.

125+pitgipAccessToken :: Lens' ProjectsInstancesTablesGetIAMPolicy (Maybe Text)

126+pitgipAccessToken

127+ = lens _pitgipAccessToken

128+ (\ s a -> s{_pitgipAccessToken = a})

129+

130+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

131+pitgipUploadType :: Lens' ProjectsInstancesTablesGetIAMPolicy (Maybe Text)

132+pitgipUploadType

133+ = lens _pitgipUploadType

134+ (\ s a -> s{_pitgipUploadType = a})

135+

136+-- | Multipart request metadata.

137+pitgipPayload :: Lens' ProjectsInstancesTablesGetIAMPolicy GetIAMPolicyRequest

138+pitgipPayload

139+ = lens _pitgipPayload

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

141+

142+-- | REQUIRED: The resource for which the policy is being requested. See the

143+-- operation documentation for the appropriate value for this field.

144+pitgipResource :: Lens' ProjectsInstancesTablesGetIAMPolicy Text

145+pitgipResource

146+ = lens _pitgipResource

147+ (\ s a -> s{_pitgipResource = a})

148+

149+-- | JSONP

150+pitgipCallback :: Lens' ProjectsInstancesTablesGetIAMPolicy (Maybe Text)

151+pitgipCallback

152+ = lens _pitgipCallback

153+ (\ s a -> s{_pitgipCallback = a})

154+

155+instance GoogleRequest

156+ ProjectsInstancesTablesGetIAMPolicy

157+ where

158+ type Rs ProjectsInstancesTablesGetIAMPolicy = Policy

159+ type Scopes ProjectsInstancesTablesGetIAMPolicy =

160+ '["https://www.googleapis.com/auth/bigtable.admin",

161+ "https://www.googleapis.com/auth/bigtable.admin.table",

162+ "https://www.googleapis.com/auth/cloud-bigtable.admin",

163+ "https://www.googleapis.com/auth/cloud-bigtable.admin.table",

164+ "https://www.googleapis.com/auth/cloud-platform"]

165+ requestClient

166+ ProjectsInstancesTablesGetIAMPolicy'{..}

167+ = go _pitgipResource _pitgipXgafv

168+ _pitgipUploadProtocol

169+ _pitgipAccessToken

170+ _pitgipUploadType

171+ _pitgipCallback

172+ (Just AltJSON)

173+ _pitgipPayload

174+ bigtableAdminService

175+ where go

176+ = buildClient

177+ (Proxy ::

178+ Proxy ProjectsInstancesTablesGetIAMPolicyResource)

179+ mempty

gogol-bigtableadmin/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/List.hs+7−1

@@ -160,7 +160,13 @@ pitlPageToken

160160 = lens _pitlPageToken

161161 (\ s a -> s{_pitlPageToken = a})

162162

163−-- | Maximum number of results per page. CURRENTLY UNIMPLEMENTED AND IGNORED.

163+-- | Maximum number of results per page. A page_size of zero lets the server

164+-- choose the number of items to return. A page_size which is strictly

165+-- positive will return at most that many items. A negative page_size will

166+-- cause an error. Following the first request, subsequent paginated calls

167+-- are not required to pass a page_size. If a page_size is set in

168+-- subsequent calls, it must match the page_size given in the first

169+-- request.

164170pitlPageSize :: Lens' ProjectsInstancesTablesList (Maybe Int32)

165171pitlPageSize

166172 = lens _pitlPageSize (\ s a -> s{_pitlPageSize = a})

gogol-bigtableadmin/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/SetIAMPolicy.hsnew file+179

@@ -0,0 +1,179 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.SetIAMPolicy

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Sets the access control policy on a table resource. Replaces any

24+-- existing policy.

25+--

26+-- /See:/ <https://cloud.google.com/bigtable/ Cloud Bigtable Admin API Reference> for @bigtableadmin.projects.instances.tables.setIamPolicy@.

27+module Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.SetIAMPolicy

28+ (

29+ -- * REST Resource

30+ ProjectsInstancesTablesSetIAMPolicyResource

31+

32+ -- * Creating a Request

33+ , projectsInstancesTablesSetIAMPolicy

34+ , ProjectsInstancesTablesSetIAMPolicy

35+

36+ -- * Request Lenses

37+ , pitsipXgafv

38+ , pitsipUploadProtocol

39+ , pitsipAccessToken

40+ , pitsipUploadType

41+ , pitsipPayload

42+ , pitsipResource

43+ , pitsipCallback

44+ ) where

45+

46+import Network.Google.BigtableAdmin.Types

47+import Network.Google.Prelude

48+

49+-- | A resource alias for @bigtableadmin.projects.instances.tables.setIamPolicy@ method which the

50+-- 'ProjectsInstancesTablesSetIAMPolicy' request conforms to.

51+type ProjectsInstancesTablesSetIAMPolicyResource =

52+ "v2" :>

53+ CaptureMode "resource" "setIamPolicy" Text :>

54+ QueryParam "$.xgafv" Xgafv :>

55+ QueryParam "upload_protocol" Text :>

56+ QueryParam "access_token" Text :>

57+ QueryParam "uploadType" Text :>

58+ QueryParam "callback" Text :>

59+ QueryParam "alt" AltJSON :>

60+ ReqBody '[JSON] SetIAMPolicyRequest :>

61+ Post '[JSON] Policy

62+

63+-- | Sets the access control policy on a table resource. Replaces any

64+-- existing policy.

65+--

66+-- /See:/ 'projectsInstancesTablesSetIAMPolicy' smart constructor.

67+data ProjectsInstancesTablesSetIAMPolicy =

68+ ProjectsInstancesTablesSetIAMPolicy'

69+ { _pitsipXgafv :: !(Maybe Xgafv)

70+ , _pitsipUploadProtocol :: !(Maybe Text)

71+ , _pitsipAccessToken :: !(Maybe Text)

72+ , _pitsipUploadType :: !(Maybe Text)

73+ , _pitsipPayload :: !SetIAMPolicyRequest

74+ , _pitsipResource :: !Text

75+ , _pitsipCallback :: !(Maybe Text)

76+ }

77+ deriving (Eq, Show, Data, Typeable, Generic)

78+

79+

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

81+--

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

83+--

84+-- * 'pitsipXgafv'

85+--

86+-- * 'pitsipUploadProtocol'

87+--

88+-- * 'pitsipAccessToken'

89+--

90+-- * 'pitsipUploadType'

91+--

92+-- * 'pitsipPayload'

93+--

94+-- * 'pitsipResource'

95+--

96+-- * 'pitsipCallback'

97+projectsInstancesTablesSetIAMPolicy

98+ :: SetIAMPolicyRequest -- ^ 'pitsipPayload'

99+ -> Text -- ^ 'pitsipResource'

100+ -> ProjectsInstancesTablesSetIAMPolicy

101+projectsInstancesTablesSetIAMPolicy pPitsipPayload_ pPitsipResource_ =

102+ ProjectsInstancesTablesSetIAMPolicy'

103+ { _pitsipXgafv = Nothing

104+ , _pitsipUploadProtocol = Nothing

105+ , _pitsipAccessToken = Nothing

106+ , _pitsipUploadType = Nothing

107+ , _pitsipPayload = pPitsipPayload_

108+ , _pitsipResource = pPitsipResource_

109+ , _pitsipCallback = Nothing

110+ }

111+

112+

113+-- | V1 error format.

114+pitsipXgafv :: Lens' ProjectsInstancesTablesSetIAMPolicy (Maybe Xgafv)

115+pitsipXgafv

116+ = lens _pitsipXgafv (\ s a -> s{_pitsipXgafv = a})

117+

118+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

119+pitsipUploadProtocol :: Lens' ProjectsInstancesTablesSetIAMPolicy (Maybe Text)

120+pitsipUploadProtocol

121+ = lens _pitsipUploadProtocol

122+ (\ s a -> s{_pitsipUploadProtocol = a})

123+

124+-- | OAuth access token.

125+pitsipAccessToken :: Lens' ProjectsInstancesTablesSetIAMPolicy (Maybe Text)

126+pitsipAccessToken

127+ = lens _pitsipAccessToken

128+ (\ s a -> s{_pitsipAccessToken = a})

129+

130+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

131+pitsipUploadType :: Lens' ProjectsInstancesTablesSetIAMPolicy (Maybe Text)

132+pitsipUploadType

133+ = lens _pitsipUploadType

134+ (\ s a -> s{_pitsipUploadType = a})

135+

136+-- | Multipart request metadata.

137+pitsipPayload :: Lens' ProjectsInstancesTablesSetIAMPolicy SetIAMPolicyRequest

138+pitsipPayload

139+ = lens _pitsipPayload

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

141+

142+-- | REQUIRED: The resource for which the policy is being specified. See the

143+-- operation documentation for the appropriate value for this field.

144+pitsipResource :: Lens' ProjectsInstancesTablesSetIAMPolicy Text

145+pitsipResource

146+ = lens _pitsipResource

147+ (\ s a -> s{_pitsipResource = a})

148+

149+-- | JSONP

150+pitsipCallback :: Lens' ProjectsInstancesTablesSetIAMPolicy (Maybe Text)

151+pitsipCallback

152+ = lens _pitsipCallback

153+ (\ s a -> s{_pitsipCallback = a})

154+

155+instance GoogleRequest

156+ ProjectsInstancesTablesSetIAMPolicy

157+ where

158+ type Rs ProjectsInstancesTablesSetIAMPolicy = Policy

159+ type Scopes ProjectsInstancesTablesSetIAMPolicy =

160+ '["https://www.googleapis.com/auth/bigtable.admin",

161+ "https://www.googleapis.com/auth/bigtable.admin.table",

162+ "https://www.googleapis.com/auth/cloud-bigtable.admin",

163+ "https://www.googleapis.com/auth/cloud-bigtable.admin.table",

164+ "https://www.googleapis.com/auth/cloud-platform"]

165+ requestClient

166+ ProjectsInstancesTablesSetIAMPolicy'{..}

167+ = go _pitsipResource _pitsipXgafv

168+ _pitsipUploadProtocol

169+ _pitsipAccessToken

170+ _pitsipUploadType

171+ _pitsipCallback

172+ (Just AltJSON)

173+ _pitsipPayload

174+ bigtableAdminService

175+ where go

176+ = buildClient

177+ (Proxy ::

178+ Proxy ProjectsInstancesTablesSetIAMPolicyResource)

179+ mempty

gogol-bigtableadmin/gen/Network/Google/Resource/BigtableAdmin/Projects/Instances/Tables/TestIAMPermissions.hsnew file+182

@@ -0,0 +1,182 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.TestIAMPermissions

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Returns permissions that the caller has on the specified table resource.

24+--

25+-- /See:/ <https://cloud.google.com/bigtable/ Cloud Bigtable Admin API Reference> for @bigtableadmin.projects.instances.tables.testIamPermissions@.

26+module Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.TestIAMPermissions

27+ (

28+ -- * REST Resource

29+ ProjectsInstancesTablesTestIAMPermissionsResource

30+

31+ -- * Creating a Request

32+ , projectsInstancesTablesTestIAMPermissions

33+ , ProjectsInstancesTablesTestIAMPermissions

34+

35+ -- * Request Lenses

36+ , pittipXgafv

37+ , pittipUploadProtocol

38+ , pittipAccessToken

39+ , pittipUploadType

40+ , pittipPayload

41+ , pittipResource

42+ , pittipCallback

43+ ) where

44+

45+import Network.Google.BigtableAdmin.Types

46+import Network.Google.Prelude

47+

48+-- | A resource alias for @bigtableadmin.projects.instances.tables.testIamPermissions@ method which the

49+-- 'ProjectsInstancesTablesTestIAMPermissions' request conforms to.

50+type ProjectsInstancesTablesTestIAMPermissionsResource

51+ =

52+ "v2" :>

53+ CaptureMode "resource" "testIamPermissions" Text :>

54+ QueryParam "$.xgafv" Xgafv :>

55+ QueryParam "upload_protocol" Text :>

56+ QueryParam "access_token" Text :>

57+ QueryParam "uploadType" Text :>

58+ QueryParam "callback" Text :>

59+ QueryParam "alt" AltJSON :>

60+ ReqBody '[JSON] TestIAMPermissionsRequest :>

61+ Post '[JSON] TestIAMPermissionsResponse

62+

63+-- | Returns permissions that the caller has on the specified table resource.

64+--

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

66+data ProjectsInstancesTablesTestIAMPermissions =

67+ ProjectsInstancesTablesTestIAMPermissions'

68+ { _pittipXgafv :: !(Maybe Xgafv)

69+ , _pittipUploadProtocol :: !(Maybe Text)

70+ , _pittipAccessToken :: !(Maybe Text)

71+ , _pittipUploadType :: !(Maybe Text)

72+ , _pittipPayload :: !TestIAMPermissionsRequest

73+ , _pittipResource :: !Text

74+ , _pittipCallback :: !(Maybe Text)

75+ }

76+ deriving (Eq, Show, Data, Typeable, Generic)

77+

78+

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

80+--

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

82+--

83+-- * 'pittipXgafv'

84+--

85+-- * 'pittipUploadProtocol'

86+--

87+-- * 'pittipAccessToken'

88+--

89+-- * 'pittipUploadType'

90+--

91+-- * 'pittipPayload'

92+--

93+-- * 'pittipResource'

94+--

95+-- * 'pittipCallback'

96+projectsInstancesTablesTestIAMPermissions

97+ :: TestIAMPermissionsRequest -- ^ 'pittipPayload'

98+ -> Text -- ^ 'pittipResource'

99+ -> ProjectsInstancesTablesTestIAMPermissions

100+projectsInstancesTablesTestIAMPermissions pPittipPayload_ pPittipResource_ =

101+ ProjectsInstancesTablesTestIAMPermissions'

102+ { _pittipXgafv = Nothing

103+ , _pittipUploadProtocol = Nothing

104+ , _pittipAccessToken = Nothing

105+ , _pittipUploadType = Nothing

106+ , _pittipPayload = pPittipPayload_

107+ , _pittipResource = pPittipResource_

108+ , _pittipCallback = Nothing

109+ }

110+

111+

112+-- | V1 error format.

113+pittipXgafv :: Lens' ProjectsInstancesTablesTestIAMPermissions (Maybe Xgafv)

114+pittipXgafv

115+ = lens _pittipXgafv (\ s a -> s{_pittipXgafv = a})

116+

117+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

118+pittipUploadProtocol :: Lens' ProjectsInstancesTablesTestIAMPermissions (Maybe Text)

119+pittipUploadProtocol

120+ = lens _pittipUploadProtocol

121+ (\ s a -> s{_pittipUploadProtocol = a})

122+

123+-- | OAuth access token.

124+pittipAccessToken :: Lens' ProjectsInstancesTablesTestIAMPermissions (Maybe Text)

125+pittipAccessToken

126+ = lens _pittipAccessToken

127+ (\ s a -> s{_pittipAccessToken = a})

128+

129+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

130+pittipUploadType :: Lens' ProjectsInstancesTablesTestIAMPermissions (Maybe Text)

131+pittipUploadType

132+ = lens _pittipUploadType

133+ (\ s a -> s{_pittipUploadType = a})

134+

135+-- | Multipart request metadata.

136+pittipPayload :: Lens' ProjectsInstancesTablesTestIAMPermissions TestIAMPermissionsRequest

137+pittipPayload

138+ = lens _pittipPayload

139+ (\ s a -> s{_pittipPayload = a})

140+

141+-- | REQUIRED: The resource for which the policy detail is being requested.

142+-- See the operation documentation for the appropriate value for this

143+-- field.

144+pittipResource :: Lens' ProjectsInstancesTablesTestIAMPermissions Text

145+pittipResource

146+ = lens _pittipResource

147+ (\ s a -> s{_pittipResource = a})

148+

149+-- | JSONP

150+pittipCallback :: Lens' ProjectsInstancesTablesTestIAMPermissions (Maybe Text)

151+pittipCallback

152+ = lens _pittipCallback

153+ (\ s a -> s{_pittipCallback = a})

154+

155+instance GoogleRequest

156+ ProjectsInstancesTablesTestIAMPermissions

157+ where

158+ type Rs ProjectsInstancesTablesTestIAMPermissions =

159+ TestIAMPermissionsResponse

160+ type Scopes ProjectsInstancesTablesTestIAMPermissions

161+ =

162+ '["https://www.googleapis.com/auth/bigtable.admin",

163+ "https://www.googleapis.com/auth/bigtable.admin.table",

164+ "https://www.googleapis.com/auth/cloud-bigtable.admin",

165+ "https://www.googleapis.com/auth/cloud-bigtable.admin.table",

166+ "https://www.googleapis.com/auth/cloud-platform"]

167+ requestClient

168+ ProjectsInstancesTablesTestIAMPermissions'{..}

169+ = go _pittipResource _pittipXgafv

170+ _pittipUploadProtocol

171+ _pittipAccessToken

172+ _pittipUploadType

173+ _pittipCallback

174+ (Just AltJSON)

175+ _pittipPayload

176+ bigtableAdminService

177+ where go

178+ = buildClient

179+ (Proxy ::

180+ Proxy

181+ ProjectsInstancesTablesTestIAMPermissionsResource)

182+ mempty

gogol-bigtableadmin/gogol-bigtableadmin.cabal+4−1

@@ -14,7 +14,7 @@ cabal-version: >= 1.10

1414extra-source-files: README.md src/.gitkeep

1515

1616description:

17−

17+ Administer your Cloud Bigtable tables and instances.

1818 .

1919 /Warning:/ This is an experimental prototype/preview release which is still

2020 under exploratory development and not intended for public use, caveat emptor!

@@ -62,8 +62,11 @@ library

6262 , Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.DropRowRange

6363 , Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.GenerateConsistencyToken

6464 , Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.Get

65+ , Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.GetIAMPolicy

6566 , Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.List

6667 , Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.ModifyColumnFamilies

68+ , Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.SetIAMPolicy

69+ , Network.Google.Resource.BigtableAdmin.Projects.Instances.Tables.TestIAMPermissions

6770 , Network.Google.Resource.BigtableAdmin.Projects.Instances.TestIAMPermissions

6871 , Network.Google.Resource.BigtableAdmin.Projects.Instances.Update

6972

gogol-billing/gen/Network/Google/Billing/Types/Product.hs+5−6

@@ -1602,8 +1602,8 @@ binding =

16021602-- that represents a service account. For example,

16031603-- \`my-other-app\'appspot.gserviceaccount.com\`. * \`group:{emailid}\`: An

16041604-- email address that represents a Google group. For example,

1605−-- \`admins\'example.com\`. * \`domain:{domain}\`: A Google Apps domain

1606−-- name that represents all the users of that domain. For example,

1605+-- \`admins\'example.com\`. * \`domain:{domain}\`: The G Suite domain

1606+-- (primary) that represents all the users of that domain. For example,

16071607-- \`google.com\` or \`example.com\`.

16081608bMembers :: Lens' Binding [Text]

16091609bMembers

@@ -1616,10 +1616,9 @@ bMembers

16161616bRole :: Lens' Binding (Maybe Text)

16171617bRole = lens _bRole (\ s a -> s{_bRole = a})

16181618

1619−-- | Unimplemented. The condition that is associated with this binding. NOTE:

1620−-- an unsatisfied condition will not allow user access via current binding.

1621−-- Different bindings, including their conditions, are examined

1622−-- independently.

1619+-- | The condition that is associated with this binding. NOTE: An unsatisfied

1620+-- condition will not allow user access via current binding. Different

1621+-- bindings, including their conditions, are examined independently.

16231622bCondition :: Lens' Binding (Maybe Expr)

16241623bCondition

16251624 = lens _bCondition (\ s a -> s{_bCondition = a})

gogol-binaryauthorization/gen/Network/Google/BinaryAuthorization.hs+14

@@ -71,6 +71,12 @@ module Network.Google.BinaryAuthorization

7171

7272 -- * Types

7373

74+ -- ** PkixPublicKey

75+ , PkixPublicKey

76+ , pkixPublicKey

77+ , ppkPublicKeyPem

78+ , ppkSignatureAlgorithm

79+

7480 -- ** Expr

7581 , Expr

7682 , expr

@@ -93,6 +99,9 @@ module Network.Google.BinaryAuthorization

9399 -- ** AdmissionRuleEnforcementMode

94100 , AdmissionRuleEnforcementMode (..)

95101

102+ -- ** PolicyGlobalPolicyEvaluationMode

103+ , PolicyGlobalPolicyEvaluationMode (..)

104+

96105 -- ** SetIAMPolicyRequest

97106 , SetIAMPolicyRequest

98107 , setIAMPolicyRequest

@@ -109,6 +118,9 @@ module Network.Google.BinaryAuthorization

109118 , admissionWhiteListPattern

110119 , awlpNamePattern

111120

121+ -- ** PkixPublicKeySignatureAlgorithm

122+ , PkixPublicKeySignatureAlgorithm (..)

123+

112124 -- ** AdmissionRule

113125 , AdmissionRule

114126 , admissionRule

@@ -137,6 +149,7 @@ module Network.Google.BinaryAuthorization

137149 -- ** AttestorPublicKey

138150 , AttestorPublicKey

139151 , attestorPublicKey

152+ , apkPkixPublicKey

140153 , apkAsciiArmoredPgpPublicKey

141154 , apkId

142155 , apkComment

@@ -154,6 +167,7 @@ module Network.Google.BinaryAuthorization

154167 , pClusterAdmissionRules

155168 , pUpdateTime

156169 , pName

170+ , pGlobalPolicyEvaluationMode

157171 , pDescription

158172

159173 -- ** PolicyClusterAdmissionRules

gogol-binaryauthorization/gen/Network/Google/BinaryAuthorization/Types.hs+14

@@ -22,6 +22,12 @@ module Network.Google.BinaryAuthorization.Types

2222 -- * OAuth Scopes

2323 , cloudPlatformScope

2424

25+ -- * PkixPublicKey

26+ , PkixPublicKey

27+ , pkixPublicKey

28+ , ppkPublicKeyPem

29+ , ppkSignatureAlgorithm

30+

2531 -- * Expr

2632 , Expr

2733 , expr

@@ -44,6 +50,9 @@ module Network.Google.BinaryAuthorization.Types

4450 -- * AdmissionRuleEnforcementMode

4551 , AdmissionRuleEnforcementMode (..)

4652

53+ -- * PolicyGlobalPolicyEvaluationMode

54+ , PolicyGlobalPolicyEvaluationMode (..)

55+

4756 -- * SetIAMPolicyRequest

4857 , SetIAMPolicyRequest

4958 , setIAMPolicyRequest

@@ -60,6 +69,9 @@ module Network.Google.BinaryAuthorization.Types

6069 , admissionWhiteListPattern

6170 , awlpNamePattern

6271

72+ -- * PkixPublicKeySignatureAlgorithm

73+ , PkixPublicKeySignatureAlgorithm (..)

74+

6375 -- * AdmissionRule

6476 , AdmissionRule

6577 , admissionRule

@@ -88,6 +100,7 @@ module Network.Google.BinaryAuthorization.Types

88100 -- * AttestorPublicKey

89101 , AttestorPublicKey

90102 , attestorPublicKey

103+ , apkPkixPublicKey

91104 , apkAsciiArmoredPgpPublicKey

92105 , apkId

93106 , apkComment

@@ -105,6 +118,7 @@ module Network.Google.BinaryAuthorization.Types

105118 , pClusterAdmissionRules

106119 , pUpdateTime

107120 , pName

121+ , pGlobalPolicyEvaluationMode

108122 , pDescription

109123

110124 -- * PolicyClusterAdmissionRules

gogol-binaryauthorization/gen/Network/Google/BinaryAuthorization/Types/Product.hs+116−17

@@ -20,6 +20,65 @@ module Network.Google.BinaryAuthorization.Types.Product where

2020import Network.Google.BinaryAuthorization.Types.Sum

2121import Network.Google.Prelude

2222

23+-- | A public key in the PkixPublicKey format (see

24+-- https:\/\/tools.ietf.org\/html\/rfc5280#section-4.1.2.7 for details).

25+-- Public keys of this type are typically textually encoded using the PEM

26+-- format.

27+--

28+-- /See:/ 'pkixPublicKey' smart constructor.

29+data PkixPublicKey =

30+ PkixPublicKey'

31+ { _ppkPublicKeyPem :: !(Maybe Text)

32+ , _ppkSignatureAlgorithm :: !(Maybe PkixPublicKeySignatureAlgorithm)

33+ }

34+ deriving (Eq, Show, Data, Typeable, Generic)

35+

36+

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

38+--

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

40+--

41+-- * 'ppkPublicKeyPem'

42+--

43+-- * 'ppkSignatureAlgorithm'

44+pkixPublicKey

45+ :: PkixPublicKey

46+pkixPublicKey =

47+ PkixPublicKey' {_ppkPublicKeyPem = Nothing, _ppkSignatureAlgorithm = Nothing}

48+

49+

50+-- | A PEM-encoded public key, as described in

51+-- https:\/\/tools.ietf.org\/html\/rfc7468#section-13

52+ppkPublicKeyPem :: Lens' PkixPublicKey (Maybe Text)

53+ppkPublicKeyPem

54+ = lens _ppkPublicKeyPem

55+ (\ s a -> s{_ppkPublicKeyPem = a})

56+

57+-- | The signature algorithm used to verify a message against a signature

58+-- using this key. These signature algorithm must match the structure and

59+-- any object identifiers encoded in \`public_key_pem\` (i.e. this

60+-- algorithm must match that of the public key).

61+ppkSignatureAlgorithm :: Lens' PkixPublicKey (Maybe PkixPublicKeySignatureAlgorithm)

62+ppkSignatureAlgorithm

63+ = lens _ppkSignatureAlgorithm

64+ (\ s a -> s{_ppkSignatureAlgorithm = a})

65+

66+instance FromJSON PkixPublicKey where

67+ parseJSON

68+ = withObject "PkixPublicKey"

69+ (\ o ->

70+ PkixPublicKey' <$>

71+ (o .:? "publicKeyPem") <*>

72+ (o .:? "signatureAlgorithm"))

73+

74+instance ToJSON PkixPublicKey where

75+ toJSON PkixPublicKey'{..}

76+ = object

77+ (catMaybes

78+ [("publicKeyPem" .=) <$> _ppkPublicKeyPem,

79+ ("signatureAlgorithm" .=) <$>

80+ _ppkSignatureAlgorithm])

81+

2382-- | Represents an expression text. Example: title: \"User account presence\"

2483-- description: \"Determines whether the request has a user account\"

2584-- expression: \"size(request.user) > 0\"

@@ -556,13 +615,14 @@ instance ToJSON IAMPolicy where

556615 ("version" .=) <$> _ipVersion,

557616 ("bindings" .=) <$> _ipBindings])

558617

559−-- | An attestator public key that will be used to verify attestations signed

618+-- | An attestor public key that will be used to verify attestations signed

560619-- by this attestor.

561620--

562621-- /See:/ 'attestorPublicKey' smart constructor.

563622data AttestorPublicKey =

564623 AttestorPublicKey'

565− { _apkAsciiArmoredPgpPublicKey :: !(Maybe Text)

624+ { _apkPkixPublicKey :: !(Maybe PkixPublicKey)

625+ , _apkAsciiArmoredPgpPublicKey :: !(Maybe Text)

566626 , _apkId :: !(Maybe Text)

567627 , _apkComment :: !(Maybe Text)

568628 }

@@ -573,6 +633,8 @@ data AttestorPublicKey =

573633--

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

575635--

636+-- * 'apkPkixPublicKey'

637+--

576638-- * 'apkAsciiArmoredPgpPublicKey'

577639--

578640-- * 'apkId'

@@ -582,23 +644,41 @@ attestorPublicKey

582644 :: AttestorPublicKey

583645attestorPublicKey =

584646 AttestorPublicKey'

585− { _apkAsciiArmoredPgpPublicKey = Nothing

647+ { _apkPkixPublicKey = Nothing

648+ , _apkAsciiArmoredPgpPublicKey = Nothing

586649 , _apkId = Nothing

587650 , _apkComment = Nothing

588651 }

589652

590653

654+-- | A raw PKIX SubjectPublicKeyInfo format public key. NOTE: \`id\` may be

655+-- explicitly provided by the caller when using this type of public key,

656+-- but it MUST be a valid RFC3986 URI. If \`id\` is left blank, a default

657+-- one will be computed based on the digest of the DER encoding of the

658+-- public key.

659+apkPkixPublicKey :: Lens' AttestorPublicKey (Maybe PkixPublicKey)

660+apkPkixPublicKey

661+ = lens _apkPkixPublicKey

662+ (\ s a -> s{_apkPkixPublicKey = a})

663+

591664-- | ASCII-armored representation of a PGP public key, as the entire output

592665-- by the command \`gpg --export --armor foo\'example.com\` (either LF or

593−-- CRLF line endings).

666+-- CRLF line endings). When using this field, \`id\` should be left blank.

667+-- The BinAuthz API handlers will calculate the ID and fill it in

668+-- automatically. BinAuthz computes this ID as the OpenPGP RFC4880 V4

669+-- fingerprint, represented as upper-case hex. If \`id\` is provided by the

670+-- caller, it will be overwritten by the API-calculated ID.

594671apkAsciiArmoredPgpPublicKey :: Lens' AttestorPublicKey (Maybe Text)

595672apkAsciiArmoredPgpPublicKey

596673 = lens _apkAsciiArmoredPgpPublicKey

597674 (\ s a -> s{_apkAsciiArmoredPgpPublicKey = a})

598675

599−-- | Output only. This field will be overwritten with key ID information, for

600−-- example, an identifier extracted from a PGP public key. This field may

601−-- not be updated.

676+-- | The ID of this public key. Signatures verified by BinAuthz must include

677+-- the ID of the public key that can be used to verify them, and that ID

678+-- must match the contents of this field exactly. Additional restrictions

679+-- on this field can be imposed based on which public key type is

680+-- encapsulated. See the documentation on \`public_key\` cases below for

681+-- details.

602682apkId :: Lens' AttestorPublicKey (Maybe Text)

603683apkId = lens _apkId (\ s a -> s{_apkId = a})

604684

@@ -612,14 +692,17 @@ instance FromJSON AttestorPublicKey where

612692 = withObject "AttestorPublicKey"

613693 (\ o ->

614694 AttestorPublicKey' <$>

615− (o .:? "asciiArmoredPgpPublicKey") <*> (o .:? "id")

695+ (o .:? "pkixPublicKey") <*>

696+ (o .:? "asciiArmoredPgpPublicKey")

697+ <*> (o .:? "id")

616698 <*> (o .:? "comment"))

617699

618700instance ToJSON AttestorPublicKey where

619701 toJSON AttestorPublicKey'{..}

620702 = object

621703 (catMaybes

622− [("asciiArmoredPgpPublicKey" .=) <$>

704+ [("pkixPublicKey" .=) <$> _apkPkixPublicKey,

705+ ("asciiArmoredPgpPublicKey" .=) <$>

623706 _apkAsciiArmoredPgpPublicKey,

624707 ("id" .=) <$> _apkId,

625708 ("comment" .=) <$> _apkComment])

@@ -677,6 +760,7 @@ data Policy =

677760 , _pClusterAdmissionRules :: !(Maybe PolicyClusterAdmissionRules)

678761 , _pUpdateTime :: !(Maybe DateTime')

679762 , _pName :: !(Maybe Text)

763+ , _pGlobalPolicyEvaluationMode :: !(Maybe PolicyGlobalPolicyEvaluationMode)

680764 , _pDescription :: !(Maybe Text)

681765 }

682766 deriving (Eq, Show, Data, Typeable, Generic)

@@ -696,6 +780,8 @@ data Policy =

696780--

697781-- * 'pName'

698782--

783+-- * 'pGlobalPolicyEvaluationMode'

784+--

699785-- * 'pDescription'

700786policy

701787 :: Policy

@@ -706,12 +792,14 @@ policy =

706792 , _pClusterAdmissionRules = Nothing

707793 , _pUpdateTime = Nothing

708794 , _pName = Nothing

795+ , _pGlobalPolicyEvaluationMode = Nothing

709796 , _pDescription = Nothing

710797 }

711798

712799

713−-- | Required. Default admission rule for a cluster without a per-cluster

714−-- admission rule.

800+-- | Required. Default admission rule for a cluster without a per-cluster,

801+-- per- kubernetes-service-account, or per-istio-service-identity admission

802+-- rule.

715803pDefaultAdmissionRule :: Lens' Policy (Maybe AdmissionRule)

716804pDefaultAdmissionRule

717805 = lens _pDefaultAdmissionRule

@@ -750,6 +838,15 @@ pUpdateTime

750838pName :: Lens' Policy (Maybe Text)

751839pName = lens _pName (\ s a -> s{_pName = a})

752840

841+-- | Optional. Controls the evaluation of a Google-maintained global

842+-- admission policy for common system-level images. Images not covered by

843+-- the global policy will be subject to the project admission policy. This

844+-- setting has no effect when specified inside a global admission policy.

845+pGlobalPolicyEvaluationMode :: Lens' Policy (Maybe PolicyGlobalPolicyEvaluationMode)

846+pGlobalPolicyEvaluationMode

847+ = lens _pGlobalPolicyEvaluationMode

848+ (\ s a -> s{_pGlobalPolicyEvaluationMode = a})

849+

753850-- | Optional. A descriptive comment.

754851pDescription :: Lens' Policy (Maybe Text)

755852pDescription

@@ -765,6 +862,7 @@ instance FromJSON Policy where

765862 <*> (o .:? "clusterAdmissionRules")

766863 <*> (o .:? "updateTime")

767864 <*> (o .:? "name")

865+ <*> (o .:? "globalPolicyEvaluationMode")

768866 <*> (o .:? "description"))

769867

770868instance ToJSON Policy where

@@ -779,6 +877,8 @@ instance ToJSON Policy where

779877 _pClusterAdmissionRules,

780878 ("updateTime" .=) <$> _pUpdateTime,

781879 ("name" .=) <$> _pName,

880+ ("globalPolicyEvaluationMode" .=) <$>

881+ _pGlobalPolicyEvaluationMode,

782882 ("description" .=) <$> _pDescription])

783883

784884-- | Optional. Per-cluster admission rules. Cluster spec format:

@@ -940,8 +1040,8 @@ binding =

9401040-- that represents a service account. For example,

9411041-- \`my-other-app\'appspot.gserviceaccount.com\`. * \`group:{emailid}\`: An

9421042-- email address that represents a Google group. For example,

943−-- \`admins\'example.com\`. * \`domain:{domain}\`: A Google Apps domain

944−-- name that represents all the users of that domain. For example,

1043+-- \`admins\'example.com\`. * \`domain:{domain}\`: The G Suite domain

1044+-- (primary) that represents all the users of that domain. For example,

9451045-- \`google.com\` or \`example.com\`.

9461046bMembers :: Lens' Binding [Text]

9471047bMembers

@@ -954,10 +1054,9 @@ bMembers

9541054bRole :: Lens' Binding (Maybe Text)

9551055bRole = lens _bRole (\ s a -> s{_bRole = a})

9561056

957−-- | Unimplemented. The condition that is associated with this binding. NOTE:

958−-- an unsatisfied condition will not allow user access via current binding.

959−-- Different bindings, including their conditions, are examined

960−-- independently.

1057+-- | The condition that is associated with this binding. NOTE: An unsatisfied

1058+-- condition will not allow user access via current binding. Different

1059+-- bindings, including their conditions, are examined independently.

9611060bCondition :: Lens' Binding (Maybe Expr)

9621061bCondition

9631062 = lens _bCondition (\ s a -> s{_bCondition = a})

gogol-binaryauthorization/gen/Network/Google/BinaryAuthorization/Types/Sum.hs+127−2

@@ -23,10 +23,14 @@ import Network.Google.Prelude hiding (Bytes)

2323data AdmissionRuleEnforcementMode

2424 = EnforcementModeUnspecified

2525 -- ^ @ENFORCEMENT_MODE_UNSPECIFIED@

26− -- Mandatory.

26+ -- Do not use.

2727 | EnforcedBlockAndAuditLog

2828 -- ^ @ENFORCED_BLOCK_AND_AUDIT_LOG@

2929 -- Enforce the admission rule by blocking the pod creation.

30+ | DryrunAuditLogOnly

31+ -- ^ @DRYRUN_AUDIT_LOG_ONLY@

32+ -- Dryrun mode: Audit logging only. This will allow the pod creation as if

33+ -- the admission request had specified break-glass.

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

3135

3236instance Hashable AdmissionRuleEnforcementMode

@@ -35,12 +39,14 @@ instance FromHttpApiData AdmissionRuleEnforcementMode where

3539 parseQueryParam = \case

3640 "ENFORCEMENT_MODE_UNSPECIFIED" -> Right EnforcementModeUnspecified

3741 "ENFORCED_BLOCK_AND_AUDIT_LOG" -> Right EnforcedBlockAndAuditLog

42+ "DRYRUN_AUDIT_LOG_ONLY" -> Right DryrunAuditLogOnly

3843 x -> Left ("Unable to parse AdmissionRuleEnforcementMode from: " <> x)

3944

4045instance ToHttpApiData AdmissionRuleEnforcementMode where

4146 toQueryParam = \case

4247 EnforcementModeUnspecified -> "ENFORCEMENT_MODE_UNSPECIFIED"

4348 EnforcedBlockAndAuditLog -> "ENFORCED_BLOCK_AND_AUDIT_LOG"

49+ DryrunAuditLogOnly -> "DRYRUN_AUDIT_LOG_ONLY"

4450

4551instance FromJSON AdmissionRuleEnforcementMode where

4652 parseJSON = parseJSONText "AdmissionRuleEnforcementMode"

@@ -48,11 +54,130 @@ instance FromJSON AdmissionRuleEnforcementMode where

4854instance ToJSON AdmissionRuleEnforcementMode where

4955 toJSON = toJSONText

5056

57+-- | Optional. Controls the evaluation of a Google-maintained global

58+-- admission policy for common system-level images. Images not covered by

59+-- the global policy will be subject to the project admission policy. This

60+-- setting has no effect when specified inside a global admission policy.

61+data PolicyGlobalPolicyEvaluationMode

62+ = GlobalPolicyEvaluationModeUnspecified

63+ -- ^ @GLOBAL_POLICY_EVALUATION_MODE_UNSPECIFIED@

64+ -- Not specified: DISABLE is assumed.

65+ | Enable

66+ -- ^ @ENABLE@

67+ -- Enables global policy evaluation.

68+ | Disable

69+ -- ^ @DISABLE@

70+ -- Disables global policy evaluation.

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

72+

73+instance Hashable PolicyGlobalPolicyEvaluationMode

74+

75+instance FromHttpApiData PolicyGlobalPolicyEvaluationMode where

76+ parseQueryParam = \case

77+ "GLOBAL_POLICY_EVALUATION_MODE_UNSPECIFIED" -> Right GlobalPolicyEvaluationModeUnspecified

78+ "ENABLE" -> Right Enable

79+ "DISABLE" -> Right Disable

80+ x -> Left ("Unable to parse PolicyGlobalPolicyEvaluationMode from: " <> x)

81+

82+instance ToHttpApiData PolicyGlobalPolicyEvaluationMode where

83+ toQueryParam = \case

84+ GlobalPolicyEvaluationModeUnspecified -> "GLOBAL_POLICY_EVALUATION_MODE_UNSPECIFIED"

85+ Enable -> "ENABLE"

86+ Disable -> "DISABLE"

87+

88+instance FromJSON PolicyGlobalPolicyEvaluationMode where

89+ parseJSON = parseJSONText "PolicyGlobalPolicyEvaluationMode"

90+

91+instance ToJSON PolicyGlobalPolicyEvaluationMode where

92+ toJSON = toJSONText

93+

94+-- | The signature algorithm used to verify a message against a signature

95+-- using this key. These signature algorithm must match the structure and

96+-- any object identifiers encoded in \`public_key_pem\` (i.e. this

97+-- algorithm must match that of the public key).

98+data PkixPublicKeySignatureAlgorithm

99+ = SignatureAlgorithmUnspecified

100+ -- ^ @SIGNATURE_ALGORITHM_UNSPECIFIED@

101+ -- Not specified.

102+ | RsaPss2048SHA256

103+ -- ^ @RSA_PSS_2048_SHA256@

104+ -- RSASSA-PSS 2048 bit key with a SHA256 digest.

105+ | RsaPss3072SHA256

106+ -- ^ @RSA_PSS_3072_SHA256@

107+ -- RSASSA-PSS 3072 bit key with a SHA256 digest.

108+ | RsaPss4096SHA256

109+ -- ^ @RSA_PSS_4096_SHA256@

110+ -- RSASSA-PSS 4096 bit key with a SHA256 digest.

111+ | RsaPss4096SHA512

112+ -- ^ @RSA_PSS_4096_SHA512@

113+ -- RSASSA-PSS 4096 bit key with a SHA512 digest.

114+ | RsaSignPKCS12048SHA256

115+ -- ^ @RSA_SIGN_PKCS1_2048_SHA256@

116+ -- RSASSA-PKCS1-v1_5 with a 2048 bit key and a SHA256 digest.

117+ | RsaSignPKCS13072SHA256

118+ -- ^ @RSA_SIGN_PKCS1_3072_SHA256@

119+ -- RSASSA-PKCS1-v1_5 with a 3072 bit key and a SHA256 digest.

120+ | RsaSignPKCS14096SHA256

121+ -- ^ @RSA_SIGN_PKCS1_4096_SHA256@

122+ -- RSASSA-PKCS1-v1_5 with a 4096 bit key and a SHA256 digest.

123+ | RsaSignPKCS14096SHA512

124+ -- ^ @RSA_SIGN_PKCS1_4096_SHA512@

125+ -- RSASSA-PKCS1-v1_5 with a 4096 bit key and a SHA512 digest.

126+ | EcdsaP256SHA256

127+ -- ^ @ECDSA_P256_SHA256@

128+ -- ECDSA on the NIST P-256 curve with a SHA256 digest.

129+ | EcdsaP384SHA384

130+ -- ^ @ECDSA_P384_SHA384@

131+ -- ECDSA on the NIST P-384 curve with a SHA384 digest.

132+ | EcdsaP521SHA512

133+ -- ^ @ECDSA_P521_SHA512@

134+ -- ECDSA on the NIST P-521 curve with a SHA512 digest.

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

136+

137+instance Hashable PkixPublicKeySignatureAlgorithm

138+

139+instance FromHttpApiData PkixPublicKeySignatureAlgorithm where

140+ parseQueryParam = \case

141+ "SIGNATURE_ALGORITHM_UNSPECIFIED" -> Right SignatureAlgorithmUnspecified

142+ "RSA_PSS_2048_SHA256" -> Right RsaPss2048SHA256

143+ "RSA_PSS_3072_SHA256" -> Right RsaPss3072SHA256

144+ "RSA_PSS_4096_SHA256" -> Right RsaPss4096SHA256

145+ "RSA_PSS_4096_SHA512" -> Right RsaPss4096SHA512

146+ "RSA_SIGN_PKCS1_2048_SHA256" -> Right RsaSignPKCS12048SHA256

147+ "RSA_SIGN_PKCS1_3072_SHA256" -> Right RsaSignPKCS13072SHA256

148+ "RSA_SIGN_PKCS1_4096_SHA256" -> Right RsaSignPKCS14096SHA256

149+ "RSA_SIGN_PKCS1_4096_SHA512" -> Right RsaSignPKCS14096SHA512

150+ "ECDSA_P256_SHA256" -> Right EcdsaP256SHA256

151+ "ECDSA_P384_SHA384" -> Right EcdsaP384SHA384

152+ "ECDSA_P521_SHA512" -> Right EcdsaP521SHA512

153+ x -> Left ("Unable to parse PkixPublicKeySignatureAlgorithm from: " <> x)

154+

155+instance ToHttpApiData PkixPublicKeySignatureAlgorithm where

156+ toQueryParam = \case

157+ SignatureAlgorithmUnspecified -> "SIGNATURE_ALGORITHM_UNSPECIFIED"

158+ RsaPss2048SHA256 -> "RSA_PSS_2048_SHA256"

159+ RsaPss3072SHA256 -> "RSA_PSS_3072_SHA256"

160+ RsaPss4096SHA256 -> "RSA_PSS_4096_SHA256"

161+ RsaPss4096SHA512 -> "RSA_PSS_4096_SHA512"

162+ RsaSignPKCS12048SHA256 -> "RSA_SIGN_PKCS1_2048_SHA256"

163+ RsaSignPKCS13072SHA256 -> "RSA_SIGN_PKCS1_3072_SHA256"

164+ RsaSignPKCS14096SHA256 -> "RSA_SIGN_PKCS1_4096_SHA256"

165+ RsaSignPKCS14096SHA512 -> "RSA_SIGN_PKCS1_4096_SHA512"

166+ EcdsaP256SHA256 -> "ECDSA_P256_SHA256"

167+ EcdsaP384SHA384 -> "ECDSA_P384_SHA384"

168+ EcdsaP521SHA512 -> "ECDSA_P521_SHA512"

169+

170+instance FromJSON PkixPublicKeySignatureAlgorithm where

171+ parseJSON = parseJSONText "PkixPublicKeySignatureAlgorithm"

172+

173+instance ToJSON PkixPublicKeySignatureAlgorithm where

174+ toJSON = toJSONText

175+

51176-- | Required. How this admission rule will be evaluated.

52177data AdmissionRuleEvaluationMode

53178 = EvaluationModeUnspecified

54179 -- ^ @EVALUATION_MODE_UNSPECIFIED@

55− -- Mandatory.

180+ -- Do not use.

56181 | AlwaysAllow

57182 -- ^ @ALWAYS_ALLOW@

58183 -- This rule allows all all pod creations.

gogol-classroom/gen/Network/Google/Classroom.hs+47−5

@@ -26,6 +26,7 @@ module Network.Google.Classroom

2626 , classroomCoursesScope

2727 , classroomPushNotificationsScope

2828 , classroomCourseworkStudentsReadOnlyScope

29+ , classroomTopicsReadOnlyScope

2930 , classroomProFileEmailsScope

3031 , classroomProFilePhotosScope

3132 , classroomCourseworkMeScope

@@ -36,6 +37,7 @@ module Network.Google.Classroom

3637 , classroomRostersScope

3738 , classroomCoursesReadOnlyScope

3839 , classroomCourseworkStudentsScope

40+ , classroomTopicsScope

3941 , classroomAnnouncementsScope

4042 , classroomCourseworkMeReadOnlyScope

4143 , classroomStudentSubmissionsMeReadOnlyScope

@@ -151,6 +153,21 @@ module Network.Google.Classroom

151153 -- ** classroom.courses.teachers.list

152154 , module Network.Google.Resource.Classroom.Courses.Teachers.List

153155

156+ -- ** classroom.courses.topics.create

157+ , module Network.Google.Resource.Classroom.Courses.Topics.Create

158+

159+ -- ** classroom.courses.topics.delete

160+ , module Network.Google.Resource.Classroom.Courses.Topics.Delete

161+

162+ -- ** classroom.courses.topics.get

163+ , module Network.Google.Resource.Classroom.Courses.Topics.Get

164+

165+ -- ** classroom.courses.topics.list

166+ , module Network.Google.Resource.Classroom.Courses.Topics.List

167+

168+ -- ** classroom.courses.topics.patch

169+ , module Network.Google.Resource.Classroom.Courses.Topics.Patch

170+

154171 -- ** classroom.courses.update

155172 , module Network.Google.Resource.Classroom.Courses.Update

156173

@@ -222,6 +239,7 @@ module Network.Google.Classroom

222239 , cwDueTime

223240 , cwAssociatedWithDeveloper

224241 , cwUpdateTime

242+ , cwTopicId

225243 , cwMultipleChoiceQuestion

226244 , cwId

227245 , cwSubmissionModificationMode

@@ -326,6 +344,12 @@ module Network.Google.Classroom

326344 , globalPermission

327345 , gpPermission

328346

347+ -- ** ListTopicResponse

348+ , ListTopicResponse

349+ , listTopicResponse

350+ , ltrNextPageToken

351+ , ltrTopic

352+

329353 -- ** Link

330354 , Link

331355 , link

@@ -431,6 +455,14 @@ module Network.Google.Classroom

431455 , aYouTubeVideo

432456 , aForm

433457

458+ -- ** Topic

459+ , Topic

460+ , topic

461+ , tCourseId

462+ , tUpdateTime

463+ , tTopicId

464+ , tName

465+

434466 -- ** Announcement

435467 , Announcement

436468 , announcement

@@ -492,9 +524,9 @@ module Network.Google.Classroom

492524 -- ** Teacher

493525 , Teacher

494526 , teacher

495− , tCourseId

496− , tProFile

497− , tUserId

527+ , teaCourseId

528+ , teaProFile

529+ , teaUserId

498530

499531 -- ** CourseMaterialSet

500532 , CourseMaterialSet

@@ -657,8 +689,8 @@ module Network.Google.Classroom

657689 -- ** ListTeachersResponse

658690 , ListTeachersResponse

659691 , listTeachersResponse

660− , ltrNextPageToken

661− , ltrTeachers

692+ , lNextPageToken

693+ , lTeachers

662694

663695 -- ** Student

664696 , Student

@@ -717,6 +749,11 @@ import Network.Google.Resource.Classroom.Courses.Teachers.Create

717749import Network.Google.Resource.Classroom.Courses.Teachers.Delete

718750import Network.Google.Resource.Classroom.Courses.Teachers.Get

719751import Network.Google.Resource.Classroom.Courses.Teachers.List

752+import Network.Google.Resource.Classroom.Courses.Topics.Create

753+import Network.Google.Resource.Classroom.Courses.Topics.Delete

754+import Network.Google.Resource.Classroom.Courses.Topics.Get

755+import Network.Google.Resource.Classroom.Courses.Topics.List

756+import Network.Google.Resource.Classroom.Courses.Topics.Patch

720757import Network.Google.Resource.Classroom.Courses.Update

721758import Network.Google.Resource.Classroom.Invitations.Accept

722759import Network.Google.Resource.Classroom.Invitations.Create

@@ -772,6 +809,11 @@ type ClassroomAPI =

772809 :<|> CoursesAnnouncementsCreateResource

773810 :<|> CoursesAnnouncementsModifyAssigneesResource

774811 :<|> CoursesAnnouncementsDeleteResource

812+ :<|> CoursesTopicsListResource

813+ :<|> CoursesTopicsPatchResource

814+ :<|> CoursesTopicsGetResource

815+ :<|> CoursesTopicsCreateResource

816+ :<|> CoursesTopicsDeleteResource

775817 :<|> CoursesAliasesListResource

776818 :<|> CoursesAliasesCreateResource

777819 :<|> CoursesAliasesDeleteResource

gogol-classroom/gen/Network/Google/Classroom/Types.hs+30−5

@@ -24,6 +24,7 @@ module Network.Google.Classroom.Types

2424 , classroomCoursesScope

2525 , classroomPushNotificationsScope

2626 , classroomCourseworkStudentsReadOnlyScope

27+ , classroomTopicsReadOnlyScope

2728 , classroomProFileEmailsScope

2829 , classroomProFilePhotosScope

2930 , classroomCourseworkMeScope

@@ -34,6 +35,7 @@ module Network.Google.Classroom.Types

3435 , classroomRostersScope

3536 , classroomCoursesReadOnlyScope

3637 , classroomCourseworkStudentsScope

38+ , classroomTopicsScope

3739 , classroomAnnouncementsScope

3840 , classroomCourseworkMeReadOnlyScope

3941 , classroomStudentSubmissionsMeReadOnlyScope

@@ -60,6 +62,7 @@ module Network.Google.Classroom.Types

6062 , cwDueTime

6163 , cwAssociatedWithDeveloper

6264 , cwUpdateTime

65+ , cwTopicId

6366 , cwMultipleChoiceQuestion

6467 , cwId

6568 , cwSubmissionModificationMode

@@ -164,6 +167,12 @@ module Network.Google.Classroom.Types

164167 , globalPermission

165168 , gpPermission

166169

170+ -- * ListTopicResponse

171+ , ListTopicResponse

172+ , listTopicResponse

173+ , ltrNextPageToken

174+ , ltrTopic

175+

167176 -- * Link

168177 , Link

169178 , link

@@ -269,6 +278,14 @@ module Network.Google.Classroom.Types

269278 , aYouTubeVideo

270279 , aForm

271280

281+ -- * Topic

282+ , Topic

283+ , topic

284+ , tCourseId

285+ , tUpdateTime

286+ , tTopicId

287+ , tName

288+

272289 -- * Announcement

273290 , Announcement

274291 , announcement

@@ -330,9 +347,9 @@ module Network.Google.Classroom.Types

330347 -- * Teacher

331348 , Teacher

332349 , teacher

333− , tCourseId

334− , tProFile

335− , tUserId

350+ , teaCourseId

351+ , teaProFile

352+ , teaUserId

336353

337354 -- * CourseMaterialSet

338355 , CourseMaterialSet

@@ -495,8 +512,8 @@ module Network.Google.Classroom.Types

495512 -- * ListTeachersResponse

496513 , ListTeachersResponse

497514 , listTeachersResponse

498− , ltrNextPageToken

499− , ltrTeachers

515+ , lNextPageToken

516+ , lTeachers

500517

501518 -- * Student

502519 , Student

@@ -545,6 +562,10 @@ classroomPushNotificationsScope = Proxy

545562classroomCourseworkStudentsReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/classroom.coursework.students.readonly"]

546563classroomCourseworkStudentsReadOnlyScope = Proxy

547564

565+-- | View topics in Google Classroom

566+classroomTopicsReadOnlyScope :: Proxy '["https://www.googleapis.com/auth/classroom.topics.readonly"]

567+classroomTopicsReadOnlyScope = Proxy

568+

548569-- | View the email addresses of people in your classes

549570classroomProFileEmailsScope :: Proxy '["https://www.googleapis.com/auth/classroom.profile.emails"]

550571classroomProFileEmailsScope = Proxy

@@ -588,6 +609,10 @@ classroomCoursesReadOnlyScope = Proxy

588609classroomCourseworkStudentsScope :: Proxy '["https://www.googleapis.com/auth/classroom.coursework.students"]

589610classroomCourseworkStudentsScope = Proxy

590611

612+-- | See, create, and edit topics in Google Classroom

613+classroomTopicsScope :: Proxy '["https://www.googleapis.com/auth/classroom.topics"]

614+classroomTopicsScope = Proxy

615+

591616-- | View and manage announcements in Google Classroom

592617classroomAnnouncementsScope :: Proxy '["https://www.googleapis.com/auth/classroom.announcements"]

593618classroomAnnouncementsScope = Proxy

gogol-classroom/gen/Network/Google/Classroom/Types/Product.hs+174−31

@@ -91,6 +91,7 @@ data CourseWork =

9191 , _cwDueTime :: !(Maybe TimeOfDay')

9292 , _cwAssociatedWithDeveloper :: !(Maybe Bool)

9393 , _cwUpdateTime :: !(Maybe DateTime')

94+ , _cwTopicId :: !(Maybe Text)

9495 , _cwMultipleChoiceQuestion :: !(Maybe MultipleChoiceQuestion)

9596 , _cwId :: !(Maybe Text)

9697 , _cwSubmissionModificationMode :: !(Maybe CourseWorkSubmissionModificationMode)

@@ -132,6 +133,8 @@ data CourseWork =

132133--

133134-- * 'cwUpdateTime'

134135--

136+-- * 'cwTopicId'

137+--

135138-- * 'cwMultipleChoiceQuestion'

136139--

137140-- * 'cwId'

@@ -165,6 +168,7 @@ courseWork =

165168 , _cwDueTime = Nothing

166169 , _cwAssociatedWithDeveloper = Nothing

167170 , _cwUpdateTime = Nothing

171+ , _cwTopicId = Nothing

168172 , _cwMultipleChoiceQuestion = Nothing

169173 , _cwId = Nothing

170174 , _cwSubmissionModificationMode = Nothing

@@ -259,6 +263,12 @@ cwUpdateTime

259263 = lens _cwUpdateTime (\ s a -> s{_cwUpdateTime = a})

260264 . mapping _DateTime

261265

266+-- | Identifier for the topic that this coursework is associated with. Must

267+-- match an existing topic in the course.

268+cwTopicId :: Lens' CourseWork (Maybe Text)

269+cwTopicId

270+ = lens _cwTopicId (\ s a -> s{_cwTopicId = a})

271+

262272-- | Multiple choice question details. For read operations, this field is

263273-- populated only when \`work_type\` is \`MULTIPLE_CHOICE_QUESTION\`. For

264274-- write operations, this field must be specified when creating course work

@@ -334,6 +344,7 @@ instance FromJSON CourseWork where

334344 <*> (o .:? "dueTime")

335345 <*> (o .:? "associatedWithDeveloper")

336346 <*> (o .:? "updateTime")

347+ <*> (o .:? "topicId")

337348 <*> (o .:? "multipleChoiceQuestion")

338349 <*> (o .:? "id")

339350 <*> (o .:? "submissionModificationMode")

@@ -362,6 +373,7 @@ instance ToJSON CourseWork where

362373 ("associatedWithDeveloper" .=) <$>

363374 _cwAssociatedWithDeveloper,

364375 ("updateTime" .=) <$> _cwUpdateTime,

376+ ("topicId" .=) <$> _cwTopicId,

365377 ("multipleChoiceQuestion" .=) <$>

366378 _cwMultipleChoiceQuestion,

367379 ("id" .=) <$> _cwId,

@@ -1020,6 +1032,59 @@ instance ToJSON GlobalPermission where

10201032 = object

10211033 (catMaybes [("permission" .=) <$> _gpPermission])

10221034

1035+-- | Response when listing topics.

1036+--

1037+-- /See:/ 'listTopicResponse' smart constructor.

1038+data ListTopicResponse =

1039+ ListTopicResponse'

1040+ { _ltrNextPageToken :: !(Maybe Text)

1041+ , _ltrTopic :: !(Maybe [Topic])

1042+ }

1043+ deriving (Eq, Show, Data, Typeable, Generic)

1044+

1045+

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

1047+--

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

1049+--

1050+-- * 'ltrNextPageToken'

1051+--

1052+-- * 'ltrTopic'

1053+listTopicResponse

1054+ :: ListTopicResponse

1055+listTopicResponse =

1056+ ListTopicResponse' {_ltrNextPageToken = Nothing, _ltrTopic = Nothing}

1057+

1058+

1059+-- | Token identifying the next page of results to return. If empty, no

1060+-- further results are available.

1061+ltrNextPageToken :: Lens' ListTopicResponse (Maybe Text)

1062+ltrNextPageToken

1063+ = lens _ltrNextPageToken

1064+ (\ s a -> s{_ltrNextPageToken = a})

1065+

1066+-- | Topic items that match the request.

1067+ltrTopic :: Lens' ListTopicResponse [Topic]

1068+ltrTopic

1069+ = lens _ltrTopic (\ s a -> s{_ltrTopic = a}) .

1070+ _Default

1071+ . _Coerce

1072+

1073+instance FromJSON ListTopicResponse where

1074+ parseJSON

1075+ = withObject "ListTopicResponse"

1076+ (\ o ->

1077+ ListTopicResponse' <$>

1078+ (o .:? "nextPageToken") <*>

1079+ (o .:? "topic" .!= mempty))

1080+

1081+instance ToJSON ListTopicResponse where

1082+ toJSON ListTopicResponse'{..}

1083+ = object

1084+ (catMaybes

1085+ [("nextPageToken" .=) <$> _ltrNextPageToken,

1086+ ("topic" .=) <$> _ltrTopic])

1087+

10231088-- | URL item.

10241089--

10251090-- /See:/ 'link' smart constructor.

@@ -1808,6 +1873,82 @@ instance ToJSON Attachment where

18081873 ("youTubeVideo" .=) <$> _aYouTubeVideo,

18091874 ("form" .=) <$> _aForm])

18101875

1876+-- | Topic created by a teacher for the course

1877+--

1878+-- /See:/ 'topic' smart constructor.

1879+data Topic =

1880+ Topic'

1881+ { _tCourseId :: !(Maybe Text)

1882+ , _tUpdateTime :: !(Maybe DateTime')

1883+ , _tTopicId :: !(Maybe Text)

1884+ , _tName :: !(Maybe Text)

1885+ }

1886+ deriving (Eq, Show, Data, Typeable, Generic)

1887+

1888+

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

1890+--

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

1892+--

1893+-- * 'tCourseId'

1894+--

1895+-- * 'tUpdateTime'

1896+--

1897+-- * 'tTopicId'

1898+--

1899+-- * 'tName'

1900+topic

1901+ :: Topic

1902+topic =

1903+ Topic'

1904+ { _tCourseId = Nothing

1905+ , _tUpdateTime = Nothing

1906+ , _tTopicId = Nothing

1907+ , _tName = Nothing

1908+ }

1909+

1910+

1911+-- | Identifier of the course. Read-only.

1912+tCourseId :: Lens' Topic (Maybe Text)

1913+tCourseId

1914+ = lens _tCourseId (\ s a -> s{_tCourseId = a})

1915+

1916+-- | The time the topic was last updated by the system. Read-only.

1917+tUpdateTime :: Lens' Topic (Maybe UTCTime)

1918+tUpdateTime

1919+ = lens _tUpdateTime (\ s a -> s{_tUpdateTime = a}) .

1920+ mapping _DateTime

1921+

1922+-- | Unique identifier for the topic. Read-only.

1923+tTopicId :: Lens' Topic (Maybe Text)

1924+tTopicId = lens _tTopicId (\ s a -> s{_tTopicId = a})

1925+

1926+-- | The name of the topic, generated by the user. Leading and trailing

1927+-- whitespaces, if any, will be trimmed. Also, multiple consecutive

1928+-- whitespaces will be collapsed into one inside the name. The result must

1929+-- be a non-empty string. Topic names are case sensitive, and must be no

1930+-- longer than 100 characters.

1931+tName :: Lens' Topic (Maybe Text)

1932+tName = lens _tName (\ s a -> s{_tName = a})

1933+

1934+instance FromJSON Topic where

1935+ parseJSON

1936+ = withObject "Topic"

1937+ (\ o ->

1938+ Topic' <$>

1939+ (o .:? "courseId") <*> (o .:? "updateTime") <*>

1940+ (o .:? "topicId")

1941+ <*> (o .:? "name"))

1942+

1943+instance ToJSON Topic where

1944+ toJSON Topic'{..}

1945+ = object

1946+ (catMaybes

1947+ [("courseId" .=) <$> _tCourseId,

1948+ ("updateTime" .=) <$> _tUpdateTime,

1949+ ("topicId" .=) <$> _tTopicId,

1950+ ("name" .=) <$> _tName])

1951+

18111952-- | Announcement created by a teacher for students of the course

18121953--

18131954-- /See:/ 'announcement' smart constructor.

@@ -2434,9 +2575,9 @@ instance ToJSON YouTubeVideo where

24342575-- /See:/ 'teacher' smart constructor.

24352576data Teacher =

24362577 Teacher'

2437− { _tCourseId :: !(Maybe Text)

2438− , _tProFile :: !(Maybe UserProFile)

2439− , _tUserId :: !(Maybe Text)

2578+ { _teaCourseId :: !(Maybe Text)

2579+ , _teaProFile :: !(Maybe UserProFile)

2580+ , _teaUserId :: !(Maybe Text)

24402581 }

24412582 deriving (Eq, Show, Data, Typeable, Generic)

24422583

@@ -2445,32 +2586,34 @@ data Teacher =

24452586--

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

24472588--

2448−-- * 'tCourseId'

2589+-- * 'teaCourseId'

24492590--

2450−-- * 'tProFile'

2591+-- * 'teaProFile'

24512592--

2452−-- * 'tUserId'

2593+-- * 'teaUserId'

24532594teacher

24542595 :: Teacher

24552596teacher =

2456− Teacher' {_tCourseId = Nothing, _tProFile = Nothing, _tUserId = Nothing}

2597+ Teacher' {_teaCourseId = Nothing, _teaProFile = Nothing, _teaUserId = Nothing}

24572598

24582599

24592600-- | Identifier of the course. Read-only.

2460−tCourseId :: Lens' Teacher (Maybe Text)

2461−tCourseId

2462− = lens _tCourseId (\ s a -> s{_tCourseId = a})

2601+teaCourseId :: Lens' Teacher (Maybe Text)

2602+teaCourseId

2603+ = lens _teaCourseId (\ s a -> s{_teaCourseId = a})

24632604

24642605-- | Global user information for the teacher. Read-only.

2465−tProFile :: Lens' Teacher (Maybe UserProFile)

2466−tProFile = lens _tProFile (\ s a -> s{_tProFile = a})

2606+teaProFile :: Lens' Teacher (Maybe UserProFile)

2607+teaProFile

2608+ = lens _teaProFile (\ s a -> s{_teaProFile = a})

24672609

24682610-- | Identifier of the user. When specified as a parameter of a request, this

24692611-- identifier can be one of the following: * the numeric identifier for the

24702612-- user * the email address of the user * the string literal \`\"me\"\`,

24712613-- indicating the requesting user

2472−tUserId :: Lens' Teacher (Maybe Text)

2473−tUserId = lens _tUserId (\ s a -> s{_tUserId = a})

2614+teaUserId :: Lens' Teacher (Maybe Text)

2615+teaUserId

2616+ = lens _teaUserId (\ s a -> s{_teaUserId = a})

24742617

24752618instance FromJSON Teacher where

24762619 parseJSON

@@ -2484,9 +2627,9 @@ instance ToJSON Teacher where

24842627 toJSON Teacher'{..}

24852628 = object

24862629 (catMaybes

2487− [("courseId" .=) <$> _tCourseId,

2488− ("profile" .=) <$> _tProFile,

2489− ("userId" .=) <$> _tUserId])

2630+ [("courseId" .=) <$> _teaCourseId,

2631+ ("profile" .=) <$> _teaProFile,

2632+ ("userId" .=) <$> _teaUserId])

24902633

24912634-- | A set of materials that appears on the \"About\" page of the course.

24922635-- These materials might include a syllabus, schedule, or other background

@@ -3797,8 +3940,8 @@ instance ToJSON Form where

37973940-- /See:/ 'listTeachersResponse' smart constructor.

37983941data ListTeachersResponse =

37993942 ListTeachersResponse'

3800− { _ltrNextPageToken :: !(Maybe Text)

3801− , _ltrTeachers :: !(Maybe [Teacher])

3943+ { _lNextPageToken :: !(Maybe Text)

3944+ , _lTeachers :: !(Maybe [Teacher])

38023945 }

38033946 deriving (Eq, Show, Data, Typeable, Generic)

38043947

@@ -3807,26 +3950,26 @@ data ListTeachersResponse =

38073950--

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

38093952--

3810−-- * 'ltrNextPageToken'

3953+-- * 'lNextPageToken'

38113954--

3812−-- * 'ltrTeachers'

3955+-- * 'lTeachers'

38133956listTeachersResponse

38143957 :: ListTeachersResponse

38153958listTeachersResponse =

3816− ListTeachersResponse' {_ltrNextPageToken = Nothing, _ltrTeachers = Nothing}

3959+ ListTeachersResponse' {_lNextPageToken = Nothing, _lTeachers = Nothing}

38173960

38183961

38193962-- | Token identifying the next page of results to return. If empty, no

38203963-- further results are available.

3821−ltrNextPageToken :: Lens' ListTeachersResponse (Maybe Text)

3822−ltrNextPageToken

3823− = lens _ltrNextPageToken

3824− (\ s a -> s{_ltrNextPageToken = a})

3964+lNextPageToken :: Lens' ListTeachersResponse (Maybe Text)

3965+lNextPageToken

3966+ = lens _lNextPageToken

3967+ (\ s a -> s{_lNextPageToken = a})

38253968

38263969-- | Teachers who match the list request.

3827−ltrTeachers :: Lens' ListTeachersResponse [Teacher]

3828−ltrTeachers

3829− = lens _ltrTeachers (\ s a -> s{_ltrTeachers = a}) .

3970+lTeachers :: Lens' ListTeachersResponse [Teacher]

3971+lTeachers

3972+ = lens _lTeachers (\ s a -> s{_lTeachers = a}) .

38303973 _Default

38313974 . _Coerce

38323975

@@ -3842,8 +3985,8 @@ instance ToJSON ListTeachersResponse where

38423985 toJSON ListTeachersResponse'{..}

38433986 = object

38443987 (catMaybes

3845− [("nextPageToken" .=) <$> _ltrNextPageToken,

3846− ("teachers" .=) <$> _ltrTeachers])

3988+ [("nextPageToken" .=) <$> _lNextPageToken,

3989+ ("teachers" .=) <$> _lTeachers])

38473990

38483991-- | Student in a course.

38493992--

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Teachers/Delete.hs+60−59

@@ -38,13 +38,13 @@ module Network.Google.Resource.Classroom.Courses.Teachers.Delete

3838 , CoursesTeachersDelete

3939

4040 -- * Request Lenses

41− , ctdXgafv

42− , ctdUploadProtocol

43− , ctdCourseId

44− , ctdAccessToken

45− , ctdUploadType

46− , ctdUserId

47− , ctdCallback

41+ , ctdtXgafv

42+ , ctdtUploadProtocol

43+ , ctdtCourseId

44+ , ctdtAccessToken

45+ , ctdtUploadType

46+ , ctdtUserId

47+ , ctdtCallback

4848 ) where

4949

5050import Network.Google.Classroom.Types

@@ -75,13 +75,13 @@ type CoursesTeachersDeleteResource =

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

7676data CoursesTeachersDelete =

7777 CoursesTeachersDelete'

78− { _ctdXgafv :: !(Maybe Xgafv)

79− , _ctdUploadProtocol :: !(Maybe Text)

80− , _ctdCourseId :: !Text

81− , _ctdAccessToken :: !(Maybe Text)

82− , _ctdUploadType :: !(Maybe Text)

83− , _ctdUserId :: !Text

84− , _ctdCallback :: !(Maybe Text)

78+ { _ctdtXgafv :: !(Maybe Xgafv)

79+ , _ctdtUploadProtocol :: !(Maybe Text)

80+ , _ctdtCourseId :: !Text

81+ , _ctdtAccessToken :: !(Maybe Text)

82+ , _ctdtUploadType :: !(Maybe Text)

83+ , _ctdtUserId :: !Text

84+ , _ctdtCallback :: !(Maybe Text)

8585 }

8686 deriving (Eq, Show, Data, Typeable, Generic)

8787

@@ -90,85 +90,86 @@ data CoursesTeachersDelete =

9090--

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

9292--

93−-- * 'ctdXgafv'

93+-- * 'ctdtXgafv'

9494--

95−-- * 'ctdUploadProtocol'

95+-- * 'ctdtUploadProtocol'

9696--

97−-- * 'ctdCourseId'

97+-- * 'ctdtCourseId'

9898--

99−-- * 'ctdAccessToken'

99+-- * 'ctdtAccessToken'

100100--

101−-- * 'ctdUploadType'

101+-- * 'ctdtUploadType'

102102--

103−-- * 'ctdUserId'

103+-- * 'ctdtUserId'

104104--

105−-- * 'ctdCallback'

105+-- * 'ctdtCallback'

106106coursesTeachersDelete

107− :: Text -- ^ 'ctdCourseId'

108− -> Text -- ^ 'ctdUserId'

107+ :: Text -- ^ 'ctdtCourseId'

108+ -> Text -- ^ 'ctdtUserId'

109109 -> CoursesTeachersDelete

110−coursesTeachersDelete pCtdCourseId_ pCtdUserId_ =

110+coursesTeachersDelete pCtdtCourseId_ pCtdtUserId_ =

111111 CoursesTeachersDelete'

112− { _ctdXgafv = Nothing

113− , _ctdUploadProtocol = Nothing

114− , _ctdCourseId = pCtdCourseId_

115− , _ctdAccessToken = Nothing

116− , _ctdUploadType = Nothing

117− , _ctdUserId = pCtdUserId_

118− , _ctdCallback = Nothing

112+ { _ctdtXgafv = Nothing

113+ , _ctdtUploadProtocol = Nothing

114+ , _ctdtCourseId = pCtdtCourseId_

115+ , _ctdtAccessToken = Nothing

116+ , _ctdtUploadType = Nothing

117+ , _ctdtUserId = pCtdtUserId_

118+ , _ctdtCallback = Nothing

119119 }

120120

121121

122122-- | V1 error format.

123−ctdXgafv :: Lens' CoursesTeachersDelete (Maybe Xgafv)

124−ctdXgafv = lens _ctdXgafv (\ s a -> s{_ctdXgafv = a})

123+ctdtXgafv :: Lens' CoursesTeachersDelete (Maybe Xgafv)

124+ctdtXgafv

125+ = lens _ctdtXgafv (\ s a -> s{_ctdtXgafv = a})

125126

126127-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

127−ctdUploadProtocol :: Lens' CoursesTeachersDelete (Maybe Text)

128−ctdUploadProtocol

129− = lens _ctdUploadProtocol

130− (\ s a -> s{_ctdUploadProtocol = a})

128+ctdtUploadProtocol :: Lens' CoursesTeachersDelete (Maybe Text)

129+ctdtUploadProtocol

130+ = lens _ctdtUploadProtocol

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

131132

132133-- | Identifier of the course. This identifier can be either the

133134-- Classroom-assigned identifier or an alias.

134−ctdCourseId :: Lens' CoursesTeachersDelete Text

135−ctdCourseId

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

135+ctdtCourseId :: Lens' CoursesTeachersDelete Text

136+ctdtCourseId

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

137138

138139-- | OAuth access token.

139−ctdAccessToken :: Lens' CoursesTeachersDelete (Maybe Text)

140−ctdAccessToken

141− = lens _ctdAccessToken

142− (\ s a -> s{_ctdAccessToken = a})

140+ctdtAccessToken :: Lens' CoursesTeachersDelete (Maybe Text)

141+ctdtAccessToken

142+ = lens _ctdtAccessToken

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

143144

144145-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

145−ctdUploadType :: Lens' CoursesTeachersDelete (Maybe Text)

146−ctdUploadType

147− = lens _ctdUploadType

148− (\ s a -> s{_ctdUploadType = a})

146+ctdtUploadType :: Lens' CoursesTeachersDelete (Maybe Text)

147+ctdtUploadType

148+ = lens _ctdtUploadType

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

149150

150151-- | Identifier of the teacher to delete. The identifier can be one of the

151152-- following: * the numeric identifier for the user * the email address of

152153-- the user * the string literal \`\"me\"\`, indicating the requesting user

153−ctdUserId :: Lens' CoursesTeachersDelete Text

154−ctdUserId

155− = lens _ctdUserId (\ s a -> s{_ctdUserId = a})

154+ctdtUserId :: Lens' CoursesTeachersDelete Text

155+ctdtUserId

156+ = lens _ctdtUserId (\ s a -> s{_ctdtUserId = a})

156157

157158-- | JSONP

158−ctdCallback :: Lens' CoursesTeachersDelete (Maybe Text)

159−ctdCallback

160− = lens _ctdCallback (\ s a -> s{_ctdCallback = a})

159+ctdtCallback :: Lens' CoursesTeachersDelete (Maybe Text)

160+ctdtCallback

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

161162

162163instance GoogleRequest CoursesTeachersDelete where

163164 type Rs CoursesTeachersDelete = Empty

164165 type Scopes CoursesTeachersDelete =

165166 '["https://www.googleapis.com/auth/classroom.rosters"]

166167 requestClient CoursesTeachersDelete'{..}

167− = go _ctdCourseId _ctdUserId _ctdXgafv

168− _ctdUploadProtocol

169− _ctdAccessToken

170− _ctdUploadType

171− _ctdCallback

168+ = go _ctdtCourseId _ctdtUserId _ctdtXgafv

169+ _ctdtUploadProtocol

170+ _ctdtAccessToken

171+ _ctdtUploadType

172+ _ctdtCallback

172173 (Just AltJSON)

173174 classroomService

174175 where go

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Teachers/Get.hs+60−59

@@ -37,13 +37,13 @@ module Network.Google.Resource.Classroom.Courses.Teachers.Get

3737 , CoursesTeachersGet

3838

3939 -- * Request Lenses

40− , ctgXgafv

41− , ctgUploadProtocol

42− , ctgCourseId

43− , ctgAccessToken

44− , ctgUploadType

45− , ctgUserId

46− , ctgCallback

40+ , ctgtXgafv

41+ , ctgtUploadProtocol

42+ , ctgtCourseId

43+ , ctgtAccessToken

44+ , ctgtUploadType

45+ , ctgtUserId

46+ , ctgtCallback

4747 ) where

4848

4949import Network.Google.Classroom.Types

@@ -73,13 +73,13 @@ type CoursesTeachersGetResource =

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

7474data CoursesTeachersGet =

7575 CoursesTeachersGet'

76− { _ctgXgafv :: !(Maybe Xgafv)

77− , _ctgUploadProtocol :: !(Maybe Text)

78− , _ctgCourseId :: !Text

79− , _ctgAccessToken :: !(Maybe Text)

80− , _ctgUploadType :: !(Maybe Text)

81− , _ctgUserId :: !Text

82− , _ctgCallback :: !(Maybe Text)

76+ { _ctgtXgafv :: !(Maybe Xgafv)

77+ , _ctgtUploadProtocol :: !(Maybe Text)

78+ , _ctgtCourseId :: !Text

79+ , _ctgtAccessToken :: !(Maybe Text)

80+ , _ctgtUploadType :: !(Maybe Text)

81+ , _ctgtUserId :: !Text

82+ , _ctgtCallback :: !(Maybe Text)

8383 }

8484 deriving (Eq, Show, Data, Typeable, Generic)

8585

@@ -88,74 +88,75 @@ data CoursesTeachersGet =

8888--

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

9090--

91−-- * 'ctgXgafv'

91+-- * 'ctgtXgafv'

9292--

93−-- * 'ctgUploadProtocol'

93+-- * 'ctgtUploadProtocol'

9494--

95−-- * 'ctgCourseId'

95+-- * 'ctgtCourseId'

9696--

97−-- * 'ctgAccessToken'

97+-- * 'ctgtAccessToken'

9898--

99−-- * 'ctgUploadType'

99+-- * 'ctgtUploadType'

100100--

101−-- * 'ctgUserId'

101+-- * 'ctgtUserId'

102102--

103−-- * 'ctgCallback'

103+-- * 'ctgtCallback'

104104coursesTeachersGet

105− :: Text -- ^ 'ctgCourseId'

106− -> Text -- ^ 'ctgUserId'

105+ :: Text -- ^ 'ctgtCourseId'

106+ -> Text -- ^ 'ctgtUserId'

107107 -> CoursesTeachersGet

108−coursesTeachersGet pCtgCourseId_ pCtgUserId_ =

108+coursesTeachersGet pCtgtCourseId_ pCtgtUserId_ =

109109 CoursesTeachersGet'

110− { _ctgXgafv = Nothing

111− , _ctgUploadProtocol = Nothing

112− , _ctgCourseId = pCtgCourseId_

113− , _ctgAccessToken = Nothing

114− , _ctgUploadType = Nothing

115− , _ctgUserId = pCtgUserId_

116− , _ctgCallback = Nothing

110+ { _ctgtXgafv = Nothing

111+ , _ctgtUploadProtocol = Nothing

112+ , _ctgtCourseId = pCtgtCourseId_

113+ , _ctgtAccessToken = Nothing

114+ , _ctgtUploadType = Nothing

115+ , _ctgtUserId = pCtgtUserId_

116+ , _ctgtCallback = Nothing

117117 }

118118

119119

120120-- | V1 error format.

121−ctgXgafv :: Lens' CoursesTeachersGet (Maybe Xgafv)

122−ctgXgafv = lens _ctgXgafv (\ s a -> s{_ctgXgafv = a})

121+ctgtXgafv :: Lens' CoursesTeachersGet (Maybe Xgafv)

122+ctgtXgafv

123+ = lens _ctgtXgafv (\ s a -> s{_ctgtXgafv = a})

123124

124125-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

125−ctgUploadProtocol :: Lens' CoursesTeachersGet (Maybe Text)

126−ctgUploadProtocol

127− = lens _ctgUploadProtocol

128− (\ s a -> s{_ctgUploadProtocol = a})

126+ctgtUploadProtocol :: Lens' CoursesTeachersGet (Maybe Text)

127+ctgtUploadProtocol

128+ = lens _ctgtUploadProtocol

129+ (\ s a -> s{_ctgtUploadProtocol = a})

129130

130131-- | Identifier of the course. This identifier can be either the

131132-- Classroom-assigned identifier or an alias.

132−ctgCourseId :: Lens' CoursesTeachersGet Text

133−ctgCourseId

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

133+ctgtCourseId :: Lens' CoursesTeachersGet Text

134+ctgtCourseId

135+ = lens _ctgtCourseId (\ s a -> s{_ctgtCourseId = a})

135136

136137-- | OAuth access token.

137−ctgAccessToken :: Lens' CoursesTeachersGet (Maybe Text)

138−ctgAccessToken

139− = lens _ctgAccessToken

140− (\ s a -> s{_ctgAccessToken = a})

138+ctgtAccessToken :: Lens' CoursesTeachersGet (Maybe Text)

139+ctgtAccessToken

140+ = lens _ctgtAccessToken

141+ (\ s a -> s{_ctgtAccessToken = a})

141142

142143-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

143−ctgUploadType :: Lens' CoursesTeachersGet (Maybe Text)

144−ctgUploadType

145− = lens _ctgUploadType

146− (\ s a -> s{_ctgUploadType = a})

144+ctgtUploadType :: Lens' CoursesTeachersGet (Maybe Text)

145+ctgtUploadType

146+ = lens _ctgtUploadType

147+ (\ s a -> s{_ctgtUploadType = a})

147148

148149-- | Identifier of the teacher to return. The identifier can be one of the

149150-- following: * the numeric identifier for the user * the email address of

150151-- the user * the string literal \`\"me\"\`, indicating the requesting user

151−ctgUserId :: Lens' CoursesTeachersGet Text

152−ctgUserId

153− = lens _ctgUserId (\ s a -> s{_ctgUserId = a})

152+ctgtUserId :: Lens' CoursesTeachersGet Text

153+ctgtUserId

154+ = lens _ctgtUserId (\ s a -> s{_ctgtUserId = a})

154155

155156-- | JSONP

156−ctgCallback :: Lens' CoursesTeachersGet (Maybe Text)

157−ctgCallback

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

157+ctgtCallback :: Lens' CoursesTeachersGet (Maybe Text)

158+ctgtCallback

159+ = lens _ctgtCallback (\ s a -> s{_ctgtCallback = a})

159160

160161instance GoogleRequest CoursesTeachersGet where

161162 type Rs CoursesTeachersGet = Teacher

@@ -165,11 +166,11 @@ instance GoogleRequest CoursesTeachersGet where

165166 "https://www.googleapis.com/auth/classroom.rosters",

166167 "https://www.googleapis.com/auth/classroom.rosters.readonly"]

167168 requestClient CoursesTeachersGet'{..}

168− = go _ctgCourseId _ctgUserId _ctgXgafv

169− _ctgUploadProtocol

170− _ctgAccessToken

171− _ctgUploadType

172− _ctgCallback

169+ = go _ctgtCourseId _ctgtUserId _ctgtXgafv

170+ _ctgtUploadProtocol

171+ _ctgtAccessToken

172+ _ctgtUploadType

173+ _ctgtCallback

173174 (Just AltJSON)

174175 classroomService

175176 where go

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Teachers/List.hs+69−67

@@ -36,14 +36,14 @@ module Network.Google.Resource.Classroom.Courses.Teachers.List

3636 , CoursesTeachersList

3737

3838 -- * Request Lenses

39− , ctlXgafv

40− , ctlUploadProtocol

41− , ctlCourseId

42− , ctlAccessToken

43− , ctlUploadType

44− , ctlPageToken

45− , ctlPageSize

46− , ctlCallback

39+ , ctltXgafv

40+ , ctltUploadProtocol

41+ , ctltCourseId

42+ , ctltAccessToken

43+ , ctltUploadType

44+ , ctltPageToken

45+ , ctltPageSize

46+ , ctltCallback

4747 ) where

4848

4949import Network.Google.Classroom.Types

@@ -74,14 +74,14 @@ type CoursesTeachersListResource =

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

7575data CoursesTeachersList =

7676 CoursesTeachersList'

77− { _ctlXgafv :: !(Maybe Xgafv)

78− , _ctlUploadProtocol :: !(Maybe Text)

79− , _ctlCourseId :: !Text

80− , _ctlAccessToken :: !(Maybe Text)

81− , _ctlUploadType :: !(Maybe Text)

82− , _ctlPageToken :: !(Maybe Text)

83− , _ctlPageSize :: !(Maybe (Textual Int32))

84− , _ctlCallback :: !(Maybe Text)

77+ { _ctltXgafv :: !(Maybe Xgafv)

78+ , _ctltUploadProtocol :: !(Maybe Text)

79+ , _ctltCourseId :: !Text

80+ , _ctltAccessToken :: !(Maybe Text)

81+ , _ctltUploadType :: !(Maybe Text)

82+ , _ctltPageToken :: !(Maybe Text)

83+ , _ctltPageSize :: !(Maybe (Textual Int32))

84+ , _ctltCallback :: !(Maybe Text)

8585 }

8686 deriving (Eq, Show, Data, Typeable, Generic)

8787

@@ -90,83 +90,85 @@ data CoursesTeachersList =

9090--

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

9292--

93−-- * 'ctlXgafv'

93+-- * 'ctltXgafv'

9494--

95−-- * 'ctlUploadProtocol'

95+-- * 'ctltUploadProtocol'

9696--

97−-- * 'ctlCourseId'

97+-- * 'ctltCourseId'

9898--

99−-- * 'ctlAccessToken'

99+-- * 'ctltAccessToken'

100100--

101−-- * 'ctlUploadType'

101+-- * 'ctltUploadType'

102102--

103−-- * 'ctlPageToken'

103+-- * 'ctltPageToken'

104104--

105−-- * 'ctlPageSize'

105+-- * 'ctltPageSize'

106106--

107−-- * 'ctlCallback'

107+-- * 'ctltCallback'

108108coursesTeachersList

109− :: Text -- ^ 'ctlCourseId'

109+ :: Text -- ^ 'ctltCourseId'

110110 -> CoursesTeachersList

111−coursesTeachersList pCtlCourseId_ =

111+coursesTeachersList pCtltCourseId_ =

112112 CoursesTeachersList'

113− { _ctlXgafv = Nothing

114− , _ctlUploadProtocol = Nothing

115− , _ctlCourseId = pCtlCourseId_

116− , _ctlAccessToken = Nothing

117− , _ctlUploadType = Nothing

118− , _ctlPageToken = Nothing

119− , _ctlPageSize = Nothing

120− , _ctlCallback = Nothing

113+ { _ctltXgafv = Nothing

114+ , _ctltUploadProtocol = Nothing

115+ , _ctltCourseId = pCtltCourseId_

116+ , _ctltAccessToken = Nothing

117+ , _ctltUploadType = Nothing

118+ , _ctltPageToken = Nothing

119+ , _ctltPageSize = Nothing

120+ , _ctltCallback = Nothing

121121 }

122122

123123

124124-- | V1 error format.

125−ctlXgafv :: Lens' CoursesTeachersList (Maybe Xgafv)

126−ctlXgafv = lens _ctlXgafv (\ s a -> s{_ctlXgafv = a})

125+ctltXgafv :: Lens' CoursesTeachersList (Maybe Xgafv)

126+ctltXgafv

127+ = lens _ctltXgafv (\ s a -> s{_ctltXgafv = a})

127128

128129-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

129−ctlUploadProtocol :: Lens' CoursesTeachersList (Maybe Text)

130−ctlUploadProtocol

131− = lens _ctlUploadProtocol

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

130+ctltUploadProtocol :: Lens' CoursesTeachersList (Maybe Text)

131+ctltUploadProtocol

132+ = lens _ctltUploadProtocol

133+ (\ s a -> s{_ctltUploadProtocol = a})

133134

134135-- | Identifier of the course. This identifier can be either the

135136-- Classroom-assigned identifier or an alias.

136−ctlCourseId :: Lens' CoursesTeachersList Text

137−ctlCourseId

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

137+ctltCourseId :: Lens' CoursesTeachersList Text

138+ctltCourseId

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

139140

140141-- | OAuth access token.

141−ctlAccessToken :: Lens' CoursesTeachersList (Maybe Text)

142−ctlAccessToken

143− = lens _ctlAccessToken

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

142+ctltAccessToken :: Lens' CoursesTeachersList (Maybe Text)

143+ctltAccessToken

144+ = lens _ctltAccessToken

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

145146

146147-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

147−ctlUploadType :: Lens' CoursesTeachersList (Maybe Text)

148−ctlUploadType

149− = lens _ctlUploadType

150− (\ s a -> s{_ctlUploadType = a})

148+ctltUploadType :: Lens' CoursesTeachersList (Maybe Text)

149+ctltUploadType

150+ = lens _ctltUploadType

151+ (\ s a -> s{_ctltUploadType = a})

151152

152153-- | nextPageToken value returned from a previous list call, indicating that

153154-- the subsequent page of results should be returned. The list request must

154155-- be otherwise identical to the one that resulted in this token.

155−ctlPageToken :: Lens' CoursesTeachersList (Maybe Text)

156−ctlPageToken

157− = lens _ctlPageToken (\ s a -> s{_ctlPageToken = a})

156+ctltPageToken :: Lens' CoursesTeachersList (Maybe Text)

157+ctltPageToken

158+ = lens _ctltPageToken

159+ (\ s a -> s{_ctltPageToken = a})

158160

159161-- | Maximum number of items to return. Zero means no maximum. The server may

160162-- return fewer than the specified number of results.

161−ctlPageSize :: Lens' CoursesTeachersList (Maybe Int32)

162−ctlPageSize

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

164− mapping _Coerce

163+ctltPageSize :: Lens' CoursesTeachersList (Maybe Int32)

164+ctltPageSize

165+ = lens _ctltPageSize (\ s a -> s{_ctltPageSize = a})

166+ . mapping _Coerce

165167

166168-- | JSONP

167−ctlCallback :: Lens' CoursesTeachersList (Maybe Text)

168−ctlCallback

169− = lens _ctlCallback (\ s a -> s{_ctlCallback = a})

169+ctltCallback :: Lens' CoursesTeachersList (Maybe Text)

170+ctltCallback

171+ = lens _ctltCallback (\ s a -> s{_ctltCallback = a})

170172

171173instance GoogleRequest CoursesTeachersList where

172174 type Rs CoursesTeachersList = ListTeachersResponse

@@ -176,12 +178,12 @@ instance GoogleRequest CoursesTeachersList where

176178 "https://www.googleapis.com/auth/classroom.rosters",

177179 "https://www.googleapis.com/auth/classroom.rosters.readonly"]

178180 requestClient CoursesTeachersList'{..}

179− = go _ctlCourseId _ctlXgafv _ctlUploadProtocol

180− _ctlAccessToken

181− _ctlUploadType

182− _ctlPageToken

183− _ctlPageSize

184− _ctlCallback

181+ = go _ctltCourseId _ctltXgafv _ctltUploadProtocol

182+ _ctltAccessToken

183+ _ctltUploadType

184+ _ctltPageToken

185+ _ctltPageSize

186+ _ctltCallback

185187 (Just AltJSON)

186188 classroomService

187189 where go

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Topics/Create.hsnew file+174

@@ -0,0 +1,174 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.Classroom.Courses.Topics.Create

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Creates a topic. This method returns the following error codes: *

24+-- \`PERMISSION_DENIED\` if the requesting user is not permitted to access

25+-- the requested course, create a topic in the requested course, or for

26+-- access errors. * \`INVALID_ARGUMENT\` if the request is malformed. *

27+-- \`NOT_FOUND\` if the requested course does not exist.

28+--

29+-- /See:/ <https://developers.google.com/classroom/ Google Classroom API Reference> for @classroom.courses.topics.create@.

30+module Network.Google.Resource.Classroom.Courses.Topics.Create

31+ (

32+ -- * REST Resource

33+ CoursesTopicsCreateResource

34+

35+ -- * Creating a Request

36+ , coursesTopicsCreate

37+ , CoursesTopicsCreate

38+

39+ -- * Request Lenses

40+ , ctctXgafv

41+ , ctctUploadProtocol

42+ , ctctCourseId

43+ , ctctAccessToken

44+ , ctctUploadType

45+ , ctctPayload

46+ , ctctCallback

47+ ) where

48+

49+import Network.Google.Classroom.Types

50+import Network.Google.Prelude

51+

52+-- | A resource alias for @classroom.courses.topics.create@ method which the

53+-- 'CoursesTopicsCreate' request conforms to.

54+type CoursesTopicsCreateResource =

55+ "v1" :>

56+ "courses" :>

57+ Capture "courseId" Text :>

58+ "topics" :>

59+ QueryParam "$.xgafv" Xgafv :>

60+ QueryParam "upload_protocol" Text :>

61+ QueryParam "access_token" Text :>

62+ QueryParam "uploadType" Text :>

63+ QueryParam "callback" Text :>

64+ QueryParam "alt" AltJSON :>

65+ ReqBody '[JSON] Topic :> Post '[JSON] Topic

66+

67+-- | Creates a topic. This method returns the following error codes: *

68+-- \`PERMISSION_DENIED\` if the requesting user is not permitted to access

69+-- the requested course, create a topic in the requested course, or for

70+-- access errors. * \`INVALID_ARGUMENT\` if the request is malformed. *

71+-- \`NOT_FOUND\` if the requested course does not exist.

72+--

73+-- /See:/ 'coursesTopicsCreate' smart constructor.

74+data CoursesTopicsCreate =

75+ CoursesTopicsCreate'

76+ { _ctctXgafv :: !(Maybe Xgafv)

77+ , _ctctUploadProtocol :: !(Maybe Text)

78+ , _ctctCourseId :: !Text

79+ , _ctctAccessToken :: !(Maybe Text)

80+ , _ctctUploadType :: !(Maybe Text)

81+ , _ctctPayload :: !Topic

82+ , _ctctCallback :: !(Maybe Text)

83+ }

84+ deriving (Eq, Show, Data, Typeable, Generic)

85+

86+

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

88+--

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

90+--

91+-- * 'ctctXgafv'

92+--

93+-- * 'ctctUploadProtocol'

94+--

95+-- * 'ctctCourseId'

96+--

97+-- * 'ctctAccessToken'

98+--

99+-- * 'ctctUploadType'

100+--

101+-- * 'ctctPayload'

102+--

103+-- * 'ctctCallback'

104+coursesTopicsCreate

105+ :: Text -- ^ 'ctctCourseId'

106+ -> Topic -- ^ 'ctctPayload'

107+ -> CoursesTopicsCreate

108+coursesTopicsCreate pCtctCourseId_ pCtctPayload_ =

109+ CoursesTopicsCreate'

110+ { _ctctXgafv = Nothing

111+ , _ctctUploadProtocol = Nothing

112+ , _ctctCourseId = pCtctCourseId_

113+ , _ctctAccessToken = Nothing

114+ , _ctctUploadType = Nothing

115+ , _ctctPayload = pCtctPayload_

116+ , _ctctCallback = Nothing

117+ }

118+

119+

120+-- | V1 error format.

121+ctctXgafv :: Lens' CoursesTopicsCreate (Maybe Xgafv)

122+ctctXgafv

123+ = lens _ctctXgafv (\ s a -> s{_ctctXgafv = a})

124+

125+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

126+ctctUploadProtocol :: Lens' CoursesTopicsCreate (Maybe Text)

127+ctctUploadProtocol

128+ = lens _ctctUploadProtocol

129+ (\ s a -> s{_ctctUploadProtocol = a})

130+

131+-- | Identifier of the course. This identifier can be either the

132+-- Classroom-assigned identifier or an alias.

133+ctctCourseId :: Lens' CoursesTopicsCreate Text

134+ctctCourseId

135+ = lens _ctctCourseId (\ s a -> s{_ctctCourseId = a})

136+

137+-- | OAuth access token.

138+ctctAccessToken :: Lens' CoursesTopicsCreate (Maybe Text)

139+ctctAccessToken

140+ = lens _ctctAccessToken

141+ (\ s a -> s{_ctctAccessToken = a})

142+

143+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

144+ctctUploadType :: Lens' CoursesTopicsCreate (Maybe Text)

145+ctctUploadType

146+ = lens _ctctUploadType

147+ (\ s a -> s{_ctctUploadType = a})

148+

149+-- | Multipart request metadata.

150+ctctPayload :: Lens' CoursesTopicsCreate Topic

151+ctctPayload

152+ = lens _ctctPayload (\ s a -> s{_ctctPayload = a})

153+

154+-- | JSONP

155+ctctCallback :: Lens' CoursesTopicsCreate (Maybe Text)

156+ctctCallback

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

158+

159+instance GoogleRequest CoursesTopicsCreate where

160+ type Rs CoursesTopicsCreate = Topic

161+ type Scopes CoursesTopicsCreate =

162+ '["https://www.googleapis.com/auth/classroom.topics"]

163+ requestClient CoursesTopicsCreate'{..}

164+ = go _ctctCourseId _ctctXgafv _ctctUploadProtocol

165+ _ctctAccessToken

166+ _ctctUploadType

167+ _ctctCallback

168+ (Just AltJSON)

169+ _ctctPayload

170+ classroomService

171+ where go

172+ = buildClient

173+ (Proxy :: Proxy CoursesTopicsCreateResource)

174+ mempty

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Topics/Delete.hsnew file+171

@@ -0,0 +1,171 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.Classroom.Courses.Topics.Delete

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Deletes a topic. This method returns the following error codes: *

24+-- \`PERMISSION_DENIED\` if the requesting user is not allowed to delete

25+-- the requested topic or for access errors. * \`FAILED_PRECONDITION\` if

26+-- the requested topic has already been deleted. * \`NOT_FOUND\` if no

27+-- course or topic exists with the requested ID.

28+--

29+-- /See:/ <https://developers.google.com/classroom/ Google Classroom API Reference> for @classroom.courses.topics.delete@.

30+module Network.Google.Resource.Classroom.Courses.Topics.Delete

31+ (

32+ -- * REST Resource

33+ CoursesTopicsDeleteResource

34+

35+ -- * Creating a Request

36+ , coursesTopicsDelete

37+ , CoursesTopicsDelete

38+

39+ -- * Request Lenses

40+ , ctdXgafv

41+ , ctdUploadProtocol

42+ , ctdCourseId

43+ , ctdAccessToken

44+ , ctdUploadType

45+ , ctdId

46+ , ctdCallback

47+ ) where

48+

49+import Network.Google.Classroom.Types

50+import Network.Google.Prelude

51+

52+-- | A resource alias for @classroom.courses.topics.delete@ method which the

53+-- 'CoursesTopicsDelete' request conforms to.

54+type CoursesTopicsDeleteResource =

55+ "v1" :>

56+ "courses" :>

57+ Capture "courseId" Text :>

58+ "topics" :>

59+ Capture "id" Text :>

60+ QueryParam "$.xgafv" Xgafv :>

61+ QueryParam "upload_protocol" Text :>

62+ QueryParam "access_token" Text :>

63+ QueryParam "uploadType" Text :>

64+ QueryParam "callback" Text :>

65+ QueryParam "alt" AltJSON :> Delete '[JSON] Empty

66+

67+-- | Deletes a topic. This method returns the following error codes: *

68+-- \`PERMISSION_DENIED\` if the requesting user is not allowed to delete

69+-- the requested topic or for access errors. * \`FAILED_PRECONDITION\` if

70+-- the requested topic has already been deleted. * \`NOT_FOUND\` if no

71+-- course or topic exists with the requested ID.

72+--

73+-- /See:/ 'coursesTopicsDelete' smart constructor.

74+data CoursesTopicsDelete =

75+ CoursesTopicsDelete'

76+ { _ctdXgafv :: !(Maybe Xgafv)

77+ , _ctdUploadProtocol :: !(Maybe Text)

78+ , _ctdCourseId :: !Text

79+ , _ctdAccessToken :: !(Maybe Text)

80+ , _ctdUploadType :: !(Maybe Text)

81+ , _ctdId :: !Text

82+ , _ctdCallback :: !(Maybe Text)

83+ }

84+ deriving (Eq, Show, Data, Typeable, Generic)

85+

86+

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

88+--

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

90+--

91+-- * 'ctdXgafv'

92+--

93+-- * 'ctdUploadProtocol'

94+--

95+-- * 'ctdCourseId'

96+--

97+-- * 'ctdAccessToken'

98+--

99+-- * 'ctdUploadType'

100+--

101+-- * 'ctdId'

102+--

103+-- * 'ctdCallback'

104+coursesTopicsDelete

105+ :: Text -- ^ 'ctdCourseId'

106+ -> Text -- ^ 'ctdId'

107+ -> CoursesTopicsDelete

108+coursesTopicsDelete pCtdCourseId_ pCtdId_ =

109+ CoursesTopicsDelete'

110+ { _ctdXgafv = Nothing

111+ , _ctdUploadProtocol = Nothing

112+ , _ctdCourseId = pCtdCourseId_

113+ , _ctdAccessToken = Nothing

114+ , _ctdUploadType = Nothing

115+ , _ctdId = pCtdId_

116+ , _ctdCallback = Nothing

117+ }

118+

119+

120+-- | V1 error format.

121+ctdXgafv :: Lens' CoursesTopicsDelete (Maybe Xgafv)

122+ctdXgafv = lens _ctdXgafv (\ s a -> s{_ctdXgafv = a})

123+

124+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

125+ctdUploadProtocol :: Lens' CoursesTopicsDelete (Maybe Text)

126+ctdUploadProtocol

127+ = lens _ctdUploadProtocol

128+ (\ s a -> s{_ctdUploadProtocol = a})

129+

130+-- | Identifier of the course. This identifier can be either the

131+-- Classroom-assigned identifier or an alias.

132+ctdCourseId :: Lens' CoursesTopicsDelete Text

133+ctdCourseId

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

135+

136+-- | OAuth access token.

137+ctdAccessToken :: Lens' CoursesTopicsDelete (Maybe Text)

138+ctdAccessToken

139+ = lens _ctdAccessToken

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

141+

142+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

143+ctdUploadType :: Lens' CoursesTopicsDelete (Maybe Text)

144+ctdUploadType

145+ = lens _ctdUploadType

146+ (\ s a -> s{_ctdUploadType = a})

147+

148+-- | Identifier of the topic to delete.

149+ctdId :: Lens' CoursesTopicsDelete Text

150+ctdId = lens _ctdId (\ s a -> s{_ctdId = a})

151+

152+-- | JSONP

153+ctdCallback :: Lens' CoursesTopicsDelete (Maybe Text)

154+ctdCallback

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

156+

157+instance GoogleRequest CoursesTopicsDelete where

158+ type Rs CoursesTopicsDelete = Empty

159+ type Scopes CoursesTopicsDelete =

160+ '["https://www.googleapis.com/auth/classroom.topics"]

161+ requestClient CoursesTopicsDelete'{..}

162+ = go _ctdCourseId _ctdId _ctdXgafv _ctdUploadProtocol

163+ _ctdAccessToken

164+ _ctdUploadType

165+ _ctdCallback

166+ (Just AltJSON)

167+ classroomService

168+ where go

169+ = buildClient

170+ (Proxy :: Proxy CoursesTopicsDeleteResource)

171+ mempty

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Topics/Get.hsnew file+171

@@ -0,0 +1,171 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.Classroom.Courses.Topics.Get

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Returns a topic. This method returns the following error codes: *

24+-- \`PERMISSION_DENIED\` if the requesting user is not permitted to access

25+-- the requested course or topic, or for access errors. *

26+-- \`INVALID_ARGUMENT\` if the request is malformed. * \`NOT_FOUND\` if the

27+-- requested course or topic does not exist.

28+--

29+-- /See:/ <https://developers.google.com/classroom/ Google Classroom API Reference> for @classroom.courses.topics.get@.

30+module Network.Google.Resource.Classroom.Courses.Topics.Get

31+ (

32+ -- * REST Resource

33+ CoursesTopicsGetResource

34+

35+ -- * Creating a Request

36+ , coursesTopicsGet

37+ , CoursesTopicsGet

38+

39+ -- * Request Lenses

40+ , ctgXgafv

41+ , ctgUploadProtocol

42+ , ctgCourseId

43+ , ctgAccessToken

44+ , ctgUploadType

45+ , ctgId

46+ , ctgCallback

47+ ) where

48+

49+import Network.Google.Classroom.Types

50+import Network.Google.Prelude

51+

52+-- | A resource alias for @classroom.courses.topics.get@ method which the

53+-- 'CoursesTopicsGet' request conforms to.

54+type CoursesTopicsGetResource =

55+ "v1" :>

56+ "courses" :>

57+ Capture "courseId" Text :>

58+ "topics" :>

59+ Capture "id" Text :>

60+ QueryParam "$.xgafv" Xgafv :>

61+ QueryParam "upload_protocol" Text :>

62+ QueryParam "access_token" Text :>

63+ QueryParam "uploadType" Text :>

64+ QueryParam "callback" Text :>

65+ QueryParam "alt" AltJSON :> Get '[JSON] Topic

66+

67+-- | Returns a topic. This method returns the following error codes: *

68+-- \`PERMISSION_DENIED\` if the requesting user is not permitted to access

69+-- the requested course or topic, or for access errors. *

70+-- \`INVALID_ARGUMENT\` if the request is malformed. * \`NOT_FOUND\` if the

71+-- requested course or topic does not exist.

72+--

73+-- /See:/ 'coursesTopicsGet' smart constructor.

74+data CoursesTopicsGet =

75+ CoursesTopicsGet'

76+ { _ctgXgafv :: !(Maybe Xgafv)

77+ , _ctgUploadProtocol :: !(Maybe Text)

78+ , _ctgCourseId :: !Text

79+ , _ctgAccessToken :: !(Maybe Text)

80+ , _ctgUploadType :: !(Maybe Text)

81+ , _ctgId :: !Text

82+ , _ctgCallback :: !(Maybe Text)

83+ }

84+ deriving (Eq, Show, Data, Typeable, Generic)

85+

86+

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

88+--

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

90+--

91+-- * 'ctgXgafv'

92+--

93+-- * 'ctgUploadProtocol'

94+--

95+-- * 'ctgCourseId'

96+--

97+-- * 'ctgAccessToken'

98+--

99+-- * 'ctgUploadType'

100+--

101+-- * 'ctgId'

102+--

103+-- * 'ctgCallback'

104+coursesTopicsGet

105+ :: Text -- ^ 'ctgCourseId'

106+ -> Text -- ^ 'ctgId'

107+ -> CoursesTopicsGet

108+coursesTopicsGet pCtgCourseId_ pCtgId_ =

109+ CoursesTopicsGet'

110+ { _ctgXgafv = Nothing

111+ , _ctgUploadProtocol = Nothing

112+ , _ctgCourseId = pCtgCourseId_

113+ , _ctgAccessToken = Nothing

114+ , _ctgUploadType = Nothing

115+ , _ctgId = pCtgId_

116+ , _ctgCallback = Nothing

117+ }

118+

119+

120+-- | V1 error format.

121+ctgXgafv :: Lens' CoursesTopicsGet (Maybe Xgafv)

122+ctgXgafv = lens _ctgXgafv (\ s a -> s{_ctgXgafv = a})

123+

124+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

125+ctgUploadProtocol :: Lens' CoursesTopicsGet (Maybe Text)

126+ctgUploadProtocol

127+ = lens _ctgUploadProtocol

128+ (\ s a -> s{_ctgUploadProtocol = a})

129+

130+-- | Identifier of the course.

131+ctgCourseId :: Lens' CoursesTopicsGet Text

132+ctgCourseId

133+ = lens _ctgCourseId (\ s a -> s{_ctgCourseId = a})

134+

135+-- | OAuth access token.

136+ctgAccessToken :: Lens' CoursesTopicsGet (Maybe Text)

137+ctgAccessToken

138+ = lens _ctgAccessToken

139+ (\ s a -> s{_ctgAccessToken = a})

140+

141+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

142+ctgUploadType :: Lens' CoursesTopicsGet (Maybe Text)

143+ctgUploadType

144+ = lens _ctgUploadType

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

146+

147+-- | Identifier of the topic.

148+ctgId :: Lens' CoursesTopicsGet Text

149+ctgId = lens _ctgId (\ s a -> s{_ctgId = a})

150+

151+-- | JSONP

152+ctgCallback :: Lens' CoursesTopicsGet (Maybe Text)

153+ctgCallback

154+ = lens _ctgCallback (\ s a -> s{_ctgCallback = a})

155+

156+instance GoogleRequest CoursesTopicsGet where

157+ type Rs CoursesTopicsGet = Topic

158+ type Scopes CoursesTopicsGet =

159+ '["https://www.googleapis.com/auth/classroom.topics",

160+ "https://www.googleapis.com/auth/classroom.topics.readonly"]

161+ requestClient CoursesTopicsGet'{..}

162+ = go _ctgCourseId _ctgId _ctgXgafv _ctgUploadProtocol

163+ _ctgAccessToken

164+ _ctgUploadType

165+ _ctgCallback

166+ (Just AltJSON)

167+ classroomService

168+ where go

169+ = buildClient

170+ (Proxy :: Proxy CoursesTopicsGetResource)

171+ mempty

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Topics/List.hsnew file+191

@@ -0,0 +1,191 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.Classroom.Courses.Topics.List

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Returns the list of topics that the requester is permitted to view. This

24+-- method returns the following error codes: * \`PERMISSION_DENIED\` if the

25+-- requesting user is not permitted to access the requested course or for

26+-- access errors. * \`INVALID_ARGUMENT\` if the request is malformed. *

27+-- \`NOT_FOUND\` if the requested course does not exist.

28+--

29+-- /See:/ <https://developers.google.com/classroom/ Google Classroom API Reference> for @classroom.courses.topics.list@.

30+module Network.Google.Resource.Classroom.Courses.Topics.List

31+ (

32+ -- * REST Resource

33+ CoursesTopicsListResource

34+

35+ -- * Creating a Request

36+ , coursesTopicsList

37+ , CoursesTopicsList

38+

39+ -- * Request Lenses

40+ , ctlXgafv

41+ , ctlUploadProtocol

42+ , ctlCourseId

43+ , ctlAccessToken

44+ , ctlUploadType

45+ , ctlPageToken

46+ , ctlPageSize

47+ , ctlCallback

48+ ) where

49+

50+import Network.Google.Classroom.Types

51+import Network.Google.Prelude

52+

53+-- | A resource alias for @classroom.courses.topics.list@ method which the

54+-- 'CoursesTopicsList' request conforms to.

55+type CoursesTopicsListResource =

56+ "v1" :>

57+ "courses" :>

58+ Capture "courseId" Text :>

59+ "topics" :>

60+ QueryParam "$.xgafv" Xgafv :>

61+ QueryParam "upload_protocol" Text :>

62+ QueryParam "access_token" Text :>

63+ QueryParam "uploadType" Text :>

64+ QueryParam "pageToken" Text :>

65+ QueryParam "pageSize" (Textual Int32) :>

66+ QueryParam "callback" Text :>

67+ QueryParam "alt" AltJSON :>

68+ Get '[JSON] ListTopicResponse

69+

70+-- | Returns the list of topics that the requester is permitted to view. This

71+-- method returns the following error codes: * \`PERMISSION_DENIED\` if the

72+-- requesting user is not permitted to access the requested course or for

73+-- access errors. * \`INVALID_ARGUMENT\` if the request is malformed. *

74+-- \`NOT_FOUND\` if the requested course does not exist.

75+--

76+-- /See:/ 'coursesTopicsList' smart constructor.

77+data CoursesTopicsList =

78+ CoursesTopicsList'

79+ { _ctlXgafv :: !(Maybe Xgafv)

80+ , _ctlUploadProtocol :: !(Maybe Text)

81+ , _ctlCourseId :: !Text

82+ , _ctlAccessToken :: !(Maybe Text)

83+ , _ctlUploadType :: !(Maybe Text)

84+ , _ctlPageToken :: !(Maybe Text)

85+ , _ctlPageSize :: !(Maybe (Textual Int32))

86+ , _ctlCallback :: !(Maybe Text)

87+ }

88+ deriving (Eq, Show, Data, Typeable, Generic)

89+

90+

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

92+--

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

94+--

95+-- * 'ctlXgafv'

96+--

97+-- * 'ctlUploadProtocol'

98+--

99+-- * 'ctlCourseId'

100+--

101+-- * 'ctlAccessToken'

102+--

103+-- * 'ctlUploadType'

104+--

105+-- * 'ctlPageToken'

106+--

107+-- * 'ctlPageSize'

108+--

109+-- * 'ctlCallback'

110+coursesTopicsList

111+ :: Text -- ^ 'ctlCourseId'

112+ -> CoursesTopicsList

113+coursesTopicsList pCtlCourseId_ =

114+ CoursesTopicsList'

115+ { _ctlXgafv = Nothing

116+ , _ctlUploadProtocol = Nothing

117+ , _ctlCourseId = pCtlCourseId_

118+ , _ctlAccessToken = Nothing

119+ , _ctlUploadType = Nothing

120+ , _ctlPageToken = Nothing

121+ , _ctlPageSize = Nothing

122+ , _ctlCallback = Nothing

123+ }

124+

125+

126+-- | V1 error format.

127+ctlXgafv :: Lens' CoursesTopicsList (Maybe Xgafv)

128+ctlXgafv = lens _ctlXgafv (\ s a -> s{_ctlXgafv = a})

129+

130+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

131+ctlUploadProtocol :: Lens' CoursesTopicsList (Maybe Text)

132+ctlUploadProtocol

133+ = lens _ctlUploadProtocol

134+ (\ s a -> s{_ctlUploadProtocol = a})

135+

136+-- | Identifier of the course. This identifier can be either the

137+-- Classroom-assigned identifier or an alias.

138+ctlCourseId :: Lens' CoursesTopicsList Text

139+ctlCourseId

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

141+

142+-- | OAuth access token.

143+ctlAccessToken :: Lens' CoursesTopicsList (Maybe Text)

144+ctlAccessToken

145+ = lens _ctlAccessToken

146+ (\ s a -> s{_ctlAccessToken = a})

147+

148+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

149+ctlUploadType :: Lens' CoursesTopicsList (Maybe Text)

150+ctlUploadType

151+ = lens _ctlUploadType

152+ (\ s a -> s{_ctlUploadType = a})

153+

154+-- | nextPageToken value returned from a previous list call, indicating that

155+-- the subsequent page of results should be returned. The list request must

156+-- be otherwise identical to the one that resulted in this token.

157+ctlPageToken :: Lens' CoursesTopicsList (Maybe Text)

158+ctlPageToken

159+ = lens _ctlPageToken (\ s a -> s{_ctlPageToken = a})

160+

161+-- | Maximum number of items to return. Zero or unspecified indicates that

162+-- the server may assign a maximum. The server may return fewer than the

163+-- specified number of results.

164+ctlPageSize :: Lens' CoursesTopicsList (Maybe Int32)

165+ctlPageSize

166+ = lens _ctlPageSize (\ s a -> s{_ctlPageSize = a}) .

167+ mapping _Coerce

168+

169+-- | JSONP

170+ctlCallback :: Lens' CoursesTopicsList (Maybe Text)

171+ctlCallback

172+ = lens _ctlCallback (\ s a -> s{_ctlCallback = a})

173+

174+instance GoogleRequest CoursesTopicsList where

175+ type Rs CoursesTopicsList = ListTopicResponse

176+ type Scopes CoursesTopicsList =

177+ '["https://www.googleapis.com/auth/classroom.topics",

178+ "https://www.googleapis.com/auth/classroom.topics.readonly"]

179+ requestClient CoursesTopicsList'{..}

180+ = go _ctlCourseId _ctlXgafv _ctlUploadProtocol

181+ _ctlAccessToken

182+ _ctlUploadType

183+ _ctlPageToken

184+ _ctlPageSize

185+ _ctlCallback

186+ (Just AltJSON)

187+ classroomService

188+ where go

189+ = buildClient

190+ (Proxy :: Proxy CoursesTopicsListResource)

191+ mempty

gogol-classroom/gen/Network/Google/Resource/Classroom/Courses/Topics/Patch.hsnew file+203

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

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.Classroom.Courses.Topics.Patch

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Updates one or more fields of a topic. This method returns the following

24+-- error codes: * \`PERMISSION_DENIED\` if the requesting developer project

25+-- did not create the corresponding topic or for access errors. *

26+-- \`INVALID_ARGUMENT\` if the request is malformed. * \`NOT_FOUND\` if the

27+-- requested course or topic does not exist

28+--

29+-- /See:/ <https://developers.google.com/classroom/ Google Classroom API Reference> for @classroom.courses.topics.patch@.

30+module Network.Google.Resource.Classroom.Courses.Topics.Patch

31+ (

32+ -- * REST Resource

33+ CoursesTopicsPatchResource

34+

35+ -- * Creating a Request

36+ , coursesTopicsPatch

37+ , CoursesTopicsPatch

38+

39+ -- * Request Lenses

40+ , ctpXgafv

41+ , ctpUploadProtocol

42+ , ctpUpdateMask

43+ , ctpCourseId

44+ , ctpAccessToken

45+ , ctpUploadType

46+ , ctpPayload

47+ , ctpId

48+ , ctpCallback

49+ ) where

50+

51+import Network.Google.Classroom.Types

52+import Network.Google.Prelude

53+

54+-- | A resource alias for @classroom.courses.topics.patch@ method which the

55+-- 'CoursesTopicsPatch' request conforms to.

56+type CoursesTopicsPatchResource =

57+ "v1" :>

58+ "courses" :>

59+ Capture "courseId" Text :>

60+ "topics" :>

61+ Capture "id" Text :>

62+ QueryParam "$.xgafv" Xgafv :>

63+ QueryParam "upload_protocol" Text :>

64+ QueryParam "updateMask" GFieldMask :>

65+ QueryParam "access_token" Text :>

66+ QueryParam "uploadType" Text :>

67+ QueryParam "callback" Text :>

68+ QueryParam "alt" AltJSON :>

69+ ReqBody '[JSON] Topic :> Patch '[JSON] Topic

70+

71+-- | Updates one or more fields of a topic. This method returns the following

72+-- error codes: * \`PERMISSION_DENIED\` if the requesting developer project

73+-- did not create the corresponding topic or for access errors. *

74+-- \`INVALID_ARGUMENT\` if the request is malformed. * \`NOT_FOUND\` if the

75+-- requested course or topic does not exist

76+--

77+-- /See:/ 'coursesTopicsPatch' smart constructor.

78+data CoursesTopicsPatch =

79+ CoursesTopicsPatch'

80+ { _ctpXgafv :: !(Maybe Xgafv)

81+ , _ctpUploadProtocol :: !(Maybe Text)

82+ , _ctpUpdateMask :: !(Maybe GFieldMask)

83+ , _ctpCourseId :: !Text

84+ , _ctpAccessToken :: !(Maybe Text)

85+ , _ctpUploadType :: !(Maybe Text)

86+ , _ctpPayload :: !Topic

87+ , _ctpId :: !Text

88+ , _ctpCallback :: !(Maybe Text)

89+ }

90+ deriving (Eq, Show, Data, Typeable, Generic)

91+

92+

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

94+--

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

96+--

97+-- * 'ctpXgafv'

98+--

99+-- * 'ctpUploadProtocol'

100+--

101+-- * 'ctpUpdateMask'

102+--

103+-- * 'ctpCourseId'

104+--

105+-- * 'ctpAccessToken'

106+--

107+-- * 'ctpUploadType'

108+--

109+-- * 'ctpPayload'

110+--

111+-- * 'ctpId'

112+--

113+-- * 'ctpCallback'

114+coursesTopicsPatch

115+ :: Text -- ^ 'ctpCourseId'

116+ -> Topic -- ^ 'ctpPayload'

117+ -> Text -- ^ 'ctpId'

118+ -> CoursesTopicsPatch

119+coursesTopicsPatch pCtpCourseId_ pCtpPayload_ pCtpId_ =

120+ CoursesTopicsPatch'

121+ { _ctpXgafv = Nothing

122+ , _ctpUploadProtocol = Nothing

123+ , _ctpUpdateMask = Nothing

124+ , _ctpCourseId = pCtpCourseId_

125+ , _ctpAccessToken = Nothing

126+ , _ctpUploadType = Nothing

127+ , _ctpPayload = pCtpPayload_

128+ , _ctpId = pCtpId_

129+ , _ctpCallback = Nothing

130+ }

131+

132+

133+-- | V1 error format.

134+ctpXgafv :: Lens' CoursesTopicsPatch (Maybe Xgafv)

135+ctpXgafv = lens _ctpXgafv (\ s a -> s{_ctpXgafv = a})

136+

137+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

138+ctpUploadProtocol :: Lens' CoursesTopicsPatch (Maybe Text)

139+ctpUploadProtocol

140+ = lens _ctpUploadProtocol

141+ (\ s a -> s{_ctpUploadProtocol = a})

142+

143+-- | Mask that identifies which fields on the topic to update. This field is

144+-- required to do an update. The update fails if invalid fields are

145+-- specified. If a field supports empty values, it can be cleared by

146+-- specifying it in the update mask and not in the Topic object. If a field

147+-- that does not support empty values is included in the update mask and

148+-- not set in the Topic object, an \`INVALID_ARGUMENT\` error will be

149+-- returned. The following fields may be specified: * \`name\`

150+ctpUpdateMask :: Lens' CoursesTopicsPatch (Maybe GFieldMask)

151+ctpUpdateMask

152+ = lens _ctpUpdateMask

153+ (\ s a -> s{_ctpUpdateMask = a})

154+

155+-- | Identifier of the course. This identifier can be either the

156+-- Classroom-assigned identifier or an alias.

157+ctpCourseId :: Lens' CoursesTopicsPatch Text

158+ctpCourseId

159+ = lens _ctpCourseId (\ s a -> s{_ctpCourseId = a})

160+

161+-- | OAuth access token.

162+ctpAccessToken :: Lens' CoursesTopicsPatch (Maybe Text)

163+ctpAccessToken

164+ = lens _ctpAccessToken

165+ (\ s a -> s{_ctpAccessToken = a})

166+

167+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

168+ctpUploadType :: Lens' CoursesTopicsPatch (Maybe Text)

169+ctpUploadType

170+ = lens _ctpUploadType

171+ (\ s a -> s{_ctpUploadType = a})

172+

173+-- | Multipart request metadata.

174+ctpPayload :: Lens' CoursesTopicsPatch Topic

175+ctpPayload

176+ = lens _ctpPayload (\ s a -> s{_ctpPayload = a})

177+

178+-- | Identifier of the topic.

179+ctpId :: Lens' CoursesTopicsPatch Text

180+ctpId = lens _ctpId (\ s a -> s{_ctpId = a})

181+

182+-- | JSONP

183+ctpCallback :: Lens' CoursesTopicsPatch (Maybe Text)

184+ctpCallback

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

186+

187+instance GoogleRequest CoursesTopicsPatch where

188+ type Rs CoursesTopicsPatch = Topic

189+ type Scopes CoursesTopicsPatch =

190+ '["https://www.googleapis.com/auth/classroom.topics"]

191+ requestClient CoursesTopicsPatch'{..}

192+ = go _ctpCourseId _ctpId _ctpXgafv _ctpUploadProtocol

193+ _ctpUpdateMask

194+ _ctpAccessToken

195+ _ctpUploadType

196+ _ctpCallback

197+ (Just AltJSON)

198+ _ctpPayload

199+ classroomService

200+ where go

201+ = buildClient

202+ (Proxy :: Proxy CoursesTopicsPatchResource)

203+ mempty

gogol-classroom/gogol-classroom.cabal+5

@@ -70,6 +70,11 @@ library

7070 , Network.Google.Resource.Classroom.Courses.Teachers.Delete

7171 , Network.Google.Resource.Classroom.Courses.Teachers.Get

7272 , Network.Google.Resource.Classroom.Courses.Teachers.List

73+ , Network.Google.Resource.Classroom.Courses.Topics.Create

74+ , Network.Google.Resource.Classroom.Courses.Topics.Delete

75+ , Network.Google.Resource.Classroom.Courses.Topics.Get

76+ , Network.Google.Resource.Classroom.Courses.Topics.List

77+ , Network.Google.Resource.Classroom.Courses.Topics.Patch

7378 , Network.Google.Resource.Classroom.Courses.Update

7479 , Network.Google.Resource.Classroom.Invitations.Accept

7580 , Network.Google.Resource.Classroom.Invitations.Create

gogol-cloudasset/gen/Network/Google/CloudAsset.hs+14−38

@@ -16,7 +16,7 @@

1616-- The cloud asset API manages the history and inventory of cloud

1717-- resources.

1818--

19−-- /See:/ <https://console.cloud.google.com/apis/api/cloudasset.googleapis.com/overview Cloud Asset API Reference>

19+-- /See:/ <https://cloud.google.com/resource-manager/docs/cloud-asset-inventory/quickstart-cloud-asset-inventory Cloud Asset API Reference>

2020module Network.Google.CloudAsset

2121 (

2222 -- * Service Configuration

@@ -30,29 +30,14 @@ module Network.Google.CloudAsset

3030

3131 -- * Resources

3232

33− -- ** cloudasset.folders.exportAssets

34− , module Network.Google.Resource.CloudAsset.Folders.ExportAssets

33+ -- ** cloudasset.batchGetAssetsHistory

34+ , module Network.Google.Resource.CloudAsset.BatchGetAssetsHistory

3535

36− -- ** cloudasset.folders.operations.get

37− , module Network.Google.Resource.CloudAsset.Folders.Operations.Get

36+ -- ** cloudasset.exportAssets

37+ , module Network.Google.Resource.CloudAsset.ExportAssets

3838

39− -- ** cloudasset.organizations.batchGetAssetsHistory

40− , module Network.Google.Resource.CloudAsset.Organizations.BatchGetAssetsHistory

41−

42− -- ** cloudasset.organizations.exportAssets

43− , module Network.Google.Resource.CloudAsset.Organizations.ExportAssets

44−

45− -- ** cloudasset.organizations.operations.get

46− , module Network.Google.Resource.CloudAsset.Organizations.Operations.Get

47−

48− -- ** cloudasset.projects.batchGetAssetsHistory

49− , module Network.Google.Resource.CloudAsset.Projects.BatchGetAssetsHistory

50−

51− -- ** cloudasset.projects.exportAssets

52− , module Network.Google.Resource.CloudAsset.Projects.ExportAssets

53−

54− -- ** cloudasset.projects.operations.get

55− , module Network.Google.Resource.CloudAsset.Projects.Operations.Get

39+ -- ** cloudasset.operations.get

40+ , module Network.Google.Resource.CloudAsset.Operations.Get

5641

5742 -- * Types

5843

@@ -100,6 +85,7 @@ module Network.Google.CloudAsset

10085 -- ** GcsDestination

10186 , GcsDestination

10287 , gcsDestination

88+ , gdURIPrefix

10389 , gdURI

10490

10591 -- ** StatusDetailsItem

@@ -193,14 +179,9 @@ module Network.Google.CloudAsset

193179

194180import Network.Google.CloudAsset.Types

195181import Network.Google.Prelude

196−import Network.Google.Resource.CloudAsset.Folders.ExportAssets

197−import Network.Google.Resource.CloudAsset.Folders.Operations.Get

198−import Network.Google.Resource.CloudAsset.Organizations.BatchGetAssetsHistory

199−import Network.Google.Resource.CloudAsset.Organizations.ExportAssets

200−import Network.Google.Resource.CloudAsset.Organizations.Operations.Get

201−import Network.Google.Resource.CloudAsset.Projects.BatchGetAssetsHistory

202−import Network.Google.Resource.CloudAsset.Projects.ExportAssets

203−import Network.Google.Resource.CloudAsset.Projects.Operations.Get

182+import Network.Google.Resource.CloudAsset.BatchGetAssetsHistory

183+import Network.Google.Resource.CloudAsset.ExportAssets

184+import Network.Google.Resource.CloudAsset.Operations.Get

204185

205186{- $resources

206187TODO

@@ -208,11 +189,6 @@ TODO

208189

209190-- | Represents the entirety of the methods and resources available for the Cloud Asset API service.

210191type CloudAssetAPI =

211− FoldersOperationsGetResource :<|>

212− FoldersExportAssetsResource

213− :<|> OrganizationsOperationsGetResource

214− :<|> OrganizationsExportAssetsResource

215− :<|> OrganizationsBatchGetAssetsHistoryResource

216− :<|> ProjectsOperationsGetResource

217− :<|> ProjectsExportAssetsResource

218− :<|> ProjectsBatchGetAssetsHistoryResource

192+ ExportAssetsResource :<|>

193+ BatchGetAssetsHistoryResource

194+ :<|> OperationsGetResource

gogol-cloudasset/gen/Network/Google/CloudAsset/Types.hs+3−2

@@ -66,6 +66,7 @@ module Network.Google.CloudAsset.Types

6666 -- * GcsDestination

6767 , GcsDestination

6868 , gcsDestination

69+ , gdURIPrefix

6970 , gdURI

7071

7172 -- * StatusDetailsItem

@@ -161,10 +162,10 @@ import Network.Google.CloudAsset.Types.Product

161162import Network.Google.CloudAsset.Types.Sum

162163import Network.Google.Prelude

163164

164−-- | Default request referring to version 'v1beta1' of the Cloud Asset API. This contains the host and root path used as a starting point for constructing service requests.

165+-- | Default request referring to version 'v1' of the Cloud Asset API. This contains the host and root path used as a starting point for constructing service requests.

165166cloudAssetService :: ServiceConfig

166167cloudAssetService

167− = defaultService (ServiceId "cloudasset:v1beta1")

168+ = defaultService (ServiceId "cloudasset:v1")

168169 "cloudasset.googleapis.com"

169170

170171-- | View and manage your data across Google Cloud Platform services

gogol-cloudasset/gen/Network/Google/CloudAsset/Types/Product.hs+35−15

@@ -415,7 +415,7 @@ aIAMPolicy :: Lens' Asset (Maybe Policy)

415415aIAMPolicy

416416 = lens _aIAMPolicy (\ s a -> s{_aIAMPolicy = a})

417417

418−-- | Type of the asset. Example: \"google.compute.Disk\".

418+-- | Type of the asset. Example: \"compute.googleapis.com\/Disk\".

419419aAssetType :: Lens' Asset (Maybe Text)

420420aAssetType

421421 = lens _aAssetType (\ s a -> s{_aAssetType = a})

@@ -441,9 +441,10 @@ instance ToJSON Asset where

441441-- | A Cloud Storage location.

442442--

443443-- /See:/ 'gcsDestination' smart constructor.

444−newtype GcsDestination =

444+data GcsDestination =

445445 GcsDestination'

446− { _gdURI :: Maybe Text

446+ { _gdURIPrefix :: !(Maybe Text)

447+ , _gdURI :: !(Maybe Text)

447448 }

448449 deriving (Eq, Show, Data, Typeable, Generic)

449450

@@ -452,11 +453,26 @@ newtype GcsDestination =

452453--

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

454455--

456+-- * 'gdURIPrefix'

457+--

455458-- * 'gdURI'

456459gcsDestination

457460 :: GcsDestination

458−gcsDestination = GcsDestination' {_gdURI = Nothing}

459−

461+gcsDestination = GcsDestination' {_gdURIPrefix = Nothing, _gdURI = Nothing}

462+

463+

464+-- | The uri prefix of all generated Cloud Storage objects. For example:

465+-- \"gs:\/\/bucket_name\/object_name_prefix\". Each object uri is in

466+-- format: \"gs:\/\/bucket_name\/object_name_prefix\/\/ and only contains

467+-- assets for that type. starts from 0. For example:

468+-- \"gs:\/\/bucket_name\/object_name_prefix\/compute.googleapis.com\/Disk\/0\"

469+-- is the first shard of output objects containing all

470+-- compute.googleapis.com\/Disk assets. An INVALID_ARGUMENT error will be

471+-- returned if file with the same name

472+-- \"gs:\/\/bucket_name\/object_name_prefix\" already exists.

473+gdURIPrefix :: Lens' GcsDestination (Maybe Text)

474+gdURIPrefix

475+ = lens _gdURIPrefix (\ s a -> s{_gdURIPrefix = a})

460476

461477-- | The uri of the Cloud Storage object. It\'s the same uri that is used by

462478-- gsutil. For example: \"gs:\/\/bucket_name\/object_name\". See [Viewing

@@ -469,11 +485,16 @@ gdURI = lens _gdURI (\ s a -> s{_gdURI = a})

469485instance FromJSON GcsDestination where

470486 parseJSON

471487 = withObject "GcsDestination"

472− (\ o -> GcsDestination' <$> (o .:? "uri"))

488+ (\ o ->

489+ GcsDestination' <$>

490+ (o .:? "uriPrefix") <*> (o .:? "uri"))

473491

474492instance ToJSON GcsDestination where

475493 toJSON GcsDestination'{..}

476− = object (catMaybes [("uri" .=) <$> _gdURI])

494+ = object

495+ (catMaybes

496+ [("uriPrefix" .=) <$> _gdURIPrefix,

497+ ("uri" .=) <$> _gdURI])

477498

478499--

479500-- /See:/ 'statusDetailsItem' smart constructor.

@@ -556,8 +577,8 @@ earReadTime

556577 mapping _DateTime

557578

558579-- | A list of asset types of which to take a snapshot for. For example:

559−-- \"google.compute.Disk\". If specified, only matching assets will be

560−-- returned. See [Introduction to Cloud Asset

580+-- \"compute.googleapis.com\/Disk\". If specified, only matching assets

581+-- will be returned. See [Introduction to Cloud Asset

561582-- Inventory](https:\/\/cloud.google.com\/resource-manager\/docs\/cloud-asset-inventory\/overview)

562583-- for all supported asset types.

563584earAssetTypes :: Lens' ExportAssetsRequest [Text]

@@ -1212,8 +1233,8 @@ binding =

12121233-- that represents a service account. For example,

12131234-- \`my-other-app\'appspot.gserviceaccount.com\`. * \`group:{emailid}\`: An

12141235-- email address that represents a Google group. For example,

1215−-- \`admins\'example.com\`. * \`domain:{domain}\`: A Google Apps domain

1216−-- name that represents all the users of that domain. For example,

1236+-- \`admins\'example.com\`. * \`domain:{domain}\`: The G Suite domain

1237+-- (primary) that represents all the users of that domain. For example,

12171238-- \`google.com\` or \`example.com\`.

12181239bMembers :: Lens' Binding [Text]

12191240bMembers

@@ -1226,10 +1247,9 @@ bMembers

12261247bRole :: Lens' Binding (Maybe Text)

12271248bRole = lens _bRole (\ s a -> s{_bRole = a})

12281249

1229−-- | Unimplemented. The condition that is associated with this binding. NOTE:

1230−-- an unsatisfied condition will not allow user access via current binding.

1231−-- Different bindings, including their conditions, are examined

1232−-- independently.

1250+-- | The condition that is associated with this binding. NOTE: An unsatisfied

1251+-- condition will not allow user access via current binding. Different

1252+-- bindings, including their conditions, are examined independently.

12331253bCondition :: Lens' Binding (Maybe Expr)

12341254bCondition

12351255 = lens _bCondition (\ s a -> s{_bCondition = a})

gogol-cloudasset/gen/Network/Google/Resource/CloudAsset/BatchGetAssetsHistory.hsnew file+230

@@ -0,0 +1,230 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.CloudAsset.BatchGetAssetsHistory

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Batch gets the update history of assets that overlap a time window. For

24+-- RESOURCE content, this API outputs history with asset in both non-delete

25+-- or deleted status. For IAM_POLICY content, this API outputs history when

26+-- the asset and its attached IAM POLICY both exist. This can create gaps

27+-- in the output history. If a specified asset does not exist, this API

28+-- returns an INVALID_ARGUMENT error.

29+--

30+-- /See:/ <https://cloud.google.com/resource-manager/docs/cloud-asset-inventory/quickstart-cloud-asset-inventory Cloud Asset API Reference> for @cloudasset.batchGetAssetsHistory@.

31+module Network.Google.Resource.CloudAsset.BatchGetAssetsHistory

32+ (

33+ -- * REST Resource

34+ BatchGetAssetsHistoryResource

35+

36+ -- * Creating a Request

37+ , batchGetAssetsHistory

38+ , BatchGetAssetsHistory

39+

40+ -- * Request Lenses

41+ , bgahParent

42+ , bgahXgafv

43+ , bgahReadTimeWindowEndTime

44+ , bgahUploadProtocol

45+ , bgahAccessToken

46+ , bgahUploadType

47+ , bgahAssetNames

48+ , bgahReadTimeWindowStartTime

49+ , bgahContentType

50+ , bgahCallback

51+ ) where

52+

53+import Network.Google.CloudAsset.Types

54+import Network.Google.Prelude

55+

56+-- | A resource alias for @cloudasset.batchGetAssetsHistory@ method which the

57+-- 'BatchGetAssetsHistory' request conforms to.

58+type BatchGetAssetsHistoryResource =

59+ "v1" :>

60+ CaptureMode "parent" "batchGetAssetsHistory" Text :>

61+ QueryParam "$.xgafv" Xgafv :>

62+ QueryParam "readTimeWindow.endTime" DateTime' :>

63+ QueryParam "upload_protocol" Text :>

64+ QueryParam "access_token" Text :>

65+ QueryParam "uploadType" Text :>

66+ QueryParams "assetNames" Text :>

67+ QueryParam "readTimeWindow.startTime" DateTime' :>

68+ QueryParam "contentType" Text :>

69+ QueryParam "callback" Text :>

70+ QueryParam "alt" AltJSON :>

71+ Get '[JSON] BatchGetAssetsHistoryResponse

72+

73+-- | Batch gets the update history of assets that overlap a time window. For

74+-- RESOURCE content, this API outputs history with asset in both non-delete

75+-- or deleted status. For IAM_POLICY content, this API outputs history when

76+-- the asset and its attached IAM POLICY both exist. This can create gaps

77+-- in the output history. If a specified asset does not exist, this API

78+-- returns an INVALID_ARGUMENT error.

79+--

80+-- /See:/ 'batchGetAssetsHistory' smart constructor.

81+data BatchGetAssetsHistory =

82+ BatchGetAssetsHistory'

83+ { _bgahParent :: !Text

84+ , _bgahXgafv :: !(Maybe Xgafv)

85+ , _bgahReadTimeWindowEndTime :: !(Maybe DateTime')

86+ , _bgahUploadProtocol :: !(Maybe Text)

87+ , _bgahAccessToken :: !(Maybe Text)

88+ , _bgahUploadType :: !(Maybe Text)

89+ , _bgahAssetNames :: !(Maybe [Text])

90+ , _bgahReadTimeWindowStartTime :: !(Maybe DateTime')

91+ , _bgahContentType :: !(Maybe Text)

92+ , _bgahCallback :: !(Maybe Text)

93+ }

94+ deriving (Eq, Show, Data, Typeable, Generic)

95+

96+

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

98+--

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

100+--

101+-- * 'bgahParent'

102+--

103+-- * 'bgahXgafv'

104+--

105+-- * 'bgahReadTimeWindowEndTime'

106+--

107+-- * 'bgahUploadProtocol'

108+--

109+-- * 'bgahAccessToken'

110+--

111+-- * 'bgahUploadType'

112+--

113+-- * 'bgahAssetNames'

114+--

115+-- * 'bgahReadTimeWindowStartTime'

116+--

117+-- * 'bgahContentType'

118+--

119+-- * 'bgahCallback'

120+batchGetAssetsHistory

121+ :: Text -- ^ 'bgahParent'

122+ -> BatchGetAssetsHistory

123+batchGetAssetsHistory pBgahParent_ =

124+ BatchGetAssetsHistory'

125+ { _bgahParent = pBgahParent_

126+ , _bgahXgafv = Nothing

127+ , _bgahReadTimeWindowEndTime = Nothing

128+ , _bgahUploadProtocol = Nothing

129+ , _bgahAccessToken = Nothing

130+ , _bgahUploadType = Nothing

131+ , _bgahAssetNames = Nothing

132+ , _bgahReadTimeWindowStartTime = Nothing

133+ , _bgahContentType = Nothing

134+ , _bgahCallback = Nothing

135+ }

136+

137+

138+-- | Required. The relative name of the root asset. It can only be an

139+-- organization number (such as \"organizations\/123\"), a project ID (such

140+-- as \"projects\/my-project-id\")\", or a project number (such as

141+-- \"projects\/12345\").

142+bgahParent :: Lens' BatchGetAssetsHistory Text

143+bgahParent

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

145+

146+-- | V1 error format.

147+bgahXgafv :: Lens' BatchGetAssetsHistory (Maybe Xgafv)

148+bgahXgafv

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

150+

151+-- | End time of the time window (inclusive). Current timestamp if not

152+-- specified.

153+bgahReadTimeWindowEndTime :: Lens' BatchGetAssetsHistory (Maybe UTCTime)

154+bgahReadTimeWindowEndTime

155+ = lens _bgahReadTimeWindowEndTime

156+ (\ s a -> s{_bgahReadTimeWindowEndTime = a})

157+ . mapping _DateTime

158+

159+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

160+bgahUploadProtocol :: Lens' BatchGetAssetsHistory (Maybe Text)

161+bgahUploadProtocol

162+ = lens _bgahUploadProtocol

163+ (\ s a -> s{_bgahUploadProtocol = a})

164+

165+-- | OAuth access token.

166+bgahAccessToken :: Lens' BatchGetAssetsHistory (Maybe Text)

167+bgahAccessToken

168+ = lens _bgahAccessToken

169+ (\ s a -> s{_bgahAccessToken = a})

170+

171+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

172+bgahUploadType :: Lens' BatchGetAssetsHistory (Maybe Text)

173+bgahUploadType

174+ = lens _bgahUploadType

175+ (\ s a -> s{_bgahUploadType = a})

176+

177+-- | A list of the full names of the assets. For example:

178+-- \`\/\/compute.googleapis.com\/projects\/my_project_123\/zones\/zone1\/instances\/instance1\`.

179+-- See [Resource

180+-- Names](https:\/\/cloud.google.com\/apis\/design\/resource_names#full_resource_name)

181+-- and [Resource Name

182+-- Format](https:\/\/cloud.google.com\/resource-manager\/docs\/cloud-asset-inventory\/resource-name-format)

183+-- for more info. The request becomes a no-op if the asset name list is

184+-- empty, and the max size of the asset name list is 100 in one request.

185+bgahAssetNames :: Lens' BatchGetAssetsHistory [Text]

186+bgahAssetNames

187+ = lens _bgahAssetNames

188+ (\ s a -> s{_bgahAssetNames = a})

189+ . _Default

190+ . _Coerce

191+

192+-- | Start time of the time window (exclusive).

193+bgahReadTimeWindowStartTime :: Lens' BatchGetAssetsHistory (Maybe UTCTime)

194+bgahReadTimeWindowStartTime

195+ = lens _bgahReadTimeWindowStartTime

196+ (\ s a -> s{_bgahReadTimeWindowStartTime = a})

197+ . mapping _DateTime

198+

199+-- | Required. The content type.

200+bgahContentType :: Lens' BatchGetAssetsHistory (Maybe Text)

201+bgahContentType

202+ = lens _bgahContentType

203+ (\ s a -> s{_bgahContentType = a})

204+

205+-- | JSONP

206+bgahCallback :: Lens' BatchGetAssetsHistory (Maybe Text)

207+bgahCallback

208+ = lens _bgahCallback (\ s a -> s{_bgahCallback = a})

209+

210+instance GoogleRequest BatchGetAssetsHistory where

211+ type Rs BatchGetAssetsHistory =

212+ BatchGetAssetsHistoryResponse

213+ type Scopes BatchGetAssetsHistory =

214+ '["https://www.googleapis.com/auth/cloud-platform"]

215+ requestClient BatchGetAssetsHistory'{..}

216+ = go _bgahParent _bgahXgafv

217+ _bgahReadTimeWindowEndTime

218+ _bgahUploadProtocol

219+ _bgahAccessToken

220+ _bgahUploadType

221+ (_bgahAssetNames ^. _Default)

222+ _bgahReadTimeWindowStartTime

223+ _bgahContentType

224+ _bgahCallback

225+ (Just AltJSON)

226+ cloudAssetService

227+ where go

228+ = buildClient

229+ (Proxy :: Proxy BatchGetAssetsHistoryResource)

230+ mempty

gogol-cloudasset/gen/Network/Google/Resource/CloudAsset/ExportAssets.hsnew file+169

@@ -0,0 +1,169 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.CloudAsset.ExportAssets

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Exports assets with time and resource types to a given Cloud Storage

24+-- location. The output format is newline-delimited JSON. This API

25+-- implements the google.longrunning.Operation API allowing you to keep

26+-- track of the export.

27+--

28+-- /See:/ <https://cloud.google.com/resource-manager/docs/cloud-asset-inventory/quickstart-cloud-asset-inventory Cloud Asset API Reference> for @cloudasset.exportAssets@.

29+module Network.Google.Resource.CloudAsset.ExportAssets

30+ (

31+ -- * REST Resource

32+ ExportAssetsResource

33+

34+ -- * Creating a Request

35+ , exportAssets

36+ , ExportAssets

37+

38+ -- * Request Lenses

39+ , eaParent

40+ , eaXgafv

41+ , eaUploadProtocol

42+ , eaAccessToken

43+ , eaUploadType

44+ , eaPayload

45+ , eaCallback

46+ ) where

47+

48+import Network.Google.CloudAsset.Types

49+import Network.Google.Prelude

50+

51+-- | A resource alias for @cloudasset.exportAssets@ method which the

52+-- 'ExportAssets' request conforms to.

53+type ExportAssetsResource =

54+ "v1" :>

55+ CaptureMode "parent" "exportAssets" Text :>

56+ QueryParam "$.xgafv" Xgafv :>

57+ QueryParam "upload_protocol" Text :>

58+ QueryParam "access_token" Text :>

59+ QueryParam "uploadType" Text :>

60+ QueryParam "callback" Text :>

61+ QueryParam "alt" AltJSON :>

62+ ReqBody '[JSON] ExportAssetsRequest :>

63+ Post '[JSON] Operation

64+

65+-- | Exports assets with time and resource types to a given Cloud Storage

66+-- location. The output format is newline-delimited JSON. This API

67+-- implements the google.longrunning.Operation API allowing you to keep

68+-- track of the export.

69+--

70+-- /See:/ 'exportAssets' smart constructor.

71+data ExportAssets =

72+ ExportAssets'

73+ { _eaParent :: !Text

74+ , _eaXgafv :: !(Maybe Xgafv)

75+ , _eaUploadProtocol :: !(Maybe Text)

76+ , _eaAccessToken :: !(Maybe Text)

77+ , _eaUploadType :: !(Maybe Text)

78+ , _eaPayload :: !ExportAssetsRequest

79+ , _eaCallback :: !(Maybe Text)

80+ }

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

82+

83+

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

85+--

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

87+--

88+-- * 'eaParent'

89+--

90+-- * 'eaXgafv'

91+--

92+-- * 'eaUploadProtocol'

93+--

94+-- * 'eaAccessToken'

95+--

96+-- * 'eaUploadType'

97+--

98+-- * 'eaPayload'

99+--

100+-- * 'eaCallback'

101+exportAssets

102+ :: Text -- ^ 'eaParent'

103+ -> ExportAssetsRequest -- ^ 'eaPayload'

104+ -> ExportAssets

105+exportAssets pEaParent_ pEaPayload_ =

106+ ExportAssets'

107+ { _eaParent = pEaParent_

108+ , _eaXgafv = Nothing

109+ , _eaUploadProtocol = Nothing

110+ , _eaAccessToken = Nothing

111+ , _eaUploadType = Nothing

112+ , _eaPayload = pEaPayload_

113+ , _eaCallback = Nothing

114+ }

115+

116+

117+-- | Required. The relative name of the root asset. This can only be an

118+-- organization number (such as \"organizations\/123\"), a project ID (such

119+-- as \"projects\/my-project-id\"), or a project number (such as

120+-- \"projects\/12345\"), or a folder number (such as \"folders\/123\").

121+eaParent :: Lens' ExportAssets Text

122+eaParent = lens _eaParent (\ s a -> s{_eaParent = a})

123+

124+-- | V1 error format.

125+eaXgafv :: Lens' ExportAssets (Maybe Xgafv)

126+eaXgafv = lens _eaXgafv (\ s a -> s{_eaXgafv = a})

127+

128+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

129+eaUploadProtocol :: Lens' ExportAssets (Maybe Text)

130+eaUploadProtocol

131+ = lens _eaUploadProtocol

132+ (\ s a -> s{_eaUploadProtocol = a})

133+

134+-- | OAuth access token.

135+eaAccessToken :: Lens' ExportAssets (Maybe Text)

136+eaAccessToken

137+ = lens _eaAccessToken

138+ (\ s a -> s{_eaAccessToken = a})

139+

140+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

141+eaUploadType :: Lens' ExportAssets (Maybe Text)

142+eaUploadType

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

144+

145+-- | Multipart request metadata.

146+eaPayload :: Lens' ExportAssets ExportAssetsRequest

147+eaPayload

148+ = lens _eaPayload (\ s a -> s{_eaPayload = a})

149+

150+-- | JSONP

151+eaCallback :: Lens' ExportAssets (Maybe Text)

152+eaCallback

153+ = lens _eaCallback (\ s a -> s{_eaCallback = a})

154+

155+instance GoogleRequest ExportAssets where

156+ type Rs ExportAssets = Operation

157+ type Scopes ExportAssets =

158+ '["https://www.googleapis.com/auth/cloud-platform"]

159+ requestClient ExportAssets'{..}

160+ = go _eaParent _eaXgafv _eaUploadProtocol

161+ _eaAccessToken

162+ _eaUploadType

163+ _eaCallback

164+ (Just AltJSON)

165+ _eaPayload

166+ cloudAssetService

167+ where go

168+ = buildClient (Proxy :: Proxy ExportAssetsResource)

169+ mempty

gogol-cloudasset/gen/Network/Google/Resource/CloudAsset/Folders/ExportAssets.hsdeleted−172

@@ -1,172 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE FlexibleInstances #-}

5−{-# LANGUAGE NoImplicitPrelude #-}

6−{-# LANGUAGE OverloadedStrings #-}

7−{-# LANGUAGE RecordWildCards #-}

8−{-# LANGUAGE TypeFamilies #-}

9−{-# LANGUAGE TypeOperators #-}

10−

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

12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14−

15−-- |

16−-- Module : Network.Google.Resource.CloudAsset.Folders.ExportAssets

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

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

20−-- Stability : auto-generated

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

22−--

23−-- Exports assets with time and resource types to a given Cloud Storage

24−-- location. The output format is newline-delimited JSON. This API

25−-- implements the google.longrunning.Operation API allowing you to keep

26−-- track of the export.

27−--

28−-- /See:/ <https://console.cloud.google.com/apis/api/cloudasset.googleapis.com/overview Cloud Asset API Reference> for @cloudasset.folders.exportAssets@.

29−module Network.Google.Resource.CloudAsset.Folders.ExportAssets

30− (

31− -- * REST Resource

32− FoldersExportAssetsResource

33−

34− -- * Creating a Request

35− , foldersExportAssets

36− , FoldersExportAssets

37−

38− -- * Request Lenses

39− , feaParent

40− , feaXgafv

41− , feaUploadProtocol

42− , feaAccessToken

43− , feaUploadType

44− , feaPayload

45− , feaCallback

46− ) where

47−

48−import Network.Google.CloudAsset.Types

49−import Network.Google.Prelude

50−

51−-- | A resource alias for @cloudasset.folders.exportAssets@ method which the

52−-- 'FoldersExportAssets' request conforms to.

53−type FoldersExportAssetsResource =

54− "v1beta1" :>

55− CaptureMode "parent" "exportAssets" Text :>

56− QueryParam "$.xgafv" Xgafv :>

57− QueryParam "upload_protocol" Text :>

58− QueryParam "access_token" Text :>

59− QueryParam "uploadType" Text :>

60− QueryParam "callback" Text :>

61− QueryParam "alt" AltJSON :>

62− ReqBody '[JSON] ExportAssetsRequest :>

63− Post '[JSON] Operation

64−

65−-- | Exports assets with time and resource types to a given Cloud Storage

66−-- location. The output format is newline-delimited JSON. This API

67−-- implements the google.longrunning.Operation API allowing you to keep

68−-- track of the export.

69−--

70−-- /See:/ 'foldersExportAssets' smart constructor.

71−data FoldersExportAssets =

72− FoldersExportAssets'

73− { _feaParent :: !Text

74− , _feaXgafv :: !(Maybe Xgafv)

75− , _feaUploadProtocol :: !(Maybe Text)

76− , _feaAccessToken :: !(Maybe Text)

77− , _feaUploadType :: !(Maybe Text)

78− , _feaPayload :: !ExportAssetsRequest

79− , _feaCallback :: !(Maybe Text)

80− }

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

82−

83−

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

85−--

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

87−--

88−-- * 'feaParent'

89−--

90−-- * 'feaXgafv'

91−--

92−-- * 'feaUploadProtocol'

93−--

94−-- * 'feaAccessToken'

95−--

96−-- * 'feaUploadType'

97−--

98−-- * 'feaPayload'

99−--

100−-- * 'feaCallback'

101−foldersExportAssets

102− :: Text -- ^ 'feaParent'

103− -> ExportAssetsRequest -- ^ 'feaPayload'

104− -> FoldersExportAssets

105−foldersExportAssets pFeaParent_ pFeaPayload_ =

106− FoldersExportAssets'

107− { _feaParent = pFeaParent_

108− , _feaXgafv = Nothing

109− , _feaUploadProtocol = Nothing

110− , _feaAccessToken = Nothing

111− , _feaUploadType = Nothing

112− , _feaPayload = pFeaPayload_

113− , _feaCallback = Nothing

114− }

115−

116−

117−-- | Required. The relative name of the root asset. This can only be an

118−-- organization number (such as \"organizations\/123\"), a project ID (such

119−-- as \"projects\/my-project-id\"), a project number (such as

120−-- \"projects\/12345\"), or a folder number (such as \"folders\/123\").

121−feaParent :: Lens' FoldersExportAssets Text

122−feaParent

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

124−

125−-- | V1 error format.

126−feaXgafv :: Lens' FoldersExportAssets (Maybe Xgafv)

127−feaXgafv = lens _feaXgafv (\ s a -> s{_feaXgafv = a})

128−

129−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

130−feaUploadProtocol :: Lens' FoldersExportAssets (Maybe Text)

131−feaUploadProtocol

132− = lens _feaUploadProtocol

133− (\ s a -> s{_feaUploadProtocol = a})

134−

135−-- | OAuth access token.

136−feaAccessToken :: Lens' FoldersExportAssets (Maybe Text)

137−feaAccessToken

138− = lens _feaAccessToken

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

140−

141−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

142−feaUploadType :: Lens' FoldersExportAssets (Maybe Text)

143−feaUploadType

144− = lens _feaUploadType

145− (\ s a -> s{_feaUploadType = a})

146−

147−-- | Multipart request metadata.

148−feaPayload :: Lens' FoldersExportAssets ExportAssetsRequest

149−feaPayload

150− = lens _feaPayload (\ s a -> s{_feaPayload = a})

151−

152−-- | JSONP

153−feaCallback :: Lens' FoldersExportAssets (Maybe Text)

154−feaCallback

155− = lens _feaCallback (\ s a -> s{_feaCallback = a})

156−

157−instance GoogleRequest FoldersExportAssets where

158− type Rs FoldersExportAssets = Operation

159− type Scopes FoldersExportAssets =

160− '["https://www.googleapis.com/auth/cloud-platform"]

161− requestClient FoldersExportAssets'{..}

162− = go _feaParent _feaXgafv _feaUploadProtocol

163− _feaAccessToken

164− _feaUploadType

165− _feaCallback

166− (Just AltJSON)

167− _feaPayload

168− cloudAssetService

169− where go

170− = buildClient

171− (Proxy :: Proxy FoldersExportAssetsResource)

172− mempty

gogol-cloudasset/gen/Network/Google/Resource/CloudAsset/Folders/Operations/Get.hsdeleted−152

@@ -1,152 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE FlexibleInstances #-}

5−{-# LANGUAGE NoImplicitPrelude #-}

6−{-# LANGUAGE OverloadedStrings #-}

7−{-# LANGUAGE RecordWildCards #-}

8−{-# LANGUAGE TypeFamilies #-}

9−{-# LANGUAGE TypeOperators #-}

10−

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

12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14−

15−-- |

16−-- Module : Network.Google.Resource.CloudAsset.Folders.Operations.Get

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

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

20−-- Stability : auto-generated

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

22−--

23−-- Gets the latest state of a long-running operation. Clients can use this

24−-- method to poll the operation result at intervals as recommended by the

25−-- API service.

26−--

27−-- /See:/ <https://console.cloud.google.com/apis/api/cloudasset.googleapis.com/overview Cloud Asset API Reference> for @cloudasset.folders.operations.get@.

28−module Network.Google.Resource.CloudAsset.Folders.Operations.Get

29− (

30− -- * REST Resource

31− FoldersOperationsGetResource

32−

33− -- * Creating a Request

34− , foldersOperationsGet

35− , FoldersOperationsGet

36−

37− -- * Request Lenses

38− , fogXgafv

39− , fogUploadProtocol

40− , fogAccessToken

41− , fogUploadType

42− , fogName

43− , fogCallback

44− ) where

45−

46−import Network.Google.CloudAsset.Types

47−import Network.Google.Prelude

48−

49−-- | A resource alias for @cloudasset.folders.operations.get@ method which the

50−-- 'FoldersOperationsGet' request conforms to.

51−type FoldersOperationsGetResource =

52− "v1beta1" :>

53− Capture "name" Text :>

54− QueryParam "$.xgafv" Xgafv :>

55− QueryParam "upload_protocol" Text :>

56− QueryParam "access_token" Text :>

57− QueryParam "uploadType" Text :>

58− QueryParam "callback" Text :>

59− QueryParam "alt" AltJSON :> Get '[JSON] Operation

60−

61−-- | Gets the latest state of a long-running operation. Clients can use this

62−-- method to poll the operation result at intervals as recommended by the

63−-- API service.

64−--

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

66−data FoldersOperationsGet =

67− FoldersOperationsGet'

68− { _fogXgafv :: !(Maybe Xgafv)

69− , _fogUploadProtocol :: !(Maybe Text)

70− , _fogAccessToken :: !(Maybe Text)

71− , _fogUploadType :: !(Maybe Text)

72− , _fogName :: !Text

73− , _fogCallback :: !(Maybe Text)

74− }

75− deriving (Eq, Show, Data, Typeable, Generic)

76−

77−

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

79−--

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

81−--

82−-- * 'fogXgafv'

83−--

84−-- * 'fogUploadProtocol'

85−--

86−-- * 'fogAccessToken'

87−--

88−-- * 'fogUploadType'

89−--

90−-- * 'fogName'

91−--

92−-- * 'fogCallback'

93−foldersOperationsGet

94− :: Text -- ^ 'fogName'

95− -> FoldersOperationsGet

96−foldersOperationsGet pFogName_ =

97− FoldersOperationsGet'

98− { _fogXgafv = Nothing

99− , _fogUploadProtocol = Nothing

100− , _fogAccessToken = Nothing

101− , _fogUploadType = Nothing

102− , _fogName = pFogName_

103− , _fogCallback = Nothing

104− }

105−

106−

107−-- | V1 error format.

108−fogXgafv :: Lens' FoldersOperationsGet (Maybe Xgafv)

109−fogXgafv = lens _fogXgafv (\ s a -> s{_fogXgafv = a})

110−

111−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

112−fogUploadProtocol :: Lens' FoldersOperationsGet (Maybe Text)

113−fogUploadProtocol

114− = lens _fogUploadProtocol

115− (\ s a -> s{_fogUploadProtocol = a})

116−

117−-- | OAuth access token.

118−fogAccessToken :: Lens' FoldersOperationsGet (Maybe Text)

119−fogAccessToken

120− = lens _fogAccessToken

121− (\ s a -> s{_fogAccessToken = a})

122−

123−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

124−fogUploadType :: Lens' FoldersOperationsGet (Maybe Text)

125−fogUploadType

126− = lens _fogUploadType

127− (\ s a -> s{_fogUploadType = a})

128−

129−-- | The name of the operation resource.

130−fogName :: Lens' FoldersOperationsGet Text

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

132−

133−-- | JSONP

134−fogCallback :: Lens' FoldersOperationsGet (Maybe Text)

135−fogCallback

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

137−

138−instance GoogleRequest FoldersOperationsGet where

139− type Rs FoldersOperationsGet = Operation

140− type Scopes FoldersOperationsGet =

141− '["https://www.googleapis.com/auth/cloud-platform"]

142− requestClient FoldersOperationsGet'{..}

143− = go _fogName _fogXgafv _fogUploadProtocol

144− _fogAccessToken

145− _fogUploadType

146− _fogCallback

147− (Just AltJSON)

148− cloudAssetService

149− where go

150− = buildClient

151− (Proxy :: Proxy FoldersOperationsGetResource)

152− mempty

gogol-cloudasset/gen/Network/Google/Resource/CloudAsset/Operations/Get.hsnew file+150

@@ -0,0 +1,150 @@

1+{-# LANGUAGE DataKinds #-}

2+{-# LANGUAGE DeriveDataTypeable #-}

3+{-# LANGUAGE DeriveGeneric #-}

4+{-# LANGUAGE FlexibleInstances #-}

5+{-# LANGUAGE NoImplicitPrelude #-}

6+{-# LANGUAGE OverloadedStrings #-}

7+{-# LANGUAGE RecordWildCards #-}

8+{-# LANGUAGE TypeFamilies #-}

9+{-# LANGUAGE TypeOperators #-}

10+

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

12+{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14+

15+-- |

16+-- Module : Network.Google.Resource.CloudAsset.Operations.Get

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

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

20+-- Stability : auto-generated

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

22+--

23+-- Gets the latest state of a long-running operation. Clients can use this

24+-- method to poll the operation result at intervals as recommended by the

25+-- API service.

26+--

27+-- /See:/ <https://cloud.google.com/resource-manager/docs/cloud-asset-inventory/quickstart-cloud-asset-inventory Cloud Asset API Reference> for @cloudasset.operations.get@.

28+module Network.Google.Resource.CloudAsset.Operations.Get

29+ (

30+ -- * REST Resource

31+ OperationsGetResource

32+

33+ -- * Creating a Request

34+ , operationsGet

35+ , OperationsGet

36+

37+ -- * Request Lenses

38+ , ogXgafv

39+ , ogUploadProtocol

40+ , ogAccessToken

41+ , ogUploadType

42+ , ogName

43+ , ogCallback

44+ ) where

45+

46+import Network.Google.CloudAsset.Types

47+import Network.Google.Prelude

48+

49+-- | A resource alias for @cloudasset.operations.get@ method which the

50+-- 'OperationsGet' request conforms to.

51+type OperationsGetResource =

52+ "v1" :>

53+ Capture "name" Text :>

54+ QueryParam "$.xgafv" Xgafv :>

55+ QueryParam "upload_protocol" Text :>

56+ QueryParam "access_token" Text :>

57+ QueryParam "uploadType" Text :>

58+ QueryParam "callback" Text :>

59+ QueryParam "alt" AltJSON :> Get '[JSON] Operation

60+

61+-- | Gets the latest state of a long-running operation. Clients can use this

62+-- method to poll the operation result at intervals as recommended by the

63+-- API service.

64+--

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

66+data OperationsGet =

67+ OperationsGet'

68+ { _ogXgafv :: !(Maybe Xgafv)

69+ , _ogUploadProtocol :: !(Maybe Text)

70+ , _ogAccessToken :: !(Maybe Text)

71+ , _ogUploadType :: !(Maybe Text)

72+ , _ogName :: !Text

73+ , _ogCallback :: !(Maybe Text)

74+ }

75+ deriving (Eq, Show, Data, Typeable, Generic)

76+

77+

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

79+--

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

81+--

82+-- * 'ogXgafv'

83+--

84+-- * 'ogUploadProtocol'

85+--

86+-- * 'ogAccessToken'

87+--

88+-- * 'ogUploadType'

89+--

90+-- * 'ogName'

91+--

92+-- * 'ogCallback'

93+operationsGet

94+ :: Text -- ^ 'ogName'

95+ -> OperationsGet

96+operationsGet pOgName_ =

97+ OperationsGet'

98+ { _ogXgafv = Nothing

99+ , _ogUploadProtocol = Nothing

100+ , _ogAccessToken = Nothing

101+ , _ogUploadType = Nothing

102+ , _ogName = pOgName_

103+ , _ogCallback = Nothing

104+ }

105+

106+

107+-- | V1 error format.

108+ogXgafv :: Lens' OperationsGet (Maybe Xgafv)

109+ogXgafv = lens _ogXgafv (\ s a -> s{_ogXgafv = a})

110+

111+-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

112+ogUploadProtocol :: Lens' OperationsGet (Maybe Text)

113+ogUploadProtocol

114+ = lens _ogUploadProtocol

115+ (\ s a -> s{_ogUploadProtocol = a})

116+

117+-- | OAuth access token.

118+ogAccessToken :: Lens' OperationsGet (Maybe Text)

119+ogAccessToken

120+ = lens _ogAccessToken

121+ (\ s a -> s{_ogAccessToken = a})

122+

123+-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

124+ogUploadType :: Lens' OperationsGet (Maybe Text)

125+ogUploadType

126+ = lens _ogUploadType (\ s a -> s{_ogUploadType = a})

127+

128+-- | The name of the operation resource.

129+ogName :: Lens' OperationsGet Text

130+ogName = lens _ogName (\ s a -> s{_ogName = a})

131+

132+-- | JSONP

133+ogCallback :: Lens' OperationsGet (Maybe Text)

134+ogCallback

135+ = lens _ogCallback (\ s a -> s{_ogCallback = a})

136+

137+instance GoogleRequest OperationsGet where

138+ type Rs OperationsGet = Operation

139+ type Scopes OperationsGet =

140+ '["https://www.googleapis.com/auth/cloud-platform"]

141+ requestClient OperationsGet'{..}

142+ = go _ogName _ogXgafv _ogUploadProtocol

143+ _ogAccessToken

144+ _ogUploadType

145+ _ogCallback

146+ (Just AltJSON)

147+ cloudAssetService

148+ where go

149+ = buildClient (Proxy :: Proxy OperationsGetResource)

150+ mempty

gogol-cloudasset/gen/Network/Google/Resource/CloudAsset/Organizations/BatchGetAssetsHistory.hsdeleted−232

@@ -1,232 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE FlexibleInstances #-}

5−{-# LANGUAGE NoImplicitPrelude #-}

6−{-# LANGUAGE OverloadedStrings #-}

7−{-# LANGUAGE RecordWildCards #-}

8−{-# LANGUAGE TypeFamilies #-}

9−{-# LANGUAGE TypeOperators #-}

10−

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

12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14−

15−-- |

16−-- Module : Network.Google.Resource.CloudAsset.Organizations.BatchGetAssetsHistory

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

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

20−-- Stability : auto-generated

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

22−--

23−-- Batch gets the update history of assets that overlap a time window. For

24−-- RESOURCE content, this API outputs history with asset in both non-delete

25−-- or deleted status. For IAM_POLICY content, this API outputs history when

26−-- the asset and its attached IAM POLICY both exist. This can create gaps

27−-- in the output history. If a specified asset does not exist, this API

28−-- returns an INVALID_ARGUMENT error.

29−--

30−-- /See:/ <https://console.cloud.google.com/apis/api/cloudasset.googleapis.com/overview Cloud Asset API Reference> for @cloudasset.organizations.batchGetAssetsHistory@.

31−module Network.Google.Resource.CloudAsset.Organizations.BatchGetAssetsHistory

32− (

33− -- * REST Resource

34− OrganizationsBatchGetAssetsHistoryResource

35−

36− -- * Creating a Request

37− , organizationsBatchGetAssetsHistory

38− , OrganizationsBatchGetAssetsHistory

39−

40− -- * Request Lenses

41− , obgahParent

42− , obgahXgafv

43− , obgahReadTimeWindowEndTime

44− , obgahUploadProtocol

45− , obgahAccessToken

46− , obgahUploadType

47− , obgahAssetNames

48− , obgahReadTimeWindowStartTime

49− , obgahContentType

50− , obgahCallback

51− ) where

52−

53−import Network.Google.CloudAsset.Types

54−import Network.Google.Prelude

55−

56−-- | A resource alias for @cloudasset.organizations.batchGetAssetsHistory@ method which the

57−-- 'OrganizationsBatchGetAssetsHistory' request conforms to.

58−type OrganizationsBatchGetAssetsHistoryResource =

59− "v1beta1" :>

60− CaptureMode "parent" "batchGetAssetsHistory" Text :>

61− QueryParam "$.xgafv" Xgafv :>

62− QueryParam "readTimeWindow.endTime" DateTime' :>

63− QueryParam "upload_protocol" Text :>

64− QueryParam "access_token" Text :>

65− QueryParam "uploadType" Text :>

66− QueryParams "assetNames" Text :>

67− QueryParam "readTimeWindow.startTime" DateTime' :>

68− QueryParam "contentType" Text :>

69− QueryParam "callback" Text :>

70− QueryParam "alt" AltJSON :>

71− Get '[JSON] BatchGetAssetsHistoryResponse

72−

73−-- | Batch gets the update history of assets that overlap a time window. For

74−-- RESOURCE content, this API outputs history with asset in both non-delete

75−-- or deleted status. For IAM_POLICY content, this API outputs history when

76−-- the asset and its attached IAM POLICY both exist. This can create gaps

77−-- in the output history. If a specified asset does not exist, this API

78−-- returns an INVALID_ARGUMENT error.

79−--

80−-- /See:/ 'organizationsBatchGetAssetsHistory' smart constructor.

81−data OrganizationsBatchGetAssetsHistory =

82− OrganizationsBatchGetAssetsHistory'

83− { _obgahParent :: !Text

84− , _obgahXgafv :: !(Maybe Xgafv)

85− , _obgahReadTimeWindowEndTime :: !(Maybe DateTime')

86− , _obgahUploadProtocol :: !(Maybe Text)

87− , _obgahAccessToken :: !(Maybe Text)

88− , _obgahUploadType :: !(Maybe Text)

89− , _obgahAssetNames :: !(Maybe [Text])

90− , _obgahReadTimeWindowStartTime :: !(Maybe DateTime')

91− , _obgahContentType :: !(Maybe Text)

92− , _obgahCallback :: !(Maybe Text)

93− }

94− deriving (Eq, Show, Data, Typeable, Generic)

95−

96−

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

98−--

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

100−--

101−-- * 'obgahParent'

102−--

103−-- * 'obgahXgafv'

104−--

105−-- * 'obgahReadTimeWindowEndTime'

106−--

107−-- * 'obgahUploadProtocol'

108−--

109−-- * 'obgahAccessToken'

110−--

111−-- * 'obgahUploadType'

112−--

113−-- * 'obgahAssetNames'

114−--

115−-- * 'obgahReadTimeWindowStartTime'

116−--

117−-- * 'obgahContentType'

118−--

119−-- * 'obgahCallback'

120−organizationsBatchGetAssetsHistory

121− :: Text -- ^ 'obgahParent'

122− -> OrganizationsBatchGetAssetsHistory

123−organizationsBatchGetAssetsHistory pObgahParent_ =

124− OrganizationsBatchGetAssetsHistory'

125− { _obgahParent = pObgahParent_

126− , _obgahXgafv = Nothing

127− , _obgahReadTimeWindowEndTime = Nothing

128− , _obgahUploadProtocol = Nothing

129− , _obgahAccessToken = Nothing

130− , _obgahUploadType = Nothing

131− , _obgahAssetNames = Nothing

132− , _obgahReadTimeWindowStartTime = Nothing

133− , _obgahContentType = Nothing

134− , _obgahCallback = Nothing

135− }

136−

137−

138−-- | Required. The relative name of the root asset. It can only be an

139−-- organization number (such as \"organizations\/123\"), a project ID (such

140−-- as \"projects\/my-project-id\")\", or a project number (such as

141−-- \"projects\/12345\").

142−obgahParent :: Lens' OrganizationsBatchGetAssetsHistory Text

143−obgahParent

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

145−

146−-- | V1 error format.

147−obgahXgafv :: Lens' OrganizationsBatchGetAssetsHistory (Maybe Xgafv)

148−obgahXgafv

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

150−

151−-- | End time of the time window (inclusive). Current timestamp if not

152−-- specified.

153−obgahReadTimeWindowEndTime :: Lens' OrganizationsBatchGetAssetsHistory (Maybe UTCTime)

154−obgahReadTimeWindowEndTime

155− = lens _obgahReadTimeWindowEndTime

156− (\ s a -> s{_obgahReadTimeWindowEndTime = a})

157− . mapping _DateTime

158−

159−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

160−obgahUploadProtocol :: Lens' OrganizationsBatchGetAssetsHistory (Maybe Text)

161−obgahUploadProtocol

162− = lens _obgahUploadProtocol

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

164−

165−-- | OAuth access token.

166−obgahAccessToken :: Lens' OrganizationsBatchGetAssetsHistory (Maybe Text)

167−obgahAccessToken

168− = lens _obgahAccessToken

169− (\ s a -> s{_obgahAccessToken = a})

170−

171−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

172−obgahUploadType :: Lens' OrganizationsBatchGetAssetsHistory (Maybe Text)

173−obgahUploadType

174− = lens _obgahUploadType

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

176−

177−-- | A list of the full names of the assets. For example:

178−-- \`\/\/compute.googleapis.com\/projects\/my_project_123\/zones\/zone1\/instances\/instance1\`.

179−-- See [Resource

180−-- Names](https:\/\/cloud.google.com\/apis\/design\/resource_names#full_resource_name)

181−-- for more info. The request becomes a no-op if the asset name list is

182−-- empty, and the max size of the asset name list is 100 in one request.

183−obgahAssetNames :: Lens' OrganizationsBatchGetAssetsHistory [Text]

184−obgahAssetNames

185− = lens _obgahAssetNames

186− (\ s a -> s{_obgahAssetNames = a})

187− . _Default

188− . _Coerce

189−

190−-- | Start time of the time window (exclusive).

191−obgahReadTimeWindowStartTime :: Lens' OrganizationsBatchGetAssetsHistory (Maybe UTCTime)

192−obgahReadTimeWindowStartTime

193− = lens _obgahReadTimeWindowStartTime

194− (\ s a -> s{_obgahReadTimeWindowStartTime = a})

195− . mapping _DateTime

196−

197−-- | Required. The content type.

198−obgahContentType :: Lens' OrganizationsBatchGetAssetsHistory (Maybe Text)

199−obgahContentType

200− = lens _obgahContentType

201− (\ s a -> s{_obgahContentType = a})

202−

203−-- | JSONP

204−obgahCallback :: Lens' OrganizationsBatchGetAssetsHistory (Maybe Text)

205−obgahCallback

206− = lens _obgahCallback

207− (\ s a -> s{_obgahCallback = a})

208−

209−instance GoogleRequest

210− OrganizationsBatchGetAssetsHistory

211− where

212− type Rs OrganizationsBatchGetAssetsHistory =

213− BatchGetAssetsHistoryResponse

214− type Scopes OrganizationsBatchGetAssetsHistory =

215− '["https://www.googleapis.com/auth/cloud-platform"]

216− requestClient OrganizationsBatchGetAssetsHistory'{..}

217− = go _obgahParent _obgahXgafv

218− _obgahReadTimeWindowEndTime

219− _obgahUploadProtocol

220− _obgahAccessToken

221− _obgahUploadType

222− (_obgahAssetNames ^. _Default)

223− _obgahReadTimeWindowStartTime

224− _obgahContentType

225− _obgahCallback

226− (Just AltJSON)

227− cloudAssetService

228− where go

229− = buildClient

230− (Proxy ::

231− Proxy OrganizationsBatchGetAssetsHistoryResource)

232− mempty

gogol-cloudasset/gen/Network/Google/Resource/CloudAsset/Organizations/ExportAssets.hsdeleted−173

@@ -1,173 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE FlexibleInstances #-}

5−{-# LANGUAGE NoImplicitPrelude #-}

6−{-# LANGUAGE OverloadedStrings #-}

7−{-# LANGUAGE RecordWildCards #-}

8−{-# LANGUAGE TypeFamilies #-}

9−{-# LANGUAGE TypeOperators #-}

10−

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

12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14−

15−-- |

16−-- Module : Network.Google.Resource.CloudAsset.Organizations.ExportAssets

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

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

20−-- Stability : auto-generated

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

22−--

23−-- Exports assets with time and resource types to a given Cloud Storage

24−-- location. The output format is newline-delimited JSON. This API

25−-- implements the google.longrunning.Operation API allowing you to keep

26−-- track of the export.

27−--

28−-- /See:/ <https://console.cloud.google.com/apis/api/cloudasset.googleapis.com/overview Cloud Asset API Reference> for @cloudasset.organizations.exportAssets@.

29−module Network.Google.Resource.CloudAsset.Organizations.ExportAssets

30− (

31− -- * REST Resource

32− OrganizationsExportAssetsResource

33−

34− -- * Creating a Request

35− , organizationsExportAssets

36− , OrganizationsExportAssets

37−

38− -- * Request Lenses

39− , oeaParent

40− , oeaXgafv

41− , oeaUploadProtocol

42− , oeaAccessToken

43− , oeaUploadType

44− , oeaPayload

45− , oeaCallback

46− ) where

47−

48−import Network.Google.CloudAsset.Types

49−import Network.Google.Prelude

50−

51−-- | A resource alias for @cloudasset.organizations.exportAssets@ method which the

52−-- 'OrganizationsExportAssets' request conforms to.

53−type OrganizationsExportAssetsResource =

54− "v1beta1" :>

55− CaptureMode "parent" "exportAssets" Text :>

56− QueryParam "$.xgafv" Xgafv :>

57− QueryParam "upload_protocol" Text :>

58− QueryParam "access_token" Text :>

59− QueryParam "uploadType" Text :>

60− QueryParam "callback" Text :>

61− QueryParam "alt" AltJSON :>

62− ReqBody '[JSON] ExportAssetsRequest :>

63− Post '[JSON] Operation

64−

65−-- | Exports assets with time and resource types to a given Cloud Storage

66−-- location. The output format is newline-delimited JSON. This API

67−-- implements the google.longrunning.Operation API allowing you to keep

68−-- track of the export.

69−--

70−-- /See:/ 'organizationsExportAssets' smart constructor.

71−data OrganizationsExportAssets =

72− OrganizationsExportAssets'

73− { _oeaParent :: !Text

74− , _oeaXgafv :: !(Maybe Xgafv)

75− , _oeaUploadProtocol :: !(Maybe Text)

76− , _oeaAccessToken :: !(Maybe Text)

77− , _oeaUploadType :: !(Maybe Text)

78− , _oeaPayload :: !ExportAssetsRequest

79− , _oeaCallback :: !(Maybe Text)

80− }

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

82−

83−

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

85−--

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

87−--

88−-- * 'oeaParent'

89−--

90−-- * 'oeaXgafv'

91−--

92−-- * 'oeaUploadProtocol'

93−--

94−-- * 'oeaAccessToken'

95−--

96−-- * 'oeaUploadType'

97−--

98−-- * 'oeaPayload'

99−--

100−-- * 'oeaCallback'

101−organizationsExportAssets

102− :: Text -- ^ 'oeaParent'

103− -> ExportAssetsRequest -- ^ 'oeaPayload'

104− -> OrganizationsExportAssets

105−organizationsExportAssets pOeaParent_ pOeaPayload_ =

106− OrganizationsExportAssets'

107− { _oeaParent = pOeaParent_

108− , _oeaXgafv = Nothing

109− , _oeaUploadProtocol = Nothing

110− , _oeaAccessToken = Nothing

111− , _oeaUploadType = Nothing

112− , _oeaPayload = pOeaPayload_

113− , _oeaCallback = Nothing

114− }

115−

116−

117−-- | Required. The relative name of the root asset. This can only be an

118−-- organization number (such as \"organizations\/123\"), a project ID (such

119−-- as \"projects\/my-project-id\"), a project number (such as

120−-- \"projects\/12345\"), or a folder number (such as \"folders\/123\").

121−oeaParent :: Lens' OrganizationsExportAssets Text

122−oeaParent

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

124−

125−-- | V1 error format.

126−oeaXgafv :: Lens' OrganizationsExportAssets (Maybe Xgafv)

127−oeaXgafv = lens _oeaXgafv (\ s a -> s{_oeaXgafv = a})

128−

129−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

130−oeaUploadProtocol :: Lens' OrganizationsExportAssets (Maybe Text)

131−oeaUploadProtocol

132− = lens _oeaUploadProtocol

133− (\ s a -> s{_oeaUploadProtocol = a})

134−

135−-- | OAuth access token.

136−oeaAccessToken :: Lens' OrganizationsExportAssets (Maybe Text)

137−oeaAccessToken

138− = lens _oeaAccessToken

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

140−

141−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

142−oeaUploadType :: Lens' OrganizationsExportAssets (Maybe Text)

143−oeaUploadType

144− = lens _oeaUploadType

145− (\ s a -> s{_oeaUploadType = a})

146−

147−-- | Multipart request metadata.

148−oeaPayload :: Lens' OrganizationsExportAssets ExportAssetsRequest

149−oeaPayload

150− = lens _oeaPayload (\ s a -> s{_oeaPayload = a})

151−

152−-- | JSONP

153−oeaCallback :: Lens' OrganizationsExportAssets (Maybe Text)

154−oeaCallback

155− = lens _oeaCallback (\ s a -> s{_oeaCallback = a})

156−

157−instance GoogleRequest OrganizationsExportAssets

158− where

159− type Rs OrganizationsExportAssets = Operation

160− type Scopes OrganizationsExportAssets =

161− '["https://www.googleapis.com/auth/cloud-platform"]

162− requestClient OrganizationsExportAssets'{..}

163− = go _oeaParent _oeaXgafv _oeaUploadProtocol

164− _oeaAccessToken

165− _oeaUploadType

166− _oeaCallback

167− (Just AltJSON)

168− _oeaPayload

169− cloudAssetService

170− where go

171− = buildClient

172− (Proxy :: Proxy OrganizationsExportAssetsResource)

173− mempty

gogol-cloudasset/gen/Network/Google/Resource/CloudAsset/Projects/BatchGetAssetsHistory.hsdeleted−231

@@ -1,231 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE FlexibleInstances #-}

5−{-# LANGUAGE NoImplicitPrelude #-}

6−{-# LANGUAGE OverloadedStrings #-}

7−{-# LANGUAGE RecordWildCards #-}

8−{-# LANGUAGE TypeFamilies #-}

9−{-# LANGUAGE TypeOperators #-}

10−

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

12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14−

15−-- |

16−-- Module : Network.Google.Resource.CloudAsset.Projects.BatchGetAssetsHistory

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

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

20−-- Stability : auto-generated

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

22−--

23−-- Batch gets the update history of assets that overlap a time window. For

24−-- RESOURCE content, this API outputs history with asset in both non-delete

25−-- or deleted status. For IAM_POLICY content, this API outputs history when

26−-- the asset and its attached IAM POLICY both exist. This can create gaps

27−-- in the output history. If a specified asset does not exist, this API

28−-- returns an INVALID_ARGUMENT error.

29−--

30−-- /See:/ <https://console.cloud.google.com/apis/api/cloudasset.googleapis.com/overview Cloud Asset API Reference> for @cloudasset.projects.batchGetAssetsHistory@.

31−module Network.Google.Resource.CloudAsset.Projects.BatchGetAssetsHistory

32− (

33− -- * REST Resource

34− ProjectsBatchGetAssetsHistoryResource

35−

36− -- * Creating a Request

37− , projectsBatchGetAssetsHistory

38− , ProjectsBatchGetAssetsHistory

39−

40− -- * Request Lenses

41− , pbgahParent

42− , pbgahXgafv

43− , pbgahReadTimeWindowEndTime

44− , pbgahUploadProtocol

45− , pbgahAccessToken

46− , pbgahUploadType

47− , pbgahAssetNames

48− , pbgahReadTimeWindowStartTime

49− , pbgahContentType

50− , pbgahCallback

51− ) where

52−

53−import Network.Google.CloudAsset.Types

54−import Network.Google.Prelude

55−

56−-- | A resource alias for @cloudasset.projects.batchGetAssetsHistory@ method which the

57−-- 'ProjectsBatchGetAssetsHistory' request conforms to.

58−type ProjectsBatchGetAssetsHistoryResource =

59− "v1beta1" :>

60− CaptureMode "parent" "batchGetAssetsHistory" Text :>

61− QueryParam "$.xgafv" Xgafv :>

62− QueryParam "readTimeWindow.endTime" DateTime' :>

63− QueryParam "upload_protocol" Text :>

64− QueryParam "access_token" Text :>

65− QueryParam "uploadType" Text :>

66− QueryParams "assetNames" Text :>

67− QueryParam "readTimeWindow.startTime" DateTime' :>

68− QueryParam "contentType" Text :>

69− QueryParam "callback" Text :>

70− QueryParam "alt" AltJSON :>

71− Get '[JSON] BatchGetAssetsHistoryResponse

72−

73−-- | Batch gets the update history of assets that overlap a time window. For

74−-- RESOURCE content, this API outputs history with asset in both non-delete

75−-- or deleted status. For IAM_POLICY content, this API outputs history when

76−-- the asset and its attached IAM POLICY both exist. This can create gaps

77−-- in the output history. If a specified asset does not exist, this API

78−-- returns an INVALID_ARGUMENT error.

79−--

80−-- /See:/ 'projectsBatchGetAssetsHistory' smart constructor.

81−data ProjectsBatchGetAssetsHistory =

82− ProjectsBatchGetAssetsHistory'

83− { _pbgahParent :: !Text

84− , _pbgahXgafv :: !(Maybe Xgafv)

85− , _pbgahReadTimeWindowEndTime :: !(Maybe DateTime')

86− , _pbgahUploadProtocol :: !(Maybe Text)

87− , _pbgahAccessToken :: !(Maybe Text)

88− , _pbgahUploadType :: !(Maybe Text)

89− , _pbgahAssetNames :: !(Maybe [Text])

90− , _pbgahReadTimeWindowStartTime :: !(Maybe DateTime')

91− , _pbgahContentType :: !(Maybe Text)

92− , _pbgahCallback :: !(Maybe Text)

93− }

94− deriving (Eq, Show, Data, Typeable, Generic)

95−

96−

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

98−--

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

100−--

101−-- * 'pbgahParent'

102−--

103−-- * 'pbgahXgafv'

104−--

105−-- * 'pbgahReadTimeWindowEndTime'

106−--

107−-- * 'pbgahUploadProtocol'

108−--

109−-- * 'pbgahAccessToken'

110−--

111−-- * 'pbgahUploadType'

112−--

113−-- * 'pbgahAssetNames'

114−--

115−-- * 'pbgahReadTimeWindowStartTime'

116−--

117−-- * 'pbgahContentType'

118−--

119−-- * 'pbgahCallback'

120−projectsBatchGetAssetsHistory

121− :: Text -- ^ 'pbgahParent'

122− -> ProjectsBatchGetAssetsHistory

123−projectsBatchGetAssetsHistory pPbgahParent_ =

124− ProjectsBatchGetAssetsHistory'

125− { _pbgahParent = pPbgahParent_

126− , _pbgahXgafv = Nothing

127− , _pbgahReadTimeWindowEndTime = Nothing

128− , _pbgahUploadProtocol = Nothing

129− , _pbgahAccessToken = Nothing

130− , _pbgahUploadType = Nothing

131− , _pbgahAssetNames = Nothing

132− , _pbgahReadTimeWindowStartTime = Nothing

133− , _pbgahContentType = Nothing

134− , _pbgahCallback = Nothing

135− }

136−

137−

138−-- | Required. The relative name of the root asset. It can only be an

139−-- organization number (such as \"organizations\/123\"), a project ID (such

140−-- as \"projects\/my-project-id\")\", or a project number (such as

141−-- \"projects\/12345\").

142−pbgahParent :: Lens' ProjectsBatchGetAssetsHistory Text

143−pbgahParent

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

145−

146−-- | V1 error format.

147−pbgahXgafv :: Lens' ProjectsBatchGetAssetsHistory (Maybe Xgafv)

148−pbgahXgafv

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

150−

151−-- | End time of the time window (inclusive). Current timestamp if not

152−-- specified.

153−pbgahReadTimeWindowEndTime :: Lens' ProjectsBatchGetAssetsHistory (Maybe UTCTime)

154−pbgahReadTimeWindowEndTime

155− = lens _pbgahReadTimeWindowEndTime

156− (\ s a -> s{_pbgahReadTimeWindowEndTime = a})

157− . mapping _DateTime

158−

159−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

160−pbgahUploadProtocol :: Lens' ProjectsBatchGetAssetsHistory (Maybe Text)

161−pbgahUploadProtocol

162− = lens _pbgahUploadProtocol

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

164−

165−-- | OAuth access token.

166−pbgahAccessToken :: Lens' ProjectsBatchGetAssetsHistory (Maybe Text)

167−pbgahAccessToken

168− = lens _pbgahAccessToken

169− (\ s a -> s{_pbgahAccessToken = a})

170−

171−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

172−pbgahUploadType :: Lens' ProjectsBatchGetAssetsHistory (Maybe Text)

173−pbgahUploadType

174− = lens _pbgahUploadType

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

176−

177−-- | A list of the full names of the assets. For example:

178−-- \`\/\/compute.googleapis.com\/projects\/my_project_123\/zones\/zone1\/instances\/instance1\`.

179−-- See [Resource

180−-- Names](https:\/\/cloud.google.com\/apis\/design\/resource_names#full_resource_name)

181−-- for more info. The request becomes a no-op if the asset name list is

182−-- empty, and the max size of the asset name list is 100 in one request.

183−pbgahAssetNames :: Lens' ProjectsBatchGetAssetsHistory [Text]

184−pbgahAssetNames

185− = lens _pbgahAssetNames

186− (\ s a -> s{_pbgahAssetNames = a})

187− . _Default

188− . _Coerce

189−

190−-- | Start time of the time window (exclusive).

191−pbgahReadTimeWindowStartTime :: Lens' ProjectsBatchGetAssetsHistory (Maybe UTCTime)

192−pbgahReadTimeWindowStartTime

193− = lens _pbgahReadTimeWindowStartTime

194− (\ s a -> s{_pbgahReadTimeWindowStartTime = a})

195− . mapping _DateTime

196−

197−-- | Required. The content type.

198−pbgahContentType :: Lens' ProjectsBatchGetAssetsHistory (Maybe Text)

199−pbgahContentType

200− = lens _pbgahContentType

201− (\ s a -> s{_pbgahContentType = a})

202−

203−-- | JSONP

204−pbgahCallback :: Lens' ProjectsBatchGetAssetsHistory (Maybe Text)

205−pbgahCallback

206− = lens _pbgahCallback

207− (\ s a -> s{_pbgahCallback = a})

208−

209−instance GoogleRequest ProjectsBatchGetAssetsHistory

210− where

211− type Rs ProjectsBatchGetAssetsHistory =

212− BatchGetAssetsHistoryResponse

213− type Scopes ProjectsBatchGetAssetsHistory =

214− '["https://www.googleapis.com/auth/cloud-platform"]

215− requestClient ProjectsBatchGetAssetsHistory'{..}

216− = go _pbgahParent _pbgahXgafv

217− _pbgahReadTimeWindowEndTime

218− _pbgahUploadProtocol

219− _pbgahAccessToken

220− _pbgahUploadType

221− (_pbgahAssetNames ^. _Default)

222− _pbgahReadTimeWindowStartTime

223− _pbgahContentType

224− _pbgahCallback

225− (Just AltJSON)

226− cloudAssetService

227− where go

228− = buildClient

229− (Proxy ::

230− Proxy ProjectsBatchGetAssetsHistoryResource)

231− mempty

gogol-cloudasset/gen/Network/Google/Resource/CloudAsset/Projects/ExportAssets.hsdeleted−172

@@ -1,172 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE FlexibleInstances #-}

5−{-# LANGUAGE NoImplicitPrelude #-}

6−{-# LANGUAGE OverloadedStrings #-}

7−{-# LANGUAGE RecordWildCards #-}

8−{-# LANGUAGE TypeFamilies #-}

9−{-# LANGUAGE TypeOperators #-}

10−

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

12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14−

15−-- |

16−-- Module : Network.Google.Resource.CloudAsset.Projects.ExportAssets

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

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

20−-- Stability : auto-generated

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

22−--

23−-- Exports assets with time and resource types to a given Cloud Storage

24−-- location. The output format is newline-delimited JSON. This API

25−-- implements the google.longrunning.Operation API allowing you to keep

26−-- track of the export.

27−--

28−-- /See:/ <https://console.cloud.google.com/apis/api/cloudasset.googleapis.com/overview Cloud Asset API Reference> for @cloudasset.projects.exportAssets@.

29−module Network.Google.Resource.CloudAsset.Projects.ExportAssets

30− (

31− -- * REST Resource

32− ProjectsExportAssetsResource

33−

34− -- * Creating a Request

35− , projectsExportAssets

36− , ProjectsExportAssets

37−

38− -- * Request Lenses

39− , peaParent

40− , peaXgafv

41− , peaUploadProtocol

42− , peaAccessToken

43− , peaUploadType

44− , peaPayload

45− , peaCallback

46− ) where

47−

48−import Network.Google.CloudAsset.Types

49−import Network.Google.Prelude

50−

51−-- | A resource alias for @cloudasset.projects.exportAssets@ method which the

52−-- 'ProjectsExportAssets' request conforms to.

53−type ProjectsExportAssetsResource =

54− "v1beta1" :>

55− CaptureMode "parent" "exportAssets" Text :>

56− QueryParam "$.xgafv" Xgafv :>

57− QueryParam "upload_protocol" Text :>

58− QueryParam "access_token" Text :>

59− QueryParam "uploadType" Text :>

60− QueryParam "callback" Text :>

61− QueryParam "alt" AltJSON :>

62− ReqBody '[JSON] ExportAssetsRequest :>

63− Post '[JSON] Operation

64−

65−-- | Exports assets with time and resource types to a given Cloud Storage

66−-- location. The output format is newline-delimited JSON. This API

67−-- implements the google.longrunning.Operation API allowing you to keep

68−-- track of the export.

69−--

70−-- /See:/ 'projectsExportAssets' smart constructor.

71−data ProjectsExportAssets =

72− ProjectsExportAssets'

73− { _peaParent :: !Text

74− , _peaXgafv :: !(Maybe Xgafv)

75− , _peaUploadProtocol :: !(Maybe Text)

76− , _peaAccessToken :: !(Maybe Text)

77− , _peaUploadType :: !(Maybe Text)

78− , _peaPayload :: !ExportAssetsRequest

79− , _peaCallback :: !(Maybe Text)

80− }

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

82−

83−

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

85−--

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

87−--

88−-- * 'peaParent'

89−--

90−-- * 'peaXgafv'

91−--

92−-- * 'peaUploadProtocol'

93−--

94−-- * 'peaAccessToken'

95−--

96−-- * 'peaUploadType'

97−--

98−-- * 'peaPayload'

99−--

100−-- * 'peaCallback'

101−projectsExportAssets

102− :: Text -- ^ 'peaParent'

103− -> ExportAssetsRequest -- ^ 'peaPayload'

104− -> ProjectsExportAssets

105−projectsExportAssets pPeaParent_ pPeaPayload_ =

106− ProjectsExportAssets'

107− { _peaParent = pPeaParent_

108− , _peaXgafv = Nothing

109− , _peaUploadProtocol = Nothing

110− , _peaAccessToken = Nothing

111− , _peaUploadType = Nothing

112− , _peaPayload = pPeaPayload_

113− , _peaCallback = Nothing

114− }

115−

116−

117−-- | Required. The relative name of the root asset. This can only be an

118−-- organization number (such as \"organizations\/123\"), a project ID (such

119−-- as \"projects\/my-project-id\"), a project number (such as

120−-- \"projects\/12345\"), or a folder number (such as \"folders\/123\").

121−peaParent :: Lens' ProjectsExportAssets Text

122−peaParent

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

124−

125−-- | V1 error format.

126−peaXgafv :: Lens' ProjectsExportAssets (Maybe Xgafv)

127−peaXgafv = lens _peaXgafv (\ s a -> s{_peaXgafv = a})

128−

129−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

130−peaUploadProtocol :: Lens' ProjectsExportAssets (Maybe Text)

131−peaUploadProtocol

132− = lens _peaUploadProtocol

133− (\ s a -> s{_peaUploadProtocol = a})

134−

135−-- | OAuth access token.

136−peaAccessToken :: Lens' ProjectsExportAssets (Maybe Text)

137−peaAccessToken

138− = lens _peaAccessToken

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

140−

141−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

142−peaUploadType :: Lens' ProjectsExportAssets (Maybe Text)

143−peaUploadType

144− = lens _peaUploadType

145− (\ s a -> s{_peaUploadType = a})

146−

147−-- | Multipart request metadata.

148−peaPayload :: Lens' ProjectsExportAssets ExportAssetsRequest

149−peaPayload

150− = lens _peaPayload (\ s a -> s{_peaPayload = a})

151−

152−-- | JSONP

153−peaCallback :: Lens' ProjectsExportAssets (Maybe Text)

154−peaCallback

155− = lens _peaCallback (\ s a -> s{_peaCallback = a})

156−

157−instance GoogleRequest ProjectsExportAssets where

158− type Rs ProjectsExportAssets = Operation

159− type Scopes ProjectsExportAssets =

160− '["https://www.googleapis.com/auth/cloud-platform"]

161− requestClient ProjectsExportAssets'{..}

162− = go _peaParent _peaXgafv _peaUploadProtocol

163− _peaAccessToken

164− _peaUploadType

165− _peaCallback

166− (Just AltJSON)

167− _peaPayload

168− cloudAssetService

169− where go

170− = buildClient

171− (Proxy :: Proxy ProjectsExportAssetsResource)

172− mempty

gogol-cloudasset/gen/Network/Google/Resource/CloudAsset/Projects/Operations/Get.hsdeleted−152

@@ -1,152 +0,0 @@

1−{-# LANGUAGE DataKinds #-}

2−{-# LANGUAGE DeriveDataTypeable #-}

3−{-# LANGUAGE DeriveGeneric #-}

4−{-# LANGUAGE FlexibleInstances #-}

5−{-# LANGUAGE NoImplicitPrelude #-}

6−{-# LANGUAGE OverloadedStrings #-}

7−{-# LANGUAGE RecordWildCards #-}

8−{-# LANGUAGE TypeFamilies #-}

9−{-# LANGUAGE TypeOperators #-}

10−

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

12−{-# OPTIONS_GHC -fno-warn-unused-binds #-}

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

14−

15−-- |

16−-- Module : Network.Google.Resource.CloudAsset.Projects.Operations.Get

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

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

20−-- Stability : auto-generated

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

22−--

23−-- Gets the latest state of a long-running operation. Clients can use this

24−-- method to poll the operation result at intervals as recommended by the

25−-- API service.

26−--

27−-- /See:/ <https://console.cloud.google.com/apis/api/cloudasset.googleapis.com/overview Cloud Asset API Reference> for @cloudasset.projects.operations.get@.

28−module Network.Google.Resource.CloudAsset.Projects.Operations.Get

29− (

30− -- * REST Resource

31− ProjectsOperationsGetResource

32−

33− -- * Creating a Request

34− , projectsOperationsGet

35− , ProjectsOperationsGet

36−

37− -- * Request Lenses

38− , pogXgafv

39− , pogUploadProtocol

40− , pogAccessToken

41− , pogUploadType

42− , pogName

43− , pogCallback

44− ) where

45−

46−import Network.Google.CloudAsset.Types

47−import Network.Google.Prelude

48−

49−-- | A resource alias for @cloudasset.projects.operations.get@ method which the

50−-- 'ProjectsOperationsGet' request conforms to.

51−type ProjectsOperationsGetResource =

52− "v1beta1" :>

53− Capture "name" Text :>

54− QueryParam "$.xgafv" Xgafv :>

55− QueryParam "upload_protocol" Text :>

56− QueryParam "access_token" Text :>

57− QueryParam "uploadType" Text :>

58− QueryParam "callback" Text :>

59− QueryParam "alt" AltJSON :> Get '[JSON] Operation

60−

61−-- | Gets the latest state of a long-running operation. Clients can use this

62−-- method to poll the operation result at intervals as recommended by the

63−-- API service.

64−--

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

66−data ProjectsOperationsGet =

67− ProjectsOperationsGet'

68− { _pogXgafv :: !(Maybe Xgafv)

69− , _pogUploadProtocol :: !(Maybe Text)

70− , _pogAccessToken :: !(Maybe Text)

71− , _pogUploadType :: !(Maybe Text)

72− , _pogName :: !Text

73− , _pogCallback :: !(Maybe Text)

74− }

75− deriving (Eq, Show, Data, Typeable, Generic)

76−

77−

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

79−--

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

81−--

82−-- * 'pogXgafv'

83−--

84−-- * 'pogUploadProtocol'

85−--

86−-- * 'pogAccessToken'

87−--

88−-- * 'pogUploadType'

89−--

90−-- * 'pogName'

91−--

92−-- * 'pogCallback'

93−projectsOperationsGet

94− :: Text -- ^ 'pogName'

95− -> ProjectsOperationsGet

96−projectsOperationsGet pPogName_ =

97− ProjectsOperationsGet'

98− { _pogXgafv = Nothing

99− , _pogUploadProtocol = Nothing

100− , _pogAccessToken = Nothing

101− , _pogUploadType = Nothing

102− , _pogName = pPogName_

103− , _pogCallback = Nothing

104− }

105−

106−

107−-- | V1 error format.

108−pogXgafv :: Lens' ProjectsOperationsGet (Maybe Xgafv)

109−pogXgafv = lens _pogXgafv (\ s a -> s{_pogXgafv = a})

110−

111−-- | Upload protocol for media (e.g. \"raw\", \"multipart\").

112−pogUploadProtocol :: Lens' ProjectsOperationsGet (Maybe Text)

113−pogUploadProtocol

114− = lens _pogUploadProtocol

115− (\ s a -> s{_pogUploadProtocol = a})

116−

117−-- | OAuth access token.

118−pogAccessToken :: Lens' ProjectsOperationsGet (Maybe Text)

119−pogAccessToken

120− = lens _pogAccessToken

121− (\ s a -> s{_pogAccessToken = a})

122−

123−-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").

124−pogUploadType :: Lens' ProjectsOperationsGet (Maybe Text)

125−pogUploadType

126− = lens _pogUploadType

127− (\ s a -> s{_pogUploadType = a})

128−

129−-- | The name of the operation resource.

130−pogName :: Lens' ProjectsOperationsGet Text

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

132−

133−-- | JSONP

134−pogCallback :: Lens' ProjectsOperationsGet (Maybe Text)

135−pogCallback

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

137−

138−instance GoogleRequest ProjectsOperationsGet where

139− type Rs ProjectsOperationsGet = Operation

140− type Scopes ProjectsOperationsGet =

141− '["https://www.googleapis.com/auth/cloud-platform"]

142− requestClient ProjectsOperationsGet'{..}

143− = go _pogName _pogXgafv _pogUploadProtocol

144− _pogAccessToken

145− _pogUploadType

146− _pogCallback

147− (Just AltJSON)

148− cloudAssetService

149− where go

150− = buildClient

151− (Proxy :: Proxy ProjectsOperationsGetResource)

152− mempty

gogol-cloudasset/gogol-cloudasset.cabal+4−9

@@ -20,7 +20,7 @@ description:

2020 /Warning:/ This is an experimental prototype/preview release which is still

2121 under exploratory development and not intended for public use, caveat emptor!

2222 .

23− This library is compatible with version @v1beta1@

23+ This library is compatible with version @v1@

2424 of the API.

2525

2626source-repository head

@@ -36,14 +36,9 @@ library

3636 exposed-modules:

3737 Network.Google.CloudAsset

3838 , Network.Google.CloudAsset.Types

39− , Network.Google.Resource.CloudAsset.Folders.ExportAssets

40− , Network.Google.Resource.CloudAsset.Folders.Operations.Get

41− , Network.Google.Resource.CloudAsset.Organizations.BatchGetAssetsHistory

42− , Network.Google.Resource.CloudAsset.Organizations.ExportAssets

43− , Network.Google.Resource.CloudAsset.Organizations.Operations.Get

44− , Network.Google.Resource.CloudAsset.Projects.BatchGetAssetsHistory

45− , Network.Google.Resource.CloudAsset.Projects.ExportAssets

46− , Network.Google.Resource.CloudAsset.Projects.Operations.Get

39+ , Network.Google.Resource.CloudAsset.BatchGetAssetsHistory

40+ , Network.Google.Resource.CloudAsset.ExportAssets

41+ , Network.Google.Resource.CloudAsset.Operations.Get

4742

4843 other-modules:

4944 Network.Google.CloudAsset.Types.Product

gogol-cloudfunctions/gen/Network/Google/CloudFunctions/Types/Product.hs+11−11