module Stratosphere.DynamoDB.GlobalTable.ReplicaStreamSpecificationProperty (
        module Exports, ReplicaStreamSpecificationProperty(..),
        mkReplicaStreamSpecificationProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.DynamoDB.GlobalTable.ResourcePolicyProperty as Exports
import Stratosphere.ResourceProperties
data ReplicaStreamSpecificationProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-globaltable-replicastreamspecification.html>
    ReplicaStreamSpecificationProperty {ReplicaStreamSpecificationProperty -> ()
haddock_workaround_ :: (),
                                        -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-dynamodb-globaltable-replicastreamspecification.html#cfn-dynamodb-globaltable-replicastreamspecification-resourcepolicy>
                                        ReplicaStreamSpecificationProperty -> ResourcePolicyProperty
resourcePolicy :: ResourcePolicyProperty}
  deriving stock (ReplicaStreamSpecificationProperty
-> ReplicaStreamSpecificationProperty -> Bool
(ReplicaStreamSpecificationProperty
 -> ReplicaStreamSpecificationProperty -> Bool)
-> (ReplicaStreamSpecificationProperty
    -> ReplicaStreamSpecificationProperty -> Bool)
-> Eq ReplicaStreamSpecificationProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ReplicaStreamSpecificationProperty
-> ReplicaStreamSpecificationProperty -> Bool
== :: ReplicaStreamSpecificationProperty
-> ReplicaStreamSpecificationProperty -> Bool
$c/= :: ReplicaStreamSpecificationProperty
-> ReplicaStreamSpecificationProperty -> Bool
/= :: ReplicaStreamSpecificationProperty
-> ReplicaStreamSpecificationProperty -> Bool
Prelude.Eq, Int -> ReplicaStreamSpecificationProperty -> ShowS
[ReplicaStreamSpecificationProperty] -> ShowS
ReplicaStreamSpecificationProperty -> String
(Int -> ReplicaStreamSpecificationProperty -> ShowS)
-> (ReplicaStreamSpecificationProperty -> String)
-> ([ReplicaStreamSpecificationProperty] -> ShowS)
-> Show ReplicaStreamSpecificationProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ReplicaStreamSpecificationProperty -> ShowS
showsPrec :: Int -> ReplicaStreamSpecificationProperty -> ShowS
$cshow :: ReplicaStreamSpecificationProperty -> String
show :: ReplicaStreamSpecificationProperty -> String
$cshowList :: [ReplicaStreamSpecificationProperty] -> ShowS
showList :: [ReplicaStreamSpecificationProperty] -> ShowS
Prelude.Show)
mkReplicaStreamSpecificationProperty ::
  ResourcePolicyProperty -> ReplicaStreamSpecificationProperty
mkReplicaStreamSpecificationProperty :: ResourcePolicyProperty -> ReplicaStreamSpecificationProperty
mkReplicaStreamSpecificationProperty ResourcePolicyProperty
resourcePolicy
  = ReplicaStreamSpecificationProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), resourcePolicy :: ResourcePolicyProperty
resourcePolicy = ResourcePolicyProperty
resourcePolicy}
instance ToResourceProperties ReplicaStreamSpecificationProperty where
  toResourceProperties :: ReplicaStreamSpecificationProperty -> ResourceProperties
toResourceProperties ReplicaStreamSpecificationProperty {()
ResourcePolicyProperty
haddock_workaround_ :: ReplicaStreamSpecificationProperty -> ()
resourcePolicy :: ReplicaStreamSpecificationProperty -> ResourcePolicyProperty
haddock_workaround_ :: ()
resourcePolicy :: ResourcePolicyProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::DynamoDB::GlobalTable.ReplicaStreamSpecification",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"ResourcePolicy" Key -> ResourcePolicyProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ResourcePolicyProperty
resourcePolicy]}
instance JSON.ToJSON ReplicaStreamSpecificationProperty where
  toJSON :: ReplicaStreamSpecificationProperty -> Value
toJSON ReplicaStreamSpecificationProperty {()
ResourcePolicyProperty
haddock_workaround_ :: ReplicaStreamSpecificationProperty -> ()
resourcePolicy :: ReplicaStreamSpecificationProperty -> ResourcePolicyProperty
haddock_workaround_ :: ()
resourcePolicy :: ResourcePolicyProperty
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"ResourcePolicy" Key -> ResourcePolicyProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= ResourcePolicyProperty
resourcePolicy]
instance Property "ResourcePolicy" ReplicaStreamSpecificationProperty where
  type PropertyType "ResourcePolicy" ReplicaStreamSpecificationProperty = ResourcePolicyProperty
  set :: PropertyType "ResourcePolicy" ReplicaStreamSpecificationProperty
-> ReplicaStreamSpecificationProperty
-> ReplicaStreamSpecificationProperty
set PropertyType "ResourcePolicy" ReplicaStreamSpecificationProperty
newValue ReplicaStreamSpecificationProperty {()
ResourcePolicyProperty
haddock_workaround_ :: ReplicaStreamSpecificationProperty -> ()
resourcePolicy :: ReplicaStreamSpecificationProperty -> ResourcePolicyProperty
haddock_workaround_ :: ()
resourcePolicy :: ResourcePolicyProperty
..}
    = ReplicaStreamSpecificationProperty
        {resourcePolicy :: ResourcePolicyProperty
resourcePolicy = PropertyType "ResourcePolicy" ReplicaStreamSpecificationProperty
ResourcePolicyProperty
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}