get rid of some rules

This commit is contained in:
Ilya Rezvov
2021-04-04 16:25:22 -07:00
parent d62f945b8b
commit d4a72089ba
2 changed files with 21 additions and 84 deletions
+1 -1
View File
@@ -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", "loop.wast", "if.wast", "stack.wast", "func.wast"]
-- let files = ["block.wast", "loop.wast", "if.wast", "stack.wast", "func.wast"]
scriptTestCases <- (`mapM` files) $ \file -> do
test <- LBS.readFile ("tests/spec/" ++ file)
return $ testCase file $ do