Create Runner

app/Main.hs

@@ -1,21 +1,14 @@
 module Main where
 
 import System.Environment
-import Control.Monad.Trans.Except (runExceptT, except)
 
-import VirtualMachine.VM (VM(..), empty)
-import VirtualMachine.Interpreter (run)
-import Assembler.Compiler (compile)
-import qualified Data.ByteString as B
+import Runner (run, runDebug)
 
-interpret :: String -> IO (Either String VM)
-interpret input = runExceptT $ (except $ return $ input) >>= (except . compile) >>= (except . return . B.pack) >>= run empty { _debug = False }
-  
 main :: IO ()
 main = do
   (filename:_) <- getArgs
   input <- readFile filename
-  result <- interpret input
+  result <- run input
   case result of
     (Right vm) -> do
       putStrLn $ "\n\nDone:\n" ++ (show vm)