gogol-containerbuilder 0.4.0 → 0.5.0

raw patch · 20 files changed

+748/−249 lines, 20 filesdep ~gogol-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: gogol-core

API changes (from Hackage documentation)

Files

• README.md +1/−1
• gen/Network/Google/ContainerBuilder.hs +32/−0
• gen/Network/Google/ContainerBuilder/Types.hs +33/−1
• gen/Network/Google/ContainerBuilder/Types/Product.hs +523/−200
• gen/Network/Google/ContainerBuilder/Types/Sum.hs +31/−0
• gen/Network/Google/Resource/Cloudbuild/Operations/Cancel.hs +7/−3
• gen/Network/Google/Resource/Cloudbuild/Operations/Get.hs +7/−3
• gen/Network/Google/Resource/Cloudbuild/Operations/List.hs +7/−3
• gen/Network/Google/Resource/Cloudbuild/Projects/Builds/Cancel.hs +7/−3
• gen/Network/Google/Resource/Cloudbuild/Projects/Builds/Create.hs +7/−3
• gen/Network/Google/Resource/Cloudbuild/Projects/Builds/Get.hs +7/−3
• gen/Network/Google/Resource/Cloudbuild/Projects/Builds/List.hs +7/−3
• gen/Network/Google/Resource/Cloudbuild/Projects/Builds/Retry.hs +7/−3
• gen/Network/Google/Resource/Cloudbuild/Projects/Triggers/Create.hs +7/−3
• gen/Network/Google/Resource/Cloudbuild/Projects/Triggers/Delete.hs +7/−3
• gen/Network/Google/Resource/Cloudbuild/Projects/Triggers/Get.hs +7/−3
• gen/Network/Google/Resource/Cloudbuild/Projects/Triggers/List.hs +35/−6
• gen/Network/Google/Resource/Cloudbuild/Projects/Triggers/Patch.hs +7/−3
• gen/Network/Google/Resource/Cloudbuild/Projects/Triggers/Run.hs +7/−3
• gogol-containerbuilder.cabal +2/−2

@@ -8,7 +8,7 @@  ## Version -`0.3.0`+`0.5.0`   ## Description

@@ -110,6 +110,12 @@     , sCode     , sMessage +    -- ** PullRequestFilter+    , PullRequestFilter+    , pullRequestFilter+    , prfCommentControl+    , prfBranch+     -- ** RetryBuildRequest     , RetryBuildRequest     , retryBuildRequest@@ -138,6 +144,7 @@     , rArtifactManifest     , rBuildStepOutputs     , rNumArtifacts+    , rArtifactTiming      -- ** BuildTriggerSubstitutions     , BuildTriggerSubstitutions@@ -181,6 +188,10 @@     -- ** BuildStepStatus     , BuildStepStatus (..) +    -- ** CheckSuiteFilter+    , CheckSuiteFilter+    , checkSuiteFilter+     -- ** ArtifactObjects     , ArtifactObjects     , artifactObjects@@ -188,6 +199,19 @@     , aoTiming     , aoPaths +    -- ** GitHubEventsConfig+    , GitHubEventsConfig+    , gitHubEventsConfig+    , ghecOwner+    , ghecPullRequest+    , ghecName+    , ghecCheckSuite+    , ghecPush+    , ghecInstallationId++    -- ** PullRequestFilterCommentControl+    , PullRequestFilterCommentControl (..)+     -- ** Volume     , Volume     , volume@@ -236,6 +260,12 @@     , sKmsKeyName     , sSecretEnv +    -- ** PushFilter+    , PushFilter+    , pushFilter+    , pfTag+    , pfBranch+     -- ** CancelBuildRequest     , CancelBuildRequest     , cancelBuildRequest@@ -256,6 +286,7 @@     -- ** ListBuildTriggersResponse     , ListBuildTriggersResponse     , listBuildTriggersResponse+    , lbtrNextPageToken     , lbtrTriggers      -- ** ArtifactResult@@ -349,6 +380,7 @@     , btBuild     , btIgnoredFiles     , btId+    , btGithub     , btDescription     , btFilename     , btCreateTime

@@ -59,6 +59,12 @@     , sCode     , sMessage +    -- * PullRequestFilter+    , PullRequestFilter+    , pullRequestFilter+    , prfCommentControl+    , prfBranch+     -- * RetryBuildRequest     , RetryBuildRequest     , retryBuildRequest@@ -87,6 +93,7 @@     , rArtifactManifest     , rBuildStepOutputs     , rNumArtifacts+    , rArtifactTiming      -- * BuildTriggerSubstitutions     , BuildTriggerSubstitutions@@ -130,6 +137,10 @@     -- * BuildStepStatus     , BuildStepStatus (..) +    -- * CheckSuiteFilter+    , CheckSuiteFilter+    , checkSuiteFilter+     -- * ArtifactObjects     , ArtifactObjects     , artifactObjects@@ -137,6 +148,19 @@     , aoTiming     , aoPaths +    -- * GitHubEventsConfig+    , GitHubEventsConfig+    , gitHubEventsConfig+    , ghecOwner+    , ghecPullRequest+    , ghecName+    , ghecCheckSuite+    , ghecPush+    , ghecInstallationId++    -- * PullRequestFilterCommentControl+    , PullRequestFilterCommentControl (..)+     -- * Volume     , Volume     , volume@@ -185,6 +209,12 @@     , sKmsKeyName     , sSecretEnv +    -- * PushFilter+    , PushFilter+    , pushFilter+    , pfTag+    , pfBranch+     -- * CancelBuildRequest     , CancelBuildRequest     , cancelBuildRequest@@ -205,6 +235,7 @@     -- * ListBuildTriggersResponse     , ListBuildTriggersResponse     , listBuildTriggersResponse+    , lbtrNextPageToken     , lbtrTriggers      -- * ArtifactResult@@ -298,6 +329,7 @@     , btBuild     , btIgnoredFiles     , btId+    , btGithub     , btDescription     , btFilename     , btCreateTime@@ -322,4 +354,4 @@  -- | View and manage your data across Google Cloud Platform services cloudPlatformScope :: Proxy '["https://www.googleapis.com/auth/cloud-platform"]-cloudPlatformScope = Proxy;+cloudPlatformScope = Proxy

@@ -23,7 +23,8 @@ -- | A step in the build pipeline. -- -- /See:/ 'buildStep' smart constructor.-data BuildStep = BuildStep'+data BuildStep =+  BuildStep'     { _bsStatus     :: !(Maybe BuildStepStatus)     , _bsDir        :: !(Maybe Text)     , _bsArgs       :: !(Maybe [Text])@@ -37,8 +38,10 @@     , _bsSecretEnv  :: !(Maybe [Text])     , _bsTimeout    :: !(Maybe GDuration)     , _bsVolumes    :: !(Maybe [Volume])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BuildStep' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,7 +74,7 @@ buildStep     :: BuildStep buildStep =-    BuildStep'+  BuildStep'     { _bsStatus = Nothing     , _bsDir = Nothing     , _bsArgs = Nothing@@ -87,6 +90,7 @@     , _bsVolumes = Nothing     } + -- | Output only. Status of the build step. At this time, build step status -- is only updated on build completion; step status is not updated in -- real-time as the build progresses.@@ -234,12 +238,15 @@ -- that some source was used for this build. -- -- /See:/ 'sourceProvenance' smart constructor.-data SourceProvenance = SourceProvenance'+data SourceProvenance =+  SourceProvenance'     { _spResolvedRepoSource    :: !(Maybe RepoSource)     , _spResolvedStorageSource :: !(Maybe StorageSource)     , _spFileHashes            :: !(Maybe SourceProvenanceFileHashes)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SourceProvenance' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -252,12 +259,13 @@ sourceProvenance     :: SourceProvenance sourceProvenance =-    SourceProvenance'+  SourceProvenance'     { _spResolvedRepoSource = Nothing     , _spResolvedStorageSource = Nothing     , _spFileHashes = Nothing     } + -- | A copy of the build\'s \`source.repo_source\`, if exists, with any -- revisions resolved. spResolvedRepoSource :: Lens' SourceProvenance (Maybe RepoSource)@@ -273,13 +281,13 @@       (\ s a -> s{_spResolvedStorageSource = a})  -- | Output only. Hash(es) of the build source, which can be used to verify--- that the originalsource integrity was maintained in the build. Note that--- \`FileHashes\` willonly be populated if \`BuildOptions\` has requested a--- \`SourceProvenanceHash\`. The keys to this map are file paths used as--- build source and the values contain the hash values for those files. If--- the build source came in a single package such as a gzipped tarfile--- (\`.tar.gz\`), the \`FileHash\` will be for the single path to that--- file.+-- that the original source integrity was maintained in the build. Note+-- that \`FileHashes\` will only be populated if \`BuildOptions\` has+-- requested a \`SourceProvenanceHash\`. The keys to this map are file+-- paths used as build source and the values contain the hash values for+-- those files. If the build source came in a single package such as a+-- gzipped tarfile (\`.tar.gz\`), the \`FileHash\` will be for the single+-- path to that file. spFileHashes :: Lens' SourceProvenance (Maybe SourceProvenanceFileHashes) spFileHashes   = lens _spFileHashes (\ s a -> s{_spFileHashes = a})@@ -305,11 +313,14 @@ -- | Response including listed builds. -- -- /See:/ 'listBuildsResponse' smart constructor.-data ListBuildsResponse = ListBuildsResponse'+data ListBuildsResponse =+  ListBuildsResponse'     { _lbrNextPageToken :: !(Maybe Text)     , _lbrBuilds        :: !(Maybe [Build])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListBuildsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -320,11 +331,9 @@ listBuildsResponse     :: ListBuildsResponse listBuildsResponse =-    ListBuildsResponse'-    { _lbrNextPageToken = Nothing-    , _lbrBuilds = Nothing-    }+  ListBuildsResponse' {_lbrNextPageToken = Nothing, _lbrBuilds = Nothing} + -- | Token to receive the next page of results. lbrNextPageToken :: Lens' ListBuildsResponse (Maybe Text) lbrNextPageToken@@ -390,12 +399,15 @@ -- security\/privacy reasons. -- -- /See:/ 'status' smart constructor.-data Status = Status'+data Status =+  Status'     { _sDetails :: !(Maybe [StatusDetailsItem])     , _sCode    :: !(Maybe (Textual Int32))     , _sMessage :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Status' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -407,13 +419,9 @@ -- * 'sMessage' status     :: Status-status =-    Status'-    { _sDetails = Nothing-    , _sCode = Nothing-    , _sMessage = Nothing-    }+status = Status' {_sDetails = Nothing, _sCode = Nothing, _sMessage = Nothing} + -- | A list of messages that carry the error details. There is a common set -- of message types for APIs to use. sDetails :: Lens' Status [StatusDetailsItem]@@ -450,19 +458,74 @@                   ("code" .=) <$> _sCode,                   ("message" .=) <$> _sMessage]) +-- | PullRequestFilter contains filter properties for matching GitHub Pull+-- Requests.+--+-- /See:/ 'pullRequestFilter' smart constructor.+data PullRequestFilter =+  PullRequestFilter'+    { _prfCommentControl :: !(Maybe PullRequestFilterCommentControl)+    , _prfBranch         :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PullRequestFilter' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'prfCommentControl'+--+-- * 'prfBranch'+pullRequestFilter+    :: PullRequestFilter+pullRequestFilter =+  PullRequestFilter' {_prfCommentControl = Nothing, _prfBranch = Nothing}+++-- | Whether to block builds on a \"\/gcbrun\" comment from a repository+-- owner or collaborator.+prfCommentControl :: Lens' PullRequestFilter (Maybe PullRequestFilterCommentControl)+prfCommentControl+  = lens _prfCommentControl+      (\ s a -> s{_prfCommentControl = a})++-- | Regex of branches to match. The syntax of the regular expressions+-- accepted is the syntax accepted by RE2 and described at+-- https:\/\/github.com\/google\/re2\/wiki\/Syntax+prfBranch :: Lens' PullRequestFilter (Maybe Text)+prfBranch+  = lens _prfBranch (\ s a -> s{_prfBranch = a})++instance FromJSON PullRequestFilter where+        parseJSON+          = withObject "PullRequestFilter"+              (\ o ->+                 PullRequestFilter' <$>+                   (o .:? "commentControl") <*> (o .:? "branch"))++instance ToJSON PullRequestFilter where+        toJSON PullRequestFilter'{..}+          = object+              (catMaybes+                 [("commentControl" .=) <$> _prfCommentControl,+                  ("branch" .=) <$> _prfBranch])+ -- | Specifies a build to retry. -- -- /See:/ 'retryBuildRequest' smart constructor. data RetryBuildRequest =-    RetryBuildRequest'-    deriving (Eq,Show,Data,Typeable,Generic)+  RetryBuildRequest'+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RetryBuildRequest' with the minimum fields required to make a request. -- retryBuildRequest     :: RetryBuildRequest retryBuildRequest = RetryBuildRequest' + instance FromJSON RetryBuildRequest where         parseJSON           = withObject "RetryBuildRequest"@@ -474,11 +537,14 @@ -- | The response message for Operations.ListOperations. -- -- /See:/ 'listOperationsResponse' smart constructor.-data ListOperationsResponse = ListOperationsResponse'+data ListOperationsResponse =+  ListOperationsResponse'     { _lorNextPageToken :: !(Maybe Text)     , _lorOperations    :: !(Maybe [Operation])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListOperationsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -489,11 +555,10 @@ listOperationsResponse     :: ListOperationsResponse listOperationsResponse =-    ListOperationsResponse'-    { _lorNextPageToken = Nothing-    , _lorOperations = Nothing-    }+  ListOperationsResponse'+    {_lorNextPageToken = Nothing, _lorOperations = Nothing} + -- | The standard List next-page token. lorNextPageToken :: Lens' ListOperationsResponse (Maybe Text) lorNextPageToken@@ -527,15 +592,17 @@ -- -- /See:/ 'cancelOperationRequest' smart constructor. data CancelOperationRequest =-    CancelOperationRequest'-    deriving (Eq,Show,Data,Typeable,Generic)+  CancelOperationRequest'+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CancelOperationRequest' with the minimum fields required to make a request. -- cancelOperationRequest     :: CancelOperationRequest cancelOperationRequest = CancelOperationRequest' + instance FromJSON CancelOperationRequest where         parseJSON           = withObject "CancelOperationRequest"@@ -547,11 +614,14 @@ -- | Container message for hash values. -- -- /See:/ 'hash' smart constructor.-data Hash = Hash'+data Hash =+  Hash'     { _hValue :: !(Maybe Bytes)     , _hType  :: !(Maybe HashType)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Hash' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -561,12 +631,9 @@ -- * 'hType' hash     :: Hash-hash =-    Hash'-    { _hValue = Nothing-    , _hType = Nothing-    }+hash = Hash' {_hValue = Nothing, _hType = Nothing} + -- | The hash value. hValue :: Lens' Hash (Maybe ByteString) hValue@@ -591,14 +658,18 @@ -- | Artifacts created by the build pipeline. -- -- /See:/ 'results' smart constructor.-data Results = Results'+data Results =+  Results'     { _rImages           :: !(Maybe [BuiltImage])     , _rBuildStepImages  :: !(Maybe [Text])     , _rArtifactManifest :: !(Maybe Text)     , _rBuildStepOutputs :: !(Maybe [Bytes])     , _rNumArtifacts     :: !(Maybe (Textual Int64))-    } deriving (Eq,Show,Data,Typeable,Generic)+    , _rArtifactTiming   :: !(Maybe TimeSpan)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Results' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -612,17 +683,21 @@ -- * 'rBuildStepOutputs' -- -- * 'rNumArtifacts'+--+-- * 'rArtifactTiming' results     :: Results results =-    Results'+  Results'     { _rImages = Nothing     , _rBuildStepImages = Nothing     , _rArtifactManifest = Nothing     , _rBuildStepOutputs = Nothing     , _rNumArtifacts = Nothing+    , _rArtifactTiming = Nothing     } + -- | Container images that were built as a part of the build. rImages :: Lens' Results [BuiltImage] rImages@@ -665,6 +740,12 @@       (\ s a -> s{_rNumArtifacts = a})       . mapping _Coerce +-- | Time to push all non-container artifacts.+rArtifactTiming :: Lens' Results (Maybe TimeSpan)+rArtifactTiming+  = lens _rArtifactTiming+      (\ s a -> s{_rArtifactTiming = a})+ instance FromJSON Results where         parseJSON           = withObject "Results"@@ -674,7 +755,8 @@                      (o .:? "buildStepImages" .!= mempty)                      <*> (o .:? "artifactManifest")                      <*> (o .:? "buildStepOutputs" .!= mempty)-                     <*> (o .:? "numArtifacts"))+                     <*> (o .:? "numArtifacts")+                     <*> (o .:? "artifactTiming"))  instance ToJSON Results where         toJSON Results'{..}@@ -684,15 +766,19 @@                   ("buildStepImages" .=) <$> _rBuildStepImages,                   ("artifactManifest" .=) <$> _rArtifactManifest,                   ("buildStepOutputs" .=) <$> _rBuildStepOutputs,-                  ("numArtifacts" .=) <$> _rNumArtifacts])+                  ("numArtifacts" .=) <$> _rNumArtifacts,+                  ("artifactTiming" .=) <$> _rArtifactTiming])  -- | Substitutions data for Build resource. -- -- /See:/ 'buildTriggerSubstitutions' smart constructor.-newtype BuildTriggerSubstitutions = BuildTriggerSubstitutions'+newtype BuildTriggerSubstitutions =+  BuildTriggerSubstitutions'     { _btsAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BuildTriggerSubstitutions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -702,10 +788,9 @@     :: HashMap Text Text -- ^ 'btsAddtional'     -> BuildTriggerSubstitutions buildTriggerSubstitutions pBtsAddtional_ =-    BuildTriggerSubstitutions'-    { _btsAddtional = _Coerce # pBtsAddtional_-    }+  BuildTriggerSubstitutions' {_btsAddtional = _Coerce # pBtsAddtional_} + btsAddtional :: Lens' BuildTriggerSubstitutions (HashMap Text Text) btsAddtional   = lens _btsAddtional (\ s a -> s{_btsAddtional = a})@@ -723,15 +808,18 @@ -- | Location of the source in a Google Cloud Source Repository. -- -- /See:/ 'repoSource' smart constructor.-data RepoSource = RepoSource'+data RepoSource =+  RepoSource'     { _rsRepoName   :: !(Maybe Text)     , _rsDir        :: !(Maybe Text)     , _rsCommitSha  :: !(Maybe Text)     , _rsBranchName :: !(Maybe Text)     , _rsTagName    :: !(Maybe Text)     , _rsProjectId  :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'RepoSource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -750,7 +838,7 @@ repoSource     :: RepoSource repoSource =-    RepoSource'+  RepoSource'     { _rsRepoName = Nothing     , _rsDir = Nothing     , _rsCommitSha = Nothing@@ -759,6 +847,7 @@     , _rsProjectId = Nothing     } + -- | Name of the Cloud Source Repository. If omitted, the name \"default\" is -- assumed. rsRepoName :: Lens' RepoSource (Maybe Text)@@ -818,14 +907,17 @@ -- a network API call. -- -- /See:/ 'operation' smart constructor.-data Operation = Operation'+data Operation =+  Operation'     { _oDone     :: !(Maybe Bool)     , _oError    :: !(Maybe Status)     , _oResponse :: !(Maybe OperationResponse)     , _oName     :: !(Maybe Text)     , _oMetadata :: !(Maybe OperationMetadata)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Operation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -842,7 +934,7 @@ operation     :: Operation operation =-    Operation'+  Operation'     { _oDone = Nothing     , _oError = Nothing     , _oResponse = Nothing@@ -850,6 +942,7 @@     , _oMetadata = Nothing     } + -- | If the value is \`false\`, it means the operation is still in progress. -- If \`true\`, the operation is completed, and either \`error\` or -- \`response\` is available.@@ -913,15 +1006,17 @@ -- -- /See:/ 'empty' smart constructor. data Empty =-    Empty'-    deriving (Eq,Show,Data,Typeable,Generic)+  Empty'+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Empty' with the minimum fields required to make a request. -- empty     :: Empty empty = Empty' + instance FromJSON Empty where         parseJSON = withObject "Empty" (\ o -> pure Empty') @@ -935,10 +1030,13 @@ -- secrets. -- -- /See:/ 'secretSecretEnv' smart constructor.-newtype SecretSecretEnv = SecretSecretEnv'+newtype SecretSecretEnv =+  SecretSecretEnv'     { _sseAddtional :: HashMap Text Bytes-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SecretSecretEnv' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -948,10 +1046,9 @@     :: HashMap Text ByteString -- ^ 'sseAddtional'     -> SecretSecretEnv secretSecretEnv pSseAddtional_ =-    SecretSecretEnv'-    { _sseAddtional = _Coerce # pSseAddtional_-    }+  SecretSecretEnv' {_sseAddtional = _Coerce # pSseAddtional_} + sseAddtional :: Lens' SecretSecretEnv (HashMap Text ByteString) sseAddtional   = lens _sseAddtional (\ s a -> s{_sseAddtional = a})@@ -969,11 +1066,14 @@ -- completion of all build steps. -- -- /See:/ 'artifacts' smart constructor.-data Artifacts = Artifacts'+data Artifacts =+  Artifacts'     { _aImages  :: !(Maybe [Text])     , _aObjects :: !(Maybe ArtifactObjects)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Artifacts' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -983,12 +1083,9 @@ -- * 'aObjects' artifacts     :: Artifacts-artifacts =-    Artifacts'-    { _aImages = Nothing-    , _aObjects = Nothing-    }+artifacts = Artifacts' {_aImages = Nothing, _aObjects = Nothing} + -- | A list of images to be pushed upon the successful completion of all -- build steps. The images will be pushed using the builder service -- account\'s credentials. The digests of the pushed images will be stored@@ -1023,16 +1120,43 @@                  [("images" .=) <$> _aImages,                   ("objects" .=) <$> _aObjects]) +-- | A CheckSuiteFilter is a filter that indicates that we should build on+-- all check suite events.+--+-- /See:/ 'checkSuiteFilter' smart constructor.+data CheckSuiteFilter =+  CheckSuiteFilter'+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CheckSuiteFilter' with the minimum fields required to make a request.+--+checkSuiteFilter+    :: CheckSuiteFilter+checkSuiteFilter = CheckSuiteFilter'+++instance FromJSON CheckSuiteFilter where+        parseJSON+          = withObject "CheckSuiteFilter"+              (\ o -> pure CheckSuiteFilter')++instance ToJSON CheckSuiteFilter where+        toJSON = const emptyObject+ -- | Files in the workspace to upload to Cloud Storage upon successful -- completion of all build steps. -- -- /See:/ 'artifactObjects' smart constructor.-data ArtifactObjects = ArtifactObjects'+data ArtifactObjects =+  ArtifactObjects'     { _aoLocation :: !(Maybe Text)     , _aoTiming   :: !(Maybe TimeSpan)     , _aoPaths    :: !(Maybe [Text])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ArtifactObjects' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1045,12 +1169,10 @@ artifactObjects     :: ArtifactObjects artifactObjects =-    ArtifactObjects'-    { _aoLocation = Nothing-    , _aoTiming = Nothing-    , _aoPaths = Nothing-    }+  ArtifactObjects'+    {_aoLocation = Nothing, _aoTiming = Nothing, _aoPaths = Nothing} + -- | Cloud Storage bucket and optional object path, in the form -- \"gs:\/\/bucket\/path\/to\/somewhere\/\". (see [Bucket Name -- Requirements](https:\/\/cloud.google.com\/storage\/docs\/bucket-naming#requirements)).@@ -1086,15 +1208,118 @@                   ("timing" .=) <$> _aoTiming,                   ("paths" .=) <$> _aoPaths]) +-- | GitHubEventsConfig describes the configuration of a trigger that creates+-- a build whenever a GitHub event is received. This message is+-- experimental.+--+-- /See:/ 'gitHubEventsConfig' smart constructor.+data GitHubEventsConfig =+  GitHubEventsConfig'+    { _ghecOwner          :: !(Maybe Text)+    , _ghecPullRequest    :: !(Maybe PullRequestFilter)+    , _ghecName           :: !(Maybe Text)+    , _ghecCheckSuite     :: !(Maybe CheckSuiteFilter)+    , _ghecPush           :: !(Maybe PushFilter)+    , _ghecInstallationId :: !(Maybe (Textual Int64))+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GitHubEventsConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ghecOwner'+--+-- * 'ghecPullRequest'+--+-- * 'ghecName'+--+-- * 'ghecCheckSuite'+--+-- * 'ghecPush'+--+-- * 'ghecInstallationId'+gitHubEventsConfig+    :: GitHubEventsConfig+gitHubEventsConfig =+  GitHubEventsConfig'+    { _ghecOwner = Nothing+    , _ghecPullRequest = Nothing+    , _ghecName = Nothing+    , _ghecCheckSuite = Nothing+    , _ghecPush = Nothing+    , _ghecInstallationId = Nothing+    }+++-- | Owner of the repository.+ghecOwner :: Lens' GitHubEventsConfig (Maybe Text)+ghecOwner+  = lens _ghecOwner (\ s a -> s{_ghecOwner = a})++-- | filter to match changes in pull requests.+ghecPullRequest :: Lens' GitHubEventsConfig (Maybe PullRequestFilter)+ghecPullRequest+  = lens _ghecPullRequest+      (\ s a -> s{_ghecPullRequest = a})++-- | Name of the repository.+ghecName :: Lens' GitHubEventsConfig (Maybe Text)+ghecName = lens _ghecName (\ s a -> s{_ghecName = a})++-- | Output only. Indicates that a build was generated from a check suite+-- event.+ghecCheckSuite :: Lens' GitHubEventsConfig (Maybe CheckSuiteFilter)+ghecCheckSuite+  = lens _ghecCheckSuite+      (\ s a -> s{_ghecCheckSuite = a})++-- | filter to match changes in refs like branches, tags.+ghecPush :: Lens' GitHubEventsConfig (Maybe PushFilter)+ghecPush = lens _ghecPush (\ s a -> s{_ghecPush = a})++-- | The installationID that emmits the GitHub event.+ghecInstallationId :: Lens' GitHubEventsConfig (Maybe Int64)+ghecInstallationId+  = lens _ghecInstallationId+      (\ s a -> s{_ghecInstallationId = a})+      . mapping _Coerce++instance FromJSON GitHubEventsConfig where+        parseJSON+          = withObject "GitHubEventsConfig"+              (\ o ->+                 GitHubEventsConfig' <$>+                   (o .:? "owner") <*> (o .:? "pullRequest") <*>+                     (o .:? "name")+                     <*> (o .:? "checkSuite")+                     <*> (o .:? "push")+                     <*> (o .:? "installationId"))++instance ToJSON GitHubEventsConfig where+        toJSON GitHubEventsConfig'{..}+          = object+              (catMaybes+                 [("owner" .=) <$> _ghecOwner,+                  ("pullRequest" .=) <$> _ghecPullRequest,+                  ("name" .=) <$> _ghecName,+                  ("checkSuite" .=) <$> _ghecCheckSuite,+                  ("push" .=) <$> _ghecPush,+                  ("installationId" .=) <$> _ghecInstallationId])+ -- | Volume describes a Docker container volume which is mounted into build -- steps in order to persist files across build step execution. -- -- /See:/ 'volume' smart constructor.-data Volume = Volume'+data Volume =+  Volume'     { _vPath :: !(Maybe Text)     , _vName :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Volume' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1104,12 +1329,9 @@ -- * 'vName' volume     :: Volume-volume =-    Volume'-    { _vPath = Nothing-    , _vName = Nothing-    }+volume = Volume' {_vPath = Nothing, _vName = Nothing} + -- | Path at which to mount the volume. Paths must be absolute and cannot -- conflict with other volume paths on the same build step or with certain -- reserved volume paths.@@ -1136,10 +1358,13 @@  -- -- /See:/ 'statusDetailsItem' smart constructor.-newtype StatusDetailsItem = StatusDetailsItem'+newtype StatusDetailsItem =+  StatusDetailsItem'     { _sdiAddtional :: HashMap Text JSONValue-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StatusDetailsItem' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1149,10 +1374,9 @@     :: HashMap Text JSONValue -- ^ 'sdiAddtional'     -> StatusDetailsItem statusDetailsItem pSdiAddtional_ =-    StatusDetailsItem'-    { _sdiAddtional = _Coerce # pSdiAddtional_-    }+  StatusDetailsItem' {_sdiAddtional = _Coerce # pSdiAddtional_} + -- | Properties of the object. Contains field \'type with type URL. sdiAddtional :: Lens' StatusDetailsItem (HashMap Text JSONValue) sdiAddtional@@ -1180,7 +1404,8 @@ -- $SHORT_SHA: first 7 characters of $REVISION_ID or $COMMIT_SHA. -- -- /See:/ 'build' smart constructor.-data Build = Build'+data Build =+  Build'     { _bImages           :: !(Maybe [Text])     , _bStatus           :: !(Maybe BuildStatus)     , _bSourceProvenance :: !(Maybe SourceProvenance)@@ -1203,8 +1428,10 @@     , _bFinishTime       :: !(Maybe DateTime')     , _bCreateTime       :: !(Maybe DateTime')     , _bTags             :: !(Maybe [Text])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Build' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1255,7 +1482,7 @@ build     :: Build build =-    Build'+  Build'     { _bImages = Nothing     , _bStatus = Nothing     , _bSourceProvenance = Nothing@@ -1280,6 +1507,7 @@     , _bTags = Nothing     } + -- | A list of images to be pushed upon the successful completion of all -- build steps. The images are pushed using the builder service account\'s -- credentials. The digests of the pushed images will be stored in the@@ -1337,7 +1565,7 @@ -- Name -- Requirements](https:\/\/cloud.google.com\/storage\/docs\/bucket-naming#requirements)). -- Logs file names will be of the format--- \`/l//o//g//s//b//u//c//k//e//t/\//l//o//g/−{build_id}.txt\`.+-- \`${logs_bucket}\/log-${build_id}.txt\`. bLogsBucket :: Lens' Build (Maybe Text) bLogsBucket   = lens _bLogsBucket (\ s a -> s{_bLogsBucket = a})@@ -1468,19 +1696,22 @@                   ("tags" .=) <$> _bTags])  -- | Output only. Hash(es) of the build source, which can be used to verify--- that the originalsource integrity was maintained in the build. Note that--- \`FileHashes\` willonly be populated if \`BuildOptions\` has requested a--- \`SourceProvenanceHash\`. The keys to this map are file paths used as--- build source and the values contain the hash values for those files. If--- the build source came in a single package such as a gzipped tarfile--- (\`.tar.gz\`), the \`FileHash\` will be for the single path to that--- file.+-- that the original source integrity was maintained in the build. Note+-- that \`FileHashes\` will only be populated if \`BuildOptions\` has+-- requested a \`SourceProvenanceHash\`. The keys to this map are file+-- paths used as build source and the values contain the hash values for+-- those files. If the build source came in a single package such as a+-- gzipped tarfile (\`.tar.gz\`), the \`FileHash\` will be for the single+-- path to that file. -- -- /See:/ 'sourceProvenanceFileHashes' smart constructor.-newtype SourceProvenanceFileHashes = SourceProvenanceFileHashes'+newtype SourceProvenanceFileHashes =+  SourceProvenanceFileHashes'     { _spfhAddtional :: HashMap Text FileHashes-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SourceProvenanceFileHashes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1490,10 +1721,9 @@     :: HashMap Text FileHashes -- ^ 'spfhAddtional'     -> SourceProvenanceFileHashes sourceProvenanceFileHashes pSpfhAddtional_ =-    SourceProvenanceFileHashes'-    { _spfhAddtional = _Coerce # pSpfhAddtional_-    }+  SourceProvenanceFileHashes' {_spfhAddtional = _Coerce # pSpfhAddtional_} + spfhAddtional :: Lens' SourceProvenanceFileHashes (HashMap Text FileHashes) spfhAddtional   = lens _spfhAddtional@@ -1513,11 +1743,14 @@ -- with the Cloud KMS key to use to decrypt the value. -- -- /See:/ 'secret' smart constructor.-data Secret = Secret'+data Secret =+  Secret'     { _sKmsKeyName :: !(Maybe Text)     , _sSecretEnv  :: !(Maybe SecretSecretEnv)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Secret' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1527,12 +1760,9 @@ -- * 'sSecretEnv' secret     :: Secret-secret =-    Secret'-    { _sKmsKeyName = Nothing-    , _sSecretEnv = Nothing-    }+secret = Secret' {_sKmsKeyName = Nothing, _sSecretEnv = Nothing} + -- | Cloud KMS key name to use to decrypt these envs. sKmsKeyName :: Lens' Secret (Maybe Text) sKmsKeyName@@ -1561,19 +1791,68 @@                  [("kmsKeyName" .=) <$> _sKmsKeyName,                   ("secretEnv" .=) <$> _sSecretEnv]) +-- | Push contains filter properties for matching GitHub git pushes.+--+-- /See:/ 'pushFilter' smart constructor.+data PushFilter =+  PushFilter'+    { _pfTag    :: !(Maybe Text)+    , _pfBranch :: !(Maybe Text)+    }+  deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PushFilter' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pfTag'+--+-- * 'pfBranch'+pushFilter+    :: PushFilter+pushFilter = PushFilter' {_pfTag = Nothing, _pfBranch = Nothing}+++-- | Regexes of tags to match. The syntax of the regular expressions accepted+-- is the syntax accepted by RE2 and described at+-- https:\/\/github.com\/google\/re2\/wiki\/Syntax+pfTag :: Lens' PushFilter (Maybe Text)+pfTag = lens _pfTag (\ s a -> s{_pfTag = a})++-- | Regexes of branches to match. The syntax of the regular expressions+-- accepted is the syntax accepted by RE2 and described at+-- https:\/\/github.com\/google\/re2\/wiki\/Syntax+pfBranch :: Lens' PushFilter (Maybe Text)+pfBranch = lens _pfBranch (\ s a -> s{_pfBranch = a})++instance FromJSON PushFilter where+        parseJSON+          = withObject "PushFilter"+              (\ o ->+                 PushFilter' <$> (o .:? "tag") <*> (o .:? "branch"))++instance ToJSON PushFilter where+        toJSON PushFilter'{..}+          = object+              (catMaybes+                 [("tag" .=) <$> _pfTag, ("branch" .=) <$> _pfBranch])+ -- | Request to cancel an ongoing build. -- -- /See:/ 'cancelBuildRequest' smart constructor. data CancelBuildRequest =-    CancelBuildRequest'-    deriving (Eq,Show,Data,Typeable,Generic)+  CancelBuildRequest'+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CancelBuildRequest' with the minimum fields required to make a request. -- cancelBuildRequest     :: CancelBuildRequest cancelBuildRequest = CancelBuildRequest' + instance FromJSON CancelBuildRequest where         parseJSON           = withObject "CancelBuildRequest"@@ -1585,11 +1864,14 @@ -- | Start and end times for a build execution phase. -- -- /See:/ 'timeSpan' smart constructor.-data TimeSpan = TimeSpan'+data TimeSpan =+  TimeSpan'     { _tsStartTime :: !(Maybe DateTime')     , _tsEndTime   :: !(Maybe DateTime')-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'TimeSpan' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1599,12 +1881,9 @@ -- * 'tsEndTime' timeSpan     :: TimeSpan-timeSpan =-    TimeSpan'-    { _tsStartTime = Nothing-    , _tsEndTime = Nothing-    }+timeSpan = TimeSpan' {_tsStartTime = Nothing, _tsEndTime = Nothing} + -- | Start of time span. tsStartTime :: Lens' TimeSpan (Maybe UTCTime) tsStartTime@@ -1634,12 +1913,15 @@ -- | Location of the source in an archive file in Google Cloud Storage. -- -- /See:/ 'storageSource' smart constructor.-data StorageSource = StorageSource'+data StorageSource =+  StorageSource'     { _ssBucket     :: !(Maybe Text)     , _ssObject     :: !(Maybe Text)     , _ssGeneration :: !(Maybe (Textual Int64))-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StorageSource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1652,12 +1934,10 @@ storageSource     :: StorageSource storageSource =-    StorageSource'-    { _ssBucket = Nothing-    , _ssObject = Nothing-    , _ssGeneration = Nothing-    }+  StorageSource'+    {_ssBucket = Nothing, _ssObject = Nothing, _ssGeneration = Nothing} + -- | Google Cloud Storage bucket containing the source (see [Bucket Name -- Requirements](https:\/\/cloud.google.com\/storage\/docs\/bucket-naming#requirements)). ssBucket :: Lens' StorageSource (Maybe Text)@@ -1694,22 +1974,34 @@ -- | Response containing existing \`BuildTriggers\`. -- -- /See:/ 'listBuildTriggersResponse' smart constructor.-newtype ListBuildTriggersResponse = ListBuildTriggersResponse'-    { _lbtrTriggers :: Maybe [BuildTrigger]-    } deriving (Eq,Show,Data,Typeable,Generic)+data ListBuildTriggersResponse =+  ListBuildTriggersResponse'+    { _lbtrNextPageToken :: !(Maybe Text)+    , _lbtrTriggers      :: !(Maybe [BuildTrigger])+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListBuildTriggersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'lbtrNextPageToken'+-- -- * 'lbtrTriggers' listBuildTriggersResponse     :: ListBuildTriggersResponse listBuildTriggersResponse =-    ListBuildTriggersResponse'-    { _lbtrTriggers = Nothing-    }+  ListBuildTriggersResponse'+    {_lbtrNextPageToken = Nothing, _lbtrTriggers = Nothing} ++-- | Token to receive the next page of results.+lbtrNextPageToken :: Lens' ListBuildTriggersResponse (Maybe Text)+lbtrNextPageToken+  = lens _lbtrNextPageToken+      (\ s a -> s{_lbtrNextPageToken = a})+ -- | \`BuildTriggers\` for the project, sorted by \`create_time\` descending. lbtrTriggers :: Lens' ListBuildTriggersResponse [BuildTrigger] lbtrTriggers@@ -1722,22 +2014,28 @@           = withObject "ListBuildTriggersResponse"               (\ o ->                  ListBuildTriggersResponse' <$>-                   (o .:? "triggers" .!= mempty))+                   (o .:? "nextPageToken") <*>+                     (o .:? "triggers" .!= mempty))  instance ToJSON ListBuildTriggersResponse where         toJSON ListBuildTriggersResponse'{..}           = object-              (catMaybes [("triggers" .=) <$> _lbtrTriggers])+              (catMaybes+                 [("nextPageToken" .=) <$> _lbtrNextPageToken,+                  ("triggers" .=) <$> _lbtrTriggers])  -- | An artifact that was uploaded during a build. This is a single record in -- the artifact manifest JSON file. -- -- /See:/ 'artifactResult' smart constructor.-data ArtifactResult = ArtifactResult'+data ArtifactResult =+  ArtifactResult'     { _arFileHash :: !(Maybe [FileHashes])     , _arLocation :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ArtifactResult' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1747,12 +2045,9 @@ -- * 'arLocation' artifactResult     :: ArtifactResult-artifactResult =-    ArtifactResult'-    { _arFileHash = Nothing-    , _arLocation = Nothing-    }+artifactResult = ArtifactResult' {_arFileHash = Nothing, _arLocation = Nothing} + -- | The file hash of the artifact. arFileHash :: Lens' ArtifactResult [FileHashes] arFileHash@@ -1786,10 +2081,13 @@ -- build. -- -- /See:/ 'fileHashes' smart constructor.-newtype FileHashes = FileHashes'+newtype FileHashes =+  FileHashes'     { _fhFileHash :: Maybe [Hash]-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'FileHashes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1797,11 +2095,9 @@ -- * 'fhFileHash' fileHashes     :: FileHashes-fileHashes =-    FileHashes'-    { _fhFileHash = Nothing-    }+fileHashes = FileHashes' {_fhFileHash = Nothing} + -- | Collection of file hashes. fhFileHash :: Lens' FileHashes [Hash] fhFileHash@@ -1823,10 +2119,13 @@ -- | Substitutions data for \`Build\` resource. -- -- /See:/ 'buildSubstitutions' smart constructor.-newtype BuildSubstitutions = BuildSubstitutions'+newtype BuildSubstitutions =+  BuildSubstitutions'     { _bsAddtional :: HashMap Text Text-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BuildSubstitutions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1836,10 +2135,9 @@     :: HashMap Text Text -- ^ 'bsAddtional'     -> BuildSubstitutions buildSubstitutions pBsAddtional_ =-    BuildSubstitutions'-    { _bsAddtional = _Coerce # pBsAddtional_-    }+  BuildSubstitutions' {_bsAddtional = _Coerce # pBsAddtional_} + bsAddtional :: Lens' BuildSubstitutions (HashMap Text Text) bsAddtional   = lens _bsAddtional (\ s a -> s{_bsAddtional = a}) .@@ -1856,11 +2154,14 @@ -- | Location of the source in a supported storage service. -- -- /See:/ 'source' smart constructor.-data Source = Source'+data Source =+  Source'     { _sRepoSource    :: !(Maybe RepoSource)     , _sStorageSource :: !(Maybe StorageSource)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Source' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1870,12 +2171,9 @@ -- * 'sStorageSource' source     :: Source-source =-    Source'-    { _sRepoSource = Nothing-    , _sStorageSource = Nothing-    }+source = Source' {_sRepoSource = Nothing, _sStorageSource = Nothing} + -- | If provided, get the source from this location in a Cloud Source -- Repository. sRepoSource :: Lens' Source (Maybe RepoSource)@@ -1908,10 +2206,13 @@ -- long-running operation should document the metadata type, if any. -- -- /See:/ 'operationMetadata' smart constructor.-newtype OperationMetadata = OperationMetadata'+newtype OperationMetadata =+  OperationMetadata'     { _omAddtional :: HashMap Text JSONValue-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1921,10 +2222,9 @@     :: HashMap Text JSONValue -- ^ 'omAddtional'     -> OperationMetadata operationMetadata pOmAddtional_ =-    OperationMetadata'-    { _omAddtional = _Coerce # pOmAddtional_-    }+  OperationMetadata' {_omAddtional = _Coerce # pOmAddtional_} + -- | Properties of the object. Contains field \'type with type URL. omAddtional :: Lens' OperationMetadata (HashMap Text JSONValue) omAddtional@@ -1945,10 +2245,13 @@ -- does not specify source or images, these keys will not be included. -- -- /See:/ 'buildTiming' smart constructor.-newtype BuildTiming = BuildTiming'+newtype BuildTiming =+  BuildTiming'     { _btAddtional :: HashMap Text TimeSpan-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BuildTiming' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1958,10 +2261,9 @@     :: HashMap Text TimeSpan -- ^ 'btAddtional'     -> BuildTiming buildTiming pBtAddtional_ =-    BuildTiming'-    { _btAddtional = _Coerce # pBtAddtional_-    }+  BuildTiming' {_btAddtional = _Coerce # pBtAddtional_} + btAddtional :: Lens' BuildTiming (HashMap Text TimeSpan) btAddtional   = lens _btAddtional (\ s a -> s{_btAddtional = a}) .@@ -1978,10 +2280,13 @@ -- | Metadata for build operations. -- -- /See:/ 'buildOperationMetadata' smart constructor.-newtype BuildOperationMetadata = BuildOperationMetadata'+newtype BuildOperationMetadata =+  BuildOperationMetadata'     { _bomBuild :: Maybe Build-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BuildOperationMetadata' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1989,11 +2294,9 @@ -- * 'bomBuild' buildOperationMetadata     :: BuildOperationMetadata-buildOperationMetadata =-    BuildOperationMetadata'-    { _bomBuild = Nothing-    }+buildOperationMetadata = BuildOperationMetadata' {_bomBuild = Nothing} + -- | The build that the operation is tracking. bomBuild :: Lens' BuildOperationMetadata (Maybe Build) bomBuild = lens _bomBuild (\ s a -> s{_bomBuild = a})@@ -2010,7 +2313,8 @@ -- | Optional arguments to enable specific features of builds. -- -- /See:/ 'buildOptions' smart constructor.-data BuildOptions = BuildOptions'+data BuildOptions =+  BuildOptions'     { _boDiskSizeGb            :: !(Maybe (Textual Int64))     , _boEnv                   :: !(Maybe [Text])     , _boSubstitutionOption    :: !(Maybe BuildOptionsSubstitutionOption)@@ -2022,8 +2326,10 @@     , _boLogStreamingOption    :: !(Maybe BuildOptionsLogStreamingOption)     , _boLogging               :: !(Maybe BuildOptionsLogging)     , _boSourceProvenanceHash  :: !(Maybe [Text])-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BuildOptions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2052,7 +2358,7 @@ buildOptions     :: BuildOptions buildOptions =-    BuildOptions'+  BuildOptions'     { _boDiskSizeGb = Nothing     , _boEnv = Nothing     , _boSubstitutionOption = Nothing@@ -2066,6 +2372,7 @@     , _boSourceProvenanceHash = Nothing     } + -- | Requested disk size for the VM that runs the build. Note that this is -- *NOT* \"disk free\"; some of the space will be used by the operating -- system and build utilities. Also note that this is the minimum disk size@@ -2200,10 +2507,13 @@ -- \`TakeSnapshotResponse\`. -- -- /See:/ 'operationResponse' smart constructor.-newtype OperationResponse = OperationResponse'+newtype OperationResponse =+  OperationResponse'     { _orAddtional :: HashMap Text JSONValue-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2213,10 +2523,9 @@     :: HashMap Text JSONValue -- ^ 'orAddtional'     -> OperationResponse operationResponse pOrAddtional_ =-    OperationResponse'-    { _orAddtional = _Coerce # pOrAddtional_-    }+  OperationResponse' {_orAddtional = _Coerce # pOrAddtional_} + -- | Properties of the object. Contains field \'type with type URL. orAddtional :: Lens' OperationResponse (HashMap Text JSONValue) orAddtional@@ -2235,7 +2544,8 @@ -- changes. -- -- /See:/ 'buildTrigger' smart constructor.-data BuildTrigger = BuildTrigger'+data BuildTrigger =+  BuildTrigger'     { _btSubstitutions   :: !(Maybe BuildTriggerSubstitutions)     , _btIncludedFiles   :: !(Maybe [Text])     , _btDisabled        :: !(Maybe Bool)@@ -2243,11 +2553,14 @@     , _btBuild           :: !(Maybe Build)     , _btIgnoredFiles    :: !(Maybe [Text])     , _btId              :: !(Maybe Text)+    , _btGithub          :: !(Maybe GitHubEventsConfig)     , _btDescription     :: !(Maybe Text)     , _btFilename        :: !(Maybe Text)     , _btCreateTime      :: !(Maybe DateTime')-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BuildTrigger' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2266,6 +2579,8 @@ -- -- * 'btId' --+-- * 'btGithub'+-- -- * 'btDescription' -- -- * 'btFilename'@@ -2274,7 +2589,7 @@ buildTrigger     :: BuildTrigger buildTrigger =-    BuildTrigger'+  BuildTrigger'     { _btSubstitutions = Nothing     , _btIncludedFiles = Nothing     , _btDisabled = Nothing@@ -2282,11 +2597,13 @@     , _btBuild = Nothing     , _btIgnoredFiles = Nothing     , _btId = Nothing+    , _btGithub = Nothing     , _btDescription = Nothing     , _btFilename = Nothing     , _btCreateTime = Nothing     } + -- | Substitutions data for Build resource. btSubstitutions :: Lens' BuildTrigger (Maybe BuildTriggerSubstitutions) btSubstitutions@@ -2342,6 +2659,11 @@ btId :: Lens' BuildTrigger (Maybe Text) btId = lens _btId (\ s a -> s{_btId = a}) +-- | GitHubEventsConfig describes the configuration of a trigger that creates+-- a build whenever a GitHub event is received.+btGithub :: Lens' BuildTrigger (Maybe GitHubEventsConfig)+btGithub = lens _btGithub (\ s a -> s{_btGithub = a})+ -- | Human-readable description of this trigger. btDescription :: Lens' BuildTrigger (Maybe Text) btDescription@@ -2372,6 +2694,7 @@                      <*> (o .:? "build")                      <*> (o .:? "ignoredFiles" .!= mempty)                      <*> (o .:? "id")+                     <*> (o .:? "github")                      <*> (o .:? "description")                      <*> (o .:? "filename")                      <*> (o .:? "createTime"))@@ -2386,7 +2709,7 @@                   ("triggerTemplate" .=) <$> _btTriggerTemplate,                   ("build" .=) <$> _btBuild,                   ("ignoredFiles" .=) <$> _btIgnoredFiles,-                  ("id" .=) <$> _btId,+                  ("id" .=) <$> _btId, ("github" .=) <$> _btGithub,                   ("description" .=) <$> _btDescription,                   ("filename" .=) <$> _btFilename,                   ("createTime" .=) <$> _btCreateTime])@@ -2394,12 +2717,15 @@ -- | An image built by the pipeline. -- -- /See:/ 'builtImage' smart constructor.-data BuiltImage = BuiltImage'+data BuiltImage =+  BuiltImage'     { _biPushTiming :: !(Maybe TimeSpan)     , _biName       :: !(Maybe Text)     , _biDigest     :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'BuiltImage' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -2412,11 +2738,8 @@ builtImage     :: BuiltImage builtImage =-    BuiltImage'-    { _biPushTiming = Nothing-    , _biName = Nothing-    , _biDigest = Nothing-    }+  BuiltImage' {_biPushTiming = Nothing, _biName = Nothing, _biDigest = Nothing}+  -- | Output only. Stores timing information for pushing the specified image. biPushTiming :: Lens' BuiltImage (Maybe TimeSpan)

@@ -79,6 +79,37 @@ instance ToJSON BuildStepStatus where     toJSON = toJSONText +-- | Whether to block builds on a \"\/gcbrun\" comment from a repository+-- owner or collaborator.+data PullRequestFilterCommentControl+    = CommentsDisabled+      -- ^ @COMMENTS_DISABLED@+      -- Do not require comments on Pull Requests before builds are triggered.+    | CommentsEnabled+      -- ^ @COMMENTS_ENABLED@+      -- Enforce that repository owners or collaborators must comment on Pull+      -- Requests before builds are triggered.+      deriving (Eq, Ord, Enum, Read, Show, Data, Typeable, Generic)++instance Hashable PullRequestFilterCommentControl++instance FromHttpApiData PullRequestFilterCommentControl where+    parseQueryParam = \case+        "COMMENTS_DISABLED" -> Right CommentsDisabled+        "COMMENTS_ENABLED" -> Right CommentsEnabled+        x -> Left ("Unable to parse PullRequestFilterCommentControl from: " <> x)++instance ToHttpApiData PullRequestFilterCommentControl where+    toQueryParam = \case+        CommentsDisabled -> "COMMENTS_DISABLED"+        CommentsEnabled -> "COMMENTS_ENABLED"++instance FromJSON PullRequestFilterCommentControl where+    parseJSON = parseJSONText "PullRequestFilterCommentControl"++instance ToJSON PullRequestFilterCommentControl where+    toJSON = toJSONText+ -- | Requested verifiability options. data BuildOptionsRequestedVerifyOption     = NotVerified

@@ -78,7 +78,8 @@ -- google.rpc.Status.code of 1, corresponding to \`Code.CANCELLED\`. -- -- /See:/ 'operationsCancel' smart constructor.-data OperationsCancel = OperationsCancel'+data OperationsCancel =+  OperationsCancel'     { _ocXgafv          :: !(Maybe Xgafv)     , _ocUploadProtocol :: !(Maybe Text)     , _ocAccessToken    :: !(Maybe Text)@@ -86,8 +87,10 @@     , _ocPayload        :: !CancelOperationRequest     , _ocName           :: !Text     , _ocCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationsCancel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -110,7 +113,7 @@     -> Text -- ^ 'ocName'     -> OperationsCancel operationsCancel pOcPayload_ pOcName_ =-    OperationsCancel'+  OperationsCancel'     { _ocXgafv = Nothing     , _ocUploadProtocol = Nothing     , _ocAccessToken = Nothing@@ -119,6 +122,7 @@     , _ocName = pOcName_     , _ocCallback = Nothing     }+  -- | V1 error format. ocXgafv :: Lens' OperationsCancel (Maybe Xgafv)

@@ -63,15 +63,18 @@ -- API service. -- -- /See:/ 'operationsGet' smart constructor.-data OperationsGet = OperationsGet'+data OperationsGet =+  OperationsGet'     { _ogXgafv          :: !(Maybe Xgafv)     , _ogUploadProtocol :: !(Maybe Text)     , _ogAccessToken    :: !(Maybe Text)     , _ogUploadType     :: !(Maybe Text)     , _ogName           :: !Text     , _ogCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -91,7 +94,7 @@     :: Text -- ^ 'ogName'     -> OperationsGet operationsGet pOgName_ =-    OperationsGet'+  OperationsGet'     { _ogXgafv = Nothing     , _ogUploadProtocol = Nothing     , _ogAccessToken = Nothing@@ -99,6 +102,7 @@     , _ogName = pOgName_     , _ogCallback = Nothing     }+  -- | V1 error format. ogXgafv :: Lens' OperationsGet (Maybe Xgafv)

@@ -84,7 +84,8 @@ -- id. -- -- /See:/ 'operationsList' smart constructor.-data OperationsList = OperationsList'+data OperationsList =+  OperationsList'     { _olXgafv          :: !(Maybe Xgafv)     , _olUploadProtocol :: !(Maybe Text)     , _olAccessToken    :: !(Maybe Text)@@ -94,8 +95,10 @@     , _olPageToken      :: !(Maybe Text)     , _olPageSize       :: !(Maybe (Textual Int32))     , _olCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'OperationsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -121,7 +124,7 @@     :: Text -- ^ 'olName'     -> OperationsList operationsList pOlName_ =-    OperationsList'+  OperationsList'     { _olXgafv = Nothing     , _olUploadProtocol = Nothing     , _olAccessToken = Nothing@@ -132,6 +135,7 @@     , _olPageSize = Nothing     , _olCallback = Nothing     }+  -- | V1 error format. olXgafv :: Lens' OperationsList (Maybe Xgafv)

@@ -66,7 +66,8 @@ -- | Cancels a build in progress. -- -- /See:/ 'projectsBuildsCancel' smart constructor.-data ProjectsBuildsCancel = ProjectsBuildsCancel'+data ProjectsBuildsCancel =+  ProjectsBuildsCancel'     { _pbcXgafv          :: !(Maybe Xgafv)     , _pbcUploadProtocol :: !(Maybe Text)     , _pbcAccessToken    :: !(Maybe Text)@@ -75,8 +76,10 @@     , _pbcId             :: !Text     , _pbcProjectId      :: !Text     , _pbcCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsBuildsCancel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -102,7 +105,7 @@     -> Text -- ^ 'pbcProjectId'     -> ProjectsBuildsCancel projectsBuildsCancel pPbcPayload_ pPbcId_ pPbcProjectId_ =-    ProjectsBuildsCancel'+  ProjectsBuildsCancel'     { _pbcXgafv = Nothing     , _pbcUploadProtocol = Nothing     , _pbcAccessToken = Nothing@@ -112,6 +115,7 @@     , _pbcProjectId = pPbcProjectId_     , _pbcCallback = Nothing     }+  -- | V1 error format. pbcXgafv :: Lens' ProjectsBuildsCancel (Maybe Xgafv)

@@ -69,7 +69,8 @@ -- \`FAILURE\`). -- -- /See:/ 'projectsBuildsCreate' smart constructor.-data ProjectsBuildsCreate = ProjectsBuildsCreate'+data ProjectsBuildsCreate =+  ProjectsBuildsCreate'     { _pXgafv          :: !(Maybe Xgafv)     , _pUploadProtocol :: !(Maybe Text)     , _pAccessToken    :: !(Maybe Text)@@ -77,8 +78,10 @@     , _pPayload        :: !Build     , _pProjectId      :: !Text     , _pCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsBuildsCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -101,7 +104,7 @@     -> Text -- ^ 'pProjectId'     -> ProjectsBuildsCreate projectsBuildsCreate pPPayload_ pPProjectId_ =-    ProjectsBuildsCreate'+  ProjectsBuildsCreate'     { _pXgafv = Nothing     , _pUploadProtocol = Nothing     , _pAccessToken = Nothing@@ -110,6 +113,7 @@     , _pProjectId = pPProjectId_     , _pCallback = Nothing     }+  -- | V1 error format. pXgafv :: Lens' ProjectsBuildsCreate (Maybe Xgafv)

@@ -67,7 +67,8 @@ -- or \`WORKING\`), and timing information. -- -- /See:/ 'projectsBuildsGet' smart constructor.-data ProjectsBuildsGet = ProjectsBuildsGet'+data ProjectsBuildsGet =+  ProjectsBuildsGet'     { _pbgXgafv          :: !(Maybe Xgafv)     , _pbgUploadProtocol :: !(Maybe Text)     , _pbgAccessToken    :: !(Maybe Text)@@ -75,8 +76,10 @@     , _pbgId             :: !Text     , _pbgProjectId      :: !Text     , _pbgCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsBuildsGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -99,7 +102,7 @@     -> Text -- ^ 'pbgProjectId'     -> ProjectsBuildsGet projectsBuildsGet pPbgId_ pPbgProjectId_ =-    ProjectsBuildsGet'+  ProjectsBuildsGet'     { _pbgXgafv = Nothing     , _pbgUploadProtocol = Nothing     , _pbgAccessToken = Nothing@@ -108,6 +111,7 @@     , _pbgProjectId = pPbgProjectId_     , _pbgCallback = Nothing     }+  -- | V1 error format. pbgXgafv :: Lens' ProjectsBuildsGet (Maybe Xgafv)

@@ -70,7 +70,8 @@ -- be in-progress, or may have finished successfully or unsuccessfully. -- -- /See:/ 'projectsBuildsList' smart constructor.-data ProjectsBuildsList = ProjectsBuildsList'+data ProjectsBuildsList =+  ProjectsBuildsList'     { _pblXgafv          :: !(Maybe Xgafv)     , _pblUploadProtocol :: !(Maybe Text)     , _pblAccessToken    :: !(Maybe Text)@@ -80,8 +81,10 @@     , _pblProjectId      :: !Text     , _pblPageSize       :: !(Maybe (Textual Int32))     , _pblCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsBuildsList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -107,7 +110,7 @@     :: Text -- ^ 'pblProjectId'     -> ProjectsBuildsList projectsBuildsList pPblProjectId_ =-    ProjectsBuildsList'+  ProjectsBuildsList'     { _pblXgafv = Nothing     , _pblUploadProtocol = Nothing     , _pblAccessToken = Nothing@@ -118,6 +121,7 @@     , _pblPageSize = Nothing     , _pblCallback = Nothing     }+  -- | V1 error format. pblXgafv :: Lens' ProjectsBuildsList (Maybe Xgafv)

@@ -98,7 +98,8 @@ -- depending on the bucket\'s lifecycle management settings. -- -- /See:/ 'projectsBuildsRetry' smart constructor.-data ProjectsBuildsRetry = ProjectsBuildsRetry'+data ProjectsBuildsRetry =+  ProjectsBuildsRetry'     { _pbrXgafv          :: !(Maybe Xgafv)     , _pbrUploadProtocol :: !(Maybe Text)     , _pbrAccessToken    :: !(Maybe Text)@@ -107,8 +108,10 @@     , _pbrId             :: !Text     , _pbrProjectId      :: !Text     , _pbrCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsBuildsRetry' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -134,7 +137,7 @@     -> Text -- ^ 'pbrProjectId'     -> ProjectsBuildsRetry projectsBuildsRetry pPbrPayload_ pPbrId_ pPbrProjectId_ =-    ProjectsBuildsRetry'+  ProjectsBuildsRetry'     { _pbrXgafv = Nothing     , _pbrUploadProtocol = Nothing     , _pbrAccessToken = Nothing@@ -144,6 +147,7 @@     , _pbrProjectId = pPbrProjectId_     , _pbrCallback = Nothing     }+  -- | V1 error format. pbrXgafv :: Lens' ProjectsBuildsRetry (Maybe Xgafv)

@@ -64,7 +64,8 @@ -- | Creates a new \`BuildTrigger\`. This API is experimental. -- -- /See:/ 'projectsTriggersCreate' smart constructor.-data ProjectsTriggersCreate = ProjectsTriggersCreate'+data ProjectsTriggersCreate =+  ProjectsTriggersCreate'     { _ptcXgafv          :: !(Maybe Xgafv)     , _ptcUploadProtocol :: !(Maybe Text)     , _ptcAccessToken    :: !(Maybe Text)@@ -72,8 +73,10 @@     , _ptcPayload        :: !BuildTrigger     , _ptcProjectId      :: !Text     , _ptcCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTriggersCreate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -96,7 +99,7 @@     -> Text -- ^ 'ptcProjectId'     -> ProjectsTriggersCreate projectsTriggersCreate pPtcPayload_ pPtcProjectId_ =-    ProjectsTriggersCreate'+  ProjectsTriggersCreate'     { _ptcXgafv = Nothing     , _ptcUploadProtocol = Nothing     , _ptcAccessToken = Nothing@@ -105,6 +108,7 @@     , _ptcProjectId = pPtcProjectId_     , _ptcCallback = Nothing     }+  -- | V1 error format. ptcXgafv :: Lens' ProjectsTriggersCreate (Maybe Xgafv)

@@ -65,7 +65,8 @@ -- experimental. -- -- /See:/ 'projectsTriggersDelete' smart constructor.-data ProjectsTriggersDelete = ProjectsTriggersDelete'+data ProjectsTriggersDelete =+  ProjectsTriggersDelete'     { _ptdXgafv          :: !(Maybe Xgafv)     , _ptdUploadProtocol :: !(Maybe Text)     , _ptdTriggerId      :: !Text@@ -73,8 +74,10 @@     , _ptdUploadType     :: !(Maybe Text)     , _ptdProjectId      :: !Text     , _ptdCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTriggersDelete' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -97,7 +100,7 @@     -> Text -- ^ 'ptdProjectId'     -> ProjectsTriggersDelete projectsTriggersDelete pPtdTriggerId_ pPtdProjectId_ =-    ProjectsTriggersDelete'+  ProjectsTriggersDelete'     { _ptdXgafv = Nothing     , _ptdUploadProtocol = Nothing     , _ptdTriggerId = pPtdTriggerId_@@ -106,6 +109,7 @@     , _ptdProjectId = pPtdProjectId_     , _ptdCallback = Nothing     }+  -- | V1 error format. ptdXgafv :: Lens' ProjectsTriggersDelete (Maybe Xgafv)

@@ -63,7 +63,8 @@ -- | Returns information about a \`BuildTrigger\`. This API is experimental. -- -- /See:/ 'projectsTriggersGet' smart constructor.-data ProjectsTriggersGet = ProjectsTriggersGet'+data ProjectsTriggersGet =+  ProjectsTriggersGet'     { _ptgXgafv          :: !(Maybe Xgafv)     , _ptgUploadProtocol :: !(Maybe Text)     , _ptgTriggerId      :: !Text@@ -71,8 +72,10 @@     , _ptgUploadType     :: !(Maybe Text)     , _ptgProjectId      :: !Text     , _ptgCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTriggersGet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -95,7 +98,7 @@     -> Text -- ^ 'ptgProjectId'     -> ProjectsTriggersGet projectsTriggersGet pPtgTriggerId_ pPtgProjectId_ =-    ProjectsTriggersGet'+  ProjectsTriggersGet'     { _ptgXgafv = Nothing     , _ptgUploadProtocol = Nothing     , _ptgTriggerId = pPtgTriggerId_@@ -104,6 +107,7 @@     , _ptgProjectId = pPtgProjectId_     , _ptgCallback = Nothing     }+  -- | V1 error format. ptgXgafv :: Lens' ProjectsTriggersGet (Maybe Xgafv)

@@ -37,7 +37,9 @@     , ptlUploadProtocol     , ptlAccessToken     , ptlUploadType+    , ptlPageToken     , ptlProjectId+    , ptlPageSize     , ptlCallback     ) where @@ -55,22 +57,29 @@                QueryParam "upload_protocol" Text :>                  QueryParam "access_token" Text :>                    QueryParam "uploadType" Text :>-                     QueryParam "callback" Text :>-                       QueryParam "alt" AltJSON :>-                         Get '[JSON] ListBuildTriggersResponse+                     QueryParam "pageToken" Text :>+                       QueryParam "pageSize" (Textual Int32) :>+                         QueryParam "callback" Text :>+                           QueryParam "alt" AltJSON :>+                             Get '[JSON] ListBuildTriggersResponse  -- | Lists existing \`BuildTrigger\`s. This API is experimental. -- -- /See:/ 'projectsTriggersList' smart constructor.-data ProjectsTriggersList = ProjectsTriggersList'+data ProjectsTriggersList =+  ProjectsTriggersList'     { _ptlXgafv          :: !(Maybe Xgafv)     , _ptlUploadProtocol :: !(Maybe Text)     , _ptlAccessToken    :: !(Maybe Text)     , _ptlUploadType     :: !(Maybe Text)+    , _ptlPageToken      :: !(Maybe Text)     , _ptlProjectId      :: !Text+    , _ptlPageSize       :: !(Maybe (Textual Int32))     , _ptlCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTriggersList' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -83,22 +92,29 @@ -- -- * 'ptlUploadType' --+-- * 'ptlPageToken'+-- -- * 'ptlProjectId' --+-- * 'ptlPageSize'+-- -- * 'ptlCallback' projectsTriggersList     :: Text -- ^ 'ptlProjectId'     -> ProjectsTriggersList projectsTriggersList pPtlProjectId_ =-    ProjectsTriggersList'+  ProjectsTriggersList'     { _ptlXgafv = Nothing     , _ptlUploadProtocol = Nothing     , _ptlAccessToken = Nothing     , _ptlUploadType = Nothing+    , _ptlPageToken = Nothing     , _ptlProjectId = pPtlProjectId_+    , _ptlPageSize = Nothing     , _ptlCallback = Nothing     } + -- | V1 error format. ptlXgafv :: Lens' ProjectsTriggersList (Maybe Xgafv) ptlXgafv = lens _ptlXgafv (\ s a -> s{_ptlXgafv = a})@@ -121,11 +137,22 @@   = lens _ptlUploadType       (\ s a -> s{_ptlUploadType = a}) +-- | Token to provide to skip to a particular spot in the list.+ptlPageToken :: Lens' ProjectsTriggersList (Maybe Text)+ptlPageToken+  = lens _ptlPageToken (\ s a -> s{_ptlPageToken = a})+ -- | ID of the project for which to list BuildTriggers. ptlProjectId :: Lens' ProjectsTriggersList Text ptlProjectId   = lens _ptlProjectId (\ s a -> s{_ptlProjectId = a}) +-- | Number of results to return in the list.+ptlPageSize :: Lens' ProjectsTriggersList (Maybe Int32)+ptlPageSize+  = lens _ptlPageSize (\ s a -> s{_ptlPageSize = a}) .+      mapping _Coerce+ -- | JSONP ptlCallback :: Lens' ProjectsTriggersList (Maybe Text) ptlCallback@@ -140,6 +167,8 @@           = go _ptlProjectId _ptlXgafv _ptlUploadProtocol               _ptlAccessToken               _ptlUploadType+              _ptlPageToken+              _ptlPageSize               _ptlCallback               (Just AltJSON)               containerBuilderService

@@ -68,7 +68,8 @@ -- experimental. -- -- /See:/ 'projectsTriggersPatch' smart constructor.-data ProjectsTriggersPatch = ProjectsTriggersPatch'+data ProjectsTriggersPatch =+  ProjectsTriggersPatch'     { _ptpXgafv          :: !(Maybe Xgafv)     , _ptpUploadProtocol :: !(Maybe Text)     , _ptpTriggerId      :: !Text@@ -77,8 +78,10 @@     , _ptpPayload        :: !BuildTrigger     , _ptpProjectId      :: !Text     , _ptpCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTriggersPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -104,7 +107,7 @@     -> Text -- ^ 'ptpProjectId'     -> ProjectsTriggersPatch projectsTriggersPatch pPtpTriggerId_ pPtpPayload_ pPtpProjectId_ =-    ProjectsTriggersPatch'+  ProjectsTriggersPatch'     { _ptpXgafv = Nothing     , _ptpUploadProtocol = Nothing     , _ptpTriggerId = pPtpTriggerId_@@ -114,6 +117,7 @@     , _ptpProjectId = pPtpProjectId_     , _ptpCallback = Nothing     }+  -- | V1 error format. ptpXgafv :: Lens' ProjectsTriggersPatch (Maybe Xgafv)

@@ -65,7 +65,8 @@ -- | Runs a \`BuildTrigger\` at a particular source revision. -- -- /See:/ 'projectsTriggersRun' smart constructor.-data ProjectsTriggersRun = ProjectsTriggersRun'+data ProjectsTriggersRun =+  ProjectsTriggersRun'     { _ptrXgafv          :: !(Maybe Xgafv)     , _ptrUploadProtocol :: !(Maybe Text)     , _ptrTriggerId      :: !Text@@ -74,8 +75,10 @@     , _ptrPayload        :: !RepoSource     , _ptrProjectId      :: !Text     , _ptrCallback       :: !(Maybe Text)-    } deriving (Eq,Show,Data,Typeable,Generic)+    }+  deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'ProjectsTriggersRun' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -101,7 +104,7 @@     -> Text -- ^ 'ptrProjectId'     -> ProjectsTriggersRun projectsTriggersRun pPtrTriggerId_ pPtrPayload_ pPtrProjectId_ =-    ProjectsTriggersRun'+  ProjectsTriggersRun'     { _ptrXgafv = Nothing     , _ptrUploadProtocol = Nothing     , _ptrTriggerId = pPtrTriggerId_@@ -111,6 +114,7 @@     , _ptrProjectId = pPtrProjectId_     , _ptrCallback = Nothing     }+  -- | V1 error format. ptrXgafv :: Lens' ProjectsTriggersRun (Maybe Xgafv)

@@ -1,5 +1,5 @@ name:                  gogol-containerbuilder-version:               0.4.0+version:               0.5.0 synopsis:              Google Cloud Build SDK. homepage:              https://github.com/brendanhay/gogol bug-reports:           https://github.com/brendanhay/gogol/issues@@ -55,5 +55,5 @@         , Network.Google.ContainerBuilder.Types.Sum      build-depends:-          gogol-core == 0.4.0.*+          gogol-core == 0.5.0.*         , base       >= 4.7 && < 5