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

use ppShow in tool

Browse source
This commit is contained in:
Jake Wheat 2015-08-01 12:23:10 +03:00
parent 913fce068b
commit 900d19f4c1
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
tools/SimpleSqlParserTool.lhs
View file

@ -13,6 +13,7 @@ indent: parse then pretty print sql
> import Data.Maybe > import Data.Maybe
> import System.Exit > import System.Exit
> import Data.List > import Data.List
> import Text.Show.Pretty
> import Language.SQL.SimpleSQL.Pretty > import Language.SQL.SimpleSQL.Pretty
> import Language.SQL.SimpleSQL.Parser > import Language.SQL.SimpleSQL.Parser
@ -65,7 +66,7 @@ indent: parse then pretty print sql
> ,\args -> do > ,\args -> do
> (f,src) <- getInput args > (f,src) <- getInput args
> either (error . peFormattedError) > either (error . peFormattedError)
> (putStrLn . prettyQueryExprs SQL2011) > (putStrLn . ppShow)
> $ parseQueryExprs SQL2011 f Nothing src > $ parseQueryExprs SQL2011 f Nothing src
> ) > )