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

work on the semicolon handling

Browse source
This commit is contained in:
Jake Wheat 2013-12-14 11:59:29 +02:00
parent cd7a15c193
commit 3f08adb4c5
3 changed files with 22 additions and 6 deletions
Language/SQL/SimpleSQL
Pretty.lhs

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

@ -5,6 +5,7 @@ back into SQL source text. It attempts to format the output nicely.
> module Language.SQL.SimpleSQL.Pretty
> (prettyQueryExpr
> ,prettyScalarExpr
> ,prettyQueryExprs
> ) where
> import Language.SQL.SimpleSQL.Syntax
@ -17,6 +18,8 @@ back into SQL source text. It attempts to format the output nicely.
> prettyScalarExpr :: ScalarExpr -> String
> prettyScalarExpr = render . scalarExpr
> prettyQueryExprs :: [QueryExpr] -> String
> prettyQueryExprs = render . vcat . map ((<> text ";") . queryExpr)
= scalar expressions