bartek/mvm
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add more unit tests for Virtual Machine #2

Browse Source
This commit is contained in:
Bartłomiej Przemysław Pluta
2021-11-10 22:10:31 +01:00
parent bae874a97d
commit d32c2fa94a
2 changed files with 65 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
app/Runner.hs
View File

@@ -8,7 +8,10 @@ import VirtualMachine.VM (VM(..), empty)
import qualified VirtualMachine.Interpreter as VM (run)
run :: String -> IO (Either String VM)
run input = runExceptT $ (except $ return $ input) >>= (except . compile) >>= (except . return . B.pack) >>= VM.run empty
run = exec empty
runDebug :: String -> IO (Either String VM)
runDebug input = runExceptT $ (except $ return $ input) >>= (except . compile) >>= (except . return . B.pack) >>= VM.run empty { _debug = True }
runDebug = exec empty { _debug = True }
exec :: VM -> String -> IO (Either String VM)
exec vm input = runExceptT $ (except $ return $ input) >>= (except . compile) >>= (except . return . B.pack) >>= VM.run vm