Export Command to separate module

2021-11-02 18:11:23 +01:00
parent e8b94aa017
commit 4693b19bf2
4 changed files with 15 additions and 9 deletions
--- a/app/Command.hs
+++ b/app/Command.hs
@@ -0,0 +1,9 @@
+module Command (
+  Command(..)
+) where
+
+import qualified Instruction as I
+
+data Command = Command { instr  :: I.Instruction
+                       , args   :: [Int]
+                       } deriving (Eq, Show)