ConfiguredTable.hs

module Stratosphere.CleanRooms.ConfiguredTable (
        module Exports, ConfiguredTable(..), mkConfiguredTable
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.CleanRooms.ConfiguredTable.AnalysisRuleProperty as Exports
import {-# SOURCE #-} Stratosphere.CleanRooms.ConfiguredTable.TableReferenceProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Tag
import Stratosphere.Value
data ConfiguredTable
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cleanrooms-configuredtable.html>
    ConfiguredTable {haddock_workaround_ :: (),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cleanrooms-configuredtable.html#cfn-cleanrooms-configuredtable-allowedcolumns>
                     allowedColumns :: (ValueList Prelude.Text),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cleanrooms-configuredtable.html#cfn-cleanrooms-configuredtable-analysismethod>
                     analysisMethod :: (Value Prelude.Text),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cleanrooms-configuredtable.html#cfn-cleanrooms-configuredtable-analysisrules>
                     analysisRules :: (Prelude.Maybe [AnalysisRuleProperty]),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cleanrooms-configuredtable.html#cfn-cleanrooms-configuredtable-description>
                     description :: (Prelude.Maybe (Value Prelude.Text)),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cleanrooms-configuredtable.html#cfn-cleanrooms-configuredtable-name>
                     name :: (Value Prelude.Text),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cleanrooms-configuredtable.html#cfn-cleanrooms-configuredtable-selectedanalysismethods>
                     selectedAnalysisMethods :: (Prelude.Maybe (ValueList Prelude.Text)),
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cleanrooms-configuredtable.html#cfn-cleanrooms-configuredtable-tablereference>
                     tableReference :: TableReferenceProperty,
                     -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-cleanrooms-configuredtable.html#cfn-cleanrooms-configuredtable-tags>
                     tags :: (Prelude.Maybe [Tag])}
  deriving stock (Prelude.Eq, Prelude.Show)
mkConfiguredTable ::
  ValueList Prelude.Text
  -> Value Prelude.Text
     -> Value Prelude.Text -> TableReferenceProperty -> ConfiguredTable
mkConfiguredTable allowedColumns analysisMethod name tableReference
  = ConfiguredTable
      {haddock_workaround_ = (), allowedColumns = allowedColumns,
       analysisMethod = analysisMethod, name = name,
       tableReference = tableReference, analysisRules = Prelude.Nothing,
       description = Prelude.Nothing,
       selectedAnalysisMethods = Prelude.Nothing, tags = Prelude.Nothing}
instance ToResourceProperties ConfiguredTable where
  toResourceProperties ConfiguredTable {..}
    = ResourceProperties
        {awsType = "AWS::CleanRooms::ConfiguredTable",
         supportsTags = Prelude.True,
         properties = Prelude.fromList
                        ((Prelude.<>)
                           ["AllowedColumns" JSON..= allowedColumns,
                            "AnalysisMethod" JSON..= analysisMethod, "Name" JSON..= name,
                            "TableReference" JSON..= tableReference]
                           (Prelude.catMaybes
                              [(JSON..=) "AnalysisRules" Prelude.<$> analysisRules,
                               (JSON..=) "Description" Prelude.<$> description,
                               (JSON..=) "SelectedAnalysisMethods"
                                 Prelude.<$> selectedAnalysisMethods,
                               (JSON..=) "Tags" Prelude.<$> tags]))}
instance JSON.ToJSON ConfiguredTable where
  toJSON ConfiguredTable {..}
    = JSON.object
        (Prelude.fromList
           ((Prelude.<>)
              ["AllowedColumns" JSON..= allowedColumns,
               "AnalysisMethod" JSON..= analysisMethod, "Name" JSON..= name,
               "TableReference" JSON..= tableReference]
              (Prelude.catMaybes
                 [(JSON..=) "AnalysisRules" Prelude.<$> analysisRules,
                  (JSON..=) "Description" Prelude.<$> description,
                  (JSON..=) "SelectedAnalysisMethods"
                    Prelude.<$> selectedAnalysisMethods,
                  (JSON..=) "Tags" Prelude.<$> tags])))
instance Property "AllowedColumns" ConfiguredTable where
  type PropertyType "AllowedColumns" ConfiguredTable = ValueList Prelude.Text
  set newValue ConfiguredTable {..}
    = ConfiguredTable {allowedColumns = newValue, ..}
instance Property "AnalysisMethod" ConfiguredTable where
  type PropertyType "AnalysisMethod" ConfiguredTable = Value Prelude.Text
  set newValue ConfiguredTable {..}
    = ConfiguredTable {analysisMethod = newValue, ..}
instance Property "AnalysisRules" ConfiguredTable where
  type PropertyType "AnalysisRules" ConfiguredTable = [AnalysisRuleProperty]
  set newValue ConfiguredTable {..}
    = ConfiguredTable {analysisRules = Prelude.pure newValue, ..}
instance Property "Description" ConfiguredTable where
  type PropertyType "Description" ConfiguredTable = Value Prelude.Text
  set newValue ConfiguredTable {..}
    = ConfiguredTable {description = Prelude.pure newValue, ..}
instance Property "Name" ConfiguredTable where
  type PropertyType "Name" ConfiguredTable = Value Prelude.Text
  set newValue ConfiguredTable {..}
    = ConfiguredTable {name = newValue, ..}
instance Property "SelectedAnalysisMethods" ConfiguredTable where
  type PropertyType "SelectedAnalysisMethods" ConfiguredTable = ValueList Prelude.Text
  set newValue ConfiguredTable {..}
    = ConfiguredTable
        {selectedAnalysisMethods = Prelude.pure newValue, ..}
instance Property "TableReference" ConfiguredTable where
  type PropertyType "TableReference" ConfiguredTable = TableReferenceProperty
  set newValue ConfiguredTable {..}
    = ConfiguredTable {tableReference = newValue, ..}
instance Property "Tags" ConfiguredTable where
  type PropertyType "Tags" ConfiguredTable = [Tag]
  set newValue ConfiguredTable {..}
    = ConfiguredTable {tags = Prelude.pure newValue, ..}