module Stratosphere.Invoicing.InvoiceUnit.RuleProperty (
        RuleProperty(..), mkRuleProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data RuleProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-invoicing-invoiceunit-rule.html>
    RuleProperty {RuleProperty -> ()
haddock_workaround_ :: (),
                  -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-invoicing-invoiceunit-rule.html#cfn-invoicing-invoiceunit-rule-linkedaccounts>
                  RuleProperty -> ValueList Text
linkedAccounts :: (ValueList Prelude.Text)}
  deriving stock (RuleProperty -> RuleProperty -> Bool
(RuleProperty -> RuleProperty -> Bool)
-> (RuleProperty -> RuleProperty -> Bool) -> Eq RuleProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RuleProperty -> RuleProperty -> Bool
== :: RuleProperty -> RuleProperty -> Bool
$c/= :: RuleProperty -> RuleProperty -> Bool
/= :: RuleProperty -> RuleProperty -> Bool
Prelude.Eq, Int -> RuleProperty -> ShowS
[RuleProperty] -> ShowS
RuleProperty -> String
(Int -> RuleProperty -> ShowS)
-> (RuleProperty -> String)
-> ([RuleProperty] -> ShowS)
-> Show RuleProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RuleProperty -> ShowS
showsPrec :: Int -> RuleProperty -> ShowS
$cshow :: RuleProperty -> String
show :: RuleProperty -> String
$cshowList :: [RuleProperty] -> ShowS
showList :: [RuleProperty] -> ShowS
Prelude.Show)
mkRuleProperty :: ValueList Prelude.Text -> RuleProperty
mkRuleProperty :: ValueList Text -> RuleProperty
mkRuleProperty ValueList Text
linkedAccounts
  = RuleProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), linkedAccounts :: ValueList Text
linkedAccounts = ValueList Text
linkedAccounts}
instance ToResourceProperties RuleProperty where
  toResourceProperties :: RuleProperty -> ResourceProperties
toResourceProperties RuleProperty {()
ValueList Text
haddock_workaround_ :: RuleProperty -> ()
linkedAccounts :: RuleProperty -> ValueList Text
haddock_workaround_ :: ()
linkedAccounts :: ValueList Text
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Invoicing::InvoiceUnit.Rule",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"LinkedAccounts" 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
linkedAccounts]}
instance JSON.ToJSON RuleProperty where
  toJSON :: RuleProperty -> Value
toJSON RuleProperty {()
ValueList Text
haddock_workaround_ :: RuleProperty -> ()
linkedAccounts :: RuleProperty -> ValueList Text
haddock_workaround_ :: ()
linkedAccounts :: ValueList Text
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"LinkedAccounts" 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
linkedAccounts]
instance Property "LinkedAccounts" RuleProperty where
  type PropertyType "LinkedAccounts" RuleProperty = ValueList Prelude.Text
  set :: PropertyType "LinkedAccounts" RuleProperty
-> RuleProperty -> RuleProperty
set PropertyType "LinkedAccounts" RuleProperty
newValue RuleProperty {()
ValueList Text
haddock_workaround_ :: RuleProperty -> ()
linkedAccounts :: RuleProperty -> ValueList Text
haddock_workaround_ :: ()
linkedAccounts :: ValueList Text
..}
    = RuleProperty {linkedAccounts :: ValueList Text
linkedAccounts = PropertyType "LinkedAccounts" RuleProperty
ValueList Text
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}