clean up some warnings, remove parsec dep, fix a temp commented out test
This commit is contained in:
parent
af8ea544f6
commit
55a7537108
5 changed files with 19 additions and 30 deletions
tools/Language/SQL/SimpleSQL
|
@ -118,9 +118,9 @@ makeLexerTest d s ts = H.testCase (T.unpack s) $ do
|
|||
|
||||
makeLexingFailsTest :: Dialect -> Text -> T.TestTree
|
||||
makeLexingFailsTest d s = H.testCase (T.unpack s) $ do
|
||||
undefined {-case lexSQL d "" Nothing s of
|
||||
Right x -> H.assertFailure $ "lexing should have failed: " ++ s ++ "\ngot: " ++ show x
|
||||
Left _ -> return ()-}
|
||||
case Lex.lexSQL d "" Nothing s of
|
||||
Right x -> H.assertFailure $ "lexing should have failed: " ++ T.unpack s ++ "\ngot: " ++ show x
|
||||
Left _ -> pure ()
|
||||
|
||||
|
||||
toTest :: (Eq a, Show a) =>
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue