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

a few documentation and website tweaks

Browse source
This commit is contained in:
Jake Wheat 2016-02-22 23:16:36 +02:00
parent 10a38657b5
commit 3f7e0123a2
6 changed files with 48 additions and 33 deletions
Language/SQL/SimpleSQL
Lex.lhsPretty.lhs

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

@ -545,6 +545,9 @@ a good sanity test for this function is to change it to always return
true, then check that the automated tests return the same number of
successes. I don't think it succeeds this test at the moment
> -- | Utility function to tell you if a list of tokens
> -- will pretty print then lex back to the same set of tokens.
> -- Used internally, might be useful for generating SQL via lexical tokens.
> tokenListWillPrintAndLex :: Dialect -> [Token] -> Bool
> tokenListWillPrintAndLex _ [] = True
> tokenListWillPrintAndLex _ [_] = True

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

@ -32,7 +32,7 @@ which have been changed to try to improve the layout of the output.
> prettyStatement :: Dialect -> Statement -> String
> prettyStatement d = render . statement d
> -- | Convert a list of statements to concrete syntax. A semi colon
> -- | Convert a list of statements to concrete syntax. A semicolon
> -- is inserted after each statement.
> prettyStatements :: Dialect -> [Statement] -> String
> prettyStatements d = render . vcat . map ((<> text ";\n") . statement d)