module Stratosphere.NetworkFirewall.FirewallPolicy.StatefulEngineOptionsProperty (
        module Exports, StatefulEngineOptionsProperty(..),
        mkStatefulEngineOptionsProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.NetworkFirewall.FirewallPolicy.FlowTimeoutsProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data StatefulEngineOptionsProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkfirewall-firewallpolicy-statefulengineoptions.html>
    StatefulEngineOptionsProperty {StatefulEngineOptionsProperty -> ()
haddock_workaround_ :: (),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkfirewall-firewallpolicy-statefulengineoptions.html#cfn-networkfirewall-firewallpolicy-statefulengineoptions-flowtimeouts>
                                   StatefulEngineOptionsProperty -> Maybe FlowTimeoutsProperty
flowTimeouts :: (Prelude.Maybe FlowTimeoutsProperty),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkfirewall-firewallpolicy-statefulengineoptions.html#cfn-networkfirewall-firewallpolicy-statefulengineoptions-ruleorder>
                                   StatefulEngineOptionsProperty -> Maybe (Value Text)
ruleOrder :: (Prelude.Maybe (Value Prelude.Text)),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-networkfirewall-firewallpolicy-statefulengineoptions.html#cfn-networkfirewall-firewallpolicy-statefulengineoptions-streamexceptionpolicy>
                                   StatefulEngineOptionsProperty -> Maybe (Value Text)
streamExceptionPolicy :: (Prelude.Maybe (Value Prelude.Text))}
  deriving stock (StatefulEngineOptionsProperty
-> StatefulEngineOptionsProperty -> Bool
(StatefulEngineOptionsProperty
 -> StatefulEngineOptionsProperty -> Bool)
-> (StatefulEngineOptionsProperty
    -> StatefulEngineOptionsProperty -> Bool)
-> Eq StatefulEngineOptionsProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StatefulEngineOptionsProperty
-> StatefulEngineOptionsProperty -> Bool
== :: StatefulEngineOptionsProperty
-> StatefulEngineOptionsProperty -> Bool
$c/= :: StatefulEngineOptionsProperty
-> StatefulEngineOptionsProperty -> Bool
/= :: StatefulEngineOptionsProperty
-> StatefulEngineOptionsProperty -> Bool
Prelude.Eq, Int -> StatefulEngineOptionsProperty -> ShowS
[StatefulEngineOptionsProperty] -> ShowS
StatefulEngineOptionsProperty -> String
(Int -> StatefulEngineOptionsProperty -> ShowS)
-> (StatefulEngineOptionsProperty -> String)
-> ([StatefulEngineOptionsProperty] -> ShowS)
-> Show StatefulEngineOptionsProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> StatefulEngineOptionsProperty -> ShowS
showsPrec :: Int -> StatefulEngineOptionsProperty -> ShowS
$cshow :: StatefulEngineOptionsProperty -> String
show :: StatefulEngineOptionsProperty -> String
$cshowList :: [StatefulEngineOptionsProperty] -> ShowS
showList :: [StatefulEngineOptionsProperty] -> ShowS
Prelude.Show)
mkStatefulEngineOptionsProperty :: StatefulEngineOptionsProperty
mkStatefulEngineOptionsProperty :: StatefulEngineOptionsProperty
mkStatefulEngineOptionsProperty
  = StatefulEngineOptionsProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), flowTimeouts :: Maybe FlowTimeoutsProperty
flowTimeouts = Maybe FlowTimeoutsProperty
forall a. Maybe a
Prelude.Nothing,
       ruleOrder :: Maybe (Value Text)
ruleOrder = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       streamExceptionPolicy :: Maybe (Value Text)
streamExceptionPolicy = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties StatefulEngineOptionsProperty where
  toResourceProperties :: StatefulEngineOptionsProperty -> ResourceProperties
toResourceProperties StatefulEngineOptionsProperty {Maybe (Value Text)
Maybe FlowTimeoutsProperty
()
haddock_workaround_ :: StatefulEngineOptionsProperty -> ()
flowTimeouts :: StatefulEngineOptionsProperty -> Maybe FlowTimeoutsProperty
ruleOrder :: StatefulEngineOptionsProperty -> Maybe (Value Text)
streamExceptionPolicy :: StatefulEngineOptionsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
flowTimeouts :: Maybe FlowTimeoutsProperty
ruleOrder :: Maybe (Value Text)
streamExceptionPolicy :: Maybe (Value Text)
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::NetworkFirewall::FirewallPolicy.StatefulEngineOptions",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                           [Key -> FlowTimeoutsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"FlowTimeouts" (FlowTimeoutsProperty -> (Key, Value))
-> Maybe FlowTimeoutsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe FlowTimeoutsProperty
flowTimeouts,
                            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..=) Key
"RuleOrder" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
ruleOrder,
                            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..=) Key
"StreamExceptionPolicy"
                              (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
streamExceptionPolicy])}
instance JSON.ToJSON StatefulEngineOptionsProperty where
  toJSON :: StatefulEngineOptionsProperty -> Value
toJSON StatefulEngineOptionsProperty {Maybe (Value Text)
Maybe FlowTimeoutsProperty
()
haddock_workaround_ :: StatefulEngineOptionsProperty -> ()
flowTimeouts :: StatefulEngineOptionsProperty -> Maybe FlowTimeoutsProperty
ruleOrder :: StatefulEngineOptionsProperty -> Maybe (Value Text)
streamExceptionPolicy :: StatefulEngineOptionsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
flowTimeouts :: Maybe FlowTimeoutsProperty
ruleOrder :: Maybe (Value Text)
streamExceptionPolicy :: Maybe (Value Text)
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
              [Key -> FlowTimeoutsProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"FlowTimeouts" (FlowTimeoutsProperty -> (Key, Value))
-> Maybe FlowTimeoutsProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe FlowTimeoutsProperty
flowTimeouts,
               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..=) Key
"RuleOrder" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
ruleOrder,
               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..=) Key
"StreamExceptionPolicy"
                 (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
streamExceptionPolicy]))
instance Property "FlowTimeouts" StatefulEngineOptionsProperty where
  type PropertyType "FlowTimeouts" StatefulEngineOptionsProperty = FlowTimeoutsProperty
  set :: PropertyType "FlowTimeouts" StatefulEngineOptionsProperty
-> StatefulEngineOptionsProperty -> StatefulEngineOptionsProperty
set PropertyType "FlowTimeouts" StatefulEngineOptionsProperty
newValue StatefulEngineOptionsProperty {Maybe (Value Text)
Maybe FlowTimeoutsProperty
()
haddock_workaround_ :: StatefulEngineOptionsProperty -> ()
flowTimeouts :: StatefulEngineOptionsProperty -> Maybe FlowTimeoutsProperty
ruleOrder :: StatefulEngineOptionsProperty -> Maybe (Value Text)
streamExceptionPolicy :: StatefulEngineOptionsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
flowTimeouts :: Maybe FlowTimeoutsProperty
ruleOrder :: Maybe (Value Text)
streamExceptionPolicy :: Maybe (Value Text)
..}
    = StatefulEngineOptionsProperty
        {flowTimeouts :: Maybe FlowTimeoutsProperty
flowTimeouts = FlowTimeoutsProperty -> Maybe FlowTimeoutsProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "FlowTimeouts" StatefulEngineOptionsProperty
FlowTimeoutsProperty
newValue, Maybe (Value Text)
()
haddock_workaround_ :: ()
ruleOrder :: Maybe (Value Text)
streamExceptionPolicy :: Maybe (Value Text)
haddock_workaround_ :: ()
ruleOrder :: Maybe (Value Text)
streamExceptionPolicy :: Maybe (Value Text)
..}
instance Property "RuleOrder" StatefulEngineOptionsProperty where
  type PropertyType "RuleOrder" StatefulEngineOptionsProperty = Value Prelude.Text
  set :: PropertyType "RuleOrder" StatefulEngineOptionsProperty
-> StatefulEngineOptionsProperty -> StatefulEngineOptionsProperty
set PropertyType "RuleOrder" StatefulEngineOptionsProperty
newValue StatefulEngineOptionsProperty {Maybe (Value Text)
Maybe FlowTimeoutsProperty
()
haddock_workaround_ :: StatefulEngineOptionsProperty -> ()
flowTimeouts :: StatefulEngineOptionsProperty -> Maybe FlowTimeoutsProperty
ruleOrder :: StatefulEngineOptionsProperty -> Maybe (Value Text)
streamExceptionPolicy :: StatefulEngineOptionsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
flowTimeouts :: Maybe FlowTimeoutsProperty
ruleOrder :: Maybe (Value Text)
streamExceptionPolicy :: Maybe (Value Text)
..}
    = StatefulEngineOptionsProperty
        {ruleOrder :: Maybe (Value Text)
ruleOrder = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "RuleOrder" StatefulEngineOptionsProperty
Value Text
newValue, Maybe (Value Text)
Maybe FlowTimeoutsProperty
()
haddock_workaround_ :: ()
flowTimeouts :: Maybe FlowTimeoutsProperty
streamExceptionPolicy :: Maybe (Value Text)
haddock_workaround_ :: ()
flowTimeouts :: Maybe FlowTimeoutsProperty
streamExceptionPolicy :: Maybe (Value Text)
..}
instance Property "StreamExceptionPolicy" StatefulEngineOptionsProperty where
  type PropertyType "StreamExceptionPolicy" StatefulEngineOptionsProperty = Value Prelude.Text
  set :: PropertyType "StreamExceptionPolicy" StatefulEngineOptionsProperty
-> StatefulEngineOptionsProperty -> StatefulEngineOptionsProperty
set PropertyType "StreamExceptionPolicy" StatefulEngineOptionsProperty
newValue StatefulEngineOptionsProperty {Maybe (Value Text)
Maybe FlowTimeoutsProperty
()
haddock_workaround_ :: StatefulEngineOptionsProperty -> ()
flowTimeouts :: StatefulEngineOptionsProperty -> Maybe FlowTimeoutsProperty
ruleOrder :: StatefulEngineOptionsProperty -> Maybe (Value Text)
streamExceptionPolicy :: StatefulEngineOptionsProperty -> Maybe (Value Text)
haddock_workaround_ :: ()
flowTimeouts :: Maybe FlowTimeoutsProperty
ruleOrder :: Maybe (Value Text)
streamExceptionPolicy :: Maybe (Value Text)
..}
    = StatefulEngineOptionsProperty
        {streamExceptionPolicy :: Maybe (Value Text)
streamExceptionPolicy = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "StreamExceptionPolicy" StatefulEngineOptionsProperty
Value Text
newValue, Maybe (Value Text)
Maybe FlowTimeoutsProperty
()
haddock_workaround_ :: ()
flowTimeouts :: Maybe FlowTimeoutsProperty
ruleOrder :: Maybe (Value Text)
haddock_workaround_ :: ()
flowTimeouts :: Maybe FlowTimeoutsProperty
ruleOrder :: Maybe (Value Text)
..}