src/Command.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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