module Stratosphere.NetworkFirewall.RuleGroup.StatelessRuleProperty (
module Exports, StatelessRuleProperty(..), mkStatelessRuleProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.NetworkFirewall.RuleGroup.RuleDefinitionProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data StatelessRuleProperty
=
StatelessRuleProperty {StatelessRuleProperty -> ()
haddock_workaround_ :: (),
StatelessRuleProperty -> Value Integer
priority :: (Value Prelude.Integer),
StatelessRuleProperty -> RuleDefinitionProperty
ruleDefinition :: RuleDefinitionProperty}
deriving stock (StatelessRuleProperty -> StatelessRuleProperty -> Bool
(StatelessRuleProperty -> StatelessRuleProperty -> Bool)
-> (StatelessRuleProperty -> StatelessRuleProperty -> Bool)
-> Eq StatelessRuleProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StatelessRuleProperty -> StatelessRuleProperty -> Bool
== :: StatelessRuleProperty -> StatelessRuleProperty -> Bool
$c/= :: StatelessRuleProperty -> StatelessRuleProperty -> Bool
/= :: StatelessRuleProperty -> StatelessRuleProperty -> Bool
Prelude.Eq, Int -> StatelessRuleProperty -> ShowS
[StatelessRuleProperty] -> ShowS
StatelessRuleProperty -> String
(Int -> StatelessRuleProperty -> ShowS)
-> (StatelessRuleProperty -> String)
-> ([StatelessRuleProperty] -> ShowS)
-> Show StatelessRuleProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> StatelessRuleProperty -> ShowS
showsPrec :: Int -> StatelessRuleProperty -> ShowS
$cshow :: StatelessRuleProperty -> String
show :: StatelessRuleProperty -> String
$cshowList :: [StatelessRuleProperty] -> ShowS
showList :: [StatelessRuleProperty] -> ShowS
Prelude.Show)
mkStatelessRuleProperty ::
Value Prelude.Integer
-> RuleDefinitionProperty -> StatelessRuleProperty
mkStatelessRuleProperty :: Value Integer -> RuleDefinitionProperty -> StatelessRuleProperty
mkStatelessRuleProperty Value Integer
priority RuleDefinitionProperty
ruleDefinition
= StatelessRuleProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), priority :: Value Integer
priority = Value Integer
priority,
ruleDefinition :: RuleDefinitionProperty
ruleDefinition = RuleDefinitionProperty
ruleDefinition}
instance ToResourceProperties StatelessRuleProperty where
toResourceProperties :: StatelessRuleProperty -> ResourceProperties
toResourceProperties StatelessRuleProperty {()
Value Integer
RuleDefinitionProperty
haddock_workaround_ :: StatelessRuleProperty -> ()
priority :: StatelessRuleProperty -> Value Integer
ruleDefinition :: StatelessRuleProperty -> RuleDefinitionProperty
haddock_workaround_ :: ()
priority :: Value Integer
ruleDefinition :: RuleDefinitionProperty
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::NetworkFirewall::RuleGroup.StatelessRule",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"Priority" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
priority,
Key
"RuleDefinition" Key -> RuleDefinitionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= RuleDefinitionProperty
ruleDefinition]}
instance JSON.ToJSON StatelessRuleProperty where
toJSON :: StatelessRuleProperty -> Value
toJSON StatelessRuleProperty {()
Value Integer
RuleDefinitionProperty
haddock_workaround_ :: StatelessRuleProperty -> ()
priority :: StatelessRuleProperty -> Value Integer
ruleDefinition :: StatelessRuleProperty -> RuleDefinitionProperty
haddock_workaround_ :: ()
priority :: Value Integer
ruleDefinition :: RuleDefinitionProperty
..}
= [(Key, Value)] -> Value
JSON.object
[Key
"Priority" Key -> Value Integer -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Integer
priority,
Key
"RuleDefinition" Key -> RuleDefinitionProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= RuleDefinitionProperty
ruleDefinition]
instance Property "Priority" StatelessRuleProperty where
type PropertyType "Priority" StatelessRuleProperty = Value Prelude.Integer
set :: PropertyType "Priority" StatelessRuleProperty
-> StatelessRuleProperty -> StatelessRuleProperty
set PropertyType "Priority" StatelessRuleProperty
newValue StatelessRuleProperty {()
Value Integer
RuleDefinitionProperty
haddock_workaround_ :: StatelessRuleProperty -> ()
priority :: StatelessRuleProperty -> Value Integer
ruleDefinition :: StatelessRuleProperty -> RuleDefinitionProperty
haddock_workaround_ :: ()
priority :: Value Integer
ruleDefinition :: RuleDefinitionProperty
..}
= StatelessRuleProperty {priority :: Value Integer
priority = PropertyType "Priority" StatelessRuleProperty
Value Integer
newValue, ()
RuleDefinitionProperty
haddock_workaround_ :: ()
ruleDefinition :: RuleDefinitionProperty
haddock_workaround_ :: ()
ruleDefinition :: RuleDefinitionProperty
..}
instance Property "RuleDefinition" StatelessRuleProperty where
type PropertyType "RuleDefinition" StatelessRuleProperty = RuleDefinitionProperty
set :: PropertyType "RuleDefinition" StatelessRuleProperty
-> StatelessRuleProperty -> StatelessRuleProperty
set PropertyType "RuleDefinition" StatelessRuleProperty
newValue StatelessRuleProperty {()
Value Integer
RuleDefinitionProperty
haddock_workaround_ :: StatelessRuleProperty -> ()
priority :: StatelessRuleProperty -> Value Integer
ruleDefinition :: StatelessRuleProperty -> RuleDefinitionProperty
haddock_workaround_ :: ()
priority :: Value Integer
ruleDefinition :: RuleDefinitionProperty
..}
= StatelessRuleProperty {ruleDefinition :: RuleDefinitionProperty
ruleDefinition = PropertyType "RuleDefinition" StatelessRuleProperty
RuleDefinitionProperty
newValue, ()
Value Integer
haddock_workaround_ :: ()
priority :: Value Integer
haddock_workaround_ :: ()
priority :: Value Integer
..}