{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.Amplify.Types.Branch where
import Amazonka.Amplify.Types.Stage
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
data Branch = Branch'
{
Branch -> Maybe [Text]
associatedResources :: Prelude.Maybe [Prelude.Text],
Branch -> Maybe Text
backendEnvironmentArn :: Prelude.Maybe Prelude.Text,
Branch -> Maybe (Sensitive Text)
basicAuthCredentials :: Prelude.Maybe (Data.Sensitive Prelude.Text),
Branch -> Maybe (Sensitive Text)
buildSpec :: Prelude.Maybe (Data.Sensitive Prelude.Text),
Branch -> Maybe Text
destinationBranch :: Prelude.Maybe Prelude.Text,
Branch -> Maybe Bool
enablePerformanceMode :: Prelude.Maybe Prelude.Bool,
Branch -> Maybe Text
pullRequestEnvironmentName :: Prelude.Maybe Prelude.Text,
Branch -> Maybe Text
sourceBranch :: Prelude.Maybe Prelude.Text,
Branch -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
Branch -> Maybe Text
thumbnailUrl :: Prelude.Maybe Prelude.Text,
Branch -> Text
branchArn :: Prelude.Text,
Branch -> Text
branchName :: Prelude.Text,
Branch -> Text
description :: Prelude.Text,
Branch -> Stage
stage :: Stage,
Branch -> Text
displayName :: Prelude.Text,
Branch -> Bool
enableNotification :: Prelude.Bool,
Branch -> POSIX
createTime :: Data.POSIX,
Branch -> POSIX
updateTime :: Data.POSIX,
Branch -> HashMap Text Text
environmentVariables :: Prelude.HashMap Prelude.Text Prelude.Text,
Branch -> Bool
enableAutoBuild :: Prelude.Bool,
Branch -> [Text]
customDomains :: [Prelude.Text],
Branch -> Text
framework :: Prelude.Text,
Branch -> Text
activeJobId :: Prelude.Text,
Branch -> Text
totalNumberOfJobs :: Prelude.Text,
Branch -> Bool
enableBasicAuth :: Prelude.Bool,
Branch -> Text
ttl :: Prelude.Text,
Branch -> Bool
enablePullRequestPreview :: Prelude.Bool
}
deriving (Branch -> Branch -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Branch -> Branch -> Bool
$c/= :: Branch -> Branch -> Bool
== :: Branch -> Branch -> Bool
$c== :: Branch -> Branch -> Bool
Prelude.Eq, Int -> Branch -> ShowS
[Branch] -> ShowS
Branch -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Branch] -> ShowS
$cshowList :: [Branch] -> ShowS
show :: Branch -> String
$cshow :: Branch -> String
showsPrec :: Int -> Branch -> ShowS
$cshowsPrec :: Int -> Branch -> ShowS
Prelude.Show, forall x. Rep Branch x -> Branch
forall x. Branch -> Rep Branch x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep Branch x -> Branch
$cfrom :: forall x. Branch -> Rep Branch x
Prelude.Generic)
newBranch ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Stage ->
Prelude.Text ->
Prelude.Bool ->
Prelude.UTCTime ->
Prelude.UTCTime ->
Prelude.Bool ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Prelude.Bool ->
Prelude.Text ->
Prelude.Bool ->
Branch
newBranch :: Text
-> Text
-> Text
-> Stage
-> Text
-> Bool
-> UTCTime
-> UTCTime
-> Bool
-> Text
-> Text
-> Text
-> Bool
-> Text
-> Bool
-> Branch
newBranch
Text
pBranchArn_
Text
pBranchName_
Text
pDescription_
Stage
pStage_
Text
pDisplayName_
Bool
pEnableNotification_
UTCTime
pCreateTime_
UTCTime
pUpdateTime_
Bool
pEnableAutoBuild_
Text
pFramework_
Text
pActiveJobId_
Text
pTotalNumberOfJobs_
Bool
pEnableBasicAuth_
Text
pTtl_
Bool
pEnablePullRequestPreview_ =
Branch'
{ $sel:associatedResources:Branch' :: Maybe [Text]
associatedResources = forall a. Maybe a
Prelude.Nothing,
$sel:backendEnvironmentArn:Branch' :: Maybe Text
backendEnvironmentArn = forall a. Maybe a
Prelude.Nothing,
$sel:basicAuthCredentials:Branch' :: Maybe (Sensitive Text)
basicAuthCredentials = forall a. Maybe a
Prelude.Nothing,
$sel:buildSpec:Branch' :: Maybe (Sensitive Text)
buildSpec = forall a. Maybe a
Prelude.Nothing,
$sel:destinationBranch:Branch' :: Maybe Text
destinationBranch = forall a. Maybe a
Prelude.Nothing,
$sel:enablePerformanceMode:Branch' :: Maybe Bool
enablePerformanceMode = forall a. Maybe a
Prelude.Nothing,
$sel:pullRequestEnvironmentName:Branch' :: Maybe Text
pullRequestEnvironmentName = forall a. Maybe a
Prelude.Nothing,
$sel:sourceBranch:Branch' :: Maybe Text
sourceBranch = forall a. Maybe a
Prelude.Nothing,
$sel:tags:Branch' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:thumbnailUrl:Branch' :: Maybe Text
thumbnailUrl = forall a. Maybe a
Prelude.Nothing,
$sel:branchArn:Branch' :: Text
branchArn = Text
pBranchArn_,
$sel:branchName:Branch' :: Text
branchName = Text
pBranchName_,
$sel:description:Branch' :: Text
description = Text
pDescription_,
$sel:stage:Branch' :: Stage
stage = Stage
pStage_,
$sel:displayName:Branch' :: Text
displayName = Text
pDisplayName_,
$sel:enableNotification:Branch' :: Bool
enableNotification = Bool
pEnableNotification_,
$sel:createTime:Branch' :: POSIX
createTime = forall (a :: Format). Iso' (Time a) UTCTime
Data._Time forall t b. AReview t b -> b -> t
Lens.# UTCTime
pCreateTime_,
$sel:updateTime:Branch' :: POSIX
updateTime = forall (a :: Format). Iso' (Time a) UTCTime
Data._Time forall t b. AReview t b -> b -> t
Lens.# UTCTime
pUpdateTime_,
$sel:environmentVariables:Branch' :: HashMap Text Text
environmentVariables = forall a. Monoid a => a
Prelude.mempty,
$sel:enableAutoBuild:Branch' :: Bool
enableAutoBuild = Bool
pEnableAutoBuild_,
$sel:customDomains:Branch' :: [Text]
customDomains = forall a. Monoid a => a
Prelude.mempty,
$sel:framework:Branch' :: Text
framework = Text
pFramework_,
$sel:activeJobId:Branch' :: Text
activeJobId = Text
pActiveJobId_,
$sel:totalNumberOfJobs:Branch' :: Text
totalNumberOfJobs = Text
pTotalNumberOfJobs_,
$sel:enableBasicAuth:Branch' :: Bool
enableBasicAuth = Bool
pEnableBasicAuth_,
$sel:ttl:Branch' :: Text
ttl = Text
pTtl_,
$sel:enablePullRequestPreview:Branch' :: Bool
enablePullRequestPreview =
Bool
pEnablePullRequestPreview_
}
branch_associatedResources :: Lens.Lens' Branch (Prelude.Maybe [Prelude.Text])
branch_associatedResources :: Lens' Branch (Maybe [Text])
branch_associatedResources = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Maybe [Text]
associatedResources :: Maybe [Text]
$sel:associatedResources:Branch' :: Branch -> Maybe [Text]
associatedResources} -> Maybe [Text]
associatedResources) (\s :: Branch
s@Branch' {} Maybe [Text]
a -> Branch
s {$sel:associatedResources:Branch' :: Maybe [Text]
associatedResources = Maybe [Text]
a} :: Branch) 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
branch_backendEnvironmentArn :: Lens.Lens' Branch (Prelude.Maybe Prelude.Text)
branch_backendEnvironmentArn :: Lens' Branch (Maybe Text)
branch_backendEnvironmentArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Maybe Text
backendEnvironmentArn :: Maybe Text
$sel:backendEnvironmentArn:Branch' :: Branch -> Maybe Text
backendEnvironmentArn} -> Maybe Text
backendEnvironmentArn) (\s :: Branch
s@Branch' {} Maybe Text
a -> Branch
s {$sel:backendEnvironmentArn:Branch' :: Maybe Text
backendEnvironmentArn = Maybe Text
a} :: Branch)
branch_basicAuthCredentials :: Lens.Lens' Branch (Prelude.Maybe Prelude.Text)
branch_basicAuthCredentials :: Lens' Branch (Maybe Text)
branch_basicAuthCredentials = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Maybe (Sensitive Text)
basicAuthCredentials :: Maybe (Sensitive Text)
$sel:basicAuthCredentials:Branch' :: Branch -> Maybe (Sensitive Text)
basicAuthCredentials} -> Maybe (Sensitive Text)
basicAuthCredentials) (\s :: Branch
s@Branch' {} Maybe (Sensitive Text)
a -> Branch
s {$sel:basicAuthCredentials:Branch' :: Maybe (Sensitive Text)
basicAuthCredentials = Maybe (Sensitive Text)
a} :: Branch) 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 a. Iso' (Sensitive a) a
Data._Sensitive
branch_buildSpec :: Lens.Lens' Branch (Prelude.Maybe Prelude.Text)
branch_buildSpec :: Lens' Branch (Maybe Text)
branch_buildSpec = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Maybe (Sensitive Text)
buildSpec :: Maybe (Sensitive Text)
$sel:buildSpec:Branch' :: Branch -> Maybe (Sensitive Text)
buildSpec} -> Maybe (Sensitive Text)
buildSpec) (\s :: Branch
s@Branch' {} Maybe (Sensitive Text)
a -> Branch
s {$sel:buildSpec:Branch' :: Maybe (Sensitive Text)
buildSpec = Maybe (Sensitive Text)
a} :: Branch) 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 a. Iso' (Sensitive a) a
Data._Sensitive
branch_destinationBranch :: Lens.Lens' Branch (Prelude.Maybe Prelude.Text)
branch_destinationBranch :: Lens' Branch (Maybe Text)
branch_destinationBranch = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Maybe Text
destinationBranch :: Maybe Text
$sel:destinationBranch:Branch' :: Branch -> Maybe Text
destinationBranch} -> Maybe Text
destinationBranch) (\s :: Branch
s@Branch' {} Maybe Text
a -> Branch
s {$sel:destinationBranch:Branch' :: Maybe Text
destinationBranch = Maybe Text
a} :: Branch)
branch_enablePerformanceMode :: Lens.Lens' Branch (Prelude.Maybe Prelude.Bool)
branch_enablePerformanceMode :: Lens' Branch (Maybe Bool)
branch_enablePerformanceMode = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Maybe Bool
enablePerformanceMode :: Maybe Bool
$sel:enablePerformanceMode:Branch' :: Branch -> Maybe Bool
enablePerformanceMode} -> Maybe Bool
enablePerformanceMode) (\s :: Branch
s@Branch' {} Maybe Bool
a -> Branch
s {$sel:enablePerformanceMode:Branch' :: Maybe Bool
enablePerformanceMode = Maybe Bool
a} :: Branch)
branch_pullRequestEnvironmentName :: Lens.Lens' Branch (Prelude.Maybe Prelude.Text)
branch_pullRequestEnvironmentName :: Lens' Branch (Maybe Text)
branch_pullRequestEnvironmentName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Maybe Text
pullRequestEnvironmentName :: Maybe Text
$sel:pullRequestEnvironmentName:Branch' :: Branch -> Maybe Text
pullRequestEnvironmentName} -> Maybe Text
pullRequestEnvironmentName) (\s :: Branch
s@Branch' {} Maybe Text
a -> Branch
s {$sel:pullRequestEnvironmentName:Branch' :: Maybe Text
pullRequestEnvironmentName = Maybe Text
a} :: Branch)
branch_sourceBranch :: Lens.Lens' Branch (Prelude.Maybe Prelude.Text)
branch_sourceBranch :: Lens' Branch (Maybe Text)
branch_sourceBranch = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Maybe Text
sourceBranch :: Maybe Text
$sel:sourceBranch:Branch' :: Branch -> Maybe Text
sourceBranch} -> Maybe Text
sourceBranch) (\s :: Branch
s@Branch' {} Maybe Text
a -> Branch
s {$sel:sourceBranch:Branch' :: Maybe Text
sourceBranch = Maybe Text
a} :: Branch)
branch_tags :: Lens.Lens' Branch (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
branch_tags :: Lens' Branch (Maybe (HashMap Text Text))
branch_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:Branch' :: Branch -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: Branch
s@Branch' {} Maybe (HashMap Text Text)
a -> Branch
s {$sel:tags:Branch' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: Branch) 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
branch_thumbnailUrl :: Lens.Lens' Branch (Prelude.Maybe Prelude.Text)
branch_thumbnailUrl :: Lens' Branch (Maybe Text)
branch_thumbnailUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Maybe Text
thumbnailUrl :: Maybe Text
$sel:thumbnailUrl:Branch' :: Branch -> Maybe Text
thumbnailUrl} -> Maybe Text
thumbnailUrl) (\s :: Branch
s@Branch' {} Maybe Text
a -> Branch
s {$sel:thumbnailUrl:Branch' :: Maybe Text
thumbnailUrl = Maybe Text
a} :: Branch)
branch_branchArn :: Lens.Lens' Branch Prelude.Text
branch_branchArn :: Lens' Branch Text
branch_branchArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Text
branchArn :: Text
$sel:branchArn:Branch' :: Branch -> Text
branchArn} -> Text
branchArn) (\s :: Branch
s@Branch' {} Text
a -> Branch
s {$sel:branchArn:Branch' :: Text
branchArn = Text
a} :: Branch)
branch_branchName :: Lens.Lens' Branch Prelude.Text
branch_branchName :: Lens' Branch Text
branch_branchName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Text
branchName :: Text
$sel:branchName:Branch' :: Branch -> Text
branchName} -> Text
branchName) (\s :: Branch
s@Branch' {} Text
a -> Branch
s {$sel:branchName:Branch' :: Text
branchName = Text
a} :: Branch)
branch_description :: Lens.Lens' Branch Prelude.Text
branch_description :: Lens' Branch Text
branch_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Text
description :: Text
$sel:description:Branch' :: Branch -> Text
description} -> Text
description) (\s :: Branch
s@Branch' {} Text
a -> Branch
s {$sel:description:Branch' :: Text
description = Text
a} :: Branch)
branch_stage :: Lens.Lens' Branch Stage
branch_stage :: Lens' Branch Stage
branch_stage = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Stage
stage :: Stage
$sel:stage:Branch' :: Branch -> Stage
stage} -> Stage
stage) (\s :: Branch
s@Branch' {} Stage
a -> Branch
s {$sel:stage:Branch' :: Stage
stage = Stage
a} :: Branch)
branch_displayName :: Lens.Lens' Branch Prelude.Text
branch_displayName :: Lens' Branch Text
branch_displayName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Text
displayName :: Text
$sel:displayName:Branch' :: Branch -> Text
displayName} -> Text
displayName) (\s :: Branch
s@Branch' {} Text
a -> Branch
s {$sel:displayName:Branch' :: Text
displayName = Text
a} :: Branch)
branch_enableNotification :: Lens.Lens' Branch Prelude.Bool
branch_enableNotification :: Lens' Branch Bool
branch_enableNotification = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Bool
enableNotification :: Bool
$sel:enableNotification:Branch' :: Branch -> Bool
enableNotification} -> Bool
enableNotification) (\s :: Branch
s@Branch' {} Bool
a -> Branch
s {$sel:enableNotification:Branch' :: Bool
enableNotification = Bool
a} :: Branch)
branch_createTime :: Lens.Lens' Branch Prelude.UTCTime
branch_createTime :: Lens' Branch UTCTime
branch_createTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {POSIX
createTime :: POSIX
$sel:createTime:Branch' :: Branch -> POSIX
createTime} -> POSIX
createTime) (\s :: Branch
s@Branch' {} POSIX
a -> Branch
s {$sel:createTime:Branch' :: POSIX
createTime = POSIX
a} :: Branch) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
branch_updateTime :: Lens.Lens' Branch Prelude.UTCTime
branch_updateTime :: Lens' Branch UTCTime
branch_updateTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {POSIX
updateTime :: POSIX
$sel:updateTime:Branch' :: Branch -> POSIX
updateTime} -> POSIX
updateTime) (\s :: Branch
s@Branch' {} POSIX
a -> Branch
s {$sel:updateTime:Branch' :: POSIX
updateTime = POSIX
a} :: Branch) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
branch_environmentVariables :: Lens.Lens' Branch (Prelude.HashMap Prelude.Text Prelude.Text)
branch_environmentVariables :: Lens' Branch (HashMap Text Text)
branch_environmentVariables = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {HashMap Text Text
environmentVariables :: HashMap Text Text
$sel:environmentVariables:Branch' :: Branch -> HashMap Text Text
environmentVariables} -> HashMap Text Text
environmentVariables) (\s :: Branch
s@Branch' {} HashMap Text Text
a -> Branch
s {$sel:environmentVariables:Branch' :: HashMap Text Text
environmentVariables = HashMap Text Text
a} :: Branch) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
branch_enableAutoBuild :: Lens.Lens' Branch Prelude.Bool
branch_enableAutoBuild :: Lens' Branch Bool
branch_enableAutoBuild = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Bool
enableAutoBuild :: Bool
$sel:enableAutoBuild:Branch' :: Branch -> Bool
enableAutoBuild} -> Bool
enableAutoBuild) (\s :: Branch
s@Branch' {} Bool
a -> Branch
s {$sel:enableAutoBuild:Branch' :: Bool
enableAutoBuild = Bool
a} :: Branch)
branch_customDomains :: Lens.Lens' Branch [Prelude.Text]
branch_customDomains :: Lens' Branch [Text]
branch_customDomains = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {[Text]
customDomains :: [Text]
$sel:customDomains:Branch' :: Branch -> [Text]
customDomains} -> [Text]
customDomains) (\s :: Branch
s@Branch' {} [Text]
a -> Branch
s {$sel:customDomains:Branch' :: [Text]
customDomains = [Text]
a} :: Branch) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
branch_framework :: Lens.Lens' Branch Prelude.Text
branch_framework :: Lens' Branch Text
branch_framework = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Text
framework :: Text
$sel:framework:Branch' :: Branch -> Text
framework} -> Text
framework) (\s :: Branch
s@Branch' {} Text
a -> Branch
s {$sel:framework:Branch' :: Text
framework = Text
a} :: Branch)
branch_activeJobId :: Lens.Lens' Branch Prelude.Text
branch_activeJobId :: Lens' Branch Text
branch_activeJobId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Text
activeJobId :: Text
$sel:activeJobId:Branch' :: Branch -> Text
activeJobId} -> Text
activeJobId) (\s :: Branch
s@Branch' {} Text
a -> Branch
s {$sel:activeJobId:Branch' :: Text
activeJobId = Text
a} :: Branch)
branch_totalNumberOfJobs :: Lens.Lens' Branch Prelude.Text
branch_totalNumberOfJobs :: Lens' Branch Text
branch_totalNumberOfJobs = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Text
totalNumberOfJobs :: Text
$sel:totalNumberOfJobs:Branch' :: Branch -> Text
totalNumberOfJobs} -> Text
totalNumberOfJobs) (\s :: Branch
s@Branch' {} Text
a -> Branch
s {$sel:totalNumberOfJobs:Branch' :: Text
totalNumberOfJobs = Text
a} :: Branch)
branch_enableBasicAuth :: Lens.Lens' Branch Prelude.Bool
branch_enableBasicAuth :: Lens' Branch Bool
branch_enableBasicAuth = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Bool
enableBasicAuth :: Bool
$sel:enableBasicAuth:Branch' :: Branch -> Bool
enableBasicAuth} -> Bool
enableBasicAuth) (\s :: Branch
s@Branch' {} Bool
a -> Branch
s {$sel:enableBasicAuth:Branch' :: Bool
enableBasicAuth = Bool
a} :: Branch)
branch_ttl :: Lens.Lens' Branch Prelude.Text
branch_ttl :: Lens' Branch Text
branch_ttl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Text
ttl :: Text
$sel:ttl:Branch' :: Branch -> Text
ttl} -> Text
ttl) (\s :: Branch
s@Branch' {} Text
a -> Branch
s {$sel:ttl:Branch' :: Text
ttl = Text
a} :: Branch)
branch_enablePullRequestPreview :: Lens.Lens' Branch Prelude.Bool
branch_enablePullRequestPreview :: Lens' Branch Bool
branch_enablePullRequestPreview = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\Branch' {Bool
enablePullRequestPreview :: Bool
$sel:enablePullRequestPreview:Branch' :: Branch -> Bool
enablePullRequestPreview} -> Bool
enablePullRequestPreview) (\s :: Branch
s@Branch' {} Bool
a -> Branch
s {$sel:enablePullRequestPreview:Branch' :: Bool
enablePullRequestPreview = Bool
a} :: Branch)
instance Data.FromJSON Branch where
parseJSON :: Value -> Parser Branch
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"Branch"
( \Object
x ->
Maybe [Text]
-> Maybe Text
-> Maybe (Sensitive Text)
-> Maybe (Sensitive Text)
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe (HashMap Text Text)
-> Maybe Text
-> Text
-> Text
-> Text
-> Stage
-> Text
-> Bool
-> POSIX
-> POSIX
-> HashMap Text Text
-> Bool
-> [Text]
-> Text
-> Text
-> Text
-> Bool
-> Text
-> Bool
-> Branch
Branch'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ( Object
x
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"associatedResources"
forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"backendEnvironmentArn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"basicAuthCredentials")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"buildSpec")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"destinationBranch")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"enablePerformanceMode")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"pullRequestEnvironmentName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"sourceBranch")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"tags" forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"thumbnailUrl")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"branchArn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"branchName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"description")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"stage")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"displayName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"enableNotification")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"createTime")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"updateTime")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"environmentVariables"
forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"enableAutoBuild")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"customDomains" forall a. Parser (Maybe a) -> a -> Parser a
Data..!= forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"framework")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"activeJobId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"totalNumberOfJobs")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"enableBasicAuth")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"ttl")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser a
Data..: Key
"enablePullRequestPreview")
)
instance Prelude.Hashable Branch where
hashWithSalt :: Int -> Branch -> Int
hashWithSalt Int
_salt Branch' {Bool
[Text]
Maybe Bool
Maybe [Text]
Maybe Text
Maybe (HashMap Text Text)
Maybe (Sensitive Text)
Text
HashMap Text Text
POSIX
Stage
enablePullRequestPreview :: Bool
ttl :: Text
enableBasicAuth :: Bool
totalNumberOfJobs :: Text
activeJobId :: Text
framework :: Text
customDomains :: [Text]
enableAutoBuild :: Bool
environmentVariables :: HashMap Text Text
updateTime :: POSIX
createTime :: POSIX
enableNotification :: Bool
displayName :: Text
stage :: Stage
description :: Text
branchName :: Text
branchArn :: Text
thumbnailUrl :: Maybe Text
tags :: Maybe (HashMap Text Text)
sourceBranch :: Maybe Text
pullRequestEnvironmentName :: Maybe Text
enablePerformanceMode :: Maybe Bool
destinationBranch :: Maybe Text
buildSpec :: Maybe (Sensitive Text)
basicAuthCredentials :: Maybe (Sensitive Text)
backendEnvironmentArn :: Maybe Text
associatedResources :: Maybe [Text]
$sel:enablePullRequestPreview:Branch' :: Branch -> Bool
$sel:ttl:Branch' :: Branch -> Text
$sel:enableBasicAuth:Branch' :: Branch -> Bool
$sel:totalNumberOfJobs:Branch' :: Branch -> Text
$sel:activeJobId:Branch' :: Branch -> Text
$sel:framework:Branch' :: Branch -> Text
$sel:customDomains:Branch' :: Branch -> [Text]
$sel:enableAutoBuild:Branch' :: Branch -> Bool
$sel:environmentVariables:Branch' :: Branch -> HashMap Text Text
$sel:updateTime:Branch' :: Branch -> POSIX
$sel:createTime:Branch' :: Branch -> POSIX
$sel:enableNotification:Branch' :: Branch -> Bool
$sel:displayName:Branch' :: Branch -> Text
$sel:stage:Branch' :: Branch -> Stage
$sel:description:Branch' :: Branch -> Text
$sel:branchName:Branch' :: Branch -> Text
$sel:branchArn:Branch' :: Branch -> Text
$sel:thumbnailUrl:Branch' :: Branch -> Maybe Text
$sel:tags:Branch' :: Branch -> Maybe (HashMap Text Text)
$sel:sourceBranch:Branch' :: Branch -> Maybe Text
$sel:pullRequestEnvironmentName:Branch' :: Branch -> Maybe Text
$sel:enablePerformanceMode:Branch' :: Branch -> Maybe Bool
$sel:destinationBranch:Branch' :: Branch -> Maybe Text
$sel:buildSpec:Branch' :: Branch -> Maybe (Sensitive Text)
$sel:basicAuthCredentials:Branch' :: Branch -> Maybe (Sensitive Text)
$sel:backendEnvironmentArn:Branch' :: Branch -> Maybe Text
$sel:associatedResources:Branch' :: Branch -> Maybe [Text]
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
associatedResources
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
backendEnvironmentArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive Text)
basicAuthCredentials
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (Sensitive Text)
buildSpec
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
destinationBranch
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
enablePerformanceMode
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
pullRequestEnvironmentName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
sourceBranch
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
thumbnailUrl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
branchArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
branchName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Stage
stage
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
displayName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Bool
enableNotification
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` POSIX
createTime
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` POSIX
updateTime
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` HashMap Text Text
environmentVariables
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Bool
enableAutoBuild
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [Text]
customDomains
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
framework
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
activeJobId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
totalNumberOfJobs
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Bool
enableBasicAuth
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
ttl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Bool
enablePullRequestPreview
instance Prelude.NFData Branch where
rnf :: Branch -> ()
rnf Branch' {Bool
[Text]
Maybe Bool
Maybe [Text]
Maybe Text
Maybe (HashMap Text Text)
Maybe (Sensitive Text)
Text
HashMap Text Text
POSIX
Stage
enablePullRequestPreview :: Bool
ttl :: Text
enableBasicAuth :: Bool
totalNumberOfJobs :: Text
activeJobId :: Text
framework :: Text
customDomains :: [Text]
enableAutoBuild :: Bool
environmentVariables :: HashMap Text Text
updateTime :: POSIX
createTime :: POSIX
enableNotification :: Bool
displayName :: Text
stage :: Stage
description :: Text
branchName :: Text
branchArn :: Text
thumbnailUrl :: Maybe Text
tags :: Maybe (HashMap Text Text)
sourceBranch :: Maybe Text
pullRequestEnvironmentName :: Maybe Text
enablePerformanceMode :: Maybe Bool
destinationBranch :: Maybe Text
buildSpec :: Maybe (Sensitive Text)
basicAuthCredentials :: Maybe (Sensitive Text)
backendEnvironmentArn :: Maybe Text
associatedResources :: Maybe [Text]
$sel:enablePullRequestPreview:Branch' :: Branch -> Bool
$sel:ttl:Branch' :: Branch -> Text
$sel:enableBasicAuth:Branch' :: Branch -> Bool
$sel:totalNumberOfJobs:Branch' :: Branch -> Text
$sel:activeJobId:Branch' :: Branch -> Text
$sel:framework:Branch' :: Branch -> Text
$sel:customDomains:Branch' :: Branch -> [Text]
$sel:enableAutoBuild:Branch' :: Branch -> Bool
$sel:environmentVariables:Branch' :: Branch -> HashMap Text Text
$sel:updateTime:Branch' :: Branch -> POSIX
$sel:createTime:Branch' :: Branch -> POSIX
$sel:enableNotification:Branch' :: Branch -> Bool
$sel:displayName:Branch' :: Branch -> Text
$sel:stage:Branch' :: Branch -> Stage
$sel:description:Branch' :: Branch -> Text
$sel:branchName:Branch' :: Branch -> Text
$sel:branchArn:Branch' :: Branch -> Text
$sel:thumbnailUrl:Branch' :: Branch -> Maybe Text
$sel:tags:Branch' :: Branch -> Maybe (HashMap Text Text)
$sel:sourceBranch:Branch' :: Branch -> Maybe Text
$sel:pullRequestEnvironmentName:Branch' :: Branch -> Maybe Text
$sel:enablePerformanceMode:Branch' :: Branch -> Maybe Bool
$sel:destinationBranch:Branch' :: Branch -> Maybe Text
$sel:buildSpec:Branch' :: Branch -> Maybe (Sensitive Text)
$sel:basicAuthCredentials:Branch' :: Branch -> Maybe (Sensitive Text)
$sel:backendEnvironmentArn:Branch' :: Branch -> Maybe Text
$sel:associatedResources:Branch' :: Branch -> Maybe [Text]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
associatedResources
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
backendEnvironmentArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive Text)
basicAuthCredentials
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (Sensitive Text)
buildSpec
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
destinationBranch
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
enablePerformanceMode
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
pullRequestEnvironmentName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sourceBranch
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
thumbnailUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
branchArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
branchName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
description
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Stage
stage
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
displayName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Bool
enableNotification
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf POSIX
createTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf POSIX
updateTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf HashMap Text Text
environmentVariables
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Bool
enableAutoBuild
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [Text]
customDomains
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
framework
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
activeJobId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Text
totalNumberOfJobs
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Bool
enableBasicAuth
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
ttl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Bool
enablePullRequestPreview