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