@@ -129,6 +129,9 @@ data NullityType
129 = Null PGType -- ^ @NULL@ may be present
129 = Null PGType -- ^ @NULL@ may be present
130 | NotNull PGType -- ^ @NULL@ is absent
130 | NotNull PGType -- ^ @NULL@ is absent
132+type RelationType = [(Symbol,NullityType)]
133+type RelationProduct = [(Symbol,RelationType)]
132-- | `ColumnType` encodes the allowance of @DEFAULT@ and the only way
135-- | `ColumnType` encodes the allowance of @DEFAULT@ and the only way
133-- to generate an `Optional` `Squeal.PostgreSQL.Expression.Expression`
136-- to generate an `Optional` `Squeal.PostgreSQL.Expression.Expression`
134-- is to use `Squeal.PostgreSQL.Expression.def`,
137-- is to use `Squeal.PostgreSQL.Expression.def`,
@@ -139,9 +142,6 @@ type ColumnType = (ColumnConstraint,NullityType)
139-- | `ColumnsType` is a kind synonym for a row of `ColumnType`s.
142-- | `ColumnsType` is a kind synonym for a row of `ColumnType`s.
140type ColumnsType = [(Symbol,ColumnType)]
143type ColumnsType = [(Symbol,ColumnType)]
142−type RelationType = [(Symbol,NullityType)]
143−type RelationProduct = [(Symbol,RelationType)]
145type TableType = (TableConstraints,ColumnsType)
145type TableType = (TableConstraints,ColumnsType)
146type SchemaType = [(Symbol,TableType)]
146type SchemaType = [(Symbol,TableType)]