module Stratosphere.ResilienceHub.App (
module Exports, App(..), mkApp
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.ResilienceHub.App.EventSubscriptionProperty as Exports
import {-# SOURCE #-} Stratosphere.ResilienceHub.App.PermissionModelProperty as Exports
import {-# SOURCE #-} Stratosphere.ResilienceHub.App.ResourceMappingProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data App
=
App {App -> ()
haddock_workaround_ :: (),
App -> Maybe (Value Text)
appAssessmentSchedule :: (Prelude.Maybe (Value Prelude.Text)),
App -> Value Text
appTemplateBody :: (Value Prelude.Text),
App -> Maybe (Value Text)
description :: (Prelude.Maybe (Value Prelude.Text)),
App -> Maybe [EventSubscriptionProperty]
eventSubscriptions :: (Prelude.Maybe [EventSubscriptionProperty]),
App -> Value Text
name :: (Value Prelude.Text),
App -> Maybe PermissionModelProperty
permissionModel :: (Prelude.Maybe PermissionModelProperty),
App -> Maybe (Value Text)
resiliencyPolicyArn :: (Prelude.Maybe (Value Prelude.Text)),
App -> [ResourceMappingProperty]
resourceMappings :: [ResourceMappingProperty],
App -> Maybe (Map Text (Value Text))
tags :: (Prelude.Maybe (Prelude.Map Prelude.Text (Value Prelude.Text)))}
deriving stock (App -> App -> Bool
(App -> App -> Bool) -> (App -> App -> Bool) -> Eq App
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: App -> App -> Bool
== :: App -> App -> Bool
$c/= :: App -> App -> Bool
/= :: App -> App -> Bool
Prelude.Eq, Int -> App -> ShowS
[App] -> ShowS
App -> String
(Int -> App -> ShowS)
-> (App -> String) -> ([App] -> ShowS) -> Show App
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> App -> ShowS
showsPrec :: Int -> App -> ShowS
$cshow :: App -> String
show :: App -> String
$cshowList :: [App] -> ShowS
showList :: [App] -> ShowS
Prelude.Show)
mkApp ::
Value Prelude.Text
-> Value Prelude.Text -> [ResourceMappingProperty] -> App
mkApp :: Value Text -> Value Text -> [ResourceMappingProperty] -> App
mkApp Value Text
appTemplateBody Value Text
name [ResourceMappingProperty]
resourceMappings
= App
{haddock_workaround_ :: ()
haddock_workaround_ = (), appTemplateBody :: Value Text
appTemplateBody = Value Text
appTemplateBody,
name :: Value Text
name = Value Text
name, resourceMappings :: [ResourceMappingProperty]
resourceMappings = [ResourceMappingProperty]
resourceMappings,
appAssessmentSchedule :: Maybe (Value Text)
appAssessmentSchedule = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
description :: Maybe (Value Text)
description = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
eventSubscriptions :: Maybe [EventSubscriptionProperty]
eventSubscriptions = Maybe [EventSubscriptionProperty]
forall a. Maybe a
Prelude.Nothing,
permissionModel :: Maybe PermissionModelProperty
permissionModel = Maybe PermissionModelProperty
forall a. Maybe a
Prelude.Nothing,
resiliencyPolicyArn :: Maybe (Value Text)
resiliencyPolicyArn = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, tags :: Maybe (Map Text (Value Text))
tags = Maybe (Map Text (Value Text))
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties App where
toResourceProperties :: App -> ResourceProperties
toResourceProperties App {[ResourceMappingProperty]
Maybe [EventSubscriptionProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
Maybe PermissionModelProperty
()
Value Text
haddock_workaround_ :: App -> ()
appAssessmentSchedule :: App -> Maybe (Value Text)
appTemplateBody :: App -> Value Text
description :: App -> Maybe (Value Text)
eventSubscriptions :: App -> Maybe [EventSubscriptionProperty]
name :: App -> Value Text
permissionModel :: App -> Maybe PermissionModelProperty
resiliencyPolicyArn :: App -> Maybe (Value Text)
resourceMappings :: App -> [ResourceMappingProperty]
tags :: App -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::ResilienceHub::App", supportsTags :: Bool
supportsTags = Bool
Prelude.True,
properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
[Key
"AppTemplateBody" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
appTemplateBody, Key
"Name" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
name,
Key
"ResourceMappings" Key -> [ResourceMappingProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [ResourceMappingProperty]
resourceMappings]
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AppAssessmentSchedule"
(Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
appAssessmentSchedule,
Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Description" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
description,
Key -> [EventSubscriptionProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"EventSubscriptions" ([EventSubscriptionProperty] -> (Key, Value))
-> Maybe [EventSubscriptionProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [EventSubscriptionProperty]
eventSubscriptions,
Key -> PermissionModelProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PermissionModel" (PermissionModelProperty -> (Key, Value))
-> Maybe PermissionModelProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PermissionModelProperty
permissionModel,
Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ResiliencyPolicyArn" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
resiliencyPolicyArn,
Key -> Map Text (Value Text) -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tags" (Map Text (Value Text) -> (Key, Value))
-> Maybe (Map Text (Value Text)) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Map Text (Value Text))
tags]))}
instance JSON.ToJSON App where
toJSON :: App -> Value
toJSON App {[ResourceMappingProperty]
Maybe [EventSubscriptionProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
Maybe PermissionModelProperty
()
Value Text
haddock_workaround_ :: App -> ()
appAssessmentSchedule :: App -> Maybe (Value Text)
appTemplateBody :: App -> Value Text
description :: App -> Maybe (Value Text)
eventSubscriptions :: App -> Maybe [EventSubscriptionProperty]
name :: App -> Value Text
permissionModel :: App -> Maybe PermissionModelProperty
resiliencyPolicyArn :: App -> Maybe (Value Text)
resourceMappings :: App -> [ResourceMappingProperty]
tags :: App -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
..}
= [(Key, Value)] -> Value
JSON.object
([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
[Key
"AppTemplateBody" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
appTemplateBody, Key
"Name" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
name,
Key
"ResourceMappings" Key -> [ResourceMappingProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [ResourceMappingProperty]
resourceMappings]
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"AppAssessmentSchedule"
(Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
appAssessmentSchedule,
Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Description" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
description,
Key -> [EventSubscriptionProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"EventSubscriptions" ([EventSubscriptionProperty] -> (Key, Value))
-> Maybe [EventSubscriptionProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [EventSubscriptionProperty]
eventSubscriptions,
Key -> PermissionModelProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"PermissionModel" (PermissionModelProperty -> (Key, Value))
-> Maybe PermissionModelProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PermissionModelProperty
permissionModel,
Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"ResiliencyPolicyArn" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
resiliencyPolicyArn,
Key -> Map Text (Value Text) -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Tags" (Map Text (Value Text) -> (Key, Value))
-> Maybe (Map Text (Value Text)) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Map Text (Value Text))
tags])))
instance Property "AppAssessmentSchedule" App where
type PropertyType "AppAssessmentSchedule" App = Value Prelude.Text
set :: PropertyType "AppAssessmentSchedule" App -> App -> App
set PropertyType "AppAssessmentSchedule" App
newValue App {[ResourceMappingProperty]
Maybe [EventSubscriptionProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
Maybe PermissionModelProperty
()
Value Text
haddock_workaround_ :: App -> ()
appAssessmentSchedule :: App -> Maybe (Value Text)
appTemplateBody :: App -> Value Text
description :: App -> Maybe (Value Text)
eventSubscriptions :: App -> Maybe [EventSubscriptionProperty]
name :: App -> Value Text
permissionModel :: App -> Maybe PermissionModelProperty
resiliencyPolicyArn :: App -> Maybe (Value Text)
resourceMappings :: App -> [ResourceMappingProperty]
tags :: App -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
..}
= App {appAssessmentSchedule :: Maybe (Value Text)
appAssessmentSchedule = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AppAssessmentSchedule" App
Value Text
newValue, [ResourceMappingProperty]
Maybe [EventSubscriptionProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
Maybe PermissionModelProperty
()
Value Text
haddock_workaround_ :: ()
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
..}
instance Property "AppTemplateBody" App where
type PropertyType "AppTemplateBody" App = Value Prelude.Text
set :: PropertyType "AppTemplateBody" App -> App -> App
set PropertyType "AppTemplateBody" App
newValue App {[ResourceMappingProperty]
Maybe [EventSubscriptionProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
Maybe PermissionModelProperty
()
Value Text
haddock_workaround_ :: App -> ()
appAssessmentSchedule :: App -> Maybe (Value Text)
appTemplateBody :: App -> Value Text
description :: App -> Maybe (Value Text)
eventSubscriptions :: App -> Maybe [EventSubscriptionProperty]
name :: App -> Value Text
permissionModel :: App -> Maybe PermissionModelProperty
resiliencyPolicyArn :: App -> Maybe (Value Text)
resourceMappings :: App -> [ResourceMappingProperty]
tags :: App -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
..} = App {appTemplateBody :: Value Text
appTemplateBody = PropertyType "AppTemplateBody" App
Value Text
newValue, [ResourceMappingProperty]
Maybe [EventSubscriptionProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
Maybe PermissionModelProperty
()
Value Text
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
..}
instance Property "Description" App where
type PropertyType "Description" App = Value Prelude.Text
set :: PropertyType "Description" App -> App -> App
set PropertyType "Description" App
newValue App {[ResourceMappingProperty]
Maybe [EventSubscriptionProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
Maybe PermissionModelProperty
()
Value Text
haddock_workaround_ :: App -> ()
appAssessmentSchedule :: App -> Maybe (Value Text)
appTemplateBody :: App -> Value Text
description :: App -> Maybe (Value Text)
eventSubscriptions :: App -> Maybe [EventSubscriptionProperty]
name :: App -> Value Text
permissionModel :: App -> Maybe PermissionModelProperty
resiliencyPolicyArn :: App -> Maybe (Value Text)
resourceMappings :: App -> [ResourceMappingProperty]
tags :: App -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
..}
= App {description :: Maybe (Value Text)
description = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Description" App
Value Text
newValue, [ResourceMappingProperty]
Maybe [EventSubscriptionProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
Maybe PermissionModelProperty
()
Value Text
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
..}
instance Property "EventSubscriptions" App where
type PropertyType "EventSubscriptions" App = [EventSubscriptionProperty]
set :: PropertyType "EventSubscriptions" App -> App -> App
set PropertyType "EventSubscriptions" App
newValue App {[ResourceMappingProperty]
Maybe [EventSubscriptionProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
Maybe PermissionModelProperty
()
Value Text
haddock_workaround_ :: App -> ()
appAssessmentSchedule :: App -> Maybe (Value Text)
appTemplateBody :: App -> Value Text
description :: App -> Maybe (Value Text)
eventSubscriptions :: App -> Maybe [EventSubscriptionProperty]
name :: App -> Value Text
permissionModel :: App -> Maybe PermissionModelProperty
resiliencyPolicyArn :: App -> Maybe (Value Text)
resourceMappings :: App -> [ResourceMappingProperty]
tags :: App -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
..}
= App {eventSubscriptions :: Maybe [EventSubscriptionProperty]
eventSubscriptions = [EventSubscriptionProperty] -> Maybe [EventSubscriptionProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [EventSubscriptionProperty]
PropertyType "EventSubscriptions" App
newValue, [ResourceMappingProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
Maybe PermissionModelProperty
()
Value Text
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
..}
instance Property "Name" App where
type PropertyType "Name" App = Value Prelude.Text
set :: PropertyType "Name" App -> App -> App
set PropertyType "Name" App
newValue App {[ResourceMappingProperty]
Maybe [EventSubscriptionProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
Maybe PermissionModelProperty
()
Value Text
haddock_workaround_ :: App -> ()
appAssessmentSchedule :: App -> Maybe (Value Text)
appTemplateBody :: App -> Value Text
description :: App -> Maybe (Value Text)
eventSubscriptions :: App -> Maybe [EventSubscriptionProperty]
name :: App -> Value Text
permissionModel :: App -> Maybe PermissionModelProperty
resiliencyPolicyArn :: App -> Maybe (Value Text)
resourceMappings :: App -> [ResourceMappingProperty]
tags :: App -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
..} = App {name :: Value Text
name = PropertyType "Name" App
Value Text
newValue, [ResourceMappingProperty]
Maybe [EventSubscriptionProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
Maybe PermissionModelProperty
()
Value Text
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
..}
instance Property "PermissionModel" App where
type PropertyType "PermissionModel" App = PermissionModelProperty
set :: PropertyType "PermissionModel" App -> App -> App
set PropertyType "PermissionModel" App
newValue App {[ResourceMappingProperty]
Maybe [EventSubscriptionProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
Maybe PermissionModelProperty
()
Value Text
haddock_workaround_ :: App -> ()
appAssessmentSchedule :: App -> Maybe (Value Text)
appTemplateBody :: App -> Value Text
description :: App -> Maybe (Value Text)
eventSubscriptions :: App -> Maybe [EventSubscriptionProperty]
name :: App -> Value Text
permissionModel :: App -> Maybe PermissionModelProperty
resiliencyPolicyArn :: App -> Maybe (Value Text)
resourceMappings :: App -> [ResourceMappingProperty]
tags :: App -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
..}
= App {permissionModel :: Maybe PermissionModelProperty
permissionModel = PermissionModelProperty -> Maybe PermissionModelProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "PermissionModel" App
PermissionModelProperty
newValue, [ResourceMappingProperty]
Maybe [EventSubscriptionProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
()
Value Text
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
..}
instance Property "ResiliencyPolicyArn" App where
type PropertyType "ResiliencyPolicyArn" App = Value Prelude.Text
set :: PropertyType "ResiliencyPolicyArn" App -> App -> App
set PropertyType "ResiliencyPolicyArn" App
newValue App {[ResourceMappingProperty]
Maybe [EventSubscriptionProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
Maybe PermissionModelProperty
()
Value Text
haddock_workaround_ :: App -> ()
appAssessmentSchedule :: App -> Maybe (Value Text)
appTemplateBody :: App -> Value Text
description :: App -> Maybe (Value Text)
eventSubscriptions :: App -> Maybe [EventSubscriptionProperty]
name :: App -> Value Text
permissionModel :: App -> Maybe PermissionModelProperty
resiliencyPolicyArn :: App -> Maybe (Value Text)
resourceMappings :: App -> [ResourceMappingProperty]
tags :: App -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
..}
= App {resiliencyPolicyArn :: Maybe (Value Text)
resiliencyPolicyArn = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "ResiliencyPolicyArn" App
Value Text
newValue, [ResourceMappingProperty]
Maybe [EventSubscriptionProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
Maybe PermissionModelProperty
()
Value Text
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
..}
instance Property "ResourceMappings" App where
type PropertyType "ResourceMappings" App = [ResourceMappingProperty]
set :: PropertyType "ResourceMappings" App -> App -> App
set PropertyType "ResourceMappings" App
newValue App {[ResourceMappingProperty]
Maybe [EventSubscriptionProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
Maybe PermissionModelProperty
()
Value Text
haddock_workaround_ :: App -> ()
appAssessmentSchedule :: App -> Maybe (Value Text)
appTemplateBody :: App -> Value Text
description :: App -> Maybe (Value Text)
eventSubscriptions :: App -> Maybe [EventSubscriptionProperty]
name :: App -> Value Text
permissionModel :: App -> Maybe PermissionModelProperty
resiliencyPolicyArn :: App -> Maybe (Value Text)
resourceMappings :: App -> [ResourceMappingProperty]
tags :: App -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
..} = App {resourceMappings :: [ResourceMappingProperty]
resourceMappings = [ResourceMappingProperty]
PropertyType "ResourceMappings" App
newValue, Maybe [EventSubscriptionProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
Maybe PermissionModelProperty
()
Value Text
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
tags :: Maybe (Map Text (Value Text))
..}
instance Property "Tags" App where
type PropertyType "Tags" App = Prelude.Map Prelude.Text (Value Prelude.Text)
set :: PropertyType "Tags" App -> App -> App
set PropertyType "Tags" App
newValue App {[ResourceMappingProperty]
Maybe [EventSubscriptionProperty]
Maybe (Map Text (Value Text))
Maybe (Value Text)
Maybe PermissionModelProperty
()
Value Text
haddock_workaround_ :: App -> ()
appAssessmentSchedule :: App -> Maybe (Value Text)
appTemplateBody :: App -> Value Text
description :: App -> Maybe (Value Text)
eventSubscriptions :: App -> Maybe [EventSubscriptionProperty]
name :: App -> Value Text
permissionModel :: App -> Maybe PermissionModelProperty
resiliencyPolicyArn :: App -> Maybe (Value Text)
resourceMappings :: App -> [ResourceMappingProperty]
tags :: App -> Maybe (Map Text (Value Text))
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
tags :: Maybe (Map Text (Value Text))
..} = App {tags :: Maybe (Map Text (Value Text))
tags = Map Text (Value Text) -> Maybe (Map Text (Value Text))
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure Map Text (Value Text)
PropertyType "Tags" App
newValue, [ResourceMappingProperty]
Maybe [EventSubscriptionProperty]
Maybe (Value Text)
Maybe PermissionModelProperty
()
Value Text
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
haddock_workaround_ :: ()
appAssessmentSchedule :: Maybe (Value Text)
appTemplateBody :: Value Text
description :: Maybe (Value Text)
eventSubscriptions :: Maybe [EventSubscriptionProperty]
name :: Value Text
permissionModel :: Maybe PermissionModelProperty
resiliencyPolicyArn :: Maybe (Value Text)
resourceMappings :: [ResourceMappingProperty]
..}