github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-09 00:56:32 +03:00
Code Issues Projects Releases Wiki Activity

Parse files to filepath, term pairs

Browse Source
This commit is contained in:
Timothy Clem 2018-02-12 16:17:35 -08:00
parent 01a0bdc236
commit 1943a5a905
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Semantic/Util.hs
View File

@ -32,12 +32,11 @@ type PythonValue = Value Precise (Term (Union Python.Syntax) (Record Location))
file :: MonadIO m => FilePath -> m Blob file :: MonadIO m => FilePath -> m Blob
file path = fromJust <$> IO.readFile path (languageForFilePath path) file path = fromJust <$> IO.readFile path (languageForFilePath path)
files :: MonadIO m => [FilePath] -> m [Blob] parsePythonFiles :: [FilePath] -> IO [(FilePath, Python.Term)]
files = traverse file parsePythonFiles paths = do
xs <- traverse file paths
parsePythonFiles :: [FilePath] -> IO [Python.Term] ts <- runTask $ traverse (parse pythonParser) xs
parsePythonFiles paths = files paths pure (zip paths ts)
>>= runTask . traverse (parse pythonParser)
diffWithParser :: (HasField fields Data.Span.Span, diffWithParser :: (HasField fields Data.Span.Span,
HasField fields Range, HasField fields Range,