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

add support for '' in string literals

Browse source
This commit is contained in:
Jake Wheat 2013-12-17 15:09:28 +02:00
parent 72b67166d9
commit 8adc169b38
5 changed files with 18 additions and 3 deletions
Language/SQL/SimpleSQL
Pretty.lhs

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

@ -28,7 +28,11 @@
= scalar expressions
> scalarExpr :: ScalarExpr -> Doc
> scalarExpr (StringLit s) = quotes $ text s
> scalarExpr (StringLit s) = quotes $ text $ doubleUpQuotes s
> where doubleUpQuotes [] = []
> doubleUpQuotes ('\'':cs) = '\'':'\'':doubleUpQuotes cs
> doubleUpQuotes (c:cs) = c:doubleUpQuotes cs
> scalarExpr (NumLit s) = text s
> scalarExpr (IntervalLit v u p) =
> text "interval" <+> quotes (text v)