github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00
Code Issues Projects Releases Wiki Activity

🔥 withParser.

Browse Source
This commit is contained in:
Rob Rix 2017-11-22 17:05:26 -05:00
parent f970aeddc7
commit 2e7da5e2c1
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Parser.hs
View File

@ -3,7 +3,6 @@ module Parser
( Parser(..)
, SomeParser(..)
, someParser
, withParser
, ApplyAll
-- Syntax parsers
, syntaxParserForLanguage
@ -88,9 +87,6 @@ someParser _ Python = Just (SomeParser pythonParser)
someParser _ Ruby = Just (SomeParser rubyParser)
someParser _ TypeScript = Just (SomeParser typescriptParser)
withParser :: SomeParser typeclasses ann -> (forall syntax . ApplyAll typeclasses syntax => Parser (Term syntax ann) -> a) -> a
withParser (SomeParser parser) with = with parser
-- | Return a 'Language'-specific 'Parser', if one exists.
syntaxParserForLanguage :: Language -> Maybe (Parser (Term Syntax (Record DefaultFields)))
syntaxParserForLanguage language = case language of