module Stratosphere.InspectorV2.CodeSecurityScanConfiguration.CodeSecurityScanConfigurationProperty (
module Exports, CodeSecurityScanConfigurationProperty(..),
mkCodeSecurityScanConfigurationProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.InspectorV2.CodeSecurityScanConfiguration.ContinuousIntegrationScanConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.InspectorV2.CodeSecurityScanConfiguration.PeriodicScanConfigurationProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data CodeSecurityScanConfigurationProperty
=
CodeSecurityScanConfigurationProperty {CodeSecurityScanConfigurationProperty -> ()
haddock_workaround_ :: (),
CodeSecurityScanConfigurationProperty
-> Maybe ContinuousIntegrationScanConfigurationProperty
continuousIntegrationScanConfiguration :: (Prelude.Maybe ContinuousIntegrationScanConfigurationProperty),
CodeSecurityScanConfigurationProperty
-> Maybe PeriodicScanConfigurationProperty
periodicScanConfiguration :: (Prelude.Maybe PeriodicScanConfigurationProperty),
CodeSecurityScanConfigurationProperty -> ValueList Text
ruleSetCategories :: (ValueList Prelude.Text)}
deriving stock (CodeSecurityScanConfigurationProperty
-> CodeSecurityScanConfigurationProperty -> Bool
(CodeSecurityScanConfigurationProperty
-> CodeSecurityScanConfigurationProperty -> Bool)
-> (CodeSecurityScanConfigurationProperty
-> CodeSecurityScanConfigurationProperty -> Bool)
-> Eq CodeSecurityScanConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CodeSecurityScanConfigurationProperty
-> CodeSecurityScanConfigurationProperty -> Bool
== :: CodeSecurityScanConfigurationProperty
-> CodeSecurityScanConfigurationProperty -> Bool
$c/= :: CodeSecurityScanConfigurationProperty
-> CodeSecurityScanConfigurationProperty -> Bool
/= :: CodeSecurityScanConfigurationProperty
-> CodeSecurityScanConfigurationProperty -> Bool
Prelude.Eq, Int -> CodeSecurityScanConfigurationProperty -> ShowS
[CodeSecurityScanConfigurationProperty] -> ShowS
CodeSecurityScanConfigurationProperty -> String
(Int -> CodeSecurityScanConfigurationProperty -> ShowS)
-> (CodeSecurityScanConfigurationProperty -> String)
-> ([CodeSecurityScanConfigurationProperty] -> ShowS)
-> Show CodeSecurityScanConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> CodeSecurityScanConfigurationProperty -> ShowS
showsPrec :: Int -> CodeSecurityScanConfigurationProperty -> ShowS
$cshow :: CodeSecurityScanConfigurationProperty -> String
show :: CodeSecurityScanConfigurationProperty -> String
$cshowList :: [CodeSecurityScanConfigurationProperty] -> ShowS
showList :: [CodeSecurityScanConfigurationProperty] -> ShowS
Prelude.Show)
mkCodeSecurityScanConfigurationProperty ::
ValueList Prelude.Text -> CodeSecurityScanConfigurationProperty
mkCodeSecurityScanConfigurationProperty :: ValueList Text -> CodeSecurityScanConfigurationProperty
mkCodeSecurityScanConfigurationProperty ValueList Text
ruleSetCategories
= CodeSecurityScanConfigurationProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), ruleSetCategories :: ValueList Text
ruleSetCategories = ValueList Text
ruleSetCategories,
continuousIntegrationScanConfiguration :: Maybe ContinuousIntegrationScanConfigurationProperty
continuousIntegrationScanConfiguration = Maybe ContinuousIntegrationScanConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
periodicScanConfiguration :: Maybe PeriodicScanConfigurationProperty
periodicScanConfiguration = Maybe PeriodicScanConfigurationProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties CodeSecurityScanConfigurationProperty where
toResourceProperties :: CodeSecurityScanConfigurationProperty -> ResourceProperties
toResourceProperties CodeSecurityScanConfigurationProperty {Maybe ContinuousIntegrationScanConfigurationProperty
Maybe PeriodicScanConfigurationProperty
()
ValueList Text
haddock_workaround_ :: CodeSecurityScanConfigurationProperty -> ()
continuousIntegrationScanConfiguration :: CodeSecurityScanConfigurationProperty
-> Maybe ContinuousIntegrationScanConfigurationProperty
periodicScanConfiguration :: CodeSecurityScanConfigurationProperty
-> Maybe PeriodicScanConfigurationProperty
ruleSetCategories :: CodeSecurityScanConfigurationProperty -> ValueList Text
haddock_workaround_ :: ()
continuousIntegrationScanConfiguration :: Maybe ContinuousIntegrationScanConfigurationProperty
periodicScanConfiguration :: Maybe PeriodicScanConfigurationProperty
ruleSetCategories :: ValueList Text
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::InspectorV2::CodeSecurityScanConfiguration.CodeSecurityScanConfiguration",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
[Key
"ruleSetCategories" 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..= ValueList Text
ruleSetCategories]
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key
-> ContinuousIntegrationScanConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"continuousIntegrationScanConfiguration"
(ContinuousIntegrationScanConfigurationProperty -> (Key, Value))
-> Maybe ContinuousIntegrationScanConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ContinuousIntegrationScanConfigurationProperty
continuousIntegrationScanConfiguration,
Key -> PeriodicScanConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"periodicScanConfiguration"
(PeriodicScanConfigurationProperty -> (Key, Value))
-> Maybe PeriodicScanConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PeriodicScanConfigurationProperty
periodicScanConfiguration]))}
instance JSON.ToJSON CodeSecurityScanConfigurationProperty where
toJSON :: CodeSecurityScanConfigurationProperty -> Value
toJSON CodeSecurityScanConfigurationProperty {Maybe ContinuousIntegrationScanConfigurationProperty
Maybe PeriodicScanConfigurationProperty
()
ValueList Text
haddock_workaround_ :: CodeSecurityScanConfigurationProperty -> ()
continuousIntegrationScanConfiguration :: CodeSecurityScanConfigurationProperty
-> Maybe ContinuousIntegrationScanConfigurationProperty
periodicScanConfiguration :: CodeSecurityScanConfigurationProperty
-> Maybe PeriodicScanConfigurationProperty
ruleSetCategories :: CodeSecurityScanConfigurationProperty -> ValueList Text
haddock_workaround_ :: ()
continuousIntegrationScanConfiguration :: Maybe ContinuousIntegrationScanConfigurationProperty
periodicScanConfiguration :: Maybe PeriodicScanConfigurationProperty
ruleSetCategories :: ValueList Text
..}
= [(Key, Value)] -> Value
JSON.object
([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
([(Key, Value)] -> [(Key, Value)] -> [(Key, Value)]
forall a. Semigroup a => a -> a -> a
(Prelude.<>)
[Key
"ruleSetCategories" 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..= ValueList Text
ruleSetCategories]
([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
[Key
-> ContinuousIntegrationScanConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"continuousIntegrationScanConfiguration"
(ContinuousIntegrationScanConfigurationProperty -> (Key, Value))
-> Maybe ContinuousIntegrationScanConfigurationProperty
-> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ContinuousIntegrationScanConfigurationProperty
continuousIntegrationScanConfiguration,
Key -> PeriodicScanConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"periodicScanConfiguration"
(PeriodicScanConfigurationProperty -> (Key, Value))
-> Maybe PeriodicScanConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe PeriodicScanConfigurationProperty
periodicScanConfiguration])))
instance Property "continuousIntegrationScanConfiguration" CodeSecurityScanConfigurationProperty where
type PropertyType "continuousIntegrationScanConfiguration" CodeSecurityScanConfigurationProperty = ContinuousIntegrationScanConfigurationProperty
set :: PropertyType
"continuousIntegrationScanConfiguration"
CodeSecurityScanConfigurationProperty
-> CodeSecurityScanConfigurationProperty
-> CodeSecurityScanConfigurationProperty
set PropertyType
"continuousIntegrationScanConfiguration"
CodeSecurityScanConfigurationProperty
newValue CodeSecurityScanConfigurationProperty {Maybe ContinuousIntegrationScanConfigurationProperty
Maybe PeriodicScanConfigurationProperty
()
ValueList Text
haddock_workaround_ :: CodeSecurityScanConfigurationProperty -> ()
continuousIntegrationScanConfiguration :: CodeSecurityScanConfigurationProperty
-> Maybe ContinuousIntegrationScanConfigurationProperty
periodicScanConfiguration :: CodeSecurityScanConfigurationProperty
-> Maybe PeriodicScanConfigurationProperty
ruleSetCategories :: CodeSecurityScanConfigurationProperty -> ValueList Text
haddock_workaround_ :: ()
continuousIntegrationScanConfiguration :: Maybe ContinuousIntegrationScanConfigurationProperty
periodicScanConfiguration :: Maybe PeriodicScanConfigurationProperty
ruleSetCategories :: ValueList Text
..}
= CodeSecurityScanConfigurationProperty
{continuousIntegrationScanConfiguration :: Maybe ContinuousIntegrationScanConfigurationProperty
continuousIntegrationScanConfiguration = ContinuousIntegrationScanConfigurationProperty
-> Maybe ContinuousIntegrationScanConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
"continuousIntegrationScanConfiguration"
CodeSecurityScanConfigurationProperty
ContinuousIntegrationScanConfigurationProperty
newValue,
Maybe PeriodicScanConfigurationProperty
()
ValueList Text
haddock_workaround_ :: ()
periodicScanConfiguration :: Maybe PeriodicScanConfigurationProperty
ruleSetCategories :: ValueList Text
haddock_workaround_ :: ()
periodicScanConfiguration :: Maybe PeriodicScanConfigurationProperty
ruleSetCategories :: ValueList Text
..}
instance Property "periodicScanConfiguration" CodeSecurityScanConfigurationProperty where
type PropertyType "periodicScanConfiguration" CodeSecurityScanConfigurationProperty = PeriodicScanConfigurationProperty
set :: PropertyType
"periodicScanConfiguration" CodeSecurityScanConfigurationProperty
-> CodeSecurityScanConfigurationProperty
-> CodeSecurityScanConfigurationProperty
set PropertyType
"periodicScanConfiguration" CodeSecurityScanConfigurationProperty
newValue CodeSecurityScanConfigurationProperty {Maybe ContinuousIntegrationScanConfigurationProperty
Maybe PeriodicScanConfigurationProperty
()
ValueList Text
haddock_workaround_ :: CodeSecurityScanConfigurationProperty -> ()
continuousIntegrationScanConfiguration :: CodeSecurityScanConfigurationProperty
-> Maybe ContinuousIntegrationScanConfigurationProperty
periodicScanConfiguration :: CodeSecurityScanConfigurationProperty
-> Maybe PeriodicScanConfigurationProperty
ruleSetCategories :: CodeSecurityScanConfigurationProperty -> ValueList Text
haddock_workaround_ :: ()
continuousIntegrationScanConfiguration :: Maybe ContinuousIntegrationScanConfigurationProperty
periodicScanConfiguration :: Maybe PeriodicScanConfigurationProperty
ruleSetCategories :: ValueList Text
..}
= CodeSecurityScanConfigurationProperty
{periodicScanConfiguration :: Maybe PeriodicScanConfigurationProperty
periodicScanConfiguration = PeriodicScanConfigurationProperty
-> Maybe PeriodicScanConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
"periodicScanConfiguration" CodeSecurityScanConfigurationProperty
PeriodicScanConfigurationProperty
newValue, Maybe ContinuousIntegrationScanConfigurationProperty
()
ValueList Text
haddock_workaround_ :: ()
continuousIntegrationScanConfiguration :: Maybe ContinuousIntegrationScanConfigurationProperty
ruleSetCategories :: ValueList Text
haddock_workaround_ :: ()
continuousIntegrationScanConfiguration :: Maybe ContinuousIntegrationScanConfigurationProperty
ruleSetCategories :: ValueList Text
..}
instance Property "ruleSetCategories" CodeSecurityScanConfigurationProperty where
type PropertyType "ruleSetCategories" CodeSecurityScanConfigurationProperty = ValueList Prelude.Text
set :: PropertyType
"ruleSetCategories" CodeSecurityScanConfigurationProperty
-> CodeSecurityScanConfigurationProperty
-> CodeSecurityScanConfigurationProperty
set PropertyType
"ruleSetCategories" CodeSecurityScanConfigurationProperty
newValue CodeSecurityScanConfigurationProperty {Maybe ContinuousIntegrationScanConfigurationProperty
Maybe PeriodicScanConfigurationProperty
()
ValueList Text
haddock_workaround_ :: CodeSecurityScanConfigurationProperty -> ()
continuousIntegrationScanConfiguration :: CodeSecurityScanConfigurationProperty
-> Maybe ContinuousIntegrationScanConfigurationProperty
periodicScanConfiguration :: CodeSecurityScanConfigurationProperty
-> Maybe PeriodicScanConfigurationProperty
ruleSetCategories :: CodeSecurityScanConfigurationProperty -> ValueList Text
haddock_workaround_ :: ()
continuousIntegrationScanConfiguration :: Maybe ContinuousIntegrationScanConfigurationProperty
periodicScanConfiguration :: Maybe PeriodicScanConfigurationProperty
ruleSetCategories :: ValueList Text
..}
= CodeSecurityScanConfigurationProperty
{ruleSetCategories :: ValueList Text
ruleSetCategories = PropertyType
"ruleSetCategories" CodeSecurityScanConfigurationProperty
ValueList Text
newValue, Maybe ContinuousIntegrationScanConfigurationProperty
Maybe PeriodicScanConfigurationProperty
()
haddock_workaround_ :: ()
continuousIntegrationScanConfiguration :: Maybe ContinuousIntegrationScanConfigurationProperty
periodicScanConfiguration :: Maybe PeriodicScanConfigurationProperty
haddock_workaround_ :: ()
continuousIntegrationScanConfiguration :: Maybe ContinuousIntegrationScanConfigurationProperty
periodicScanConfiguration :: Maybe PeriodicScanConfigurationProperty
..}