starlitcanopy/simple-sql-parser
1
Fork 0
Code Activity

add support for 'table t' syntax

Browse source
This commit is contained in:
Jake Wheat 2013-12-17 13:58:44 +02:00
parent 4308acb982
commit 72b67166d9
6 changed files with 63 additions and 64 deletions
Language/SQL/SimpleSQL
Pretty.lhs

2
Language/SQL/SimpleSQL/Pretty.lhs
View file

@ -180,6 +180,8 @@
> queryExpr (Values vs) =
> text "values"
> <+> nest 7 (commaSep (map (parens . commaSep . map scalarExpr) vs))
> queryExpr (Table t) = text "table" <+> name t
> alias :: Alias -> Doc
> alias (Alias nm cols) =