module Stratosphere.AccessAnalyzer.Analyzer.ArchiveRuleProperty (
        module Exports, ArchiveRuleProperty(..), mkArchiveRuleProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.AccessAnalyzer.Analyzer.FilterProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data ArchiveRuleProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-accessanalyzer-analyzer-archiverule.html>
    ArchiveRuleProperty {ArchiveRuleProperty -> ()
haddock_workaround_ :: (),
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-accessanalyzer-analyzer-archiverule.html#cfn-accessanalyzer-analyzer-archiverule-filter>
                         ArchiveRuleProperty -> [FilterProperty]
filter :: [FilterProperty],
                         -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-accessanalyzer-analyzer-archiverule.html#cfn-accessanalyzer-analyzer-archiverule-rulename>
                         ArchiveRuleProperty -> Value Text
ruleName :: (Value Prelude.Text)}
  deriving stock (ArchiveRuleProperty -> ArchiveRuleProperty -> Bool
(ArchiveRuleProperty -> ArchiveRuleProperty -> Bool)
-> (ArchiveRuleProperty -> ArchiveRuleProperty -> Bool)
-> Eq ArchiveRuleProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ArchiveRuleProperty -> ArchiveRuleProperty -> Bool
== :: ArchiveRuleProperty -> ArchiveRuleProperty -> Bool
$c/= :: ArchiveRuleProperty -> ArchiveRuleProperty -> Bool
/= :: ArchiveRuleProperty -> ArchiveRuleProperty -> Bool
Prelude.Eq, Int -> ArchiveRuleProperty -> ShowS
[ArchiveRuleProperty] -> ShowS
ArchiveRuleProperty -> String
(Int -> ArchiveRuleProperty -> ShowS)
-> (ArchiveRuleProperty -> String)
-> ([ArchiveRuleProperty] -> ShowS)
-> Show ArchiveRuleProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ArchiveRuleProperty -> ShowS
showsPrec :: Int -> ArchiveRuleProperty -> ShowS
$cshow :: ArchiveRuleProperty -> String
show :: ArchiveRuleProperty -> String
$cshowList :: [ArchiveRuleProperty] -> ShowS
showList :: [ArchiveRuleProperty] -> ShowS
Prelude.Show)
mkArchiveRuleProperty ::
  [FilterProperty] -> Value Prelude.Text -> ArchiveRuleProperty
mkArchiveRuleProperty :: [FilterProperty] -> Value Text -> ArchiveRuleProperty
mkArchiveRuleProperty [FilterProperty]
filter Value Text
ruleName
  = ArchiveRuleProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), filter :: [FilterProperty]
filter = [FilterProperty]
filter, ruleName :: Value Text
ruleName = Value Text
ruleName}
instance ToResourceProperties ArchiveRuleProperty where
  toResourceProperties :: ArchiveRuleProperty -> ResourceProperties
toResourceProperties ArchiveRuleProperty {[FilterProperty]
()
Value Text
haddock_workaround_ :: ArchiveRuleProperty -> ()
filter :: ArchiveRuleProperty -> [FilterProperty]
ruleName :: ArchiveRuleProperty -> Value Text
haddock_workaround_ :: ()
filter :: [FilterProperty]
ruleName :: Value Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::AccessAnalyzer::Analyzer.ArchiveRule",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"Filter" Key -> [FilterProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [FilterProperty]
filter,
                       Key
"RuleName" 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
ruleName]}
instance JSON.ToJSON ArchiveRuleProperty where
  toJSON :: ArchiveRuleProperty -> Value
toJSON ArchiveRuleProperty {[FilterProperty]
()
Value Text
haddock_workaround_ :: ArchiveRuleProperty -> ()
filter :: ArchiveRuleProperty -> [FilterProperty]
ruleName :: ArchiveRuleProperty -> Value Text
haddock_workaround_ :: ()
filter :: [FilterProperty]
ruleName :: Value Text
..}
    = [(Key, Value)] -> Value
JSON.object
        [Key
"Filter" Key -> [FilterProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [FilterProperty]
filter, Key
"RuleName" 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
ruleName]
instance Property "Filter" ArchiveRuleProperty where
  type PropertyType "Filter" ArchiveRuleProperty = [FilterProperty]
  set :: PropertyType "Filter" ArchiveRuleProperty
-> ArchiveRuleProperty -> ArchiveRuleProperty
set PropertyType "Filter" ArchiveRuleProperty
newValue ArchiveRuleProperty {[FilterProperty]
()
Value Text
haddock_workaround_ :: ArchiveRuleProperty -> ()
filter :: ArchiveRuleProperty -> [FilterProperty]
ruleName :: ArchiveRuleProperty -> Value Text
haddock_workaround_ :: ()
filter :: [FilterProperty]
ruleName :: Value Text
..}
    = ArchiveRuleProperty {filter :: [FilterProperty]
filter = [FilterProperty]
PropertyType "Filter" ArchiveRuleProperty
newValue, ()
Value Text
haddock_workaround_ :: ()
ruleName :: Value Text
haddock_workaround_ :: ()
ruleName :: Value Text
..}
instance Property "RuleName" ArchiveRuleProperty where
  type PropertyType "RuleName" ArchiveRuleProperty = Value Prelude.Text
  set :: PropertyType "RuleName" ArchiveRuleProperty
-> ArchiveRuleProperty -> ArchiveRuleProperty
set PropertyType "RuleName" ArchiveRuleProperty
newValue ArchiveRuleProperty {[FilterProperty]
()
Value Text
haddock_workaround_ :: ArchiveRuleProperty -> ()
filter :: ArchiveRuleProperty -> [FilterProperty]
ruleName :: ArchiveRuleProperty -> Value Text
haddock_workaround_ :: ()
filter :: [FilterProperty]
ruleName :: Value Text
..}
    = ArchiveRuleProperty {ruleName :: Value Text
ruleName = PropertyType "RuleName" ArchiveRuleProperty
Value Text
newValue, [FilterProperty]
()
haddock_workaround_ :: ()
filter :: [FilterProperty]
haddock_workaround_ :: ()
filter :: [FilterProperty]
..}