1
Fork 0

small fixes

work on the haddock
remove the old attoparsec position stuff from the lexer
change the lexer to accept position info in the same way as the parser
replace sqlindent with new test exe which can parse, lex and indent
This commit is contained in:
Jake Wheat 2015-08-01 12:13:53 +03:00
parent 2df76e3095
commit 913fce068b
7 changed files with 161 additions and 89 deletions
tools/Language/SQL/SimpleSQL

View file

@ -80,7 +80,7 @@ order on the generated documentation.
> makeLexerTest :: Dialect -> String -> [Token] -> T.TestTree
> makeLexerTest d s ts = H.testCase s $ do
> let lx = either (error . show) id $ lexSQL d ("", 1, 1) s
> let lx = either (error . show) id $ lexSQL d "" Nothing s
> H.assertEqual "" ts $ map snd lx
> let s' = prettyTokens d $ map snd lx
> H.assertEqual "pretty print" s s'