github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-01 11:46:14 +03:00
Code Issues Projects Releases Wiki Activity

Stub in a command parser.

Browse Source
This commit is contained in:
Rob Rix 2018-08-02 16:13:17 -04:00
parent b57c2df5a5
commit f9c2cde7ba
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Semantic/REPL.hs
View File

@ -3,10 +3,10 @@ module Semantic.REPL
( rubyREPL ( rubyREPL
) where ) where
import Control.Abstract import Control.Abstract hiding (List, string)
import Control.Monad.IO.Class import Control.Monad.IO.Class
import Data.Abstract.Address import Data.Abstract.Address
import Data.Abstract.Evaluatable import Data.Abstract.Evaluatable hiding (string)
import Data.Abstract.Module import Data.Abstract.Module
import Data.Abstract.ModuleTable as ModuleTable import Data.Abstract.ModuleTable as ModuleTable
import Data.Abstract.Package import Data.Abstract.Package
@ -168,3 +168,6 @@ instance TokenParsing Parser where
data Command data Command
= Step = Step
| List | List
command :: TokenParsing m => m Command
command = token (char ':' *> (Step <$ string "step" <|> List <$ string "list")) <?> "command"