d6c0a43 · squeal · git.iko.soy

create composite types

d6c0a43Eitan Chatav9 years ago

squeal-postgresql/src/Squeal/PostgreSQL/Definition.hs+11

@@ -67,6 +67,8 @@ module Squeal.PostgreSQL.Definition

67 -- * Views

68 , createView

69 , dropView

70+ -- * Types

71+ , createType

70 , createTypeEnum

72 , createTypeEnum

71 , ColumnTypeExpression (..)

73 , ColumnTypeExpression (..)

72 , notNull

74 , notNull

@@ -790,6 +792,15 @@ createTypeEnum enum labels = UnsafeDefinition $

790 "CREATE" <+> "TYPE" <+> renderAlias enum <+> "AS" <+>

792 "CREATE" <+> "TYPE" <+> renderAlias enum <+> "AS" <+>

791 parenthesized (commaSeparated (renderAliases labels)) <> ";"

793 parenthesized (commaSeparated (renderAliases labels)) <> ";"

792

794

795+createType

796+ :: (KnownSymbol comp, SOP.SListI fields)

797+ => Alias comp

798+ -> NP (Aliased TypeExpression) fields

799+ -> Definition schema (Create comp ('Typedef ('PGcomposite fields)) schema)

800+createType comp fields = UnsafeDefinition $

801+ "CREATE" <+> "TYPE" <+> renderAlias comp <+> "AS" <+> parenthesized

802+ (renderCommaSeparated (renderAliasedAs renderTypeExpression) fields)

803+

793-- | `ColumnTypeExpression`s are used in `createTable` commands.

804-- | `ColumnTypeExpression`s are used in `createTable` commands.

794newtype ColumnTypeExpression (schema :: SchemaType) (ty :: ColumnType)

805newtype ColumnTypeExpression (schema :: SchemaType) (ty :: ColumnType)

795 = UnsafeColumnTypeExpression { renderColumnTypeExpression :: ByteString }

806 = UnsafeColumnTypeExpression { renderColumnTypeExpression :: ByteString }