module Stratosphere.MWAA.Environment.LoggingConfigurationProperty (
        module Exports, LoggingConfigurationProperty(..),
        mkLoggingConfigurationProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.MWAA.Environment.ModuleLoggingConfigurationProperty as Exports
import Stratosphere.ResourceProperties
data LoggingConfigurationProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mwaa-environment-loggingconfiguration.html>
    LoggingConfigurationProperty {LoggingConfigurationProperty -> ()
haddock_workaround_ :: (),
                                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mwaa-environment-loggingconfiguration.html#cfn-mwaa-environment-loggingconfiguration-dagprocessinglogs>
                                  LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
dagProcessingLogs :: (Prelude.Maybe ModuleLoggingConfigurationProperty),
                                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mwaa-environment-loggingconfiguration.html#cfn-mwaa-environment-loggingconfiguration-schedulerlogs>
                                  LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: (Prelude.Maybe ModuleLoggingConfigurationProperty),
                                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mwaa-environment-loggingconfiguration.html#cfn-mwaa-environment-loggingconfiguration-tasklogs>
                                  LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
taskLogs :: (Prelude.Maybe ModuleLoggingConfigurationProperty),
                                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mwaa-environment-loggingconfiguration.html#cfn-mwaa-environment-loggingconfiguration-webserverlogs>
                                  LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
webserverLogs :: (Prelude.Maybe ModuleLoggingConfigurationProperty),
                                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-mwaa-environment-loggingconfiguration.html#cfn-mwaa-environment-loggingconfiguration-workerlogs>
                                  LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
workerLogs :: (Prelude.Maybe ModuleLoggingConfigurationProperty)}
  deriving stock (LoggingConfigurationProperty
-> LoggingConfigurationProperty -> Bool
(LoggingConfigurationProperty
 -> LoggingConfigurationProperty -> Bool)
-> (LoggingConfigurationProperty
    -> LoggingConfigurationProperty -> Bool)
-> Eq LoggingConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LoggingConfigurationProperty
-> LoggingConfigurationProperty -> Bool
== :: LoggingConfigurationProperty
-> LoggingConfigurationProperty -> Bool
$c/= :: LoggingConfigurationProperty
-> LoggingConfigurationProperty -> Bool
/= :: LoggingConfigurationProperty
-> LoggingConfigurationProperty -> Bool
Prelude.Eq, Int -> LoggingConfigurationProperty -> ShowS
[LoggingConfigurationProperty] -> ShowS
LoggingConfigurationProperty -> String
(Int -> LoggingConfigurationProperty -> ShowS)
-> (LoggingConfigurationProperty -> String)
-> ([LoggingConfigurationProperty] -> ShowS)
-> Show LoggingConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LoggingConfigurationProperty -> ShowS
showsPrec :: Int -> LoggingConfigurationProperty -> ShowS
$cshow :: LoggingConfigurationProperty -> String
show :: LoggingConfigurationProperty -> String
$cshowList :: [LoggingConfigurationProperty] -> ShowS
showList :: [LoggingConfigurationProperty] -> ShowS
Prelude.Show)
mkLoggingConfigurationProperty :: LoggingConfigurationProperty
mkLoggingConfigurationProperty :: LoggingConfigurationProperty
mkLoggingConfigurationProperty
  = LoggingConfigurationProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), dagProcessingLogs :: Maybe ModuleLoggingConfigurationProperty
dagProcessingLogs = Maybe ModuleLoggingConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
       schedulerLogs :: Maybe ModuleLoggingConfigurationProperty
schedulerLogs = Maybe ModuleLoggingConfigurationProperty
forall a. Maybe a
Prelude.Nothing, taskLogs :: Maybe ModuleLoggingConfigurationProperty
taskLogs = Maybe ModuleLoggingConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
       webserverLogs :: Maybe ModuleLoggingConfigurationProperty
webserverLogs = Maybe ModuleLoggingConfigurationProperty
forall a. Maybe a
Prelude.Nothing, workerLogs :: Maybe ModuleLoggingConfigurationProperty
workerLogs = Maybe ModuleLoggingConfigurationProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties LoggingConfigurationProperty where
  toResourceProperties :: LoggingConfigurationProperty -> ResourceProperties
toResourceProperties LoggingConfigurationProperty {Maybe ModuleLoggingConfigurationProperty
()
haddock_workaround_ :: LoggingConfigurationProperty -> ()
dagProcessingLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
taskLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
webserverLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
workerLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
haddock_workaround_ :: ()
dagProcessingLogs :: Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: Maybe ModuleLoggingConfigurationProperty
taskLogs :: Maybe ModuleLoggingConfigurationProperty
webserverLogs :: Maybe ModuleLoggingConfigurationProperty
workerLogs :: Maybe ModuleLoggingConfigurationProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::MWAA::Environment.LoggingConfiguration",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         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 -> ModuleLoggingConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DagProcessingLogs" (ModuleLoggingConfigurationProperty -> (Key, Value))
-> Maybe ModuleLoggingConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ModuleLoggingConfigurationProperty
dagProcessingLogs,
                            Key -> ModuleLoggingConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SchedulerLogs" (ModuleLoggingConfigurationProperty -> (Key, Value))
-> Maybe ModuleLoggingConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ModuleLoggingConfigurationProperty
schedulerLogs,
                            Key -> ModuleLoggingConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TaskLogs" (ModuleLoggingConfigurationProperty -> (Key, Value))
-> Maybe ModuleLoggingConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ModuleLoggingConfigurationProperty
taskLogs,
                            Key -> ModuleLoggingConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"WebserverLogs" (ModuleLoggingConfigurationProperty -> (Key, Value))
-> Maybe ModuleLoggingConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ModuleLoggingConfigurationProperty
webserverLogs,
                            Key -> ModuleLoggingConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"WorkerLogs" (ModuleLoggingConfigurationProperty -> (Key, Value))
-> Maybe ModuleLoggingConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ModuleLoggingConfigurationProperty
workerLogs])}
instance JSON.ToJSON LoggingConfigurationProperty where
  toJSON :: LoggingConfigurationProperty -> Value
toJSON LoggingConfigurationProperty {Maybe ModuleLoggingConfigurationProperty
()
haddock_workaround_ :: LoggingConfigurationProperty -> ()
dagProcessingLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
taskLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
webserverLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
workerLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
haddock_workaround_ :: ()
dagProcessingLogs :: Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: Maybe ModuleLoggingConfigurationProperty
taskLogs :: Maybe ModuleLoggingConfigurationProperty
webserverLogs :: Maybe ModuleLoggingConfigurationProperty
workerLogs :: Maybe ModuleLoggingConfigurationProperty
..}
    = [(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 -> ModuleLoggingConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"DagProcessingLogs" (ModuleLoggingConfigurationProperty -> (Key, Value))
-> Maybe ModuleLoggingConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ModuleLoggingConfigurationProperty
dagProcessingLogs,
               Key -> ModuleLoggingConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SchedulerLogs" (ModuleLoggingConfigurationProperty -> (Key, Value))
-> Maybe ModuleLoggingConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ModuleLoggingConfigurationProperty
schedulerLogs,
               Key -> ModuleLoggingConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TaskLogs" (ModuleLoggingConfigurationProperty -> (Key, Value))
-> Maybe ModuleLoggingConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ModuleLoggingConfigurationProperty
taskLogs,
               Key -> ModuleLoggingConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"WebserverLogs" (ModuleLoggingConfigurationProperty -> (Key, Value))
-> Maybe ModuleLoggingConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ModuleLoggingConfigurationProperty
webserverLogs,
               Key -> ModuleLoggingConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"WorkerLogs" (ModuleLoggingConfigurationProperty -> (Key, Value))
-> Maybe ModuleLoggingConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ModuleLoggingConfigurationProperty
workerLogs]))
instance Property "DagProcessingLogs" LoggingConfigurationProperty where
  type PropertyType "DagProcessingLogs" LoggingConfigurationProperty = ModuleLoggingConfigurationProperty
  set :: PropertyType "DagProcessingLogs" LoggingConfigurationProperty
-> LoggingConfigurationProperty -> LoggingConfigurationProperty
set PropertyType "DagProcessingLogs" LoggingConfigurationProperty
newValue LoggingConfigurationProperty {Maybe ModuleLoggingConfigurationProperty
()
haddock_workaround_ :: LoggingConfigurationProperty -> ()
dagProcessingLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
taskLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
webserverLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
workerLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
haddock_workaround_ :: ()
dagProcessingLogs :: Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: Maybe ModuleLoggingConfigurationProperty
taskLogs :: Maybe ModuleLoggingConfigurationProperty
webserverLogs :: Maybe ModuleLoggingConfigurationProperty
workerLogs :: Maybe ModuleLoggingConfigurationProperty
..}
    = LoggingConfigurationProperty
        {dagProcessingLogs :: Maybe ModuleLoggingConfigurationProperty
dagProcessingLogs = ModuleLoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "DagProcessingLogs" LoggingConfigurationProperty
ModuleLoggingConfigurationProperty
newValue, Maybe ModuleLoggingConfigurationProperty
()
haddock_workaround_ :: ()
schedulerLogs :: Maybe ModuleLoggingConfigurationProperty
taskLogs :: Maybe ModuleLoggingConfigurationProperty
webserverLogs :: Maybe ModuleLoggingConfigurationProperty
workerLogs :: Maybe ModuleLoggingConfigurationProperty
haddock_workaround_ :: ()
schedulerLogs :: Maybe ModuleLoggingConfigurationProperty
taskLogs :: Maybe ModuleLoggingConfigurationProperty
webserverLogs :: Maybe ModuleLoggingConfigurationProperty
workerLogs :: Maybe ModuleLoggingConfigurationProperty
..}
instance Property "SchedulerLogs" LoggingConfigurationProperty where
  type PropertyType "SchedulerLogs" LoggingConfigurationProperty = ModuleLoggingConfigurationProperty
  set :: PropertyType "SchedulerLogs" LoggingConfigurationProperty
-> LoggingConfigurationProperty -> LoggingConfigurationProperty
set PropertyType "SchedulerLogs" LoggingConfigurationProperty
newValue LoggingConfigurationProperty {Maybe ModuleLoggingConfigurationProperty
()
haddock_workaround_ :: LoggingConfigurationProperty -> ()
dagProcessingLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
taskLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
webserverLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
workerLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
haddock_workaround_ :: ()
dagProcessingLogs :: Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: Maybe ModuleLoggingConfigurationProperty
taskLogs :: Maybe ModuleLoggingConfigurationProperty
webserverLogs :: Maybe ModuleLoggingConfigurationProperty
workerLogs :: Maybe ModuleLoggingConfigurationProperty
..}
    = LoggingConfigurationProperty
        {schedulerLogs :: Maybe ModuleLoggingConfigurationProperty
schedulerLogs = ModuleLoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "SchedulerLogs" LoggingConfigurationProperty
ModuleLoggingConfigurationProperty
newValue, Maybe ModuleLoggingConfigurationProperty
()
haddock_workaround_ :: ()
dagProcessingLogs :: Maybe ModuleLoggingConfigurationProperty
taskLogs :: Maybe ModuleLoggingConfigurationProperty
webserverLogs :: Maybe ModuleLoggingConfigurationProperty
workerLogs :: Maybe ModuleLoggingConfigurationProperty
haddock_workaround_ :: ()
dagProcessingLogs :: Maybe ModuleLoggingConfigurationProperty
taskLogs :: Maybe ModuleLoggingConfigurationProperty
webserverLogs :: Maybe ModuleLoggingConfigurationProperty
workerLogs :: Maybe ModuleLoggingConfigurationProperty
..}
instance Property "TaskLogs" LoggingConfigurationProperty where
  type PropertyType "TaskLogs" LoggingConfigurationProperty = ModuleLoggingConfigurationProperty
  set :: PropertyType "TaskLogs" LoggingConfigurationProperty
-> LoggingConfigurationProperty -> LoggingConfigurationProperty
set PropertyType "TaskLogs" LoggingConfigurationProperty
newValue LoggingConfigurationProperty {Maybe ModuleLoggingConfigurationProperty
()
haddock_workaround_ :: LoggingConfigurationProperty -> ()
dagProcessingLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
taskLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
webserverLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
workerLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
haddock_workaround_ :: ()
dagProcessingLogs :: Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: Maybe ModuleLoggingConfigurationProperty
taskLogs :: Maybe ModuleLoggingConfigurationProperty
webserverLogs :: Maybe ModuleLoggingConfigurationProperty
workerLogs :: Maybe ModuleLoggingConfigurationProperty
..}
    = LoggingConfigurationProperty
        {taskLogs :: Maybe ModuleLoggingConfigurationProperty
taskLogs = ModuleLoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "TaskLogs" LoggingConfigurationProperty
ModuleLoggingConfigurationProperty
newValue, Maybe ModuleLoggingConfigurationProperty
()
haddock_workaround_ :: ()
dagProcessingLogs :: Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: Maybe ModuleLoggingConfigurationProperty
webserverLogs :: Maybe ModuleLoggingConfigurationProperty
workerLogs :: Maybe ModuleLoggingConfigurationProperty
haddock_workaround_ :: ()
dagProcessingLogs :: Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: Maybe ModuleLoggingConfigurationProperty
webserverLogs :: Maybe ModuleLoggingConfigurationProperty
workerLogs :: Maybe ModuleLoggingConfigurationProperty
..}
instance Property "WebserverLogs" LoggingConfigurationProperty where
  type PropertyType "WebserverLogs" LoggingConfigurationProperty = ModuleLoggingConfigurationProperty
  set :: PropertyType "WebserverLogs" LoggingConfigurationProperty
-> LoggingConfigurationProperty -> LoggingConfigurationProperty
set PropertyType "WebserverLogs" LoggingConfigurationProperty
newValue LoggingConfigurationProperty {Maybe ModuleLoggingConfigurationProperty
()
haddock_workaround_ :: LoggingConfigurationProperty -> ()
dagProcessingLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
taskLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
webserverLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
workerLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
haddock_workaround_ :: ()
dagProcessingLogs :: Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: Maybe ModuleLoggingConfigurationProperty
taskLogs :: Maybe ModuleLoggingConfigurationProperty
webserverLogs :: Maybe ModuleLoggingConfigurationProperty
workerLogs :: Maybe ModuleLoggingConfigurationProperty
..}
    = LoggingConfigurationProperty
        {webserverLogs :: Maybe ModuleLoggingConfigurationProperty
webserverLogs = ModuleLoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "WebserverLogs" LoggingConfigurationProperty
ModuleLoggingConfigurationProperty
newValue, Maybe ModuleLoggingConfigurationProperty
()
haddock_workaround_ :: ()
dagProcessingLogs :: Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: Maybe ModuleLoggingConfigurationProperty
taskLogs :: Maybe ModuleLoggingConfigurationProperty
workerLogs :: Maybe ModuleLoggingConfigurationProperty
haddock_workaround_ :: ()
dagProcessingLogs :: Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: Maybe ModuleLoggingConfigurationProperty
taskLogs :: Maybe ModuleLoggingConfigurationProperty
workerLogs :: Maybe ModuleLoggingConfigurationProperty
..}
instance Property "WorkerLogs" LoggingConfigurationProperty where
  type PropertyType "WorkerLogs" LoggingConfigurationProperty = ModuleLoggingConfigurationProperty
  set :: PropertyType "WorkerLogs" LoggingConfigurationProperty
-> LoggingConfigurationProperty -> LoggingConfigurationProperty
set PropertyType "WorkerLogs" LoggingConfigurationProperty
newValue LoggingConfigurationProperty {Maybe ModuleLoggingConfigurationProperty
()
haddock_workaround_ :: LoggingConfigurationProperty -> ()
dagProcessingLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
taskLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
webserverLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
workerLogs :: LoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
haddock_workaround_ :: ()
dagProcessingLogs :: Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: Maybe ModuleLoggingConfigurationProperty
taskLogs :: Maybe ModuleLoggingConfigurationProperty
webserverLogs :: Maybe ModuleLoggingConfigurationProperty
workerLogs :: Maybe ModuleLoggingConfigurationProperty
..}
    = LoggingConfigurationProperty
        {workerLogs :: Maybe ModuleLoggingConfigurationProperty
workerLogs = ModuleLoggingConfigurationProperty
-> Maybe ModuleLoggingConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "WorkerLogs" LoggingConfigurationProperty
ModuleLoggingConfigurationProperty
newValue, Maybe ModuleLoggingConfigurationProperty
()
haddock_workaround_ :: ()
dagProcessingLogs :: Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: Maybe ModuleLoggingConfigurationProperty
taskLogs :: Maybe ModuleLoggingConfigurationProperty
webserverLogs :: Maybe ModuleLoggingConfigurationProperty
haddock_workaround_ :: ()
dagProcessingLogs :: Maybe ModuleLoggingConfigurationProperty
schedulerLogs :: Maybe ModuleLoggingConfigurationProperty
taskLogs :: Maybe ModuleLoggingConfigurationProperty
webserverLogs :: Maybe ModuleLoggingConfigurationProperty
..}