summaryrefslogtreecommitdiff
path: root/src/Command.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Command.hs')
-rw-r--r--src/Command.hs17
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 @@
1{-# LANGUAGE FlexibleContexts #-}
2
3module Command
4 ( Cmd(..)
5 , parseCmd
6 ) where
7
8import Types
9
10data Cmd = PerformAlt Alteration
11 | Quit
12 | Step
13 | UnknownCommand String
14 | ParseError String
15
16parseCmd :: SequenceM m => String -> m Cmd
17parseCmd input = return $ UnknownCommand input