1
Fork 0

clean up some warnings, remove parsec dep, fix a temp commented out test

This commit is contained in:
Jake Wheat 2024-01-10 09:34:17 +00:00
parent af8ea544f6
commit 55a7537108
5 changed files with 19 additions and 30 deletions
tools/Language/SQL/SimpleSQL

View file

@ -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) =>