module Stratosphere.CloudWatch.MetricStream.MetricStreamStatisticsConfigurationProperty (
module Exports, MetricStreamStatisticsConfigurationProperty(..),
mkMetricStreamStatisticsConfigurationProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.CloudWatch.MetricStream.MetricStreamStatisticsMetricProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data MetricStreamStatisticsConfigurationProperty
=
MetricStreamStatisticsConfigurationProperty {MetricStreamStatisticsConfigurationProperty -> ()
haddock_workaround_ :: (),
MetricStreamStatisticsConfigurationProperty -> ValueList Text
additionalStatistics :: (ValueList Prelude.Text),
MetricStreamStatisticsConfigurationProperty
-> [MetricStreamStatisticsMetricProperty]
includeMetrics :: [MetricStreamStatisticsMetricProperty]}
deriving stock (MetricStreamStatisticsConfigurationProperty
-> MetricStreamStatisticsConfigurationProperty -> Bool
(MetricStreamStatisticsConfigurationProperty
-> MetricStreamStatisticsConfigurationProperty -> Bool)
-> (MetricStreamStatisticsConfigurationProperty
-> MetricStreamStatisticsConfigurationProperty -> Bool)
-> Eq MetricStreamStatisticsConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MetricStreamStatisticsConfigurationProperty
-> MetricStreamStatisticsConfigurationProperty -> Bool
== :: MetricStreamStatisticsConfigurationProperty
-> MetricStreamStatisticsConfigurationProperty -> Bool
$c/= :: MetricStreamStatisticsConfigurationProperty
-> MetricStreamStatisticsConfigurationProperty -> Bool
/= :: MetricStreamStatisticsConfigurationProperty
-> MetricStreamStatisticsConfigurationProperty -> Bool
Prelude.Eq, Int -> MetricStreamStatisticsConfigurationProperty -> ShowS
[MetricStreamStatisticsConfigurationProperty] -> ShowS
MetricStreamStatisticsConfigurationProperty -> String
(Int -> MetricStreamStatisticsConfigurationProperty -> ShowS)
-> (MetricStreamStatisticsConfigurationProperty -> String)
-> ([MetricStreamStatisticsConfigurationProperty] -> ShowS)
-> Show MetricStreamStatisticsConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> MetricStreamStatisticsConfigurationProperty -> ShowS
showsPrec :: Int -> MetricStreamStatisticsConfigurationProperty -> ShowS
$cshow :: MetricStreamStatisticsConfigurationProperty -> String
show :: MetricStreamStatisticsConfigurationProperty -> String
$cshowList :: [MetricStreamStatisticsConfigurationProperty] -> ShowS
showList :: [MetricStreamStatisticsConfigurationProperty] -> ShowS
Prelude.Show)
mkMetricStreamStatisticsConfigurationProperty ::
ValueList Prelude.Text
-> [MetricStreamStatisticsMetricProperty]
-> MetricStreamStatisticsConfigurationProperty
mkMetricStreamStatisticsConfigurationProperty :: ValueList Text
-> [MetricStreamStatisticsMetricProperty]
-> MetricStreamStatisticsConfigurationProperty
mkMetricStreamStatisticsConfigurationProperty
ValueList Text
additionalStatistics
[MetricStreamStatisticsMetricProperty]
includeMetrics
= MetricStreamStatisticsConfigurationProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (),
additionalStatistics :: ValueList Text
additionalStatistics = ValueList Text
additionalStatistics,
includeMetrics :: [MetricStreamStatisticsMetricProperty]
includeMetrics = [MetricStreamStatisticsMetricProperty]
includeMetrics}
instance ToResourceProperties MetricStreamStatisticsConfigurationProperty where
toResourceProperties :: MetricStreamStatisticsConfigurationProperty -> ResourceProperties
toResourceProperties
MetricStreamStatisticsConfigurationProperty {[MetricStreamStatisticsMetricProperty]
()
ValueList Text
haddock_workaround_ :: MetricStreamStatisticsConfigurationProperty -> ()
additionalStatistics :: MetricStreamStatisticsConfigurationProperty -> ValueList Text
includeMetrics :: MetricStreamStatisticsConfigurationProperty
-> [MetricStreamStatisticsMetricProperty]
haddock_workaround_ :: ()
additionalStatistics :: ValueList Text
includeMetrics :: [MetricStreamStatisticsMetricProperty]
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::CloudWatch::MetricStream.MetricStreamStatisticsConfiguration",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"AdditionalStatistics" Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ValueList Text
additionalStatistics,
Key
"IncludeMetrics" Key -> [MetricStreamStatisticsMetricProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [MetricStreamStatisticsMetricProperty]
includeMetrics]}
instance JSON.ToJSON MetricStreamStatisticsConfigurationProperty where
toJSON :: MetricStreamStatisticsConfigurationProperty -> Value
toJSON MetricStreamStatisticsConfigurationProperty {[MetricStreamStatisticsMetricProperty]
()
ValueList Text
haddock_workaround_ :: MetricStreamStatisticsConfigurationProperty -> ()
additionalStatistics :: MetricStreamStatisticsConfigurationProperty -> ValueList Text
includeMetrics :: MetricStreamStatisticsConfigurationProperty
-> [MetricStreamStatisticsMetricProperty]
haddock_workaround_ :: ()
additionalStatistics :: ValueList Text
includeMetrics :: [MetricStreamStatisticsMetricProperty]
..}
= [(Key, Value)] -> Value
JSON.object
[Key
"AdditionalStatistics" Key -> ValueList Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ValueList Text
additionalStatistics,
Key
"IncludeMetrics" Key -> [MetricStreamStatisticsMetricProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [MetricStreamStatisticsMetricProperty]
includeMetrics]
instance Property "AdditionalStatistics" MetricStreamStatisticsConfigurationProperty where
type PropertyType "AdditionalStatistics" MetricStreamStatisticsConfigurationProperty = ValueList Prelude.Text
set :: PropertyType
"AdditionalStatistics" MetricStreamStatisticsConfigurationProperty
-> MetricStreamStatisticsConfigurationProperty
-> MetricStreamStatisticsConfigurationProperty
set PropertyType
"AdditionalStatistics" MetricStreamStatisticsConfigurationProperty
newValue MetricStreamStatisticsConfigurationProperty {[MetricStreamStatisticsMetricProperty]
()
ValueList Text
haddock_workaround_ :: MetricStreamStatisticsConfigurationProperty -> ()
additionalStatistics :: MetricStreamStatisticsConfigurationProperty -> ValueList Text
includeMetrics :: MetricStreamStatisticsConfigurationProperty
-> [MetricStreamStatisticsMetricProperty]
haddock_workaround_ :: ()
additionalStatistics :: ValueList Text
includeMetrics :: [MetricStreamStatisticsMetricProperty]
..}
= MetricStreamStatisticsConfigurationProperty
{additionalStatistics :: ValueList Text
additionalStatistics = PropertyType
"AdditionalStatistics" MetricStreamStatisticsConfigurationProperty
ValueList Text
newValue, [MetricStreamStatisticsMetricProperty]
()
haddock_workaround_ :: ()
includeMetrics :: [MetricStreamStatisticsMetricProperty]
haddock_workaround_ :: ()
includeMetrics :: [MetricStreamStatisticsMetricProperty]
..}
instance Property "IncludeMetrics" MetricStreamStatisticsConfigurationProperty where
type PropertyType "IncludeMetrics" MetricStreamStatisticsConfigurationProperty = [MetricStreamStatisticsMetricProperty]
set :: PropertyType
"IncludeMetrics" MetricStreamStatisticsConfigurationProperty
-> MetricStreamStatisticsConfigurationProperty
-> MetricStreamStatisticsConfigurationProperty
set PropertyType
"IncludeMetrics" MetricStreamStatisticsConfigurationProperty
newValue MetricStreamStatisticsConfigurationProperty {[MetricStreamStatisticsMetricProperty]
()
ValueList Text
haddock_workaround_ :: MetricStreamStatisticsConfigurationProperty -> ()
additionalStatistics :: MetricStreamStatisticsConfigurationProperty -> ValueList Text
includeMetrics :: MetricStreamStatisticsConfigurationProperty
-> [MetricStreamStatisticsMetricProperty]
haddock_workaround_ :: ()
additionalStatistics :: ValueList Text
includeMetrics :: [MetricStreamStatisticsMetricProperty]
..}
= MetricStreamStatisticsConfigurationProperty
{includeMetrics :: [MetricStreamStatisticsMetricProperty]
includeMetrics = [MetricStreamStatisticsMetricProperty]
PropertyType
"IncludeMetrics" MetricStreamStatisticsConfigurationProperty
newValue, ()
ValueList Text
haddock_workaround_ :: ()
additionalStatistics :: ValueList Text
haddock_workaround_ :: ()
additionalStatistics :: ValueList Text
..}