1
Fork 0

swap order in select lists so the expression comes first then the alias to match the order in the concrete syntax

This commit is contained in:
Jake Wheat 2013-12-31 11:31:00 +02:00
parent 552d3f5383
commit 7cf5275615
9 changed files with 43 additions and 46 deletions
Language/SQL/SimpleSQL

View file

@ -213,10 +213,10 @@
> text "as" <+> name nm
> <+> maybe empty (parens . commaSep . map name) cols
> selectList :: [(Maybe Name, ValueExpr)] -> Doc
> selectList :: [(ValueExpr,Maybe Name)] -> Doc
> selectList is = commaSep $ map si is
> where
> si (al,e) = valueExpr e <+> maybe empty als al
> si (e,al) = valueExpr e <+> maybe empty als al
> als al = text "as" <+> name al
> from :: [TableRef] -> Doc