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

fix some imports and exports, particularly stop reexporting all the dialect stuff everywhere

Browse source
This commit is contained in:
Jake Wheat 2019-09-01 11:52:17 +01:00
parent f58e19f33b
commit 9df04a3040
5 changed files with 16 additions and 17 deletions

12
tools/SimpleSqlParserTool.lhs
View file

@ -18,13 +18,9 @@ indent: parse then pretty print sql
> import Language.SQL.SimpleSQL.Pretty
> import Language.SQL.SimpleSQL.Parse
> import Language.SQL.SimpleSQL.Syntax
> import Language.SQL.SimpleSQL.Lex
> dialect :: Dialect
> dialect = ansi2011
> main :: IO ()
> main = do
> args <- getArgs
@ -71,7 +67,7 @@ indent: parse then pretty print sql
> (f,src) <- getInput args
> either (error . peFormattedError)
> (putStrLn . ppShow)
> $ parseStatements dialect f Nothing src
> $ parseStatements ansi2011 f Nothing src
> )
> lexCommand :: (String,[String] -> IO ())
@ -81,7 +77,7 @@ indent: parse then pretty print sql
> (f,src) <- getInput args
> either (error . peFormattedError)
> (putStrLn . intercalate ",\n" . map show)
> $ lexSQL dialect f Nothing src
> $ lexSQL ansi2011 f Nothing src
> )
@ -91,7 +87,7 @@ indent: parse then pretty print sql
> ,\args -> do
> (f,src) <- getInput args
> either (error . peFormattedError)
> (putStrLn . prettyStatements dialect)
> $ parseStatements dialect f Nothing src
> (putStrLn . prettyStatements ansi2011)
> $ parseStatements ansi2011 f Nothing src
> )