module Stratosphere.FMS.Policy.ThirdPartyFirewallPolicyProperty (
ThirdPartyFirewallPolicyProperty(..),
mkThirdPartyFirewallPolicyProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data ThirdPartyFirewallPolicyProperty
=
ThirdPartyFirewallPolicyProperty {ThirdPartyFirewallPolicyProperty -> ()
haddock_workaround_ :: (),
ThirdPartyFirewallPolicyProperty -> Value Text
firewallDeploymentModel :: (Value Prelude.Text)}
deriving stock (ThirdPartyFirewallPolicyProperty
-> ThirdPartyFirewallPolicyProperty -> Bool
(ThirdPartyFirewallPolicyProperty
-> ThirdPartyFirewallPolicyProperty -> Bool)
-> (ThirdPartyFirewallPolicyProperty
-> ThirdPartyFirewallPolicyProperty -> Bool)
-> Eq ThirdPartyFirewallPolicyProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ThirdPartyFirewallPolicyProperty
-> ThirdPartyFirewallPolicyProperty -> Bool
== :: ThirdPartyFirewallPolicyProperty
-> ThirdPartyFirewallPolicyProperty -> Bool
$c/= :: ThirdPartyFirewallPolicyProperty
-> ThirdPartyFirewallPolicyProperty -> Bool
/= :: ThirdPartyFirewallPolicyProperty
-> ThirdPartyFirewallPolicyProperty -> Bool
Prelude.Eq, Int -> ThirdPartyFirewallPolicyProperty -> ShowS
[ThirdPartyFirewallPolicyProperty] -> ShowS
ThirdPartyFirewallPolicyProperty -> String
(Int -> ThirdPartyFirewallPolicyProperty -> ShowS)
-> (ThirdPartyFirewallPolicyProperty -> String)
-> ([ThirdPartyFirewallPolicyProperty] -> ShowS)
-> Show ThirdPartyFirewallPolicyProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ThirdPartyFirewallPolicyProperty -> ShowS
showsPrec :: Int -> ThirdPartyFirewallPolicyProperty -> ShowS
$cshow :: ThirdPartyFirewallPolicyProperty -> String
show :: ThirdPartyFirewallPolicyProperty -> String
$cshowList :: [ThirdPartyFirewallPolicyProperty] -> ShowS
showList :: [ThirdPartyFirewallPolicyProperty] -> ShowS
Prelude.Show)
mkThirdPartyFirewallPolicyProperty ::
Value Prelude.Text -> ThirdPartyFirewallPolicyProperty
mkThirdPartyFirewallPolicyProperty :: Value Text -> ThirdPartyFirewallPolicyProperty
mkThirdPartyFirewallPolicyProperty Value Text
firewallDeploymentModel
= ThirdPartyFirewallPolicyProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (),
firewallDeploymentModel :: Value Text
firewallDeploymentModel = Value Text
firewallDeploymentModel}
instance ToResourceProperties ThirdPartyFirewallPolicyProperty where
toResourceProperties :: ThirdPartyFirewallPolicyProperty -> ResourceProperties
toResourceProperties ThirdPartyFirewallPolicyProperty {()
Value Text
haddock_workaround_ :: ThirdPartyFirewallPolicyProperty -> ()
firewallDeploymentModel :: ThirdPartyFirewallPolicyProperty -> Value Text
haddock_workaround_ :: ()
firewallDeploymentModel :: Value Text
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::FMS::Policy.ThirdPartyFirewallPolicy",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"FirewallDeploymentModel"
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
firewallDeploymentModel]}
instance JSON.ToJSON ThirdPartyFirewallPolicyProperty where
toJSON :: ThirdPartyFirewallPolicyProperty -> Value
toJSON ThirdPartyFirewallPolicyProperty {()
Value Text
haddock_workaround_ :: ThirdPartyFirewallPolicyProperty -> ()
firewallDeploymentModel :: ThirdPartyFirewallPolicyProperty -> Value Text
haddock_workaround_ :: ()
firewallDeploymentModel :: Value Text
..}
= [(Key, Value)] -> Value
JSON.object
[Key
"FirewallDeploymentModel" 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
firewallDeploymentModel]
instance Property "FirewallDeploymentModel" ThirdPartyFirewallPolicyProperty where
type PropertyType "FirewallDeploymentModel" ThirdPartyFirewallPolicyProperty = Value Prelude.Text
set :: PropertyType
"FirewallDeploymentModel" ThirdPartyFirewallPolicyProperty
-> ThirdPartyFirewallPolicyProperty
-> ThirdPartyFirewallPolicyProperty
set PropertyType
"FirewallDeploymentModel" ThirdPartyFirewallPolicyProperty
newValue ThirdPartyFirewallPolicyProperty {()
Value Text
haddock_workaround_ :: ThirdPartyFirewallPolicyProperty -> ()
firewallDeploymentModel :: ThirdPartyFirewallPolicyProperty -> Value Text
haddock_workaround_ :: ()
firewallDeploymentModel :: Value Text
..}
= ThirdPartyFirewallPolicyProperty
{firewallDeploymentModel :: Value Text
firewallDeploymentModel = PropertyType
"FirewallDeploymentModel" ThirdPartyFirewallPolicyProperty
Value Text
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}