improve parsing error message

2018-01-21 10:14:32 -08:00
parent c0992fee62
commit 91ceecb51e
4 changed files with 312 additions and 210 deletions
@@ -13,5 +13,5 @@ import qualified Language.Wasm.Parser as Parser
 main :: IO ()
 main = do
  file <- LBS.readFile "tests/samples/mod.wast"
-  print $ Parser.parseModule . map Lexer.tok <$> Lexer.scanner file
+  print $ Parser.parseModule <$> Lexer.scanner file
  defaultMain $ testGroup "Test Suite" []