msyds/haskell-wasm
1
0
Fork 0
forked from GitHub/haskell-wasm
Code Pull Requests Activity

parse module

Browse Source
This commit is contained in:
Ilya Rezvov
2018-01-21 09:57:29 -08:00
parent b03471271b
commit c0992fee62
3 changed files with 176 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/Test.hs
+3 -2
View File
@@ -8,9 +8,10 @@ import Test.Tasty.HUnit
import qualified Data.ByteString.Lazy as LBS
import qualified Language.Wasm.Lexer as Lexer
import qualified Language.Wasm.Parser as Parser
main :: IO ()
main = do
file <- LBS.readFile "tests/samples/f64.wast"
print $ map Lexer.tok <$> Lexer.scanner file
file <- LBS.readFile "tests/samples/mod.wast"
print $ Parser.parseModule . map Lexer.tok <$> Lexer.scanner file
defaultMain $ testGroup "Test Suite" []