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

small reformatting

Browse source
This commit is contained in:
Jake Wheat 2013-12-14 01:14:23 +02:00
parent e80b3606b1
commit 0da39d4498
3 changed files with 74 additions and 82 deletions
Language/SQL/SimpleSQL
Pretty.lhs

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

@ -165,7 +165,7 @@ back into SQL source text. It attempts to format the output nicely.
> tr (SimpleTableRef t) = text t
> tr (JoinAlias t a cs) =
> tr t <+> text "as" <+> text a
> <+> maybe empty (\cs' -> parens $ commaSep $ map text cs') cs
> <+> maybe empty (parens . commaSep . map text) cs
> tr (JoinParens t) = parens $ tr t
> tr (JoinQueryExpr q) = parens $ queryExpr q
> tr (JoinTableRef jt t0 t1 jc) =