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

Bind over parseWithDecorator

Browse Source
This commit is contained in:
Rick Winfrey 2017-03-29 16:33:08 -07:00
parent 7e2d5354e9
commit 83e0600b65
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ParseCommand.hs
View File

@ -84,10 +84,7 @@ buildProgramNodes
-> [SourceBlob]
-> IO [b]
buildProgramNodes programNodeConstructor algebra termDecorator sourceBlobs =
for sourceBlobs
(\sourceBlob@SourceBlob{..} -> do
terms <- parseWithDecorator (termDecorator source) path sourceBlob
pure $ programNodeConstructor path (para algebra terms))
for sourceBlobs (\sourceBlob@SourceBlob{..} -> pure . programNodeConstructor path . para algebra =<< parseWithDecorator (termDecorator source) path sourceBlob)
sourceBlobsFromPaths :: [FilePath] -> IO [SourceBlob]
sourceBlobsFromPaths filePaths =