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

Just modify for now.

Browse Source
This commit is contained in:
Rob Rix 2018-06-25 12:53:33 -04:00
parent 3fb45b5d50
commit 95bad99319
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Data/Abstract/Evaluatable.hs
View File

@ -101,7 +101,8 @@ evaluate lang analyzeModule analyzeTerm modules = do
foldr (run preludeEnv) get modules
where run preludeEnv modules rest = do
evaluated <- traverse (evalModule preludeEnv) modules
localState (<> ModuleTable.fromModules (toList evaluated)) rest
modify' (<> ModuleTable.fromModules (toList evaluated))
rest
evalModule preludeEnv m
= fmap (<$ m)