blob: fd21087dbdbfed15d2ca1c94ad183d65a148fb10 (
plain)
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
|