diff options
| author | Yuchen Pei <me@ypei.me> | 2018-01-15 12:12:48 +0100 |
|---|---|---|
| committer | Yuchen Pei <me@ypei.me> | 2018-01-15 12:12:48 +0100 |
| commit | ac0b05010df8f676fd12240073e5417ae865a686 (patch) | |
| tree | 27142d694c29bdbfef51064b6f72c4bb463dadf9 /projects/11/JackCompiler.hs | |
| parent | 09c40f135cb3f69599457a5b278d29bcb38fa6ef (diff) | |
checkpoint
- all but pong works
- pong: exception in rectangle drawing
Diffstat (limited to 'projects/11/JackCompiler.hs')
| -rw-r--r-- | projects/11/JackCompiler.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/projects/11/JackCompiler.hs b/projects/11/JackCompiler.hs index d149041..025fe12 100644 --- a/projects/11/JackCompiler.hs +++ b/projects/11/JackCompiler.hs @@ -499,13 +499,13 @@ testCompiler xs = do testCompiler' :: IO () testCompiler' = do --xs <- readFile "./Square/Square.jack" - xs <- readFile "./Test.jack" + xs <- readFile "./Pong/Ball.jack" testCompiler [xs] testReader :: IO () testReader = do --xs <- readFile "./Square/Square.jack" - xs <- readFile "./Test.jack" + xs <- readFile "./Pong/Ball.jack" --print $ buildSRTable $ rights $ [jackReader $ xs] print $ jackReader $ xs |