how2adventure

adventure.hs

data Verb = Look
          | Take
          | Drop
          | Put
          deriving (Enum, Show, Eq)

data Thing = Player
           | Lantern
           | Sword
           | Bag
           deriving (Enum, Show, Eq)

data Action = Verb (Maybe Thing) (Maybe Thing)

-- Parser state is list of visible/reachable things that can be resolved
data AdventureParser a = Parsec String [Things] a

parseCommand :: AdventureParser Action
parseCommand =