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:
parent
552d3f5383
commit
7cf5275615
9 changed files with 43 additions and 46 deletions
Language/SQL/SimpleSQL
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue