Database.Beam.AutoMigrate.Annotated

This module provides an AnnotatedDatabaseSettings type to be used as a drop-in replacement for the standard DatabaseSettings. Is it possible to "downcast" an AnnotatedDatabaseSettings to a standard DatabaseSettings simply by calling deAnnotateDatabase.

User annotations

data Annotation where

A user-defined annotation. Currently the only possible annotation is the ability to specify for which tables the FK-discovery algorithm is "turned" off.

Constructors

UserDefinedFk :: TableKind -> Annotation

Specifies that the given TableKind (i.e. a table) has user-specified FK constraints. This is useful in case of ambiguity, i.e. when the automatic FK-discovery algorithm is not capable to infer the correct ForeignKey constraints for a Table. This can happen when the PrimaryKey type family is not injective, which means there are multiple tables of table FooT in the DB. Consider a situation where we have a table BarT having a field of type barField :: PrimaryKey FooT f but (crucially) there are two tables with type f (TableEntity FooT) in the final database. In this circumstance the FK-discovery algorithm will bail out with a (static) error, and this is where this annotation comes into play: it allows us to selectively "disable" the discovery for the given table(s), and manually override the FKs.

Caveat emptor: Due to what we said earlier (namely that we cannot enforce that tables are not repeated multiple times within a DB) there might be situations where also the specified TableKind is not unique. In this case the annotation would affect all the tables of the same type, but that is usually unavoidable, as the ambiguity was already present the minute we introduced in the DB two tables of the same type, and so it makes sense for the user to fully resolve the ambiguity manually.

Instances

(IsAnnotatedDatabaseEntity be (TableEntity tbl), GColumns 'GenSequences (Rep (TableSchema tbl)), Generic (TableSchema tbl), Table tbl, GTableConstraintColumns be db (Rep (TableSchema tbl))) => GTableEntry be db ('[] :: [Annotation]) 'False (K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl)) :: Type -> Type)

Defined in Database.Beam.AutoMigrate.Generic

Methods

gTableEntries :: AnnotatedDatabaseSettings be db -> Proxy '[] -> Proxy 'False -> K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl)) p -> ([(TableName, Table)], Sequences)

(IsAnnotatedDatabaseEntity be (TableEntity tbl), GColumns 'GenSequences (Rep (TableSchema tbl)), Generic (TableSchema tbl), Table tbl) => GTableEntry be db ('[] :: [Annotation]) 'True (K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl)) :: Type -> Type)

Defined in Database.Beam.AutoMigrate.Generic

Methods

gTableEntries :: AnnotatedDatabaseSettings be db -> Proxy '[] -> Proxy 'True -> K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl)) p -> ([(TableName, Table)], Sequences)

(GColumns 'GenSequences (Rep (TableSchema tbl)), Generic (TableSchema tbl), Table tbl) => GTableEntry be db ('UserDefinedFk tbl' ': xs) 'True (K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl)) :: Type -> Type)

Defined in Database.Beam.AutoMigrate.Generic

Methods

gTableEntries :: AnnotatedDatabaseSettings be db -> Proxy ('UserDefinedFk tbl' ': xs) -> Proxy 'True -> K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl)) p -> ([(TableName, Table)], Sequences)

(GColumns 'GenSequences (Rep (TableSchema tbl)), Generic (TableSchema tbl), Table tbl, GTableEntry be db xs (TestTableEqual tbl tbl') (K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl)) :: Type -> Type)) => GTableEntry be db ('UserDefinedFk tbl' ': xs) 'False (K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl)) :: Type -> Type)

Defined in Database.Beam.AutoMigrate.Generic

Methods

gTableEntries :: AnnotatedDatabaseSettings be db -> Proxy ('UserDefinedFk tbl' ': xs) -> Proxy 'False -> K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl)) p -> ([(TableName, Table)], Sequences)

Annotating a DatabaseSettings

type AnnotatedDatabaseSettings be db = db (AnnotatedDatabaseEntity be db)

An AnnotatedDatabaseSettings is similar in spirit to a beam-core DatabaseSettings, but it embellish the latter with extra metadata this library can use to derive more information about the input DB, like table and column constraints.

data AnnotatedDatabaseEntity be (db :: (* -> *) -> *) entityType where

An AnnotatedDatabaseEntity wraps the underlying DatabaseEntity together with an annotated description called AnnotatedDatabaseEntityDescriptor, which is once again similar to the standard DatabaseEntityDescriptor from Beam.

An AnnotatedDatabaseEntityDescriptor is not a concrete type, but rather a data family provided by the IsAnnotatedDatabaseEntity.

Constructors

AnnotatedDatabaseEntity :: (IsAnnotatedDatabaseEntity be entityType, IsDatabaseEntity be entityType) => AnnotatedDatabaseEntityDescriptor be entityType -> DatabaseEntity be db entityType -> AnnotatedDatabaseEntity be db entityType

Instances

(Generic (innerDB (AnnotatedDatabaseEntity be outerDB)), Database be innerDB, GTableEntry be outerDB xs found (Rep (innerDB (AnnotatedDatabaseEntity be outerDB)))) => GTableEntry be outerDB xs found (K1 R (innerDB (AnnotatedDatabaseEntity be outerDB)) :: Type -> Type)

Defined in Database.Beam.AutoMigrate.Generic

Methods

gTableEntries :: AnnotatedDatabaseSettings be outerDB -> Proxy xs -> Proxy found -> K1 R (innerDB (AnnotatedDatabaseEntity be outerDB)) p -> ([(TableName, Table)], Sequences)

(IsAnnotatedDatabaseEntity be (TableEntity tbl), Table tbl, GEnums be db (Rep (TableSchema tbl)), Generic (TableSchema tbl)) => GEnums be db (S1 f (K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl)) :: k -> Type) :: k -> Type)

Defined in Database.Beam.AutoMigrate.Generic

Methods

gEnums :: forall (p :: k0). AnnotatedDatabaseSettings be db -> S1 f (K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl))) p -> Enumerations

(IsAnnotatedDatabaseEntity be (TableEntity tbl), GColumns 'GenSequences (Rep (TableSchema tbl)), Generic (TableSchema tbl), Table tbl, GTableConstraintColumns be db (Rep (TableSchema tbl))) => GTableEntry be db ('[] :: [Annotation]) 'False (K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl)) :: Type -> Type)

Defined in Database.Beam.AutoMigrate.Generic

Methods

gTableEntries :: AnnotatedDatabaseSettings be db -> Proxy '[] -> Proxy 'False -> K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl)) p -> ([(TableName, Table)], Sequences)

(IsAnnotatedDatabaseEntity be (TableEntity tbl), GColumns 'GenSequences (Rep (TableSchema tbl)), Generic (TableSchema tbl), Table tbl) => GTableEntry be db ('[] :: [Annotation]) 'True (K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl)) :: Type -> Type)

Defined in Database.Beam.AutoMigrate.Generic

Methods

gTableEntries :: AnnotatedDatabaseSettings be db -> Proxy '[] -> Proxy 'True -> K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl)) p -> ([(TableName, Table)], Sequences)

(GTableLookupTablesExpectFail sel tbl (Rep (innerDb (AnnotatedDatabaseEntity be outerDb))) k, Generic (innerDb (AnnotatedDatabaseEntity be outerDb)), Database be innerDb) => GTableLookupTablesExpectFail sel tbl (K1 R (innerDb (AnnotatedDatabaseEntity be outerDb)) :: Type -> Type) k

Defined in Database.Beam.AutoMigrate.Generic

Methods

gTableLookupTablesExpectFail :: Proxy sel -> Proxy tbl -> (TableName, [ColumnName]) -> K1 R (innerDb (AnnotatedDatabaseEntity be outerDb)) p -> k p -> (TableName, [ColumnName])

(GTableLookupTableExpectFail (TestTableEqual tbl tbl') sel tbl k, Beamable tbl') => GTableLookupTablesExpectFail sel tbl (K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl')) :: Type -> Type) k

Defined in Database.Beam.AutoMigrate.Generic

Methods

gTableLookupTablesExpectFail :: Proxy sel -> Proxy tbl -> (TableName, [ColumnName]) -> K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl')) p -> k p -> (TableName, [ColumnName])

(GTableLookupTables sel tbl (Rep (innerDB (AnnotatedDatabaseEntity be outerDB))) k, Database be innerDB, Generic (innerDB (AnnotatedDatabaseEntity be outerDB))) => GTableLookupTables sel tbl (K1 R (innerDB (AnnotatedDatabaseEntity be outerDB)) :: Type -> Type) k

Defined in Database.Beam.AutoMigrate.Generic

Methods

gTableLookupTables :: Proxy sel -> Proxy tbl -> K1 R (innerDB (AnnotatedDatabaseEntity be outerDB)) p -> k p -> (TableName, [ColumnName])

(GTableLookupTable (TestTableEqual tbl tbl') sel tbl k, Beamable tbl', Table tbl') => GTableLookupTables sel tbl (K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl')) :: Type -> Type) k

Defined in Database.Beam.AutoMigrate.Generic

Methods

gTableLookupTables :: Proxy sel -> Proxy tbl -> K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl')) p -> k p -> (TableName, [ColumnName])

(GColumns 'GenSequences (Rep (TableSchema tbl)), Generic (TableSchema tbl), Table tbl) => GTableEntry be db ('UserDefinedFk tbl' ': xs) 'True (K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl)) :: Type -> Type)

Defined in Database.Beam.AutoMigrate.Generic

Methods

gTableEntries :: AnnotatedDatabaseSettings be db -> Proxy ('UserDefinedFk tbl' ': xs) -> Proxy 'True -> K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl)) p -> ([(TableName, Table)], Sequences)

(GColumns 'GenSequences (Rep (TableSchema tbl)), Generic (TableSchema tbl), Table tbl, GTableEntry be db xs (TestTableEqual tbl tbl') (K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl)) :: Type -> Type)) => GTableEntry be db ('UserDefinedFk tbl' ': xs) 'False (K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl)) :: Type -> Type)

Defined in Database.Beam.AutoMigrate.Generic

Methods

gTableEntries :: AnnotatedDatabaseSettings be db -> Proxy ('UserDefinedFk tbl' ': xs) -> Proxy 'False -> K1 R (AnnotatedDatabaseEntity be db (TableEntity tbl)) p -> ([(TableName, Table)], Sequences)

class IsDatabaseEntity be entityType => IsAnnotatedDatabaseEntity be entityType where

Associated Types

data AnnotatedDatabaseEntityDescriptor be entityType :: *

type AnnotatedDatabaseEntityDefaultRequirements be entityType :: Constraint

type AnnotatedDatabaseEntityRegularRequirements be entityType :: Constraint

Methods

dbAnnotatedEntityAuto :: AnnotatedDatabaseEntityRegularRequirements be entityType => DatabaseEntityDescriptor be entityType -> AnnotatedDatabaseEntityDescriptor be entityType

Instances

IsDatabaseEntity be (TableEntity tbl) => IsAnnotatedDatabaseEntity be (TableEntity tbl)

Defined in Database.Beam.AutoMigrate.Annotated

Associated Types

data AnnotatedDatabaseEntityDescriptor be (TableEntity tbl)

type AnnotatedDatabaseEntityDefaultRequirements be (TableEntity tbl)

type AnnotatedDatabaseEntityRegularRequirements be (TableEntity tbl)

Methods

dbAnnotatedEntityAuto :: DatabaseEntityDescriptor be (TableEntity tbl) -> AnnotatedDatabaseEntityDescriptor be (TableEntity tbl)

type TableSchema tbl = tbl (TableFieldSchema tbl)

A table schema.

data TableFieldSchema (tbl :: (* -> *) -> *) ty where

A schema for a field within a given table

Constructors

TableFieldSchema

Fields

• :: { tableFieldName :: ColumnName
•    , tableFieldSchema :: FieldSchema ty
•    } -> TableFieldSchema tbl ty

Instances

GTableConstraintColumns be db (S1 m (K1 R (TableFieldSchema tbl ty) :: k -> Type) :: k -> Type)

Defined in Database.Beam.AutoMigrate.Generic

Methods

gTableConstraintsColumns :: forall (p :: k0). AnnotatedDatabaseSettings be db -> TableName -> S1 m (K1 R (TableFieldSchema tbl ty)) p -> Set TableConstraint

GEnums be db (S1 f (K1 R (PrimaryKey tbl1 (g (TableFieldSchema tbl2))) :: k -> Type) :: k -> Type)

Defined in Database.Beam.AutoMigrate.Generic

Methods

gEnums :: forall (p :: k0). AnnotatedDatabaseSettings be db -> S1 f (K1 R (PrimaryKey tbl1 (g (TableFieldSchema tbl2)))) p -> Enumerations

GEnums be db (S1 f (K1 R (PrimaryKey tbl1 (TableFieldSchema tbl2)) :: k -> Type) :: k -> Type)

Defined in Database.Beam.AutoMigrate.Generic

Methods

gEnums :: forall (p :: k0). AnnotatedDatabaseSettings be db -> S1 f (K1 R (PrimaryKey tbl1 (TableFieldSchema tbl2))) p -> Enumerations

HasColumnType ty => GEnums be db (S1 f (K1 R (TableFieldSchema tbl ty) :: k -> Type) :: k -> Type)

Defined in Database.Beam.AutoMigrate.Generic

Methods

gEnums :: forall (p :: k0). AnnotatedDatabaseSettings be db -> S1 f (K1 R (TableFieldSchema tbl ty)) p -> Enumerations

HasCompanionSequence ty => GColumns 'GenSequences (S1 m (K1 R (TableFieldSchema tbl ty) :: Type -> Type))

Defined in Database.Beam.AutoMigrate.Generic

Methods

gColumns :: Proxy 'GenSequences -> TableName -> S1 m (K1 R (TableFieldSchema tbl ty)) p -> (Columns, Sequences)

GColumns 'NoGenSequences (S1 m (K1 R (TableFieldSchema tbl ty) :: Type -> Type))

Defined in Database.Beam.AutoMigrate.Generic

Methods

gColumns :: Proxy 'NoGenSequences -> TableName -> S1 m (K1 R (TableFieldSchema tbl ty)) p -> (Columns, Sequences)

(Generic (PrimaryKey tbl1 (g (TableField tbl2))), Generic (PrimaryKey tbl1 (g (TableFieldSchema tbl2))), GDefaultTableSchema (Rep (PrimaryKey tbl1 (g (TableFieldSchema tbl2))) ()) (Rep (PrimaryKey tbl1 (g (TableField tbl2))) ())) => GDefaultTableSchema (S1 f (K1 R (PrimaryKey tbl1 (g (TableFieldSchema tbl2))) :: Type -> Type) p) (S1 f (K1 R (PrimaryKey tbl1 (g (TableField tbl2))) :: Type -> Type) p)

Instance for things like 'Nullable (TableFieldSchema tbl)'.

Defined in Database.Beam.AutoMigrate.Annotated

Methods

gDefTblSchema :: Proxy (S1 f (K1 R (PrimaryKey tbl1 (g (TableFieldSchema tbl2)))) p) -> S1 f (K1 R (PrimaryKey tbl1 (g (TableField tbl2)))) p -> S1 f (K1 R (PrimaryKey tbl1 (g (TableFieldSchema tbl2)))) p

(Generic (g (TableField tbl2)), Generic (g (TableFieldSchema tbl2)), GDefaultTableSchema (Rep (g (TableFieldSchema tbl2)) ()) (Rep (g (TableField tbl2)) ())) => GDefaultTableSchema (S1 f (K1 R (g (TableFieldSchema tbl2)) :: Type -> Type) ()) (S1 f (K1 R (g (TableField tbl2)) :: Type -> Type) ())

Instance where g is things like a PrimaryKey or a mixin.

Defined in Database.Beam.AutoMigrate.Annotated

Methods

gDefTblSchema :: Proxy (S1 f (K1 R (g (TableFieldSchema tbl2))) ()) -> S1 f (K1 R (g (TableField tbl2))) () -> S1 f (K1 R (g (TableFieldSchema tbl2))) ()

(SchemaConstraint (TableField tbl ty) ~ ColumnConstraint, HasSchemaConstraints (TableField tbl ty), HasColumnType ty) => GDefaultTableSchema (S1 f (K1 R (TableFieldSchema tbl ty) :: Type -> Type) p) (S1 f (K1 R (TableField tbl ty) :: Type -> Type) p)

Defined in Database.Beam.AutoMigrate.Annotated

Methods

gDefTblSchema :: Proxy (S1 f (K1 R (TableFieldSchema tbl ty)) p) -> S1 f (K1 R (TableField tbl ty)) p -> S1 f (K1 R (TableFieldSchema tbl ty)) p

data FieldSchema ty where

Constructors

FieldSchema :: ColumnType -> Set ColumnConstraint -> FieldSchema ty

Instances

Show (FieldSchema ty)

Defined in Database.Beam.AutoMigrate.Annotated

Methods

showsPrec :: Int -> FieldSchema ty -> ShowS

show :: FieldSchema ty -> String

showList :: [FieldSchema ty] -> ShowS

annotatedDescriptor :: SimpleGetter (AnnotatedDatabaseEntity be db entityType) (AnnotatedDatabaseEntityDescriptor be entityType)

defaultTableSchema :: forall tbl. (GDefaultTableSchema (Rep (TableSchema tbl) ()) (Rep (TableSettings tbl) ()), Generic (TableSchema tbl), Generic (TableSettings tbl)) => TableSettings tbl -> TableSchema tbl

class GDefaultTableSchema x y where

Methods

gDefTblSchema :: Proxy x -> y -> x

Instances

(GDefaultTableSchema (a p) (c p), GDefaultTableSchema (b p) (d p)) => GDefaultTableSchema ((a :*: b) p) ((c :*: d) p)

Defined in Database.Beam.AutoMigrate.Annotated

Methods

gDefTblSchema :: Proxy ((a :*: b) p) -> (c :*: d) p -> (a :*: b) p

GDefaultTableSchema (x p) (y p) => GDefaultTableSchema (D1 f x p) (D1 f y p)

Defined in Database.Beam.AutoMigrate.Annotated

Methods

gDefTblSchema :: Proxy (D1 f x p) -> D1 f y p -> D1 f x p

GDefaultTableSchema (x p) (y p) => GDefaultTableSchema (C1 f x p) (C1 f y p)

Defined in Database.Beam.AutoMigrate.Annotated

Methods

gDefTblSchema :: Proxy (C1 f x p) -> C1 f y p -> C1 f x p

(Generic (PrimaryKey tbl1 (g (TableField tbl2))), Generic (PrimaryKey tbl1 (g (TableFieldSchema tbl2))), GDefaultTableSchema (Rep (PrimaryKey tbl1 (g (TableFieldSchema tbl2))) ()) (Rep (PrimaryKey tbl1 (g (TableField tbl2))) ())) => GDefaultTableSchema (S1 f (K1 R (PrimaryKey tbl1 (g (TableFieldSchema tbl2))) :: Type -> Type) p) (S1 f (K1 R (PrimaryKey tbl1 (g (TableField tbl2))) :: Type -> Type) p)

Instance for things like 'Nullable (TableFieldSchema tbl)'.

Defined in Database.Beam.AutoMigrate.Annotated

Methods

gDefTblSchema :: Proxy (S1 f (K1 R (PrimaryKey tbl1 (g (TableFieldSchema tbl2)))) p) -> S1 f (K1 R (PrimaryKey tbl1 (g (TableField tbl2)))) p -> S1 f (K1 R (PrimaryKey tbl1 (g (TableFieldSchema tbl2)))) p

(Generic (g (TableField tbl2)), Generic (g (TableFieldSchema tbl2)), GDefaultTableSchema (Rep (g (TableFieldSchema tbl2)) ()) (Rep (g (TableField tbl2)) ())) => GDefaultTableSchema (S1 f (K1 R (g (TableFieldSchema tbl2)) :: Type -> Type) ()) (S1 f (K1 R (g (TableField tbl2)) :: Type -> Type) ())

Instance where g is things like a PrimaryKey or a mixin.

Defined in Database.Beam.AutoMigrate.Annotated

Methods

gDefTblSchema :: Proxy (S1 f (K1 R (g (TableFieldSchema tbl2))) ()) -> S1 f (K1 R (g (TableField tbl2))) () -> S1 f (K1 R (g (TableFieldSchema tbl2))) ()

(SchemaConstraint (TableField tbl ty) ~ ColumnConstraint, HasSchemaConstraints (TableField tbl ty), HasColumnType ty) => GDefaultTableSchema (S1 f (K1 R (TableFieldSchema tbl ty) :: Type -> Type) p) (S1 f (K1 R (TableField tbl ty) :: Type -> Type) p)

Defined in Database.Beam.AutoMigrate.Annotated

Methods

gDefTblSchema :: Proxy (S1 f (K1 R (TableFieldSchema tbl ty)) p) -> S1 f (K1 R (TableField tbl ty)) p -> S1 f (K1 R (TableFieldSchema tbl ty)) p

Downcasting annotated types

lowerEntityDescriptor :: SimpleGetter (AnnotatedDatabaseEntity be db entityType) (DatabaseEntityDescriptor be entityType)

A SimpleGetter to get a plain DatabaseEntityDescriptor from an AnnotatedDatabaseEntity.

deannotate :: SimpleGetter (AnnotatedDatabaseEntity be db entityType) (DatabaseEntity be db entityType)

Specifying constraints

Once an AnnotatedDatabaseSettings has been acquired, the user is able to customise the default medatata associated with it. In order to do so, one can reuse the existing machinery from Beam, in particular the withDbModification. For example:

annotatedDB :: AnnotatedDatabaseSettings Postgres FlowerDB
annotatedDB = defaultAnnotatedDbSettings flowerDB `withDbModification` dbModification
  { dbFlowers   = annotateTableFields tableModification { flowerDiscounted = defaultsTo (val_ $ Just True)
                                                        , flowerPrice = defaultsTo (val_ $ Just 10.0)
                                                        }
               <> uniqueFields [U (addressPostalCode . addressRegion . flowerAddress)]
  , dbLineItems = annotateTableFields tableModification { lineItemDiscount = defaultsTo (val_ $ Just False) }
               <> uniqueFields [U lineItemFlowerID, U lineItemOrderID, U lineItemQuantity]
  , dbOrders = annotateTableFields tableModification { orderTime = defaultsTo (cast_ currentTimestamp_ utctime) }
             <> foreignKeyOnPk (dbFlowers flowerDB) orderFlowerIdRef Cascade Restrict
             <> uniqueFields [U (addressPostalCode . addressRegion . orderAddress)]
  }

Refer to the rest of the documentation for this module for more information about annotateTableFields, uniqueFields and foreignKeyOnPk.

annotateTableFields :: tbl (FieldModification (TableFieldSchema tbl)) -> EntityModification (AnnotatedDatabaseEntity be db) be (TableEntity tbl)

Annotate the table fields for a given AnnotatedDatabaseEntity. Refer to the $specifyingConstraints section for an example.

Specifying Column constraints

Due to the fact most column constraints can span multiple columns (think about UNIQUE or FOREIGN KEY) the only constraint associated to a TableFieldSchema we allow to customise at the "single-column-granularity" is DEFAULT.

defaultsTo :: (HasColumnType ty, HasSqlValueSyntax PgValueSyntax ty) => (forall ctx s. QGenExpr ctx Postgres s ty) -> FieldModification (TableFieldSchema tbl) ty

Specify a default value for an entity. The relevant migration will generate an associated SQL DEFAULT. This function accepts any Beam's expression that also the standard field machinery would accept, for example:

defaultsTo (val_ $ Just 10)

Specifying Table constraints

Is it possible to annotate an AnnotatedDatabaseEntity with UNIQUE and FOREIGN KEY constraints.

data UniqueConstraint (tbl :: (* -> *) -> *) where

Constructors

U :: HasColumnNames entity tbl => (tbl (TableField tbl) -> entity) -> UniqueConstraint tbl

Use this to "tag" a standard Beam TableField selector or PrimaryKey.

Unique constraint

uniqueConstraintOn :: [UniqueConstraint tbl] -> EntityModification (AnnotatedDatabaseEntity be db) be (TableEntity tbl)

Given a list of TableField selectors wrapped in a UniqueConstraint type constructor, it adds to the relevant AnnotatedDatabaseEntity a new UNIQUE TableConstraint composed by all the fields specified. To put it differently, every call to uniqueConstraintOn generates a separate UNIQUE constraint composed by the listed fields. If a PrimaryKey is passed as input, it will desugar under the hood into as many columns as the primary key refers to.

Foreign key constraint

data ForeignKeyConstraint (tbl :: (* -> *) -> *) (tbl' :: (* -> *) -> *) where

Constructors

References :: Beamable (PrimaryKey tbl') => (tbl (TableField tbl) -> PrimaryKey tbl' (TableField tbl)) -> (tbl' (TableField tbl') -> Columnar Identity (TableField tbl' ty)) -> ForeignKeyConstraint tbl tbl'

foreignKeyOnPk

Arguments

:: (Beamable (PrimaryKey tbl'), Beamable tbl', Table tbl', PrimaryKey tbl' f ~ PrimaryKey tbl' g)

=> DatabaseEntity be db (TableEntity tbl')

The DatabaseEntity of the referenced table.

-> (tbl (TableField tbl) -> PrimaryKey tbl' (TableField tbl))

A function yielding a PrimaryKey. This is usually a record field of the table you want to define the FK for, and it must have PrimaryKey externalTable f as its column-tag.

-> ReferenceAction

What do to "on delete"

-> ReferenceAction

What do to "on update"

-> EntityModification (AnnotatedDatabaseEntity be db) be (TableEntity tbl)

Special-case combinator to use when defining FK constraints referencing the primary key of the target table.

foreignKeyOn

Arguments

:: Beamable tbl'

=> DatabaseEntity be db (TableEntity tbl')

-> [ForeignKeyConstraint tbl tbl']

-> ReferenceAction

On Delete

-> ReferenceAction

On Update

-> EntityModification (AnnotatedDatabaseEntity be db) be (TableEntity tbl)

Other types and functions

type TableKind = (Type -> Type) -> Type

To make kind signatures more readable.

type DatabaseKind = (Type -> Type) -> Type

To make kind signatures more readable.

Ports from Beam

zipTables :: (Generic (db f), Generic (db g), Generic (db h), Monad m, GZipDatabase be f g h (Rep (db f)) (Rep (db g)) (Rep (db h))) => Proxy be -> (forall tbl. (IsAnnotatedDatabaseEntity be tbl, AnnotatedDatabaseEntityRegularRequirements be tbl) => f tbl -> g tbl -> m (h tbl)) -> db f -> db g -> m (db h)

Zip tables together. Unfortunately we cannot reuse the stock zipTables from 'beam-core', because it works by supplying a rank-2 function with IsDatabaseEntity and DatabaseEntityRegularRequirements as witnesses, we we need the annotated counterparts instead.

This function can be written without the need of a typeclass, but alas it requires the unexported GZipDatabase from 'beam-core', so we had to re-implement this ourselves for now.

class GZipDatabase be f g h x y z

See above on why this class has been re-implemented.

Minimal complete definition

gZipDatabase

Instances

(Database be db, Generic (db f), Generic (db g), Generic (db h), GZipDatabase be f g h (Rep (db f)) (Rep (db g)) (Rep (db h))) => GZipDatabase be f g h (K1 R (db f) :: Type -> Type) (K1 R (db g) :: Type -> Type) (K1 R (db h) :: Type -> Type)

Defined in Database.Beam.AutoMigrate.Annotated

Methods

gZipDatabase :: Monad m => (Proxy f, Proxy g, Proxy h, Proxy be) -> (forall tbl. (IsAnnotatedDatabaseEntity be tbl, AnnotatedDatabaseEntityRegularRequirements be tbl) => f tbl -> g tbl -> m (h tbl)) -> K1 R (db f) () -> K1 R (db g) () -> m (K1 R (db h) ())

(IsAnnotatedDatabaseEntity be tbl, AnnotatedDatabaseEntityRegularRequirements be tbl) => GZipDatabase be f g h (K1 R (f tbl) :: Type -> Type) (K1 R (g tbl) :: Type -> Type) (K1 R (h tbl) :: Type -> Type)

Defined in Database.Beam.AutoMigrate.Annotated

Methods

gZipDatabase :: Monad m => (Proxy f, Proxy g, Proxy h, Proxy be) -> (forall tbl0. (IsAnnotatedDatabaseEntity be tbl0, AnnotatedDatabaseEntityRegularRequirements be tbl0) => f tbl0 -> g tbl0 -> m (h tbl0)) -> K1 R (f tbl) () -> K1 R (g tbl) () -> m (K1 R (h tbl) ())

(GZipDatabase be f g h ax ay az, GZipDatabase be f g h bx by bz) => GZipDatabase be f g h (ax :*: bx) (ay :*: by) (az :*: bz)

Defined in Database.Beam.AutoMigrate.Annotated

Methods

gZipDatabase :: Monad m => (Proxy f, Proxy g, Proxy h, Proxy be) -> (forall tbl. (IsAnnotatedDatabaseEntity be tbl, AnnotatedDatabaseEntityRegularRequirements be tbl) => f tbl -> g tbl -> m (h tbl)) -> (ax :*: bx) () -> (ay :*: by) () -> m ((az :*: bz) ())

GZipDatabase be f g h x y z => GZipDatabase be f g h (M1 a b x) (M1 a b y) (M1 a b z)

Defined in Database.Beam.AutoMigrate.Annotated

Methods

gZipDatabase :: Monad m => (Proxy f, Proxy g, Proxy h, Proxy be) -> (forall tbl. (IsAnnotatedDatabaseEntity be tbl, AnnotatedDatabaseEntityRegularRequirements be tbl) => f tbl -> g tbl -> m (h tbl)) -> M1 a b x () -> M1 a b y () -> m (M1 a b z ())

Internals

pgDefaultConstraint :: forall ty. (HasColumnType ty, HasSqlValueSyntax PgValueSyntax ty) => (forall ctx s. QGenExpr ctx Postgres s ty) -> ColumnConstraint

Postgres-specific function to convert any QGenExpr into a meaningful PgExpressionSyntax, so that it can be rendered inside a Default column constraint.