module Stratosphere.APS.Workspace (
module Exports, Workspace(..), mkWorkspace
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.APS.Workspace.LoggingConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.APS.Workspace.QueryLoggingConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.APS.Workspace.WorkspaceConfigurationProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Tag
import Stratosphere.Value
data Workspace
=
Workspace {Workspace -> ()
haddock_workaround_ :: (),
Workspace -> Maybe (Value Text)
alertManagerDefinition :: (Prelude.Maybe (Value Prelude.Text)),
Workspace -> Maybe (Value Text)
alias :: (Prelude.Maybe (Value Prelude.Text)),
Workspace -> Maybe (Value Text)
kmsKeyArn :: (Prelude.Maybe (Value Prelude.Text)),
Workspace -> Maybe LoggingConfigurationProperty
loggingConfiguration :: (Prelude.Maybe LoggingConfigurationProperty),
Workspace -> Maybe QueryLoggingConfigurationProperty
queryLoggingConfiguration :: (Prelude.Maybe QueryLoggingConfigurationProperty),
Workspace -> Maybe [Tag]
tags :: (Prelude.Maybe [Tag]),
Workspace -> Maybe WorkspaceConfigurationProperty
workspaceConfiguration :: (Prelude.Maybe WorkspaceConfigurationProperty)}
deriving stock (Workspace -> Workspace -> Bool
(Workspace -> Workspace -> Bool)
-> (Workspace -> Workspace -> Bool) -> Eq Workspace
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Workspace -> Workspace -> Bool
== :: Workspace -> Workspace -> Bool
$c/= :: Workspace -> Workspace -> Bool
/= :: Workspace -> Workspace -> Bool
Prelude.Eq, Int -> Workspace -> ShowS
[Workspace] -> ShowS
Workspace -> String
(Int -> Workspace -> ShowS)
-> (Workspace -> String)
-> ([Workspace] -> ShowS)
-> Show Workspace
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Workspace -> ShowS
showsPrec :: Int -> Workspace -> ShowS
$cshow :: Workspace -> String
show :: Workspace -> String
$cshowList :: [Workspace] -> ShowS
showList :: [Workspace] -> ShowS
Prelude.Show)
mkWorkspace :: Workspace
mkWorkspace :: Workspace
mkWorkspace
= Workspace
{haddock_workaround_ :: ()
haddock_workaround_ = (),
alertManagerDefinition :: Maybe (Value Text)
alertManagerDefinition = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, alias :: Maybe (Value Text)
alias = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
kmsKeyArn :: Maybe (Value Text)
kmsKeyArn = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
loggingConfiguration :: Maybe LoggingConfigurationProperty
loggingConfiguration = Maybe LoggingConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
queryLoggingConfiguration = Maybe QueryLoggingConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
tags :: Maybe [Tag]
tags = Maybe [Tag]
forall a. Maybe a
Prelude.Nothing, workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
workspaceConfiguration = Maybe WorkspaceConfigurationProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties Workspace where
toResourceProperties :: Workspace -> ResourceProperties
toResourceProperties Workspace {Maybe [Tag]
Maybe (Value Text)
Maybe LoggingConfigurationProperty
Maybe QueryLoggingConfigurationProperty
Maybe WorkspaceConfigurationProperty
()
haddock_workaround_ :: Workspace -> ()
alertManagerDefinition :: Workspace -> Maybe (Value Text)
alias :: Workspace -> Maybe (Value Text)
kmsKeyArn :: Workspace -> Maybe (Value Text)
loggingConfiguration :: Workspace -> Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Workspace -> Maybe QueryLoggingConfigurationProperty
tags :: Workspace -> Maybe [Tag]
workspaceConfiguration :: Workspace -> Maybe WorkspaceConfigurationProperty
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
alias :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
tags :: Maybe [Tag]
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::APS::Workspace", supportsTags :: Bool
supportsTags = Bool
Prelude.True,
properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
([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
"AlertManagerDefinition"
(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)
alertManagerDefinition,
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
"Alias" (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)
alias,
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
"KmsKeyArn" (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)
kmsKeyArn,
Key -> LoggingConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"LoggingConfiguration" (LoggingConfigurationProperty -> (Key, Value))
-> Maybe LoggingConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe LoggingConfigurationProperty
loggingConfiguration,
Key -> QueryLoggingConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"QueryLoggingConfiguration"
(QueryLoggingConfigurationProperty -> (Key, Value))
-> Maybe QueryLoggingConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe QueryLoggingConfigurationProperty
queryLoggingConfiguration,
Key -> [Tag] -> (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" ([Tag] -> (Key, Value)) -> Maybe [Tag] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags,
Key -> WorkspaceConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"WorkspaceConfiguration"
(WorkspaceConfigurationProperty -> (Key, Value))
-> Maybe WorkspaceConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe WorkspaceConfigurationProperty
workspaceConfiguration])}
instance JSON.ToJSON Workspace where
toJSON :: Workspace -> Value
toJSON Workspace {Maybe [Tag]
Maybe (Value Text)
Maybe LoggingConfigurationProperty
Maybe QueryLoggingConfigurationProperty
Maybe WorkspaceConfigurationProperty
()
haddock_workaround_ :: Workspace -> ()
alertManagerDefinition :: Workspace -> Maybe (Value Text)
alias :: Workspace -> Maybe (Value Text)
kmsKeyArn :: Workspace -> Maybe (Value Text)
loggingConfiguration :: Workspace -> Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Workspace -> Maybe QueryLoggingConfigurationProperty
tags :: Workspace -> Maybe [Tag]
workspaceConfiguration :: Workspace -> Maybe WorkspaceConfigurationProperty
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
alias :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
tags :: Maybe [Tag]
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
..}
= [(Key, Value)] -> Value
JSON.object
([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
([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
"AlertManagerDefinition"
(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)
alertManagerDefinition,
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
"Alias" (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)
alias,
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
"KmsKeyArn" (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)
kmsKeyArn,
Key -> LoggingConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"LoggingConfiguration" (LoggingConfigurationProperty -> (Key, Value))
-> Maybe LoggingConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe LoggingConfigurationProperty
loggingConfiguration,
Key -> QueryLoggingConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"QueryLoggingConfiguration"
(QueryLoggingConfigurationProperty -> (Key, Value))
-> Maybe QueryLoggingConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe QueryLoggingConfigurationProperty
queryLoggingConfiguration,
Key -> [Tag] -> (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" ([Tag] -> (Key, Value)) -> Maybe [Tag] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags,
Key -> WorkspaceConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"WorkspaceConfiguration"
(WorkspaceConfigurationProperty -> (Key, Value))
-> Maybe WorkspaceConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe WorkspaceConfigurationProperty
workspaceConfiguration]))
instance Property "AlertManagerDefinition" Workspace where
type PropertyType "AlertManagerDefinition" Workspace = Value Prelude.Text
set :: PropertyType "AlertManagerDefinition" Workspace
-> Workspace -> Workspace
set PropertyType "AlertManagerDefinition" Workspace
newValue Workspace {Maybe [Tag]
Maybe (Value Text)
Maybe LoggingConfigurationProperty
Maybe QueryLoggingConfigurationProperty
Maybe WorkspaceConfigurationProperty
()
haddock_workaround_ :: Workspace -> ()
alertManagerDefinition :: Workspace -> Maybe (Value Text)
alias :: Workspace -> Maybe (Value Text)
kmsKeyArn :: Workspace -> Maybe (Value Text)
loggingConfiguration :: Workspace -> Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Workspace -> Maybe QueryLoggingConfigurationProperty
tags :: Workspace -> Maybe [Tag]
workspaceConfiguration :: Workspace -> Maybe WorkspaceConfigurationProperty
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
alias :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
tags :: Maybe [Tag]
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
..}
= Workspace {alertManagerDefinition :: Maybe (Value Text)
alertManagerDefinition = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "AlertManagerDefinition" Workspace
Value Text
newValue, Maybe [Tag]
Maybe (Value Text)
Maybe LoggingConfigurationProperty
Maybe QueryLoggingConfigurationProperty
Maybe WorkspaceConfigurationProperty
()
haddock_workaround_ :: ()
alias :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
tags :: Maybe [Tag]
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
haddock_workaround_ :: ()
alias :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
tags :: Maybe [Tag]
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
..}
instance Property "Alias" Workspace where
type PropertyType "Alias" Workspace = Value Prelude.Text
set :: PropertyType "Alias" Workspace -> Workspace -> Workspace
set PropertyType "Alias" Workspace
newValue Workspace {Maybe [Tag]
Maybe (Value Text)
Maybe LoggingConfigurationProperty
Maybe QueryLoggingConfigurationProperty
Maybe WorkspaceConfigurationProperty
()
haddock_workaround_ :: Workspace -> ()
alertManagerDefinition :: Workspace -> Maybe (Value Text)
alias :: Workspace -> Maybe (Value Text)
kmsKeyArn :: Workspace -> Maybe (Value Text)
loggingConfiguration :: Workspace -> Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Workspace -> Maybe QueryLoggingConfigurationProperty
tags :: Workspace -> Maybe [Tag]
workspaceConfiguration :: Workspace -> Maybe WorkspaceConfigurationProperty
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
alias :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
tags :: Maybe [Tag]
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
..}
= Workspace {alias :: Maybe (Value Text)
alias = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Alias" Workspace
Value Text
newValue, Maybe [Tag]
Maybe (Value Text)
Maybe LoggingConfigurationProperty
Maybe QueryLoggingConfigurationProperty
Maybe WorkspaceConfigurationProperty
()
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
tags :: Maybe [Tag]
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
tags :: Maybe [Tag]
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
..}
instance Property "KmsKeyArn" Workspace where
type PropertyType "KmsKeyArn" Workspace = Value Prelude.Text
set :: PropertyType "KmsKeyArn" Workspace -> Workspace -> Workspace
set PropertyType "KmsKeyArn" Workspace
newValue Workspace {Maybe [Tag]
Maybe (Value Text)
Maybe LoggingConfigurationProperty
Maybe QueryLoggingConfigurationProperty
Maybe WorkspaceConfigurationProperty
()
haddock_workaround_ :: Workspace -> ()
alertManagerDefinition :: Workspace -> Maybe (Value Text)
alias :: Workspace -> Maybe (Value Text)
kmsKeyArn :: Workspace -> Maybe (Value Text)
loggingConfiguration :: Workspace -> Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Workspace -> Maybe QueryLoggingConfigurationProperty
tags :: Workspace -> Maybe [Tag]
workspaceConfiguration :: Workspace -> Maybe WorkspaceConfigurationProperty
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
alias :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
tags :: Maybe [Tag]
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
..}
= Workspace {kmsKeyArn :: Maybe (Value Text)
kmsKeyArn = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "KmsKeyArn" Workspace
Value Text
newValue, Maybe [Tag]
Maybe (Value Text)
Maybe LoggingConfigurationProperty
Maybe QueryLoggingConfigurationProperty
Maybe WorkspaceConfigurationProperty
()
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
alias :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
tags :: Maybe [Tag]
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
alias :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
tags :: Maybe [Tag]
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
..}
instance Property "LoggingConfiguration" Workspace where
type PropertyType "LoggingConfiguration" Workspace = LoggingConfigurationProperty
set :: PropertyType "LoggingConfiguration" Workspace
-> Workspace -> Workspace
set PropertyType "LoggingConfiguration" Workspace
newValue Workspace {Maybe [Tag]
Maybe (Value Text)
Maybe LoggingConfigurationProperty
Maybe QueryLoggingConfigurationProperty
Maybe WorkspaceConfigurationProperty
()
haddock_workaround_ :: Workspace -> ()
alertManagerDefinition :: Workspace -> Maybe (Value Text)
alias :: Workspace -> Maybe (Value Text)
kmsKeyArn :: Workspace -> Maybe (Value Text)
loggingConfiguration :: Workspace -> Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Workspace -> Maybe QueryLoggingConfigurationProperty
tags :: Workspace -> Maybe [Tag]
workspaceConfiguration :: Workspace -> Maybe WorkspaceConfigurationProperty
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
alias :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
tags :: Maybe [Tag]
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
..}
= Workspace {loggingConfiguration :: Maybe LoggingConfigurationProperty
loggingConfiguration = LoggingConfigurationProperty -> Maybe LoggingConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "LoggingConfiguration" Workspace
LoggingConfigurationProperty
newValue, Maybe [Tag]
Maybe (Value Text)
Maybe QueryLoggingConfigurationProperty
Maybe WorkspaceConfigurationProperty
()
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
alias :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
tags :: Maybe [Tag]
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
alias :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
tags :: Maybe [Tag]
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
..}
instance Property "QueryLoggingConfiguration" Workspace where
type PropertyType "QueryLoggingConfiguration" Workspace = QueryLoggingConfigurationProperty
set :: PropertyType "QueryLoggingConfiguration" Workspace
-> Workspace -> Workspace
set PropertyType "QueryLoggingConfiguration" Workspace
newValue Workspace {Maybe [Tag]
Maybe (Value Text)
Maybe LoggingConfigurationProperty
Maybe QueryLoggingConfigurationProperty
Maybe WorkspaceConfigurationProperty
()
haddock_workaround_ :: Workspace -> ()
alertManagerDefinition :: Workspace -> Maybe (Value Text)
alias :: Workspace -> Maybe (Value Text)
kmsKeyArn :: Workspace -> Maybe (Value Text)
loggingConfiguration :: Workspace -> Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Workspace -> Maybe QueryLoggingConfigurationProperty
tags :: Workspace -> Maybe [Tag]
workspaceConfiguration :: Workspace -> Maybe WorkspaceConfigurationProperty
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
alias :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
tags :: Maybe [Tag]
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
..}
= Workspace {queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
queryLoggingConfiguration = QueryLoggingConfigurationProperty
-> Maybe QueryLoggingConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "QueryLoggingConfiguration" Workspace
QueryLoggingConfigurationProperty
newValue, Maybe [Tag]
Maybe (Value Text)
Maybe LoggingConfigurationProperty
Maybe WorkspaceConfigurationProperty
()
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
alias :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
tags :: Maybe [Tag]
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
alias :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
tags :: Maybe [Tag]
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
..}
instance Property "Tags" Workspace where
type PropertyType "Tags" Workspace = [Tag]
set :: PropertyType "Tags" Workspace -> Workspace -> Workspace
set PropertyType "Tags" Workspace
newValue Workspace {Maybe [Tag]
Maybe (Value Text)
Maybe LoggingConfigurationProperty
Maybe QueryLoggingConfigurationProperty
Maybe WorkspaceConfigurationProperty
()
haddock_workaround_ :: Workspace -> ()
alertManagerDefinition :: Workspace -> Maybe (Value Text)
alias :: Workspace -> Maybe (Value Text)
kmsKeyArn :: Workspace -> Maybe (Value Text)
loggingConfiguration :: Workspace -> Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Workspace -> Maybe QueryLoggingConfigurationProperty
tags :: Workspace -> Maybe [Tag]
workspaceConfiguration :: Workspace -> Maybe WorkspaceConfigurationProperty
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
alias :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
tags :: Maybe [Tag]
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
..}
= Workspace {tags :: Maybe [Tag]
tags = [Tag] -> Maybe [Tag]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [Tag]
PropertyType "Tags" Workspace
newValue, Maybe (Value Text)
Maybe LoggingConfigurationProperty
Maybe QueryLoggingConfigurationProperty
Maybe WorkspaceConfigurationProperty
()
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
alias :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
alias :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
..}
instance Property "WorkspaceConfiguration" Workspace where
type PropertyType "WorkspaceConfiguration" Workspace = WorkspaceConfigurationProperty
set :: PropertyType "WorkspaceConfiguration" Workspace
-> Workspace -> Workspace
set PropertyType "WorkspaceConfiguration" Workspace
newValue Workspace {Maybe [Tag]
Maybe (Value Text)
Maybe LoggingConfigurationProperty
Maybe QueryLoggingConfigurationProperty
Maybe WorkspaceConfigurationProperty
()
haddock_workaround_ :: Workspace -> ()
alertManagerDefinition :: Workspace -> Maybe (Value Text)
alias :: Workspace -> Maybe (Value Text)
kmsKeyArn :: Workspace -> Maybe (Value Text)
loggingConfiguration :: Workspace -> Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Workspace -> Maybe QueryLoggingConfigurationProperty
tags :: Workspace -> Maybe [Tag]
workspaceConfiguration :: Workspace -> Maybe WorkspaceConfigurationProperty
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
alias :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
tags :: Maybe [Tag]
workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
..}
= Workspace {workspaceConfiguration :: Maybe WorkspaceConfigurationProperty
workspaceConfiguration = WorkspaceConfigurationProperty
-> Maybe WorkspaceConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "WorkspaceConfiguration" Workspace
WorkspaceConfigurationProperty
newValue, Maybe [Tag]
Maybe (Value Text)
Maybe LoggingConfigurationProperty
Maybe QueryLoggingConfigurationProperty
()
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
alias :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
tags :: Maybe [Tag]
haddock_workaround_ :: ()
alertManagerDefinition :: Maybe (Value Text)
alias :: Maybe (Value Text)
kmsKeyArn :: Maybe (Value Text)
loggingConfiguration :: Maybe LoggingConfigurationProperty
queryLoggingConfiguration :: Maybe QueryLoggingConfigurationProperty
tags :: Maybe [Tag]
..}