, instructions :: [Instruction]}
deriving (Show, Eq)
-
testInstructions = "cpy 2 a\n\
\tgl a\n\
\tgl a\n\
\dec a\n\
\dec a"
-
emptyMachine :: Machine
emptyMachine = Machine {a=0, b=0, c=0, d=0, pc=0, instructions=[]}
successfulParse :: Either ParseError [a] -> [a]
successfulParse (Left _) = []
-successfulParse (Right a) = a
\ No newline at end of file
+successfulParse (Right a) = a