module Stratosphere.AppSync.GraphQLApi.EnhancedMetricsConfigProperty (
EnhancedMetricsConfigProperty(..), mkEnhancedMetricsConfigProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data EnhancedMetricsConfigProperty
=
EnhancedMetricsConfigProperty {EnhancedMetricsConfigProperty -> ()
haddock_workaround_ :: (),
EnhancedMetricsConfigProperty -> Value Text
dataSourceLevelMetricsBehavior :: (Value Prelude.Text),
EnhancedMetricsConfigProperty -> Value Text
operationLevelMetricsConfig :: (Value Prelude.Text),
EnhancedMetricsConfigProperty -> Value Text
resolverLevelMetricsBehavior :: (Value Prelude.Text)}
deriving stock (EnhancedMetricsConfigProperty
-> EnhancedMetricsConfigProperty -> Bool
(EnhancedMetricsConfigProperty
-> EnhancedMetricsConfigProperty -> Bool)
-> (EnhancedMetricsConfigProperty
-> EnhancedMetricsConfigProperty -> Bool)
-> Eq EnhancedMetricsConfigProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: EnhancedMetricsConfigProperty
-> EnhancedMetricsConfigProperty -> Bool
== :: EnhancedMetricsConfigProperty
-> EnhancedMetricsConfigProperty -> Bool
$c/= :: EnhancedMetricsConfigProperty
-> EnhancedMetricsConfigProperty -> Bool
/= :: EnhancedMetricsConfigProperty
-> EnhancedMetricsConfigProperty -> Bool
Prelude.Eq, Int -> EnhancedMetricsConfigProperty -> ShowS
[EnhancedMetricsConfigProperty] -> ShowS
EnhancedMetricsConfigProperty -> String
(Int -> EnhancedMetricsConfigProperty -> ShowS)
-> (EnhancedMetricsConfigProperty -> String)
-> ([EnhancedMetricsConfigProperty] -> ShowS)
-> Show EnhancedMetricsConfigProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> EnhancedMetricsConfigProperty -> ShowS
showsPrec :: Int -> EnhancedMetricsConfigProperty -> ShowS
$cshow :: EnhancedMetricsConfigProperty -> String
show :: EnhancedMetricsConfigProperty -> String
$cshowList :: [EnhancedMetricsConfigProperty] -> ShowS
showList :: [EnhancedMetricsConfigProperty] -> ShowS
Prelude.Show)
mkEnhancedMetricsConfigProperty ::
Value Prelude.Text
-> Value Prelude.Text
-> Value Prelude.Text -> EnhancedMetricsConfigProperty
mkEnhancedMetricsConfigProperty :: Value Text
-> Value Text -> Value Text -> EnhancedMetricsConfigProperty
mkEnhancedMetricsConfigProperty
Value Text
dataSourceLevelMetricsBehavior
Value Text
operationLevelMetricsConfig
Value Text
resolverLevelMetricsBehavior
= EnhancedMetricsConfigProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (),
dataSourceLevelMetricsBehavior :: Value Text
dataSourceLevelMetricsBehavior = Value Text
dataSourceLevelMetricsBehavior,
operationLevelMetricsConfig :: Value Text
operationLevelMetricsConfig = Value Text
operationLevelMetricsConfig,
resolverLevelMetricsBehavior :: Value Text
resolverLevelMetricsBehavior = Value Text
resolverLevelMetricsBehavior}
instance ToResourceProperties EnhancedMetricsConfigProperty where
toResourceProperties :: EnhancedMetricsConfigProperty -> ResourceProperties
toResourceProperties EnhancedMetricsConfigProperty {()
Value Text
haddock_workaround_ :: EnhancedMetricsConfigProperty -> ()
dataSourceLevelMetricsBehavior :: EnhancedMetricsConfigProperty -> Value Text
operationLevelMetricsConfig :: EnhancedMetricsConfigProperty -> Value Text
resolverLevelMetricsBehavior :: EnhancedMetricsConfigProperty -> Value Text
haddock_workaround_ :: ()
dataSourceLevelMetricsBehavior :: Value Text
operationLevelMetricsConfig :: Value Text
resolverLevelMetricsBehavior :: Value Text
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::AppSync::GraphQLApi.EnhancedMetricsConfig",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"DataSourceLevelMetricsBehavior"
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
dataSourceLevelMetricsBehavior,
Key
"OperationLevelMetricsConfig" 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
operationLevelMetricsConfig,
Key
"ResolverLevelMetricsBehavior"
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
resolverLevelMetricsBehavior]}
instance JSON.ToJSON EnhancedMetricsConfigProperty where
toJSON :: EnhancedMetricsConfigProperty -> Value
toJSON EnhancedMetricsConfigProperty {()
Value Text
haddock_workaround_ :: EnhancedMetricsConfigProperty -> ()
dataSourceLevelMetricsBehavior :: EnhancedMetricsConfigProperty -> Value Text
operationLevelMetricsConfig :: EnhancedMetricsConfigProperty -> Value Text
resolverLevelMetricsBehavior :: EnhancedMetricsConfigProperty -> Value Text
haddock_workaround_ :: ()
dataSourceLevelMetricsBehavior :: Value Text
operationLevelMetricsConfig :: Value Text
resolverLevelMetricsBehavior :: Value Text
..}
= [(Key, Value)] -> Value
JSON.object
[Key
"DataSourceLevelMetricsBehavior"
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
dataSourceLevelMetricsBehavior,
Key
"OperationLevelMetricsConfig" 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
operationLevelMetricsConfig,
Key
"ResolverLevelMetricsBehavior"
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
resolverLevelMetricsBehavior]
instance Property "DataSourceLevelMetricsBehavior" EnhancedMetricsConfigProperty where
type PropertyType "DataSourceLevelMetricsBehavior" EnhancedMetricsConfigProperty = Value Prelude.Text
set :: PropertyType
"DataSourceLevelMetricsBehavior" EnhancedMetricsConfigProperty
-> EnhancedMetricsConfigProperty -> EnhancedMetricsConfigProperty
set PropertyType
"DataSourceLevelMetricsBehavior" EnhancedMetricsConfigProperty
newValue EnhancedMetricsConfigProperty {()
Value Text
haddock_workaround_ :: EnhancedMetricsConfigProperty -> ()
dataSourceLevelMetricsBehavior :: EnhancedMetricsConfigProperty -> Value Text
operationLevelMetricsConfig :: EnhancedMetricsConfigProperty -> Value Text
resolverLevelMetricsBehavior :: EnhancedMetricsConfigProperty -> Value Text
haddock_workaround_ :: ()
dataSourceLevelMetricsBehavior :: Value Text
operationLevelMetricsConfig :: Value Text
resolverLevelMetricsBehavior :: Value Text
..}
= EnhancedMetricsConfigProperty
{dataSourceLevelMetricsBehavior :: Value Text
dataSourceLevelMetricsBehavior = PropertyType
"DataSourceLevelMetricsBehavior" EnhancedMetricsConfigProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
operationLevelMetricsConfig :: Value Text
resolverLevelMetricsBehavior :: Value Text
haddock_workaround_ :: ()
operationLevelMetricsConfig :: Value Text
resolverLevelMetricsBehavior :: Value Text
..}
instance Property "OperationLevelMetricsConfig" EnhancedMetricsConfigProperty where
type PropertyType "OperationLevelMetricsConfig" EnhancedMetricsConfigProperty = Value Prelude.Text
set :: PropertyType
"OperationLevelMetricsConfig" EnhancedMetricsConfigProperty
-> EnhancedMetricsConfigProperty -> EnhancedMetricsConfigProperty
set PropertyType
"OperationLevelMetricsConfig" EnhancedMetricsConfigProperty
newValue EnhancedMetricsConfigProperty {()
Value Text
haddock_workaround_ :: EnhancedMetricsConfigProperty -> ()
dataSourceLevelMetricsBehavior :: EnhancedMetricsConfigProperty -> Value Text
operationLevelMetricsConfig :: EnhancedMetricsConfigProperty -> Value Text
resolverLevelMetricsBehavior :: EnhancedMetricsConfigProperty -> Value Text
haddock_workaround_ :: ()
dataSourceLevelMetricsBehavior :: Value Text
operationLevelMetricsConfig :: Value Text
resolverLevelMetricsBehavior :: Value Text
..}
= EnhancedMetricsConfigProperty
{operationLevelMetricsConfig :: Value Text
operationLevelMetricsConfig = PropertyType
"OperationLevelMetricsConfig" EnhancedMetricsConfigProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
dataSourceLevelMetricsBehavior :: Value Text
resolverLevelMetricsBehavior :: Value Text
haddock_workaround_ :: ()
dataSourceLevelMetricsBehavior :: Value Text
resolverLevelMetricsBehavior :: Value Text
..}
instance Property "ResolverLevelMetricsBehavior" EnhancedMetricsConfigProperty where
type PropertyType "ResolverLevelMetricsBehavior" EnhancedMetricsConfigProperty = Value Prelude.Text
set :: PropertyType
"ResolverLevelMetricsBehavior" EnhancedMetricsConfigProperty
-> EnhancedMetricsConfigProperty -> EnhancedMetricsConfigProperty
set PropertyType
"ResolverLevelMetricsBehavior" EnhancedMetricsConfigProperty
newValue EnhancedMetricsConfigProperty {()
Value Text
haddock_workaround_ :: EnhancedMetricsConfigProperty -> ()
dataSourceLevelMetricsBehavior :: EnhancedMetricsConfigProperty -> Value Text
operationLevelMetricsConfig :: EnhancedMetricsConfigProperty -> Value Text
resolverLevelMetricsBehavior :: EnhancedMetricsConfigProperty -> Value Text
haddock_workaround_ :: ()
dataSourceLevelMetricsBehavior :: Value Text
operationLevelMetricsConfig :: Value Text
resolverLevelMetricsBehavior :: Value Text
..}
= EnhancedMetricsConfigProperty
{resolverLevelMetricsBehavior :: Value Text
resolverLevelMetricsBehavior = PropertyType
"ResolverLevelMetricsBehavior" EnhancedMetricsConfigProperty
Value Text
newValue, ()
Value Text
haddock_workaround_ :: ()
dataSourceLevelMetricsBehavior :: Value Text
operationLevelMetricsConfig :: Value Text
haddock_workaround_ :: ()
dataSourceLevelMetricsBehavior :: Value Text
operationLevelMetricsConfig :: Value Text
..}