module Stratosphere.S3Tables.Table.IcebergSchemaProperty (
        module Exports, IcebergSchemaProperty(..), mkIcebergSchemaProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.S3Tables.Table.SchemaFieldProperty as Exports
import Stratosphere.ResourceProperties
data IcebergSchemaProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3tables-table-icebergschema.html>
    IcebergSchemaProperty {IcebergSchemaProperty -> ()
haddock_workaround_ :: (),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-s3tables-table-icebergschema.html#cfn-s3tables-table-icebergschema-schemafieldlist>
                           IcebergSchemaProperty -> [SchemaFieldProperty]
schemaFieldList :: [SchemaFieldProperty]}
  deriving stock (IcebergSchemaProperty -> IcebergSchemaProperty -> Bool
(IcebergSchemaProperty -> IcebergSchemaProperty -> Bool)
-> (IcebergSchemaProperty -> IcebergSchemaProperty -> Bool)
-> Eq IcebergSchemaProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: IcebergSchemaProperty -> IcebergSchemaProperty -> Bool
== :: IcebergSchemaProperty -> IcebergSchemaProperty -> Bool
$c/= :: IcebergSchemaProperty -> IcebergSchemaProperty -> Bool
/= :: IcebergSchemaProperty -> IcebergSchemaProperty -> Bool
Prelude.Eq, Int -> IcebergSchemaProperty -> ShowS
[IcebergSchemaProperty] -> ShowS
IcebergSchemaProperty -> String
(Int -> IcebergSchemaProperty -> ShowS)
-> (IcebergSchemaProperty -> String)
-> ([IcebergSchemaProperty] -> ShowS)
-> Show IcebergSchemaProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> IcebergSchemaProperty -> ShowS
showsPrec :: Int -> IcebergSchemaProperty -> ShowS
$cshow :: IcebergSchemaProperty -> String
show :: IcebergSchemaProperty -> String
$cshowList :: [IcebergSchemaProperty] -> ShowS
showList :: [IcebergSchemaProperty] -> ShowS
Prelude.Show)
mkIcebergSchemaProperty ::
  [SchemaFieldProperty] -> IcebergSchemaProperty
mkIcebergSchemaProperty :: [SchemaFieldProperty] -> IcebergSchemaProperty
mkIcebergSchemaProperty [SchemaFieldProperty]
schemaFieldList
  = IcebergSchemaProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (), schemaFieldList :: [SchemaFieldProperty]
schemaFieldList = [SchemaFieldProperty]
schemaFieldList}
instance ToResourceProperties IcebergSchemaProperty where
  toResourceProperties :: IcebergSchemaProperty -> ResourceProperties
toResourceProperties IcebergSchemaProperty {[SchemaFieldProperty]
()
haddock_workaround_ :: IcebergSchemaProperty -> ()
schemaFieldList :: IcebergSchemaProperty -> [SchemaFieldProperty]
haddock_workaround_ :: ()
schemaFieldList :: [SchemaFieldProperty]
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::S3Tables::Table.IcebergSchema",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Key
"SchemaFieldList" Key -> [SchemaFieldProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [SchemaFieldProperty]
schemaFieldList]}
instance JSON.ToJSON IcebergSchemaProperty where
  toJSON :: IcebergSchemaProperty -> Value
toJSON IcebergSchemaProperty {[SchemaFieldProperty]
()
haddock_workaround_ :: IcebergSchemaProperty -> ()
schemaFieldList :: IcebergSchemaProperty -> [SchemaFieldProperty]
haddock_workaround_ :: ()
schemaFieldList :: [SchemaFieldProperty]
..}
    = [(Key, Value)] -> Value
JSON.object [Key
"SchemaFieldList" Key -> [SchemaFieldProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= [SchemaFieldProperty]
schemaFieldList]
instance Property "SchemaFieldList" IcebergSchemaProperty where
  type PropertyType "SchemaFieldList" IcebergSchemaProperty = [SchemaFieldProperty]
  set :: PropertyType "SchemaFieldList" IcebergSchemaProperty
-> IcebergSchemaProperty -> IcebergSchemaProperty
set PropertyType "SchemaFieldList" IcebergSchemaProperty
newValue IcebergSchemaProperty {[SchemaFieldProperty]
()
haddock_workaround_ :: IcebergSchemaProperty -> ()
schemaFieldList :: IcebergSchemaProperty -> [SchemaFieldProperty]
haddock_workaround_ :: ()
schemaFieldList :: [SchemaFieldProperty]
..}
    = IcebergSchemaProperty {schemaFieldList :: [SchemaFieldProperty]
schemaFieldList = [SchemaFieldProperty]
PropertyType "SchemaFieldList" IcebergSchemaProperty
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}