github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-19 12:51:52 +03:00
Code Issues Projects Releases Wiki Activity

Call withModules directly in Semantic.Util.

Browse Source
This commit is contained in:
Rob Rix 2018-03-21 19:44:48 -04:00
parent 0f16b4e973
commit 864606af8a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Semantic/Util.hs
View File

@ -81,7 +81,7 @@ evaluateFiles :: forall term effects
-> IO (Final effects Value)
evaluateFiles parser paths = do
entry:xs <- traverse (parseFile parser) paths
pure $ evaluates @Value xs entry
pure . runAnalysis @(Evaluating term Value) . withModules (fst entry) xs $ evaluateModule (snd entry)
-- Read and parse a file.
parseFile :: Parser term -> FilePath -> IO (Blob, term)