github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-29 18:06: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
) where
import Control.Abstract
import Control.Abstract hiding (List, string)
import Control.Monad.IO.Class
import Data.Abstract.Address
import Data.Abstract.Evaluatable
import Data.Abstract.Evaluatable hiding (string)
import Data.Abstract.Module
import Data.Abstract.ModuleTable as ModuleTable
import Data.Abstract.Package
@ -168,3 +168,6 @@ instance TokenParsing Parser where
data Command
= Step
| List
command :: TokenParsing m => m Command
command = token (char ':' *> (Step <$ string "step" <|> List <$ string "list")) <?> "command"