1 files changed, 17 insertions, 0 deletions

diff --git a/src/Command.hs b/src/Command.hs
new file mode 100644
index 0000000..fd21087
--- /dev/null
+++ b/src/Command.hs
@@ -0,0 +1,17 @@
+{-# LANGUAGE FlexibleContexts #-}
+
+module Command
+       ( Cmd(..)
+       , parseCmd
+       ) where
+
+import Types
+
+data Cmd = PerformAlt Alteration
+         | Quit
+         | Step
+         | UnknownCommand String
+         | ParseError String
+
+parseCmd :: SequenceM m => String -> m Cmd
+parseCmd input = return $ UnknownCommand input