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

refactor dialect into a non enum and separate to own file

Browse source
This commit is contained in:
Jake Wheat 2016-02-12 12:51:06 +02:00
parent 2b73907119
commit 1b4eefc431
22 changed files with 304 additions and 252 deletions
Language/SQL/SimpleSQL
Pretty.lhs

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

@ -13,6 +13,7 @@ TODO: there should be more comments in this file, especially the bits
which have been changed to try to improve the layout of the output.
> import Language.SQL.SimpleSQL.Syntax
> import Language.SQL.SimpleSQL.Dialect
> import Text.PrettyPrint (render, vcat, text, (<>), (<+>), empty, parens,
> nest, Doc, punctuate, comma, sep, quotes,
> doubleQuotes, brackets,hcat)
@ -336,7 +337,7 @@ which have been changed to try to improve the layout of the output.
> ]
> where
> fetchFirst =
> me (\e -> if dia == MySQL
> me (\e -> if diSyntaxFlavour dia == MySQL
> then text "limit" <+> valueExpr dia e
> else text "fetch first" <+> valueExpr dia e
> <+> text "rows only") fe