1889946...develop · gogol

git.iko.soy/gogol

1003 files changed+84589−23095

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

core/gogol-core.cabal+1−1

@@ -61,7 +61,7 @@ library

6161 , lens >= 4.4

6262 , resourcet >= 1.1

6363 , scientific >= 0.3

64− , servant >= 0.4.4

64+ , servant >= 0.14.1

6565 , text >= 1.1

6666 , unordered-containers >= 0.2.5

6767

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

@@ -28,7 +28,7 @@ import Network.HTTP.Client as Export (RequestBody)

2828import Numeric.Natural as Export (Natural)

2929import Prelude as Export hiding (product, span, any, Word)

3030import Servant.API as Export hiding (Headers, Link, getResponse, Stream, ResponseHeader, Header, header)

31−import Servant.Utils.Links as Export hiding (Link)

31+import Servant.Links as Export hiding (Link)

3232import Web.HttpApiData as Export (FromHttpApiData (..), ToHttpApiData (..))

3333

3434import Network.Google.Data.Bytes as Export

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