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

split number literals and string literals

Browse source
This commit is contained in:
Jake Wheat 2013-12-13 16:44:00 +02:00
parent afc6933f64
commit 63fe9778f7
4 changed files with 29 additions and 24 deletions
Language/SQL/SimpleSQL
Pretty.lhs

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

@ -21,7 +21,8 @@ back into SQL source text. It attempts to format the output nicely.
= scalar expressions
> scalarExpr :: ScalarExpr -> Doc
> scalarExpr (Literal s) = quotes $ text s
> scalarExpr (StringLiteral s) = quotes $ text s
> scalarExpr (NumLiteral s) = text s
> scalarExpr (Identifier i) = text i
> scalarExpr (Identifier2 q i) = text q <> text "." <> text i
> scalarExpr Star = text "*"