{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.CodeBuild.StartBuildBatch
(
StartBuildBatch (..),
newStartBuildBatch,
startBuildBatch_artifactsOverride,
startBuildBatch_buildBatchConfigOverride,
startBuildBatch_buildTimeoutInMinutesOverride,
startBuildBatch_buildspecOverride,
startBuildBatch_cacheOverride,
startBuildBatch_certificateOverride,
startBuildBatch_computeTypeOverride,
startBuildBatch_debugSessionEnabled,
startBuildBatch_encryptionKeyOverride,
startBuildBatch_environmentTypeOverride,
startBuildBatch_environmentVariablesOverride,
startBuildBatch_gitCloneDepthOverride,
startBuildBatch_gitSubmodulesConfigOverride,
startBuildBatch_idempotencyToken,
startBuildBatch_imageOverride,
startBuildBatch_imagePullCredentialsTypeOverride,
startBuildBatch_insecureSslOverride,
startBuildBatch_logsConfigOverride,
startBuildBatch_privilegedModeOverride,
startBuildBatch_queuedTimeoutInMinutesOverride,
startBuildBatch_registryCredentialOverride,
startBuildBatch_reportBuildBatchStatusOverride,
startBuildBatch_secondaryArtifactsOverride,
startBuildBatch_secondarySourcesOverride,
startBuildBatch_secondarySourcesVersionOverride,
startBuildBatch_serviceRoleOverride,
startBuildBatch_sourceAuthOverride,
startBuildBatch_sourceLocationOverride,
startBuildBatch_sourceTypeOverride,
startBuildBatch_sourceVersion,
startBuildBatch_projectName,
StartBuildBatchResponse (..),
newStartBuildBatchResponse,
startBuildBatchResponse_buildBatch,
startBuildBatchResponse_httpStatus,
)
where
import Amazonka.CodeBuild.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data StartBuildBatch = StartBuildBatch'
{
StartBuildBatch -> Maybe ProjectArtifacts
artifactsOverride :: Prelude.Maybe ProjectArtifacts,
StartBuildBatch -> Maybe ProjectBuildBatchConfig
buildBatchConfigOverride :: Prelude.Maybe ProjectBuildBatchConfig,
StartBuildBatch -> Maybe Natural
buildTimeoutInMinutesOverride :: Prelude.Maybe Prelude.Natural,
StartBuildBatch -> Maybe Text
buildspecOverride :: Prelude.Maybe Prelude.Text,
StartBuildBatch -> Maybe ProjectCache
cacheOverride :: Prelude.Maybe ProjectCache,
StartBuildBatch -> Maybe Text
certificateOverride :: Prelude.Maybe Prelude.Text,
StartBuildBatch -> Maybe ComputeType
computeTypeOverride :: Prelude.Maybe ComputeType,
StartBuildBatch -> Maybe Bool
debugSessionEnabled :: Prelude.Maybe Prelude.Bool,
StartBuildBatch -> Maybe Text
encryptionKeyOverride :: Prelude.Maybe Prelude.Text,
StartBuildBatch -> Maybe EnvironmentType
environmentTypeOverride :: Prelude.Maybe EnvironmentType,
StartBuildBatch -> Maybe [EnvironmentVariable]
environmentVariablesOverride :: Prelude.Maybe [EnvironmentVariable],
StartBuildBatch -> Maybe Natural
gitCloneDepthOverride :: Prelude.Maybe Prelude.Natural,
StartBuildBatch -> Maybe GitSubmodulesConfig
gitSubmodulesConfigOverride :: Prelude.Maybe GitSubmodulesConfig,
StartBuildBatch -> Maybe Text
idempotencyToken :: Prelude.Maybe Prelude.Text,
StartBuildBatch -> Maybe Text
imageOverride :: Prelude.Maybe Prelude.Text,
StartBuildBatch -> Maybe ImagePullCredentialsType
imagePullCredentialsTypeOverride :: Prelude.Maybe ImagePullCredentialsType,
StartBuildBatch -> Maybe Bool
insecureSslOverride :: Prelude.Maybe Prelude.Bool,
StartBuildBatch -> Maybe LogsConfig
logsConfigOverride :: Prelude.Maybe LogsConfig,
StartBuildBatch -> Maybe Bool
privilegedModeOverride :: Prelude.Maybe Prelude.Bool,
StartBuildBatch -> Maybe Natural
queuedTimeoutInMinutesOverride :: Prelude.Maybe Prelude.Natural,
StartBuildBatch -> Maybe RegistryCredential
registryCredentialOverride :: Prelude.Maybe RegistryCredential,
StartBuildBatch -> Maybe Bool
reportBuildBatchStatusOverride :: Prelude.Maybe Prelude.Bool,
StartBuildBatch -> Maybe [ProjectArtifacts]
secondaryArtifactsOverride :: Prelude.Maybe [ProjectArtifacts],
StartBuildBatch -> Maybe [ProjectSource]
secondarySourcesOverride :: Prelude.Maybe [ProjectSource],
StartBuildBatch -> Maybe [ProjectSourceVersion]
secondarySourcesVersionOverride :: Prelude.Maybe [ProjectSourceVersion],
StartBuildBatch -> Maybe Text
serviceRoleOverride :: Prelude.Maybe Prelude.Text,
StartBuildBatch -> Maybe SourceAuth
sourceAuthOverride :: Prelude.Maybe SourceAuth,
StartBuildBatch -> Maybe Text
sourceLocationOverride :: Prelude.Maybe Prelude.Text,
StartBuildBatch -> Maybe SourceType
sourceTypeOverride :: Prelude.Maybe SourceType,
StartBuildBatch -> Maybe Text
sourceVersion :: Prelude.Maybe Prelude.Text,
StartBuildBatch -> Text
projectName :: Prelude.Text
}
deriving (StartBuildBatch -> StartBuildBatch -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartBuildBatch -> StartBuildBatch -> Bool
$c/= :: StartBuildBatch -> StartBuildBatch -> Bool
== :: StartBuildBatch -> StartBuildBatch -> Bool
$c== :: StartBuildBatch -> StartBuildBatch -> Bool
Prelude.Eq, ReadPrec [StartBuildBatch]
ReadPrec StartBuildBatch
Int -> ReadS StartBuildBatch
ReadS [StartBuildBatch]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartBuildBatch]
$creadListPrec :: ReadPrec [StartBuildBatch]
readPrec :: ReadPrec StartBuildBatch
$creadPrec :: ReadPrec StartBuildBatch
readList :: ReadS [StartBuildBatch]
$creadList :: ReadS [StartBuildBatch]
readsPrec :: Int -> ReadS StartBuildBatch
$creadsPrec :: Int -> ReadS StartBuildBatch
Prelude.Read, Int -> StartBuildBatch -> ShowS
[StartBuildBatch] -> ShowS
StartBuildBatch -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartBuildBatch] -> ShowS
$cshowList :: [StartBuildBatch] -> ShowS
show :: StartBuildBatch -> String
$cshow :: StartBuildBatch -> String
showsPrec :: Int -> StartBuildBatch -> ShowS
$cshowsPrec :: Int -> StartBuildBatch -> ShowS
Prelude.Show, forall x. Rep StartBuildBatch x -> StartBuildBatch
forall x. StartBuildBatch -> Rep StartBuildBatch x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep StartBuildBatch x -> StartBuildBatch
$cfrom :: forall x. StartBuildBatch -> Rep StartBuildBatch x
Prelude.Generic)
newStartBuildBatch ::
Prelude.Text ->
StartBuildBatch
newStartBuildBatch :: Text -> StartBuildBatch
newStartBuildBatch Text
pProjectName_ =
StartBuildBatch'
{ $sel:artifactsOverride:StartBuildBatch' :: Maybe ProjectArtifacts
artifactsOverride =
forall a. Maybe a
Prelude.Nothing,
$sel:buildBatchConfigOverride:StartBuildBatch' :: Maybe ProjectBuildBatchConfig
buildBatchConfigOverride = forall a. Maybe a
Prelude.Nothing,
$sel:buildTimeoutInMinutesOverride:StartBuildBatch' :: Maybe Natural
buildTimeoutInMinutesOverride = forall a. Maybe a
Prelude.Nothing,
$sel:buildspecOverride:StartBuildBatch' :: Maybe Text
buildspecOverride = forall a. Maybe a
Prelude.Nothing,
$sel:cacheOverride:StartBuildBatch' :: Maybe ProjectCache
cacheOverride = forall a. Maybe a
Prelude.Nothing,
$sel:certificateOverride:StartBuildBatch' :: Maybe Text
certificateOverride = forall a. Maybe a
Prelude.Nothing,
$sel:computeTypeOverride:StartBuildBatch' :: Maybe ComputeType
computeTypeOverride = forall a. Maybe a
Prelude.Nothing,
$sel:debugSessionEnabled:StartBuildBatch' :: Maybe Bool
debugSessionEnabled = forall a. Maybe a
Prelude.Nothing,
$sel:encryptionKeyOverride:StartBuildBatch' :: Maybe Text
encryptionKeyOverride = forall a. Maybe a
Prelude.Nothing,
$sel:environmentTypeOverride:StartBuildBatch' :: Maybe EnvironmentType
environmentTypeOverride = forall a. Maybe a
Prelude.Nothing,
$sel:environmentVariablesOverride:StartBuildBatch' :: Maybe [EnvironmentVariable]
environmentVariablesOverride = forall a. Maybe a
Prelude.Nothing,
$sel:gitCloneDepthOverride:StartBuildBatch' :: Maybe Natural
gitCloneDepthOverride = forall a. Maybe a
Prelude.Nothing,
$sel:gitSubmodulesConfigOverride:StartBuildBatch' :: Maybe GitSubmodulesConfig
gitSubmodulesConfigOverride = forall a. Maybe a
Prelude.Nothing,
$sel:idempotencyToken:StartBuildBatch' :: Maybe Text
idempotencyToken = forall a. Maybe a
Prelude.Nothing,
$sel:imageOverride:StartBuildBatch' :: Maybe Text
imageOverride = forall a. Maybe a
Prelude.Nothing,
$sel:imagePullCredentialsTypeOverride:StartBuildBatch' :: Maybe ImagePullCredentialsType
imagePullCredentialsTypeOverride = forall a. Maybe a
Prelude.Nothing,
$sel:insecureSslOverride:StartBuildBatch' :: Maybe Bool
insecureSslOverride = forall a. Maybe a
Prelude.Nothing,
$sel:logsConfigOverride:StartBuildBatch' :: Maybe LogsConfig
logsConfigOverride = forall a. Maybe a
Prelude.Nothing,
$sel:privilegedModeOverride:StartBuildBatch' :: Maybe Bool
privilegedModeOverride = forall a. Maybe a
Prelude.Nothing,
$sel:queuedTimeoutInMinutesOverride:StartBuildBatch' :: Maybe Natural
queuedTimeoutInMinutesOverride = forall a. Maybe a
Prelude.Nothing,
$sel:registryCredentialOverride:StartBuildBatch' :: Maybe RegistryCredential
registryCredentialOverride = forall a. Maybe a
Prelude.Nothing,
$sel:reportBuildBatchStatusOverride:StartBuildBatch' :: Maybe Bool
reportBuildBatchStatusOverride = forall a. Maybe a
Prelude.Nothing,
$sel:secondaryArtifactsOverride:StartBuildBatch' :: Maybe [ProjectArtifacts]
secondaryArtifactsOverride = forall a. Maybe a
Prelude.Nothing,
$sel:secondarySourcesOverride:StartBuildBatch' :: Maybe [ProjectSource]
secondarySourcesOverride = forall a. Maybe a
Prelude.Nothing,
$sel:secondarySourcesVersionOverride:StartBuildBatch' :: Maybe [ProjectSourceVersion]
secondarySourcesVersionOverride = forall a. Maybe a
Prelude.Nothing,
$sel:serviceRoleOverride:StartBuildBatch' :: Maybe Text
serviceRoleOverride = forall a. Maybe a
Prelude.Nothing,
$sel:sourceAuthOverride:StartBuildBatch' :: Maybe SourceAuth
sourceAuthOverride = forall a. Maybe a
Prelude.Nothing,
$sel:sourceLocationOverride:StartBuildBatch' :: Maybe Text
sourceLocationOverride = forall a. Maybe a
Prelude.Nothing,
$sel:sourceTypeOverride:StartBuildBatch' :: Maybe SourceType
sourceTypeOverride = forall a. Maybe a
Prelude.Nothing,
$sel:sourceVersion:StartBuildBatch' :: Maybe Text
sourceVersion = forall a. Maybe a
Prelude.Nothing,
$sel:projectName:StartBuildBatch' :: Text
projectName = Text
pProjectName_
}
startBuildBatch_artifactsOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe ProjectArtifacts)
startBuildBatch_artifactsOverride :: Lens' StartBuildBatch (Maybe ProjectArtifacts)
startBuildBatch_artifactsOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe ProjectArtifacts
artifactsOverride :: Maybe ProjectArtifacts
$sel:artifactsOverride:StartBuildBatch' :: StartBuildBatch -> Maybe ProjectArtifacts
artifactsOverride} -> Maybe ProjectArtifacts
artifactsOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe ProjectArtifacts
a -> StartBuildBatch
s {$sel:artifactsOverride:StartBuildBatch' :: Maybe ProjectArtifacts
artifactsOverride = Maybe ProjectArtifacts
a} :: StartBuildBatch)
startBuildBatch_buildBatchConfigOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe ProjectBuildBatchConfig)
startBuildBatch_buildBatchConfigOverride :: Lens' StartBuildBatch (Maybe ProjectBuildBatchConfig)
startBuildBatch_buildBatchConfigOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe ProjectBuildBatchConfig
buildBatchConfigOverride :: Maybe ProjectBuildBatchConfig
$sel:buildBatchConfigOverride:StartBuildBatch' :: StartBuildBatch -> Maybe ProjectBuildBatchConfig
buildBatchConfigOverride} -> Maybe ProjectBuildBatchConfig
buildBatchConfigOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe ProjectBuildBatchConfig
a -> StartBuildBatch
s {$sel:buildBatchConfigOverride:StartBuildBatch' :: Maybe ProjectBuildBatchConfig
buildBatchConfigOverride = Maybe ProjectBuildBatchConfig
a} :: StartBuildBatch)
startBuildBatch_buildTimeoutInMinutesOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe Prelude.Natural)
startBuildBatch_buildTimeoutInMinutesOverride :: Lens' StartBuildBatch (Maybe Natural)
startBuildBatch_buildTimeoutInMinutesOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe Natural
buildTimeoutInMinutesOverride :: Maybe Natural
$sel:buildTimeoutInMinutesOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Natural
buildTimeoutInMinutesOverride} -> Maybe Natural
buildTimeoutInMinutesOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe Natural
a -> StartBuildBatch
s {$sel:buildTimeoutInMinutesOverride:StartBuildBatch' :: Maybe Natural
buildTimeoutInMinutesOverride = Maybe Natural
a} :: StartBuildBatch)
startBuildBatch_buildspecOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe Prelude.Text)
startBuildBatch_buildspecOverride :: Lens' StartBuildBatch (Maybe Text)
startBuildBatch_buildspecOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe Text
buildspecOverride :: Maybe Text
$sel:buildspecOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
buildspecOverride} -> Maybe Text
buildspecOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe Text
a -> StartBuildBatch
s {$sel:buildspecOverride:StartBuildBatch' :: Maybe Text
buildspecOverride = Maybe Text
a} :: StartBuildBatch)
startBuildBatch_cacheOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe ProjectCache)
startBuildBatch_cacheOverride :: Lens' StartBuildBatch (Maybe ProjectCache)
startBuildBatch_cacheOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe ProjectCache
cacheOverride :: Maybe ProjectCache
$sel:cacheOverride:StartBuildBatch' :: StartBuildBatch -> Maybe ProjectCache
cacheOverride} -> Maybe ProjectCache
cacheOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe ProjectCache
a -> StartBuildBatch
s {$sel:cacheOverride:StartBuildBatch' :: Maybe ProjectCache
cacheOverride = Maybe ProjectCache
a} :: StartBuildBatch)
startBuildBatch_certificateOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe Prelude.Text)
startBuildBatch_certificateOverride :: Lens' StartBuildBatch (Maybe Text)
startBuildBatch_certificateOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe Text
certificateOverride :: Maybe Text
$sel:certificateOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
certificateOverride} -> Maybe Text
certificateOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe Text
a -> StartBuildBatch
s {$sel:certificateOverride:StartBuildBatch' :: Maybe Text
certificateOverride = Maybe Text
a} :: StartBuildBatch)
startBuildBatch_computeTypeOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe ComputeType)
startBuildBatch_computeTypeOverride :: Lens' StartBuildBatch (Maybe ComputeType)
startBuildBatch_computeTypeOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe ComputeType
computeTypeOverride :: Maybe ComputeType
$sel:computeTypeOverride:StartBuildBatch' :: StartBuildBatch -> Maybe ComputeType
computeTypeOverride} -> Maybe ComputeType
computeTypeOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe ComputeType
a -> StartBuildBatch
s {$sel:computeTypeOverride:StartBuildBatch' :: Maybe ComputeType
computeTypeOverride = Maybe ComputeType
a} :: StartBuildBatch)
startBuildBatch_debugSessionEnabled :: Lens.Lens' StartBuildBatch (Prelude.Maybe Prelude.Bool)
startBuildBatch_debugSessionEnabled :: Lens' StartBuildBatch (Maybe Bool)
startBuildBatch_debugSessionEnabled = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe Bool
debugSessionEnabled :: Maybe Bool
$sel:debugSessionEnabled:StartBuildBatch' :: StartBuildBatch -> Maybe Bool
debugSessionEnabled} -> Maybe Bool
debugSessionEnabled) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe Bool
a -> StartBuildBatch
s {$sel:debugSessionEnabled:StartBuildBatch' :: Maybe Bool
debugSessionEnabled = Maybe Bool
a} :: StartBuildBatch)
startBuildBatch_encryptionKeyOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe Prelude.Text)
startBuildBatch_encryptionKeyOverride :: Lens' StartBuildBatch (Maybe Text)
startBuildBatch_encryptionKeyOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe Text
encryptionKeyOverride :: Maybe Text
$sel:encryptionKeyOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
encryptionKeyOverride} -> Maybe Text
encryptionKeyOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe Text
a -> StartBuildBatch
s {$sel:encryptionKeyOverride:StartBuildBatch' :: Maybe Text
encryptionKeyOverride = Maybe Text
a} :: StartBuildBatch)
startBuildBatch_environmentTypeOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe EnvironmentType)
startBuildBatch_environmentTypeOverride :: Lens' StartBuildBatch (Maybe EnvironmentType)
startBuildBatch_environmentTypeOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe EnvironmentType
environmentTypeOverride :: Maybe EnvironmentType
$sel:environmentTypeOverride:StartBuildBatch' :: StartBuildBatch -> Maybe EnvironmentType
environmentTypeOverride} -> Maybe EnvironmentType
environmentTypeOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe EnvironmentType
a -> StartBuildBatch
s {$sel:environmentTypeOverride:StartBuildBatch' :: Maybe EnvironmentType
environmentTypeOverride = Maybe EnvironmentType
a} :: StartBuildBatch)
startBuildBatch_environmentVariablesOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe [EnvironmentVariable])
startBuildBatch_environmentVariablesOverride :: Lens' StartBuildBatch (Maybe [EnvironmentVariable])
startBuildBatch_environmentVariablesOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe [EnvironmentVariable]
environmentVariablesOverride :: Maybe [EnvironmentVariable]
$sel:environmentVariablesOverride:StartBuildBatch' :: StartBuildBatch -> Maybe [EnvironmentVariable]
environmentVariablesOverride} -> Maybe [EnvironmentVariable]
environmentVariablesOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe [EnvironmentVariable]
a -> StartBuildBatch
s {$sel:environmentVariablesOverride:StartBuildBatch' :: Maybe [EnvironmentVariable]
environmentVariablesOverride = Maybe [EnvironmentVariable]
a} :: StartBuildBatch) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
startBuildBatch_gitCloneDepthOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe Prelude.Natural)
startBuildBatch_gitCloneDepthOverride :: Lens' StartBuildBatch (Maybe Natural)
startBuildBatch_gitCloneDepthOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe Natural
gitCloneDepthOverride :: Maybe Natural
$sel:gitCloneDepthOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Natural
gitCloneDepthOverride} -> Maybe Natural
gitCloneDepthOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe Natural
a -> StartBuildBatch
s {$sel:gitCloneDepthOverride:StartBuildBatch' :: Maybe Natural
gitCloneDepthOverride = Maybe Natural
a} :: StartBuildBatch)
startBuildBatch_gitSubmodulesConfigOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe GitSubmodulesConfig)
startBuildBatch_gitSubmodulesConfigOverride :: Lens' StartBuildBatch (Maybe GitSubmodulesConfig)
startBuildBatch_gitSubmodulesConfigOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe GitSubmodulesConfig
gitSubmodulesConfigOverride :: Maybe GitSubmodulesConfig
$sel:gitSubmodulesConfigOverride:StartBuildBatch' :: StartBuildBatch -> Maybe GitSubmodulesConfig
gitSubmodulesConfigOverride} -> Maybe GitSubmodulesConfig
gitSubmodulesConfigOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe GitSubmodulesConfig
a -> StartBuildBatch
s {$sel:gitSubmodulesConfigOverride:StartBuildBatch' :: Maybe GitSubmodulesConfig
gitSubmodulesConfigOverride = Maybe GitSubmodulesConfig
a} :: StartBuildBatch)
startBuildBatch_idempotencyToken :: Lens.Lens' StartBuildBatch (Prelude.Maybe Prelude.Text)
startBuildBatch_idempotencyToken :: Lens' StartBuildBatch (Maybe Text)
startBuildBatch_idempotencyToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe Text
idempotencyToken :: Maybe Text
$sel:idempotencyToken:StartBuildBatch' :: StartBuildBatch -> Maybe Text
idempotencyToken} -> Maybe Text
idempotencyToken) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe Text
a -> StartBuildBatch
s {$sel:idempotencyToken:StartBuildBatch' :: Maybe Text
idempotencyToken = Maybe Text
a} :: StartBuildBatch)
startBuildBatch_imageOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe Prelude.Text)
startBuildBatch_imageOverride :: Lens' StartBuildBatch (Maybe Text)
startBuildBatch_imageOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe Text
imageOverride :: Maybe Text
$sel:imageOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
imageOverride} -> Maybe Text
imageOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe Text
a -> StartBuildBatch
s {$sel:imageOverride:StartBuildBatch' :: Maybe Text
imageOverride = Maybe Text
a} :: StartBuildBatch)
startBuildBatch_imagePullCredentialsTypeOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe ImagePullCredentialsType)
startBuildBatch_imagePullCredentialsTypeOverride :: Lens' StartBuildBatch (Maybe ImagePullCredentialsType)
startBuildBatch_imagePullCredentialsTypeOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe ImagePullCredentialsType
imagePullCredentialsTypeOverride :: Maybe ImagePullCredentialsType
$sel:imagePullCredentialsTypeOverride:StartBuildBatch' :: StartBuildBatch -> Maybe ImagePullCredentialsType
imagePullCredentialsTypeOverride} -> Maybe ImagePullCredentialsType
imagePullCredentialsTypeOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe ImagePullCredentialsType
a -> StartBuildBatch
s {$sel:imagePullCredentialsTypeOverride:StartBuildBatch' :: Maybe ImagePullCredentialsType
imagePullCredentialsTypeOverride = Maybe ImagePullCredentialsType
a} :: StartBuildBatch)
startBuildBatch_insecureSslOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe Prelude.Bool)
startBuildBatch_insecureSslOverride :: Lens' StartBuildBatch (Maybe Bool)
startBuildBatch_insecureSslOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe Bool
insecureSslOverride :: Maybe Bool
$sel:insecureSslOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Bool
insecureSslOverride} -> Maybe Bool
insecureSslOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe Bool
a -> StartBuildBatch
s {$sel:insecureSslOverride:StartBuildBatch' :: Maybe Bool
insecureSslOverride = Maybe Bool
a} :: StartBuildBatch)
startBuildBatch_logsConfigOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe LogsConfig)
startBuildBatch_logsConfigOverride :: Lens' StartBuildBatch (Maybe LogsConfig)
startBuildBatch_logsConfigOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe LogsConfig
logsConfigOverride :: Maybe LogsConfig
$sel:logsConfigOverride:StartBuildBatch' :: StartBuildBatch -> Maybe LogsConfig
logsConfigOverride} -> Maybe LogsConfig
logsConfigOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe LogsConfig
a -> StartBuildBatch
s {$sel:logsConfigOverride:StartBuildBatch' :: Maybe LogsConfig
logsConfigOverride = Maybe LogsConfig
a} :: StartBuildBatch)
startBuildBatch_privilegedModeOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe Prelude.Bool)
startBuildBatch_privilegedModeOverride :: Lens' StartBuildBatch (Maybe Bool)
startBuildBatch_privilegedModeOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe Bool
privilegedModeOverride :: Maybe Bool
$sel:privilegedModeOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Bool
privilegedModeOverride} -> Maybe Bool
privilegedModeOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe Bool
a -> StartBuildBatch
s {$sel:privilegedModeOverride:StartBuildBatch' :: Maybe Bool
privilegedModeOverride = Maybe Bool
a} :: StartBuildBatch)
startBuildBatch_queuedTimeoutInMinutesOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe Prelude.Natural)
startBuildBatch_queuedTimeoutInMinutesOverride :: Lens' StartBuildBatch (Maybe Natural)
startBuildBatch_queuedTimeoutInMinutesOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe Natural
queuedTimeoutInMinutesOverride :: Maybe Natural
$sel:queuedTimeoutInMinutesOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Natural
queuedTimeoutInMinutesOverride} -> Maybe Natural
queuedTimeoutInMinutesOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe Natural
a -> StartBuildBatch
s {$sel:queuedTimeoutInMinutesOverride:StartBuildBatch' :: Maybe Natural
queuedTimeoutInMinutesOverride = Maybe Natural
a} :: StartBuildBatch)
startBuildBatch_registryCredentialOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe RegistryCredential)
startBuildBatch_registryCredentialOverride :: Lens' StartBuildBatch (Maybe RegistryCredential)
startBuildBatch_registryCredentialOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe RegistryCredential
registryCredentialOverride :: Maybe RegistryCredential
$sel:registryCredentialOverride:StartBuildBatch' :: StartBuildBatch -> Maybe RegistryCredential
registryCredentialOverride} -> Maybe RegistryCredential
registryCredentialOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe RegistryCredential
a -> StartBuildBatch
s {$sel:registryCredentialOverride:StartBuildBatch' :: Maybe RegistryCredential
registryCredentialOverride = Maybe RegistryCredential
a} :: StartBuildBatch)
startBuildBatch_reportBuildBatchStatusOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe Prelude.Bool)
startBuildBatch_reportBuildBatchStatusOverride :: Lens' StartBuildBatch (Maybe Bool)
startBuildBatch_reportBuildBatchStatusOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe Bool
reportBuildBatchStatusOverride :: Maybe Bool
$sel:reportBuildBatchStatusOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Bool
reportBuildBatchStatusOverride} -> Maybe Bool
reportBuildBatchStatusOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe Bool
a -> StartBuildBatch
s {$sel:reportBuildBatchStatusOverride:StartBuildBatch' :: Maybe Bool
reportBuildBatchStatusOverride = Maybe Bool
a} :: StartBuildBatch)
startBuildBatch_secondaryArtifactsOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe [ProjectArtifacts])
startBuildBatch_secondaryArtifactsOverride :: Lens' StartBuildBatch (Maybe [ProjectArtifacts])
startBuildBatch_secondaryArtifactsOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe [ProjectArtifacts]
secondaryArtifactsOverride :: Maybe [ProjectArtifacts]
$sel:secondaryArtifactsOverride:StartBuildBatch' :: StartBuildBatch -> Maybe [ProjectArtifacts]
secondaryArtifactsOverride} -> Maybe [ProjectArtifacts]
secondaryArtifactsOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe [ProjectArtifacts]
a -> StartBuildBatch
s {$sel:secondaryArtifactsOverride:StartBuildBatch' :: Maybe [ProjectArtifacts]
secondaryArtifactsOverride = Maybe [ProjectArtifacts]
a} :: StartBuildBatch) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
startBuildBatch_secondarySourcesOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe [ProjectSource])
startBuildBatch_secondarySourcesOverride :: Lens' StartBuildBatch (Maybe [ProjectSource])
startBuildBatch_secondarySourcesOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe [ProjectSource]
secondarySourcesOverride :: Maybe [ProjectSource]
$sel:secondarySourcesOverride:StartBuildBatch' :: StartBuildBatch -> Maybe [ProjectSource]
secondarySourcesOverride} -> Maybe [ProjectSource]
secondarySourcesOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe [ProjectSource]
a -> StartBuildBatch
s {$sel:secondarySourcesOverride:StartBuildBatch' :: Maybe [ProjectSource]
secondarySourcesOverride = Maybe [ProjectSource]
a} :: StartBuildBatch) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
startBuildBatch_secondarySourcesVersionOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe [ProjectSourceVersion])
startBuildBatch_secondarySourcesVersionOverride :: Lens' StartBuildBatch (Maybe [ProjectSourceVersion])
startBuildBatch_secondarySourcesVersionOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe [ProjectSourceVersion]
secondarySourcesVersionOverride :: Maybe [ProjectSourceVersion]
$sel:secondarySourcesVersionOverride:StartBuildBatch' :: StartBuildBatch -> Maybe [ProjectSourceVersion]
secondarySourcesVersionOverride} -> Maybe [ProjectSourceVersion]
secondarySourcesVersionOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe [ProjectSourceVersion]
a -> StartBuildBatch
s {$sel:secondarySourcesVersionOverride:StartBuildBatch' :: Maybe [ProjectSourceVersion]
secondarySourcesVersionOverride = Maybe [ProjectSourceVersion]
a} :: StartBuildBatch) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
startBuildBatch_serviceRoleOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe Prelude.Text)
startBuildBatch_serviceRoleOverride :: Lens' StartBuildBatch (Maybe Text)
startBuildBatch_serviceRoleOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe Text
serviceRoleOverride :: Maybe Text
$sel:serviceRoleOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
serviceRoleOverride} -> Maybe Text
serviceRoleOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe Text
a -> StartBuildBatch
s {$sel:serviceRoleOverride:StartBuildBatch' :: Maybe Text
serviceRoleOverride = Maybe Text
a} :: StartBuildBatch)
startBuildBatch_sourceAuthOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe SourceAuth)
startBuildBatch_sourceAuthOverride :: Lens' StartBuildBatch (Maybe SourceAuth)
startBuildBatch_sourceAuthOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe SourceAuth
sourceAuthOverride :: Maybe SourceAuth
$sel:sourceAuthOverride:StartBuildBatch' :: StartBuildBatch -> Maybe SourceAuth
sourceAuthOverride} -> Maybe SourceAuth
sourceAuthOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe SourceAuth
a -> StartBuildBatch
s {$sel:sourceAuthOverride:StartBuildBatch' :: Maybe SourceAuth
sourceAuthOverride = Maybe SourceAuth
a} :: StartBuildBatch)
startBuildBatch_sourceLocationOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe Prelude.Text)
startBuildBatch_sourceLocationOverride :: Lens' StartBuildBatch (Maybe Text)
startBuildBatch_sourceLocationOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe Text
sourceLocationOverride :: Maybe Text
$sel:sourceLocationOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
sourceLocationOverride} -> Maybe Text
sourceLocationOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe Text
a -> StartBuildBatch
s {$sel:sourceLocationOverride:StartBuildBatch' :: Maybe Text
sourceLocationOverride = Maybe Text
a} :: StartBuildBatch)
startBuildBatch_sourceTypeOverride :: Lens.Lens' StartBuildBatch (Prelude.Maybe SourceType)
startBuildBatch_sourceTypeOverride :: Lens' StartBuildBatch (Maybe SourceType)
startBuildBatch_sourceTypeOverride = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe SourceType
sourceTypeOverride :: Maybe SourceType
$sel:sourceTypeOverride:StartBuildBatch' :: StartBuildBatch -> Maybe SourceType
sourceTypeOverride} -> Maybe SourceType
sourceTypeOverride) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe SourceType
a -> StartBuildBatch
s {$sel:sourceTypeOverride:StartBuildBatch' :: Maybe SourceType
sourceTypeOverride = Maybe SourceType
a} :: StartBuildBatch)
startBuildBatch_sourceVersion :: Lens.Lens' StartBuildBatch (Prelude.Maybe Prelude.Text)
startBuildBatch_sourceVersion :: Lens' StartBuildBatch (Maybe Text)
startBuildBatch_sourceVersion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Maybe Text
sourceVersion :: Maybe Text
$sel:sourceVersion:StartBuildBatch' :: StartBuildBatch -> Maybe Text
sourceVersion} -> Maybe Text
sourceVersion) (\s :: StartBuildBatch
s@StartBuildBatch' {} Maybe Text
a -> StartBuildBatch
s {$sel:sourceVersion:StartBuildBatch' :: Maybe Text
sourceVersion = Maybe Text
a} :: StartBuildBatch)
startBuildBatch_projectName :: Lens.Lens' StartBuildBatch Prelude.Text
startBuildBatch_projectName :: Lens' StartBuildBatch Text
startBuildBatch_projectName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatch' {Text
projectName :: Text
$sel:projectName:StartBuildBatch' :: StartBuildBatch -> Text
projectName} -> Text
projectName) (\s :: StartBuildBatch
s@StartBuildBatch' {} Text
a -> StartBuildBatch
s {$sel:projectName:StartBuildBatch' :: Text
projectName = Text
a} :: StartBuildBatch)
instance Core.AWSRequest StartBuildBatch where
type
AWSResponse StartBuildBatch =
StartBuildBatchResponse
request :: (Service -> Service) -> StartBuildBatch -> Request StartBuildBatch
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy StartBuildBatch
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse StartBuildBatch)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe BuildBatch -> Int -> StartBuildBatchResponse
StartBuildBatchResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"buildBatch")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable StartBuildBatch where
hashWithSalt :: Int -> StartBuildBatch -> Int
hashWithSalt Int
_salt StartBuildBatch' {Maybe Bool
Maybe Natural
Maybe [EnvironmentVariable]
Maybe [ProjectArtifacts]
Maybe [ProjectSourceVersion]
Maybe [ProjectSource]
Maybe Text
Maybe ComputeType
Maybe EnvironmentType
Maybe GitSubmodulesConfig
Maybe ImagePullCredentialsType
Maybe ProjectArtifacts
Maybe ProjectBuildBatchConfig
Maybe ProjectCache
Maybe RegistryCredential
Maybe LogsConfig
Maybe SourceAuth
Maybe SourceType
Text
projectName :: Text
sourceVersion :: Maybe Text
sourceTypeOverride :: Maybe SourceType
sourceLocationOverride :: Maybe Text
sourceAuthOverride :: Maybe SourceAuth
serviceRoleOverride :: Maybe Text
secondarySourcesVersionOverride :: Maybe [ProjectSourceVersion]
secondarySourcesOverride :: Maybe [ProjectSource]
secondaryArtifactsOverride :: Maybe [ProjectArtifacts]
reportBuildBatchStatusOverride :: Maybe Bool
registryCredentialOverride :: Maybe RegistryCredential
queuedTimeoutInMinutesOverride :: Maybe Natural
privilegedModeOverride :: Maybe Bool
logsConfigOverride :: Maybe LogsConfig
insecureSslOverride :: Maybe Bool
imagePullCredentialsTypeOverride :: Maybe ImagePullCredentialsType
imageOverride :: Maybe Text
idempotencyToken :: Maybe Text
gitSubmodulesConfigOverride :: Maybe GitSubmodulesConfig
gitCloneDepthOverride :: Maybe Natural
environmentVariablesOverride :: Maybe [EnvironmentVariable]
environmentTypeOverride :: Maybe EnvironmentType
encryptionKeyOverride :: Maybe Text
debugSessionEnabled :: Maybe Bool
computeTypeOverride :: Maybe ComputeType
certificateOverride :: Maybe Text
cacheOverride :: Maybe ProjectCache
buildspecOverride :: Maybe Text
buildTimeoutInMinutesOverride :: Maybe Natural
buildBatchConfigOverride :: Maybe ProjectBuildBatchConfig
artifactsOverride :: Maybe ProjectArtifacts
$sel:projectName:StartBuildBatch' :: StartBuildBatch -> Text
$sel:sourceVersion:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:sourceTypeOverride:StartBuildBatch' :: StartBuildBatch -> Maybe SourceType
$sel:sourceLocationOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:sourceAuthOverride:StartBuildBatch' :: StartBuildBatch -> Maybe SourceAuth
$sel:serviceRoleOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:secondarySourcesVersionOverride:StartBuildBatch' :: StartBuildBatch -> Maybe [ProjectSourceVersion]
$sel:secondarySourcesOverride:StartBuildBatch' :: StartBuildBatch -> Maybe [ProjectSource]
$sel:secondaryArtifactsOverride:StartBuildBatch' :: StartBuildBatch -> Maybe [ProjectArtifacts]
$sel:reportBuildBatchStatusOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Bool
$sel:registryCredentialOverride:StartBuildBatch' :: StartBuildBatch -> Maybe RegistryCredential
$sel:queuedTimeoutInMinutesOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Natural
$sel:privilegedModeOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Bool
$sel:logsConfigOverride:StartBuildBatch' :: StartBuildBatch -> Maybe LogsConfig
$sel:insecureSslOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Bool
$sel:imagePullCredentialsTypeOverride:StartBuildBatch' :: StartBuildBatch -> Maybe ImagePullCredentialsType
$sel:imageOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:idempotencyToken:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:gitSubmodulesConfigOverride:StartBuildBatch' :: StartBuildBatch -> Maybe GitSubmodulesConfig
$sel:gitCloneDepthOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Natural
$sel:environmentVariablesOverride:StartBuildBatch' :: StartBuildBatch -> Maybe [EnvironmentVariable]
$sel:environmentTypeOverride:StartBuildBatch' :: StartBuildBatch -> Maybe EnvironmentType
$sel:encryptionKeyOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:debugSessionEnabled:StartBuildBatch' :: StartBuildBatch -> Maybe Bool
$sel:computeTypeOverride:StartBuildBatch' :: StartBuildBatch -> Maybe ComputeType
$sel:certificateOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:cacheOverride:StartBuildBatch' :: StartBuildBatch -> Maybe ProjectCache
$sel:buildspecOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:buildTimeoutInMinutesOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Natural
$sel:buildBatchConfigOverride:StartBuildBatch' :: StartBuildBatch -> Maybe ProjectBuildBatchConfig
$sel:artifactsOverride:StartBuildBatch' :: StartBuildBatch -> Maybe ProjectArtifacts
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ProjectArtifacts
artifactsOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ProjectBuildBatchConfig
buildBatchConfigOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
buildTimeoutInMinutesOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
buildspecOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ProjectCache
cacheOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
certificateOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ComputeType
computeTypeOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
debugSessionEnabled
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
encryptionKeyOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe EnvironmentType
environmentTypeOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [EnvironmentVariable]
environmentVariablesOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
gitCloneDepthOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe GitSubmodulesConfig
gitSubmodulesConfigOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
idempotencyToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
imageOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ImagePullCredentialsType
imagePullCredentialsTypeOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
insecureSslOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe LogsConfig
logsConfigOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
privilegedModeOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
queuedTimeoutInMinutesOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RegistryCredential
registryCredentialOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
reportBuildBatchStatusOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [ProjectArtifacts]
secondaryArtifactsOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [ProjectSource]
secondarySourcesOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [ProjectSourceVersion]
secondarySourcesVersionOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
serviceRoleOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe SourceAuth
sourceAuthOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
sourceLocationOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe SourceType
sourceTypeOverride
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
sourceVersion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
projectName
instance Prelude.NFData StartBuildBatch where
rnf :: StartBuildBatch -> ()
rnf StartBuildBatch' {Maybe Bool
Maybe Natural
Maybe [EnvironmentVariable]
Maybe [ProjectArtifacts]
Maybe [ProjectSourceVersion]
Maybe [ProjectSource]
Maybe Text
Maybe ComputeType
Maybe EnvironmentType
Maybe GitSubmodulesConfig
Maybe ImagePullCredentialsType
Maybe ProjectArtifacts
Maybe ProjectBuildBatchConfig
Maybe ProjectCache
Maybe RegistryCredential
Maybe LogsConfig
Maybe SourceAuth
Maybe SourceType
Text
projectName :: Text
sourceVersion :: Maybe Text
sourceTypeOverride :: Maybe SourceType
sourceLocationOverride :: Maybe Text
sourceAuthOverride :: Maybe SourceAuth
serviceRoleOverride :: Maybe Text
secondarySourcesVersionOverride :: Maybe [ProjectSourceVersion]
secondarySourcesOverride :: Maybe [ProjectSource]
secondaryArtifactsOverride :: Maybe [ProjectArtifacts]
reportBuildBatchStatusOverride :: Maybe Bool
registryCredentialOverride :: Maybe RegistryCredential
queuedTimeoutInMinutesOverride :: Maybe Natural
privilegedModeOverride :: Maybe Bool
logsConfigOverride :: Maybe LogsConfig
insecureSslOverride :: Maybe Bool
imagePullCredentialsTypeOverride :: Maybe ImagePullCredentialsType
imageOverride :: Maybe Text
idempotencyToken :: Maybe Text
gitSubmodulesConfigOverride :: Maybe GitSubmodulesConfig
gitCloneDepthOverride :: Maybe Natural
environmentVariablesOverride :: Maybe [EnvironmentVariable]
environmentTypeOverride :: Maybe EnvironmentType
encryptionKeyOverride :: Maybe Text
debugSessionEnabled :: Maybe Bool
computeTypeOverride :: Maybe ComputeType
certificateOverride :: Maybe Text
cacheOverride :: Maybe ProjectCache
buildspecOverride :: Maybe Text
buildTimeoutInMinutesOverride :: Maybe Natural
buildBatchConfigOverride :: Maybe ProjectBuildBatchConfig
artifactsOverride :: Maybe ProjectArtifacts
$sel:projectName:StartBuildBatch' :: StartBuildBatch -> Text
$sel:sourceVersion:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:sourceTypeOverride:StartBuildBatch' :: StartBuildBatch -> Maybe SourceType
$sel:sourceLocationOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:sourceAuthOverride:StartBuildBatch' :: StartBuildBatch -> Maybe SourceAuth
$sel:serviceRoleOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:secondarySourcesVersionOverride:StartBuildBatch' :: StartBuildBatch -> Maybe [ProjectSourceVersion]
$sel:secondarySourcesOverride:StartBuildBatch' :: StartBuildBatch -> Maybe [ProjectSource]
$sel:secondaryArtifactsOverride:StartBuildBatch' :: StartBuildBatch -> Maybe [ProjectArtifacts]
$sel:reportBuildBatchStatusOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Bool
$sel:registryCredentialOverride:StartBuildBatch' :: StartBuildBatch -> Maybe RegistryCredential
$sel:queuedTimeoutInMinutesOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Natural
$sel:privilegedModeOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Bool
$sel:logsConfigOverride:StartBuildBatch' :: StartBuildBatch -> Maybe LogsConfig
$sel:insecureSslOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Bool
$sel:imagePullCredentialsTypeOverride:StartBuildBatch' :: StartBuildBatch -> Maybe ImagePullCredentialsType
$sel:imageOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:idempotencyToken:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:gitSubmodulesConfigOverride:StartBuildBatch' :: StartBuildBatch -> Maybe GitSubmodulesConfig
$sel:gitCloneDepthOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Natural
$sel:environmentVariablesOverride:StartBuildBatch' :: StartBuildBatch -> Maybe [EnvironmentVariable]
$sel:environmentTypeOverride:StartBuildBatch' :: StartBuildBatch -> Maybe EnvironmentType
$sel:encryptionKeyOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:debugSessionEnabled:StartBuildBatch' :: StartBuildBatch -> Maybe Bool
$sel:computeTypeOverride:StartBuildBatch' :: StartBuildBatch -> Maybe ComputeType
$sel:certificateOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:cacheOverride:StartBuildBatch' :: StartBuildBatch -> Maybe ProjectCache
$sel:buildspecOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:buildTimeoutInMinutesOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Natural
$sel:buildBatchConfigOverride:StartBuildBatch' :: StartBuildBatch -> Maybe ProjectBuildBatchConfig
$sel:artifactsOverride:StartBuildBatch' :: StartBuildBatch -> Maybe ProjectArtifacts
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ProjectArtifacts
artifactsOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ProjectBuildBatchConfig
buildBatchConfigOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
buildTimeoutInMinutesOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
buildspecOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ProjectCache
cacheOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
certificateOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ComputeType
computeTypeOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
debugSessionEnabled
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
encryptionKeyOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe EnvironmentType
environmentTypeOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [EnvironmentVariable]
environmentVariablesOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
gitCloneDepthOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe GitSubmodulesConfig
gitSubmodulesConfigOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
idempotencyToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
imageOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe ImagePullCredentialsType
imagePullCredentialsTypeOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
insecureSslOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe LogsConfig
logsConfigOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Bool
privilegedModeOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Natural
queuedTimeoutInMinutesOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe RegistryCredential
registryCredentialOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Bool
reportBuildBatchStatusOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe [ProjectArtifacts]
secondaryArtifactsOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe [ProjectSource]
secondarySourcesOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe [ProjectSourceVersion]
secondarySourcesVersionOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Text
serviceRoleOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe SourceAuth
sourceAuthOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Text
sourceLocationOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe SourceType
sourceTypeOverride
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Maybe Text
sourceVersion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Text
projectName
instance Data.ToHeaders StartBuildBatch where
toHeaders :: StartBuildBatch -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"CodeBuild_20161006.StartBuildBatch" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON StartBuildBatch where
toJSON :: StartBuildBatch -> Value
toJSON StartBuildBatch' {Maybe Bool
Maybe Natural
Maybe [EnvironmentVariable]
Maybe [ProjectArtifacts]
Maybe [ProjectSourceVersion]
Maybe [ProjectSource]
Maybe Text
Maybe ComputeType
Maybe EnvironmentType
Maybe GitSubmodulesConfig
Maybe ImagePullCredentialsType
Maybe ProjectArtifacts
Maybe ProjectBuildBatchConfig
Maybe ProjectCache
Maybe RegistryCredential
Maybe LogsConfig
Maybe SourceAuth
Maybe SourceType
Text
projectName :: Text
sourceVersion :: Maybe Text
sourceTypeOverride :: Maybe SourceType
sourceLocationOverride :: Maybe Text
sourceAuthOverride :: Maybe SourceAuth
serviceRoleOverride :: Maybe Text
secondarySourcesVersionOverride :: Maybe [ProjectSourceVersion]
secondarySourcesOverride :: Maybe [ProjectSource]
secondaryArtifactsOverride :: Maybe [ProjectArtifacts]
reportBuildBatchStatusOverride :: Maybe Bool
registryCredentialOverride :: Maybe RegistryCredential
queuedTimeoutInMinutesOverride :: Maybe Natural
privilegedModeOverride :: Maybe Bool
logsConfigOverride :: Maybe LogsConfig
insecureSslOverride :: Maybe Bool
imagePullCredentialsTypeOverride :: Maybe ImagePullCredentialsType
imageOverride :: Maybe Text
idempotencyToken :: Maybe Text
gitSubmodulesConfigOverride :: Maybe GitSubmodulesConfig
gitCloneDepthOverride :: Maybe Natural
environmentVariablesOverride :: Maybe [EnvironmentVariable]
environmentTypeOverride :: Maybe EnvironmentType
encryptionKeyOverride :: Maybe Text
debugSessionEnabled :: Maybe Bool
computeTypeOverride :: Maybe ComputeType
certificateOverride :: Maybe Text
cacheOverride :: Maybe ProjectCache
buildspecOverride :: Maybe Text
buildTimeoutInMinutesOverride :: Maybe Natural
buildBatchConfigOverride :: Maybe ProjectBuildBatchConfig
artifactsOverride :: Maybe ProjectArtifacts
$sel:projectName:StartBuildBatch' :: StartBuildBatch -> Text
$sel:sourceVersion:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:sourceTypeOverride:StartBuildBatch' :: StartBuildBatch -> Maybe SourceType
$sel:sourceLocationOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:sourceAuthOverride:StartBuildBatch' :: StartBuildBatch -> Maybe SourceAuth
$sel:serviceRoleOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:secondarySourcesVersionOverride:StartBuildBatch' :: StartBuildBatch -> Maybe [ProjectSourceVersion]
$sel:secondarySourcesOverride:StartBuildBatch' :: StartBuildBatch -> Maybe [ProjectSource]
$sel:secondaryArtifactsOverride:StartBuildBatch' :: StartBuildBatch -> Maybe [ProjectArtifacts]
$sel:reportBuildBatchStatusOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Bool
$sel:registryCredentialOverride:StartBuildBatch' :: StartBuildBatch -> Maybe RegistryCredential
$sel:queuedTimeoutInMinutesOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Natural
$sel:privilegedModeOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Bool
$sel:logsConfigOverride:StartBuildBatch' :: StartBuildBatch -> Maybe LogsConfig
$sel:insecureSslOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Bool
$sel:imagePullCredentialsTypeOverride:StartBuildBatch' :: StartBuildBatch -> Maybe ImagePullCredentialsType
$sel:imageOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:idempotencyToken:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:gitSubmodulesConfigOverride:StartBuildBatch' :: StartBuildBatch -> Maybe GitSubmodulesConfig
$sel:gitCloneDepthOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Natural
$sel:environmentVariablesOverride:StartBuildBatch' :: StartBuildBatch -> Maybe [EnvironmentVariable]
$sel:environmentTypeOverride:StartBuildBatch' :: StartBuildBatch -> Maybe EnvironmentType
$sel:encryptionKeyOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:debugSessionEnabled:StartBuildBatch' :: StartBuildBatch -> Maybe Bool
$sel:computeTypeOverride:StartBuildBatch' :: StartBuildBatch -> Maybe ComputeType
$sel:certificateOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:cacheOverride:StartBuildBatch' :: StartBuildBatch -> Maybe ProjectCache
$sel:buildspecOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Text
$sel:buildTimeoutInMinutesOverride:StartBuildBatch' :: StartBuildBatch -> Maybe Natural
$sel:buildBatchConfigOverride:StartBuildBatch' :: StartBuildBatch -> Maybe ProjectBuildBatchConfig
$sel:artifactsOverride:StartBuildBatch' :: StartBuildBatch -> Maybe ProjectArtifacts
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"artifactsOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ProjectArtifacts
artifactsOverride,
(Key
"buildBatchConfigOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ProjectBuildBatchConfig
buildBatchConfigOverride,
(Key
"buildTimeoutInMinutesOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
buildTimeoutInMinutesOverride,
(Key
"buildspecOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
buildspecOverride,
(Key
"cacheOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ProjectCache
cacheOverride,
(Key
"certificateOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
certificateOverride,
(Key
"computeTypeOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ComputeType
computeTypeOverride,
(Key
"debugSessionEnabled" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Bool
debugSessionEnabled,
(Key
"encryptionKeyOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
encryptionKeyOverride,
(Key
"environmentTypeOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe EnvironmentType
environmentTypeOverride,
(Key
"environmentVariablesOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [EnvironmentVariable]
environmentVariablesOverride,
(Key
"gitCloneDepthOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
gitCloneDepthOverride,
(Key
"gitSubmodulesConfigOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe GitSubmodulesConfig
gitSubmodulesConfigOverride,
(Key
"idempotencyToken" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
idempotencyToken,
(Key
"imageOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
imageOverride,
(Key
"imagePullCredentialsTypeOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ImagePullCredentialsType
imagePullCredentialsTypeOverride,
(Key
"insecureSslOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Bool
insecureSslOverride,
(Key
"logsConfigOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe LogsConfig
logsConfigOverride,
(Key
"privilegedModeOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Bool
privilegedModeOverride,
(Key
"queuedTimeoutInMinutesOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Natural
queuedTimeoutInMinutesOverride,
(Key
"registryCredentialOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe RegistryCredential
registryCredentialOverride,
(Key
"reportBuildBatchStatusOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Bool
reportBuildBatchStatusOverride,
(Key
"secondaryArtifactsOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [ProjectArtifacts]
secondaryArtifactsOverride,
(Key
"secondarySourcesOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [ProjectSource]
secondarySourcesOverride,
(Key
"secondarySourcesVersionOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [ProjectSourceVersion]
secondarySourcesVersionOverride,
(Key
"serviceRoleOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
serviceRoleOverride,
(Key
"sourceAuthOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SourceAuth
sourceAuthOverride,
(Key
"sourceLocationOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
sourceLocationOverride,
(Key
"sourceTypeOverride" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe SourceType
sourceTypeOverride,
(Key
"sourceVersion" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
sourceVersion,
forall a. a -> Maybe a
Prelude.Just (Key
"projectName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
projectName)
]
)
instance Data.ToPath StartBuildBatch where
toPath :: StartBuildBatch -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery StartBuildBatch where
toQuery :: StartBuildBatch -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data StartBuildBatchResponse = StartBuildBatchResponse'
{
StartBuildBatchResponse -> Maybe BuildBatch
buildBatch :: Prelude.Maybe BuildBatch,
StartBuildBatchResponse -> Int
httpStatus :: Prelude.Int
}
deriving (StartBuildBatchResponse -> StartBuildBatchResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StartBuildBatchResponse -> StartBuildBatchResponse -> Bool
$c/= :: StartBuildBatchResponse -> StartBuildBatchResponse -> Bool
== :: StartBuildBatchResponse -> StartBuildBatchResponse -> Bool
$c== :: StartBuildBatchResponse -> StartBuildBatchResponse -> Bool
Prelude.Eq, ReadPrec [StartBuildBatchResponse]
ReadPrec StartBuildBatchResponse
Int -> ReadS StartBuildBatchResponse
ReadS [StartBuildBatchResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StartBuildBatchResponse]
$creadListPrec :: ReadPrec [StartBuildBatchResponse]
readPrec :: ReadPrec StartBuildBatchResponse
$creadPrec :: ReadPrec StartBuildBatchResponse
readList :: ReadS [StartBuildBatchResponse]
$creadList :: ReadS [StartBuildBatchResponse]
readsPrec :: Int -> ReadS StartBuildBatchResponse
$creadsPrec :: Int -> ReadS StartBuildBatchResponse
Prelude.Read, Int -> StartBuildBatchResponse -> ShowS
[StartBuildBatchResponse] -> ShowS
StartBuildBatchResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StartBuildBatchResponse] -> ShowS
$cshowList :: [StartBuildBatchResponse] -> ShowS
show :: StartBuildBatchResponse -> String
$cshow :: StartBuildBatchResponse -> String
showsPrec :: Int -> StartBuildBatchResponse -> ShowS
$cshowsPrec :: Int -> StartBuildBatchResponse -> ShowS
Prelude.Show, forall x. Rep StartBuildBatchResponse x -> StartBuildBatchResponse
forall x. StartBuildBatchResponse -> Rep StartBuildBatchResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep StartBuildBatchResponse x -> StartBuildBatchResponse
$cfrom :: forall x. StartBuildBatchResponse -> Rep StartBuildBatchResponse x
Prelude.Generic)
newStartBuildBatchResponse ::
Prelude.Int ->
StartBuildBatchResponse
newStartBuildBatchResponse :: Int -> StartBuildBatchResponse
newStartBuildBatchResponse Int
pHttpStatus_ =
StartBuildBatchResponse'
{ $sel:buildBatch:StartBuildBatchResponse' :: Maybe BuildBatch
buildBatch =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:StartBuildBatchResponse' :: Int
httpStatus = Int
pHttpStatus_
}
startBuildBatchResponse_buildBatch :: Lens.Lens' StartBuildBatchResponse (Prelude.Maybe BuildBatch)
startBuildBatchResponse_buildBatch :: Lens' StartBuildBatchResponse (Maybe BuildBatch)
startBuildBatchResponse_buildBatch = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatchResponse' {Maybe BuildBatch
buildBatch :: Maybe BuildBatch
$sel:buildBatch:StartBuildBatchResponse' :: StartBuildBatchResponse -> Maybe BuildBatch
buildBatch} -> Maybe BuildBatch
buildBatch) (\s :: StartBuildBatchResponse
s@StartBuildBatchResponse' {} Maybe BuildBatch
a -> StartBuildBatchResponse
s {$sel:buildBatch:StartBuildBatchResponse' :: Maybe BuildBatch
buildBatch = Maybe BuildBatch
a} :: StartBuildBatchResponse)
startBuildBatchResponse_httpStatus :: Lens.Lens' StartBuildBatchResponse Prelude.Int
startBuildBatchResponse_httpStatus :: Lens' StartBuildBatchResponse Int
startBuildBatchResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StartBuildBatchResponse' {Int
httpStatus :: Int
$sel:httpStatus:StartBuildBatchResponse' :: StartBuildBatchResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: StartBuildBatchResponse
s@StartBuildBatchResponse' {} Int
a -> StartBuildBatchResponse
s {$sel:httpStatus:StartBuildBatchResponse' :: Int
httpStatus = Int
a} :: StartBuildBatchResponse)
instance Prelude.NFData StartBuildBatchResponse where
rnf :: StartBuildBatchResponse -> ()
rnf StartBuildBatchResponse' {Int
Maybe BuildBatch
httpStatus :: Int
buildBatch :: Maybe BuildBatch
$sel:httpStatus:StartBuildBatchResponse' :: StartBuildBatchResponse -> Int
$sel:buildBatch:StartBuildBatchResponse' :: StartBuildBatchResponse -> Maybe BuildBatch
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe BuildBatch
buildBatch
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus