From 9e24a308e72869f81c12c5187269f46f05faefb1 Mon Sep 17 00:00:00 2001 From: Grigory Bordyugov Date: Thu, 9 Feb 2017 11:45:26 +0100 Subject: [PATCH] tools/SimpleSqlParserTool.lhs fix --- tools/SimpleSqlParserTool.lhs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/tools/SimpleSqlParserTool.lhs b/tools/SimpleSqlParserTool.lhs index fd86964..b9e19b1 100644 --- a/tools/SimpleSqlParserTool.lhs +++ b/tools/SimpleSqlParserTool.lhs @@ -17,9 +17,9 @@ indent: parse then pretty print sql > import Control.Applicative > import Language.SQL.SimpleSQL.Pretty -> import Language.SQL.SimpleSQL.Parser +> import Language.SQL.SimpleSQL.Parse > import Language.SQL.SimpleSQL.Syntax -> import Language.SQL.SimpleSQL.Lexer +> import Language.SQL.SimpleSQL.Lex > main :: IO () @@ -68,7 +68,7 @@ indent: parse then pretty print sql > (f,src) <- getInput args > either (error . peFormattedError) > (putStrLn . ppShow) -> $ parseStatements SQL2011 f Nothing src +> $ parseStatements ansi2011 f Nothing src > ) > lexCommand :: (String,[String] -> IO ()) @@ -78,7 +78,7 @@ indent: parse then pretty print sql > (f,src) <- getInput args > either (error . peFormattedError) > (putStrLn . intercalate ",\n" . map show) -> $ lexSQL SQL2011 f Nothing src +> $ lexSQL ansi2011 f Nothing src > ) @@ -88,7 +88,7 @@ indent: parse then pretty print sql > ,\args -> do > (f,src) <- getInput args > either (error . peFormattedError) -> (putStrLn . prettyStatements SQL2011) -> $ parseStatements SQL2011 f Nothing src +> (putStrLn . prettyStatements ansi2011) +> $ parseStatements ansi2011 f Nothing src > )