Add support for IO in VirtualMachine

2021-11-08 21:39:55 +01:00
parent df1f8262dc
commit e2800fe69f
3 changed files with 36 additions and 20 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -6,10 +6,12 @@ import qualified VirtualMachine as VM

 import Assembler.Compiler (compile)

+import Control.Monad.Trans.Except
+

 run :: String -> IO ()
 run input = case compile input of
-  (Right bytes) -> print $ VM.run VM.empty (B.pack bytes)
+  (Right bytes) -> runExceptT (VM.run VM.empty (B.pack bytes)) >>= print >> return ()
  (Left err) -> putStrLn err

 main :: IO ()