github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-01 00:33:59 +03:00
Code Issues Projects Releases Wiki Activity

Reformat command.

Browse Source
This commit is contained in:
Rob Rix 2018-08-02 16:28:40 -04:00
parent 9220177d5a
commit 84024a2001
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Semantic/REPL.hs
View File

@ -177,7 +177,9 @@ data Command
| Error String | Error String
command :: TokenParsing m => m Command command :: TokenParsing m => m Command
command = token (char ':' *> (Step <$ string "step" <|> List <$ string "list")) <?> "command" command = token (char ':' *> command) <?> "command"
where command = Step <$ string "step"
<|> List <$ string "list"
parseString :: Parser a -> String -> Either String a parseString :: Parser a -> String -> Either String a
parseString p = toResult . Trifecta.parseString (runParser p) mempty parseString p = toResult . Trifecta.parseString (runParser p) mempty