1
Fork 0

fixes to docs

This commit is contained in:
Jake Wheat 2019-07-07 13:46:39 +01:00
parent 5db749128a
commit 525a1a8652
6 changed files with 20 additions and 11 deletions

View file

@ -298,9 +298,12 @@ import System.Environment
import Text.Show.Pretty
import System.IO
import Language.SQL.SimpleSQL.Parse (parseStatements,peFormattedError)
import Language.SQL.SimpleSQL.Parse
(parseStatements
,ParseError
,peFormattedError)
import Language.SQL.SimpleSQL.Syntax (ansi2011)
import Language.SQL.SimpleSQL.Syntax (ansi2011, Statement)
main :: IO ()
@ -330,10 +333,12 @@ main = do
doIt :: String -> IO ()
doIt src = do
let parsed = parseStatements ansi2011 "" Nothing src
let parsed :: Either ParseError [Statement]
parsed = parseStatements ansi2011 "" Nothing src
either (error . peFormattedError)
(putStrLn . ppShow)
parsed
----

View file

@ -33,4 +33,4 @@ rm build/test_cases.asciidoc
cabal v2-haddock
rm -Rf build/haddock
mkdir build/haddock/
cp -R dist/doc/html/simple-sql-parser/* build/haddock/
cp -R dist-newstyle/build/x86_64-linux/ghc-8.6.5/simple-sql-parser-0.5.0/doc/html/simple-sql-parser/* build/haddock/

View file

@ -22,7 +22,7 @@ additional pass over the ast can be made if you want to carefully
prohibit everything that the standard doesn't allow.
Apart from this permissiveness, some work has been put into trying to
get the best parser error messages possible.
get good parser error messages.
== Queries