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

implement complete base 10 number parser, shorten some syntax names

Browse source
This commit is contained in:
Jake Wheat 2013-12-13 17:00:22 +02:00
parent 63fe9778f7
commit 2c1eedb70f
4 changed files with 116 additions and 84 deletions
Language/SQL/SimpleSQL
Pretty.lhs

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

@ -21,10 +21,10 @@ back into SQL source text. It attempts to format the output nicely.
= scalar expressions
> scalarExpr :: ScalarExpr -> Doc
> 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 (StringLit s) = quotes $ text s
> scalarExpr (NumLit s) = text s
> scalarExpr (Iden i) = text i
> scalarExpr (Iden2 q i) = text q <> text "." <> text i
> scalarExpr Star = text "*"
> scalarExpr (Star2 q) = text q <> text "." <> text "*"