Split VirtualMachine module

app/Main.hs

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