Split VirtualMachine module

test/Assembler/EmitterSpec.hs

@@ -8,7 +8,7 @@ import Control.Monad.State (execState)
 import Assembler.Tokenizer (tokenize)
 import Assembler.Parser (AST(..), parse)
 import Assembler.Emitter as E
-import VirtualMachine (Op(..))
+import VirtualMachine.VM (Op(..))
 
 spec :: Spec
 spec = do

test/Assembler/ParserSpec.hs

@@ -4,7 +4,7 @@ import Test.Hspec
 
 import qualified Assembler.Tokenizer as T
 import Assembler.Parser
-import VirtualMachine
+import VirtualMachine.VM (Op(..))
 
 success :: AST -> Int -> Maybe ParseResult
 success ast consumed = Just $ ParseResult ast consumed

test/Assembler/TokenizerSpec.hs

@@ -5,7 +5,7 @@ import Numeric (showHex)
 import Data.Char (ord)
 
 import Assembler.Tokenizer
-import VirtualMachine
+import VirtualMachine.VM (Op(..))
 
 success :: Token -> Int -> Maybe TokenizeResult
 success token consumed = Just $ TokenizeResult token consumed