github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 14:21:31 +03:00
Code Issues Projects Releases Wiki Activity

Rename go to parse.

Browse Source
This commit is contained in:
Rob Rix 2017-05-26 14:26:34 -04:00
parent 2f3401919f
commit 5828dd7969
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Semantic.hs
View File

@ -56,9 +56,9 @@ diffBlobPair decorator blobs = do
-- | Parse a list of SourceBlobs and use the specified renderer to produce ByteString output.
parseBlobs :: (Monoid output, StringConv output ByteString, NFData (Record fields)) => (Source -> Term (Syntax Text) (Record DefaultFields) -> Term (Syntax Text) (Record fields)) -> Renderer (Identity SourceBlob, Term (Syntax Text) (Record fields)) output -> [SourceBlob] -> IO ByteString
parseBlobs decorator renderer blobs =
toS <$> renderConcurrently (fmap (runRenderer renderer) . go) (filter (not . nonExistentBlob) blobs)
toS <$> renderConcurrently (fmap (runRenderer renderer) . parse) (filter (not . nonExistentBlob) blobs)
where
go blob = do
parse blob = do
term <- decorator (source blob) <$> runParser (parserForLanguage (blobLanguage blob)) (source blob)
pure (Identity blob, term)