mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-18 13:02:11 +03:00
35 lines
1.2 KiB
Haskell
35 lines
1.2 KiB
Haskell
|
module Hasura.Experimental.Schema.Table
|
||
|
|
( Table (..),
|
||
|
|
)
|
||
|
|
where
|
||
|
|
|
||
|
|
--------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
import Hasura.Experimental.IR.Table qualified as Table (Name)
|
||
|
|
import Hasura.Experimental.Schema.Column (Column)
|
||
|
|
import Hasura.Prelude
|
||
|
|
|
||
|
|
--------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
-- | A schematic representation which captures a named collection of columns
|
||
|
|
--
|
||
|
|
-- TODO(cdparks): schematic in the sense of "relating to a schema" or symbolic?
|
||
|
|
-- This language is also used in the @Column@ documentation
|
||
|
|
--
|
||
|
|
-- An element of a table is known as a row, record, tuple, or object,
|
||
|
|
-- and conforms to the shape specified by the list of @Column@s below.
|
||
|
|
--
|
||
|
|
-- cf. https://en.wikipedia.org/wiki/Table_(database)
|
||
|
|
-- https://www.postgresql.org/docs/13/ddl-basics.html
|
||
|
|
--
|
||
|
|
-- NOTE(jkachmar): This type shouldn't _need_ ser/de instances, but they're
|
||
|
|
-- imposed by the 'Backend' class.
|
||
|
|
data Table = Table
|
||
|
|
{ name :: Table.Name,
|
||
|
|
columns :: [Column],
|
||
|
|
-- TODO(cdparks): Composite primary keys
|
||
|
|
primaryKey :: Maybe Text,
|
||
|
|
description :: Maybe Text
|
||
|
|
}
|
||
|
|
deriving stock (Data, Eq, Generic, Ord, Show)
|