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

Define evaluateFiles using evaluateModules.

Browse Source
This commit is contained in:
Rob Rix 2018-03-22 13:03:59 -04:00
parent 9bd466bc19
commit ae7483291a
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Semantic/Util.hs
View File

@ -81,9 +81,7 @@ evaluateFiles :: forall term effects
=> Parser term
-> [FilePath]
-> IO (Final effects Value)
evaluateFiles parser paths = do
entry:xs <- parseFiles parser paths
pure . runAnalysis @(Evaluating term Value) . withModules xs $ evaluateModule entry
evaluateFiles parser paths = runAnalysis @(Evaluating term Value) . evaluateModules <$> parseFiles parser paths
-- Read and parse a file.