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:
parent
2df76e3095
commit
913fce068b
7 changed files with 161 additions and 89 deletions
tools/Language/SQL/SimpleSQL
|
@ -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'
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue