module Stratosphere.Glue.Database.DatabaseInputProperty (
        module Exports, DatabaseInputProperty(..), mkDatabaseInputProperty
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Glue.Database.DatabaseIdentifierProperty as Exports
import {-# SOURCE #-} Stratosphere.Glue.Database.FederatedDatabaseProperty as Exports
import {-# SOURCE #-} Stratosphere.Glue.Database.PrincipalPrivilegesProperty as Exports
import Stratosphere.ResourceProperties
import Stratosphere.Value
data DatabaseInputProperty
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-database-databaseinput.html>
    DatabaseInputProperty {DatabaseInputProperty -> ()
haddock_workaround_ :: (),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-database-databaseinput.html#cfn-glue-database-databaseinput-createtabledefaultpermissions>
                           DatabaseInputProperty -> Maybe [PrincipalPrivilegesProperty]
createTableDefaultPermissions :: (Prelude.Maybe [PrincipalPrivilegesProperty]),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-database-databaseinput.html#cfn-glue-database-databaseinput-description>
                           DatabaseInputProperty -> Maybe (Value Text)
description :: (Prelude.Maybe (Value Prelude.Text)),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-database-databaseinput.html#cfn-glue-database-databaseinput-federateddatabase>
                           DatabaseInputProperty -> Maybe FederatedDatabaseProperty
federatedDatabase :: (Prelude.Maybe FederatedDatabaseProperty),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-database-databaseinput.html#cfn-glue-database-databaseinput-locationuri>
                           DatabaseInputProperty -> Maybe (Value Text)
locationUri :: (Prelude.Maybe (Value Prelude.Text)),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-database-databaseinput.html#cfn-glue-database-databaseinput-name>
                           DatabaseInputProperty -> Maybe (Value Text)
name :: (Prelude.Maybe (Value Prelude.Text)),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-database-databaseinput.html#cfn-glue-database-databaseinput-parameters>
                           DatabaseInputProperty -> Maybe Object
parameters :: (Prelude.Maybe JSON.Object),
                           -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-glue-database-databaseinput.html#cfn-glue-database-databaseinput-targetdatabase>
                           DatabaseInputProperty -> Maybe DatabaseIdentifierProperty
targetDatabase :: (Prelude.Maybe DatabaseIdentifierProperty)}
  deriving stock (DatabaseInputProperty -> DatabaseInputProperty -> Bool
(DatabaseInputProperty -> DatabaseInputProperty -> Bool)
-> (DatabaseInputProperty -> DatabaseInputProperty -> Bool)
-> Eq DatabaseInputProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DatabaseInputProperty -> DatabaseInputProperty -> Bool
== :: DatabaseInputProperty -> DatabaseInputProperty -> Bool
$c/= :: DatabaseInputProperty -> DatabaseInputProperty -> Bool
/= :: DatabaseInputProperty -> DatabaseInputProperty -> Bool
Prelude.Eq, Int -> DatabaseInputProperty -> ShowS
[DatabaseInputProperty] -> ShowS
DatabaseInputProperty -> String
(Int -> DatabaseInputProperty -> ShowS)
-> (DatabaseInputProperty -> String)
-> ([DatabaseInputProperty] -> ShowS)
-> Show DatabaseInputProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> DatabaseInputProperty -> ShowS
showsPrec :: Int -> DatabaseInputProperty -> ShowS
$cshow :: DatabaseInputProperty -> String
show :: DatabaseInputProperty -> String
$cshowList :: [DatabaseInputProperty] -> ShowS
showList :: [DatabaseInputProperty] -> ShowS
Prelude.Show)
mkDatabaseInputProperty :: DatabaseInputProperty
mkDatabaseInputProperty :: DatabaseInputProperty
mkDatabaseInputProperty
  = DatabaseInputProperty
      {haddock_workaround_ :: ()
haddock_workaround_ = (),
       createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
createTableDefaultPermissions = Maybe [PrincipalPrivilegesProperty]
forall a. Maybe a
Prelude.Nothing,
       description :: Maybe (Value Text)
description = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, federatedDatabase :: Maybe FederatedDatabaseProperty
federatedDatabase = Maybe FederatedDatabaseProperty
forall a. Maybe a
Prelude.Nothing,
       locationUri :: Maybe (Value Text)
locationUri = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing, name :: Maybe (Value Text)
name = Maybe (Value Text)
forall a. Maybe a
Prelude.Nothing,
       parameters :: Maybe Object
parameters = Maybe Object
forall a. Maybe a
Prelude.Nothing, targetDatabase :: Maybe DatabaseIdentifierProperty
targetDatabase = Maybe DatabaseIdentifierProperty
forall a. Maybe a
Prelude.Nothing}
instance ToResourceProperties DatabaseInputProperty where
  toResourceProperties :: DatabaseInputProperty -> ResourceProperties
toResourceProperties DatabaseInputProperty {Maybe [PrincipalPrivilegesProperty]
Maybe Object
Maybe (Value Text)
Maybe DatabaseIdentifierProperty
Maybe FederatedDatabaseProperty
()
haddock_workaround_ :: DatabaseInputProperty -> ()
createTableDefaultPermissions :: DatabaseInputProperty -> Maybe [PrincipalPrivilegesProperty]
description :: DatabaseInputProperty -> Maybe (Value Text)
federatedDatabase :: DatabaseInputProperty -> Maybe FederatedDatabaseProperty
locationUri :: DatabaseInputProperty -> Maybe (Value Text)
name :: DatabaseInputProperty -> Maybe (Value Text)
parameters :: DatabaseInputProperty -> Maybe Object
targetDatabase :: DatabaseInputProperty -> Maybe DatabaseIdentifierProperty
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
description :: Maybe (Value Text)
federatedDatabase :: Maybe FederatedDatabaseProperty
locationUri :: Maybe (Value Text)
name :: Maybe (Value Text)
parameters :: Maybe Object
targetDatabase :: Maybe DatabaseIdentifierProperty
..}
    = ResourceProperties
        {awsType :: Text
awsType = Text
"AWS::Glue::Database.DatabaseInput",
         supportsTags :: Bool
supportsTags = Bool
Prelude.False,
         properties :: Object
properties = [Item Object] -> Object
forall l. IsList l => [Item l] -> l
Prelude.fromList
                        ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
                           [Key -> [PrincipalPrivilegesProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"CreateTableDefaultPermissions"
                              ([PrincipalPrivilegesProperty] -> (Key, Value))
-> Maybe [PrincipalPrivilegesProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [PrincipalPrivilegesProperty]
createTableDefaultPermissions,
                            Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Description" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
description,
                            Key -> FederatedDatabaseProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"FederatedDatabase" (FederatedDatabaseProperty -> (Key, Value))
-> Maybe FederatedDatabaseProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe FederatedDatabaseProperty
federatedDatabase,
                            Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"LocationUri" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
locationUri,
                            Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Name" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
name,
                            Key -> Object -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Parameters" (Object -> (Key, Value)) -> Maybe Object -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Object
parameters,
                            Key -> DatabaseIdentifierProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TargetDatabase" (DatabaseIdentifierProperty -> (Key, Value))
-> Maybe DatabaseIdentifierProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe DatabaseIdentifierProperty
targetDatabase])}
instance JSON.ToJSON DatabaseInputProperty where
  toJSON :: DatabaseInputProperty -> Value
toJSON DatabaseInputProperty {Maybe [PrincipalPrivilegesProperty]
Maybe Object
Maybe (Value Text)
Maybe DatabaseIdentifierProperty
Maybe FederatedDatabaseProperty
()
haddock_workaround_ :: DatabaseInputProperty -> ()
createTableDefaultPermissions :: DatabaseInputProperty -> Maybe [PrincipalPrivilegesProperty]
description :: DatabaseInputProperty -> Maybe (Value Text)
federatedDatabase :: DatabaseInputProperty -> Maybe FederatedDatabaseProperty
locationUri :: DatabaseInputProperty -> Maybe (Value Text)
name :: DatabaseInputProperty -> Maybe (Value Text)
parameters :: DatabaseInputProperty -> Maybe Object
targetDatabase :: DatabaseInputProperty -> Maybe DatabaseIdentifierProperty
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
description :: Maybe (Value Text)
federatedDatabase :: Maybe FederatedDatabaseProperty
locationUri :: Maybe (Value Text)
name :: Maybe (Value Text)
parameters :: Maybe Object
targetDatabase :: Maybe DatabaseIdentifierProperty
..}
    = [(Key, Value)] -> Value
JSON.object
        ([Item [(Key, Value)]] -> [(Key, Value)]
forall l. IsList l => [Item l] -> l
Prelude.fromList
           ([Maybe (Key, Value)] -> [(Key, Value)]
forall a. [Maybe a] -> [a]
Prelude.catMaybes
              [Key -> [PrincipalPrivilegesProperty] -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"CreateTableDefaultPermissions"
                 ([PrincipalPrivilegesProperty] -> (Key, Value))
-> Maybe [PrincipalPrivilegesProperty] -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [PrincipalPrivilegesProperty]
createTableDefaultPermissions,
               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Description" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
description,
               Key -> FederatedDatabaseProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"FederatedDatabase" (FederatedDatabaseProperty -> (Key, Value))
-> Maybe FederatedDatabaseProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe FederatedDatabaseProperty
federatedDatabase,
               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"LocationUri" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
locationUri,
               Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Name" (Value Text -> (Key, Value))
-> Maybe (Value Text) -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (Value Text)
name,
               Key -> Object -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"Parameters" (Object -> (Key, Value)) -> Maybe Object -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Object
parameters,
               Key -> DatabaseIdentifierProperty -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
(JSON..=) Key
"TargetDatabase" (DatabaseIdentifierProperty -> (Key, Value))
-> Maybe DatabaseIdentifierProperty -> Maybe (Key, Value)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe DatabaseIdentifierProperty
targetDatabase]))
instance Property "CreateTableDefaultPermissions" DatabaseInputProperty where
  type PropertyType "CreateTableDefaultPermissions" DatabaseInputProperty = [PrincipalPrivilegesProperty]
  set :: PropertyType "CreateTableDefaultPermissions" DatabaseInputProperty
-> DatabaseInputProperty -> DatabaseInputProperty
set PropertyType "CreateTableDefaultPermissions" DatabaseInputProperty
newValue DatabaseInputProperty {Maybe [PrincipalPrivilegesProperty]
Maybe Object
Maybe (Value Text)
Maybe DatabaseIdentifierProperty
Maybe FederatedDatabaseProperty
()
haddock_workaround_ :: DatabaseInputProperty -> ()
createTableDefaultPermissions :: DatabaseInputProperty -> Maybe [PrincipalPrivilegesProperty]
description :: DatabaseInputProperty -> Maybe (Value Text)
federatedDatabase :: DatabaseInputProperty -> Maybe FederatedDatabaseProperty
locationUri :: DatabaseInputProperty -> Maybe (Value Text)
name :: DatabaseInputProperty -> Maybe (Value Text)
parameters :: DatabaseInputProperty -> Maybe Object
targetDatabase :: DatabaseInputProperty -> Maybe DatabaseIdentifierProperty
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
description :: Maybe (Value Text)
federatedDatabase :: Maybe FederatedDatabaseProperty
locationUri :: Maybe (Value Text)
name :: Maybe (Value Text)
parameters :: Maybe Object
targetDatabase :: Maybe DatabaseIdentifierProperty
..}
    = DatabaseInputProperty
        {createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
createTableDefaultPermissions = [PrincipalPrivilegesProperty]
-> Maybe [PrincipalPrivilegesProperty]
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure [PrincipalPrivilegesProperty]
PropertyType "CreateTableDefaultPermissions" DatabaseInputProperty
newValue, Maybe Object
Maybe (Value Text)
Maybe DatabaseIdentifierProperty
Maybe FederatedDatabaseProperty
()
haddock_workaround_ :: ()
description :: Maybe (Value Text)
federatedDatabase :: Maybe FederatedDatabaseProperty
locationUri :: Maybe (Value Text)
name :: Maybe (Value Text)
parameters :: Maybe Object
targetDatabase :: Maybe DatabaseIdentifierProperty
haddock_workaround_ :: ()
description :: Maybe (Value Text)
federatedDatabase :: Maybe FederatedDatabaseProperty
locationUri :: Maybe (Value Text)
name :: Maybe (Value Text)
parameters :: Maybe Object
targetDatabase :: Maybe DatabaseIdentifierProperty
..}
instance Property "Description" DatabaseInputProperty where
  type PropertyType "Description" DatabaseInputProperty = Value Prelude.Text
  set :: PropertyType "Description" DatabaseInputProperty
-> DatabaseInputProperty -> DatabaseInputProperty
set PropertyType "Description" DatabaseInputProperty
newValue DatabaseInputProperty {Maybe [PrincipalPrivilegesProperty]
Maybe Object
Maybe (Value Text)
Maybe DatabaseIdentifierProperty
Maybe FederatedDatabaseProperty
()
haddock_workaround_ :: DatabaseInputProperty -> ()
createTableDefaultPermissions :: DatabaseInputProperty -> Maybe [PrincipalPrivilegesProperty]
description :: DatabaseInputProperty -> Maybe (Value Text)
federatedDatabase :: DatabaseInputProperty -> Maybe FederatedDatabaseProperty
locationUri :: DatabaseInputProperty -> Maybe (Value Text)
name :: DatabaseInputProperty -> Maybe (Value Text)
parameters :: DatabaseInputProperty -> Maybe Object
targetDatabase :: DatabaseInputProperty -> Maybe DatabaseIdentifierProperty
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
description :: Maybe (Value Text)
federatedDatabase :: Maybe FederatedDatabaseProperty
locationUri :: Maybe (Value Text)
name :: Maybe (Value Text)
parameters :: Maybe Object
targetDatabase :: Maybe DatabaseIdentifierProperty
..}
    = DatabaseInputProperty {description :: Maybe (Value Text)
description = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Description" DatabaseInputProperty
Value Text
newValue, Maybe [PrincipalPrivilegesProperty]
Maybe Object
Maybe (Value Text)
Maybe DatabaseIdentifierProperty
Maybe FederatedDatabaseProperty
()
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
federatedDatabase :: Maybe FederatedDatabaseProperty
locationUri :: Maybe (Value Text)
name :: Maybe (Value Text)
parameters :: Maybe Object
targetDatabase :: Maybe DatabaseIdentifierProperty
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
federatedDatabase :: Maybe FederatedDatabaseProperty
locationUri :: Maybe (Value Text)
name :: Maybe (Value Text)
parameters :: Maybe Object
targetDatabase :: Maybe DatabaseIdentifierProperty
..}
instance Property "FederatedDatabase" DatabaseInputProperty where
  type PropertyType "FederatedDatabase" DatabaseInputProperty = FederatedDatabaseProperty
  set :: PropertyType "FederatedDatabase" DatabaseInputProperty
-> DatabaseInputProperty -> DatabaseInputProperty
set PropertyType "FederatedDatabase" DatabaseInputProperty
newValue DatabaseInputProperty {Maybe [PrincipalPrivilegesProperty]
Maybe Object
Maybe (Value Text)
Maybe DatabaseIdentifierProperty
Maybe FederatedDatabaseProperty
()
haddock_workaround_ :: DatabaseInputProperty -> ()
createTableDefaultPermissions :: DatabaseInputProperty -> Maybe [PrincipalPrivilegesProperty]
description :: DatabaseInputProperty -> Maybe (Value Text)
federatedDatabase :: DatabaseInputProperty -> Maybe FederatedDatabaseProperty
locationUri :: DatabaseInputProperty -> Maybe (Value Text)
name :: DatabaseInputProperty -> Maybe (Value Text)
parameters :: DatabaseInputProperty -> Maybe Object
targetDatabase :: DatabaseInputProperty -> Maybe DatabaseIdentifierProperty
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
description :: Maybe (Value Text)
federatedDatabase :: Maybe FederatedDatabaseProperty
locationUri :: Maybe (Value Text)
name :: Maybe (Value Text)
parameters :: Maybe Object
targetDatabase :: Maybe DatabaseIdentifierProperty
..}
    = DatabaseInputProperty
        {federatedDatabase :: Maybe FederatedDatabaseProperty
federatedDatabase = FederatedDatabaseProperty -> Maybe FederatedDatabaseProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "FederatedDatabase" DatabaseInputProperty
FederatedDatabaseProperty
newValue, Maybe [PrincipalPrivilegesProperty]
Maybe Object
Maybe (Value Text)
Maybe DatabaseIdentifierProperty
()
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
description :: Maybe (Value Text)
locationUri :: Maybe (Value Text)
name :: Maybe (Value Text)
parameters :: Maybe Object
targetDatabase :: Maybe DatabaseIdentifierProperty
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
description :: Maybe (Value Text)
locationUri :: Maybe (Value Text)
name :: Maybe (Value Text)
parameters :: Maybe Object
targetDatabase :: Maybe DatabaseIdentifierProperty
..}
instance Property "LocationUri" DatabaseInputProperty where
  type PropertyType "LocationUri" DatabaseInputProperty = Value Prelude.Text
  set :: PropertyType "LocationUri" DatabaseInputProperty
-> DatabaseInputProperty -> DatabaseInputProperty
set PropertyType "LocationUri" DatabaseInputProperty
newValue DatabaseInputProperty {Maybe [PrincipalPrivilegesProperty]
Maybe Object
Maybe (Value Text)
Maybe DatabaseIdentifierProperty
Maybe FederatedDatabaseProperty
()
haddock_workaround_ :: DatabaseInputProperty -> ()
createTableDefaultPermissions :: DatabaseInputProperty -> Maybe [PrincipalPrivilegesProperty]
description :: DatabaseInputProperty -> Maybe (Value Text)
federatedDatabase :: DatabaseInputProperty -> Maybe FederatedDatabaseProperty
locationUri :: DatabaseInputProperty -> Maybe (Value Text)
name :: DatabaseInputProperty -> Maybe (Value Text)
parameters :: DatabaseInputProperty -> Maybe Object
targetDatabase :: DatabaseInputProperty -> Maybe DatabaseIdentifierProperty
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
description :: Maybe (Value Text)
federatedDatabase :: Maybe FederatedDatabaseProperty
locationUri :: Maybe (Value Text)
name :: Maybe (Value Text)
parameters :: Maybe Object
targetDatabase :: Maybe DatabaseIdentifierProperty
..}
    = DatabaseInputProperty {locationUri :: Maybe (Value Text)
locationUri = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "LocationUri" DatabaseInputProperty
Value Text
newValue, Maybe [PrincipalPrivilegesProperty]
Maybe Object
Maybe (Value Text)
Maybe DatabaseIdentifierProperty
Maybe FederatedDatabaseProperty
()
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
description :: Maybe (Value Text)
federatedDatabase :: Maybe FederatedDatabaseProperty
name :: Maybe (Value Text)
parameters :: Maybe Object
targetDatabase :: Maybe DatabaseIdentifierProperty
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
description :: Maybe (Value Text)
federatedDatabase :: Maybe FederatedDatabaseProperty
name :: Maybe (Value Text)
parameters :: Maybe Object
targetDatabase :: Maybe DatabaseIdentifierProperty
..}
instance Property "Name" DatabaseInputProperty where
  type PropertyType "Name" DatabaseInputProperty = Value Prelude.Text
  set :: PropertyType "Name" DatabaseInputProperty
-> DatabaseInputProperty -> DatabaseInputProperty
set PropertyType "Name" DatabaseInputProperty
newValue DatabaseInputProperty {Maybe [PrincipalPrivilegesProperty]
Maybe Object
Maybe (Value Text)
Maybe DatabaseIdentifierProperty
Maybe FederatedDatabaseProperty
()
haddock_workaround_ :: DatabaseInputProperty -> ()
createTableDefaultPermissions :: DatabaseInputProperty -> Maybe [PrincipalPrivilegesProperty]
description :: DatabaseInputProperty -> Maybe (Value Text)
federatedDatabase :: DatabaseInputProperty -> Maybe FederatedDatabaseProperty
locationUri :: DatabaseInputProperty -> Maybe (Value Text)
name :: DatabaseInputProperty -> Maybe (Value Text)
parameters :: DatabaseInputProperty -> Maybe Object
targetDatabase :: DatabaseInputProperty -> Maybe DatabaseIdentifierProperty
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
description :: Maybe (Value Text)
federatedDatabase :: Maybe FederatedDatabaseProperty
locationUri :: Maybe (Value Text)
name :: Maybe (Value Text)
parameters :: Maybe Object
targetDatabase :: Maybe DatabaseIdentifierProperty
..}
    = DatabaseInputProperty {name :: Maybe (Value Text)
name = Value Text -> Maybe (Value Text)
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "Name" DatabaseInputProperty
Value Text
newValue, Maybe [PrincipalPrivilegesProperty]
Maybe Object
Maybe (Value Text)
Maybe DatabaseIdentifierProperty
Maybe FederatedDatabaseProperty
()
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
description :: Maybe (Value Text)
federatedDatabase :: Maybe FederatedDatabaseProperty
locationUri :: Maybe (Value Text)
parameters :: Maybe Object
targetDatabase :: Maybe DatabaseIdentifierProperty
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
description :: Maybe (Value Text)
federatedDatabase :: Maybe FederatedDatabaseProperty
locationUri :: Maybe (Value Text)
parameters :: Maybe Object
targetDatabase :: Maybe DatabaseIdentifierProperty
..}
instance Property "Parameters" DatabaseInputProperty where
  type PropertyType "Parameters" DatabaseInputProperty = JSON.Object
  set :: PropertyType "Parameters" DatabaseInputProperty
-> DatabaseInputProperty -> DatabaseInputProperty
set PropertyType "Parameters" DatabaseInputProperty
newValue DatabaseInputProperty {Maybe [PrincipalPrivilegesProperty]
Maybe Object
Maybe (Value Text)
Maybe DatabaseIdentifierProperty
Maybe FederatedDatabaseProperty
()
haddock_workaround_ :: DatabaseInputProperty -> ()
createTableDefaultPermissions :: DatabaseInputProperty -> Maybe [PrincipalPrivilegesProperty]
description :: DatabaseInputProperty -> Maybe (Value Text)
federatedDatabase :: DatabaseInputProperty -> Maybe FederatedDatabaseProperty
locationUri :: DatabaseInputProperty -> Maybe (Value Text)
name :: DatabaseInputProperty -> Maybe (Value Text)
parameters :: DatabaseInputProperty -> Maybe Object
targetDatabase :: DatabaseInputProperty -> Maybe DatabaseIdentifierProperty
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
description :: Maybe (Value Text)
federatedDatabase :: Maybe FederatedDatabaseProperty
locationUri :: Maybe (Value Text)
name :: Maybe (Value Text)
parameters :: Maybe Object
targetDatabase :: Maybe DatabaseIdentifierProperty
..}
    = DatabaseInputProperty {parameters :: Maybe Object
parameters = Object -> Maybe Object
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure Object
PropertyType "Parameters" DatabaseInputProperty
newValue, Maybe [PrincipalPrivilegesProperty]
Maybe (Value Text)
Maybe DatabaseIdentifierProperty
Maybe FederatedDatabaseProperty
()
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
description :: Maybe (Value Text)
federatedDatabase :: Maybe FederatedDatabaseProperty
locationUri :: Maybe (Value Text)
name :: Maybe (Value Text)
targetDatabase :: Maybe DatabaseIdentifierProperty
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
description :: Maybe (Value Text)
federatedDatabase :: Maybe FederatedDatabaseProperty
locationUri :: Maybe (Value Text)
name :: Maybe (Value Text)
targetDatabase :: Maybe DatabaseIdentifierProperty
..}
instance Property "TargetDatabase" DatabaseInputProperty where
  type PropertyType "TargetDatabase" DatabaseInputProperty = DatabaseIdentifierProperty
  set :: PropertyType "TargetDatabase" DatabaseInputProperty
-> DatabaseInputProperty -> DatabaseInputProperty
set PropertyType "TargetDatabase" DatabaseInputProperty
newValue DatabaseInputProperty {Maybe [PrincipalPrivilegesProperty]
Maybe Object
Maybe (Value Text)
Maybe DatabaseIdentifierProperty
Maybe FederatedDatabaseProperty
()
haddock_workaround_ :: DatabaseInputProperty -> ()
createTableDefaultPermissions :: DatabaseInputProperty -> Maybe [PrincipalPrivilegesProperty]
description :: DatabaseInputProperty -> Maybe (Value Text)
federatedDatabase :: DatabaseInputProperty -> Maybe FederatedDatabaseProperty
locationUri :: DatabaseInputProperty -> Maybe (Value Text)
name :: DatabaseInputProperty -> Maybe (Value Text)
parameters :: DatabaseInputProperty -> Maybe Object
targetDatabase :: DatabaseInputProperty -> Maybe DatabaseIdentifierProperty
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
description :: Maybe (Value Text)
federatedDatabase :: Maybe FederatedDatabaseProperty
locationUri :: Maybe (Value Text)
name :: Maybe (Value Text)
parameters :: Maybe Object
targetDatabase :: Maybe DatabaseIdentifierProperty
..}
    = DatabaseInputProperty
        {targetDatabase :: Maybe DatabaseIdentifierProperty
targetDatabase = DatabaseIdentifierProperty -> Maybe DatabaseIdentifierProperty
forall a. a -> Maybe a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure PropertyType "TargetDatabase" DatabaseInputProperty
DatabaseIdentifierProperty
newValue, Maybe [PrincipalPrivilegesProperty]
Maybe Object
Maybe (Value Text)
Maybe FederatedDatabaseProperty
()
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
description :: Maybe (Value Text)
federatedDatabase :: Maybe FederatedDatabaseProperty
locationUri :: Maybe (Value Text)
name :: Maybe (Value Text)
parameters :: Maybe Object
haddock_workaround_ :: ()
createTableDefaultPermissions :: Maybe [PrincipalPrivilegesProperty]
description :: Maybe (Value Text)
federatedDatabase :: Maybe FederatedDatabaseProperty
locationUri :: Maybe (Value Text)
name :: Maybe (Value Text)
parameters :: Maybe Object
..}