module Stratosphere.AccessAnalyzer.Analyzer.AnalyzerConfigurationProperty (
        module Exports, AnalyzerConfigurationProperty(..),
        mkAnalyzerConfigurationProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.AccessAnalyzer.Analyzer.InternalAccessConfigurationProperty as Exports
import {-# SOURCE #-} Stratosphere.AccessAnalyzer.Analyzer.UnusedAccessConfigurationProperty as Exports
import Stratosphere.ResourceProperties
data AnalyzerConfigurationProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-accessanalyzer-analyzer-analyzerconfiguration.html>
    AnalyzerConfigurationProperty {AnalyzerConfigurationProperty -> ()
haddock_workaround_ :: (),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-accessanalyzer-analyzer-analyzerconfiguration.html#cfn-accessanalyzer-analyzer-analyzerconfiguration-internalaccessconfiguration>
                                   AnalyzerConfigurationProperty
-> Maybe InternalAccessConfigurationProperty
internalAccessConfiguration :: (Prelude.Maybe InternalAccessConfigurationProperty),
                                   -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-accessanalyzer-analyzer-analyzerconfiguration.html#cfn-accessanalyzer-analyzer-analyzerconfiguration-unusedaccessconfiguration>
                                   AnalyzerConfigurationProperty
-> Maybe UnusedAccessConfigurationProperty
unusedAccessConfiguration :: (Prelude.Maybe UnusedAccessConfigurationProperty)}
  deriving stock (AnalyzerConfigurationProperty
-> AnalyzerConfigurationProperty -> Bool
(AnalyzerConfigurationProperty
 -> AnalyzerConfigurationProperty -> Bool)
-> (AnalyzerConfigurationProperty
    -> AnalyzerConfigurationProperty -> Bool)
-> Eq AnalyzerConfigurationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AnalyzerConfigurationProperty
-> AnalyzerConfigurationProperty -> Bool
== :: AnalyzerConfigurationProperty
-> AnalyzerConfigurationProperty -> Bool
$c/= :: AnalyzerConfigurationProperty
-> AnalyzerConfigurationProperty -> Bool
/= :: AnalyzerConfigurationProperty
-> AnalyzerConfigurationProperty -> Bool
Prelude.Eq, Int -> AnalyzerConfigurationProperty -> ShowS
[AnalyzerConfigurationProperty] -> ShowS
AnalyzerConfigurationProperty -> String
(Int -> AnalyzerConfigurationProperty -> ShowS)
-> (AnalyzerConfigurationProperty -> String)
-> ([AnalyzerConfigurationProperty] -> ShowS)
-> Show AnalyzerConfigurationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AnalyzerConfigurationProperty -> ShowS
showsPrec :: Int -> AnalyzerConfigurationProperty -> ShowS
$cshow :: AnalyzerConfigurationProperty -> String
show :: AnalyzerConfigurationProperty -> String
$cshowList :: [AnalyzerConfigurationProperty] -> ShowS
showList :: [AnalyzerConfigurationProperty] -> ShowS
Prelude.Show)
mkAnalyzerConfigurationProperty :: AnalyzerConfigurationProperty
mkAnalyzerConfigurationProperty :: AnalyzerConfigurationProperty
mkAnalyzerConfigurationProperty
  = AnalyzerConfigurationProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (),
       internalAccessConfiguration :: Maybe InternalAccessConfigurationProperty
internalAccessConfiguration = Maybe InternalAccessConfigurationProperty
forall a. Maybe a
Prelude.Nothing,
       unusedAccessConfiguration :: Maybe UnusedAccessConfigurationProperty
unusedAccessConfiguration = Maybe UnusedAccessConfigurationProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties AnalyzerConfigurationProperty where
  toResourceProperties :: AnalyzerConfigurationProperty -> ResourceProperties
toResourceProperties AnalyzerConfigurationProperty {Maybe InternalAccessConfigurationProperty
Maybe UnusedAccessConfigurationProperty
()
haddock_workaround_ :: AnalyzerConfigurationProperty -> ()
internalAccessConfiguration :: AnalyzerConfigurationProperty
-> Maybe InternalAccessConfigurationProperty
unusedAccessConfiguration :: AnalyzerConfigurationProperty
-> Maybe UnusedAccessConfigurationProperty
haddock_workaround_ :: ()
internalAccessConfiguration :: Maybe InternalAccessConfigurationProperty
unusedAccessConfiguration :: Maybe UnusedAccessConfigurationProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::AccessAnalyzer::Analyzer.AnalyzerConfiguration",
         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 -> InternalAccessConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"InternalAccessConfiguration"
                              (InternalAccessConfigurationProperty -> (Key, Value))
-> Maybe InternalAccessConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe InternalAccessConfigurationProperty
internalAccessConfiguration,
                            Key -> UnusedAccessConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"UnusedAccessConfiguration"
                              (UnusedAccessConfigurationProperty -> (Key, Value))
-> Maybe UnusedAccessConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe UnusedAccessConfigurationProperty
unusedAccessConfiguration])}
instance JSON.ToJSON AnalyzerConfigurationProperty where
  toJSON :: AnalyzerConfigurationProperty -> Value
toJSON AnalyzerConfigurationProperty {Maybe InternalAccessConfigurationProperty
Maybe UnusedAccessConfigurationProperty
()
haddock_workaround_ :: AnalyzerConfigurationProperty -> ()
internalAccessConfiguration :: AnalyzerConfigurationProperty
-> Maybe InternalAccessConfigurationProperty
unusedAccessConfiguration :: AnalyzerConfigurationProperty
-> Maybe UnusedAccessConfigurationProperty
haddock_workaround_ :: ()
internalAccessConfiguration :: Maybe InternalAccessConfigurationProperty
unusedAccessConfiguration :: Maybe UnusedAccessConfigurationProperty
..}
    = [(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 -> InternalAccessConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"InternalAccessConfiguration"
                 (InternalAccessConfigurationProperty -> (Key, Value))
-> Maybe InternalAccessConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe InternalAccessConfigurationProperty
internalAccessConfiguration,
               Key -> UnusedAccessConfigurationProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"UnusedAccessConfiguration"
                 (UnusedAccessConfigurationProperty -> (Key, Value))
-> Maybe UnusedAccessConfigurationProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe UnusedAccessConfigurationProperty
unusedAccessConfiguration]))
instance Property "InternalAccessConfiguration" AnalyzerConfigurationProperty where
  type PropertyType "InternalAccessConfiguration" AnalyzerConfigurationProperty = InternalAccessConfigurationProperty
  set :: PropertyType
  "InternalAccessConfiguration" AnalyzerConfigurationProperty
-> AnalyzerConfigurationProperty -> AnalyzerConfigurationProperty
set PropertyType
  "InternalAccessConfiguration" AnalyzerConfigurationProperty
newValue AnalyzerConfigurationProperty {Maybe InternalAccessConfigurationProperty
Maybe UnusedAccessConfigurationProperty
()
haddock_workaround_ :: AnalyzerConfigurationProperty -> ()
internalAccessConfiguration :: AnalyzerConfigurationProperty
-> Maybe InternalAccessConfigurationProperty
unusedAccessConfiguration :: AnalyzerConfigurationProperty
-> Maybe UnusedAccessConfigurationProperty
haddock_workaround_ :: ()
internalAccessConfiguration :: Maybe InternalAccessConfigurationProperty
unusedAccessConfiguration :: Maybe UnusedAccessConfigurationProperty
..}
    = AnalyzerConfigurationProperty
        {internalAccessConfiguration :: Maybe InternalAccessConfigurationProperty
internalAccessConfiguration = InternalAccessConfigurationProperty
-> Maybe InternalAccessConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "InternalAccessConfiguration" AnalyzerConfigurationProperty
InternalAccessConfigurationProperty
newValue, Maybe UnusedAccessConfigurationProperty
()
haddock_workaround_ :: ()
unusedAccessConfiguration :: Maybe UnusedAccessConfigurationProperty
haddock_workaround_ :: ()
unusedAccessConfiguration :: Maybe UnusedAccessConfigurationProperty
..}
instance Property "UnusedAccessConfiguration" AnalyzerConfigurationProperty where
  type PropertyType "UnusedAccessConfiguration" AnalyzerConfigurationProperty = UnusedAccessConfigurationProperty
  set :: PropertyType
  "UnusedAccessConfiguration" AnalyzerConfigurationProperty
-> AnalyzerConfigurationProperty -> AnalyzerConfigurationProperty
set PropertyType
  "UnusedAccessConfiguration" AnalyzerConfigurationProperty
newValue AnalyzerConfigurationProperty {Maybe InternalAccessConfigurationProperty
Maybe UnusedAccessConfigurationProperty
()
haddock_workaround_ :: AnalyzerConfigurationProperty -> ()
internalAccessConfiguration :: AnalyzerConfigurationProperty
-> Maybe InternalAccessConfigurationProperty
unusedAccessConfiguration :: AnalyzerConfigurationProperty
-> Maybe UnusedAccessConfigurationProperty
haddock_workaround_ :: ()
internalAccessConfiguration :: Maybe InternalAccessConfigurationProperty
unusedAccessConfiguration :: Maybe UnusedAccessConfigurationProperty
..}
    = AnalyzerConfigurationProperty
        {unusedAccessConfiguration :: Maybe UnusedAccessConfigurationProperty
unusedAccessConfiguration = UnusedAccessConfigurationProperty
-> Maybe UnusedAccessConfigurationProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType
  "UnusedAccessConfiguration" AnalyzerConfigurationProperty
UnusedAccessConfigurationProperty
newValue, Maybe InternalAccessConfigurationProperty
()
haddock_workaround_ :: ()
internalAccessConfiguration :: Maybe InternalAccessConfigurationProperty
haddock_workaround_ :: ()
internalAccessConfiguration :: Maybe InternalAccessConfigurationProperty
..}