Safe Haskell | None |
---|---|
Language | Haskell2010 |
Defines a generic schema type that can be used to define schemas for Beam tables
- class Database be db where
- zipTables :: (Database be db, Monad m) => Proxy be -> (forall tbl. (IsDatabaseEntity be tbl, DatabaseEntityRegularRequirements be tbl) => f tbl -> g tbl -> m (h tbl)) -> db f -> db g -> m (db h)
- type DatabaseSettings be db = db (DatabaseEntity be db)
- class RenamableWithRule (FieldRenamer (DatabaseEntityDescriptor be entityType)) => IsDatabaseEntity be entityType where
- data DatabaseEntityDescriptor be entityType :: *
- type DatabaseEntityDefaultRequirements be entityType :: Constraint
- type DatabaseEntityRegularRequirements be entityType :: Constraint
- data DatabaseEntity be (db :: (* -> *) -> *) entityType where
- DatabaseEntity :: IsDatabaseEntity be entityType => DatabaseEntityDescriptor be entityType -> DatabaseEntity be db entityType
- data TableEntity (tbl :: (* -> *) -> *)
- data ViewEntity (view :: (* -> *) -> *)
- data DomainTypeEntity (ty :: *)
- dbEntityDescriptor :: SimpleGetter (DatabaseEntity be db entityType) (DatabaseEntityDescriptor be entityType)
- type DatabaseModification f be db = db (EntityModification f be)
- newtype EntityModification f be e = EntityModification (f e -> f e)
- newtype FieldModification f a = FieldModification (Columnar f a -> Columnar f a)
- dbModification :: forall f be db. Database be db => DatabaseModification f be db
- tableModification :: forall f tbl. Beamable tbl => tbl (FieldModification f)
- withDbModification :: forall db be entity. Database be db => db (entity be db) -> DatabaseModification (entity be db) be db -> db (entity be db)
- withTableModification :: Beamable tbl => tbl (FieldModification f) -> tbl f -> tbl f
- modifyTable :: (Text -> Text) -> tbl (FieldModification (TableField tbl)) -> EntityModification (DatabaseEntity be db) be (TableEntity tbl)
- fieldNamed :: Text -> FieldModification (TableField tbl) a
- defaultDbSettings :: (Generic (DatabaseSettings be db), GAutoDbSettings (Rep (DatabaseSettings be db) ())) => DatabaseSettings be db
- class RenamableWithRule mod where
- class RenamableField f where
- newtype FieldRenamer entity = FieldRenamer {
- withFieldRenamer :: entity -> entity
- data Lenses (t :: (* -> *) -> *) (f :: * -> *) x
- data LensFor t x where
- type family Columnar (f :: * -> *) x where ...
- type C f a = Columnar f a
- newtype Columnar' f a = Columnar' (Columnar f a)
- newtype ComposeColumnar f g a = ComposeColumnar (f (Columnar g a))
- data Nullable (c :: * -> *) x
- data TableField (table :: (* -> *) -> *) ty = TableField {
- _fieldName :: Text
- data Exposed x
- fieldName :: Lens' (TableField table ty) Text
- type TableSettings table = table (TableField table)
- type HaskellTable table = table Identity
- type TableSkeleton table = table Ignored
- data Ignored x = Ignored
- class GFieldsFulfillConstraint (c :: * -> Constraint) (exposed :: * -> *) values withconstraint where
- type FieldsFulfillConstraint (c :: * -> Constraint) t = (Generic (t (WithConstraint c)), Generic (t Identity), Generic (t Exposed), GFieldsFulfillConstraint c (Rep (t Exposed)) (Rep (t Identity)) (Rep (t (WithConstraint c))))
- type FieldsFulfillConstraintNullable (c :: * -> Constraint) t = (Generic (t (Nullable (WithConstraint c))), Generic (t (Nullable Identity)), Generic (t (Nullable Exposed)), GFieldsFulfillConstraint c (Rep (t (Nullable Exposed))) (Rep (t (Nullable Identity))) (Rep (t (Nullable (WithConstraint c)))))
- data WithConstraint (c :: * -> Constraint) x where
- WithConstraint :: c x => x -> WithConstraint c x
- class TagReducesTo f f' | f -> f' where
- type family ReplaceBaseTag tag f where ...
- withConstrainedFields :: forall c tbl. FieldsFulfillConstraint c tbl => tbl Identity -> tbl (WithConstraint c)
- withConstraints :: forall c tbl. (Beamable tbl, FieldsFulfillConstraint c tbl) => tbl (WithConstraint c)
- withNullableConstrainedFields :: forall c tbl. FieldsFulfillConstraintNullable c tbl => tbl (Nullable Identity) -> tbl (Nullable (WithConstraint c))
- withNullableConstraints :: forall c tbl. (Beamable tbl, FieldsFulfillConstraintNullable c tbl) => tbl (Nullable (WithConstraint c))
- class (Typeable table, Beamable table, Beamable (PrimaryKey table)) => Table (table :: (* -> *) -> *) where
- data PrimaryKey table (column :: * -> *) :: *
- class Beamable table where
- class Retaggable f x | x -> f where
- data (k :*: (f :: k -> *)) (g :: k -> *) (p :: k) :: forall k. (k -> *) -> (k -> *) -> k -> * = (f p) :*: (g p)
- defTblFieldSettings :: (Generic (TableSettings table), GDefaultTableFieldSettings (Rep (TableSettings table) ())) => TableSettings table
- tableValuesNeeded :: Beamable table => Proxy table -> Int
- pk :: Table t => t f -> PrimaryKey t f
- allBeamValues :: Beamable table => (forall a. Columnar' f a -> b) -> table f -> [b]
- changeBeamRep :: Beamable table => (forall a. Columnar' f a -> Columnar' g a) -> table f -> table g
- alongsideTable :: Beamable tbl => tbl f -> tbl g -> tbl (Columnar' f :*: Columnar' g)
Database Types
class Database be db where Source #
Allows introspection into database types.
All database types must be of kind '(* -> *) -> *'. If the type parameter
is named f
, each field must be of the type of f
applied to some type
for which an IsDatabaseEntity
instance exists.
The be
type parameter is necessary so that the compiler can
ensure that backend-specific entities only work on the proper
backend.
Entities are documented under the corresponding section and in the manual
zipTables :: Monad m => Proxy be -> (forall tbl. (IsDatabaseEntity be tbl, DatabaseEntityRegularRequirements be tbl) => f tbl -> g tbl -> m (h tbl)) -> db f -> db g -> m (db h) Source #
Default derived function. Do not implement this yourself.
The idea is that, for any two databases over particular entity tags f
and g
, if we can take any entity in f
and g
to the corresponding
entity in h
(in the possibly effectful monad m
), then we can
transform the two databases over f
and g
to a database in h
,
within the monad m
.
If that doesn't make sense, don't worry. This is mostly beam internal
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. (IsDatabaseEntity be tbl, DatabaseEntityRegularRequirements be tbl) => f tbl -> g tbl -> m (h tbl)) -> db f -> db g -> m (db h) Source #
Default derived function. Do not implement this yourself.
The idea is that, for any two databases over particular entity tags f
and g
, if we can take any entity in f
and g
to the corresponding
entity in h
(in the possibly effectful monad m
), then we can
transform the two databases over f
and g
to a database in h
,
within the monad m
.
If that doesn't make sense, don't worry. This is mostly beam internal
zipTables :: (Database be db, Monad m) => Proxy be -> (forall tbl. (IsDatabaseEntity be tbl, DatabaseEntityRegularRequirements be tbl) => f tbl -> g tbl -> m (h tbl)) -> db f -> db g -> m (db h) Source #
Default derived function. Do not implement this yourself.
The idea is that, for any two databases over particular entity tags f
and g
, if we can take any entity in f
and g
to the corresponding
entity in h
(in the possibly effectful monad m
), then we can
transform the two databases over f
and g
to a database in h
,
within the monad m
.
If that doesn't make sense, don't worry. This is mostly beam internal
type DatabaseSettings be db = db (DatabaseEntity be db) Source #
When parameterized by this entity tag, a database type will hold
meta-information on the Haskell mappings of database entities. Under the
hood, each entity type is transformed into its DatabaseEntityDescriptor
type. For tables this includes the table name as well as the corresponding
TableSettings
, which provides names for each column.
class RenamableWithRule (FieldRenamer (DatabaseEntityDescriptor be entityType)) => IsDatabaseEntity be entityType where Source #
data DatabaseEntityDescriptor be entityType :: * Source #
type DatabaseEntityDefaultRequirements be entityType :: Constraint Source #
type DatabaseEntityRegularRequirements be entityType :: Constraint Source #
dbEntityName :: Lens' (DatabaseEntityDescriptor be entityType) Text Source #
dbEntityAuto :: DatabaseEntityDefaultRequirements be entityType => Text -> DatabaseEntityDescriptor be entityType Source #
IsDatabaseEntity be (DomainTypeEntity ty) Source # | |
Beamable tbl => IsDatabaseEntity be (ViewEntity tbl) Source # | |
Beamable tbl => IsDatabaseEntity be (TableEntity tbl) Source # | |
data DatabaseEntity be (db :: (* -> *) -> *) entityType where Source #
Represents a meta-description of a particular entityType. Mostly, a wrapper
around 'DatabaseEntityDescriptor be entityType', but carries around the
IsDatabaseEntity
dictionary.
DatabaseEntity :: IsDatabaseEntity be entityType => DatabaseEntityDescriptor be entityType -> DatabaseEntity be db entityType |
Database be db => RenamableWithRule (db (EntityModification (DatabaseEntity be db) be)) Source # | |
IsDatabaseEntity be entity => RenamableWithRule (EntityModification (DatabaseEntity be db) be entity) Source # | |
data TableEntity (tbl :: (* -> *) -> *) Source #
Beamable tbl => IsDatabaseEntity be (TableEntity tbl) Source # | |
Beamable tbl => RenamableWithRule (FieldRenamer (DatabaseEntityDescriptor be (TableEntity tbl))) Source # | |
data DatabaseEntityDescriptor be (TableEntity tbl) Source # | |
type DatabaseEntityDefaultRequirements be (TableEntity tbl) Source # | |
type DatabaseEntityRegularRequirements be (TableEntity tbl) Source # | |
data ViewEntity (view :: (* -> *) -> *) Source #
Beamable tbl => IsDatabaseEntity be (ViewEntity tbl) Source # | |
Beamable tbl => RenamableWithRule (FieldRenamer (DatabaseEntityDescriptor be (ViewEntity tbl))) Source # | |
data DatabaseEntityDescriptor be (ViewEntity tbl) Source # | |
type DatabaseEntityDefaultRequirements be (ViewEntity tbl) Source # | |
type DatabaseEntityRegularRequirements be (ViewEntity tbl) Source # | |
data DomainTypeEntity (ty :: *) Source #
IsDatabaseEntity be (DomainTypeEntity ty) Source # | |
RenamableWithRule (FieldRenamer (DatabaseEntityDescriptor be (DomainTypeEntity ty))) Source # | |
data DatabaseEntityDescriptor be (DomainTypeEntity ty) Source # | |
type DatabaseEntityDefaultRequirements be (DomainTypeEntity ty) Source # | |
type DatabaseEntityRegularRequirements be (DomainTypeEntity ty) Source # | |
dbEntityDescriptor :: SimpleGetter (DatabaseEntity be db entityType) (DatabaseEntityDescriptor be entityType) Source #
type DatabaseModification f be db = db (EntityModification f be) Source #
A helper data type that lets you modify a database schema. Converts all entities in the database into functions from that entity to itself.
newtype EntityModification f be e Source #
A newtype wrapper around 'f e -> f e' (i.e., an endomorphism between entity
types in f
). You usually want to use modifyTable
or another function to
contstruct these for you.
EntityModification (f e -> f e) |
Database be db => RenamableWithRule (db (EntityModification (DatabaseEntity be db) be)) Source # | |
IsDatabaseEntity be entity => RenamableWithRule (EntityModification (DatabaseEntity be db) be entity) Source # | |
newtype FieldModification f a Source #
A newtype wrapper around 'Columnar f a -> Columnar f ' (i.e., an
endomorphism between Columnar
s over f
). You usually want to use
fieldNamed
or the IsString
instance to rename the field, when 'f ~
TableField'
FieldModification (Columnar f a -> Columnar f a) |
(Beamable tbl, RenamableField f) => RenamableWithRule (tbl (FieldModification f)) Source # | |
IsString (FieldModification (TableField tbl) a) Source # | |
dbModification :: forall f be db. Database be db => DatabaseModification f be db Source #
Return a DatabaseModification
that does nothing. This is useful if you
only want to rename one table. You can do
dbModification { tbl1 = modifyTable (\oldNm -> "NewTableName") tableModification }
tableModification :: forall f tbl. Beamable tbl => tbl (FieldModification f) Source #
Return a table modification (for use with modifyTable
) that does nothing.
Useful if you only want to change the table name, or if you only want to
modify a few fields.
For example,
tableModification { field1 = "Column1" }
is a table modification (where 'f ~ TableField tbl') that changes the
column name of field1
to Column1.
withDbModification :: forall db be entity. Database be db => db (entity be db) -> DatabaseModification (entity be db) be db -> db (entity be db) Source #
Modify a database according to a given modification. Most useful for
DatabaseSettings
to change the name mappings of tables and fields. For
example, you can use this to modify the default names of a table
db :: DatabaseSettings MyDb db = defaultDbSettings `withDbModification` dbModification { -- Change default name "table1" to "Table_1". Change the name of "table1Field1" to "first_name" table1 = modifyTable (\_ -> "Table_1") (tableModification { table1Field1 = "first_name" } }
withTableModification :: Beamable tbl => tbl (FieldModification f) -> tbl f -> tbl f Source #
Modify a table according to the given field modifications. Invoked by
modifyTable
to apply the modification in the database. Not used as often in
user code, but provided for completeness.
modifyTable :: (Text -> Text) -> tbl (FieldModification (TableField tbl)) -> EntityModification (DatabaseEntity be db) be (TableEntity tbl) Source #
Provide an EntityModification
for TableEntity
s. Allows you to modify
the name of the table and provide a modification for each field in the
table. See the examples for withDbModification
for more.
fieldNamed :: Text -> FieldModification (TableField tbl) a Source #
A field modification to rename the field. Also offered under the IsString
instance for 'FieldModification (TableField tbl) a' for convenience.
defaultDbSettings :: (Generic (DatabaseSettings be db), GAutoDbSettings (Rep (DatabaseSettings be db) ())) => DatabaseSettings be db Source #
Automatically provide names for tables, and descriptions for tables (using
defTblFieldSettings
). Your database must implement Generic
, and must be
auto-derivable. For more information on name generation, see the
manual
class RenamableWithRule mod where Source #
renamingFields :: (Text -> Text) -> mod Source #
(Beamable tbl, RenamableField f) => RenamableWithRule (tbl (FieldModification f)) Source # | |
Database be db => RenamableWithRule (db (EntityModification (DatabaseEntity be db) be)) Source # | |
RenamableWithRule (FieldRenamer (DatabaseEntityDescriptor be (DomainTypeEntity ty))) Source # | |
Beamable tbl => RenamableWithRule (FieldRenamer (DatabaseEntityDescriptor be (ViewEntity tbl))) Source # | |
Beamable tbl => RenamableWithRule (FieldRenamer (DatabaseEntityDescriptor be (TableEntity tbl))) Source # | |
IsDatabaseEntity be entity => RenamableWithRule (EntityModification (DatabaseEntity be db) be entity) Source # | |
class RenamableField f where Source #
RenamableField (TableField tbl) Source # | |
newtype FieldRenamer entity Source #
FieldRenamer | |
|
RenamableWithRule (FieldRenamer (DatabaseEntityDescriptor be (DomainTypeEntity ty))) Source # | |
Beamable tbl => RenamableWithRule (FieldRenamer (DatabaseEntityDescriptor be (ViewEntity tbl))) Source # | |
Beamable tbl => RenamableWithRule (FieldRenamer (DatabaseEntityDescriptor be (TableEntity tbl))) Source # | |
Columnar and Column Tags
type family Columnar (f :: * -> *) x where ... Source #
A type family that we use to "tag" columns in our table datatypes.
This is what allows us to use the same table type to hold table data, describe table settings, derive lenses, and provide expressions.
The basic rules are
Columnar Identity x = x
Thus, any Beam table applied to Identity
will yield a simplified version of the data type, that contains
just what you'd expect.
The Nullable
type is used when referencing PrimaryKey
s that we want to include optionally.
For example, if we have a table with a PrimaryKey
, like the following
data BeamTableT f = BeamTableT { _refToAnotherTable :: PrimaryKey AnotherTableT f , ... }
we would typically be required to provide values for the PrimaryKey
embedded into BeamTableT
. We can use
Nullable
to lift this constraint.
data BeamTableT f = BeamTableT { _refToAnotherTable :: PrimaryKey AnotherTableT (Nullable f) , ... }
Now we can use justRef
and nothingRef
to refer to this table optionally. The embedded PrimaryKey
in _refToAnotherTable
automatically has its fields converted into Maybe
using Nullable
.
The last Columnar
rule is
Columnar f x = f x
Use this rule if you'd like to parameterize your table type over any other functor. For example, this is used in the query modules to write expressions such as 'TableT QExpr', which returns a table whose fields have been turned into query expressions.
The other rules are used within Beam to provide lenses and to expose the inner structure of the data type.
type C f a = Columnar f a Source #
A short type-alias for Columnar
. May shorten your schema definitions
newtype Columnar' f a Source #
If you declare a function 'Columnar f a -> b' and try to constrain your
function by a type class for f
, GHC will complain, because f
is
ambiguous in 'Columnar f a'. For example, 'Columnar Identity (Maybe a) ~
Maybe a' and 'Columnar (Nullable Identity) a ~ Maybe a', so given a type
'Columnar f a', we cannot know the type of f
.
Thus, if you need to know f
, you can instead use Columnar'
. Since its a
newtype, it carries around the f
paramater unambiguously. Internally, it
simply wraps 'Columnar f a'
newtype ComposeColumnar f g a Source #
ComposeColumnar (f (Columnar g a)) |
data Nullable (c :: * -> *) x Source #
Support for NULLable Foreign Key references.
data MyTable f = MyTable { nullableRef :: PrimaryKey AnotherTable (Nullable f) , ... } deriving (Generic, Typeable)
See Columnar
for more information.
data TableField (table :: (* -> *) -> *) ty Source #
Metadata for a field of type ty
in table
.
Essentially a wrapper over the field name, but with a phantom type parameter, so that it forms an appropriate column tag.
Usually you use the defaultDbSettings
function to generate an appropriate
naming convention for you, and then modify it with withDbModification
if
necessary. Under this scheme, the field can be renamed using the IsString
instance for TableField
, or the fieldNamed
function.
TableField | |
|
RenamableField (TableField tbl) Source # | |
TagReducesTo (TableField tbl) (TableField tbl) Source # | |
Eq (TableField table ty) Source # | |
Show (TableField table ty) Source # | |
IsString (FieldModification (TableField tbl) a) Source # | |
newtype mainly used to inspect tho tag structure of a particular
Beamable
. Prevents overlapping instances in some case. Usually not used
in end-user code.
FieldsFulfillConstraintNullable c t => GFieldsFulfillConstraint c (K1 * R (t (Nullable Exposed))) (K1 * R (t (Nullable Identity))) (K1 * R (t (Nullable (WithConstraint c)))) Source # | |
FieldsFulfillConstraint c t => GFieldsFulfillConstraint c (K1 * R (t Exposed)) (K1 * R (t Identity)) (K1 * R (t (WithConstraint c))) Source # | |
c x => GFieldsFulfillConstraint c (K1 * R (Exposed x)) (K1 * R x) (K1 * R (WithConstraint c x)) Source # | |
fieldName :: Lens' (TableField table ty) Text Source #
Van Laarhoven lens to retrieve or set the field name from a TableField
.
type TableSettings table = table (TableField table) Source #
Represents a table that contains metadata on its fields. In particular,
each field of type 'Columnar f a' is transformed into 'TableField table a'.
You can get or update the name of each field by using the fieldName
lens.
type HaskellTable table = table Identity Source #
The regular Haskell version of the table. Equivalent to 'tbl Identity'
type TableSkeleton table = table Ignored Source #
class GFieldsFulfillConstraint (c :: * -> Constraint) (exposed :: * -> *) values withconstraint where Source #
gWithConstrainedFields :: Proxy c -> Proxy exposed -> values () -> withconstraint () Source #
GFieldsFulfillConstraint c (U1 *) (U1 *) (U1 *) Source # | |
FieldsFulfillConstraintNullable c t => GFieldsFulfillConstraint c (K1 * R (t (Nullable Exposed))) (K1 * R (t (Nullable Identity))) (K1 * R (t (Nullable (WithConstraint c)))) Source # | |
FieldsFulfillConstraint c t => GFieldsFulfillConstraint c (K1 * R (t Exposed)) (K1 * R (t Identity)) (K1 * R (t (WithConstraint c))) Source # | |
c x => GFieldsFulfillConstraint c (K1 * R (Exposed x)) (K1 * R x) (K1 * R (WithConstraint c x)) Source # | |
(GFieldsFulfillConstraint c aExp a aC, GFieldsFulfillConstraint c bExp b bC) => GFieldsFulfillConstraint c ((:*:) * aExp bExp) ((:*:) * a b) ((:*:) * aC bC) Source # | |
GFieldsFulfillConstraint c exposed values withconstraint => GFieldsFulfillConstraint c (M1 * s m exposed) (M1 * s m values) (M1 * s m withconstraint) Source # | |
type FieldsFulfillConstraint (c :: * -> Constraint) t = (Generic (t (WithConstraint c)), Generic (t Identity), Generic (t Exposed), GFieldsFulfillConstraint c (Rep (t Exposed)) (Rep (t Identity)) (Rep (t (WithConstraint c)))) Source #
type FieldsFulfillConstraintNullable (c :: * -> Constraint) t = (Generic (t (Nullable (WithConstraint c))), Generic (t (Nullable Identity)), Generic (t (Nullable Exposed)), GFieldsFulfillConstraint c (Rep (t (Nullable Exposed))) (Rep (t (Nullable Identity))) (Rep (t (Nullable (WithConstraint c))))) Source #
data WithConstraint (c :: * -> Constraint) x where Source #
WithConstraint :: c x => x -> WithConstraint c x |
FieldsFulfillConstraintNullable c t => GFieldsFulfillConstraint c (K1 * R (t (Nullable Exposed))) (K1 * R (t (Nullable Identity))) (K1 * R (t (Nullable (WithConstraint c)))) Source # | |
FieldsFulfillConstraint c t => GFieldsFulfillConstraint c (K1 * R (t Exposed)) (K1 * R (t Identity)) (K1 * R (t (WithConstraint c))) Source # | |
c x => GFieldsFulfillConstraint c (K1 * R (Exposed x)) (K1 * R x) (K1 * R (WithConstraint c x)) Source # | |
class TagReducesTo f f' | f -> f' where Source #
Class to automatically unwrap nested Nullables
reduceTag :: Functor m => (Columnar' f' a' -> m (Columnar' f' a')) -> Columnar' f a -> m (Columnar' f a) Source #
TagReducesTo f f' => TagReducesTo (Nullable f) f' Source # | |
TagReducesTo (TableField tbl) (TableField tbl) Source # | |
type family ReplaceBaseTag tag f where ... Source #
ReplaceBaseTag tag (Nullable f) = Nullable (ReplaceBaseTag tag f) | |
ReplaceBaseTag tag x = tag |
withConstrainedFields :: forall c tbl. FieldsFulfillConstraint c tbl => tbl Identity -> tbl (WithConstraint c) Source #
withConstraints :: forall c tbl. (Beamable tbl, FieldsFulfillConstraint c tbl) => tbl (WithConstraint c) Source #
withNullableConstrainedFields :: forall c tbl. FieldsFulfillConstraintNullable c tbl => tbl (Nullable Identity) -> tbl (Nullable (WithConstraint c)) Source #
withNullableConstraints :: forall c tbl. (Beamable tbl, FieldsFulfillConstraintNullable c tbl) => tbl (Nullable (WithConstraint c)) Source #
Tables
class (Typeable table, Beamable table, Beamable (PrimaryKey table)) => Table (table :: (* -> *) -> *) where Source #
The big Kahuna! All beam tables implement this class.
The kind of all table types is '(* -> *) -> *'. This is because all table types are actually table type constructors.
Every table type takes in another type constructor, called the column tag, and uses that constructor to instantiate the column types.
See the documentation for Columnar
.
This class is mostly Generic-derivable. You need only specify a type for the table's primary key and a method to extract the primary key given the table.
An example table:
data BlogPostT f = BlogPost { _blogPostSlug :: Columnar f Text , _blogPostBody :: Columnar f Text , _blogPostDate :: Columnar f UTCTime , _blogPostAuthor :: PrimaryKey AuthorT f , _blogPostTagline :: Columnar f (Maybe Text) , _blogPostImageGallery :: PrimaryKey ImageGalleryT (Nullable f) } deriving Generic instance Beamable BlogPostT instance Table BlogPostT where data PrimaryKey BlogPostT f = BlogPostId (Columnar f Text) deriving Generic primaryKey = BlogPostId . _blogPostSlug instance Beamable (PrimaryKey BlogPostT)
We can interpret this as follows:
- The
_blogPostSlug
,_blogPostBody
,_blogPostDate
, and_blogPostTagline
fields are of typesText
,Text
,UTCTime
, and 'Maybe Text' respectfully. - Since
_blogPostSlug
,_blogPostBody
,_blogPostDate
,_blogPostAuthor
must be provided (i.e, they cannot containNothing
), they will be given SQL NOT NULL constraints._blogPostTagline
is declaredMaybe
soNothing
will be stored as NULL in the database._blogPostImageGallery
will be allowed to be empty because it uses theNullable
tag modifier. blogPostAuthor
references theAuthorT
table (not given here) and is required.blogPostImageGallery
references theImageGalleryT
table (not given here), but this relation is not required (i.e., it may beNothing
. SeeNullable
).
data PrimaryKey table (column :: * -> *) :: * Source #
A data type representing the types of primary keys for this table.
In order to play nicely with the default deriving mechanism, this type must be an instance of Generic
.
primaryKey :: table column -> PrimaryKey table column Source #
Given a table, this should return the PrimaryKey from the table. By keeping this polymorphic over column, we ensure that the primary key values come directly from the table (i.e., they can't be arbitrary constants)
class Beamable table where Source #
Provides a number of introspection routines for the beam library. Allows us
to "zip" tables with different column tags together. Always instantiate an
empty Beamable
instance for tables, primary keys, and any type that you
would like to embed within either. See the
manual for more
information on embedding.
zipBeamFieldsM :: Applicative m => (forall a. Columnar' f a -> Columnar' g a -> m (Columnar' h a)) -> table f -> table g -> m (table h) Source #
zipBeamFieldsM :: (HasBeamFields table f g h, Applicative m) => (forall a. Columnar' f a -> Columnar' g a -> m (Columnar' h a)) -> table f -> table g -> m (table h) Source #
tblSkeleton :: TableSkeleton table Source #
tblSkeleton :: (Generic (TableSkeleton table), GTableSkeleton (Rep (TableSkeleton table))) => TableSkeleton table Source #
class Retaggable f x | x -> f where Source #
Beamable tbl => Retaggable f (tbl f) Source # | |
(Retaggable f a, Retaggable f b) => Retaggable f (a, b) Source # | |
(Retaggable f a, Retaggable f b, Retaggable f c) => Retaggable f (a, b, c) Source # | |
(Retaggable f a, Retaggable f b, Retaggable f c, Retaggable f d) => Retaggable f (a, b, c, d) Source # | |
(Retaggable f a, Retaggable f b, Retaggable f c, Retaggable f d, Retaggable f e) => Retaggable f (a, b, c, d, e) Source # | |
(Retaggable f' a, Retaggable f' b, Retaggable f' c, Retaggable f' d, Retaggable f' e, Retaggable f' f) => Retaggable f' (a, b, c, d, e, f) Source # | |
(Retaggable f' a, Retaggable f' b, Retaggable f' c, Retaggable f' d, Retaggable f' e, Retaggable f' f, Retaggable f' g) => Retaggable f' (a, b, c, d, e, f, g) Source # | |
(Retaggable f' a, Retaggable f' b, Retaggable f' c, Retaggable f' d, Retaggable f' e, Retaggable f' f, Retaggable f' g, Retaggable f' h) => Retaggable f' (a, b, c, d, e, f, g, h) Source # | |
Retaggable (QGenExpr ctxt expr s) (QGenExpr ctxt expr s t) Source # | |
data (k :*: (f :: k -> *)) (g :: k -> *) (p :: k) :: forall k. (k -> *) -> (k -> *) -> k -> * infixr 6 #
Products: encode multiple arguments to constructors
(f p) :*: (g p) infixr 6 |
(Monoid pairs, RecordToPairs enc pairs arity a, RecordToPairs enc pairs arity b) => RecordToPairs enc pairs arity ((:*:) * a b) | |
(EncodeProduct arity a, EncodeProduct arity b) => GToJSON Encoding arity ((:*:) * a b) | |
(WriteProduct arity a, WriteProduct arity b, ProductSize a, ProductSize b) => GToJSON Value arity ((:*:) * a b) | |
Generic1 k ((:*:) k f g) | |
(WriteProduct arity a, WriteProduct arity b) => WriteProduct arity ((:*:) * a b) | |
(EncodeProduct arity a, EncodeProduct arity b) => EncodeProduct arity ((:*:) * a b) | |
(FromRecord arity a, FromRecord arity b) => FromRecord arity ((:*:) * a b) | |
(FromProduct arity a, FromProduct arity b) => FromProduct arity ((:*:) * a b) | |
(FromProduct arity a, FromProduct arity b, ProductSize a, ProductSize b) => GFromJSON arity ((:*:) * a b) | |
(GFieldsFulfillConstraint c aExp a aC, GFieldsFulfillConstraint c bExp b bC) => GFieldsFulfillConstraint c ((:*:) * aExp bExp) ((:*:) * a b) ((:*:) * aC bC) Source # | |
(Monad f, Monad g) => Monad ((:*:) * f g) | Since: 4.9.0.0 |
(Functor g, Functor f) => Functor ((:*:) * f g) | |
(Applicative f, Applicative g) => Applicative ((:*:) * f g) | Since: 4.9.0.0 |
(Foldable f, Foldable g) => Foldable ((:*:) * f g) | |
(Traversable f, Traversable g) => Traversable ((:*:) * f g) | |
(Alternative f, Alternative g) => Alternative ((:*:) * f g) | Since: 4.9.0.0 |
(MonadPlus f, MonadPlus g) => MonadPlus ((:*:) * f g) | Since: 4.9.0.0 |
(Eq (g p), Eq (f p)) => Eq ((:*:) k f g p) | |
(Ord (g p), Ord (f p)) => Ord ((:*:) k f g p) | |
(Read (g p), Read (f p)) => Read ((:*:) k f g p) | |
(Show (g p), Show (f p)) => Show ((:*:) k f g p) | |
Generic ((:*:) k f g p) | |
type Rep1 k ((:*:) k f g) | |
type Rep ((:*:) k f g p) | |
defTblFieldSettings :: (Generic (TableSettings table), GDefaultTableFieldSettings (Rep (TableSettings table) ())) => TableSettings table Source #
Return a TableSettings
for the appropriate table
type where each column
has been given its default name. See the
manual for
information on the default naming convention.
pk :: Table t => t f -> PrimaryKey t f Source #
Synonym for primaryKey
allBeamValues :: Beamable table => (forall a. Columnar' f a -> b) -> table f -> [b] Source #