stratosphere-cassandra (empty) → 1.0.0
raw patch · 31 files changed
+1188/−0 lines, 31 filesdep +aesondep +basedep +stratosphere
Dependencies added: aeson, base, stratosphere
Files
- LICENSE.md +20/−0
- gen/Stratosphere/Cassandra/Keyspace.hs +69/−0
- gen/Stratosphere/Cassandra/Keyspace/ReplicationSpecificationProperty.hs +49/−0
- gen/Stratosphere/Cassandra/Keyspace/ReplicationSpecificationProperty.hs-boot +9/−0
- gen/Stratosphere/Cassandra/Table.hs +168/−0
- gen/Stratosphere/Cassandra/Table/AutoScalingSettingProperty.hs +68/−0
- gen/Stratosphere/Cassandra/Table/AutoScalingSettingProperty.hs-boot +9/−0
- gen/Stratosphere/Cassandra/Table/AutoScalingSpecificationProperty.hs +54/−0
- gen/Stratosphere/Cassandra/Table/AutoScalingSpecificationProperty.hs-boot +9/−0
- gen/Stratosphere/Cassandra/Table/BillingModeProperty.hs +51/−0
- gen/Stratosphere/Cassandra/Table/BillingModeProperty.hs-boot +9/−0
- gen/Stratosphere/Cassandra/Table/CdcSpecificationProperty.hs +57/−0
- gen/Stratosphere/Cassandra/Table/CdcSpecificationProperty.hs-boot +9/−0
- gen/Stratosphere/Cassandra/Table/ClusteringKeyColumnProperty.hs +48/−0
- gen/Stratosphere/Cassandra/Table/ClusteringKeyColumnProperty.hs-boot +9/−0
- gen/Stratosphere/Cassandra/Table/ColumnProperty.hs +41/−0
- gen/Stratosphere/Cassandra/Table/ColumnProperty.hs-boot +9/−0
- gen/Stratosphere/Cassandra/Table/EncryptionSpecificationProperty.hs +50/−0
- gen/Stratosphere/Cassandra/Table/EncryptionSpecificationProperty.hs-boot +9/−0
- gen/Stratosphere/Cassandra/Table/ProvisionedThroughputProperty.hs +45/−0
- gen/Stratosphere/Cassandra/Table/ProvisionedThroughputProperty.hs-boot +9/−0
- gen/Stratosphere/Cassandra/Table/ReplicaSpecificationProperty.hs +63/−0
- gen/Stratosphere/Cassandra/Table/ReplicaSpecificationProperty.hs-boot +9/−0
- gen/Stratosphere/Cassandra/Table/ScalingPolicyProperty.hs +41/−0
- gen/Stratosphere/Cassandra/Table/ScalingPolicyProperty.hs-boot +9/−0
- gen/Stratosphere/Cassandra/Table/TargetTrackingScalingPolicyConfigurationProperty.hs +73/−0
- gen/Stratosphere/Cassandra/Table/TargetTrackingScalingPolicyConfigurationProperty.hs-boot +9/−0
- gen/Stratosphere/Cassandra/Type.hs +45/−0
- gen/Stratosphere/Cassandra/Type/FieldProperty.hs +41/−0
- gen/Stratosphere/Cassandra/Type/FieldProperty.hs-boot +9/−0
- stratosphere-cassandra.cabal +88/−0
+ LICENSE.md view
@@ -0,0 +1,20 @@+Copyright (c) 2016 David Reaver+Copyright (c) 2022 Markus Schirp++Permission is hereby granted, free of charge, to any person obtaining a copy of+this software and associated documentation files (the "Software"), to deal in+the Software without restriction, including without limitation the rights to+use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies+of the Software, and to permit persons to whom the Software is furnished to do+so, subject to the following conditions:++The above copyright notice and this permission notice shall be included in all+copies or substantial portions of the Software.++THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE+SOFTWARE.
+ gen/Stratosphere/Cassandra/Keyspace.hs view
@@ -0,0 +1,69 @@+module Stratosphere.Cassandra.Keyspace (+ module Exports, Keyspace(..), mkKeyspace+ ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import {-# SOURCE #-} Stratosphere.Cassandra.Keyspace.ReplicationSpecificationProperty as Exports+import Stratosphere.ResourceProperties+import Stratosphere.Tag+import Stratosphere.Value+data Keyspace+ = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-keyspace.html>+ Keyspace {haddock_workaround_ :: (),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-keyspace.html#cfn-cassandra-keyspace-clientsidetimestampsenabled>+ clientSideTimestampsEnabled :: (Prelude.Maybe (Value Prelude.Bool)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-keyspace.html#cfn-cassandra-keyspace-keyspacename>+ keyspaceName :: (Prelude.Maybe (Value Prelude.Text)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-keyspace.html#cfn-cassandra-keyspace-replicationspecification>+ replicationSpecification :: (Prelude.Maybe ReplicationSpecificationProperty),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-keyspace.html#cfn-cassandra-keyspace-tags>+ tags :: (Prelude.Maybe [Tag])}+ deriving stock (Prelude.Eq, Prelude.Show)+mkKeyspace :: Keyspace+mkKeyspace+ = Keyspace+ {haddock_workaround_ = (),+ clientSideTimestampsEnabled = Prelude.Nothing,+ keyspaceName = Prelude.Nothing,+ replicationSpecification = Prelude.Nothing, tags = Prelude.Nothing}+instance ToResourceProperties Keyspace where+ toResourceProperties Keyspace {..}+ = ResourceProperties+ {awsType = "AWS::Cassandra::Keyspace", supportsTags = Prelude.True,+ properties = Prelude.fromList+ (Prelude.catMaybes+ [(JSON..=) "ClientSideTimestampsEnabled"+ Prelude.<$> clientSideTimestampsEnabled,+ (JSON..=) "KeyspaceName" Prelude.<$> keyspaceName,+ (JSON..=) "ReplicationSpecification"+ Prelude.<$> replicationSpecification,+ (JSON..=) "Tags" Prelude.<$> tags])}+instance JSON.ToJSON Keyspace where+ toJSON Keyspace {..}+ = JSON.object+ (Prelude.fromList+ (Prelude.catMaybes+ [(JSON..=) "ClientSideTimestampsEnabled"+ Prelude.<$> clientSideTimestampsEnabled,+ (JSON..=) "KeyspaceName" Prelude.<$> keyspaceName,+ (JSON..=) "ReplicationSpecification"+ Prelude.<$> replicationSpecification,+ (JSON..=) "Tags" Prelude.<$> tags]))+instance Property "ClientSideTimestampsEnabled" Keyspace where+ type PropertyType "ClientSideTimestampsEnabled" Keyspace = Value Prelude.Bool+ set newValue Keyspace {..}+ = Keyspace+ {clientSideTimestampsEnabled = Prelude.pure newValue, ..}+instance Property "KeyspaceName" Keyspace where+ type PropertyType "KeyspaceName" Keyspace = Value Prelude.Text+ set newValue Keyspace {..}+ = Keyspace {keyspaceName = Prelude.pure newValue, ..}+instance Property "ReplicationSpecification" Keyspace where+ type PropertyType "ReplicationSpecification" Keyspace = ReplicationSpecificationProperty+ set newValue Keyspace {..}+ = Keyspace {replicationSpecification = Prelude.pure newValue, ..}+instance Property "Tags" Keyspace where+ type PropertyType "Tags" Keyspace = [Tag]+ set newValue Keyspace {..}+ = Keyspace {tags = Prelude.pure newValue, ..}
+ gen/Stratosphere/Cassandra/Keyspace/ReplicationSpecificationProperty.hs view
@@ -0,0 +1,49 @@+module Stratosphere.Cassandra.Keyspace.ReplicationSpecificationProperty (+ ReplicationSpecificationProperty(..),+ mkReplicationSpecificationProperty+ ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import Stratosphere.ResourceProperties+import Stratosphere.Value+data ReplicationSpecificationProperty+ = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-keyspace-replicationspecification.html>+ ReplicationSpecificationProperty {haddock_workaround_ :: (),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-keyspace-replicationspecification.html#cfn-cassandra-keyspace-replicationspecification-regionlist>+ regionList :: (Prelude.Maybe (ValueList Prelude.Text)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-keyspace-replicationspecification.html#cfn-cassandra-keyspace-replicationspecification-replicationstrategy>+ replicationStrategy :: (Prelude.Maybe (Value Prelude.Text))}+ deriving stock (Prelude.Eq, Prelude.Show)+mkReplicationSpecificationProperty ::+ ReplicationSpecificationProperty+mkReplicationSpecificationProperty+ = ReplicationSpecificationProperty+ {haddock_workaround_ = (), regionList = Prelude.Nothing,+ replicationStrategy = Prelude.Nothing}+instance ToResourceProperties ReplicationSpecificationProperty where+ toResourceProperties ReplicationSpecificationProperty {..}+ = ResourceProperties+ {awsType = "AWS::Cassandra::Keyspace.ReplicationSpecification",+ supportsTags = Prelude.False,+ properties = Prelude.fromList+ (Prelude.catMaybes+ [(JSON..=) "RegionList" Prelude.<$> regionList,+ (JSON..=) "ReplicationStrategy" Prelude.<$> replicationStrategy])}+instance JSON.ToJSON ReplicationSpecificationProperty where+ toJSON ReplicationSpecificationProperty {..}+ = JSON.object+ (Prelude.fromList+ (Prelude.catMaybes+ [(JSON..=) "RegionList" Prelude.<$> regionList,+ (JSON..=) "ReplicationStrategy" Prelude.<$> replicationStrategy]))+instance Property "RegionList" ReplicationSpecificationProperty where+ type PropertyType "RegionList" ReplicationSpecificationProperty = ValueList Prelude.Text+ set newValue ReplicationSpecificationProperty {..}+ = ReplicationSpecificationProperty+ {regionList = Prelude.pure newValue, ..}+instance Property "ReplicationStrategy" ReplicationSpecificationProperty where+ type PropertyType "ReplicationStrategy" ReplicationSpecificationProperty = Value Prelude.Text+ set newValue ReplicationSpecificationProperty {..}+ = ReplicationSpecificationProperty+ {replicationStrategy = Prelude.pure newValue, ..}
+ gen/Stratosphere/Cassandra/Keyspace/ReplicationSpecificationProperty.hs-boot view
@@ -0,0 +1,9 @@+module Stratosphere.Cassandra.Keyspace.ReplicationSpecificationProperty where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.ResourceProperties+data ReplicationSpecificationProperty :: Prelude.Type+instance ToResourceProperties ReplicationSpecificationProperty+instance Prelude.Eq ReplicationSpecificationProperty+instance Prelude.Show ReplicationSpecificationProperty+instance JSON.ToJSON ReplicationSpecificationProperty
+ gen/Stratosphere/Cassandra/Table.hs view
@@ -0,0 +1,168 @@+module Stratosphere.Cassandra.Table (+ module Exports, Table(..), mkTable+ ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import {-# SOURCE #-} Stratosphere.Cassandra.Table.AutoScalingSpecificationProperty as Exports+import {-# SOURCE #-} Stratosphere.Cassandra.Table.BillingModeProperty as Exports+import {-# SOURCE #-} Stratosphere.Cassandra.Table.CdcSpecificationProperty as Exports+import {-# SOURCE #-} Stratosphere.Cassandra.Table.ClusteringKeyColumnProperty as Exports+import {-# SOURCE #-} Stratosphere.Cassandra.Table.ColumnProperty as Exports+import {-# SOURCE #-} Stratosphere.Cassandra.Table.EncryptionSpecificationProperty as Exports+import {-# SOURCE #-} Stratosphere.Cassandra.Table.ReplicaSpecificationProperty as Exports+import Stratosphere.ResourceProperties+import Stratosphere.Tag+import Stratosphere.Value+data Table+ = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html>+ Table {haddock_workaround_ :: (),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-autoscalingspecifications>+ autoScalingSpecifications :: (Prelude.Maybe AutoScalingSpecificationProperty),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-billingmode>+ billingMode :: (Prelude.Maybe BillingModeProperty),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-cdcspecification>+ cdcSpecification :: (Prelude.Maybe CdcSpecificationProperty),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-clientsidetimestampsenabled>+ clientSideTimestampsEnabled :: (Prelude.Maybe (Value Prelude.Bool)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-clusteringkeycolumns>+ clusteringKeyColumns :: (Prelude.Maybe [ClusteringKeyColumnProperty]),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-defaulttimetolive>+ defaultTimeToLive :: (Prelude.Maybe (Value Prelude.Integer)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-encryptionspecification>+ encryptionSpecification :: (Prelude.Maybe EncryptionSpecificationProperty),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-keyspacename>+ keyspaceName :: (Value Prelude.Text),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-partitionkeycolumns>+ partitionKeyColumns :: [ColumnProperty],+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-pointintimerecoveryenabled>+ pointInTimeRecoveryEnabled :: (Prelude.Maybe (Value Prelude.Bool)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-regularcolumns>+ regularColumns :: (Prelude.Maybe [ColumnProperty]),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-replicaspecifications>+ replicaSpecifications :: (Prelude.Maybe [ReplicaSpecificationProperty]),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-tablename>+ tableName :: (Prelude.Maybe (Value Prelude.Text)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-table.html#cfn-cassandra-table-tags>+ tags :: (Prelude.Maybe [Tag])}+ deriving stock (Prelude.Eq, Prelude.Show)+mkTable :: Value Prelude.Text -> [ColumnProperty] -> Table+mkTable keyspaceName partitionKeyColumns+ = Table+ {haddock_workaround_ = (), keyspaceName = keyspaceName,+ partitionKeyColumns = partitionKeyColumns,+ autoScalingSpecifications = Prelude.Nothing,+ billingMode = Prelude.Nothing, cdcSpecification = Prelude.Nothing,+ clientSideTimestampsEnabled = Prelude.Nothing,+ clusteringKeyColumns = Prelude.Nothing,+ defaultTimeToLive = Prelude.Nothing,+ encryptionSpecification = Prelude.Nothing,+ pointInTimeRecoveryEnabled = Prelude.Nothing,+ regularColumns = Prelude.Nothing,+ replicaSpecifications = Prelude.Nothing,+ tableName = Prelude.Nothing, tags = Prelude.Nothing}+instance ToResourceProperties Table where+ toResourceProperties Table {..}+ = ResourceProperties+ {awsType = "AWS::Cassandra::Table", supportsTags = Prelude.True,+ properties = Prelude.fromList+ ((Prelude.<>)+ ["KeyspaceName" JSON..= keyspaceName,+ "PartitionKeyColumns" JSON..= partitionKeyColumns]+ (Prelude.catMaybes+ [(JSON..=) "AutoScalingSpecifications"+ Prelude.<$> autoScalingSpecifications,+ (JSON..=) "BillingMode" Prelude.<$> billingMode,+ (JSON..=) "CdcSpecification" Prelude.<$> cdcSpecification,+ (JSON..=) "ClientSideTimestampsEnabled"+ Prelude.<$> clientSideTimestampsEnabled,+ (JSON..=) "ClusteringKeyColumns" Prelude.<$> clusteringKeyColumns,+ (JSON..=) "DefaultTimeToLive" Prelude.<$> defaultTimeToLive,+ (JSON..=) "EncryptionSpecification"+ Prelude.<$> encryptionSpecification,+ (JSON..=) "PointInTimeRecoveryEnabled"+ Prelude.<$> pointInTimeRecoveryEnabled,+ (JSON..=) "RegularColumns" Prelude.<$> regularColumns,+ (JSON..=) "ReplicaSpecifications"+ Prelude.<$> replicaSpecifications,+ (JSON..=) "TableName" Prelude.<$> tableName,+ (JSON..=) "Tags" Prelude.<$> tags]))}+instance JSON.ToJSON Table where+ toJSON Table {..}+ = JSON.object+ (Prelude.fromList+ ((Prelude.<>)+ ["KeyspaceName" JSON..= keyspaceName,+ "PartitionKeyColumns" JSON..= partitionKeyColumns]+ (Prelude.catMaybes+ [(JSON..=) "AutoScalingSpecifications"+ Prelude.<$> autoScalingSpecifications,+ (JSON..=) "BillingMode" Prelude.<$> billingMode,+ (JSON..=) "CdcSpecification" Prelude.<$> cdcSpecification,+ (JSON..=) "ClientSideTimestampsEnabled"+ Prelude.<$> clientSideTimestampsEnabled,+ (JSON..=) "ClusteringKeyColumns" Prelude.<$> clusteringKeyColumns,+ (JSON..=) "DefaultTimeToLive" Prelude.<$> defaultTimeToLive,+ (JSON..=) "EncryptionSpecification"+ Prelude.<$> encryptionSpecification,+ (JSON..=) "PointInTimeRecoveryEnabled"+ Prelude.<$> pointInTimeRecoveryEnabled,+ (JSON..=) "RegularColumns" Prelude.<$> regularColumns,+ (JSON..=) "ReplicaSpecifications"+ Prelude.<$> replicaSpecifications,+ (JSON..=) "TableName" Prelude.<$> tableName,+ (JSON..=) "Tags" Prelude.<$> tags])))+instance Property "AutoScalingSpecifications" Table where+ type PropertyType "AutoScalingSpecifications" Table = AutoScalingSpecificationProperty+ set newValue Table {..}+ = Table {autoScalingSpecifications = Prelude.pure newValue, ..}+instance Property "BillingMode" Table where+ type PropertyType "BillingMode" Table = BillingModeProperty+ set newValue Table {..}+ = Table {billingMode = Prelude.pure newValue, ..}+instance Property "CdcSpecification" Table where+ type PropertyType "CdcSpecification" Table = CdcSpecificationProperty+ set newValue Table {..}+ = Table {cdcSpecification = Prelude.pure newValue, ..}+instance Property "ClientSideTimestampsEnabled" Table where+ type PropertyType "ClientSideTimestampsEnabled" Table = Value Prelude.Bool+ set newValue Table {..}+ = Table {clientSideTimestampsEnabled = Prelude.pure newValue, ..}+instance Property "ClusteringKeyColumns" Table where+ type PropertyType "ClusteringKeyColumns" Table = [ClusteringKeyColumnProperty]+ set newValue Table {..}+ = Table {clusteringKeyColumns = Prelude.pure newValue, ..}+instance Property "DefaultTimeToLive" Table where+ type PropertyType "DefaultTimeToLive" Table = Value Prelude.Integer+ set newValue Table {..}+ = Table {defaultTimeToLive = Prelude.pure newValue, ..}+instance Property "EncryptionSpecification" Table where+ type PropertyType "EncryptionSpecification" Table = EncryptionSpecificationProperty+ set newValue Table {..}+ = Table {encryptionSpecification = Prelude.pure newValue, ..}+instance Property "KeyspaceName" Table where+ type PropertyType "KeyspaceName" Table = Value Prelude.Text+ set newValue Table {..} = Table {keyspaceName = newValue, ..}+instance Property "PartitionKeyColumns" Table where+ type PropertyType "PartitionKeyColumns" Table = [ColumnProperty]+ set newValue Table {..}+ = Table {partitionKeyColumns = newValue, ..}+instance Property "PointInTimeRecoveryEnabled" Table where+ type PropertyType "PointInTimeRecoveryEnabled" Table = Value Prelude.Bool+ set newValue Table {..}+ = Table {pointInTimeRecoveryEnabled = Prelude.pure newValue, ..}+instance Property "RegularColumns" Table where+ type PropertyType "RegularColumns" Table = [ColumnProperty]+ set newValue Table {..}+ = Table {regularColumns = Prelude.pure newValue, ..}+instance Property "ReplicaSpecifications" Table where+ type PropertyType "ReplicaSpecifications" Table = [ReplicaSpecificationProperty]+ set newValue Table {..}+ = Table {replicaSpecifications = Prelude.pure newValue, ..}+instance Property "TableName" Table where+ type PropertyType "TableName" Table = Value Prelude.Text+ set newValue Table {..}+ = Table {tableName = Prelude.pure newValue, ..}+instance Property "Tags" Table where+ type PropertyType "Tags" Table = [Tag]+ set newValue Table {..} = Table {tags = Prelude.pure newValue, ..}
+ gen/Stratosphere/Cassandra/Table/AutoScalingSettingProperty.hs view
@@ -0,0 +1,68 @@+module Stratosphere.Cassandra.Table.AutoScalingSettingProperty (+ module Exports, AutoScalingSettingProperty(..),+ mkAutoScalingSettingProperty+ ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import {-# SOURCE #-} Stratosphere.Cassandra.Table.ScalingPolicyProperty as Exports+import Stratosphere.ResourceProperties+import Stratosphere.Value+data AutoScalingSettingProperty+ = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-autoscalingsetting.html>+ AutoScalingSettingProperty {haddock_workaround_ :: (),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-autoscalingsetting.html#cfn-cassandra-table-autoscalingsetting-autoscalingdisabled>+ autoScalingDisabled :: (Prelude.Maybe (Value Prelude.Bool)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-autoscalingsetting.html#cfn-cassandra-table-autoscalingsetting-maximumunits>+ maximumUnits :: (Prelude.Maybe (Value Prelude.Integer)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-autoscalingsetting.html#cfn-cassandra-table-autoscalingsetting-minimumunits>+ minimumUnits :: (Prelude.Maybe (Value Prelude.Integer)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-autoscalingsetting.html#cfn-cassandra-table-autoscalingsetting-scalingpolicy>+ scalingPolicy :: (Prelude.Maybe ScalingPolicyProperty)}+ deriving stock (Prelude.Eq, Prelude.Show)+mkAutoScalingSettingProperty :: AutoScalingSettingProperty+mkAutoScalingSettingProperty+ = AutoScalingSettingProperty+ {haddock_workaround_ = (), autoScalingDisabled = Prelude.Nothing,+ maximumUnits = Prelude.Nothing, minimumUnits = Prelude.Nothing,+ scalingPolicy = Prelude.Nothing}+instance ToResourceProperties AutoScalingSettingProperty where+ toResourceProperties AutoScalingSettingProperty {..}+ = ResourceProperties+ {awsType = "AWS::Cassandra::Table.AutoScalingSetting",+ supportsTags = Prelude.False,+ properties = Prelude.fromList+ (Prelude.catMaybes+ [(JSON..=) "AutoScalingDisabled" Prelude.<$> autoScalingDisabled,+ (JSON..=) "MaximumUnits" Prelude.<$> maximumUnits,+ (JSON..=) "MinimumUnits" Prelude.<$> minimumUnits,+ (JSON..=) "ScalingPolicy" Prelude.<$> scalingPolicy])}+instance JSON.ToJSON AutoScalingSettingProperty where+ toJSON AutoScalingSettingProperty {..}+ = JSON.object+ (Prelude.fromList+ (Prelude.catMaybes+ [(JSON..=) "AutoScalingDisabled" Prelude.<$> autoScalingDisabled,+ (JSON..=) "MaximumUnits" Prelude.<$> maximumUnits,+ (JSON..=) "MinimumUnits" Prelude.<$> minimumUnits,+ (JSON..=) "ScalingPolicy" Prelude.<$> scalingPolicy]))+instance Property "AutoScalingDisabled" AutoScalingSettingProperty where+ type PropertyType "AutoScalingDisabled" AutoScalingSettingProperty = Value Prelude.Bool+ set newValue AutoScalingSettingProperty {..}+ = AutoScalingSettingProperty+ {autoScalingDisabled = Prelude.pure newValue, ..}+instance Property "MaximumUnits" AutoScalingSettingProperty where+ type PropertyType "MaximumUnits" AutoScalingSettingProperty = Value Prelude.Integer+ set newValue AutoScalingSettingProperty {..}+ = AutoScalingSettingProperty+ {maximumUnits = Prelude.pure newValue, ..}+instance Property "MinimumUnits" AutoScalingSettingProperty where+ type PropertyType "MinimumUnits" AutoScalingSettingProperty = Value Prelude.Integer+ set newValue AutoScalingSettingProperty {..}+ = AutoScalingSettingProperty+ {minimumUnits = Prelude.pure newValue, ..}+instance Property "ScalingPolicy" AutoScalingSettingProperty where+ type PropertyType "ScalingPolicy" AutoScalingSettingProperty = ScalingPolicyProperty+ set newValue AutoScalingSettingProperty {..}+ = AutoScalingSettingProperty+ {scalingPolicy = Prelude.pure newValue, ..}
+ gen/Stratosphere/Cassandra/Table/AutoScalingSettingProperty.hs-boot view
@@ -0,0 +1,9 @@+module Stratosphere.Cassandra.Table.AutoScalingSettingProperty where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.ResourceProperties+data AutoScalingSettingProperty :: Prelude.Type+instance ToResourceProperties AutoScalingSettingProperty+instance Prelude.Eq AutoScalingSettingProperty+instance Prelude.Show AutoScalingSettingProperty+instance JSON.ToJSON AutoScalingSettingProperty
+ gen/Stratosphere/Cassandra/Table/AutoScalingSpecificationProperty.hs view
@@ -0,0 +1,54 @@+module Stratosphere.Cassandra.Table.AutoScalingSpecificationProperty (+ module Exports, AutoScalingSpecificationProperty(..),+ mkAutoScalingSpecificationProperty+ ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import {-# SOURCE #-} Stratosphere.Cassandra.Table.AutoScalingSettingProperty as Exports+import Stratosphere.ResourceProperties+data AutoScalingSpecificationProperty+ = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-autoscalingspecification.html>+ AutoScalingSpecificationProperty {haddock_workaround_ :: (),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-autoscalingspecification.html#cfn-cassandra-table-autoscalingspecification-readcapacityautoscaling>+ readCapacityAutoScaling :: (Prelude.Maybe AutoScalingSettingProperty),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-autoscalingspecification.html#cfn-cassandra-table-autoscalingspecification-writecapacityautoscaling>+ writeCapacityAutoScaling :: (Prelude.Maybe AutoScalingSettingProperty)}+ deriving stock (Prelude.Eq, Prelude.Show)+mkAutoScalingSpecificationProperty ::+ AutoScalingSpecificationProperty+mkAutoScalingSpecificationProperty+ = AutoScalingSpecificationProperty+ {haddock_workaround_ = (),+ readCapacityAutoScaling = Prelude.Nothing,+ writeCapacityAutoScaling = Prelude.Nothing}+instance ToResourceProperties AutoScalingSpecificationProperty where+ toResourceProperties AutoScalingSpecificationProperty {..}+ = ResourceProperties+ {awsType = "AWS::Cassandra::Table.AutoScalingSpecification",+ supportsTags = Prelude.False,+ properties = Prelude.fromList+ (Prelude.catMaybes+ [(JSON..=) "ReadCapacityAutoScaling"+ Prelude.<$> readCapacityAutoScaling,+ (JSON..=) "WriteCapacityAutoScaling"+ Prelude.<$> writeCapacityAutoScaling])}+instance JSON.ToJSON AutoScalingSpecificationProperty where+ toJSON AutoScalingSpecificationProperty {..}+ = JSON.object+ (Prelude.fromList+ (Prelude.catMaybes+ [(JSON..=) "ReadCapacityAutoScaling"+ Prelude.<$> readCapacityAutoScaling,+ (JSON..=) "WriteCapacityAutoScaling"+ Prelude.<$> writeCapacityAutoScaling]))+instance Property "ReadCapacityAutoScaling" AutoScalingSpecificationProperty where+ type PropertyType "ReadCapacityAutoScaling" AutoScalingSpecificationProperty = AutoScalingSettingProperty+ set newValue AutoScalingSpecificationProperty {..}+ = AutoScalingSpecificationProperty+ {readCapacityAutoScaling = Prelude.pure newValue, ..}+instance Property "WriteCapacityAutoScaling" AutoScalingSpecificationProperty where+ type PropertyType "WriteCapacityAutoScaling" AutoScalingSpecificationProperty = AutoScalingSettingProperty+ set newValue AutoScalingSpecificationProperty {..}+ = AutoScalingSpecificationProperty+ {writeCapacityAutoScaling = Prelude.pure newValue, ..}
+ gen/Stratosphere/Cassandra/Table/AutoScalingSpecificationProperty.hs-boot view
@@ -0,0 +1,9 @@+module Stratosphere.Cassandra.Table.AutoScalingSpecificationProperty where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.ResourceProperties+data AutoScalingSpecificationProperty :: Prelude.Type+instance ToResourceProperties AutoScalingSpecificationProperty+instance Prelude.Eq AutoScalingSpecificationProperty+instance Prelude.Show AutoScalingSpecificationProperty+instance JSON.ToJSON AutoScalingSpecificationProperty
+ gen/Stratosphere/Cassandra/Table/BillingModeProperty.hs view
@@ -0,0 +1,51 @@+module Stratosphere.Cassandra.Table.BillingModeProperty (+ module Exports, BillingModeProperty(..), mkBillingModeProperty+ ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import {-# SOURCE #-} Stratosphere.Cassandra.Table.ProvisionedThroughputProperty as Exports+import Stratosphere.ResourceProperties+import Stratosphere.Value+data BillingModeProperty+ = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-billingmode.html>+ BillingModeProperty {haddock_workaround_ :: (),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-billingmode.html#cfn-cassandra-table-billingmode-mode>+ mode :: (Value Prelude.Text),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-billingmode.html#cfn-cassandra-table-billingmode-provisionedthroughput>+ provisionedThroughput :: (Prelude.Maybe ProvisionedThroughputProperty)}+ deriving stock (Prelude.Eq, Prelude.Show)+mkBillingModeProperty :: Value Prelude.Text -> BillingModeProperty+mkBillingModeProperty mode+ = BillingModeProperty+ {haddock_workaround_ = (), mode = mode,+ provisionedThroughput = Prelude.Nothing}+instance ToResourceProperties BillingModeProperty where+ toResourceProperties BillingModeProperty {..}+ = ResourceProperties+ {awsType = "AWS::Cassandra::Table.BillingMode",+ supportsTags = Prelude.False,+ properties = Prelude.fromList+ ((Prelude.<>)+ ["Mode" JSON..= mode]+ (Prelude.catMaybes+ [(JSON..=) "ProvisionedThroughput"+ Prelude.<$> provisionedThroughput]))}+instance JSON.ToJSON BillingModeProperty where+ toJSON BillingModeProperty {..}+ = JSON.object+ (Prelude.fromList+ ((Prelude.<>)+ ["Mode" JSON..= mode]+ (Prelude.catMaybes+ [(JSON..=) "ProvisionedThroughput"+ Prelude.<$> provisionedThroughput])))+instance Property "Mode" BillingModeProperty where+ type PropertyType "Mode" BillingModeProperty = Value Prelude.Text+ set newValue BillingModeProperty {..}+ = BillingModeProperty {mode = newValue, ..}+instance Property "ProvisionedThroughput" BillingModeProperty where+ type PropertyType "ProvisionedThroughput" BillingModeProperty = ProvisionedThroughputProperty+ set newValue BillingModeProperty {..}+ = BillingModeProperty+ {provisionedThroughput = Prelude.pure newValue, ..}
+ gen/Stratosphere/Cassandra/Table/BillingModeProperty.hs-boot view
@@ -0,0 +1,9 @@+module Stratosphere.Cassandra.Table.BillingModeProperty where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.ResourceProperties+data BillingModeProperty :: Prelude.Type+instance ToResourceProperties BillingModeProperty+instance Prelude.Eq BillingModeProperty+instance Prelude.Show BillingModeProperty+instance JSON.ToJSON BillingModeProperty
+ gen/Stratosphere/Cassandra/Table/CdcSpecificationProperty.hs view
@@ -0,0 +1,57 @@+module Stratosphere.Cassandra.Table.CdcSpecificationProperty (+ CdcSpecificationProperty(..), mkCdcSpecificationProperty+ ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import Stratosphere.ResourceProperties+import Stratosphere.Tag+import Stratosphere.Value+data CdcSpecificationProperty+ = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-cdcspecification.html>+ CdcSpecificationProperty {haddock_workaround_ :: (),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-cdcspecification.html#cfn-cassandra-table-cdcspecification-status>+ status :: (Value Prelude.Text),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-cdcspecification.html#cfn-cassandra-table-cdcspecification-tags>+ tags :: (Prelude.Maybe [Tag]),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-cdcspecification.html#cfn-cassandra-table-cdcspecification-viewtype>+ viewType :: (Prelude.Maybe (Value Prelude.Text))}+ deriving stock (Prelude.Eq, Prelude.Show)+mkCdcSpecificationProperty ::+ Value Prelude.Text -> CdcSpecificationProperty+mkCdcSpecificationProperty status+ = CdcSpecificationProperty+ {haddock_workaround_ = (), status = status, tags = Prelude.Nothing,+ viewType = Prelude.Nothing}+instance ToResourceProperties CdcSpecificationProperty where+ toResourceProperties CdcSpecificationProperty {..}+ = ResourceProperties+ {awsType = "AWS::Cassandra::Table.CdcSpecification",+ supportsTags = Prelude.True,+ properties = Prelude.fromList+ ((Prelude.<>)+ ["Status" JSON..= status]+ (Prelude.catMaybes+ [(JSON..=) "Tags" Prelude.<$> tags,+ (JSON..=) "ViewType" Prelude.<$> viewType]))}+instance JSON.ToJSON CdcSpecificationProperty where+ toJSON CdcSpecificationProperty {..}+ = JSON.object+ (Prelude.fromList+ ((Prelude.<>)+ ["Status" JSON..= status]+ (Prelude.catMaybes+ [(JSON..=) "Tags" Prelude.<$> tags,+ (JSON..=) "ViewType" Prelude.<$> viewType])))+instance Property "Status" CdcSpecificationProperty where+ type PropertyType "Status" CdcSpecificationProperty = Value Prelude.Text+ set newValue CdcSpecificationProperty {..}+ = CdcSpecificationProperty {status = newValue, ..}+instance Property "Tags" CdcSpecificationProperty where+ type PropertyType "Tags" CdcSpecificationProperty = [Tag]+ set newValue CdcSpecificationProperty {..}+ = CdcSpecificationProperty {tags = Prelude.pure newValue, ..}+instance Property "ViewType" CdcSpecificationProperty where+ type PropertyType "ViewType" CdcSpecificationProperty = Value Prelude.Text+ set newValue CdcSpecificationProperty {..}+ = CdcSpecificationProperty {viewType = Prelude.pure newValue, ..}
+ gen/Stratosphere/Cassandra/Table/CdcSpecificationProperty.hs-boot view
@@ -0,0 +1,9 @@+module Stratosphere.Cassandra.Table.CdcSpecificationProperty where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.ResourceProperties+data CdcSpecificationProperty :: Prelude.Type+instance ToResourceProperties CdcSpecificationProperty+instance Prelude.Eq CdcSpecificationProperty+instance Prelude.Show CdcSpecificationProperty+instance JSON.ToJSON CdcSpecificationProperty
+ gen/Stratosphere/Cassandra/Table/ClusteringKeyColumnProperty.hs view
@@ -0,0 +1,48 @@+module Stratosphere.Cassandra.Table.ClusteringKeyColumnProperty (+ module Exports, ClusteringKeyColumnProperty(..),+ mkClusteringKeyColumnProperty+ ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import {-# SOURCE #-} Stratosphere.Cassandra.Table.ColumnProperty as Exports+import Stratosphere.ResourceProperties+import Stratosphere.Value+data ClusteringKeyColumnProperty+ = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-clusteringkeycolumn.html>+ ClusteringKeyColumnProperty {haddock_workaround_ :: (),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-clusteringkeycolumn.html#cfn-cassandra-table-clusteringkeycolumn-column>+ column :: ColumnProperty,+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-clusteringkeycolumn.html#cfn-cassandra-table-clusteringkeycolumn-orderby>+ orderBy :: (Prelude.Maybe (Value Prelude.Text))}+ deriving stock (Prelude.Eq, Prelude.Show)+mkClusteringKeyColumnProperty ::+ ColumnProperty -> ClusteringKeyColumnProperty+mkClusteringKeyColumnProperty column+ = ClusteringKeyColumnProperty+ {haddock_workaround_ = (), column = column,+ orderBy = Prelude.Nothing}+instance ToResourceProperties ClusteringKeyColumnProperty where+ toResourceProperties ClusteringKeyColumnProperty {..}+ = ResourceProperties+ {awsType = "AWS::Cassandra::Table.ClusteringKeyColumn",+ supportsTags = Prelude.False,+ properties = Prelude.fromList+ ((Prelude.<>)+ ["Column" JSON..= column]+ (Prelude.catMaybes [(JSON..=) "OrderBy" Prelude.<$> orderBy]))}+instance JSON.ToJSON ClusteringKeyColumnProperty where+ toJSON ClusteringKeyColumnProperty {..}+ = JSON.object+ (Prelude.fromList+ ((Prelude.<>)+ ["Column" JSON..= column]+ (Prelude.catMaybes [(JSON..=) "OrderBy" Prelude.<$> orderBy])))+instance Property "Column" ClusteringKeyColumnProperty where+ type PropertyType "Column" ClusteringKeyColumnProperty = ColumnProperty+ set newValue ClusteringKeyColumnProperty {..}+ = ClusteringKeyColumnProperty {column = newValue, ..}+instance Property "OrderBy" ClusteringKeyColumnProperty where+ type PropertyType "OrderBy" ClusteringKeyColumnProperty = Value Prelude.Text+ set newValue ClusteringKeyColumnProperty {..}+ = ClusteringKeyColumnProperty {orderBy = Prelude.pure newValue, ..}
+ gen/Stratosphere/Cassandra/Table/ClusteringKeyColumnProperty.hs-boot view
@@ -0,0 +1,9 @@+module Stratosphere.Cassandra.Table.ClusteringKeyColumnProperty where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.ResourceProperties+data ClusteringKeyColumnProperty :: Prelude.Type+instance ToResourceProperties ClusteringKeyColumnProperty+instance Prelude.Eq ClusteringKeyColumnProperty+instance Prelude.Show ClusteringKeyColumnProperty+instance JSON.ToJSON ClusteringKeyColumnProperty
+ gen/Stratosphere/Cassandra/Table/ColumnProperty.hs view
@@ -0,0 +1,41 @@+module Stratosphere.Cassandra.Table.ColumnProperty (+ ColumnProperty(..), mkColumnProperty+ ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import Stratosphere.ResourceProperties+import Stratosphere.Value+data ColumnProperty+ = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-column.html>+ ColumnProperty {haddock_workaround_ :: (),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-column.html#cfn-cassandra-table-column-columnname>+ columnName :: (Value Prelude.Text),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-column.html#cfn-cassandra-table-column-columntype>+ columnType :: (Value Prelude.Text)}+ deriving stock (Prelude.Eq, Prelude.Show)+mkColumnProperty ::+ Value Prelude.Text -> Value Prelude.Text -> ColumnProperty+mkColumnProperty columnName columnType+ = ColumnProperty+ {haddock_workaround_ = (), columnName = columnName,+ columnType = columnType}+instance ToResourceProperties ColumnProperty where+ toResourceProperties ColumnProperty {..}+ = ResourceProperties+ {awsType = "AWS::Cassandra::Table.Column",+ supportsTags = Prelude.False,+ properties = ["ColumnName" JSON..= columnName,+ "ColumnType" JSON..= columnType]}+instance JSON.ToJSON ColumnProperty where+ toJSON ColumnProperty {..}+ = JSON.object+ ["ColumnName" JSON..= columnName, "ColumnType" JSON..= columnType]+instance Property "ColumnName" ColumnProperty where+ type PropertyType "ColumnName" ColumnProperty = Value Prelude.Text+ set newValue ColumnProperty {..}+ = ColumnProperty {columnName = newValue, ..}+instance Property "ColumnType" ColumnProperty where+ type PropertyType "ColumnType" ColumnProperty = Value Prelude.Text+ set newValue ColumnProperty {..}+ = ColumnProperty {columnType = newValue, ..}
+ gen/Stratosphere/Cassandra/Table/ColumnProperty.hs-boot view
@@ -0,0 +1,9 @@+module Stratosphere.Cassandra.Table.ColumnProperty where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.ResourceProperties+data ColumnProperty :: Prelude.Type+instance ToResourceProperties ColumnProperty+instance Prelude.Eq ColumnProperty+instance Prelude.Show ColumnProperty+instance JSON.ToJSON ColumnProperty
+ gen/Stratosphere/Cassandra/Table/EncryptionSpecificationProperty.hs view
@@ -0,0 +1,50 @@+module Stratosphere.Cassandra.Table.EncryptionSpecificationProperty (+ EncryptionSpecificationProperty(..),+ mkEncryptionSpecificationProperty+ ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import Stratosphere.ResourceProperties+import Stratosphere.Value+data EncryptionSpecificationProperty+ = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-encryptionspecification.html>+ EncryptionSpecificationProperty {haddock_workaround_ :: (),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-encryptionspecification.html#cfn-cassandra-table-encryptionspecification-encryptiontype>+ encryptionType :: (Value Prelude.Text),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-encryptionspecification.html#cfn-cassandra-table-encryptionspecification-kmskeyidentifier>+ kmsKeyIdentifier :: (Prelude.Maybe (Value Prelude.Text))}+ deriving stock (Prelude.Eq, Prelude.Show)+mkEncryptionSpecificationProperty ::+ Value Prelude.Text -> EncryptionSpecificationProperty+mkEncryptionSpecificationProperty encryptionType+ = EncryptionSpecificationProperty+ {haddock_workaround_ = (), encryptionType = encryptionType,+ kmsKeyIdentifier = Prelude.Nothing}+instance ToResourceProperties EncryptionSpecificationProperty where+ toResourceProperties EncryptionSpecificationProperty {..}+ = ResourceProperties+ {awsType = "AWS::Cassandra::Table.EncryptionSpecification",+ supportsTags = Prelude.False,+ properties = Prelude.fromList+ ((Prelude.<>)+ ["EncryptionType" JSON..= encryptionType]+ (Prelude.catMaybes+ [(JSON..=) "KmsKeyIdentifier" Prelude.<$> kmsKeyIdentifier]))}+instance JSON.ToJSON EncryptionSpecificationProperty where+ toJSON EncryptionSpecificationProperty {..}+ = JSON.object+ (Prelude.fromList+ ((Prelude.<>)+ ["EncryptionType" JSON..= encryptionType]+ (Prelude.catMaybes+ [(JSON..=) "KmsKeyIdentifier" Prelude.<$> kmsKeyIdentifier])))+instance Property "EncryptionType" EncryptionSpecificationProperty where+ type PropertyType "EncryptionType" EncryptionSpecificationProperty = Value Prelude.Text+ set newValue EncryptionSpecificationProperty {..}+ = EncryptionSpecificationProperty {encryptionType = newValue, ..}+instance Property "KmsKeyIdentifier" EncryptionSpecificationProperty where+ type PropertyType "KmsKeyIdentifier" EncryptionSpecificationProperty = Value Prelude.Text+ set newValue EncryptionSpecificationProperty {..}+ = EncryptionSpecificationProperty+ {kmsKeyIdentifier = Prelude.pure newValue, ..}
+ gen/Stratosphere/Cassandra/Table/EncryptionSpecificationProperty.hs-boot view
@@ -0,0 +1,9 @@+module Stratosphere.Cassandra.Table.EncryptionSpecificationProperty where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.ResourceProperties+data EncryptionSpecificationProperty :: Prelude.Type+instance ToResourceProperties EncryptionSpecificationProperty+instance Prelude.Eq EncryptionSpecificationProperty+instance Prelude.Show EncryptionSpecificationProperty+instance JSON.ToJSON EncryptionSpecificationProperty
+ gen/Stratosphere/Cassandra/Table/ProvisionedThroughputProperty.hs view
@@ -0,0 +1,45 @@+module Stratosphere.Cassandra.Table.ProvisionedThroughputProperty (+ ProvisionedThroughputProperty(..), mkProvisionedThroughputProperty+ ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import Stratosphere.ResourceProperties+import Stratosphere.Value+data ProvisionedThroughputProperty+ = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-provisionedthroughput.html>+ ProvisionedThroughputProperty {haddock_workaround_ :: (),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-provisionedthroughput.html#cfn-cassandra-table-provisionedthroughput-readcapacityunits>+ readCapacityUnits :: (Value Prelude.Integer),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-provisionedthroughput.html#cfn-cassandra-table-provisionedthroughput-writecapacityunits>+ writeCapacityUnits :: (Value Prelude.Integer)}+ deriving stock (Prelude.Eq, Prelude.Show)+mkProvisionedThroughputProperty ::+ Value Prelude.Integer+ -> Value Prelude.Integer -> ProvisionedThroughputProperty+mkProvisionedThroughputProperty+ readCapacityUnits+ writeCapacityUnits+ = ProvisionedThroughputProperty+ {haddock_workaround_ = (), readCapacityUnits = readCapacityUnits,+ writeCapacityUnits = writeCapacityUnits}+instance ToResourceProperties ProvisionedThroughputProperty where+ toResourceProperties ProvisionedThroughputProperty {..}+ = ResourceProperties+ {awsType = "AWS::Cassandra::Table.ProvisionedThroughput",+ supportsTags = Prelude.False,+ properties = ["ReadCapacityUnits" JSON..= readCapacityUnits,+ "WriteCapacityUnits" JSON..= writeCapacityUnits]}+instance JSON.ToJSON ProvisionedThroughputProperty where+ toJSON ProvisionedThroughputProperty {..}+ = JSON.object+ ["ReadCapacityUnits" JSON..= readCapacityUnits,+ "WriteCapacityUnits" JSON..= writeCapacityUnits]+instance Property "ReadCapacityUnits" ProvisionedThroughputProperty where+ type PropertyType "ReadCapacityUnits" ProvisionedThroughputProperty = Value Prelude.Integer+ set newValue ProvisionedThroughputProperty {..}+ = ProvisionedThroughputProperty {readCapacityUnits = newValue, ..}+instance Property "WriteCapacityUnits" ProvisionedThroughputProperty where+ type PropertyType "WriteCapacityUnits" ProvisionedThroughputProperty = Value Prelude.Integer+ set newValue ProvisionedThroughputProperty {..}+ = ProvisionedThroughputProperty {writeCapacityUnits = newValue, ..}
+ gen/Stratosphere/Cassandra/Table/ProvisionedThroughputProperty.hs-boot view
@@ -0,0 +1,9 @@+module Stratosphere.Cassandra.Table.ProvisionedThroughputProperty where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.ResourceProperties+data ProvisionedThroughputProperty :: Prelude.Type+instance ToResourceProperties ProvisionedThroughputProperty+instance Prelude.Eq ProvisionedThroughputProperty+instance Prelude.Show ProvisionedThroughputProperty+instance JSON.ToJSON ProvisionedThroughputProperty
+ gen/Stratosphere/Cassandra/Table/ReplicaSpecificationProperty.hs view
@@ -0,0 +1,63 @@+module Stratosphere.Cassandra.Table.ReplicaSpecificationProperty (+ module Exports, ReplicaSpecificationProperty(..),+ mkReplicaSpecificationProperty+ ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import {-# SOURCE #-} Stratosphere.Cassandra.Table.AutoScalingSettingProperty as Exports+import Stratosphere.ResourceProperties+import Stratosphere.Value+data ReplicaSpecificationProperty+ = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-replicaspecification.html>+ ReplicaSpecificationProperty {haddock_workaround_ :: (),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-replicaspecification.html#cfn-cassandra-table-replicaspecification-readcapacityautoscaling>+ readCapacityAutoScaling :: (Prelude.Maybe AutoScalingSettingProperty),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-replicaspecification.html#cfn-cassandra-table-replicaspecification-readcapacityunits>+ readCapacityUnits :: (Prelude.Maybe (Value Prelude.Integer)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-replicaspecification.html#cfn-cassandra-table-replicaspecification-region>+ region :: (Value Prelude.Text)}+ deriving stock (Prelude.Eq, Prelude.Show)+mkReplicaSpecificationProperty ::+ Value Prelude.Text -> ReplicaSpecificationProperty+mkReplicaSpecificationProperty region+ = ReplicaSpecificationProperty+ {haddock_workaround_ = (), region = region,+ readCapacityAutoScaling = Prelude.Nothing,+ readCapacityUnits = Prelude.Nothing}+instance ToResourceProperties ReplicaSpecificationProperty where+ toResourceProperties ReplicaSpecificationProperty {..}+ = ResourceProperties+ {awsType = "AWS::Cassandra::Table.ReplicaSpecification",+ supportsTags = Prelude.False,+ properties = Prelude.fromList+ ((Prelude.<>)+ ["Region" JSON..= region]+ (Prelude.catMaybes+ [(JSON..=) "ReadCapacityAutoScaling"+ Prelude.<$> readCapacityAutoScaling,+ (JSON..=) "ReadCapacityUnits" Prelude.<$> readCapacityUnits]))}+instance JSON.ToJSON ReplicaSpecificationProperty where+ toJSON ReplicaSpecificationProperty {..}+ = JSON.object+ (Prelude.fromList+ ((Prelude.<>)+ ["Region" JSON..= region]+ (Prelude.catMaybes+ [(JSON..=) "ReadCapacityAutoScaling"+ Prelude.<$> readCapacityAutoScaling,+ (JSON..=) "ReadCapacityUnits" Prelude.<$> readCapacityUnits])))+instance Property "ReadCapacityAutoScaling" ReplicaSpecificationProperty where+ type PropertyType "ReadCapacityAutoScaling" ReplicaSpecificationProperty = AutoScalingSettingProperty+ set newValue ReplicaSpecificationProperty {..}+ = ReplicaSpecificationProperty+ {readCapacityAutoScaling = Prelude.pure newValue, ..}+instance Property "ReadCapacityUnits" ReplicaSpecificationProperty where+ type PropertyType "ReadCapacityUnits" ReplicaSpecificationProperty = Value Prelude.Integer+ set newValue ReplicaSpecificationProperty {..}+ = ReplicaSpecificationProperty+ {readCapacityUnits = Prelude.pure newValue, ..}+instance Property "Region" ReplicaSpecificationProperty where+ type PropertyType "Region" ReplicaSpecificationProperty = Value Prelude.Text+ set newValue ReplicaSpecificationProperty {..}+ = ReplicaSpecificationProperty {region = newValue, ..}
+ gen/Stratosphere/Cassandra/Table/ReplicaSpecificationProperty.hs-boot view
@@ -0,0 +1,9 @@+module Stratosphere.Cassandra.Table.ReplicaSpecificationProperty where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.ResourceProperties+data ReplicaSpecificationProperty :: Prelude.Type+instance ToResourceProperties ReplicaSpecificationProperty+instance Prelude.Eq ReplicaSpecificationProperty+instance Prelude.Show ReplicaSpecificationProperty+instance JSON.ToJSON ReplicaSpecificationProperty
+ gen/Stratosphere/Cassandra/Table/ScalingPolicyProperty.hs view
@@ -0,0 +1,41 @@+module Stratosphere.Cassandra.Table.ScalingPolicyProperty (+ module Exports, ScalingPolicyProperty(..), mkScalingPolicyProperty+ ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import {-# SOURCE #-} Stratosphere.Cassandra.Table.TargetTrackingScalingPolicyConfigurationProperty as Exports+import Stratosphere.ResourceProperties+data ScalingPolicyProperty+ = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-scalingpolicy.html>+ ScalingPolicyProperty {haddock_workaround_ :: (),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-scalingpolicy.html#cfn-cassandra-table-scalingpolicy-targettrackingscalingpolicyconfiguration>+ targetTrackingScalingPolicyConfiguration :: (Prelude.Maybe TargetTrackingScalingPolicyConfigurationProperty)}+ deriving stock (Prelude.Eq, Prelude.Show)+mkScalingPolicyProperty :: ScalingPolicyProperty+mkScalingPolicyProperty+ = ScalingPolicyProperty+ {haddock_workaround_ = (),+ targetTrackingScalingPolicyConfiguration = Prelude.Nothing}+instance ToResourceProperties ScalingPolicyProperty where+ toResourceProperties ScalingPolicyProperty {..}+ = ResourceProperties+ {awsType = "AWS::Cassandra::Table.ScalingPolicy",+ supportsTags = Prelude.False,+ properties = Prelude.fromList+ (Prelude.catMaybes+ [(JSON..=) "TargetTrackingScalingPolicyConfiguration"+ Prelude.<$> targetTrackingScalingPolicyConfiguration])}+instance JSON.ToJSON ScalingPolicyProperty where+ toJSON ScalingPolicyProperty {..}+ = JSON.object+ (Prelude.fromList+ (Prelude.catMaybes+ [(JSON..=) "TargetTrackingScalingPolicyConfiguration"+ Prelude.<$> targetTrackingScalingPolicyConfiguration]))+instance Property "TargetTrackingScalingPolicyConfiguration" ScalingPolicyProperty where+ type PropertyType "TargetTrackingScalingPolicyConfiguration" ScalingPolicyProperty = TargetTrackingScalingPolicyConfigurationProperty+ set newValue ScalingPolicyProperty {..}+ = ScalingPolicyProperty+ {targetTrackingScalingPolicyConfiguration = Prelude.pure newValue,+ ..}
+ gen/Stratosphere/Cassandra/Table/ScalingPolicyProperty.hs-boot view
@@ -0,0 +1,9 @@+module Stratosphere.Cassandra.Table.ScalingPolicyProperty where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.ResourceProperties+data ScalingPolicyProperty :: Prelude.Type+instance ToResourceProperties ScalingPolicyProperty+instance Prelude.Eq ScalingPolicyProperty+instance Prelude.Show ScalingPolicyProperty+instance JSON.ToJSON ScalingPolicyProperty
+ gen/Stratosphere/Cassandra/Table/TargetTrackingScalingPolicyConfigurationProperty.hs view
@@ -0,0 +1,73 @@+module Stratosphere.Cassandra.Table.TargetTrackingScalingPolicyConfigurationProperty (+ TargetTrackingScalingPolicyConfigurationProperty(..),+ mkTargetTrackingScalingPolicyConfigurationProperty+ ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import Stratosphere.ResourceProperties+import Stratosphere.Value+data TargetTrackingScalingPolicyConfigurationProperty+ = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-targettrackingscalingpolicyconfiguration.html>+ TargetTrackingScalingPolicyConfigurationProperty {haddock_workaround_ :: (),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-targettrackingscalingpolicyconfiguration.html#cfn-cassandra-table-targettrackingscalingpolicyconfiguration-disablescalein>+ disableScaleIn :: (Prelude.Maybe (Value Prelude.Bool)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-targettrackingscalingpolicyconfiguration.html#cfn-cassandra-table-targettrackingscalingpolicyconfiguration-scaleincooldown>+ scaleInCooldown :: (Prelude.Maybe (Value Prelude.Integer)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-targettrackingscalingpolicyconfiguration.html#cfn-cassandra-table-targettrackingscalingpolicyconfiguration-scaleoutcooldown>+ scaleOutCooldown :: (Prelude.Maybe (Value Prelude.Integer)),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-table-targettrackingscalingpolicyconfiguration.html#cfn-cassandra-table-targettrackingscalingpolicyconfiguration-targetvalue>+ targetValue :: (Value Prelude.Integer)}+ deriving stock (Prelude.Eq, Prelude.Show)+mkTargetTrackingScalingPolicyConfigurationProperty ::+ Value Prelude.Integer+ -> TargetTrackingScalingPolicyConfigurationProperty+mkTargetTrackingScalingPolicyConfigurationProperty targetValue+ = TargetTrackingScalingPolicyConfigurationProperty+ {haddock_workaround_ = (), targetValue = targetValue,+ disableScaleIn = Prelude.Nothing,+ scaleInCooldown = Prelude.Nothing,+ scaleOutCooldown = Prelude.Nothing}+instance ToResourceProperties TargetTrackingScalingPolicyConfigurationProperty where+ toResourceProperties+ TargetTrackingScalingPolicyConfigurationProperty {..}+ = ResourceProperties+ {awsType = "AWS::Cassandra::Table.TargetTrackingScalingPolicyConfiguration",+ supportsTags = Prelude.False,+ properties = Prelude.fromList+ ((Prelude.<>)+ ["TargetValue" JSON..= targetValue]+ (Prelude.catMaybes+ [(JSON..=) "DisableScaleIn" Prelude.<$> disableScaleIn,+ (JSON..=) "ScaleInCooldown" Prelude.<$> scaleInCooldown,+ (JSON..=) "ScaleOutCooldown" Prelude.<$> scaleOutCooldown]))}+instance JSON.ToJSON TargetTrackingScalingPolicyConfigurationProperty where+ toJSON TargetTrackingScalingPolicyConfigurationProperty {..}+ = JSON.object+ (Prelude.fromList+ ((Prelude.<>)+ ["TargetValue" JSON..= targetValue]+ (Prelude.catMaybes+ [(JSON..=) "DisableScaleIn" Prelude.<$> disableScaleIn,+ (JSON..=) "ScaleInCooldown" Prelude.<$> scaleInCooldown,+ (JSON..=) "ScaleOutCooldown" Prelude.<$> scaleOutCooldown])))+instance Property "DisableScaleIn" TargetTrackingScalingPolicyConfigurationProperty where+ type PropertyType "DisableScaleIn" TargetTrackingScalingPolicyConfigurationProperty = Value Prelude.Bool+ set newValue TargetTrackingScalingPolicyConfigurationProperty {..}+ = TargetTrackingScalingPolicyConfigurationProperty+ {disableScaleIn = Prelude.pure newValue, ..}+instance Property "ScaleInCooldown" TargetTrackingScalingPolicyConfigurationProperty where+ type PropertyType "ScaleInCooldown" TargetTrackingScalingPolicyConfigurationProperty = Value Prelude.Integer+ set newValue TargetTrackingScalingPolicyConfigurationProperty {..}+ = TargetTrackingScalingPolicyConfigurationProperty+ {scaleInCooldown = Prelude.pure newValue, ..}+instance Property "ScaleOutCooldown" TargetTrackingScalingPolicyConfigurationProperty where+ type PropertyType "ScaleOutCooldown" TargetTrackingScalingPolicyConfigurationProperty = Value Prelude.Integer+ set newValue TargetTrackingScalingPolicyConfigurationProperty {..}+ = TargetTrackingScalingPolicyConfigurationProperty+ {scaleOutCooldown = Prelude.pure newValue, ..}+instance Property "TargetValue" TargetTrackingScalingPolicyConfigurationProperty where+ type PropertyType "TargetValue" TargetTrackingScalingPolicyConfigurationProperty = Value Prelude.Integer+ set newValue TargetTrackingScalingPolicyConfigurationProperty {..}+ = TargetTrackingScalingPolicyConfigurationProperty+ {targetValue = newValue, ..}
+ gen/Stratosphere/Cassandra/Table/TargetTrackingScalingPolicyConfigurationProperty.hs-boot view
@@ -0,0 +1,9 @@+module Stratosphere.Cassandra.Table.TargetTrackingScalingPolicyConfigurationProperty where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.ResourceProperties+data TargetTrackingScalingPolicyConfigurationProperty :: Prelude.Type+instance ToResourceProperties TargetTrackingScalingPolicyConfigurationProperty+instance Prelude.Eq TargetTrackingScalingPolicyConfigurationProperty+instance Prelude.Show TargetTrackingScalingPolicyConfigurationProperty+instance JSON.ToJSON TargetTrackingScalingPolicyConfigurationProperty
+ gen/Stratosphere/Cassandra/Type.hs view
@@ -0,0 +1,45 @@+module Stratosphere.Cassandra.Type (+ module Exports, Type(..), mkType+ ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import {-# SOURCE #-} Stratosphere.Cassandra.Type.FieldProperty as Exports+import Stratosphere.ResourceProperties+import Stratosphere.Value+data Type+ = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-type.html>+ Type {haddock_workaround_ :: (),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-type.html#cfn-cassandra-type-fields>+ fields :: [FieldProperty],+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-type.html#cfn-cassandra-type-keyspacename>+ keyspaceName :: (Value Prelude.Text),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cassandra-type.html#cfn-cassandra-type-typename>+ typeName :: (Value Prelude.Text)}+ deriving stock (Prelude.Eq, Prelude.Show)+mkType ::+ [FieldProperty] -> Value Prelude.Text -> Value Prelude.Text -> Type+mkType fields keyspaceName typeName+ = Type+ {haddock_workaround_ = (), fields = fields,+ keyspaceName = keyspaceName, typeName = typeName}+instance ToResourceProperties Type where+ toResourceProperties Type {..}+ = ResourceProperties+ {awsType = "AWS::Cassandra::Type", supportsTags = Prelude.False,+ properties = ["Fields" JSON..= fields,+ "KeyspaceName" JSON..= keyspaceName, "TypeName" JSON..= typeName]}+instance JSON.ToJSON Type where+ toJSON Type {..}+ = JSON.object+ ["Fields" JSON..= fields, "KeyspaceName" JSON..= keyspaceName,+ "TypeName" JSON..= typeName]+instance Property "Fields" Type where+ type PropertyType "Fields" Type = [FieldProperty]+ set newValue Type {..} = Type {fields = newValue, ..}+instance Property "KeyspaceName" Type where+ type PropertyType "KeyspaceName" Type = Value Prelude.Text+ set newValue Type {..} = Type {keyspaceName = newValue, ..}+instance Property "TypeName" Type where+ type PropertyType "TypeName" Type = Value Prelude.Text+ set newValue Type {..} = Type {typeName = newValue, ..}
+ gen/Stratosphere/Cassandra/Type/FieldProperty.hs view
@@ -0,0 +1,41 @@+module Stratosphere.Cassandra.Type.FieldProperty (+ FieldProperty(..), mkFieldProperty+ ) where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.Property+import Stratosphere.ResourceProperties+import Stratosphere.Value+data FieldProperty+ = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-type-field.html>+ FieldProperty {haddock_workaround_ :: (),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-type-field.html#cfn-cassandra-type-field-fieldname>+ fieldName :: (Value Prelude.Text),+ -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-cassandra-type-field.html#cfn-cassandra-type-field-fieldtype>+ fieldType :: (Value Prelude.Text)}+ deriving stock (Prelude.Eq, Prelude.Show)+mkFieldProperty ::+ Value Prelude.Text -> Value Prelude.Text -> FieldProperty+mkFieldProperty fieldName fieldType+ = FieldProperty+ {haddock_workaround_ = (), fieldName = fieldName,+ fieldType = fieldType}+instance ToResourceProperties FieldProperty where+ toResourceProperties FieldProperty {..}+ = ResourceProperties+ {awsType = "AWS::Cassandra::Type.Field",+ supportsTags = Prelude.False,+ properties = ["FieldName" JSON..= fieldName,+ "FieldType" JSON..= fieldType]}+instance JSON.ToJSON FieldProperty where+ toJSON FieldProperty {..}+ = JSON.object+ ["FieldName" JSON..= fieldName, "FieldType" JSON..= fieldType]+instance Property "FieldName" FieldProperty where+ type PropertyType "FieldName" FieldProperty = Value Prelude.Text+ set newValue FieldProperty {..}+ = FieldProperty {fieldName = newValue, ..}+instance Property "FieldType" FieldProperty where+ type PropertyType "FieldType" FieldProperty = Value Prelude.Text+ set newValue FieldProperty {..}+ = FieldProperty {fieldType = newValue, ..}
+ gen/Stratosphere/Cassandra/Type/FieldProperty.hs-boot view
@@ -0,0 +1,9 @@+module Stratosphere.Cassandra.Type.FieldProperty where+import qualified Data.Aeson as JSON+import qualified Stratosphere.Prelude as Prelude+import Stratosphere.ResourceProperties+data FieldProperty :: Prelude.Type+instance ToResourceProperties FieldProperty+instance Prelude.Eq FieldProperty+instance Prelude.Show FieldProperty+instance JSON.ToJSON FieldProperty
+ stratosphere-cassandra.cabal view
@@ -0,0 +1,88 @@+cabal-version: 1.12++-- This file has been generated from package.yaml by hpack version 0.38.2.+--+-- see: https://github.com/sol/hpack++name: stratosphere-cassandra+version: 1.0.0+synopsis: Stratosphere integration for AWS Cassandra.+description: Integration into stratosphere to generate resources and properties for AWS Cassandra+category: AWS, Cloud, Cassandra+stability: experimental+homepage: https://github.com/mbj/stratosphere#readme+bug-reports: https://github.com/mbj/stratosphere/issues+maintainer: Markus Schirp+license: MIT+license-file: LICENSE.md+build-type: Simple++source-repository head+ type: git+ location: https://github.com/mbj/stratosphere++flag development+ description: Run GHC with development flags+ manual: True+ default: False++library+ exposed-modules:+ Stratosphere.Cassandra.Keyspace+ Stratosphere.Cassandra.Keyspace.ReplicationSpecificationProperty+ Stratosphere.Cassandra.Table+ Stratosphere.Cassandra.Table.AutoScalingSettingProperty+ Stratosphere.Cassandra.Table.AutoScalingSpecificationProperty+ Stratosphere.Cassandra.Table.BillingModeProperty+ Stratosphere.Cassandra.Table.CdcSpecificationProperty+ Stratosphere.Cassandra.Table.ClusteringKeyColumnProperty+ Stratosphere.Cassandra.Table.ColumnProperty+ Stratosphere.Cassandra.Table.EncryptionSpecificationProperty+ Stratosphere.Cassandra.Table.ProvisionedThroughputProperty+ Stratosphere.Cassandra.Table.ReplicaSpecificationProperty+ Stratosphere.Cassandra.Table.ScalingPolicyProperty+ Stratosphere.Cassandra.Table.TargetTrackingScalingPolicyConfigurationProperty+ Stratosphere.Cassandra.Type+ Stratosphere.Cassandra.Type.FieldProperty+ other-modules:+ Paths_stratosphere_cassandra+ hs-source-dirs:+ gen+ default-extensions:+ DataKinds+ DeriveGeneric+ DerivingStrategies+ DerivingVia+ DuplicateRecordFields+ FlexibleContexts+ FlexibleInstances+ GADTs+ GeneralizedNewtypeDeriving+ InstanceSigs+ LambdaCase+ MultiParamTypeClasses+ NoFieldSelectors+ NoImplicitPrelude+ NumericUnderscores+ OverloadedLists+ OverloadedRecordDot+ OverloadedStrings+ PolyKinds+ RecordWildCards+ ScopedTypeVariables+ StandaloneDeriving+ Strict+ TemplateHaskell+ TupleSections+ TypeApplications+ TypeFamilies+ ghc-options: -Wall -Wcompat -Widentities -Wimplicit-prelude -Wincomplete-record-updates -Wincomplete-uni-patterns -Wmissing-local-signatures -Wmissing-signatures -Wmonomorphism-restriction -Wredundant-constraints -fhide-source-paths -funbox-strict-fields -optP-Wno-nonportable-include-path -Wno-unused-imports+ build-depends:+ aeson ==2.*+ , base >=4.8 && <4.22+ , stratosphere ==1.0.0+ default-language: Haskell2010+ if flag(development)+ ghc-options: -Werror+ else+ ghc-options: -Wwarn