1
Fork 0

add simple create table support

This commit is contained in:
Jake Wheat 2015-08-01 23:16:26 +03:00
parent 2938f642d3
commit 6802aaef5a
4 changed files with 59 additions and 4 deletions
Language/SQL/SimpleSQL

View file

@ -453,6 +453,13 @@ which have been changed to try to improve the layout of the output.
> statement _ (CreateSchema nm) =
> text "create" <+> text "schema" <+> names nm
> statement _ (CreateTable nm cds) =
> text "create" <+> text "table" <+> names nm
> <+> parens (commaSep $ map cd cds)
> where
> cd (ColumnDef n t) = name n <+> typeName t
> statement _ (DropSchema nm db) =
> text "drop" <+> text "schema" <+> names nm <+> dropBehav db