simple-sql-parser/tools/PrettyIt.lhs


> import System.Environment

> import Language.SQL.SimpleSQL.Pretty
> import Language.SQL.SimpleSQL.Parser
> import Data.List

> main :: IO ()
> main = do
>     args <- getArgs
>     case args of
>       [f] -> do
>              src <- readFile f
>              either (error . peFormattedError)
>                     (putStrLn . prettyQueryExprs)
>                     $ parseQueryExprs f Nothing src
>       _ -> error "please pass filename to prettify"
small reformatting 2013-12-14 00:14:23 +01:00
work on parsing tpch add parse function for parsing multiple query expressions separated by semicolon add parser for substring operator tweak the layout for pretty printing binary operators add sql file with tpch queries in it add simple exe to parse and pretty print multiple query expressions 2013-12-13 23:34:05 +01:00			`> import System.Environment`

			`> import Language.SQL.SimpleSQL.Pretty`
			`> import Language.SQL.SimpleSQL.Parser`
			`> import Data.List`

			`> main :: IO ()`
			`> main = do`
			`> args <- getArgs`
			`> case args of`
			`> [f] -> do`
			`> src <- readFile f`
tidying up 2013-12-14 09:55:44 +01:00			`> either (error . peFormattedError)`
add haddock, reorder the fields in binop and jointref to be more natural 2013-12-14 12:33:15 +01:00			`> (putStrLn . prettyQueryExprs)`
work on parsing tpch add parse function for parsing multiple query expressions separated by semicolon add parser for substring operator tweak the layout for pretty printing binary operators add sql file with tpch queries in it add simple exe to parse and pretty print multiple query expressions 2013-12-13 23:34:05 +01:00			`> $ parseQueryExprs f Nothing src`
			`> _ -> error "please pass filename to prettify"`