refactor typeuse parser to accomodate raw instructions

2021-03-29 21:56:25 -07:00
parent a6692fdef9
commit f3415a611f
2 changed files with 65 additions and 53 deletions
@@ -17,7 +17,7 @@ import qualified Data.List as List
 main :: IO ()
 main = do
  files <- filter (List.isSuffixOf ".wast") <$> Directory.listDirectory "tests/spec"
-  let files = ["block.wast"]
+  let files = ["block.wast", "stack.wast"]
  scriptTestCases <- (`mapM` files) $ \file -> do
    test <- LBS.readFile ("tests/spec/" ++ file)
    return $ testCase file $ do