simple-sql-parser/tools/SQLIndent.lhs


> import System.Environment

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

> 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 indent"
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`

			`> 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`
rename PrettyIt to SQLIdent and add to cabal 2013-12-19 09:31:27 +01:00			`> _ -> error "please pass filename to indent"`