module Stratosphere.Lex.Bot.CloudWatchLogGroupLogDestinationProperty (
CloudWatchLogGroupLogDestinationProperty(..),
mkCloudWatchLogGroupLogDestinationProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data CloudWatchLogGroupLogDestinationProperty
=
CloudWatchLogGroupLogDestinationProperty {CloudWatchLogGroupLogDestinationProperty -> ()
haddock_workaround_ :: (),
CloudWatchLogGroupLogDestinationProperty -> Value Text
cloudWatchLogGroupArn :: (Value Prelude.Text),
CloudWatchLogGroupLogDestinationProperty -> Value Text
logPrefix :: (Value Prelude.Text)}
deriving stock (CloudWatchLogGroupLogDestinationProperty
-> CloudWatchLogGroupLogDestinationProperty -> Bool
(CloudWatchLogGroupLogDestinationProperty
-> CloudWatchLogGroupLogDestinationProperty -> Bool)
-> (CloudWatchLogGroupLogDestinationProperty
-> CloudWatchLogGroupLogDestinationProperty -> Bool)
-> Eq CloudWatchLogGroupLogDestinationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CloudWatchLogGroupLogDestinationProperty
-> CloudWatchLogGroupLogDestinationProperty -> Bool
== :: CloudWatchLogGroupLogDestinationProperty
-> CloudWatchLogGroupLogDestinationProperty -> Bool
$c/= :: CloudWatchLogGroupLogDestinationProperty
-> CloudWatchLogGroupLogDestinationProperty -> Bool
/= :: CloudWatchLogGroupLogDestinationProperty
-> CloudWatchLogGroupLogDestinationProperty -> Bool
Prelude.Eq, Int -> CloudWatchLogGroupLogDestinationProperty -> ShowS
[CloudWatchLogGroupLogDestinationProperty] -> ShowS
CloudWatchLogGroupLogDestinationProperty -> String
(Int -> CloudWatchLogGroupLogDestinationProperty -> ShowS)
-> (CloudWatchLogGroupLogDestinationProperty -> String)
-> ([CloudWatchLogGroupLogDestinationProperty] -> ShowS)
-> Show CloudWatchLogGroupLogDestinationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CloudWatchLogGroupLogDestinationProperty -> ShowS
showsPrec :: Int -> CloudWatchLogGroupLogDestinationProperty -> ShowS
$cshow :: CloudWatchLogGroupLogDestinationProperty -> String
show :: CloudWatchLogGroupLogDestinationProperty -> String
$cshowList :: [CloudWatchLogGroupLogDestinationProperty] -> ShowS
showList :: [CloudWatchLogGroupLogDestinationProperty] -> ShowS
Prelude.Show)
mkCloudWatchLogGroupLogDestinationProperty ::
Value Prelude.Text
-> Value Prelude.Text -> CloudWatchLogGroupLogDestinationProperty
mkCloudWatchLogGroupLogDestinationProperty :: Value Text
-> Value Text -> CloudWatchLogGroupLogDestinationProperty
mkCloudWatchLogGroupLogDestinationProperty
Value Text
cloudWatchLogGroupArn
Value Text
logPrefix
= CloudWatchLogGroupLogDestinationProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (),
cloudWatchLogGroupArn :: Value Text
cloudWatchLogGroupArn = Value Text
cloudWatchLogGroupArn,
logPrefix :: Value Text
logPrefix = Value Text
logPrefix}
instance ToResourceProperties CloudWatchLogGroupLogDestinationProperty where
toResourceProperties :: CloudWatchLogGroupLogDestinationProperty -> ResourceProperties
toResourceProperties CloudWatchLogGroupLogDestinationProperty {()
Value Text
haddock_workaround_ :: CloudWatchLogGroupLogDestinationProperty -> ()
cloudWatchLogGroupArn :: CloudWatchLogGroupLogDestinationProperty -> Value Text
logPrefix :: CloudWatchLogGroupLogDestinationProperty -> Value Text
haddock_workaround_ :: ()
cloudWatchLogGroupArn :: Value Text
logPrefix :: Value Text
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::Lex::Bot.CloudWatchLogGroupLogDestination",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"CloudWatchLogGroupArn"
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
cloudWatchLogGroupArn,
Key
"LogPrefix" 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
logPrefix]}
instance JSON.ToJSON CloudWatchLogGroupLogDestinationProperty where
toJSON :: CloudWatchLogGroupLogDestinationProperty -> Value
toJSON CloudWatchLogGroupLogDestinationProperty {()
Value Text
haddock_workaround_ :: CloudWatchLogGroupLogDestinationProperty -> ()
cloudWatchLogGroupArn :: CloudWatchLogGroupLogDestinationProperty -> Value Text
logPrefix :: CloudWatchLogGroupLogDestinationProperty -> Value Text
haddock_workaround_ :: ()
cloudWatchLogGroupArn :: Value Text
logPrefix :: Value Text
..}
= [(Key, Value)] -> Value
JSON.object
[Key
"CloudWatchLogGroupArn" 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
cloudWatchLogGroupArn,
Key
"LogPrefix" 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
logPrefix]
instance Property "CloudWatchLogGroupArn" CloudWatchLogGroupLogDestinationProperty where
type PropertyType "CloudWatchLogGroupArn" CloudWatchLogGroupLogDestinationProperty = Value Prelude.Text
set :: PropertyType
"CloudWatchLogGroupArn" CloudWatchLogGroupLogDestinationProperty
-> CloudWatchLogGroupLogDestinationProperty
-> CloudWatchLogGroupLogDestinationProperty
set PropertyType
"CloudWatchLogGroupArn" CloudWatchLogGroupLogDestinationProperty
newValue CloudWatchLogGroupLogDestinationProperty {()
Value Text
haddock_workaround_ :: CloudWatchLogGroupLogDestinationProperty -> ()
cloudWatchLogGroupArn :: CloudWatchLogGroupLogDestinationProperty -> Value Text
logPrefix :: CloudWatchLogGroupLogDestinationProperty -> Value Text
haddock_workaround_ :: ()
cloudWatchLogGroupArn :: Value Text
logPrefix :: Value Text
..}
= CloudWatchLogGroupLogDestinationProperty
{cloudWatchLogGroupArn :: Value Text
cloudWatchLogGroupArn = PropertyType
"CloudWatchLogGroupArn" CloudWatchLogGroupLogDestinationProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
logPrefix :: Value Text
haddock_workaround_ :: ()
logPrefix :: Value Text
..}
instance Property "LogPrefix" CloudWatchLogGroupLogDestinationProperty where
type PropertyType "LogPrefix" CloudWatchLogGroupLogDestinationProperty = Value Prelude.Text
set :: PropertyType "LogPrefix" CloudWatchLogGroupLogDestinationProperty
-> CloudWatchLogGroupLogDestinationProperty
-> CloudWatchLogGroupLogDestinationProperty
set PropertyType "LogPrefix" CloudWatchLogGroupLogDestinationProperty
newValue CloudWatchLogGroupLogDestinationProperty {()
Value Text
haddock_workaround_ :: CloudWatchLogGroupLogDestinationProperty -> ()
cloudWatchLogGroupArn :: CloudWatchLogGroupLogDestinationProperty -> Value Text
logPrefix :: CloudWatchLogGroupLogDestinationProperty -> Value Text
haddock_workaround_ :: ()
cloudWatchLogGroupArn :: Value Text
logPrefix :: Value Text
..}
= CloudWatchLogGroupLogDestinationProperty
{logPrefix :: Value Text
logPrefix = PropertyType "LogPrefix" CloudWatchLogGroupLogDestinationProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
cloudWatchLogGroupArn :: Value Text
haddock_workaround_ :: ()
cloudWatchLogGroupArn :: Value Text
..}