module Stratosphere.SecurityHub.ConfigurationPolicy.SecurityControlsConfigurationProperty (
module Exports, SecurityControlsConfigurationProperty(..),
mkSecurityControlsConfigurationProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.SecurityHub.ConfigurationPolicy.SecurityControlCustomParameterProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data SecurityControlsConfigurationProperty
=
SecurityControlsConfigurationProperty {SecurityControlsConfigurationProperty -> ()
haddock_workaround_ :: (),
SecurityControlsConfigurationProperty -> Maybe (ValueList Text)
disabledSecurityControlIdentifiers :: (Prelude.Maybe (ValueList Prelude.Text)),
SecurityControlsConfigurationProperty -> Maybe (ValueList Text)
enabledSecurityControlIdentifiers :: (Prelude.Maybe (ValueList Prelude.Text)),
SecurityControlsConfigurationProperty
-> Maybe [SecurityControlCustomParameterProperty]
securityControlCustomParameters :: (Prelude.Maybe [SecurityControlCustomParameterProperty])}
deriving stock (SecurityControlsConfigurationProperty
-> SecurityControlsConfigurationProperty -> Bool
(SecurityControlsConfigurationProperty
-> SecurityControlsConfigurationProperty -> Bool)
-> (SecurityControlsConfigurationProperty
-> SecurityControlsConfigurationProperty -> Bool)
-> Eq SecurityControlsConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SecurityControlsConfigurationProperty
-> SecurityControlsConfigurationProperty -> Bool
== :: SecurityControlsConfigurationProperty
-> SecurityControlsConfigurationProperty -> Bool
$c/= :: SecurityControlsConfigurationProperty
-> SecurityControlsConfigurationProperty -> Bool
/= :: SecurityControlsConfigurationProperty
-> SecurityControlsConfigurationProperty -> Bool
Prelude.Eq, Int -> SecurityControlsConfigurationProperty -> ShowS
[SecurityControlsConfigurationProperty] -> ShowS
SecurityControlsConfigurationProperty -> String
(Int -> SecurityControlsConfigurationProperty -> ShowS)
-> (SecurityControlsConfigurationProperty -> String)
-> ([SecurityControlsConfigurationProperty] -> ShowS)
-> Show SecurityControlsConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SecurityControlsConfigurationProperty -> ShowS
showsPrec :: Int -> SecurityControlsConfigurationProperty -> ShowS
$cshow :: SecurityControlsConfigurationProperty -> String
show :: SecurityControlsConfigurationProperty -> String
$cshowList :: [SecurityControlsConfigurationProperty] -> ShowS
showList :: [SecurityControlsConfigurationProperty] -> ShowS
Prelude.Show)
mkSecurityControlsConfigurationProperty ::
SecurityControlsConfigurationProperty
mkSecurityControlsConfigurationProperty :: SecurityControlsConfigurationProperty
mkSecurityControlsConfigurationProperty
= SecurityControlsConfigurationProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (),
disabledSecurityControlIdentifiers :: Maybe (ValueList Text)
disabledSecurityControlIdentifiers = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing,
enabledSecurityControlIdentifiers :: Maybe (ValueList Text)
enabledSecurityControlIdentifiers = Maybe (ValueList Text)
forall a. Maybe a
Prelude.Nothing,
securityControlCustomParameters :: Maybe [SecurityControlCustomParameterProperty]
securityControlCustomParameters = Maybe [SecurityControlCustomParameterProperty]
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties SecurityControlsConfigurationProperty where
toResourceProperties :: SecurityControlsConfigurationProperty -> ResourceProperties
toResourceProperties SecurityControlsConfigurationProperty {Maybe [SecurityControlCustomParameterProperty]
Maybe (ValueList Text)
()
haddock_workaround_ :: SecurityControlsConfigurationProperty -> ()
disabledSecurityControlIdentifiers :: SecurityControlsConfigurationProperty -> Maybe (ValueList Text)
enabledSecurityControlIdentifiers :: SecurityControlsConfigurationProperty -> Maybe (ValueList Text)
securityControlCustomParameters :: SecurityControlsConfigurationProperty
-> Maybe [SecurityControlCustomParameterProperty]
haddock_workaround_ :: ()
disabledSecurityControlIdentifiers :: Maybe (ValueList Text)
enabledSecurityControlIdentifiers :: Maybe (ValueList Text)
securityControlCustomParameters :: Maybe [SecurityControlCustomParameterProperty]
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::SecurityHub::ConfigurationPolicy.SecurityControlsConfiguration",
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 -> 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..=) Key
"DisabledSecurityControlIdentifiers"
(ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
disabledSecurityControlIdentifiers,
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..=) Key
"EnabledSecurityControlIdentifiers"
(ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
enabledSecurityControlIdentifiers,
Key -> [SecurityControlCustomParameterProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SecurityControlCustomParameters"
([SecurityControlCustomParameterProperty] -> (Key, Value))
-> Maybe [SecurityControlCustomParameterProperty]
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [SecurityControlCustomParameterProperty]
securityControlCustomParameters])}
instance JSON.ToJSON SecurityControlsConfigurationProperty where
toJSON :: SecurityControlsConfigurationProperty -> Value
toJSON SecurityControlsConfigurationProperty {Maybe [SecurityControlCustomParameterProperty]
Maybe (ValueList Text)
()
haddock_workaround_ :: SecurityControlsConfigurationProperty -> ()
disabledSecurityControlIdentifiers :: SecurityControlsConfigurationProperty -> Maybe (ValueList Text)
enabledSecurityControlIdentifiers :: SecurityControlsConfigurationProperty -> Maybe (ValueList Text)
securityControlCustomParameters :: SecurityControlsConfigurationProperty
-> Maybe [SecurityControlCustomParameterProperty]
haddock_workaround_ :: ()
disabledSecurityControlIdentifiers :: Maybe (ValueList Text)
enabledSecurityControlIdentifiers :: Maybe (ValueList Text)
securityControlCustomParameters :: Maybe [SecurityControlCustomParameterProperty]
..}
= [(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 -> 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..=) Key
"DisabledSecurityControlIdentifiers"
(ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
disabledSecurityControlIdentifiers,
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..=) Key
"EnabledSecurityControlIdentifiers"
(ValueList Text -> (Key, Value))
-> Maybe (ValueList Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (ValueList Text)
enabledSecurityControlIdentifiers,
Key -> [SecurityControlCustomParameterProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"SecurityControlCustomParameters"
([SecurityControlCustomParameterProperty] -> (Key, Value))
-> Maybe [SecurityControlCustomParameterProperty]
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [SecurityControlCustomParameterProperty]
securityControlCustomParameters]))
instance Property "DisabledSecurityControlIdentifiers" SecurityControlsConfigurationProperty where
type PropertyType "DisabledSecurityControlIdentifiers" SecurityControlsConfigurationProperty = ValueList Prelude.Text
set :: PropertyType
"DisabledSecurityControlIdentifiers"
SecurityControlsConfigurationProperty
-> SecurityControlsConfigurationProperty
-> SecurityControlsConfigurationProperty
set PropertyType
"DisabledSecurityControlIdentifiers"
SecurityControlsConfigurationProperty
newValue SecurityControlsConfigurationProperty {Maybe [SecurityControlCustomParameterProperty]
Maybe (ValueList Text)
()
haddock_workaround_ :: SecurityControlsConfigurationProperty -> ()
disabledSecurityControlIdentifiers :: SecurityControlsConfigurationProperty -> Maybe (ValueList Text)
enabledSecurityControlIdentifiers :: SecurityControlsConfigurationProperty -> Maybe (ValueList Text)
securityControlCustomParameters :: SecurityControlsConfigurationProperty
-> Maybe [SecurityControlCustomParameterProperty]
haddock_workaround_ :: ()
disabledSecurityControlIdentifiers :: Maybe (ValueList Text)
enabledSecurityControlIdentifiers :: Maybe (ValueList Text)
securityControlCustomParameters :: Maybe [SecurityControlCustomParameterProperty]
..}
= SecurityControlsConfigurationProperty
{disabledSecurityControlIdentifiers :: Maybe (ValueList Text)
disabledSecurityControlIdentifiers = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
"DisabledSecurityControlIdentifiers"
SecurityControlsConfigurationProperty
ValueList Text
newValue, Maybe [SecurityControlCustomParameterProperty]
Maybe (ValueList Text)
()
haddock_workaround_ :: ()
enabledSecurityControlIdentifiers :: Maybe (ValueList Text)
securityControlCustomParameters :: Maybe [SecurityControlCustomParameterProperty]
haddock_workaround_ :: ()
enabledSecurityControlIdentifiers :: Maybe (ValueList Text)
securityControlCustomParameters :: Maybe [SecurityControlCustomParameterProperty]
..}
instance Property "EnabledSecurityControlIdentifiers" SecurityControlsConfigurationProperty where
type PropertyType "EnabledSecurityControlIdentifiers" SecurityControlsConfigurationProperty = ValueList Prelude.Text
set :: PropertyType
"EnabledSecurityControlIdentifiers"
SecurityControlsConfigurationProperty
-> SecurityControlsConfigurationProperty
-> SecurityControlsConfigurationProperty
set PropertyType
"EnabledSecurityControlIdentifiers"
SecurityControlsConfigurationProperty
newValue SecurityControlsConfigurationProperty {Maybe [SecurityControlCustomParameterProperty]
Maybe (ValueList Text)
()
haddock_workaround_ :: SecurityControlsConfigurationProperty -> ()
disabledSecurityControlIdentifiers :: SecurityControlsConfigurationProperty -> Maybe (ValueList Text)
enabledSecurityControlIdentifiers :: SecurityControlsConfigurationProperty -> Maybe (ValueList Text)
securityControlCustomParameters :: SecurityControlsConfigurationProperty
-> Maybe [SecurityControlCustomParameterProperty]
haddock_workaround_ :: ()
disabledSecurityControlIdentifiers :: Maybe (ValueList Text)
enabledSecurityControlIdentifiers :: Maybe (ValueList Text)
securityControlCustomParameters :: Maybe [SecurityControlCustomParameterProperty]
..}
= SecurityControlsConfigurationProperty
{enabledSecurityControlIdentifiers :: Maybe (ValueList Text)
enabledSecurityControlIdentifiers = ValueList Text -> Maybe (ValueList Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
"EnabledSecurityControlIdentifiers"
SecurityControlsConfigurationProperty
ValueList Text
newValue, Maybe [SecurityControlCustomParameterProperty]
Maybe (ValueList Text)
()
haddock_workaround_ :: ()
disabledSecurityControlIdentifiers :: Maybe (ValueList Text)
securityControlCustomParameters :: Maybe [SecurityControlCustomParameterProperty]
haddock_workaround_ :: ()
disabledSecurityControlIdentifiers :: Maybe (ValueList Text)
securityControlCustomParameters :: Maybe [SecurityControlCustomParameterProperty]
..}
instance Property "SecurityControlCustomParameters" SecurityControlsConfigurationProperty where
type PropertyType "SecurityControlCustomParameters" SecurityControlsConfigurationProperty = [SecurityControlCustomParameterProperty]
set :: PropertyType
"SecurityControlCustomParameters"
SecurityControlsConfigurationProperty
-> SecurityControlsConfigurationProperty
-> SecurityControlsConfigurationProperty
set PropertyType
"SecurityControlCustomParameters"
SecurityControlsConfigurationProperty
newValue SecurityControlsConfigurationProperty {Maybe [SecurityControlCustomParameterProperty]
Maybe (ValueList Text)
()
haddock_workaround_ :: SecurityControlsConfigurationProperty -> ()
disabledSecurityControlIdentifiers :: SecurityControlsConfigurationProperty -> Maybe (ValueList Text)
enabledSecurityControlIdentifiers :: SecurityControlsConfigurationProperty -> Maybe (ValueList Text)
securityControlCustomParameters :: SecurityControlsConfigurationProperty
-> Maybe [SecurityControlCustomParameterProperty]
haddock_workaround_ :: ()
disabledSecurityControlIdentifiers :: Maybe (ValueList Text)
enabledSecurityControlIdentifiers :: Maybe (ValueList Text)
securityControlCustomParameters :: Maybe [SecurityControlCustomParameterProperty]
..}
= SecurityControlsConfigurationProperty
{securityControlCustomParameters :: Maybe [SecurityControlCustomParameterProperty]
securityControlCustomParameters = [SecurityControlCustomParameterProperty]
-> Maybe [SecurityControlCustomParameterProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [SecurityControlCustomParameterProperty]
PropertyType
"SecurityControlCustomParameters"
SecurityControlsConfigurationProperty
newValue, Maybe (ValueList Text)
()
haddock_workaround_ :: ()
disabledSecurityControlIdentifiers :: Maybe (ValueList Text)
enabledSecurityControlIdentifiers :: Maybe (ValueList Text)
haddock_workaround_ :: ()
disabledSecurityControlIdentifiers :: Maybe (ValueList Text)
enabledSecurityControlIdentifiers :: Maybe (ValueList Text)
..}