github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-04 21:47:07 +03:00
Code Issues Projects Releases Wiki Activity

🔥 the import of Parser from the Semantic module.

Browse Source
This commit is contained in:
Rob Rix 2017-05-19 09:41:53 -04:00
parent 1559c31394
commit 80f9c20c0b
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Semantic.hs
View File

@ -17,7 +17,6 @@ import Info
import Interpreter
import Language
import Language.Markdown
import Parser
import Patch
import Prologue
import Renderer
@ -77,7 +76,7 @@ parseBlob :: SourceBlob -> IO (Term (Syntax Text) (Record DefaultFields))
parseBlob blob@SourceBlob{..} = parserForLanguage blobLanguage blob
-- | Return a parser for a given langauge or the lineByLineParser parser.
parserForLanguage :: Maybe Language -> Parser (Syntax Text) (Record DefaultFields)
parserForLanguage :: Maybe Language -> SourceBlob -> IO (Cofree (Syntax Text) (Record DefaultFields))
parserForLanguage Nothing = lineByLineParser
parserForLanguage (Just language) = case language of
C -> treeSitterParser C tree_sitter_c
@ -95,7 +94,7 @@ renderConcurrently f diffs = do
pure $ mconcat (outputs `using` parTraversable rseq)
-- | A fallback parser that treats a file simply as rows of strings.
lineByLineParser :: Parser (Syntax Text) (Record DefaultFields)
lineByLineParser :: SourceBlob -> IO (Cofree (Syntax Text) (Record DefaultFields))
lineByLineParser SourceBlob{..} = pure . cofree . root $ case foldl' annotateLeaves ([], 0) lines of
(leaves, _) -> cofree <$> leaves
where