fix block, loop and if folded forms parsing

2018-01-22 18:39:53 -08:00
parent e78f07a19f
commit 0b593a4a8c
6 changed files with 558 additions and 6 deletions
@@ -12,6 +12,6 @@ import qualified Language.Wasm.Parser as Parser

 main :: IO ()
 main = do
-  file <- LBS.readFile "tests/samples/if.wast"
+  file <- LBS.readFile "tests/samples/loop.wast"
  print $ Parser.parseModule <$> Lexer.scanner file
  defaultMain $ testGroup "Test Suite" []