{-# 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