{-# 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.App where
import Amazonka.Amplify.Types.AutoBranchCreationConfig
import Amazonka.Amplify.Types.CustomRule
import Amazonka.Amplify.Types.Platform
import Amazonka.Amplify.Types.ProductionBranch
import Amazonka.Amplify.Types.RepositoryCloneMethod
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 App = App'
{
App -> Maybe AutoBranchCreationConfig
autoBranchCreationConfig :: Prelude.Maybe AutoBranchCreationConfig,
App -> Maybe [Text]
autoBranchCreationPatterns :: Prelude.Maybe [Prelude.Text],
App -> Maybe (Sensitive Text)
basicAuthCredentials :: Prelude.Maybe (Data.Sensitive Prelude.Text),
App -> Maybe (Sensitive Text)
buildSpec :: Prelude.Maybe (Data.Sensitive Prelude.Text),
:: Prelude.Maybe Prelude.Text,
App -> Maybe [CustomRule]
customRules :: Prelude.Maybe [CustomRule],
App -> Maybe Bool
enableAutoBranchCreation :: Prelude.Maybe Prelude.Bool,
App -> Maybe Bool
enableBranchAutoDeletion :: Prelude.Maybe Prelude.Bool,
App -> Maybe Text
iamServiceRoleArn :: Prelude.Maybe Prelude.Text,
App -> Maybe ProductionBranch
productionBranch :: Prelude.Maybe ProductionBranch,
App -> Maybe RepositoryCloneMethod
repositoryCloneMethod :: Prelude.Maybe RepositoryCloneMethod,
App -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
App -> Text
appId :: Prelude.Text,
App -> Text
appArn :: Prelude.Text,
App -> Text
name :: Prelude.Text,
App -> Text
description :: Prelude.Text,
App -> Text
repository :: Prelude.Text,
App -> Platform
platform :: Platform,
App -> POSIX
createTime :: Data.POSIX,
App -> POSIX
updateTime :: Data.POSIX,
App -> HashMap Text Text
environmentVariables :: Prelude.HashMap Prelude.Text Prelude.Text,
App -> Text
defaultDomain :: Prelude.Text,
App -> Bool
enableBranchAutoBuild :: Prelude.Bool,
App -> Bool
enableBasicAuth :: Prelude.Bool
}
deriving (App -> App -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: App -> App -> Bool
$c/= :: App -> App -> Bool
== :: App -> App -> Bool
$c== :: App -> App -> Bool
Prelude.Eq, Int -> App -> ShowS
[App] -> ShowS
App -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [App] -> ShowS
$cshowList :: [App] -> ShowS
show :: App -> String
$cshow :: App -> String
showsPrec :: Int -> App -> ShowS
$cshowsPrec :: Int -> App -> ShowS
Prelude.Show, forall x. Rep App x -> App
forall x. App -> Rep App x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep App x -> App
$cfrom :: forall x. App -> Rep App x
Prelude.Generic)
newApp ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Platform ->
Prelude.UTCTime ->
Prelude.UTCTime ->
Prelude.Text ->
Prelude.Bool ->
Prelude.Bool ->
App
newApp :: Text
-> Text
-> Text
-> Text
-> Text
-> Platform
-> UTCTime
-> UTCTime
-> Text
-> Bool
-> Bool
-> App
newApp
Text
pAppId_
Text
pAppArn_
Text
pName_
Text
pDescription_
Text
pRepository_
Platform
pPlatform_
UTCTime
pCreateTime_
UTCTime
pUpdateTime_
Text
pDefaultDomain_
Bool
pEnableBranchAutoBuild_
Bool
pEnableBasicAuth_ =
App'
{ $sel:autoBranchCreationConfig:App' :: Maybe AutoBranchCreationConfig
autoBranchCreationConfig = forall a. Maybe a
Prelude.Nothing,
$sel:autoBranchCreationPatterns:App' :: Maybe [Text]
autoBranchCreationPatterns = forall a. Maybe a
Prelude.Nothing,
$sel:basicAuthCredentials:App' :: Maybe (Sensitive Text)
basicAuthCredentials = forall a. Maybe a
Prelude.Nothing,
$sel:buildSpec:App' :: Maybe (Sensitive Text)
buildSpec = forall a. Maybe a
Prelude.Nothing,
$sel:customHeaders:App' :: Maybe Text
customHeaders = forall a. Maybe a
Prelude.Nothing,
$sel:customRules:App' :: Maybe [CustomRule]
customRules = forall a. Maybe a
Prelude.Nothing,
$sel:enableAutoBranchCreation:App' :: Maybe Bool
enableAutoBranchCreation = forall a. Maybe a
Prelude.Nothing,
$sel:enableBranchAutoDeletion:App' :: Maybe Bool
enableBranchAutoDeletion = forall a. Maybe a
Prelude.Nothing,
$sel:iamServiceRoleArn:App' :: Maybe Text
iamServiceRoleArn = forall a. Maybe a
Prelude.Nothing,
$sel:productionBranch:App' :: Maybe ProductionBranch
productionBranch = forall a. Maybe a
Prelude.Nothing,
$sel:repositoryCloneMethod:App' :: Maybe RepositoryCloneMethod
repositoryCloneMethod = forall a. Maybe a
Prelude.Nothing,
$sel:tags:App' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:appId:App' :: Text
appId = Text
pAppId_,
$sel:appArn:App' :: Text
appArn = Text
pAppArn_,
$sel:name:App' :: Text
name = Text
pName_,
$sel:description:App' :: Text
description = Text
pDescription_,
$sel:repository:App' :: Text
repository = Text
pRepository_,
$sel:platform:App' :: Platform
platform = Platform
pPlatform_,
$sel:createTime:App' :: POSIX
createTime = forall (a :: Format). Iso' (Time a) UTCTime
Data._Time forall t b. AReview t b -> b -> t
Lens.# UTCTime
pCreateTime_,
$sel:updateTime:App' :: POSIX
updateTime = forall (a :: Format). Iso' (Time a) UTCTime
Data._Time forall t b. AReview t b -> b -> t
Lens.# UTCTime
pUpdateTime_,
$sel:environmentVariables:App' :: HashMap Text Text
environmentVariables = forall a. Monoid a => a
Prelude.mempty,
$sel:defaultDomain:App' :: Text
defaultDomain = Text
pDefaultDomain_,
$sel:enableBranchAutoBuild:App' :: Bool
enableBranchAutoBuild = Bool
pEnableBranchAutoBuild_,
$sel:enableBasicAuth:App' :: Bool
enableBasicAuth = Bool
pEnableBasicAuth_
}
app_autoBranchCreationConfig :: Lens.Lens' App (Prelude.Maybe AutoBranchCreationConfig)
app_autoBranchCreationConfig :: Lens' App (Maybe AutoBranchCreationConfig)
app_autoBranchCreationConfig = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Maybe AutoBranchCreationConfig
autoBranchCreationConfig :: Maybe AutoBranchCreationConfig
$sel:autoBranchCreationConfig:App' :: App -> Maybe AutoBranchCreationConfig
autoBranchCreationConfig} -> Maybe AutoBranchCreationConfig
autoBranchCreationConfig) (\s :: App
s@App' {} Maybe AutoBranchCreationConfig
a -> App
s {$sel:autoBranchCreationConfig:App' :: Maybe AutoBranchCreationConfig
autoBranchCreationConfig = Maybe AutoBranchCreationConfig
a} :: App)
app_autoBranchCreationPatterns :: Lens.Lens' App (Prelude.Maybe [Prelude.Text])
app_autoBranchCreationPatterns :: Lens' App (Maybe [Text])
app_autoBranchCreationPatterns = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Maybe [Text]
autoBranchCreationPatterns :: Maybe [Text]
$sel:autoBranchCreationPatterns:App' :: App -> Maybe [Text]
autoBranchCreationPatterns} -> Maybe [Text]
autoBranchCreationPatterns) (\s :: App
s@App' {} Maybe [Text]
a -> App
s {$sel:autoBranchCreationPatterns:App' :: Maybe [Text]
autoBranchCreationPatterns = Maybe [Text]
a} :: App) 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
app_basicAuthCredentials :: Lens.Lens' App (Prelude.Maybe Prelude.Text)
app_basicAuthCredentials :: Lens' App (Maybe Text)
app_basicAuthCredentials = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Maybe (Sensitive Text)
basicAuthCredentials :: Maybe (Sensitive Text)
$sel:basicAuthCredentials:App' :: App -> Maybe (Sensitive Text)
basicAuthCredentials} -> Maybe (Sensitive Text)
basicAuthCredentials) (\s :: App
s@App' {} Maybe (Sensitive Text)
a -> App
s {$sel:basicAuthCredentials:App' :: Maybe (Sensitive Text)
basicAuthCredentials = Maybe (Sensitive Text)
a} :: App) 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
app_buildSpec :: Lens.Lens' App (Prelude.Maybe Prelude.Text)
app_buildSpec :: Lens' App (Maybe Text)
app_buildSpec = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Maybe (Sensitive Text)
buildSpec :: Maybe (Sensitive Text)
$sel:buildSpec:App' :: App -> Maybe (Sensitive Text)
buildSpec} -> Maybe (Sensitive Text)
buildSpec) (\s :: App
s@App' {} Maybe (Sensitive Text)
a -> App
s {$sel:buildSpec:App' :: Maybe (Sensitive Text)
buildSpec = Maybe (Sensitive Text)
a} :: App) 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
app_customHeaders :: Lens.Lens' App (Prelude.Maybe Prelude.Text)
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Maybe Text
customHeaders :: Maybe Text
$sel:customHeaders:App' :: App -> Maybe Text
customHeaders} -> Maybe Text
customHeaders) (\s :: App
s@App' {} Maybe Text
a -> App
s {$sel:customHeaders:App' :: Maybe Text
customHeaders = Maybe Text
a} :: App)
app_customRules :: Lens.Lens' App (Prelude.Maybe [CustomRule])
app_customRules :: Lens' App (Maybe [CustomRule])
app_customRules = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Maybe [CustomRule]
customRules :: Maybe [CustomRule]
$sel:customRules:App' :: App -> Maybe [CustomRule]
customRules} -> Maybe [CustomRule]
customRules) (\s :: App
s@App' {} Maybe [CustomRule]
a -> App
s {$sel:customRules:App' :: Maybe [CustomRule]
customRules = Maybe [CustomRule]
a} :: App) 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
app_enableAutoBranchCreation :: Lens.Lens' App (Prelude.Maybe Prelude.Bool)
app_enableAutoBranchCreation :: Lens' App (Maybe Bool)
app_enableAutoBranchCreation = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Maybe Bool
enableAutoBranchCreation :: Maybe Bool
$sel:enableAutoBranchCreation:App' :: App -> Maybe Bool
enableAutoBranchCreation} -> Maybe Bool
enableAutoBranchCreation) (\s :: App
s@App' {} Maybe Bool
a -> App
s {$sel:enableAutoBranchCreation:App' :: Maybe Bool
enableAutoBranchCreation = Maybe Bool
a} :: App)
app_enableBranchAutoDeletion :: Lens.Lens' App (Prelude.Maybe Prelude.Bool)
app_enableBranchAutoDeletion :: Lens' App (Maybe Bool)
app_enableBranchAutoDeletion = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Maybe Bool
enableBranchAutoDeletion :: Maybe Bool
$sel:enableBranchAutoDeletion:App' :: App -> Maybe Bool
enableBranchAutoDeletion} -> Maybe Bool
enableBranchAutoDeletion) (\s :: App
s@App' {} Maybe Bool
a -> App
s {$sel:enableBranchAutoDeletion:App' :: Maybe Bool
enableBranchAutoDeletion = Maybe Bool
a} :: App)
app_iamServiceRoleArn :: Lens.Lens' App (Prelude.Maybe Prelude.Text)
app_iamServiceRoleArn :: Lens' App (Maybe Text)
app_iamServiceRoleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Maybe Text
iamServiceRoleArn :: Maybe Text
$sel:iamServiceRoleArn:App' :: App -> Maybe Text
iamServiceRoleArn} -> Maybe Text
iamServiceRoleArn) (\s :: App
s@App' {} Maybe Text
a -> App
s {$sel:iamServiceRoleArn:App' :: Maybe Text
iamServiceRoleArn = Maybe Text
a} :: App)
app_productionBranch :: Lens.Lens' App (Prelude.Maybe ProductionBranch)
app_productionBranch :: Lens' App (Maybe ProductionBranch)
app_productionBranch = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Maybe ProductionBranch
productionBranch :: Maybe ProductionBranch
$sel:productionBranch:App' :: App -> Maybe ProductionBranch
productionBranch} -> Maybe ProductionBranch
productionBranch) (\s :: App
s@App' {} Maybe ProductionBranch
a -> App
s {$sel:productionBranch:App' :: Maybe ProductionBranch
productionBranch = Maybe ProductionBranch
a} :: App)
app_repositoryCloneMethod :: Lens.Lens' App (Prelude.Maybe RepositoryCloneMethod)
app_repositoryCloneMethod :: Lens' App (Maybe RepositoryCloneMethod)
app_repositoryCloneMethod = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Maybe RepositoryCloneMethod
repositoryCloneMethod :: Maybe RepositoryCloneMethod
$sel:repositoryCloneMethod:App' :: App -> Maybe RepositoryCloneMethod
repositoryCloneMethod} -> Maybe RepositoryCloneMethod
repositoryCloneMethod) (\s :: App
s@App' {} Maybe RepositoryCloneMethod
a -> App
s {$sel:repositoryCloneMethod:App' :: Maybe RepositoryCloneMethod
repositoryCloneMethod = Maybe RepositoryCloneMethod
a} :: App)
app_tags :: Lens.Lens' App (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
app_tags :: Lens' App (Maybe (HashMap Text Text))
app_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:App' :: App -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: App
s@App' {} Maybe (HashMap Text Text)
a -> App
s {$sel:tags:App' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: App) 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
app_appId :: Lens.Lens' App Prelude.Text
app_appId :: Lens' App Text
app_appId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Text
appId :: Text
$sel:appId:App' :: App -> Text
appId} -> Text
appId) (\s :: App
s@App' {} Text
a -> App
s {$sel:appId:App' :: Text
appId = Text
a} :: App)
app_appArn :: Lens.Lens' App Prelude.Text
app_appArn :: Lens' App Text
app_appArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Text
appArn :: Text
$sel:appArn:App' :: App -> Text
appArn} -> Text
appArn) (\s :: App
s@App' {} Text
a -> App
s {$sel:appArn:App' :: Text
appArn = Text
a} :: App)
app_name :: Lens.Lens' App Prelude.Text
app_name :: Lens' App Text
app_name = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Text
name :: Text
$sel:name:App' :: App -> Text
name} -> Text
name) (\s :: App
s@App' {} Text
a -> App
s {$sel:name:App' :: Text
name = Text
a} :: App)
app_description :: Lens.Lens' App Prelude.Text
app_description :: Lens' App Text
app_description = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Text
description :: Text
$sel:description:App' :: App -> Text
description} -> Text
description) (\s :: App
s@App' {} Text
a -> App
s {$sel:description:App' :: Text
description = Text
a} :: App)
app_repository :: Lens.Lens' App Prelude.Text
app_repository :: Lens' App Text
app_repository = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Text
repository :: Text
$sel:repository:App' :: App -> Text
repository} -> Text
repository) (\s :: App
s@App' {} Text
a -> App
s {$sel:repository:App' :: Text
repository = Text
a} :: App)
app_platform :: Lens.Lens' App Platform
app_platform :: Lens' App Platform
app_platform = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Platform
platform :: Platform
$sel:platform:App' :: App -> Platform
platform} -> Platform
platform) (\s :: App
s@App' {} Platform
a -> App
s {$sel:platform:App' :: Platform
platform = Platform
a} :: App)
app_createTime :: Lens.Lens' App Prelude.UTCTime
app_createTime :: Lens' App UTCTime
app_createTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {POSIX
createTime :: POSIX
$sel:createTime:App' :: App -> POSIX
createTime} -> POSIX
createTime) (\s :: App
s@App' {} POSIX
a -> App
s {$sel:createTime:App' :: POSIX
createTime = POSIX
a} :: App) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
app_updateTime :: Lens.Lens' App Prelude.UTCTime
app_updateTime :: Lens' App UTCTime
app_updateTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {POSIX
updateTime :: POSIX
$sel:updateTime:App' :: App -> POSIX
updateTime} -> POSIX
updateTime) (\s :: App
s@App' {} POSIX
a -> App
s {$sel:updateTime:App' :: POSIX
updateTime = POSIX
a} :: App) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
app_environmentVariables :: Lens.Lens' App (Prelude.HashMap Prelude.Text Prelude.Text)
app_environmentVariables :: Lens' App (HashMap Text Text)
app_environmentVariables = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {HashMap Text Text
environmentVariables :: HashMap Text Text
$sel:environmentVariables:App' :: App -> HashMap Text Text
environmentVariables} -> HashMap Text Text
environmentVariables) (\s :: App
s@App' {} HashMap Text Text
a -> App
s {$sel:environmentVariables:App' :: HashMap Text Text
environmentVariables = HashMap Text Text
a} :: App) 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
app_defaultDomain :: Lens.Lens' App Prelude.Text
app_defaultDomain :: Lens' App Text
app_defaultDomain = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Text
defaultDomain :: Text
$sel:defaultDomain:App' :: App -> Text
defaultDomain} -> Text
defaultDomain) (\s :: App
s@App' {} Text
a -> App
s {$sel:defaultDomain:App' :: Text
defaultDomain = Text
a} :: App)
app_enableBranchAutoBuild :: Lens.Lens' App Prelude.Bool
app_enableBranchAutoBuild :: Lens' App Bool
app_enableBranchAutoBuild = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Bool
enableBranchAutoBuild :: Bool
$sel:enableBranchAutoBuild:App' :: App -> Bool
enableBranchAutoBuild} -> Bool
enableBranchAutoBuild) (\s :: App
s@App' {} Bool
a -> App
s {$sel:enableBranchAutoBuild:App' :: Bool
enableBranchAutoBuild = Bool
a} :: App)
app_enableBasicAuth :: Lens.Lens' App Prelude.Bool
app_enableBasicAuth :: Lens' App Bool
app_enableBasicAuth = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\App' {Bool
enableBasicAuth :: Bool
$sel:enableBasicAuth:App' :: App -> Bool
enableBasicAuth} -> Bool
enableBasicAuth) (\s :: App
s@App' {} Bool
a -> App
s {$sel:enableBasicAuth:App' :: Bool
enableBasicAuth = Bool
a} :: App)
instance Data.FromJSON App where
parseJSON :: Value -> Parser App
parseJSON =
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
String
"App"
( \Object
x ->
Maybe AutoBranchCreationConfig
-> Maybe [Text]
-> Maybe (Sensitive Text)
-> Maybe (Sensitive Text)
-> Maybe Text
-> Maybe [CustomRule]
-> Maybe Bool
-> Maybe Bool
-> Maybe Text
-> Maybe ProductionBranch
-> Maybe RepositoryCloneMethod
-> Maybe (HashMap Text Text)
-> Text
-> Text
-> Text
-> Text
-> Text
-> Platform
-> POSIX
-> POSIX
-> HashMap Text Text
-> Text
-> Bool
-> Bool
-> App
App'
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
"autoBranchCreationConfig")
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
"autoBranchCreationPatterns"
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
"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
"customHeaders")
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
"customRules" 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
"enableAutoBranchCreation")
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
"enableBranchAutoDeletion")
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
"iamServiceRoleArn")
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
"productionBranch")
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
"repositoryCloneMethod")
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 a
Data..: Key
"appId")
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
"appArn")
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
"name")
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
"repository")
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
"platform")
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
"defaultDomain")
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
"enableBranchAutoBuild")
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")
)
instance Prelude.Hashable App where
hashWithSalt :: Int -> App -> Int
hashWithSalt Int
_salt App' {Bool
Maybe Bool
Maybe [Text]
Maybe [CustomRule]
Maybe Text
Maybe (HashMap Text Text)
Maybe (Sensitive Text)
Maybe ProductionBranch
Maybe RepositoryCloneMethod
Maybe AutoBranchCreationConfig
Text
HashMap Text Text
POSIX
Platform
enableBasicAuth :: Bool
enableBranchAutoBuild :: Bool
defaultDomain :: Text
environmentVariables :: HashMap Text Text
updateTime :: POSIX
createTime :: POSIX
platform :: Platform
repository :: Text
description :: Text
name :: Text
appArn :: Text
appId :: Text
tags :: Maybe (HashMap Text Text)
repositoryCloneMethod :: Maybe RepositoryCloneMethod
productionBranch :: Maybe ProductionBranch
iamServiceRoleArn :: Maybe Text
enableBranchAutoDeletion :: Maybe Bool
enableAutoBranchCreation :: Maybe Bool
customRules :: Maybe [CustomRule]
customHeaders :: Maybe Text
buildSpec :: Maybe (Sensitive Text)
basicAuthCredentials :: Maybe (Sensitive Text)
autoBranchCreationPatterns :: Maybe [Text]
autoBranchCreationConfig :: Maybe AutoBranchCreationConfig
$sel:enableBasicAuth:App' :: App -> Bool
$sel:enableBranchAutoBuild:App' :: App -> Bool
$sel:defaultDomain:App' :: App -> Text
$sel:environmentVariables:App' :: App -> HashMap Text Text
$sel:updateTime:App' :: App -> POSIX
$sel:createTime:App' :: App -> POSIX
$sel:platform:App' :: App -> Platform
$sel:repository:App' :: App -> Text
$sel:description:App' :: App -> Text
$sel:name:App' :: App -> Text
$sel:appArn:App' :: App -> Text
$sel:appId:App' :: App -> Text
$sel:tags:App' :: App -> Maybe (HashMap Text Text)
$sel:repositoryCloneMethod:App' :: App -> Maybe RepositoryCloneMethod
$sel:productionBranch:App' :: App -> Maybe ProductionBranch
$sel:iamServiceRoleArn:App' :: App -> Maybe Text
$sel:enableBranchAutoDeletion:App' :: App -> Maybe Bool
$sel:enableAutoBranchCreation:App' :: App -> Maybe Bool
$sel:customRules:App' :: App -> Maybe [CustomRule]
$sel:customHeaders:App' :: App -> Maybe Text
$sel:buildSpec:App' :: App -> Maybe (Sensitive Text)
$sel:basicAuthCredentials:App' :: App -> Maybe (Sensitive Text)
$sel:autoBranchCreationPatterns:App' :: App -> Maybe [Text]
$sel:autoBranchCreationConfig:App' :: App -> Maybe AutoBranchCreationConfig
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe AutoBranchCreationConfig
autoBranchCreationConfig
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
autoBranchCreationPatterns
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
customHeaders
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [CustomRule]
customRules
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
enableAutoBranchCreation
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
enableBranchAutoDeletion
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
iamServiceRoleArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ProductionBranch
productionBranch
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RepositoryCloneMethod
repositoryCloneMethod
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
appId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
appArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
name
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
description
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
repository
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Platform
platform
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` Text
defaultDomain
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Bool
enableBranchAutoBuild
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Bool
enableBasicAuth
instance Prelude.NFData App where
rnf :: App -> ()
rnf App' {Bool
Maybe Bool
Maybe [Text]
Maybe [CustomRule]
Maybe Text
Maybe (HashMap Text Text)
Maybe (Sensitive Text)
Maybe ProductionBranch
Maybe RepositoryCloneMethod
Maybe AutoBranchCreationConfig
Text
HashMap Text Text
POSIX
Platform
enableBasicAuth :: Bool
enableBranchAutoBuild :: Bool
defaultDomain :: Text
environmentVariables :: HashMap Text Text
updateTime :: POSIX
createTime :: POSIX
platform :: Platform
repository :: Text
description :: Text
name :: Text
appArn :: Text
appId :: Text
tags :: Maybe (HashMap Text Text)
repositoryCloneMethod :: Maybe RepositoryCloneMethod
productionBranch :: Maybe ProductionBranch
iamServiceRoleArn :: Maybe Text
enableBranchAutoDeletion :: Maybe Bool
enableAutoBranchCreation :: Maybe Bool
customRules :: Maybe [CustomRule]
customHeaders :: Maybe Text
buildSpec :: Maybe (Sensitive Text)
basicAuthCredentials :: Maybe (Sensitive Text)
autoBranchCreationPatterns :: Maybe [Text]
autoBranchCreationConfig :: Maybe AutoBranchCreationConfig
$sel:enableBasicAuth:App' :: App -> Bool
$sel:enableBranchAutoBuild:App' :: App -> Bool
$sel:defaultDomain:App' :: App -> Text
$sel:environmentVariables:App' :: App -> HashMap Text Text
$sel:updateTime:App' :: App -> POSIX
$sel:createTime:App' :: App -> POSIX
$sel:platform:App' :: App -> Platform
$sel:repository:App' :: App -> Text
$sel:description:App' :: App -> Text
$sel:name:App' :: App -> Text
$sel:appArn:App' :: App -> Text
$sel:appId:App' :: App -> Text
$sel:tags:App' :: App -> Maybe (HashMap Text Text)
$sel:repositoryCloneMethod:App' :: App -> Maybe RepositoryCloneMethod
$sel:productionBranch:App' :: App -> Maybe ProductionBranch
$sel:iamServiceRoleArn:App' :: App -> Maybe Text
$sel:enableBranchAutoDeletion:App' :: App -> Maybe Bool
$sel:enableAutoBranchCreation:App' :: App -> Maybe Bool
$sel:customRules:App' :: App -> Maybe [CustomRule]
$sel:customHeaders:App' :: App -> Maybe Text
$sel:buildSpec:App' :: App -> Maybe (Sensitive Text)
$sel:basicAuthCredentials:App' :: App -> Maybe (Sensitive Text)
$sel:autoBranchCreationPatterns:App' :: App -> Maybe [Text]
$sel:autoBranchCreationConfig:App' :: App -> Maybe AutoBranchCreationConfig
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe AutoBranchCreationConfig
autoBranchCreationConfig
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
autoBranchCreationPatterns
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
customHeaders
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [CustomRule]
customRules
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
enableAutoBranchCreation
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
enableBranchAutoDeletion
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
iamServiceRoleArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ProductionBranch
productionBranch
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RepositoryCloneMethod
repositoryCloneMethod
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 Text
appId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
appArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
name
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 Text
repository
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Platform
platform
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 Text
defaultDomain
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Bool
enableBranchAutoBuild
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Bool
enableBasicAuth