module Stratosphere.MSK.Cluster.LoggingInfoProperty (
module Exports, LoggingInfoProperty(..), mkLoggingInfoProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.MSK.Cluster.BrokerLogsProperty as Exports
import Stratosphere.ResourceProperties
data LoggingInfoProperty
=
LoggingInfoProperty {LoggingInfoProperty -> ()
haddock_workaround_ :: (),
LoggingInfoProperty -> BrokerLogsProperty
brokerLogs :: BrokerLogsProperty}
deriving stock (LoggingInfoProperty -> LoggingInfoProperty -> Bool
(LoggingInfoProperty -> LoggingInfoProperty -> Bool)
-> (LoggingInfoProperty -> LoggingInfoProperty -> Bool)
-> Eq LoggingInfoProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LoggingInfoProperty -> LoggingInfoProperty -> Bool
== :: LoggingInfoProperty -> LoggingInfoProperty -> Bool
$c/= :: LoggingInfoProperty -> LoggingInfoProperty -> Bool
/= :: LoggingInfoProperty -> LoggingInfoProperty -> Bool
Prelude.Eq, Int -> LoggingInfoProperty -> ShowS
[LoggingInfoProperty] -> ShowS
LoggingInfoProperty -> String
(Int -> LoggingInfoProperty -> ShowS)
-> (LoggingInfoProperty -> String)
-> ([LoggingInfoProperty] -> ShowS)
-> Show LoggingInfoProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LoggingInfoProperty -> ShowS
showsPrec :: Int -> LoggingInfoProperty -> ShowS
$cshow :: LoggingInfoProperty -> String
show :: LoggingInfoProperty -> String
$cshowList :: [LoggingInfoProperty] -> ShowS
showList :: [LoggingInfoProperty] -> ShowS
Prelude.Show)
mkLoggingInfoProperty :: BrokerLogsProperty -> LoggingInfoProperty
mkLoggingInfoProperty :: BrokerLogsProperty -> LoggingInfoProperty
mkLoggingInfoProperty BrokerLogsProperty
brokerLogs
= LoggingInfoProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), brokerLogs :: BrokerLogsProperty
brokerLogs = BrokerLogsProperty
brokerLogs}
instance ToResourceProperties LoggingInfoProperty where
toResourceProperties :: LoggingInfoProperty -> ResourceProperties
toResourceProperties LoggingInfoProperty {()
BrokerLogsProperty
haddock_workaround_ :: LoggingInfoProperty -> ()
brokerLogs :: LoggingInfoProperty -> BrokerLogsProperty
haddock_workaround_ :: ()
brokerLogs :: BrokerLogsProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::MSK::Cluster.LoggingInfo",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"BrokerLogs" Key -> BrokerLogsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= BrokerLogsProperty
brokerLogs]}
instance JSON.ToJSON LoggingInfoProperty where
toJSON :: LoggingInfoProperty -> Value
toJSON LoggingInfoProperty {()
BrokerLogsProperty
haddock_workaround_ :: LoggingInfoProperty -> ()
brokerLogs :: LoggingInfoProperty -> BrokerLogsProperty
haddock_workaround_ :: ()
brokerLogs :: BrokerLogsProperty
..}
= [(Key, Value)] -> Value
JSON.object [Key
"BrokerLogs" Key -> BrokerLogsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= BrokerLogsProperty
brokerLogs]
instance Property "BrokerLogs" LoggingInfoProperty where
type PropertyType "BrokerLogs" LoggingInfoProperty = BrokerLogsProperty
set :: PropertyType "BrokerLogs" LoggingInfoProperty
-> LoggingInfoProperty -> LoggingInfoProperty
set PropertyType "BrokerLogs" LoggingInfoProperty
newValue LoggingInfoProperty {()
BrokerLogsProperty
haddock_workaround_ :: LoggingInfoProperty -> ()
brokerLogs :: LoggingInfoProperty -> BrokerLogsProperty
haddock_workaround_ :: ()
brokerLogs :: BrokerLogsProperty
..}
= LoggingInfoProperty {brokerLogs :: BrokerLogsProperty
brokerLogs = PropertyType "BrokerLogs" LoggingInfoProperty
BrokerLogsProperty
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}